Author Topic: free slots. Only function script  (Read 2280 times)

0 Members and 1 Guest are viewing this topic.

Offline ?[-?Genius?-]?

  • Double Ace
  • *
  • Posts: 118
  • Karma: +3/-1
free slots. Only function script
« on: 23 February, 2009, 01:47:54 »
Code: [Select]
--=[ Nome do Bot ]=-
botName = "??ec?rit?-??t?"
sOpChatName = "???Ch?t?"
  --=[ Comando ]=-
Command = "!slots"
--=[ Codigo ]=--
function getid(Table, name)
return table.foreachi(Table, function(id, item) if item.sName == name then return id end end)
end

function putitem(Table, item)
if not item then
return
end
local id = getid(Table, item.sName)
if id then
Table[id] = item
else
table.insert(Table, item)
id = Table.n
end
return id
end

function OnTimer()
local i = 1 while tabSlots[i] do
local Table = tabSlots[i]
if os.clock() >= Table.iClock + tmrSlots then
if Table.tItems.n == 0 then
SendPmToNick(Table.sName, botName, " ? N?o a users com slots livres no hub ? |")
end
SendPmToNick(Table.sName, botName, " ? Feito ?|")
table.remove(tabSlots, i)
if tabSlots.n == 0 then
end
else i = i + 1
end
end
end

function doSlots(user, nr, nick)
user:SendPM(botName, " ? A procurar... ? |")
SendToAll(botName, " -=[ A enviar informa??o do comando !slots a um Utilizador ]=- ")
SendPmToOps(sOpChatName, " -=[ A enviar informa??o do comando !slots ao Utilizador  "..user.sName.." ]=- ")
SendToAll("$Search Hub:"..Command.." T?F?0?1?.|")
putitem(tabSlots, { sName = user.sName, iClock = os.clock(), iNR = nr, tItems = {n=0} })
end
 
tmrSlots = 5

tabSlots = {n=0}

function ChatArrival(user, data)
if string.find(data, "%b<>%s+("..Command..").*|") then
s, e, nr = string.find(data, "%b<>%s+"..Command.."%s+([0-9]+)")
if s then
nr = tonumber(nr)
else
nr = 1
end
doSlots(user, nr)
return 1
end
end

function SRArrival(user, data)
local s, e, free, all = string.find(data, " (%d+)/(%d+)"..string.char(5))
table.foreachi(tabSlots, function(id, item)
if not getid(item.tItems, user.sName) then
putitem(item.tItems, { sName = user.sName, sValue = free.."/"..all })
if (tonumber(free) >= item.iNR) then
SendPmToNick(item.sName, botName, " ? User ? ? "..user.sName.." ? ? "..free.."/"..all.." ?|")
end
end end)
end

function Main()
frmHub:RegBot(botName)
SetTimer(tmrSlots*1000)
StartTimer()
end


Hi. its possible convert this script for ptokax 4.1.1?

PtokaX forum

free slots. Only function script
« on: 23 February, 2009, 01:47:54 »

Offline ?[-?Genius?-]?

  • Double Ace
  • *
  • Posts: 118
  • Karma: +3/-1
Re: free slots. Only function script
« Reply #1 on: 23 February, 2009, 02:42:15 »
Just for try my old script  ::)

Offline ?[-?Genius?-]?

  • Double Ace
  • *
  • Posts: 118
  • Karma: +3/-1
Re: free slots. Only function script
« Reply #2 on: 23 February, 2009, 06:19:46 »
Ok m8. i understand.

Sory about script credits :(

PtokaX forum

Re: free slots. Only function script
« Reply #2 on: 23 February, 2009, 06:19:46 »