PtokaX forum

Can Someone quick-fix this to work in TestDrive4?




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

i have a slot finder just getting it to look normal
-- 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 = "<<>>"



-- 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..got a light m8|")

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

theyre both weird rewrites of sthg very old..
botName = "slotbot"

tabSlots = {n=0}
tmrSlots = 4

function Main()
frmHub:RegBot(botName)
frmHub:EnableSearchData(1)
end

function DataArrival(user, data)
if strsub(data, 1, 1) == "<" then
local s, e, cmd = strfind(data,"^%b<> %!(%a+)")
if cmd == "slots" then
user:SendPM(botName, "checking..")
tinsert(tabSlots, { user.sName, clock(), {} })
SendToAll("$Search Hub:"..botName.." T?F?0?1?.|")
return 1
end
elseif strsub(data, 1, 3) == "$SR" then
local s, e, free, all = strfind(data, " (%d+)/(%d+)"..strchar(5))
local i = 1
while tabSlots[i] do
local table = tabSlots[i]
if not table[3][user.sName] then
table[3][user.sName] = free.."/"..all
if free ~= "0" then SendPmToNick(table[1], botName, "\t"..user.sName.."\t"..free.."/"..all) end
end

if clock() >= table[2] + tmrSlots then
if getn(table[3]) == 0 then SendPmToNick(table[1], "no users with free slots") end
tremove(tabSlots, i)
else i = i + 1
end
end
end
end