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.

 

Thanks, ill tell you if i find any of them worng.

 

kool. well they are updated from today. like 25 mintues ago

 

very nice Too bad i find no use for it since my updater automatically parses them anyway.

 

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.

 

fuck splitting skip straight to instr() and mid() etc its a shit load more "stable" to write with.

 

Stickied, thanks.

 

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

 

Thanks alot this saves me ALOT of clicking

 

ill update it when there are new worlds and stuff.

 

The list needs to be updated.

 

Thanks,

Will use it

 

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]

 

thats my code, and you add it to your project...

 

This list looks like it needs updating! Try the new FAWG v2.20! http://freddy1990.com/fawg.php

 

yeah i think it might need to be updated

 

Lol Spam Zomby? No need to say that it needs to be updated - We can All see that -_-

 

Lol...Cool...Wewt...200th Post.....

 

Nice!

 

Nice