jokebot

[2000man]

looking for a joke script that will play in main screen not send PM
and users can add jokes to the list anybody help

i have tryed a few jokebots in and around but they only send PMs to users that put in +joke i would like to be able to just type +joke or whatever and it will display a joke every few mins

2000man(kevin)

i am running robocopv8 and ptokax
i have seen a few script but don't know how to use them in ptokax only lua files i can get to work

[??????Hawk??????]

hi m8  

try Xsthetic netserver with security disabled..

joke bot built in


Click here for more details

[BottledHate]

my 2? cents:

:D

--//Joke Bot v0.2
--//By: BottledHate
--//Requested by: 2000man
--//19/09/04(first release)

--//if using new pto w/ lua 5 erase this stuff...
string = {}
string.sub = strsub
string.find = strfind
string.gsub = gsub
string.len = strlen
string.lower = strlower
string.type = type
string.format = format
io = {}
io.open = openfile
io.close = closefile
io.write = write
os={}
os.execute = execute
table= {}
table.getn = getn
table.insert = tinsert
table.remove = tremove
math = {}
math.random = random
--// ok stop erasing!

jUserDefined = {--//don't touch
--//edit the stuff in quotes to your liking:
Botname = "JokeBot",
regBot = 1, --// 1 = reg Botname.. 0 = don't reg Botname.
---------
jInvoke = "!Joke", --//invoke a random joke at any time.
aJoke = "!aJoke", --// 
rJoke = "!rJoke",  --//OPS ONLY!--//    ( = joke index #.. use the view command to get index.)
jHelp = "!jHelp", --//displays the help list
jView = "!jView",  --//OPS ONLY!--//displays the current list of jokes.
jsInterval = "!jInt",  --//OPS ONLY!--//    (number = time in minutes between joke posts) 
jSett = "!jDispSet",  --//OPS ONLY!--// display the current settings.
jOff = "!jokesOff",  --//OPS ONLY!
jOn = "!jokesOn" ,--//OPS ONLY!
--//OK STOP EDITING!
}
----------------------------------------
jFileName = "JokeBot.dat"
jJokesFile = "Jokes.txt"
jJokes = {}
jTable = {}
jTable.Interval = 3
jTable.On = 1
jVer = "v0.2"
min = 60000
function DataArrival(user, data) 
   if (string.sub(data, 1, 1) == "<" ) then 
      data= string.sub(data,1,string.len(data)-1)
      ------------
      local _,_,c =strfind(data, "%b<>%s+(%S+)")
      if jcmdF[c] then
         local _,_,c,p1=strfind(data, "%b<>%s+(%S+)%s*(.*)")
         jcmdF[c](user,p1)
         return 1
      end
      ------------
   end
end
-------------------------
function Main()
   local r = jFunctions.VerifyFile(jFileName)
   if r ==1 then
      dofile(jFileName)
   end
   r = jFunctions.VerifyFile(jJokesFile)
   if r ==1 then
      dofile(jJokesFile)
   end
   if jTable.On == 1 then
      jTime = jTable.Interval * min
      SetTimer(tonumber(jTime))
      StartTimer()
   end
   if regBot == 1 then
      frmHub:RegBot(jUserDefined.Botname)
   end
end
-------------------------
function OnTimer()
   jFunctions.doStuff()
end
----------------------------------------
jFunctions = {
   doStuff = function()
      joke = jJokes[math.random(table.getn(jJokes))]
      if joke then
         SendToAll(jUserDefined.Botname,joke)
      end
   end,
   -------------------------
   saveData = function(t,tn,file)
      local data = jFunctions.Serialize(t, tn, "")
      local f,e = io.open( file, "w+" ) 
      if f then
        io.write(f, data )
        io.close(f)
      end
   end,
   -------------------------   
   VerifyFile = function(file)
      local f,e = io.open(file, "a+" ) 
      if f then io.close(f) return 1
      else 
         local _,_,path = string.find(file, "(.+[/_\\]).+$") 
         if path ~= nil then os.execute("mkdir ".."\""..string.gsub(path, "/", "\\").."\"") end
         f,e = io.open( file, "a+" )
         if f then io.close(f) return 2
         else return 0 end
      end
   end,
   -------------------------
   Serialize = function(jTable, sTableName, sTab)
      sTab = sTab or "";
      sTmp = ""
      sTmp = sTmp..sTab..sTableName.."={"
      local tStart = 0
      for key, value in jTable do
         if tStart == 1 then
            sTmp = sTmp..",\r\n"
         else
            sTmp = sTmp.."\r\n"
            tStart = 1
         end
         local sKey = (string.type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
         if(type(value) == "table") then
            sTmp = sTmp..jFunctions.Serialize(value, sKey, sTab.."\t");
         else
            local sValue = (string.type(value) == "string") and string.format("%q",value) or tostring(value);
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
         end
      end
      sTmp = sTmp.."\r\n"..sTab.."}"
      return sTmp 
   end,
}
---------------------------------------
jcmdF = {
   [jUserDefined.jInvoke] = function()
      jFunctions.doStuff()
   end,
-------------------------   
   [jUserDefined.aJoke]= function(u,p1)
      if p1 ~= "" then
         table.insert(jJokes, p1)
         u:SendData("*** Joke Bot "..jVer..": The Joke '"..p1.."' was added. ***")
         jFunctions.saveData(jJokes, "jJokes", jJokesFile)
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------    
   [jUserDefined.rJoke]= function(u,p1)
      if not u.bOperator then return end
      p1 = tonumber(p1)
      if string.type(p1) =="number" then
         if jJokes[p1] then
            table.remove(jJokes, p1)
            u:SendData("*** Joke Bot "..jVer..": Joke number '"..p1.."' was removed from the Jokes list. ***")
            jFunctions.saveData(jJokes, "jJokes", jJokesFile)
         else
            u:SendData("*** Joke Bot "..jVer..": Error '"..p1.."' is not a valid Joke number. "..jView.." to view the Jokes list. ***")
         end
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------    
   [jUserDefined.jHelp] = function(u)
         x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
         "\t\t\t\t-=Help Menu=-\r\n\r\n"..
         "\t"..jUserDefined.aJoke.." \t\tAdds a Joke to the list.\r\n"..
         "\t"..jUserDefined.jInvoke.."\t\t\t\tInvoke a random joke.\r\n"
         if u.bOperator then
            x = x.."\t"..jUserDefined.rJoke.." \t\tRemoves a Joke from the list. ( = the index number from "..jUserDefined.jView.." to reomve)\r\n"..
            "\t"..jUserDefined.jsInterval.." \t\t\tSet the interval in minutes for main chat jokes.\r\n"..
            "\t"..jUserDefined.jOn.." / "..jUserDefined.jOff.."\t\tTurn Main Chat jokes On / Off\r\n"..
            "\t"..jUserDefined.jView.."\t\t\t\tShows the current Jokes list index.\r\n"..
            "\t"..jUserDefined.jSett.."\t\t\tShows the current Settings\r\n"..
            "\t"..jUserDefined.jHelp.."\t\t\t\tTHIS.\r\n\r\n"
         end
         u:SendData(x)
   end,
------------------------- 
   [jUserDefined.jView] = function(u)
      if not u.bOperator then return end
         x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
         "\t-=Current Jokes List=-\r\n"..
         "[Index Number]  - Joke\r\n"..
         "------------------------------------------------------------\r\n"
      for i = 1,table.getn(jJokes) do
         x = x.."["..i.."]  -  "..jJokes[i].."\r\n"
      end
      u:SendData(x)
   end,
-------------------------
   [jUserDefined.jSett] = function(u)
      if not u.bOperator then return end
      y = {[1] = "ON", [0] = "OFF"}
      x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
      "\t\t-=Settings=-\r\n\r\n"..
      "\tJoke Bot is currently: "..y[jTable.On].."\r\n"..
      "\tMain Chat Interval: "..jTable.Interval.." minute(s)\r\n"..
      "\tNumber of Jokes: "..table.getn(jJokes).."\r\n\r\n"
      u:SendData(x)
   end,
-------------------------   
   [jUserDefined.jOn] = function(u)
      if not u.bOperator then return end
      jTable.On = 1
      u:SendData("*** Joke Bot "..jVer.." Turned On ***")
      jFunctions.saveData(jTable, "jTable", jFileName)
      jTime = jTable.Interval * min
      SetTimer(tonumber(jTime))
      StartTimer()
   end,
   [jUserDefined.jOff] = function(u)
      if not u.bOperator then return end
      jTable.On = 0
      u:SendData("*** Joke Bot "..jVer.." Turned Off ***")
      jFunctions.saveData(jTable, "jTable", jFileName)
      StopTimer()
   end,   
-------------------------
   [jUserDefined.jsInterval] = function(u,p1)
      if not u.bOperator then return end
      p1 = tonumber(p1)
      if string.type(p1) =="number" then
         jTable.Interval = p1
         u:SendData("*** Joke Bot "..jVer..": Main Chat interval set to '"..p1.."' minutes. ***")
         jFunctions.saveData(jTable, "jTable", jFileName)
         jTime = jTable.Interval * min
         SetTimer(tonumber(jTime))
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------   
}

   
--//Joke Bot v0.2, by BottledHate (19/09/04)

-BH

edit: making all my bots play nice together sticking all
functions in tables... no no matter if 1 or 100 of them
loaded. finished lua5 compat...

[~~~~?Master?~~~~]

i cant start that jokebot whatever i type it won't start....
 i've tryed !jokeson
 !joke +jokeson a.jokeson it wont start plzz help me with it......
 and another thing.... i can't seem to vind the cmd for adding jokes to it......

[bastya_elvtars]

i can't seem to vind the cmd for adding jokes to it......

Dunno ehether case-sensitive, had 2 minutes:

aJoke = "!aJoke", --// 

Try this quick-and-dirty mod for new PX.

--//Joke Bot v0.2
--//By: BottledHate
--//Requested by: 2000man
--//19/09/04(first release)
--//Did stuff to make it work with new px - bastya_elvtars

jUserDefined = {--//don't touch
--//edit the stuff in quotes to your liking:
Botname = "JokeBot",
regBot = 1, --// 1 = reg Botname.. 0 = don't reg Botname.
---------
jInvoke = "!Joke", --//invoke a random joke at any time.
aJoke = "!aJoke", --// 
rJoke = "!rJoke",  --//OPS ONLY!--//    ( = joke index #.. use the view command to get index.)
jHelp = "!jHelp", --//displays the help list
jView = "!jView",  --//OPS ONLY!--//displays the current list of jokes.
jsInterval = "!jInt",  --//OPS ONLY!--//    (number = time in minutes between joke posts) 
jSett = "!jDispSet",  --//OPS ONLY!--// display the current settings.
jOff = "!jokesOff",  --//OPS ONLY!
jOn = "!jokesOn" ,--//OPS ONLY!
--//OK STOP EDITING!
}
----------------------------------------
jFileName = "JokeBot.dat"
jJokesFile = "Jokes.txt"
jJokes = {}
jTable = {}
jTable.Interval = 3
jTable.On = 1
jVer = "v0.2"
min = 60000
function ChatArrival(user, data) 
    data= string.sub(data,1,string.len(data)-1)
    ------------
    local _,_,c =strfind(data, "%b<>%s+(%S+)")
    if jcmdF[c] then
       local _,_,c,p1=strfind(data, "%b<>%s+(%S+)%s*(.*)")
       jcmdF[c](user,p1)
       return 1
    end
    ------------
end
-------------------------
function Main()
   local r = jFunctions.VerifyFile(jFileName)
   if r ==1 then
      dofile(jFileName)
   end
   r = jFunctions.VerifyFile(jJokesFile)
   if r ==1 then
      dofile(jJokesFile)
   end
   if jTable.On == 1 then
      jTime = jTable.Interval * min
      SetTimer(tonumber(jTime))
      StartTimer()
   end
   if regBot == 1 then
      frmHub:RegBot(jUserDefined.Botname)
   end
end
-------------------------
function OnTimer()
   jFunctions.doStuff()
end
----------------------------------------
jFunctions = {
   doStuff = function()
      joke = jJokes[math.random(table.getn(jJokes))]
      if joke then
         SendToAll(jUserDefined.Botname,joke)
      end
   end,
   -------------------------
   saveData = function(t,tn,file)
      local data = jFunctions.Serialize(t, tn, "")
      local f,e = io.open( file, "w+" ) 
      if f then
        io.write(f, data )
        io.close(f)
      end
   end,
   -------------------------   
   VerifyFile = function(file)
      local f,e = io.open(file, "a+" ) 
      if f then io.close(f) return 1
      else 
         local _,_,path = string.find(file, "(.+[/_\\]).+$") 
         if path ~= nil then os.execute("mkdir ".."\""..string.gsub(path, "/", "\\").."\"") end
         f,e = io.open( file, "a+" )
         if f then io.close(f) return 2
         else return 0 end
      end
   end,
   -------------------------
   Serialize = function(jTable, sTableName, sTab)
      sTab = sTab or "";
      sTmp = ""
      sTmp = sTmp..sTab..sTableName.."={"
      local tStart = 0
      for key, value in jTable do
         if tStart == 1 then
            sTmp = sTmp..",\r\n"
         else
            sTmp = sTmp.."\r\n"
            tStart = 1
         end
         local sKey = (string.type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
         if(type(value) == "table") then
            sTmp = sTmp..jFunctions.Serialize(value, sKey, sTab.."\t");
         else
            local sValue = (string.type(value) == "string") and string.format("%q",value) or tostring(value);
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
         end
      end
      sTmp = sTmp.."\r\n"..sTab.."}"
      return sTmp 
   end,
}
---------------------------------------
jcmdF = {
   [jUserDefined.jInvoke] = function()
      jFunctions.doStuff()
   end,
-------------------------   
   [jUserDefined.aJoke]= function(u,p1)
      if p1 ~= "" then
         table.insert(jJokes, p1)
         u:SendData("*** Joke Bot "..jVer..": The Joke '"..p1.."' was added. ***")
         jFunctions.saveData(jJokes, "jJokes", jJokesFile)
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------    
   [jUserDefined.rJoke]= function(u,p1)
      if not u.bOperator then return end
      p1 = tonumber(p1)
      if string.type(p1) =="number" then
         if jJokes[p1] then
            table.remove(jJokes, p1)
            u:SendData("*** Joke Bot "..jVer..": Joke number '"..p1.."' was removed from the Jokes list. ***")
            jFunctions.saveData(jJokes, "jJokes", jJokesFile)
         else
            u:SendData("*** Joke Bot "..jVer..": Error '"..p1.."' is not a valid Joke number. "..jView.." to view the Jokes list. ***")
         end
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------    
   [jUserDefined.jHelp] = function(u)
         x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
         "\t\t\t\t-=Help Menu=-\r\n\r\n"..
         "\t"..jUserDefined.aJoke.." \t\tAdds a Joke to the list.\r\n"..
         "\t"..jUserDefined.jInvoke.."\t\t\t\tInvoke a random joke.\r\n"
         if u.bOperator then
            x = x.."\t"..jUserDefined.rJoke.." \t\tRemoves a Joke from the list. ( = the index number from "..jUserDefined.jView.." to reomve)\r\n"..
            "\t"..jUserDefined.jsInterval.." \t\t\tSet the interval in minutes for main chat jokes.\r\n"..
            "\t"..jUserDefined.jOn.." / "..jUserDefined.jOff.."\t\tTurn Main Chat jokes On / Off\r\n"..
            "\t"..jUserDefined.jView.."\t\t\t\tShows the current Jokes list index.\r\n"..
            "\t"..jUserDefined.jSett.."\t\t\tShows the current Settings\r\n"..
            "\t"..jUserDefined.jHelp.."\t\t\t\tTHIS.\r\n\r\n"
         end
         u:SendData(x)
   end,
------------------------- 
   [jUserDefined.jView] = function(u)
      if not u.bOperator then return end
         x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
         "\t-=Current Jokes List=-\r\n"..
         "[Index Number]  - Joke\r\n"..
         "------------------------------------------------------------\r\n"
      for i = 1,table.getn(jJokes) do
         x = x.."["..i.."]  -  "..jJokes[i].."\r\n"
      end
      u:SendData(x)
   end,
-------------------------
   [jUserDefined.jSett] = function(u)
      if not u.bOperator then return end
      y = {[1] = "ON", [0] = "OFF"}
      x = "*** Joke Bot "..jVer.." ***\r\n\r\n"..
      "\t\t-=Settings=-\r\n\r\n"..
      "\tJoke Bot is currently: "..y[jTable.On].."\r\n"..
      "\tMain Chat Interval: "..jTable.Interval.." minute(s)\r\n"..
      "\tNumber of Jokes: "..table.getn(jJokes).."\r\n\r\n"
      u:SendData(x)
   end,
-------------------------   
   [jUserDefined.jOn] = function(u)
      if not u.bOperator then return end
      jTable.On = 1
      u:SendData("*** Joke Bot "..jVer.." Turned On ***")
      jFunctions.saveData(jTable, "jTable", jFileName)
      jTime = jTable.Interval * min
      SetTimer(tonumber(jTime))
      StartTimer()
   end,
   [jUserDefined.jOff] = function(u)
      if not u.bOperator then return end
      jTable.On = 0
      u:SendData("*** Joke Bot "..jVer.." Turned Off ***")
      jFunctions.saveData(jTable, "jTable", jFileName)
      StopTimer()
   end,   
-------------------------
   [jUserDefined.jsInterval] = function(u,p1)
      if not u.bOperator then return end
      p1 = tonumber(p1)
      if string.type(p1) =="number" then
         jTable.Interval = p1
         u:SendData("*** Joke Bot "..jVer..": Main Chat interval set to '"..p1.."' minutes. ***")
         jFunctions.saveData(jTable, "jTable", jFileName)
         jTime = jTable.Interval * min
         SetTimer(tonumber(jTime))
      else
         u:SendData("*** Joke Bot "..jVer..": Syntax Error. "..jHelp.." for help. ***")
      end
   end,
-------------------------   
}


   --//Joke Bot v0.2, by BottledHate (19/09/04)

I bet Herodes will add the ability to set bot's desc, email, etc... :P - you have already experienced that I an not the man of decorations... functionality is enough for me. :))

[~~~~?Master?~~~~]

this one i cant ecen start i keep getting the message scripts\jokes.lua:7: function arguments expected near `='....

[Dessamator]

Originally posted by  ~~~~?Master?~~~~
this one i cant ecen start i keep getting the message scripts\jokes.lua:7: function arguments expected near `='....

nope, no error like that here, just this one::

Syntax ...\My Documents\0.3.3.0.b17.03.nt.rls\scripts\joke.lua:137: bad argument #1 to `random' (interval is empty)  

line 137:

jTime = jTable.Interval * min

[~~~~?Master?~~~~]

is there a change that a jumble script can cause trubbles
 with that script?

[jiten]

Originally posted by ~~~~?Master?~~~~
is there a change that a jumble script can cause trubbles
 with that script?

Nope, that's because you're not copying only what should be.
The problem must be in your script's first line. Can you copy it here?

Best regards,

jiten