Code:
'================================================
'Erstellt mit [ABP]AVS 1.0.8
'AnGelBot Visual Scripting
'Visit us online @ http://www.AnGelBot-Portal.de/
'================================================
'Programmiert von Sp33d
'================================================
'Um wieviele User soll das Limit erhöht werden?
Const AddUserNum = 5
'Zeit, nach der das Limit verändert wird (Sekunden)
Const UpdateTime = 60
'In welchen Channels soll der Bot das Limit setzen?
Const ActiveChannels = "#channel1 #channel2"
Sub Init()
Script "Anti-Join-Flood 1.0b by Sp33d"
Hook "Join"
Hook "Part"
Hook "Quit"
End Sub
Sub Join(Chan, Nick, RegUser, Flags)
If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub
If IsOp(MyNick, Chan) Then
TimedCommand "EditUserLimit " & Chr(34) & Chan & Chr(34), UpdateTime
End If
End Sub
Sub EditUserLimit(Chan)
SendLine "MODE " & Chan & " +l " & ChanUserCount(ChanNum(Chan)) + AddUserNum, 2
End Sub
Sub Part(Chan, Nick, RegUser, Flags)
If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub
If IsOp(MyNick, Chan) Then
TimedCommand "EditUserLimit " & Chr(34) & Chan & Chr(34), UpdateTime
End If
End Sub
Sub Quit(Chan, Nick, RegUser, Flags, Message)
If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub
If IsOp(MyNick, Chan) Then
TimedCommand "EditUserLimit " & Chr(34) & Chan & Chr(34), UpdateTime
End If
End Sub
Sub Kick(Chan, Nick, User, Flags, KNick, KUser, KFlags, Message)
If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub
If IsOp(MyNick, Chan) Then
TimedCommand "EditUserLimit " & Chr(34) & Chan & Chr(34), UpdateTime
End If
End Sub