PtokaX forum

Ok heres a requst for all you smart minded scripters out there lol.

I know there is a time out for searches and a temp ban
but i think it would be cool to have a time out for saying cuss words in the main chat. Say an adjustable time setting 20 mins or 10 secs or whatever.

Any ideals or help would be great >:o)


Thnx, AMediaMan


PS... if there is one out there already im sorry i missed it,
please point me to it ;) thnx again.

Hi,

Didn't understood your request, could you give me examples or explain why a time out to the chat ??

Best regards, nErBoS

Ok like if someone says F--k  a bot will say sorry cussing is not allowed you now have a ten min time out.

but i would like the time limit to be adjustable or maybe a command that can clear it. Kinda of like a temp gag.
but automatic by the bot......  hope it can be done :)




Thnx , AMediaMan

sure why not... put this together in a few minutes.. tested lightly.



--//TimeOut Bot v0.1
--//By: BottledHate
--//Requested by: AMediaMan
--//14/09/04

--//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
os = {}
os.clock = clock
--// ok stop erasing!


--//edit the table...use lowercase.
timeoutTable = {
   ["fuck"] = 5, --//timeout in minutes.
   ["asshole"] = 5,
}
--//bleh()
timeoutUsers={}
function DataArrival(user, data)
   local x = nil
   if (string.sub(data, 1, 1) == "<" ) then
      data= string.lower(string.sub(data,1,string.len(data)-1) )
      x = executeCrap(user,data)
      if x then return 1 end
      x = doStuff(user,data)      
      if x then return 1 end
   end
end
function doStuff(u,d)
   for k,v in timeoutTable do
      if string.find(d, k) then
         timeoutUsers[u.sName] = os.clock() + (v*60)
         SendToAll("*** "..u.sName.." has been put on time-out for "..v.." minutes for saying '"..k.."' ***")
         return 1
      end
   end
end
function executeCrap(u,d)
   if timeoutUsers[u.sName] then
      if os.clock() < timeoutUsers[u.sName] then
         u:SendData( "You are on Time-Out! Sit back, relax, and enjoy the show.... (you have "..(string.sub(((timeoutUsers[u.sName] - os.clock()) / 60),1,1)+1).." minute(s) or less left on timeout.) ")
         return 1
      else
         timeoutUsers[u.sName] = nil
      end
   end
end


-BH

There is already a script by tezlo out there...

An interesting request, and a nice script...
The bleh() function that's commented out is nice, what's it for? Future releases? :))

Cool ty BottledHate i will test it out looks great :)


Hey bastya_elvtars i couldnt find that script or any like it any where lol if you have a link or something i am iunterested in checking it out as well :)



Thnx, AMediaMan


ps gonna test and ill bbs with results...................

QuoteOriginally posted by AMediaMan
Cool ty BottledHate i will test it out looks great :)


Hey bastya_elvtars i couldnt find that script or any like it any where lol if you have a link or something i am iunterested in checking it out as well :)



Thnx, AMediaMan


ps gonna test and ill bbs with results...................

np... glad to help.

-BH

Is there a script that might Block user's messages to the Main chat for a period of time, after saying the F#$CK word...

"you not allowed to chat because u used the "word" in the main chat"

something like that

** and what does the Gag user command?  :D

QuoteOriginally posted by BoJlk
Is there a script that might Block user's messages to the Main chat for a period of time, after saying the F#$CK word...

"you not allowed to chat because u used the "word" in the main chat"

something like that

** and what does the Gag user command?  :D

LOL

that is exactly what the script above does.

 :D

-BH

Hey BottledHate, script works great ty,
the only problem i have is a trigger bot intercepting the words hahaha but thats ok i can fix that myself ;).

May i request maybe a command to clear the timeout on a certain user ?   Say like !clrt (username). If not its still just what i needed great script thnx again.



thnx, AMediaMan


PS. Maybe you can make the bot say when your time is up. (Ok username you may chat again but watch what you say) .

[BottledHate]
LOL...
Didn't read the script options before Posting a Reply...
 ;)

QuoteOriginally posted by AMediaMan
Hey BottledHate, script works great ty,
the only problem i have is a trigger bot intercepting the words hahaha but thats ok i can fix that myself ;).

sweeeeet :D

QuoteOriginally posted by AMediaMan
May i request maybe a command to clear the timeout on a certain user ?   Say like !clrt (username). If not its still just what i needed great script thnx again.

sure.. i'll work on that now...

QuoteOriginally posted by AMediaMan
PS. Maybe you can make the bot say when your time is up. (Ok username you may chat again but watch what you say) .

i made the script without a timer on purpose. i assumed
 u have other scripts running.. and it would require a
timer..... which would mess up any other timers for
 other scripts.  


:D

-BH

Cool, i think the only script i use with a timer would be the trivia bot which i can do without hahahaha.

Keep up the good work !!!


thnx, AMediaMan

added a command to clear nicks or the whole list. (ops only)

--//TimeOut Bot v0.2
--//By: BottledHate
--//Requested by: AMediaMan
--//14/09/04

--//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
os = {}
os.clock = clock
--// ok stop erasing!

--//edit the table...use lowercase.
timeoutTable = {
   ["fuck"] = 5, --//timeout in minutes.  0.1 would be 6 seconds ;)
   ["asshole"] = 5,
}

clearCommand = "!clrt" --// ! ...(case sensitive, OPs only) (no clears the whole list)

timeoutUsers={}
function DataArrival(user, data)
   local x = nil
   if (string.sub(data, 1, 1) == "<" ) then
      data= string.sub(data,1,string.len(data)-1)
      local _,_,c,n=strfind(data, "%b<>%s+(%S*)%s*(%S*)")
      if c == clearCommand and user.bOperator then
         if n ~= "" then
            if timeoutUsers[n] then
               timeoutUsers[n] = nil
               SendToAll("*** "..user.sName.." has let "..n.." off of Time-Out. ***")
            else
               user:SendData( "*** The nick: '"..n.."' was not found on the Time-Out list. ***")
            end
         else
            timeoutUsers = nil
            timeoutUsers ={}
            user:SendData( "*** The entire Time-Out list was cleared. ***")
         end
         return 1
      end
      data = string.lower(data)
      x = executeCrap(user,data)
      if x then return 1 end
      x = doStuff(user,data)      
      if x then return 1 end
   end
end
function doStuff(u,d)
   for k,v in timeoutTable do
      if string.find(d, k) then
         timeoutUsers[u.sName] = os.clock() + (v*60)
         SendToAll("*** "..u.sName.." has been put on time-out for "..v.." minutes for saying '"..k.."' ***")
         return 1
      end
   end
end
function executeCrap(u,d)
   if timeoutUsers[u.sName] then
      if os.clock() < timeoutUsers[u.sName] then
         u:SendData( "You are on Time-Out! Sit back, relax, and enjoy the show.... (you have "..
            (string.sub(((timeoutUsers[u.sName] - os.clock()) / 60),1,1)+1)..
            " minute(s) or less left on timeout.) ")
         return 1
      else
         timeoutUsers[u.sName] = nil
      end
   end
end


-BH

Perfect it works great plus with the clrt command it makes it much easier to test lol no more restarting scripts :) thnx for all the help.




Thnx again, AMediaMan

as always, i'm happy to help. :)

if you want any more tweaking/features done to it just ask!

-BH

Nothing for this one  :P

But i have a post in the help scripts area that you could check out hahahaha. The one Ada bot help i think it is.
Peep it and give it a shot hahahaha.





AMediaMan

Works Great...

maybe you should make a command
that adds words to the DataBase...

something like !add

QuoteOriginally posted by AMediaMan

But i have a post in the help scripts area that you could check out hahahaha. The one Ada bot help i think it is.
Peep it and give it a shot hahahaha.

will do :D


-BH

QuoteOriginally posted by BoJlk
Works Great...

maybe you should make a command
that adds words to the DataBase...

something like !add

hmmmm, if i'm going to add that.. may as well go all out..

!add , !remove , !settime , !view, !timeout , !thelp....

maybe tomorrow... i'm off to bed for the night ;)

-BH

LMAO, hey hey this could turn out to be BIG haha. Nice add on BoJlk and an even better all out BottledHate lol.I will test and upgrade as we go :)


AMediaMan

It Just Might!...  :D

and it doesn't dependents on the Language you using
in the Main chat...

you can add any inappropriate words in you own language.  :D

I dont think it would matter what language you use if someone types the word it times them out weather it be french or sweden german or what ever.  :D

The one thing that you would have to do is change the bot response to the language you need. So everything should work just fine  8)




AMediaMan

What i meant was...

If Someone uses the word "????" {Encoding>Cyrilic (Windows)}
**It's in Russian

I would like to add this Offensive word!
to the pile of stinking word that i won't like to be used in the mainchat... :D

havn't had time to fully test it yet...

but here it is:


--//TimeOut Bot v0.3
--//By: BottledHate
--//Requested by: AMediaMan
--//16/09/04
--//14/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
os = {}
os.clock = clock
--// ok stop erasing!

--//edit the stuff in quotes to your liking:
 --//(cmds are for ops only)
aWord = "!addword" --//    (time = interger in minutes) (word must be lower case)
rWord = "!removeword" --//
uTout = "!timeout" --// []   (put a user on timeout.)
tHelp = "!thelp" --//displays the help list
tView = "!view" --//displays the current list of words.
clrT = "!clrt" --// [] ...(case sensitive, OPs only) (no clears the whole list)
--//OK STOP EDITING!

----------------------------------------
tFileName = "TimeOutBot.dat"
tTable = {}
tUsers={}
tVer = "v0.3"
function DataArrival(user, data)
   local x = nil
   if (string.sub(data, 1, 1) == "<" ) then
      data= string.sub(data,1,string.len(data)-1)
      ------------
      local _,_,c =strfind(data, "%b<>%s+(%S+)")
      if cmdF[c] and user.bOperator then
         local _,_,c,p1,p2,p3=strfind(data, "%b<>%s+(%S+)%s*(%S*)%s*(%S*)%s*(.*)")
         cmdF[c](user,p1,p2,p3)
         return 1
      end
      ------------
      data = string.lower(data)
      x = executeCrap(user,data)
      if x then return 1 end
      x = doStuff(user,data)      
      if x then return 1 end
   end
end
-------------------------
function doStuff(u,d)
   for k,v in tTable do
      if string.find(d, k) then
         tUsers[u.sName] = os.clock() + (v*60)
         SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has been put on time-out for "..v.." minutes for saying '"..k.."' ***")
         return 1
      end
   end
end
-------------------------
function executeCrap(u,d)
   if tUsers[u.sName] then
      if os.clock() < tUsers[u.sName] then
      local t = (tUsers[u.sName] - os.clock()) / 60
         u:SendData( "*** You are on Time-Out! Sit back, relax, and enjoy the show.... (you have "..
            (string.sub(t,1,string.find(t,"%d+(%.)%d*")+1)+1)..
            " minute(s) or less left on timeout.) ***")
         return 1
      else
         tUsers[u.sName] = nil
      end
   end
end
-------------------------
function tsaveData()
   local data = tSerialize(tTable, "tTable", "")
   local f,e = openfile( tFileName, "w+" )
   if f then
     write(f, data )
     closefile(f)
   end
end
-------------------------
function tverifyFile(file)--//(make file)
   local f,e = openfile( file, "a+" )
   if f then closefile(f) return 1
   else
      local _,_,path = strfind(file, "(.+[/_\\]).+$")
      if path ~= nil then execute("mkdir ".."\""..gsub(path, "/", "\\").."\"") end
      f,e = openfile( file, "a+" )
      if f then closefile(f) return 2
      else return 0 end
   end
end
-------------------------
function tSerialize(tTable, sTableName, sTab)
   sTab = sTab or "";
   sTmp = ""
   sTmp = sTmp..sTab..sTableName.."={"
   local tStart = 0
for key, value in tTable do
      if tStart == 1 then
         sTmp = sTmp..",\r\n"
      else
         sTmp = sTmp.."\r\n"
         tStart = 1
      end
      local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
      if(type(value) == "table") then
         sTmp = sTmp..tSerialize(value, sKey, sTab.."\t");
      else
         local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
         sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
      end
   end
   sTmp = sTmp.."\r\n"..sTab.."}"
   return sTmp
end


----------------------------------------
cmdF = {
   [clrT] = function(u,p1)
      if p1 ~= "" then
         if tUsers[p1] then
            tUsers[p1] = nil
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has let "..p1.." off of Time-Out. ***")
         else
            u:SendData( "*** TimeOut Bot "..tVer..": The nick '"..p1.."' was not found on the Time-Out list. ***")
         end
      else
         tUsers = nil
         tUsers ={}
         u:SendData( "*** TimeOut Bot "..tVer..": The entire Time-Out list was cleared. ***")
      end    
   end,
-------------------------
   [aWord] = function(u,p1,p2)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tTable[p1] = p2
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was added with a Time-Out of "..p2.." minutes. ***")
         tsaveData()
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tHelp.." for help. ***")
      end
   end,
-------------------------    
   [rWord] = function(u,p1)
      if tTable[p1] then
         tTable[p1] = nil
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was removed from the words list. ***")
         tsaveData()
      else
         u:SendData("*** TimeOut Bot "..tVer..": Error '"..p1.."' not on words list. "..tView.." to view the words list. ***")
      end
   end,
-------------------------    
   [tHelp] = function(u)
      u:SendData("*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t\t\t-=Help Menu=-\r\n\r\n"..
         "\t"..aWord.." \t\t\tAdds a word to the words list. ( = number minutes.)\r\n"..
         "\t"..rWord.." \t\t\tRemoves a word from the words list.\r\n"..
         "\t"..tView.."\t\t\t\t\tShows the current words list.\r\n"..
         "\t"..uTout.." []\tPuts a nick on timeout for . is optional.\r\n"..
         "\t"..clrT.." []\t\t\t\tClears from the Time-Out list. Clears the whole list if left blank.\r\n"..
         "\t"..tHelp.."\t\t\t\t\tTHIS.\r\n\r\n")
   end,
-------------------------
   [tView] = function(u)
      local x = "*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t-=Current Words List=-\r\n"..
         "\t  Word\t\t-\t  Time-Out minutes\r\n"..
         "\t------------------------------------------------------------\r\n"
      for k,v in tTable do
         if string.len(k) >= 7 then
            x = x.."\t"..k.."\t-\t"..v.."\r\n"
         else
            x = x.."\t"..k.."\t\t-\t"..v.."\r\n"
         end
      end
      u:SendData(x)
   end,
-------------------------  
   [uTout] = function(u,p1,p2,p3)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tUsers[p1] = os.clock() + (p2*60)
         if p3 == "" then
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes.")
         else
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes for: "..p3.." ***")
         end        
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tHelp.." for help. ***")
      end
   end,
}
-------------------------
local y = tverifyFile(tFileName)
if y ==1 then
   dofile(tFileName)
end

--//TimeOut Bot v0.3, by BottledHate (16/09/04)


-BH

made a few little changes to the script above... nothing big, just one little error with displaying minutes over 9. and something else i can't remember.

-BH

Well BottledHate

It Affects Master and OPs... :D Now that's funny
And when i tried to add a word with spaces
i've got  

*** TimeOut Bot v0.3: Syntax Error. !thelp for help. ***

QuoteOriginally posted by BoJlk
It Affects Master and OPs... :D Now that's funny

yup.. sure does.. and why shouldn't it :D (not like they can't remove themselves... )

QuoteOriginally posted by BoJlk
And when i tried to add a word with spaces
i've got  

*** TimeOut Bot v0.3: Syntax Error. !thelp for help. ***

a word with spaces is two words... ;)


-BH

In a Testrun

Time-Out yourself and then chat a couple of lines *being blocked of course* and then clear Time-Out List

and what do you get on a 15.25? your not on timeout but u still cant chat in mainonly stays blank

QuoteOriginally posted by Psycho_Chihuahua
and what do you get on a 15.25? your not on timeout but u still cant chat in mainonly stays blank

great.. thanks for the test run... i'm not familiar with
 15.25 ... i assume thats a pto version.. i'll mess around
with it tomorrow and see what the deal is.


-BH

QuoteOriginally posted by BoJlk
And when i tried to add a word with spaces
i've got  

*** TimeOut Bot v0.3: Syntax Error. !thelp for help. ***

if you really want spaces.. edit the .dat file manually and reload the bot :D

-BH

I like that the masters and ops are included  :D , in the hub i use it in is private and everyone there is an op or higher lol. It really was meant to be for fun with me but i see that it is a very handy script  :P  so i just might add it to my public hub as well hahahaha.

Keep up the great work BottledHate and i will test this one out as well.


Thnx,AMediaMan

QuoteOriginally posted by BottledHate

QuoteOriginally posted by Psycho_Chihuahua
and what do you get on a 15.25? your not on timeout but u still cant chat in mainonly stays blank

great.. thanks for the test run... i'm not familiar with
 15.25 ... i assume thats a pto version.. i'll mess around
with it tomorrow and see what the deal is.


-BH

yes i meant ptokax 0.3.3.0 build 15.25

well i gave it a try in 0.3.3.0 15.25.....

and it worked fine.... it did conflict with another trigbot a
lil.. but adding a "_" to the begining of the script file
making it load last seemed to fix that prob.

so it must be another bot u run causing probs....

i dunno... maybe try changingthe name of the script so
it loads first or last...



-BH

done more testing... all commands work fine. even loaded up the rest of my bots, and all is still good...

i kinda like 0.3.3.0 15.25 :D think i'll use it now, instead of 0.3.2.6 td4.99....

-BH

QuoteOriginally posted by BottledHate
done more testing... all commands work fine. even loaded up the rest of my bots, and all is still good...

i kinda like 0.3.3.0 15.25 :D think i'll use it now, instead of 0.3.2.6 td4.99....

-BH

15.18 is better, it has a bit bigger ram usage, but accesses LUA variables faster.
This is my experimental opinion, but you decide...

I think both should be released at last.

QuoteOriginally posted by BottledHate
if you really want spaces.. edit the .dat file manually and reload the bot :D

Thanks worked fine...

A great Work you did with the script it's comfortable to use and manipulate...

Keep up the good work!

QuoteOriginally posted by BoJlk
Thanks worked fine...

A great Work you did with the script it's comfortable to use and manipulate...

Keep up the good work!

thanks!  :D

this script wouldn't have been possible if it wern't for
 great feedback thoughout... thanks to all that gave
 input!

-BH

hey hey anytime BottledHate. Besides what kind of person would i be if i requested a bot and didnt help test it lmao. Works great and i ty much.


Keep up the good work, AMediaMan

tryingto update my scripts to be 100% lua5 compatible.. and also making them all play nice together, weather 2 or 100 of them running.


--//TimeOut Bot v0.4
--//By: BottledHate
--//Requested by: AMediaMan
--//20/09/04
--//14/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
os.clock = clock
table= {}
table.getn = getn
table.insert = tinsert
table.remove = tremove
math = {}
math.random = random
--// ok stop erasing!

tUserDefined = {--//Don't Touch
--//edit the stuff in quotes to your liking:
 --//(cmds are for ops only)
aWord = "!addword", --//    (time = interger in minutes) (word must be lower case)
rWord = "!removeword", --//
uTout = "!timeout", --// []   (put a user on timeout.)
tHelp = "!thelp", --//displays the help list
tView = "!view", --//displays the current list of words.
clrT = "!clrt", --// [] ...(case sensitive, OPs only) (no clears the whole list)
--//OK STOP EDITING!
}
----------------------------------------
tFileName = "TimeOutBot.dat"
tTable = {}
tUsers={}
tVer = "v0.4"
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 cmdF[c] and user.bOperator then
         local _,_,c,p1,p2,p3=strfind(data, "%b<>%s+(%S+)%s*(%S*)%s*(%S*)%s*(.*)")
         cmdF[c](user,p1,p2,p3)
         return 1
      end
      ------------
      local x = nil
      data = string.lower(data)
      x = tFunctions.executeCrap(user,data)
      if x == 1 then return 1 end
      x= nil
      x = tFunctions.doStuff(user,data)      
      if x == 1 then return 1 end
   end
end
-------------------------
tFunctions = {
   doStuff = function(u,d)
      for k,v in tTable do
         if string.find(d, k) then
            tUsers[u.sName] = os.clock() + (v*60)
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has been put on time-out for "..v.." minutes for saying '"..k.."' ***")
            return 1
         end
      end
   end,
   -------------------------  
   executeCrap = function(u,d)
      if tUsers[u.sName] then
         if os.clock() < tUsers[u.sName] then
         local t = (tUsers[u.sName] - os.clock()) / 60
            u:SendData( "*** You are on Time-Out! Sit back, relax, and enjoy the show.... (you have "..
               (string.sub(t,1,string.find(t,"%d+(%.)%d*")+1)+1)..
               " minute(s) or less left on timeout.) ***")
            return 1
         else
            tUsers[u.sName] = nil
         end
      end
   end,
   -------------------------
   saveData = function(t,tn,file)
      local data = tFunctions.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(Table, sTableName, sTab)
      sTab = sTab or "";
      sTmp = ""
      sTmp = sTmp..sTab..sTableName.."={"
      local tStart = 0
      for key, value in Table 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..tFunctions.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,
}
----------------------------------------
cmdF = {
   [tUserDefined.clrT] = function(u,p1)
      if p1 ~= "" then
         if tUsers[p1] then
            tUsers[p1] = nil
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has let "..p1.." off of Time-Out. ***")
         else
            u:SendData( "*** TimeOut Bot "..tVer..": The nick '"..p1.."' was not found on the Time-Out list. ***")
         end
      else
         tUsers = nil
         tUsers ={}
         u:SendData( "*** TimeOut Bot "..tVer..": The entire Time-Out list was cleared. ***")
      end    
   end,
-------------------------
   [tUserDefined.aWord] = function(u,p1,p2)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tTable[p1] = p2
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was added with a Time-Out of "..p2.." minutes. ***")
         tFunctions.saveData(tTable, "tTable",tFileName)
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tUserDefined.tHelp.." for help. ***")
      end
   end,
-------------------------    
   [tUserDefined.rWord] = function(u,p1)
      if tTable[p1] then
         tTable[p1] = nil
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was removed from the words list. ***")
         tFunctions.saveData(tTable, "tTable",tFileName)
      else
         u:SendData("*** TimeOut Bot "..tVer..": Error '"..p1.."' not on words list. "..tUserDefined.tView.." to view the words list. ***")
      end
   end,
-------------------------    
   [tUserDefined.tHelp] = function(u)
      u:SendData("*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t\t\t-=Help Menu=-\r\n\r\n"..
         "\t"..tUserDefined.aWord.." \t\t\tAdds a word to the words list. ( = number minutes.)\r\n"..
         "\t"..tUserDefined.rWord.." \t\t\tRemoves a word from the words list.\r\n"..
         "\t"..tUserDefined.tView.."\t\t\t\t\tShows the current words list.\r\n"..
         "\t"..tUserDefined.uTout.." []\tPuts a nick on timeout for . is optional.\r\n"..
         "\t"..tUserDefined.clrT.." []\t\t\t\tClears from the Time-Out list. Clears the whole list if left blank.\r\n"..
         "\t"..tUserDefined.tHelp.."\t\t\t\t\tTHIS.\r\n\r\n")
   end,
-------------------------
   [tUserDefined.tView] = function(u)
      local x = "*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t-=Current Words List=-\r\n"..
         "\t  Word\t\t-\t  Time-Out minutes\r\n"..
         "\t------------------------------------------------------------\r\n"
      for k,v in tTable do
         if string.len(k) >= 7 then
            x = x.."\t"..k.."\t-\t"..v.."\r\n"
         else
            x = x.."\t"..k.."\t\t-\t"..v.."\r\n"
         end
      end
      u:SendData(x)
   end,
-------------------------  
   [tUserDefined.uTout] = function(u,p1,p2,p3)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tUsers[p1] = os.clock() + (p2*60)
         if p3 == "" then
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes.")
         else
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes for: "..p3.." ***")
         end        
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tUserDefined.tHelp.." for help. ***")
      end
   end,
}
-------------------------
local y = tFunctions.VerifyFile(tFileName)
if y ==1 then
   dofile(tFileName)
end

--//TimeOut Bot v0.4, by BottledHate (20/09/04)

-BH

COOOOOOOOOOOOL   :D










AMediaMan

another update.....
+ "*" in front of word makes it absolute.

example:
!addword *hi 5   ...will find only "hi"... not anything around it.
Hi everyone!        
(hi would be found)
high everyone!    
(hi would not be found..)

!addword ho 5    ...will find "ho" in any word
blah is a ho          
(ho would be found)
hope you are better    
(ho would still be found..)

oky? (same as the word replace bot)

Code Select Expand

--//TimeOut Bot v0.5
--//By: BottledHate
--//Requested by: AMediaMan
--//24/09/04
--//14/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
os.clock = clock
table= {}
table.getn = getn
table.insert = tinsert
table.remove = tremove
math = {}
math.random = random
--// ok stop erasing!

tUserDefined = {--//Don't Touch
--//edit the stuff in quotes to your liking:
 --//(cmds are for ops only)
aWord = "!addword", --//    (time = interger in minutes) (word must be lower case)
rWord = "!removeword", --//
uTout = "!timeout", --// []   (put a user on timeout.)
tHelp = "!thelp", --//displays the help list
tView = "!view", --//displays the current list of words.
clrT = "!clrt", --// [] ...(case sensitive, OPs only) (no clears the whole list)
--//OK STOP EDITING!
}
----------------------------------------
tFileName = "TimeOutBot.dat"
tTable = {}
tUsers={}
tVer = "v0.5"
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*)")
      if cmdF[c] and user.bOperator then
         local _,_,c,p1,p2,p3=strfind(data, "%b<> (%S*)%s*(%S*)%s*(%S*)%s*(.*)")
         cmdF[c](user,p1,p2,p3)
         return 1
      end
      ------------
      local x = nil
      _,_,data = string.find(string.lower(data), "%b<> (.+)")
      x = tFunctions.executeCrap(user,data)
      if x == 1 then return 1 end
      x= nil
      x = tFunctions.doStuff(user,data)      
      if x == 1 then return 1 end
   end
end
-------------------------
tFunctions = {
   doStuff = function(u,d)
      tFound = nil
      for k,v in tTable do
         if string.sub(k,1,1) =="*" then
            x = string.gsub(k,"*","")
            local m = gsub(d,"(%S+)",
            function (w)
               if w == x then
                  tFound = 1
                  return
               else
                  return w
               end
            end)
         else
            if string.find(d, k) then
               tFound = 1
            end
         end
         if tFound then
            tUsers[u.sName] = os.clock() + (v*60)
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has been put on time-out for "..v.." minutes for saying '"..k.."' ***")
            return 1
         end            
      end
   end,
   -------------------------  
   executeCrap = function(u,d)
      if tUsers[u.sName] then
         if os.clock() < tUsers[u.sName] then
         local t = (tUsers[u.sName] - os.clock()) / 60
            u:SendData( "*** You are on Time-Out! Sit back, relax, and enjoy the show.... (you have "..
               (string.sub(t,1,string.find(t,"%d+(%.)%d*")+1)+1)..
               " minute(s) or less left on timeout.) ***")
            return 1
         else
            tUsers[u.sName] = nil
         end
      end
   end,
   -------------------------
   saveData = function(t,tn,file)
      local data = tFunctions.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(Table, sTableName, sTab)
      sTab = sTab or "";
      sTmp = ""
      sTmp = sTmp..sTab..sTableName.."={"
      local tStart = 0
      for key, value in Table 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..tFunctions.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,
}
----------------------------------------
cmdF = {
   [tUserDefined.clrT] = function(u,p1)
      if p1 ~= "" then
         if tUsers[p1] then
            tUsers[p1] = nil
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has let "..p1.." off of Time-Out. ***")
         else
            u:SendData( "*** TimeOut Bot "..tVer..": The nick '"..p1.."' was not found on the Time-Out list. ***")
         end
      else
         tUsers = nil
         tUsers ={}
         u:SendData( "*** TimeOut Bot "..tVer..": The entire Time-Out list was cleared. ***")
      end    
   end,
-------------------------
   [tUserDefined.aWord] = function(u,p1,p2)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tTable[p1] = p2
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was added with a Time-Out of "..p2.." minutes. ***")
         tFunctions.saveData(tTable, "tTable",tFileName)
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tUserDefined.tHelp.." for help. ***")
      end
   end,
-------------------------    
   [tUserDefined.rWord] = function(u,p1)
      if tTable[p1] then
         tTable[p1] = nil
         u:SendData("*** TimeOut Bot "..tVer..": The word '"..p1.."' was removed from the words list. ***")
         tFunctions.saveData(tTable, "tTable",tFileName)
      else
         u:SendData("*** TimeOut Bot "..tVer..": Error '"..p1.."' not on words list. "..tUserDefined.tView.." to view the words list. ***")
      end
   end,
-------------------------    
   [tUserDefined.tHelp] = function(u)
      u:SendData("*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t\t\t-=Help Menu=-\r\n\r\n"..
         "\t"..tUserDefined.aWord.." \t\t\tAdds a word to the words list. ( = number minutes.)\r\n"..
         "\t"..tUserDefined.rWord.." \t\t\tRemoves a word from the words list.\r\n"..
         "\t"..tUserDefined.tView.."\t\t\t\t\tShows the current words list.\r\n"..
         "\t"..tUserDefined.uTout.." []\tPuts a nick on timeout for . is optional.\r\n"..
         "\t"..tUserDefined.clrT.." []\t\t\t\tClears from the Time-Out list. Clears the whole list if left blank.\r\n"..
         "\t"..tUserDefined.tHelp.."\t\t\t\t\tTHIS.\r\n\r\n")
   end,
-------------------------
   [tUserDefined.tView] = function(u)
      local x = "*** TimeOut Bot "..tVer.." ***\r\n\r\n"..
         "\t\t-=Current Words List=-\r\n"..
         "\t  Word\t\t-\t  Time-Out minutes\r\n"..
         "\t------------------------------------------------------------\r\n"
      for k,v in tTable do
         if string.len(k) >= 7 then
            x = x.."\t"..k.."\t-\t"..v.."\r\n"
         else
            x = x.."\t"..k.."\t\t-\t"..v.."\r\n"
         end
      end
      u:SendData(x)
   end,
-------------------------  
   [tUserDefined.uTout] = function(u,p1,p2,p3)
      p2 = tonumber(p2)
      if p1 ~= "" and type(p2) == "number" then
         tUsers[p1] = os.clock() + (p2*60)
         if p3 == "" then
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes.")
         else
            SendToAll("*** TimeOut Bot "..tVer..": "..u.sName.." has put "..p1.." on Time-Out for "..p2.." minutes for: "..p3.." ***")
         end        
      else
         u:SendData("*** TimeOut Bot "..tVer..": Syntax Error. "..tUserDefined.tHelp.." for help. ***")
      end
   end,
}
-------------------------
local y = tFunctions.VerifyFile(tFileName)
if y ==1 then
   dofile(tFileName)
end

--//TimeOut Bot v0.5, by BottledHate (24/09/04)

-BH

Well ok then hahahaha i will test it out and let you know how it goes :)







AMediaMan

Sweeeeet, Man!  :]

It's great work you've done there BottledHate

hey hey BoJlk, i cant take credit for the script buddy its BottledHate's coding i just requsted the script and helped with some ideals  :]  but thnx.  


BottledHate, i have tested the script and it works just fine. I really like the add and remove words command it rocks lol. Great job and keep up the good work.




AMediaMan

glad to hear all is working well... :D


-BH

HE,HE,...

i mistyped it i meant to say BottledHate :D  :D  :D

but it's all for mutual cause...