slot chack

[D-J Valhala]

can someone please post me a litel BoT only for chack the hub slots? and all can use that not ONLE REG ViP's...
10x :D

[nErBoS]

Hi,

Please use search before posting...

Try here..

http://board.univ-angers.fr/thread.php?threadid=172&boardid=11&sid=cf331b82680f0e1a0a2c5e1f45c74b86

Best regards, nErBoS

[D-J Valhala]

hmmmmm that's not a slotbot m8...
and did you finish my req :D?

[NightLitch]

something like this:

-- Simple Slot check by NightLitch

-- Set minslots
MinSlot = 3

------------------------------------------------------
function DataArrival(curUser, data)
	if (strsub(data,1,7) == "$MyINFO") and not curUser.bOperator then
		Cslot(curUser,data)
	end
end

function Cslot(curUser,data)
	local _,_,slot = strfind(data, "S:(%d+)")
	if slot==nil then
		curUser:SendData("SlotChecker", "You are hiding your tag for checking your slots!")
		curUser:Disconnect()
	elseif tonumber(slot) < tonumber(MinSlot) then
		curUser:SendData("SlotChecker", "You have only ( "..slot.." ) slot(s) opened, plz open ( "..MinSlot.." ) slot(s)")
		curUser:Disconnect()
	end
end
--NightLitch

/NL

[D-J Valhala]

sorry m8 stupid me i need +slots for all users :D that show the free slots of the hub :D
there is +slots on robo but it's only for reg...

[NightLitch]

Originally posted by D-J Valhala
sorry m8 stupid me i need +slots for all users :D that show the free slots of the hub :D
there is +slots on robo but it's only for reg...

gaaa :-p lol

but your message to nErBoS... hehe

ok.. I give up for tonight, read really wrong I notice now.

goodnight. hehe

[nErBoS]

Hi,

D-J Valhala...

Your request wasn?t for a Bot to check the free slots in the Hub made by a command to all use ??

Best regards, nErBoS

[D-J Valhala]

yep the command is +slot :)
10x :D

[plop]

Originally posted by D-J Valhala
yep the command is +slot :)
10x :D

there is a standalone version of the script you are searching for posted here on the board.
it's made by rabidwombat/bolamix/opiumvolage, and specialy for testdrive.

plop

[DEEP-GOA]

dj valium need a +brain "chak"

pestering a lot of hubs & ppl with some strange attitudes. i can only say the antiflood works fine..

sad story.. the forum have a lot of good threads and helpfull scripts.. only hold on 5 min.. read.. and work with copy & paste, that`s it.

open ur eyes and don`t touch lsd lol

[D-J Valhala]

WTF?

[lynyrd]

what could i say...it's sad that you guys can't tag along.
but dont mess the threads up with that bull..
it kind off takes the edge off the spirit that should rule in this forum and in the hubs..try to add some energy in learning,helping out and have a good time instead.

keep a stiff upper lip

[UwV]

Originally posted by D-J Valhala
WTF?

 ... !read and thou shall find

    ... that the F.   ... over 200 posts on this board by this walla  ... and  there is 150 (aprox.) about misunderstanding what you want/ how you want it, if not you ask for something that is here already ..
man you're about to become  a spammer on this board too if ask me  ;) ..


ps .. if he really didn't touch it ... i guess i had his too .. ;0P

[D-J Valhala]

you know what????
YOU CAN KISS YOU CRAPWORK AND SAY BYE BYE
the network ic going down !!!!!!

[D-J Valhala]

anybody? simple bot to chack the users slot +slot and every user can user it :)

[Corayzon]

Well...this is quiet complexe for someone like u...

what u need to do when the command is called is send a searchstring to the entire hub...

next is to save to search returns $SR into a table to be shown when the search times out...

and then finally showing the table on time out

--// Slot Return Table
tabSlots = {n=0}
tmrSlots = 8

function slotsCommand(user, data, cmd)

   if cmd == cmdslots then
      getslots(user, data)
      return
   end

   -- Slots Return
   ------------------------------------------
   if (strsub(data, 1, 3) == "$SR") then
      doslotts(user,data)
   end
end

--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
--// Slot functions
--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function getslots(user,data)
   s,e,cmd,nr = strfind(data,"%b<>%s+(%S+)%s*(.*)")
   user:SendPM(sBot, "\tF i n d i n g   F r e e   S l o t s")
   user:SendPM(sBot, " ")
   tinsert(tabSlots, { sName = user.sName, iClock = clock(), tItems = {} })
   SendToAll("$Search Hub:"..sBot.." T?F?0?1?.|")
end

function doslotts(user,data)
   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
      if (nr == "" and free ~= "0") then
         table.tItems[user.sName] = free.."/"..all
         SendPmToNick(table.sName,sBot,date("\t\t"..free.."/"..all.."\t"..user.sName))
      elseif (nr ~= "" and tonumber(all) >= tonumber(nr)) then
         table.tItems[user.sName] = free.."/"..all
         SendPmToNick(table.sName,sBot,date("\t\t"..all.."\t"..user.sName))
      end
   end
   if clock() >= table.iClock + tmrSlots then
      if getn(table.tItems) == 0 then
         if nr == "" then
            SendPmToNick(table.sName,sBot.."1")
         end
      end
      SendPmToNick(table.sName,sBot, "\t\tComplete") tremove(tabSlots, i)
   else i = i + 1
   end
end
end


this example is cSlaves bot check

hope this helps