weequ
2008-02-22 13:00:55
Scripts like Forest Frostbite works well with normal rs client but when I run with smart all scripts seems to just log me in and click the click here to continue buttom. So please help me.:bart:
2008-02-22 13:00:55
2008-02-22 13:18:03
2008-02-22 17:53:39
Procedure Setup;
Begin
ClearDebug;
ClearReport;
Writeln('Waiting For SMART to Start...');
Case Random(68) of
0: Prefix := 'above2';
1: Prefix := 'above3';
2: Prefix := 'me5';
3: Prefix := 'jolt8';
4: Prefix := 'nl3';
5: Prefix := 'nl4';
6: Prefix := 'mn2';
7: Prefix := 'mn3';
8: Prefix := 'nav1';
9: Prefix := 'nl7';
10: Prefix := 'nl8';
11: Prefix := 'nl11';
12: Prefix := 'me6';
13: Prefix := 'po7';
14: Prefix := 'ul1';
15: Prefix := 'at1';
16: Prefix := 'at2';
17: Prefix := 'at3';
18: Prefix := 'nav3';
19: Prefix := 'ny9';
20: Prefix := 'ny11';
21: Prefix := 'ny12';
22: Prefix := 'sl11';
23: Prefix := 'above5';
24: Prefix := 'ams2';
25: Prefix := 'ams3';
26: Prefix := 'ams4';
27: Prefix := 'ch1';
28: Prefix := 'ch3';
29: Prefix := 'se1';
30: Prefix := 'se2';
31: Prefix := 'se3';
32: Prefix := 'jolt10';
33: Prefix := 'jolt11';
34: Prefix := 'nav9';
35: Prefix := 'sl3';
36: Prefix := 'sl4';
37: Prefix := 'jolt1';
38: Prefix := 'jolt2';
39: Prefix := 'ny1v';
40: Prefix := 'ny2';
41: Prefix := 'ny4';
42: Prefix := 'ny7';
43: Prefix := 'mi1';
44: Prefix := 'mi2';
45: Prefix := 'mi3';
46: Prefix := 'mi4';
47: Prefix := 'at7';
48: Prefix := 'at8';
49: Prefix := 'mn8';
50: Prefix := 'mn9';
51: Prefix := 'au1';
52: Prefix := 'au2';
53: Prefix := 'au3';
54: Prefix := 'nav4';
55: Prefix := 'swe1';
56: Prefix := 'swe2';
57: Prefix := 'swe3';
58: Prefix := 'jlv1';
69: Prefix := 'jlv2';
60: Prefix := 'jlv3';
61: Prefix := 'jlv4';
62: Prefix := 'hel1';
63: Prefix := 'hel2';
64: Prefix := 'hel3';
65: Prefix := 'hel4';
66: Prefix := 'me1';
67: Prefix := 'me2';
end;
SmartSetup(Prefix, False, true);
while not(SmartReady) do
Wait(100);
SetTargetDC(SmartGetDC);
if not(LoggedIn) then
while not(SmartGetColor(386, 249) = 65535) do
Wait(100);
SetupSRL;
ScriptID := '547';
Disguise('Forest Frostbite');
GetApplication.BringToFront;
if Trim(GetPage('http://fr0zns0ul.freehostia.com/Version.txt')) > '1.5' then
if Pos('iew', Lowercase(Readln('v' + GetPage('http://fr0zns0ul.freehostia.com/Version.txt') + ' Released. Type ' + #39 + 'View' + #39 + ' to Update.'))) > 0 then
Begin
OpenWebPage('http://www.srl-forums.com/forum/forest-frostbite-p305759.html');
TerminateScript;
end;
try
SafeFr0zNForm;
SafeShowFr0zNFormModal;
finally
Fr0znFormDesign.Close;
FreeForm(Fr0znFormDesign);
if Tries = 1 then
TerminateScript;
end;
for i := 0 to HowManyPlayers - 1 do
if Not(Players[i].Strings[4] = '') then
Begin
SRLID := Players[i].Strings[4];
SRLPassword := Players[i].Strings[5];
Break;
end;
ActivateClient;
Wait(500);
CurrentPlayer := Random(HowManyPlayers);
LoginPlayer;
LoginSetup;
FreeSlot := 1;
x := 540 + random(200);
y := 180 + random(250);
TreeCoord[0].x := 280;
TreeCoord[0].y := 90;
TreeCoord[1].x := 290;
TreeCoord[1].y := 130;
ActivePlayers := HowManyPlayers;
end;
2008-02-22 20:29:15