lol, oops. I forgot to mention you can't create an array as a constant!
'cb
'0.1
'&Clan ban:Vector
'// Add the clans you want banned here.
Public ClanTags
ClanTags = Array("", "", "", "")
Sub cb_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
userClan = GetInternalDataByUsername(Username, 0)
If userClan = "" Then Exit Sub
If InArray(ClanTags, GetInternalDataByUsername(Username, 0)) Then
Command BotVars.Username, "/shitadd " & Username & " Clan banned", True
End If
End Sub
Function InArray(arr, Item)
For i=0 to Ubound(arr)
If Lcase(arr(i)) = Lcase(Item) Then
InArray = True
Exit Function
End If
Next
'// If this line is reached, the user's clan is not banned.
InArray = False
End Function
That works.