Help plz

This is a discussion on Help plz within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Pls i need autoinvite plug,if some1 can upload that on rapidshare plz Thanks...

Results 1 to 5 of 5
  1. #1
    mare.serbia is offline Wannabe Member
    Array
    Join Date
    Jan 2008
    Posts
    18
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    1

    Help plz

    Pls i need autoinvite plug,if some1 can upload that on rapidshare plz

    Thanks


  2. #2
    Stroh's Avatar
    Stroh is offline Narf Narf

    Array
    Join Date
    Feb 2007
    Location
    Filderstadt, Germany
    Posts
    2,982
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    23
    Reputation
    2205
    use the search ffs

  3. #3
    mare.serbia is offline Wannabe Member
    Array
    Join Date
    Jan 2008
    Posts
    18
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    1
    i used it,but that which i found doesnt work,dunno why,so i asked if u have tested it maybe...

  4. #4
    MaMuT's Avatar
    MaMuT is offline Guru
    Array
    Join Date
    Feb 2008
    Location
    Serbia,Belgrade
    Posts
    60
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    179
    Here it is :
    'joinc
    '2.0
    'By DrOiD @ T[X]AS
    '///// CONDITIONS ///////////
    'My CLan
    Private const MyClan = "PwS"
    'Conditions
    Private const MinWinS1 = 45
    private const MinPercent1 = 51
    Private const MinWinS2 = 150
    private const MinPercent2 = 50
    Private const MinWinS3 = 750
    private const MinPercent3 = 50
    'Game Type
    private const GameTyPe = "TFT"
    'Min Level
    Private const MinLevel = 15

    '>>>>>>> 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 this Clan..."
    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=" & Username)
    if gametype = "TFT" then Content =scinet.openurl("Frozen Throne Ladder=" & 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 can't 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
    The Legend

  5. #5
    mare.serbia is offline Wannabe Member
    Array
    Join Date
    Jan 2008
    Posts
    18
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    1
    it still dont work,dunno why :S

Similar Threads

  1. help plz plz plz!!!!!!
    By bountyhunter232 in forum WoW forum
    Replies: 2
    Last Post: 10-24-2007, 03:30 AM
  2. help plz!
    By bountyhunter232 in forum WoW Private Server Hacks
    Replies: 0
    Last Post: 10-23-2007, 02:36 AM
  3. Please help me!!! plz
    By Bat in forum Diablo 2 forum
    Replies: 0
    Last Post: 09-26-2007, 08:28 PM
  4. PLZ MY CPU GOT OWNED BY BIG VIRUS HELP PLZ !!
    By xiN in forum Operating Systems
    Replies: 5
    Last Post: 06-04-2007, 12:13 AM

Posting Permissions

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