SRL Archive - S.M.A.R.T. Questions and Answers.

Smart problem


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:

mixster

2008-02-22 13:18:03

Post the script (only the bit where you set up SMART), though I'm guessing you used 'end.' instead of 'end;' in the setup procedure

weequ

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;

mixster

2008-02-22 20:29:15

You said it happens on all scripts, so it might be your SMART files, as the SMART setting up bit looks fine. If it only happens in that script, then it would be in another section of it (probably LoginSetup).