Errors in my script!

This is a discussion on Errors in my script! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Could you plz look for misstakes or something? Im getting ( if a user joins ) UserJoins Call Error On ...

Results 1 to 4 of 4
  1. #1
    Niimos is offline Newbie
    Array
    Join Date
    Jun 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Errors in my script!

    Could you plz look for misstakes or something?

    Im getting ( if a user joins )


    UserJoins Call Error On File> F:\StealthBot\Plugins\aaAutomaticRank.plug
    Error Number: 450 Description: Wrong number of arguments or invalid property assignment
    The code:


    'aa
    '1.1
    '&AutoRank



    Const aa_Clan = "DeGr"
    Const aa_Realm = "Northrend"

    Sub aa_Event_UserJoins(Username, Level)
    ClanTag = GetInternalDataByUsername(Username, 0)
    Content = SciNet.OpenURL("http://www.battle.net/war3/ladder/w3xp-clan-profile.aspx?ClanTag=" & aa_Clan & "&Gateway=" & aa_Realm & "&PlayerSearch=" & Username & "&x=0&y=0")
    Content = LCase(Content)
    If Not SciNet.StillExecuting Then

    If InStr(content, "<title>Warcraft III Ladder - Error</title>") Then
    AddChat vbCyan, ".:Auto Rank Plugin:. Battle.net is updating...Please try again later."
    Exit Sub
    End If
    If LCase(ClanTag) = LCase(aa_Clan) Then
    GetDBEntry Username, myAccess, myFlags
    rank = Split(Split(Content, "last online")(1), ".gif")(0)
    rank = Mid(rank, InStr(rank, "clans/") + 6)

    If rank = "rank3" Then '// Shaman
    If NOT myAccess > 89 Then
    Command BotVars.Username, "/setrank " & Username & "2", True
    End If
    ElseIf rank = "rank2" Then '// Grunt
    If NOT myAccess > 49 Then
    Command BotVars.Username, "/setrank " & Username & "4", True
    End If
    ElseIf rank = "rank1" Then '// Peon
    If NOT myAccess > 39 Then
    Command BotVars.Username, "/setrank " & Username & " 5", True
    End If
    ElseIf rank = "rank0" Then '// Probabation
    If NOT myAccess > 39 Then
    Command BotVars.Username, "/setrank " & Username & " 5", True
    End If
    End If
    Else
    Command BotVars.Username, "/remove " & Username, True
    End If
    Else
    AddChat vbCyan, ".:Auto Rank Plugin:. Bot is busy. Please ask them to rejoin later."
    End If
    End Sub

  2. #2
    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
    what is ur script objective? what must it do? :O

  3. #3
    Kalbintion's Avatar
    Kalbintion is offline Premium Member
    Array
    Join Date
    Aug 2007
    Posts
    1,058
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    318
    seems to be a ranking system --- and the arguements may the user join sub itself.... the original SB sub is like this

    Code:
    Sub Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
    whats shown there
    Code:
     Sub aa_Event_UserJoins(Username, Level)
    so fix the arguments within the ()'s and attempt again, if it works, then there u go...other then that, need more info
    I reject your reality and substitute my own ~Adam Savage

  4. #4
    Kalbintion's Avatar
    Kalbintion is offline Premium Member
    Array
    Join Date
    Aug 2007
    Posts
    1,058
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    318
    I just re-read now and i dont feel like editing {allowing the alert to show}

    but in case you cant figure out what i ment by changing to, ud change your previous script from this line to, the line below it

    Code:
    Sub aa_Event_UserJoins(Username, Level)
    Code:
    Sub aa_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
    I reject your reality and substitute my own ~Adam Savage

Similar Threads

  1. [Bot/Autoit Script] PVP Honor Leeching Script
    By tschoerk in forum WoW Bots, hacks and exploits
    Replies: 36
    Last Post: 11-30-2011, 11:00 PM
  2. Antfamous Gauntlet Bot v1.8 for mmBot
    By tschoerk in forum Diablo 2 Hacks
    Replies: 9
    Last Post: 04-29-2009, 02:33 PM
  3. Stealthbot Script
    By Toxik in forum Diablo 2 Hacks
    Replies: 0
    Last Post: 09-22-2007, 12:40 AM
  4. Need Script for News from a Website
    By ThoR24 in forum Warcraft 3 Hacks, bots and tools
    Replies: 0
    Last Post: 06-26-2007, 02:56 PM
  5. Write your own ASM script!
    By Ginzo in forum WoW Guides
    Replies: 2
    Last Post: 05-23-2007, 05:36 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
  •