Clan rank

This is a discussion on Clan rank within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; 'clanrank '1.0 defaultclan = "BriT" realm = "northrend" Sub clanrank_Event_UserTalk(Username, Flags, Message, Ping) If left(lcase(message),9) = botvars.trigger & "clanrank" Then ...

Results 1 to 5 of 5
  1. #1
    TdC
    TdC is offline Newbie
    Array
    Join Date
    Mar 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Clan rank

    'clanrank
    '1.0

    defaultclan = "BriT"
    realm = "northrend"



    Sub clanrank_Event_UserTalk(Username, Flags, Message, Ping)
    If left(lcase(message),9) = botvars.trigger & "clanrank" Then
    x = split(message)
    If ubound(x) = 0 Then
    call clanrank(defaultclan)
    Elseif ubound(x) = 1 Then
    call clanrank(lcase(x(1)))
    End If
    End If
    End Sub



    Sub ClanRank(clan)
    If scinet.stillexecuting Then
    addq "Still executing the last request"
    exit Sub
    End If
    content =

    lcase(scinet.openURL("http://www.battle.net/war3/ladder/w3xp-ladder-solo-clan.aspx?Gateway=northrend&PlayerSearch

    ="& Clan))
    content2 =

    lcase(scinet.openURL("http://www.battle.net/war3/ladder/w3xp-ladder-2vs2-clan.aspx?Gateway=northrend&PlayerSearch

    ="& Clan))
    content3 =

    lcase(scinet.openURL("http://www.battle.net/war3/ladder/w3xp-ladder-3vs3-clan.aspx?Gateway=northrend&PlayerSearch

    ="& Clan))
    content4 =

    lcase(scinet.openURL("http://www.battle.net/war3/ladder/w3xp-ladder-4vs4-clan.aspx?Gateway=northrend&PlayerSearch

    ="& Clan))

    If instr(content, "clan not found!") Then
    addq "Invalid Clan"
    exit Sub
    End If


    If instr(content, "player name") Then
    r1 = "n/a"
    Else
    pos1 = instr(content, "gateway=northrend&clantag="&clan)-600
    pos1 = instr(pos1, content, "rankingrow")+26
    pos2 = instr(pos1, content, "<")
    r1 = mid(content, pos1, pos2-pos1)
    End If

    If instr(content2, "player name") Then
    r2 = "n/a"
    Else
    pos1 = instr(content2, "gateway=northrend&clantag="&clan)-600
    pos1 = instr(pos1, content2, "rankingrow")+26
    pos2 = instr(pos1, content2, "<")
    r2 = mid(content2, pos1, pos2-pos1)
    End If

    If instr(content3, "player name") Then
    r3 = "n/a"
    Else
    pos1 = instr(content3, "gateway=northrend&clantag="&clan)-600
    pos1 = instr(pos1, content3, "rankingrow")+26
    pos2 = instr(pos1, content3, "<")
    r3 = mid(content3, pos1, pos2-pos1)
    End If


    If instr(content4, "player name") Then
    r4 = "n/a"
    Else
    pos1 = instr(content4, "gateway=northrend&clantag="&clan)-600
    pos1 = instr(pos1, content4, "rankingrow")+26
    pos2 = instr(pos1, content4, "<")
    r4 = mid(content4, pos1, pos2-pos1)
    End If


    addq "Clan " & clan & " is ranked: [Solo- " & r1 & "] [2s- " & r2 & "] [3s- " & r3 & "] [4s- " & r4 & "]"
    End Sub

  2. #2
    M I C H A is offline Member
    Array
    Join Date
    Jul 2009
    Posts
    40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    1
    I dont wanna reopen old Threads, really... but this acctuly is an interessting plugin... ive installed it but it did not work (error number 13 Description: Type Dismatch. Could someone say me why ? i have changed DefaultClan into mine. Northrend is all fine...

    What could be my reason ? Thanks!

  3. #3
    hellbomb is offline Wannabe Member
    Array
    Join Date
    Jun 2009
    Posts
    13
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    hmmm it seemed to work for me so idk.

  4. #4
    M I C H A is offline Member
    Array
    Join Date
    Jul 2009
    Posts
    40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    1
    ok that sounds good finally... i tell you what i did!
    1) copy any other plugin, renamed it to clanranks
    2) marked all text in it, deletet it and copy in the given text here. Save
    3) Reload script and Config....

    is that all right? how should i do that, thanks for ANY help!

  5. #5
    M I C H A is offline Member
    Array
    Join Date
    Jul 2009
    Posts
    40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    1
    p u s h !
    since noone has read this at 3:00 am

Similar Threads

  1. Memoirs of World of Warcraft
    By Hallowsend in forum WoW forum
    Replies: 21
    Last Post: 08-28-2013, 10:34 AM
  2. WotLK MaNGOS Patch (by Zilver)
    By Zilver in forum WoW Private Servers
    Replies: 1312
    Last Post: 11-18-2009, 06:30 PM
  3. Battlefield 2 guide
    By [BLACK]-IrEX in forum Battlefield 2
    Replies: 0
    Last Post: 10-06-2008, 08:00 AM
  4. Best Warlock build for Gliding
    By hendricius in forum WoW forum
    Replies: 5
    Last Post: 04-03-2008, 04:51 AM
  5. The Mega Spell ID's List
    By Toxik in forum WoW Private Servers
    Replies: 1
    Last Post: 07-24-2007, 01:11 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
  •