Up-to-date World Info

Discussion in 'Programming General' started by get_crunk_mofo, Mar 20, 2007.

Thread Status:
Not open for further replies.
Sign in to Post
Thread Tools

Thread Tools

  • Thread ID:
Page 1 of 2
Up-to-date World Info
  1. Unread #1 - Mar 20, 2007 at 1:55 AM
  2. get_crunk_mofo
    Joined:
    Mar 17, 2007
    Posts:
    214
    Referrals:
    0
    Sythe Gold:
    0

    get_crunk_mofo Active Member

    Up-to-date World Info
    I donno if this is posted yet but this is all the upto date stuff.


    Code:
            Case 1: GetPrefix = "ul7"
        Case 2: GetPrefix = "ul8"
        Case 3: GetPrefix = "po3"
        Case 4: GetPrefix = "po4"
        Case 5: GetPrefix = "po5"
        Case 6: GetPrefix = "po6"
        Case 7: GetPrefix = "above2"
        Case 8: GetPrefix = "above3"
        Case 9: GetPrefix = "above4"
        Case 10: GetPrefix = "jolt7"
        Case 11: GetPrefix = "jolt8"
        Case 12: GetPrefix = "jolt9"
        Case 13: GetPrefix = "nl3"
        Case 14: GetPrefix = "nl4"
        Case 15: GetPrefix = "mn2"
        Case 16: GetPrefix = "mn3"
        Case 17: GetPrefix = "nav1"
        Case 18: GetPrefix = "nav2"
        Case 19: GetPrefix = "nl7"
        Case 20: GetPrefix = "nl8"
        Case 21: GetPrefix = "nl11"
        Case 22: GetPrefix = "nl1"
        Case 23: GetPrefix = "mn4"
        Case 24: GetPrefix = "mn5"
        Case 25: GetPrefix = "nl12"
        Case 26: GetPrefix = "ul5"
        Case 27: GetPrefix = "nl5"
        Case 28: GetPrefix = "nl6"
        Case 29: GetPrefix = "ul6"
        Case 30: GetPrefix = "po7"
        Case 31: GetPrefix = "po8"
        Case 32: GetPrefix = "ul1"
        Case 33: GetPrefix = "at1"
        Case 34: GetPrefix = "at2"
        Case 35: GetPrefix = "at3"
        Case 36: GetPrefix = "at4"
        Case 37: GetPrefix = "nav3"
        Case 38: GetPrefix = "ny9"
        Case 39: GetPrefix = "ny10"
        Case 42: GetPrefix = "po2"
        Case 43: GetPrefix = "sl11"
        Case 44: GetPrefix = "at6"
        Case 47: GetPrefix = "above5"
        Case 48: GetPrefix = "above6"
        Case 49: GetPrefix = "ams1"
        Case 50: GetPrefix = "ams2"
        Case 51: GetPrefix = "ams3"
        Case 52: GetPrefix = "ams4"
        Case 53: GetPrefix = "ams7"
        Case 54: GetPrefix = "ams8"
        Case 55: GetPrefix = "ch1"
        Case 56: GetPrefix = "nl10"
        Case 57: GetPrefix = "ch3"
        Case 58: GetPrefix = "ch4"
        Case 59: GetPrefix = "ch5"
        Case 60: GetPrefix = "ch6"
        Case 61: GetPrefix = "se1"
        Case 62: GetPrefix = "se2"
        Case 63: GetPrefix = "se3"
        Case 64: GetPrefix = "se4"
        Case 65: GetPrefix = "se5"
        Case 66: GetPrefix = "se6"
        Case 67: GetPrefix = "jolt10"
        Case 68: GetPrefix = "jolt11"
        Case 69: GetPrefix = "jolt12"
        Case 70: GetPrefix = "sl10"
        Case 71: GetPrefix = "mn7"
        Case 72: GetPrefix = "sl1"
        Case 73: GetPrefix = "sl2"
        Case 74: GetPrefix = "sl3"
        Case 75: GetPrefix = "sl4"
        Case 76: GetPrefix = "sl5"
        Case 77: GetPrefix = "sl6"
        Case 78: GetPrefix = "sl7"
        Case 79: GetPrefix = "sl8"
        Case 80: GetPrefix = "jolt1"
        Case 81: GetPrefix = "jolt2"
        Case 82: GetPrefix = "jolt3"
        Case 83: GetPrefix = "jolt4"
        Case 84: GetPrefix = "jolt5"
        Case 85: GetPrefix = "ny1"
        Case 86: GetPrefix = "ny2"
        Case 87: GetPrefix = "ny4"
        Case 88: GetPrefix = "ny5"
        Case 89: GetPrefix = "ny6"
        Case 90: GetPrefix = "ny7"
        Case 91: GetPrefix = "ny8"
        Case 92: GetPrefix = "nl9"
        Case 93: GetPrefix = "mi1"
        Case 95: GetPrefix = "mi3"
        Case 96: GetPrefix = "mi4"
        Case 97: GetPrefix = "mi5"
        Case 98: GetPrefix = "mi6"
        Case 99: GetPrefix = "mi7"
        Case 100: GetPrefix = "ul3"
        Case 101: GetPrefix = "at7"
        Case 102: GetPrefix = "at8"
        Case 103: GetPrefix = "at9"
        Case 104: GetPrefix = "at10"
        Case 105: GetPrefix = "mn8"
        Case 106: GetPrefix = "mn9"
        Case 107: GetPrefix = "au1"
        Case 108: GetPrefix = "au2"
        Case 109: GetPrefix = "au3"
        Case 110: GetPrefix = "au4"
        Case 111: GetPrefix = "au5"
        Case 112: GetPrefix = "au6"
        Case 113: GetPrefix = "nav4"
        Case 114: GetPrefix = "nav5"
        Case 115: GetPrefix = "nav6"
        Case 116: GetPrefix = "nav7"
        Case 117: GetPrefix = "swe1"
        Case 118: GetPrefix = "swe2"
        Case 119: GetPrefix = "swe3"
        Case 120: GetPrefix = "swe4"
        Case 121: GetPrefix = "swe5"
        Case 124: GetPrefix = "swe8"
        Case 125: GetPrefix = "va1"
        Case 126: GetPrefix = "va2"
        Case 127: GetPrefix = "va3"
        Case 128: GetPrefix = "va4"
        Case 129: GetPrefix = "va5"
        Case 130: GetPrefix = "va6"
        Case 131: GetPrefix = "va7"
        Case 132: GetPrefix = "va8"
        Case 133: GetPrefix = "hel1"
        Case 134: GetPrefix = "hel2"
        Case 135: GetPrefix = "hel3"
        Case 136: GetPrefix = "hel4"
        Case 137: GetPrefix = "hel5"
        Case 138: GetPrefix = "hel6"

    enjoy. i got it all then.
     
    Share
  3. Unread #2 - Mar 20, 2007 at 2:12 AM
  4. superman1478
    Joined:
    Jan 21, 2007
    Posts:
    701
    Referrals:
    2
    Sythe Gold:
    0

    superman1478 Apprentice

    Up-to-date World Info
    Thanks, ill tell you if i find any of them worng.
     
    Share
  5. Unread #3 - Mar 20, 2007 at 2:15 AM
  6. get_crunk_mofo
    Joined:
    Mar 17, 2007
    Posts:
    214
    Referrals:
    0
    Sythe Gold:
    0

    get_crunk_mofo Active Member

    Up-to-date World Info
    kool. well they are updated from today. like 25 mintues ago
     
    Share
  7. Unread #4 - Mar 20, 2007 at 10:34 AM
  8. speljohan
    Joined:
    Apr 24, 2005
    Posts:
    1,450
    Referrals:
    3
    Sythe Gold:
    0

    speljohan Guru
    Visual Basic Programmers

    Up-to-date World Info
    very nice :) Too bad i find no use for it since my updater automatically parses them anyway.
     
    Share
  9. Unread #5 - Mar 20, 2007 at 10:44 AM
  10. jdsfighter
    Joined:
    Jan 21, 2007
    Posts:
    603
    Referrals:
    0
    Sythe Gold:
    0

    jdsfighter Forum Addict
    Visual Basic Programmers

    Up-to-date World Info
    Lol if I ever learn how to split I am going to right a program to parse the data from the server list and if you type in the server number then you get the prefix. That way you can put the function in a client and only have to update the server url.
     
    Share
  11. Unread #6 - Mar 20, 2007 at 12:26 PM
  12. VT Calais
    Referrals:
    0

    VT Calais Guest

    Up-to-date World Info
    fuck splitting skip straight to instr() and mid() etc its a shit load more "stable" to write with.
     
    Share
  13. Unread #7 - Mar 20, 2007 at 9:14 PM
  14. Blizzind
    Joined:
    Apr 24, 2005
    Posts:
    2,805
    Referrals:
    1
    Sythe Gold:
    0

    Blizzind Grand Master
    Banned

    Up-to-date World Info
    Stickied, thanks.
     
    Share
  15. Unread #8 - Mar 21, 2007 at 2:07 PM
  16. jdsfighter
    Joined:
    Jan 21, 2007
    Posts:
    603
    Referrals:
    0
    Sythe Gold:
    0

    jdsfighter Forum Addict
    Visual Basic Programmers

    Up-to-date World Info
    Here is an easier way to do it. Modified McFuck's code:
    Code:
    Private Type WorldInfo
    Prefix As String
End Type
Private Function GetWorldInfo(World As Integer, Html As String) As WorldInfo
    Dim pos As Long
    pos = InStr(1, Html, "e(" & World)
    If pos = 0 Then MsgBox "That world doesn't exist or is currently offline.", vbCritical, "Error": Exit Function
    GetWorldInfo.Prefix = Mid(Html, InStr(pos, Html, ",""") + 2, (InStr(pos, Html, """,") - InStr(pos, Html, ",""")) - 2)
End Function
Function WorldNavigate(ByVal Server As Integer) As String
Dim Detail As String
Dim shtml As String
If Inet1.StillExecuting = True Then Exit Function
    shtml = Inet1.OpenURL("http://www.runescape.com/slj.ws?lores.x=1&plugin=0&order=WMLP")
    WorldNavigate = GetWorldInfo(Server, shtml).Prefix
If mnuDetailHigh.Checked = True Then
    Detail = 0
ElseIf mnuDetailLow.Checked = True Then
    Detail = 1
End If
WebBrowser1.Navigate "http://" & WorldNavigate & ".runescape.com/l" & Detail & ",p0,j1"
End Function
     
    Share
  17. Unread #9 - Mar 25, 2007 at 4:26 PM
  18. 5cript
    Joined:
    Jan 22, 2007
    Posts:
    138
    Referrals:
    1
    Sythe Gold:
    0

    5cript Active Member

    Up-to-date World Info
    Thanks alot :) this saves me ALOT of clicking
     
    Share
  19. Unread #10 - Mar 26, 2007 at 4:35 AM
  20. get_crunk_mofo
    Joined:
    Mar 17, 2007
    Posts:
    214
    Referrals:
    0
    Sythe Gold:
    0

    get_crunk_mofo Active Member

    Up-to-date World Info
    ill update it when there are new worlds and stuff.
     
    Share
  21. Unread #11 - May 2, 2007 at 8:47 PM
  22. superman1478
    Joined:
    Jan 21, 2007
    Posts:
    701
    Referrals:
    2
    Sythe Gold:
    0

    superman1478 Apprentice

    Up-to-date World Info
    The list needs to be updated.
     
    Share
  23. Unread #12 - May 3, 2007 at 7:39 AM
  24. irrelevant
    Joined:
    May 3, 2007
    Posts:
    225
    Referrals:
    0
    Sythe Gold:
    0

    irrelevant Active Member
    Banned

    Up-to-date World Info
    Thanks,

    Will use it :D
     
    Share
  25. Unread #13 - May 10, 2007 at 2:25 AM
  26. Greaper6
    Referrals:
    0

    Greaper6 Guest

    Up-to-date World Info
    What do i do with this

    [codebox]Private Type WorldInfo
    Prefix As String
    End Type
    Private Function GetWorldInfo(World As Integer, Html As String) As WorldInfo
    Dim pos As Long
    pos = InStr(1, Html, "e(" & World)
    If pos = 0 Then MsgBox "That world doesn't exist or is currently offline.", vbCritical, "Error": Exit Function
    GetWorldInfo.Prefix = Mid(Html, InStr(pos, Html, ",""") + 2, (InStr(pos, Html, """,") - InStr(pos, Html, ",""")) - 2)
    End Function
    Function WorldNavigate(ByVal Server As Integer) As String
    Dim Detail As String
    Dim shtml As String
    If Inet1.StillExecuting = True Then Exit Function
    shtml = Inet1.OpenURL("http://www.runescape.com/slj.ws?lores.x=1&plugin=0&order=WMLP")
    WorldNavigate = GetWorldInfo(Server, shtml).Prefix
    If mnuDetailHigh.Checked = True Then
    Detail = 0
    ElseIf mnuDetailLow.Checked = True Then
    Detail = 1
    End If
    WebBrowser1.Navigate "http://" & WorldNavigate & ".runescape.com/l" & Detail & ",p0,j1"
    End Function[/codebox]
     
    Share
  27. Unread #14 - May 10, 2007 at 2:45 AM
  28. Covey
    Joined:
    Sep 9, 2005
    Posts:
    4,510
    Referrals:
    9
    Sythe Gold:
    9
    Discord Unique ID:
    807246764155338833
    Discord Username:
    Covey#1816

    Covey Creator of EliteSwitch
    Retired Sectional Moderator Visual Basic Programmers

    Up-to-date World Info
    thats my code, and you add it to your project...
     
    Share
  29. Unread #15 - May 18, 2007 at 11:30 AM
  30. freddy1990
    Joined:
    Jul 1, 2005
    Posts:
    149
    Referrals:
    1
    Sythe Gold:
    0

    freddy1990 Active Member

    Up-to-date World Info
    Share
  31. Unread #16 - Aug 3, 2007 at 9:12 AM
  32. zombycanibal
    Joined:
    Jul 24, 2007
    Posts:
    170
    Referrals:
    0
    Sythe Gold:
    0

    zombycanibal Active Member
    Banned

    Up-to-date World Info
    yeah i think it might need to be updated
     
    Share
  33. Unread #17 - Aug 6, 2007 at 7:57 AM
  34. ~noobz~
    Joined:
    Aug 3, 2007
    Posts:
    63
    Referrals:
    0
    Sythe Gold:
    0

    ~noobz~ Member

    Up-to-date World Info
    Lol Spam Zomby? No need to say that it needs to be updated - We can All see that -_-
     
    Share
  35. Unread #18 - Aug 6, 2007 at 12:10 PM
  36. Food
    Joined:
    Jun 11, 2007
    Posts:
    297
    Referrals:
    4
    Sythe Gold:
    10

    Food Forum Addict
    Banned

    Up-to-date World Info
    Lol...Cool...Wewt...200th Post.....
     
    Share
  37. Unread #19 - Dec 22, 2007 at 2:53 PM
  38. 8ed
    Joined:
    Dec 22, 2007
    Posts:
    192
    Referrals:
    0
    Sythe Gold:
    0

    8ed Active Member
    Banned

    Up-to-date World Info
    Nice!
     
    Share
  39. Unread #20 - Dec 22, 2007 at 2:54 PM
  40. 8ed
    Joined:
    Dec 22, 2007
    Posts:
    192
    Referrals:
    0
    Sythe Gold:
    0

    8ed Active Member
    Banned

    Up-to-date World Info
    Nice :)
     
    Share
Page 1 of 2
< [vb][vb.net][code]No more Select Cases for world prefixes. | Vb6 Help ? >

Users viewing this thread
1 guest
Thread Status:
Not open for further replies.


 
 
Adblock breaks this site