Main chat timeout

[BottledHate]

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

[BottledHate]

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

[BoJlk]

Well BottledHate

It Affects Master and OPs... 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. ***

[BottledHate]

Originally 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... )

Originally 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

[Psycho_Chihuahua]

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

[BottledHate]

Originally 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

[BottledHate]

Originally 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

[AMediaMan]

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

[Psycho_Chihuahua]

Originally posted by BottledHate

Originally 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

[BottledHate]

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

[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

[bastya_elvtars]

Originally 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.

[BoJlk]

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

Thanks worked fine...

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

Keep up the good work!

[BottledHate]

Originally 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!  

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

-BH

[AMediaMan]

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

[BottledHate]

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

[AMediaMan]

COOOOOOOOOOOOL  










AMediaMan

[BottledHate]

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)

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

[AMediaMan]

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







AMediaMan

[BoJlk]

Sweeeeet, Man!  :]

It's great work you've done there BottledHate

[AMediaMan]

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

[BottledHate]

glad to hear all is working well...


-BH

[BoJlk]

HE,HE,...

i mistyped it i meant to say BottledHate    

but it's all for mutual cause...