XXX_jphamlett
2009-02-21 22:35:40
alright so evrytime a scripts opens up smart it ends the script whenm it gets done lading and hads no error or anyhting
2009-02-21 22:35:40
2009-03-09 04:48:55
program TestSMARTLogin;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Youe Rs username
Players[0].Pass := ''; //Your RS password
Players[0].Nick := ''; //3-4 letters from name
Players[0].Active:= True;
end;
begin
SMARTSetupEx(2, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Wait(2000 + Random(1000));
MMouse(388, 281, 3, 3);
Wait(2000 + Random(1000));
MMouse(4, 100, 3, 3);
Wait(3000 + Random(1000));
LogOut;
TerminateScript;
end.