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

When I use mmouse to move the smart's cursor, it moves painfully slow. I'd say about 2inches per minute. How can I fix this? In other scripts its moves nice and fast, so it isn't a slow-computer issue.

My script is as follows -

program Test;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}

var Playername:string;
var Password:string;


Procedure SetupScript;
Begin
Playername:='Removed =P';
Password:='Remove =P';
end;

Procedure SetUpSMART;
Begin

 Begin
   WriteLn('Making S.M.A.R.T Ready');
   SmartSetupEx(108, false, true);

     Repeat
       wait(100);
     Until(SmartReady);

    If (SmartReady) then
     wait(1000+Random(2000));
     WriteLn('Loaded S.M.A.R.T');
     SetTargetDC(SmartGetDC);
     Exit;
  end;
end;

{==============================================================}

Procedure Login(UN:string; PW:string);
begin
     //See if we need to turn off the blasted sound

     if not (GetColor(751, 472) = 1315974) then
     begin
          WriteLn('Turning off the sound');
          MMouse(741, 478, 0, 0);
          MMouse(5, 5, 0, 0);
          Mouse(741, 478, 0, 0, true);
     end;


end;

begin


SetupScript;
SetupSMART;

WriteLn('Waiting for your crap computer to load S.M.A.R.T....');
Repeat
       wait(1500);
Until( GetColor(310, 247) = 65535);
WriteLn('S.M.A.R.T. Loaded');

//Smarts ready to go, lets login
Login(Playername, Password);
WriteLn('Login Done');


end.

You forget SetUpSRL;

Allways add "SetUpSRL" at the very start of the mainloop.

In your case, that would be right before 'SetUpScript' in your mainloop.

I think your supposed to have setupsmart before setupsrl, but I guess it doesn't matter if your script works, but anyways you could do mousespeed=''; under const, I think.

SetupSRL; 

that sets the MouseSpeed :)