Slot Finder

[BrokenBrick]

This is not my own, and I can't remember who wrote it, but here goes
________________________________________

BotName = "Slotter"

tabSlots = {n=0}
tmrSlots = 4

function DataArrival(user, data)
if( strsub(data, 1, 1) == "<" ) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if (cmd == "!slots") then
s,e,cmd,nr = strfind(data,"%b<>%s+(%S+)%s*(.*)")
user:SendPM(BotName, "***** Checking ***** (Active Users Only)")

-- new user to keep track of, also save the time we started
tinsert(tabSlots, { sName = user.sName, iClock = clock(), tItems = {} })
SendToAll("$Search Hub:"..BotName.." T?F?0?1?.|")
return 1
end
end

if (strsub(data, 1, 3) == "$SR") then -- incoming search results.. lets extract info about free slots
local s, e, free, all = strfind(data, " (%d+)/(%d+)"..strchar(5))
local i = 1 while tabSlots do
local table = tabSlots
if not table.tItems[user.sName] then -- first results from user.sName
table.tItems[user.sName] = free.."/"..all
if (nr == "" and free ~= "0") then SendPmToNick(table.sName, BotName, ""..user.sName.." has "..free.." slots of "..all)
elseif (nr ~= "" and all >= nr) then SendToNick(table.sName, " user ~ "..user.sName.." ~ "..all)
end
end

if clock() >= table.iClock + tmrSlots then -- listing timeout
if getn(table.tItems) == 0 then SendPmToNick(table.sName, BotName, "List Complete")
elseif getn(table.tItems) >= nr then SendToNick(table.sName, " No users with that kind of slots found", pm)
end
SendPmToNick(table.sName, BotName, "End") tremove(tabSlots, i)
else i = i + 1 end
end
end
end

[sladdi]

and how does this work? i mean how do i look for free slots?

[[T-G-T]M@sto]

Originally posted by sladdi
and how does this work? i mean how do i look for free slots?

if (cmd == "!slots") then

[sladdi]

thank you..

[[G-T-E]Gate?]

JO BrokenBrick.
 About ur Slot Finder script.
Ran the script and only get this reply and I know that many users have open slots. Any suggetsions.>>
Private message from ?SlotSearch?: ***** Checking ***** (Active Users Only)

THanks..

[tezlo]

yeh.. get this one

[[G-T-E]Gate?]

Thanks , Just ran it but get the folowing , >>
Syntax Error: attempt to call field `EnableSearchData' (a nil value)

[tezlo]

upgrade to testdrive
or find the line where it says
 frmHub:EnableSearchData(1)
and comment it out..
 --frmHub:EnableSearchData(1)

[[G-T-E]Gate?]

Great again Thanks loads..

[Gnuff?]

This one works with (+slots), but stille only on active users, but shows all free slots



-- SlotsBot for PtokaX DC Hub 0.3.2.6 Test Drive 4

-- On command +slots, sends a search and checks the results for free slots & total number of slots

-- Sends the results in PM from Hub bot

-- Adaptation by OpiumVolage (01 July 2003) based on

-- retrobot? v0.99?

-- slots module

-- by tezlo

-- 2003

-- Twiddled a bit to have results sent in PM - by bolamix 1 July 2003



-- unused sTarget left for future syntax parsing.



botName = "[SlotsCounter]"



-- library



function getid(table, name)

return 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 tinsert(table, item) id = table.n

end return id

end





-- events



function OnTimer()

local i = 1 while tabSlots do

local table = tabSlots

if clock() >= table.iClock + tmrSlots then

if table.tItems.n == 0 then SendPmToNick(table.sName, botName, "No users with free slots found|") end

SendPmToNick(table.sName, botName, "Done|")

tremove(tabSlots, i)

if tabSlots.n == 0 then frmHub:EnableSearchData(0) end

else i = i + 1 end

end

end



function slotsOnHub(user, args)

local s, e, free, all = strfind(args, " (%d+)/(%d+)"..strchar(5))

foreachi(tabSlots, function(id, item)

if not getid(item.tItems, %user.sName) then

putitem(item.tItems, { sName = %user.sName, sValue = %free.."/"..%all })

-- if item.sTarget and (%user.sName == item.sTarget) then

-- SendToNick(item.sName, " user "..%user.sName.." "..%free.."/"..%all.."|")

-- item.iClock = item.iClock - tmrSlots

-- elseif not item.sTarget and

if (tonumber(%free) >= item.iNR) then

SendPmToNick(item.sName, botName, " user "..%user.sName.." "..%free.."/"..%all.."|")

end

end end)

end



function doSlots(user, nr, nick)

user:SendPM(botName, "Checking..|")

frmHub:EnableSearchData(1)

SendToAll("$Search Hub:"..Command.." T?F?0?1?.|")

putitem(tabSlots, { sName = user.sName, iClock = clock(), iNR = nr, tItems = {n=0} })

-- putitem(tabSlots, { sName = user.sName, sTarget = nick, iClock = clock(), iNR = nr, tItems = {n=0} })

end





-- init



tmrSlots = 5 -- Number of seconds waiting for replys

tabSlots = {n=0}

Command = "+slots"



function DataArrival(user, data)

if strfind(data, "%b<>%s+("..Command..").*|") then

s, e, nr = strfind(data, "%b<>%s+"..Command.."%s+([0-9]+)")

if s then nr = tonumber(nr) else nr = 1 end

doSlots(user, nr) return 1

end

if strfind(data, "^%$SR") then slotsOnHub(user, data) end

end



function Main()

SetTimer(tmrSlots*1000)

StartTimer()

end