Clan TaG

[lolercakess]

ClanTag.plug

.SaVeCLaN[1][2][3][4][5] <TaG> --> Permission to Clan"
.TxTKicK --> Message of the kick"
.TaGSaveD --> List the Saved clans"
.CLearTaG --> Clear the TaGS, Desactivate The TaGCLaN"

'ct
'1.0
'Clan Tag
'---- By DrOiD3 ** PluGinG ***
dim txtclan1
dim txtclan2
dim txtclan3
dim txtclan4
dim txtclan5
txtclan1= "-"
txtclan2= "-"
txtclan3= "-"
txtclan4= "-"
txtclan5= "-"
dim txtkick

Sub ct_event_UserTalk(Username, Flags, Message, Ping)

Call ssc.GetDBEntry(username, Access, Flags)
if Access < 70 then exit sub
Message = lcase(Message)
If LCase(Left(Message, 11)) = BotVars.Trigger & "saveclan1 " Then
 txtClan1 = mid(Message,12)
 Addq "/emote **** [ " & ucase(txtclan1) & " ] Can enter the channel [ " & myChannel & " ] ****"
end if
If LCase(Left(Message, 11)) = BotVars.Trigger & "saveclan2 " Then
 txtClan2 = mid(Message,12)
 Addq "/emote **** [ " & ucase(txtclan2) & " ] Can enter the channel [ " & myChannel & " ] ****"
end if
If LCase(Left(Message, 11)) = BotVars.Trigger & "saveclan3 " Then
 txtClan3 = mid(Message,12)
 Addq "/emote **** [ " & ucase(txtclan3) & " ] Can enter the channel [ " & myChannel & " ] ****"
end if
If LCase(Left(Message, 11)) = BotVars.Trigger & "saveclan4 " Then
 txtClan4 = mid(Message,12)
 Addq "/emote **** [ " & ucase(txtclan4) & " ] Can enter the channel [ " & myChannel & " ] ****"
end if
If LCase(Left(Message, 11)) = BotVars.Trigger & "saveclan5 " Then
 txtClan5 = mid(Message,12)
 Addq "/emote **** [ " & ucase(txtclan5) & " ] Can enter the channel [ " & myChannel & " ] ****"
end if
If LCase(Left(Message, 9)) = BotVars.Trigger & "tagsaved" Then
 Addq "/emote * [TaGs] (1): " & txtclan1 & " , (2): " & txtclan2 & " , (3): " & txtclan3 & " , (4): " & txtclan4 & " , (5): " & txtclan5
end if
If LCase(Left(Message, 9)) = BotVars.Trigger & "txtkick " Then
 txtkick = mid(message,10)
 Addq "/emote **** Text to kick Added: " & txtkick & " ****"
end if
If LCase(Left(Message, 9)) = BotVars.Trigger & "cleartag" Then
 txtclan1 = "-"
 txtclan2 = "-"
 txtclan3 = "-"
 txtclan4 = "-"  
 txtclan5 = "-"
 Addq "/emote **** Clan Tags Cleared ****" 
end if
If LCase(Left(Message, 8)) = BotVars.Trigger & "taghelp" Then
 username = username & " "
 addq "/emote .... Wispering TaGCLaN Commands to " & username & " ....."
 addq "/w " & username & BotVars.Trigger & "SaVeCLaN[1][2][3][4][5] <TaG> --> Permission to Clan"
 addq "/w " & username & BotVars.Trigger & "TxTKicK --> Message of the kick"
 addq "/w " & username & BotVars.Trigger & "TaGSaveD --> List the Saved clans"
 addq "/w " & username & BotVars.Trigger & "CLearTaG --> Clear the TaGS, Desactivate The TaGCLaN"
 addq "/w " & username & BotVars.Trigger & "TaGHELP --> This HeLP Menu"
 addq "/w " & username & " *** -------  END  ---------   [ By DrOiD3 ] ***"
end if

end sub

Sub ct_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
 tag = LCase(GetInternalDataByUsername(Username, 0)) 
 'addchat vbyellow, "[" & tag & "] " & username & " Join the channel "
 if txtclan1 = "-" then exit sub
 if tag = lcase(txtclan1) then exit sub 
 if tag = lcase(txtclan2) then exit sub 
 if tag = lcase(txtclan3) then exit sub 
 if tag = lcase(txtclan4) then exit sub 
 if tag = lcase(txtclan5) then exit sub
 Addq "/kick " & username & " " & txtkick
 addchat vbred, "***  [" & tag & "] " & username & " was kicked the channel 'Tag Kicked' "
end sub

[quantum]

hey how do i use this ?

[X-FreeLoOsE-X]

Originally Posted by lolercakess

ClanTag.plug

.SaVeCLaN[1][2][3][4][5] <TaG> --> Permission to Clan"
.TxTKicK --> Message of the kick"
.TaGSaveD --> List the Saved clans"
.CLearTaG --> Clear the TaGS, Desactivate The TaGCLaN"