Print Page - some error with b'day script

Title: some error with b'day script
Post by: jack_port1000 on 18 June, 2007, 11:54:14

some error in script pls solve it
[15:06] Syntax ...cuments and Settings\SWAGAT.JAGIRDAR\Desktop\New Folder\scripts\Bday.lua:27: unexpected symbol near '<eof>'

Title: Re: some error with b'day script
Post by: Psycho_Chihuahua on 18 June, 2007, 13:23:50

first off:

That is not a complete script you provided. Please provide the whiole script for others to be able to help you

Title: Re: some error with b'day script
Post by: CrazyGuy on 18 June, 2007, 13:39:58

The error looks related to the incomplete script 8)

Title: Re: some error with b'day script
Post by: jack_port1000 on 18 June, 2007, 15:11:39

i dont know about this any thing but i took this script form here how to complit this script or can u give me any nice bday script

--IPLog 1.0e2 LUA 5.1----by Mutor 7/3/05--requested by bigfnpump---- Logs user IP & Nick, get info by command-- Provides right click menu---- +Changes from 1.0 7/5/05-- +Now retrieves IP from nick input as well as nick from IP input---- +Changes from 1.0b 7/7/05-- +Reply now sent in PM --Request by CaSaNoVa---- +Changes from 1.0c 7/9/05-- -Removed 2 table loops---- +Changes from 1.0d 9/2/05-- +Send IP info to all users. --Request by hell---- +Changes from 1.0e 10/05/06-- +Show command before result text --speedX----User Settings--------------------------------------------------------------------------------------------------------------------//-- Botname pulled from the hubBot = frmHub:GetHubBotName()-- Command PrefixPrefix = "!"-- Get IP User CommandIpCmd = "getip"-- Menu name pulled form hub, uses hub name for menuIpMenu = frmHub:GetHubName()-- Custom submenuSubMenu ="IP Log"--File to save user dataIPFile="IPLog.dat"--//--Set your profiles here.--profile_idx, Commands/Menus enabled [0=no 1=yes], "Profile Name"IpProfiles = {[-1] = {1,"Unregistered User"},[0] = {1,"Master"},[1] = {1,"Operator"},[2] = {1,"Vip"},[3] = {1,"Registered User"},[4] = {1,"Moderator"},[5] = {1,"NetFounder"},}----End User Settings------------------------------------------------------------------------------------------------------------- function Main() if loadfile(IPFile) ~= nil then dofile(IPFile) else IPLog ={} Save_File(IPFile,IPLog,"IPLog") endend function OnExit() Save_File(IPFile,IPLog,"IPLog")end function NewUserConnected(user, data) local timein=os.date("%B %d %Y %X ") IPLog[user.sIP]={user.sName,timein} Save_File(IPFile,IPLog,"IPLog") if IpProfiles[user.iProfile][1] == 1 then Commands(user) user:SendData(Bot, IpProfiles[user.iProfile][2].."'s IP Log commands ".. "enabled. Right click hub tab or user list for command menu.") endendOpConnected = NewUserConnected function ChatArrival(user, data) data = string.sub(data,1,-2) local s,e,pre,cmd = string.find(data, "%b<>%s+(%p)(%S+)") local s,e,addy = string.find(data, "%s(%d+%.%d+%.%d+%.%d+)$") local s,e,nick = string.find(data, "%s(%S+)$") if IpProfiles[user.iProfile][1] == 1 then if pre and pre==Prefix then if cmd==IpCmd then if nick and nick ~= addy then local msg="\r\n\r\n\tThe user "..nick.." was not found in the log.\r\n" for i,v in pairs(IPLog) do if v[1]==nick then local msg="\r\n\r\n\tThe user "..v[1].." was last seen ".. "using the IP Address of "..i.." on "..v[2]..".\r\n\r\n" return Send(user.sName,pre..cmd),Send(Bot,msg),1,1 end end if msg ~= nil then return Send(user.sName,pre..cmd),Send(Bot,msg),1 end end if addy and IPLog[addy]==nil then local msg="\r\n\r\n\tThe IP Address "..addy.." was not found in the log.\r\n" return Send(user.sName,pre..cmd),Send(Bot,msg),1 else for i,v in pairs(IPLog) do if i==addy then local msg="\r\n\r\n\tThe IP Address "..i.." was last used ".. "by "..v[1].." on "..v[2]..".\r\n\r\n" return Send(user.sName,pre..cmd),Send(Bot,msg),1 end end end elseif cmd==IpCmd and not addy then Send("\r\n\r\n\tSyntax Error, Syntax = "..Prefix..IpCmd.." <IP or Nick>\r\n") end end endend Send = function(nick,msg) SendToAll(nick,msg)end function Commands(user) user:SendData("$UserCommand 255 7") --clear the menu first user:SendData("$UserCommand 1 1 "..IpMenu.."\\"..SubMenu.."\\IP Info $<%[mynick]> "..Prefix..IpCmd.." %[line:IP or Nick]&#124;|") user:SendData("$UserCommand 1 2 "..IpMenu.."\\"..SubMenu.."\\IP From Nick $<%[mynick]> "..Prefix..IpCmd.." %[nick]&#124;|") user:SendData("$UserCommand 1 2 "..IpMenu.."\\"..SubMenu.."\\Nick From IP$<%[mynick]> "..Prefix..IpCmd.." %[line:IP]&#124;|")end Save_Serialize = function(tTable, sTableName, hFile, sTab) sTab = sTab or ""; hFile:write(sTab..sTableName.." = {\n" ); for key, value in pairs(tTable) do local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key); if(type(value) == "table") then Save_Serialize(value, sKey, hFile, sTab.."\t"); else local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value); hFile:write( sTab.."\t"..sKey.." = "..sValue); end hFile:write( ",\n"); end hFile:write( sTab.."}");end Save_File = function(file,table , tablename ) local hFile = io.open (file , "w") Save_Serialize(table, tablename, hFile); hFile:close()end

Title: Re: some error with b'day script
Post by: Psycho_Chihuahua on 18 June, 2007, 16:52:38

could you please post the script using the code tags? this way is it close on impossible to see what thats supposed to be.

[ code] your code here [ /code ] (just remove the spaces inside the brackets)

the way you just postedt it is horrible for the eyes and i cant make head or tail out of it

PtokaX forum

Archive => Archived 5.1 boards => Help with scripts => Topic started by: jack_port1000 on 18 June, 2007, 11:54:14