Here's the BNU`Bot 1.x (classic) auto-lockdown strategy:;
Function UserFloods(User)
'This function is called when the bot has ops, BotMode is set, and a user is detected
flooding.
'The function should return the minimum number of miliseconds before UserFloodEnd() is
called.
bot.ShowText "NOTICE: Enabling channel lockdown for thirty minutes due to flood detection
from " & CStr(User)
If (bot.MyClanRank >= 3) Then
bot.SendText "/clan private", True 'this will force instant sending, USE WITH CAUTION
bot.SendText "Enabling lockdown..."
Else
bot.Lockdown = 1
End If
'bot.SendText "/f m Flood detected from " & CStr(User)
Rank = bot.GetRank(CStr(User))
If Rank <= 10 Then 'shitlist anybody who is less than or equal to 10 in rank (anybody who is
a recruit or lower)
bot.ShowText "Shitlisting " & CStr(User)
bot.ParseCommand "FloodProtection@BNUBot", "add", CStr(User) & " -1", True
End If
UserFloods = 1800000 '30 minutes (in miliseconds) before UserFloodEnd is called
End Function
Sub UserFloodEnd()
'Called after the flood is over. See documentation for UserFloods() for details.
' bot.ShowText "NOTICE: Flood timer expired; disabling channel lockdown."
' bot.Lockdown = 0
' bot.SendText "Disabling lockdown..."
' If (bot.MyClanRank >= 3) Then
' bot.SendText "/clan public"
' End If
End Sub
Original issue reported on code.google.com by sco...@gmail.com on 8 May 2008 at 4:17
Original issue reported on code.google.com by
sco...@gmail.com
on 8 May 2008 at 4:17