Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: D-J Valhala on 16 March, 2004, 14:36:46

Title: slot chack
Post by: D-J Valhala on 16 March, 2004, 14:36:46
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
Title:
Post by: nErBoS on 16 March, 2004, 17:23:17
Hi,

Please use search before posting...

Try here..

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

Best regards, nErBoS
Title:
Post by: D-J Valhala on 16 March, 2004, 22:50:28
hmmmmm that's not a slotbot m8...
and did you finish my req :D?
Title:
Post by: NightLitch on 16 March, 2004, 23:31:38
something like this:

Code Select
-- 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
Title: LoooooooooooL
Post by: D-J Valhala on 16 March, 2004, 23:56:04
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...
Title:
Post by: NightLitch on 16 March, 2004, 23:57:32
QuoteOriginally 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
Title:
Post by: nErBoS on 17 March, 2004, 01:34:36
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
Title:
Post by: D-J Valhala on 18 March, 2004, 11:43:50
yep the command is +slot :)
10x :D
Title:
Post by: plop on 19 March, 2004, 19:18:44
QuoteOriginally 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
Title:
Post by: DEEP-GOA on 19 March, 2004, 19:38:46
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
Title:
Post by: D-J Valhala on 19 March, 2004, 23:00:02
WTF?
Title:
Post by: lynyrd on 20 March, 2004, 00:13:14
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
Title:
Post by: UwV on 20 March, 2004, 11:12:55
QuoteOriginally 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
Title:
Post by: D-J Valhala on 20 March, 2004, 13:24:17
you know what????
YOU CAN KISS YOU CRAPWORK AND SAY BYE BYE
the network ic going down !!!!!!
Title:
Post by: D-J Valhala on 22 March, 2004, 21:00:50
anybody? simple bot to chack the users slot +slot and every user can user it :)
Title:
Post by: Corayzon on 23 March, 2004, 02:50:43
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
Text only | Text with Images