some error with b'day script
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

some error with b'day script

Started by jack_port1000, 18 June, 2007, 11:54:14

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

jack_port1000

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>'

Psycho_Chihuahua

first off:

That is not a complete script you provided. Please provide the whiole script for others to be able to help you
PtokaxWiki ?PtokaX Mirror + latest Libs

01100001011011000111001101101111001000000110101101101110011011110111011101101110001000000110000101110011001000000101010001101111011010110110111101101100011011110111001101101000

CrazyGuy

The error looks related to the incomplete script  8)

jack_port1000

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]&#38;#124;|")   user:SendData("$UserCommand 1 2 "..IpMenu.."\\"..SubMenu.."\\IP From Nick $<%[mynick]> "..Prefix..IpCmd.." %[nick]&#38;#124;|")   user:SendData("$UserCommand 1 2 "..IpMenu.."\\"..SubMenu.."\\Nick From IP$<%[mynick]> "..Prefix..IpCmd.." %[line:IP]&#38;#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

Psycho_Chihuahua

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
PtokaxWiki ?PtokaX Mirror + latest Libs

01100001011011000111001101101111001000000110101101101110011011110111011101101110001000000110000101110011001000000101010001101111011010110110111101101100011011110111001101101000

SMF spam blocked by CleanTalk