hey guys i am having some trouble with my new world switcher that i am trying to create.
here is the script:
SCAR Code:
program New;
var
Resultworld : String;
procedure chooseworld;
begin
case random(138) of
0: Resultworld := 'hel6';
1: Resultworld := 'ul7';
2: Resultworld := 'ul8';
3: Resultworld := 'po3';
4: Resultworld := 'po4';
5: Resultworld := 'po5';
6: Resultworld := 'po6';
7: Resultworld := 'above2';
8: Resultworld := 'above3';
9: Resultworld := 'above4';
10: Resultworld := 'jolt7';
11: Resultworld := 'jolt8';
12: Resultworld := 'jolt9';
13: Resultworld := 'nl3';
14: Resultworld := 'nl4';
15: Resultworld := 'mn2';
16: Resultworld := 'mn3';
17: Resultworld := 'nav1';
18: Resultworld := 'nav2';
19: Resultworld := 'nl7';
20: Resultworld := 'nl8';
21: Resultworld := 'nl11';
22: Resultworld := 'nl1';
23: Resultworld := 'mn4';
24: Resultworld := 'mn5';
25: Resultworld := 'nl12';
26: Resultworld := 'ul5';
27: Resultworld := 'nl5';
28: Resultworld := 'nl6';
29: Resultworld := 'ul6';
30: Resultworld := 'po7';
31: Resultworld := 'po8';
32: Resultworld := 'ul1';
33: Resultworld := 'at1';
34: Resultworld := 'at2';
35: Resultworld := 'at3';
36: Resultworld := 'at4';
37: Resultworld := 'nav3';
38: Resultworld := 'ny9';
39: Resultworld := 'ny10';
40: Resultworld := 'ny11';
41: Resultworld := 'ny12';
42: Resultworld := 'po2';
43: Resultworld := 'sl11';
44: Resultworld := 'at6';
45: Resultworld := 'ny13';
46: Resultworld := 'ny14';
47: Resultworld := 'above5';
48: Resultworld := 'above6';
50: Resultworld := 'ams2';
51: Resultworld := 'ams3';
52: Resultworld := 'ams4';
53: Resultworld := 'ams7';
54: Resultworld := 'ams8';
55: Resultworld := 'ch1';
56: Resultworld := 'nl10';
57: Resultworld := 'ch3';
58: Resultworld := 'ch4';
59: Resultworld := 'ch5';
60: Resultworld := 'ch6';
61: Resultworld := 'se1';
62: Resultworld := 'se2';
63: Resultworld := 'se3';
64: Resultworld := 'se4';
65: Resultworld := 'se5';
66: Resultworld := 'se6';
67: Resultworld := 'jolt10';
68: Resultworld := 'jolt11';
69: Resultworld := 'jolt12';
70: Resultworld := 'sl10';
71: Resultworld := 'mn7';
72: Resultworld := 'sl1';
73: Resultworld := 'sl2';
74: Resultworld := 'sl3';
75: Resultworld := 'sl4';
76: Resultworld := 'sl5';
77: Resultworld := 'sl6';
78: Resultworld := 'sl7';
79: Resultworld := 'sl8';
80: Resultworld := 'jolt1';
81: Resultworld := 'jolt2';
82: Resultworld := 'jolt3';
83: Resultworld := 'jolt4';
84: Resultworld := 'jolt5';
85: Resultworld := 'ny1';
86: Resultworld := 'ny2';
87: Resultworld := 'ny4';
88: Resultworld := 'ny5';
89: Resultworld := 'ny6';
90: Resultworld := 'ny7';
91: Resultworld := 'ny8';
92: Resultworld := 'nl9';
93: Resultworld := 'mi1';
94: Resultworld := 'mi2';
95: Resultworld := 'mi3';
96: Resultworld := 'mi4';
97: Resultworld := 'mi5';
98: Resultworld := 'mi6';
99: Resultworld := 'mi7';
100: Resultworld := 'ul3';
101: Resultworld := 'at7';
102: Resultworld := 'at8';
103: Resultworld := 'at9';
104: Resultworld := 'at10';
105: Resultworld := 'mn8';
106: Resultworld := 'mn9';
107: Resultworld := 'au1';
108: Resultworld := 'au2';
109: Resultworld := 'au3';
110: Resultworld := 'au4';
111: Resultworld := 'au5';
112: Resultworld := 'au6';
113: Resultworld := 'nav4';
114: Resultworld := 'nav5';
115: Resultworld := 'nav6';
116: Resultworld := 'nav7';
117: Resultworld := 'swe1';
118: Resultworld := 'swe2';
119: Resultworld := 'swe3';
120: Resultworld := 'swe4';
121: Resultworld := 'swe5';
124: Resultworld := 'swe8';
125: Resultworld := 'va1';
126: Resultworld := 'va2';
127: Resultworld := 'va3';
128: Resultworld := 'va4';
129: Resultworld := 'va5';
130: Resultworld := 'va6';
131: Resultworld := 'va7';
132: Resultworld := 'va8';
133: Resultworld := 'hel1';
134: Resultworld := 'hel2';
135: Resultworld := 'hel3';
136: Resultworld := 'hel4';
137: Resultworld := 'hel5';
end;
end;
procedure something;
begin
Writeln('switching to world '+(Resultworld))
OpenWebPage('Http://'+(Resultworld)+'.runescape.com/l0,p0,j1');
end;
begin
chooseworld;
something;
end.
ok well i am having a couple of problems firstly it doesnt want to open the page i tell it to i just comes up with the box do you wish to grant access to this webpage i click yes. (also is there away around so that box never pops up as i will have to click grant access if each world
) after i click yes it does nothing which is a bit weird
also if i type the world in manual it always comes up with the runescape home page for example:
Http://hel4.runescape.com/l0,p0,j1
will go to the runescape homepage instead of the world i choose.
i no there is a way around this with vb 6.0 just by adding the code:
Code:
Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If URL = "http://www.runescape.com/" Then Cancel = True
End Sub
is there anyway i can convert that into scar?
if you could help me i would be extremly greatful and i would be able to fix my rune buyer with world switcher as i forgot about the unfigned aplet thing
thanks for reading this