PtokaX forum

Can some1 convert those scripts to Lua.5?
i'll really appreciate it:

Bot Manager by Mutor
-- BotMgr 1.01b
-- by Mutor
--
-- Add/Remove botnames to/from user list
-- Option for context menu [you can add more of your own commands]
-- Sends PM to OPs when bot added or removed
-- Allow command by profile
-- !delbot --Remove bot from user list
-- !addbot --Add bot to user list
--
-- Restart scripts will list bot again...
-------------------------------------------------------------------------
aprof = 0 -- Masters are authorized to use these commands
SendMenu = "0" -- Provide context [right click] menu commands, 0 for no
-------------------------------------------------------------------------
Bot = frmHub:GetHubBotName(BotManager)

function NewUserConnected(user)
if SendMenu == "1" then
if user.iProfile == aprof then
customCMDS(user)
user:SendData(" *** Notice :: Right click hub tab or user list for Admin commands. ***")
else
return
end
else
end
end

OpConnected = NewUserConnected

--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu
function customCMDS(user)
--user:SendData("$UserCommand 255 7") --clear the menu first
user:SendData("$UserCommand 1 3 [Admin]\\Remove Bot $<%[mynick]> !delbot %[line:BotNick]||")
user:SendData("$UserCommand 1 3 [Admin]\\Restore Bot $<%[mynick]> !addbot %[line:BotNick]||")
end

function DataArrival(user, data)
if user.iProfile == aprof then
if strsub(data,1,1)=="<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,name = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
if cmd=="!delbot" then
frmHub:UnregBot(name)
SendPmToOps(Bot, user.sName.." has removed the bot [ "..name.." ] from the user list.")
return 1
elseif cmd=="!addbot" then
frmHub:RegBot(name)
SendPmToOps(Bot, user.sName.." has added the bot [ "..name.." ] to the user list.")
return 1
end
end
end
end

TimeOut Bot by BottledHate
--//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)


And the UserCleaner by plop
-- auto/manual registered user cleaner if user hasn't been in the hub for x weeks
-- made by plop
-- julian day function made by the guru tezlo
-- code stripped from artificial insanety bot

-- !noclean add/remove  - adds/removes users from/to the list which aren't cleaned
-- !showusers - shows all registered users
-- !seen - shows the last time the user left the hub
-- !shownoclean - shows all names wich are on the noclean list
-- !cleanusers - manualy start the usercleaner

-- a folder named userinfo is needed for this bot 2 work

--------------------------------------------------------------------- config
WEEKS = 4    -- every1 older then x weeks is deleted
Bot = "User?Cleaner"
AUTO = 0   -- use 1 for automode, 0 for manual
CleanLevels = {[3]=1,[4]=1,[5]=1} -- levels it needs 2 clean

---------------------------------------------------------------------  the needed tables
UsersTable = {}
Seen = {}
NoClean = {}


--------------------------------------------------------------------- julian day function 2 calcute the time users spend in the hub
function jdate(d, m, y)
local a, b, c = 0, 0, 0
if m <= 2 then
y = y - 1
m = m + 12
end
if (y*10000 + m*100 + d) >= 15821015 then
a = floor(y/100)
b = 2 - a + floor(a/4)
end
if y <= 0 then c = 0.75 end
return floor(365.25*y - c) + floor(30.6001*(m+1) + d + 1720994 + b)
end

--------------------------------------------------------------------- loading the last seen database
function LoadLastSeen()
   readfrom("userinfo/lastseen.lst")
   while 1 do
      local line = read()
      if line ==  nil then
         break
      end
      local s,e,name,date = strfind(line, "(.+)$(.+)")
      if name ~= nil then
         Seen[name]=date
      end
   end
   readfrom()
end

--------------------------------------------------------------------- saving last seen date
function SaveSeen()
   writeto("userinfo/lastseen.lst")
   for a,b in Seen do
      Seen[a]=b
      write(a.."$"..b.."\n")
   end
   writeto()
end

--------------------------------------------------------------------- call the garbage man
function Clear()
   collectgarbage()
   flush()
end

--------------------------------------------------------------------- opening the registered users file from ptokax and inserting the users into the table
function OpenRegisterdUsersFile()
   readfrom("../RegisteredUsers.dat")
   UsersTable = nil
   Clear()
   UsersTable = {}
   while 1 do
      local line = read()
      local name, level
      if line == nil then
         readfrom()
         break
      end
      s,e,name,level = strfind(line,"(.+)|.+|(.+)")
      if CleanLevels[tonumber(level)] then
         UsersTable[name] = 1
      end
   end  
end

--------------------------------------------------------------------- extracting the time/date when a user was last seen from the database
function SeenUser(user, data)
   s,e,who = strfind(data, "%b<>%s%S+%s(.+)")
   if who == nil then
      user:SendPM(Bot, "Syntax error, can't read your mind, pls tell me wich user you wanne check|")
   elseif Seen[who] then
      user:SendPM(Bot, who.." was last seen on: "..Seen[who].."|")
   else
      user:SendPM(Bot, who.." is a unknown user|")
   end
end

--------------------------------------------------------------------- shows all the nicks of all registered users
function NewShowUsers(user)
   local lines = {}
   local info = "\r\n\r\n"
   info = info.."  Here are the registered users\r\n"
   info = info.."=====================================\r\n"
   for a,b in UsersTable do
      tinsert(lines, a)
   end
   sort(lines)
   for i=1,getn(lines) do
      info = info.."  "..lines[i].."\r\n"
   end
   info = info.."=====================================\r\n"
   user:SendPM(Bot, info.." |")
   Clear()
end

--------------------------------------------------------------------- shows all the nicks on the no clean list
function ShowNoClean(user)
   local lines =  {}
   local info = "\r\n\r\n"
   info = info.." Here are the users who aren't cleaned\r\n"
   info = info.."=====================================\r\n"
   for a,b in NoClean do
      tinsert(lines, a)
   end
   sort(lines)
   for i=1,getn(lines) do
      info = info.."  "..lines[i].."\r\n"
   end
   info = info.."=====================================\r\n"
   user:SendPM(Bot, info.." |")
   Clear()
end

--------------------------------------------------------------------- cleanup old users
function CleanUsers()
   SendToAll(Bot, "The cleaner Started. Every registered user who hasn't been in the hub for "..WEEKS.." weeks will be deleted...|")
   OpenRegisterdUsersFile()
   local s,e,month,day,year = strfind(date("%x"), "(%d+)%/(%d+)%/(%d+)")
   year = "20"..year
   local juliannow = jdate(tonumber(day), tonumber(month), tonumber(year))
   local oldest = WEEKS*7
   local Count2,Count = 0,0
   for a,b in UsersTable do
      Count = Count+1
      if Seen[a] then
         if NoClean[a]== nil then
            local s,e,monthu,dayu,yearu = strfind(Seen[a], "(%d+)%/(%d+)%/(%d+)")
            yearu = "20"..yearu
            local julianu = jdate(tonumber(dayu), tonumber(monthu), tonumber(yearu))
            if (juliannow - julianu) > oldest then
               Count2 = Count2 +1
               Seen[a] = nil
               DelRegUser(a)
            end
         end
      else
         Seen[a] = date("%x")
      end
   end
   if Count ~= 0 then
      SendToAll(Bot, Count.." users were processed, "..Count2.." of them were deleted.|")
   end
   SaveSeen()
   OpenRegisterdUsersFile()
end

--------------------------------------------------------------------- don't clean this users adding/removing
function NoCleanUser(user, data)
   local s,e,who, addrem = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)%s*")
   if (who or addrem) == nil then
      user:SendData(Bot, "RTFM ;). it's !noclean |")
   elseif UsersTable[who] then
      if addrem == "add" then
         if NoClean[who] then
            user:SendData(Bot, who.." is allready on the imune list.|")
         else
            NoClean[who] = 1
            user:SendData(Bot, who.." is added to the imune list and won't be cleaned.|")
            SaveNoClean()
         end
      elseif addrem == "remove" then
         if NoClean[who] then
            NoClean[who] = nil
            user:SendData(Bot, who.." is removed from the imune list.|")
            SaveNoClean()
         else
            user:SendData(Bot, who.." was not on the imune list.|")
         end
      else
         user:SendData(Bot, "RTFM ;). it's !noclean |")
      end
   else
      user:SendData(Bot, who.." isn't a registered user.|")
   end
end

--------------------------------------------------------------------- save no clean users 2 file
function SaveNoClean()
   writeto("userinfo/noclean.lst")
   for a,b in NoClean do
      write(a.."\n")
   end
   writeto()
end

--------------------------------------------------------------------- load no clean users from file
function LoadNoClean()
   readfrom("userinfo/noclean.lst")
   while 1 do
      local line = read()
      if line == nil then
         readfrom()
         break
      end
      NoClean[line] = 1
   end
end

--------------------------------------------------------------------- do i need 2 explain this ?????
function DataArrival(user, data)
   if AUTO == 1 then
      if CleanDay ~= date("%x") then -- user cleaning trigger, works as a timer without a timer
         CleanDay = date("%x")
         CleanUsers()
      end
   end
   if( strsub(data, 1, 1) == "<" ) then
      if user.bOperator then
         data=strsub(data,1,strlen(data)-1)
         s,e,cmd = strfind(data,"%b<>%s+(%S+)")
         if cmd == "!noclean" then
            NoCleanUser(user, data)
            return 1
         elseif cmd == "!showusers" then
            NewShowUsers(user)
            return 1
         elseif cmd == "!shownoclean" then
            ShowNoClean(user)
            return 1
         elseif cmd == "!seen" then
            SeenUser(user, data)
            return 1
         elseif cmd =="!cleanusers" then
            CleanUsers()
            return 1
         end
      end
   end
end

--------------------------------------------------------------------- stuff done when a user/vip leaves
function UserDisconnected(user)
if UsersTable[user.sName] then
      Seen[user.sName]=date("%x")
      SaveSeen()
   end
end

--------------------------------------------------------------------- do the same stuff for op's if needed
function OpDisconnected(user)
if UsersTable[user.sName] then
      Seen[user.sName]=date("%x")
      SaveSeen()
   end
end

--------------------------------------------------------------------- stuff done on bot startup
function Main()
   OpenRegisterdUsersFile()
   LoadNoClean()
   LoadLastSeen()
   CleanDay = date("%x")
end

[size=10]I apologise it came out in three POSTs i wanted to keep it organized[/size]

bit big writing that innit ?
search the forum both me and someone else have already converted the plop's usercleaner. :)

ok...will do
*edit
no search results  ?(

Try this:

-- BotMgr 1.01b
-- by Mutor
-- converted to LUA 5 by jiten
--
-- Add/Remove botnames to/from user list
-- Option for context menu [you can add more of your own commands]
-- Sends PM to OPs when bot added or removed
-- Allow command by profile
-- !delbot --Remove bot from user list
-- !addbot --Add bot to user list
--
-- Restart scripts will list bot again...
-------------------------------------------------------------------------
aprof = 0 -- Masters are authorized to use these commands
SendMenu = "0" -- Provide context [right click] menu commands, 0 for no
-------------------------------------------------------------------------
Bot = frmHub:GetHubBotName(BotManager)

function NewUserConnected(user)
if SendMenu == "1" then
if user.iProfile == aprof then
customCMDS(user)
user:SendData(" *** Notice :: Right click hub tab or user list for Admin commands. ***")
else
return
end
else
end
end

OpConnected = NewUserConnected

--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu
function customCMDS(user)
--user:SendData("$UserCommand 255 7") --clear the menu first
user:SendData("$UserCommand 1 3 [Admin]\\Remove Bot $<%[mynick]> !delbot %[line:BotNick]||")
user:SendData("$UserCommand 1 3 [Admin]\\Restore Bot $<%[mynick]> !addbot %[line:BotNick]||")
end

function ChatArrival(user, data)
if user.iProfile == aprof then
if string.sub(data,1,1)=="<" then
data=string.sub(data,1,string.len(data)-1)
s,e,cmd,name = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
if cmd=="!delbot" then
frmHub:UnregBot(name)
SendPmToOps(Bot, user.sName.." has removed the bot [ "..name.." ] from the user list.")
return 1
elseif cmd=="!addbot" then
frmHub:RegBot(name)
SendPmToOps(Bot, user.sName.." has added the bot [ "..name.." ] to the user list.")
return 1
end
end
end
end


For the usercleaner, try these links:

Link 1 (http://board.univ-angers.fr/thread.php?threadid=3805&boardid=26&sid=818cfb8294cc991958750ad30af5748a)

Link 2 (http://board.univ-angers.fr/thread.php?threadid=3818&boardid=26&sid=818cfb8294cc991958750ad30af5748a)

Best regards,

jiten