'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
[10:48:25 PM] UserJoins Call Error On File> C:\Program Files\Stealth Bot 4\plugins\Cb.txt
[10:48:25 PM] Error Number: 13 Description: Type mismatch
Would this shit list them?
'cb
'0.1
'&Clan ban:Vector
'// Add the clans you want banned here.
Const ClanTags = Array("", "", "", "")
Sub cb_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
If InArray(ClanTags, GetInternalDataByUsername(Username, 0)) Then
AddQ "-shitadd " & Username & " Clan banned"
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
'cb
'0.1
'&Clan ban:Vector
'// Add the clans you want banned here.
Const ClanTags = Array("", "", "", "")
Sub cb_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
If InArray(ClanTags, GetInternalDataByUsername(Username, 0)) Then
AddQ "/ban " & Username & " Clan banned"
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
This post has been edited by de80: Today, 07:08 PMmeans nothing. Anyways, good job De80.
'Hi
'.01
'& By de80
Sub Hi_Event_UserTalk(Username, Flags, Message, Ping)
If InStr(Lcase(Message), "hi") Then
AddQ "hi u"
End If
End Sub
[code]AddQ & Username & " Hi "
/code]
AddQ & Username & " Hi "
'Hi
'.01
'& By de80
Sub Hi_UserTalk(Username, Flags, Message, Ping)
AddQ & Username & " Hi "
If InStr(Lcase(Message), "hi") Then
AddQ "hi u"
End If
End Sub