Morten4800
2008-12-22 16:21:49
Hello guys, i found a script on the smart forum tutorial section about testing smart.
I used this script:
program TestSMARTLogin;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'mynameinhere';
Players[0].Pass := 'mypasswordinhere';
Players[0].Nick := 'letters'; //3-4 letters from name
Players[0].Active:= True;
end;
begin
SMARTSetUp('world38', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Wait(2000);
MMouse(388, 281, 3, 3);
Wait(2000);
MMouse(4, 100, 3, 3);
Wait(3000);
LogOut;
TerminateScript;
end.
but then it writes: Line 18: [Error] (16330:41): Invalid number of parameters in script
So what is wrong? I have scar 3.15b, and rev #30, just installed it.
I used this script:
program TestSMARTLogin;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'mynameinhere';
Players[0].Pass := 'mypasswordinhere';
Players[0].Nick := 'letters'; //3-4 letters from name
Players[0].Active:= True;
end;
begin
SMARTSetUp('world38', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Wait(2000);
MMouse(388, 281, 3, 3);
Wait(2000);
MMouse(4, 100, 3, 3);
Wait(3000);
LogOut;
TerminateScript;
end.
but then it writes: Line 18: [Error] (16330:41): Invalid number of parameters in script
So what is wrong? I have scar 3.15b, and rev #30, just installed it.