Clan TaG

This is a discussion on Clan TaG within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; ClanTag.plug .SaVeCLaN[1][2][3][4][5] <TaG> --> Permission to Clan" .TxTKicK --> Message of the kick" .TaGSaveD --> List the Saved clans" .CLearTaG ...

Results 1 to 3 of 3
  1. #1
    lolercakess's Avatar
    lolercakess is offline Member
    Array
    Join Date
    Jul 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    41

    Clan TaG

    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"

    Code:
    '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

  2. #2
    quantum's Avatar
    quantum is offline Hacker
    Array
    Join Date
    Mar 2007
    Location
    Romania
    Posts
    205
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    186
    hey how do i use this ?
    Vizitati http://bit.ly/eib5NM pentru tutoriale si resurse web in limba romana.
    The sky is blue because God used the wrong damn hex code.

  3. #3
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358
    Quote Originally Posted by lolercakess View Post
    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"
    ;D

Similar Threads

  1. [Completed] Requesting a Clan Banner
    By Just-Poison in forum Request a Designer
    Replies: 12
    Last Post: 06-14-2007, 04:07 AM
  2. Clan Maphack On [MhOn] Needs You
    By Just-Poison in forum Entertainment
    Replies: 13
    Last Post: 05-27-2007, 08:20 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •