SRL Archive - Other Scripts

When I Design my Scripts i have timed Logouts for all procedures, and most good scripters do, to simplfy how i come up with my timeouts i wrote this quick script, basicly hold F9 key down while your timing something then release and it will printout the times. Also F10 ends the script because when i'm using it its normally my second scar window open so the hotkeys don't work. Hope someone else finds it simiuseful

[php]
program StupiderTimerThinger;

{.include srl\srl.scar}

var I : Integer;
begin

repeat
Wait ( 1000 );

if ( IsFKeyDown ( 9 ) ) then
begin
MarkTime ( Mark );
while ( IsFKeyDown ( 9 ) ) do
Wait ( 1 );
I := TimeFromMark ( Mark );
WriteLn ( '–> Total MiliSeconds : ' + IntToStr ( I ) );
WriteLn ( '–> Total Seconds : ' + IntToStr ( I / 1000 ) );
WriteLn ( '–> Total Minutes : ' + IntToStr ( I / 6000 ) );
end;

until ( IsFKeyDown ( 10 ) );
end.
[/php]