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