Bot Plugin Problem-.-

This is a discussion on Bot Plugin Problem-.- within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Hi guys.. Can anlp me whit this problem?? Its a plugin:Auto Invite Plugin 2.0 Made by Taxes if i say ...

Results 1 to 2 of 2
  1. #1
    Dead[killss]1's Avatar
    Dead[killss]1 is offline Guru
    Array
    Join Date
    Feb 2008
    Location
    Netherlands
    Posts
    79
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    6

    Bot Plugin Problem-.-

    Hi guys.. Can anlp me whit this problem??
    Its a plugin:Auto Invite Plugin 2.0 Made by Taxes
    if i say .join and im alrdy in clan then he says:
    [8:22:12] <Dead[Killss]> .join
    [8:22:12] <clantlbc-bot ** Wait... Analizing Acc... [ Dead[Killss] ] **>
    [8:22:12] <clantlbc-bot >.< YOU ARE IN CLAN TLBC ! Dead[Killss] !!>
    if someelse is says then and he is no clan then he says:
    [8:22:46] <Rush.or.rush_oO> .join
    [8:22:46] <clantlbc-bot ** Wait... Analizing Acc... [ Rush.or.rush_oO ] **>
    [8:22:46] UserTalk Call Error On File> C:\Program Files\StealthBot\plugins\joinc.plug
    [8:22:46] Error Number: 5 Description Invalid procedure call or argument
    if some1 says and hes alrdy in a clan then he says:
    [8:53:15] <NaP(ISR)Tal> .join
    [8:53:15] <clantlbc-bot ** Wait... Analizing Acc... [ NaP(ISR)Tal ] **>
    [8:53:16] <clantlbc-bot >.< Leave the clan iron ! NaP(ISR)Tal !! If you wanna Join...>

    This the Plugin:
    'joinc
    '2.0
    'By DrOiD @ T[X]AS

    '///// CONDITIONS ///////////
    'My CLan
    Private const MyClan = "TLBC"

    'Conditions
    Private const MinWinS1 = 100
    private const MinPercent1 = 35

    Private const MinWinS2 = 25
    private const MinPercent2 = 40

    Private const MinWinS3 = 7
    private const MinPercent3 = 50

    'Game Type
    private const GameTyPe = "ROC"

    'Min Level
    Private const MinLevel = 4





    '>>>>>>> Sub Events <<<<<<<<<<

    Sub joinc_event_UserTalk(Username, Flags, Message, Ping)


    If Left(lcase(message),6) = 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 ucase(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

    'Web Profile
    if gametype = "ROC" then Content=scinet.openurl("http://www.battle.net/war3/ladder/wa...ame="&Username)
    if gametype = "TFT" then Content =scinet.openurl("http://www.battle.net/war3/ladder/w3...ame="&Username)

    '*** 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

    '******* 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)

    UserStat = GetInternalDataByUserName(Username, 5)
    Levelx = Split(UserStat, " ")(2)

    if cint(levelx) < MinLeveL then
    addq "/emote ** " & username & " You need Level " & minlevel & " To enter clan " & myclan
    exit sub
    end if

    text = "WinS : [" & twins & "] With Percent : [" & tpercent & "]"
    tpercent = left(tpercent,2)
    'Wins & Percent Conditions
    if cint(twins) >= MinWinS1 And cint(twins) <= cint(MinWinS2) then
    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
    can anyone help me?? Pls THX!!

  2. #2
    Swent is offline Newbie
    Array
    Join Date
    Feb 2008
    Posts
    3
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    5

Similar Threads

  1. PiroX AntiAFK BG Bot
    By Toxik in forum WoW Bots, hacks and exploits
    Replies: 28
    Last Post: 09-20-2010, 01:37 PM
  2. PiroX AntiAFK Bot v7.1.8
    By hendricius in forum WoW Bots, hacks and exploits
    Replies: 19
    Last Post: 06-20-2010, 10:03 PM
  3. Mirage Chat Bot
    By Just-Poison in forum Warcraft 3 Hacks, bots and tools
    Replies: 64
    Last Post: 12-17-2009, 06:36 PM
  4. Antfamous Gauntlet Bot v1.8 for mmBot
    By tschoerk in forum Diablo 2 Hacks
    Replies: 9
    Last Post: 04-29-2009, 02:33 PM
  5. Getting started with Glider
    By hendricius in forum WoW Bots, hacks and exploits
    Replies: 11
    Last Post: 12-06-2008, 03:42 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
  •