• Log in or sign up for an account here: https://www.sythe.org/login

Up-to-date World Info

Status
Not open for further replies.
get_crunk_mofo

get_crunk_mofo

Active Member
Joined
Mar 17, 2007
Sythe Gold
0
Messages
214
Location
Gangsta's Paradise
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.
 
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.
 
jdsfighter said:
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.
Click to expand...

fuck splitting skip straight to instr() and mid() etc its a shit load more "stable" to write with.
 
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
 
Thanks,

Will use it :D
 
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]
 
Greaper6 said:
What do i do with this

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
Click to expand...

thats my code, and you add it to your project...
 
Lol Spam Zomby? No need to say that it needs to be updated - We can All see that -_-
 
Nice!
 
Nice :)
 
Status
Not open for further replies.

Similar threads

M
Exclamation
Up To Date World Info!
Replies
3
Views
695
Edfrommars
E
dgameman1
 
[HELP] How to use combo boxes
2
Replies
35
Views
2,265
Covey
Covey
BlueDecs
 
The Most Up To Date World Info!
Replies
8
Views
365
BlueDecs
BlueDecs
Covey
Exclamation
World List Generator, Like FAWG [Source]
Replies
11
Views
380
Covey
Covey
Six
 
DaRk NiGhT's scripts and tutorials - by DaRk NiGhT
Replies
2
Views
410
Six
Six
Runescape Gamblingrunescape gambling
Back
Top