Ban Script

[Brian]

This little thing will prevent BBB users from entering your hub. I know this isn't much but it works

Code: Select all

Dim sBotName

Sub Main
sBotName = "BanBot"
frmHub.RegisterBotName cStr(sBotName)
End Sub

Sub NewUserConnected(curUser)
If Mid(LCase(curUser.sName),1,5) = "[bbb]" Then
frmHub.lstPermBan.AddItem curUser.IP
colUsers.SendToAll "[The faker" & curUser.sName & " was banned]"
curUser.PrivateMessage "BanBot", "Thanks for coming now stay out scum!"
curUser.Kick
End If
End Sub