Auto Clan invite Working Fine - by T[x]aS

This is a discussion on Auto Clan invite Working Fine - by T[x]aS within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Code: 'joinc '2.0 'By DrOiD @ T[X]AS '///// CONDITIONS /////////// 'My Realm Private const MyRealm= "Northrend" 'My CLan Private const ...

Page 1 of 2 12 LastLast
Results 1 to 10 of 14
  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

    Auto Clan invite Working Fine - by T[x]aS

    Code:
    'joinc
    '2.0
    'By DrOiD @ T[X]AS
    '///// CONDITIONS ///////////
    'My Realm
    Private const MyRealm= "Northrend"
    'My CLan
    Private const MyClan = "eZG"
    'Conditions
    Private const MinWinS1 = 25
    private const MinPercent1 = 45
    Private const MinWinS2 = 750
    private const MinPercent2 = 43
    Private const MinWinS3 = 1500
    private const MinPercent3 = 40
    'Game Type
    private const GameTyPe = "TFT"
    'Min Level
    Private const MinLevel =0
     
    '>>>>>>> Sub Events <<<<<<<<<<
    Sub joinc_event_UserTalk(Username, Flags, Message, Ping)
    
    If lcase(message) = botvars.trigger & "join" then
    addq "/emote ** Wait... Analizing Acc... [ " & username & " ] **"
    tag = LCase(GetInternalDataByUsername(Username, 0))
    if ucase(tag) = ucase(MyClan) then
    Addq "/emote >.< YOU ARE IN CLAN " & myclan & " ! " & username & " !!"
    exit sub
    end if
    if tag <> "" then
    Addq "/emote >.< Leave the clan " & tag & " ! " & username & " !! If you wanna Join..."
    exit sub
    end if
    if ScINet.stillExecuting then
    addq "/emote " & username & " >>>> SorrY <<<< ^_^ I'M BuSy "
    exit sub
    end if
    addchat vbblue, "opening website"
    'Web Profile
    if gametype = "ROC" then Content=scinet.openurl("Warcraft III Ladder=" & MyRealm & "&PlayerName=" & Username)
    if gametype = "TFT" then Content =scinet.openurl("http://www.battle.net/war3/ladder/w3...e.aspx?Gateway=" & MyRealm & "&PlayerName=" & Username)
    addchat vbblue, "checking website for error"
    '*** TesT if WeB is DowN ***
    posErroR = instr(content, "Error Encountered")
    if poserror > 0 then
    Addq "/emote >> BatTLe.NeT Profile WeB is DoWN -> I cant TesT Your Acc << Ask to Shaman..."
    exit sub
    end if
    addchat vbblue, "getting stats"
    '******* User StatS ******
    pos1 = instr(content, "Total")
    pos1 = instr(pos1,content,"rankingRow")
    pos1 = instr(pos1, content, ">")+1
    pos2 = instr(pos1, content, "<")
    twins = mid(content, pos1, pos2-pos1)
    pos1 = instr(pos1, content, "%")-15
    pos1 = instr(pos1, content, ">")+1
    pos2 = instr(pos1, content, "<")-2
    tpercent = mid(content, pos1, pos2-pos1)
    addchat vbblue, "wins: """ & twins & """, %: """ & tpercent & """"
    UserStat = GetInternalDataByUserName(Username, 5)
    Levelx = Split(UserStat, " ")(2)
    addchat vbblue, "lvl: """ & levelx & """"
    if cint(levelx) < MinLeveL then
    addq "/emote ** " & username & " You need Level " & minlevel & " To enter clan " & myclan
    exit sub
    end if
    addchat vbblue, "lvl too low"
    text = "WinS : [" & twins & "] With Percent : [" & tpercent & "]"
    tpercent = left(tpercent,2)
    'Wins & Percent Conditions
    if cint(twins) >= MinWinS1 And cint(twins) <= cint(MinWinS2) then ' <<< that's dumb ...
    If cint(tpercent) >= cint(MinPercent1) Then
    Call InviteClan(USername,text)
    exit sub
    end If
    End if
    if cint(twins) >= MinWinS2 And cint(twins) <= cint(MinWinS3) then
    If cint(tpercent) >= cint(MinPercent2) then
    Call InviteClan(USername,text)
    exit sub
    end If
    End if
    if cint(twins) >= cint(MinWinS3) Then
    If cint(tpercent) >= cint(MinPercent3) Then
    Call InviteClan(USername,text)
    exit sub
    End If
    End If
    addq "/emote Sorry... , You Dont have the Stats Enough to Join Clan " & myclan & " | " & Username & " | Detected : " & Text
    addq "/emote ReQs: " & MinWinS1 & " WinS/" & MinPercent1 & " % | " & MinWinS2 & " Wins/" & MinPercent2 & " % | " & MinWinS3 & " Wins/" & MinPercent3 & "%"
     
    
    end if
    end Sub
    
    sub InviteClan(username,Text)
    'Condition Passed -> Step : Invite to clan
    addq "/emote Welcome to CLan " & myclan & " " & Username & " | Detected: " & Text
    addq Command(BotVars.Username, "/invite " & Username, True)
    End Sub
    This plug Auto invite a player who type .Join in clan channel , if he pass the required stats.

    Multiple Conditions
    Bot Test: Clan , Level , And 3 steps of wins/percent Conditions

    Default Settings:

    Clan : W3
    Minimum Wins1 : 100
    Minimum Percent1 : 60 %
    Minimum Wins2 : 200
    Minimum Percent2 : 55 %
    Minimum Wins3 : 300
    Minimum Percent3 : 50 %
    Minumum Level = 15
    Game: ROC
    GateWay : Northend



    To Change the reqs Just open the Plug and edit this parameters:



    Private const MyRealm= "Northrend" ( Your Realm )
    private const MyClan = "W3" ( Your Clan TaG )
    Private const MinWinS1 = 100 ( Minimun Wins )
    private const MinPercent1 = 60
    ( Percent of Minimun Wins )
    Private const MinWinS2 = 200
    ( Next Wins Reqs )
    private const MinPercent2 = 55 (
    Percent )
    Private const MinWinS3 = 300
    ( Next Wins Reqs )
    private const MinPercent3 = 50
    ( Percent )
    private const GameTyPe = "ROC" ( Game type)
    Private const MinLevel = 10 ( Min Level to join clan )


    + Rep Pls

  2. #2
    Ryan's Avatar
    Ryan is offline Ubiquitous


    Array
    Join Date
    Jul 2007
    Posts
    6,965
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    27
    Reputation
    2758
    Asking For Rep Won't Get You Rep
    Did You Script This ?


  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
    he didn't the maker is Droid, alias T[x]aS in D3scene

  4. #4
    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
    yes but i give it to d3scene community

  5. #5
    Lord_of_orc is offline Member
    Array
    Join Date
    Feb 2008
    Location
    Holland
    Posts
    32
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    34
    Nice script :p i test it when iam @home this plugin look nice but i dont know sure if you created it by your self :police:


    R E P U T A T I O N

    if my knowledge helped you

  6. #6
    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 X-FreeLoOsE-X View Post
    he didn't the maker is Droid, alias T[x]aS in D3scene
    i repeat, and i changed the thread's name, to know who's the real maker [:

  7. #7
    zero1234 is offline Member
    Array
    Join Date
    Feb 2008
    Posts
    30
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    I kept getting this MSG

    [113:45 PM] UserTalk Call Error On File> G:\StealthBot\plugins\ClanInvite.txt
    [113:45 PM] Error Number: 5 Description: Invalid procedure call or argument


    Help plz ?

  8. #8
    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
    put it in ClanInvite.plug not in claninvite.txt

  9. #9
    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
    it doesn't matter, as Snap said in stealthbot's forum, a plug file is a txt file

  10. #10
    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
    gj

Page 1 of 2 12 LastLast

Similar Threads

  1. >> AUTO INVITE CLAN PLUG <<
    By T[X]AS in forum Warcraft 3 Hacks, bots and tools
    Replies: 20
    Last Post: 07-30-2007, 09:15 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
  •