Hey i'm fairly new to this... Ok
I got my bot bannin flood bots when they join but if I get a big spam like 10 rejoins it floods itself out from so many bans... How do I fix this remember I'm using CleanSlateBot.

- TriCk

Queue the messages, and send them using some sort of anti-flood scheme.

This is what got most of the old-school newb chatbot developers stuck. You'll actually have to figure something out. It'll be really hard if you've been having CSB do your bitchwork for you, since oldschool chatbot developers did a lot of stuff for themselves. Good luck to you.

SUGGESTION: Collection.

I used a listbox, back in the day~

Ok... Well the thing i've done is when chkAutoBan is vbChecked
In the CleanSlateBot_UserJoins
Ive added the code CleanSlateBot1.Send "/ban " & username & "AutoBan"
Is there a way to make sure it doesnt flood out from sending bans though ???
Like a WAIT somehow ?

- TriCk

Maybe you should read the replies to your own post? Do exactly what Tuberload said.

[quote author=TriCk link=board=17;threadid=1399;start=0#msg10472 date=1053668057]
Ok... Well the thing i've done is when chkAutoBan is vbChecked
In the CleanSlateBot_UserJoins
Ive added the code CleanSlateBot1.Send "/ban " & username & "AutoBan"
Is there a way to make sure it doesnt flood out from sending bans though ???
Like a WAIT somehow ?

- TriCk
[/quote]Yes. Queue the event if you've sent something recently. I believe Tuberload mentioned this earlier.

[quote author=TriCk link=board=17;threadid=1399;start=0#msg10472 date=1053668057]Like a WAIT somehow ?[/quote]The code to WAIT for someone who doesn't know how to do something by themselves:[code]Sub Wait(Time As Integer)
Dim Start As Integer
'Time is the number of seconds you wish to wait for
Start = GetTickCount() 'You'll likely need to declare GetTickCount(), I don't know the correct declare for it though.
Do Until (GetTickCount()-Start) >= Time*60
Loop
End Sub[/code]

[quote author=tA-Kane link=board=17;threadid=1399;start=0#msg10476 date=1053669038]
[quote author=TriCk link=board=17;threadid=1399;start=0#msg10472 date=1053668057]Like a WAIT somehow ?[/quote]The code to WAIT for someone who doesn't know how to do something by themselves:[code]Sub Wait(Time As Integer)
Dim Start As Integer
'Time is the number of seconds you wish to wait for
Start = GetTickCount() 'You'll likely need to declare GetTickCount(), I don't know the correct declare for it though.
Do Until (GetTickCount()-Start) >= Time*60
Loop
End Sub[/code][/quote]If you're going to do a blocking wait, wouldn't it be better to Sleep() through that time, rather than spinning the CPU checking if you've slept long enough? :p Under Win32, Sleep takes an argument in milliseconds and should not return until at least that much time has passed. Note that I say "at least" -- it is possible for the OS to sleep *longer* than you asked. However, this is rarely a problem. Sleeping instead of polling ought to free up your CPU, too.

[quote author=Kp link=board=17;threadid=1399;start=0#msg10497 date=1053704825]If you're going to do a blocking wait, wouldn't it be better to Sleep() through that time, rather than spinning the CPU checking if you've slept long enough?[/quote]

[quote author=tA-Kane link=board=17;threadid=1399;start=0#msg10476 date=1053669038]The code to WAIT for someone who doesn't know how to do something by themselves:[/quote]