57 lines
1.3 KiB
Plaintext
57 lines
1.3 KiB
Plaintext
unit TimeStatus; { Unit TimeStatus - by RoboCop of nOOb }
|
|
|
|
interface
|
|
var TC_ST: longint;
|
|
|
|
procedure InitTimer;
|
|
function TimeGone: longint;
|
|
function PerMin(what: longint): real;
|
|
function PerSec(what: longint): real;
|
|
function PerMS(what: longint): real;
|
|
|
|
implementation
|
|
|
|
uses Dos;
|
|
|
|
procedure InitTimer;
|
|
var h,m,s,hu: word;
|
|
i,n,t,iv: longint;
|
|
begin
|
|
GetTime(h,m,s,hu);
|
|
i:=h; n:=m; t:=s; iv:=hu;
|
|
TC_ST := i*360000 + n*6000 + t*100 + iv;
|
|
end;
|
|
|
|
function TimeGone: longint;
|
|
var h,m,s,hu: word;
|
|
i,n,t,iv: longint;
|
|
begin
|
|
GetTime(h,m,s,hu);
|
|
i:=h; n:=m; t:=s; iv:=hu;
|
|
TimeGone := ( i*360000 + n*6000 + t*100 + iv ) - TC_ST;
|
|
end;
|
|
|
|
function PerMin(what: longint): real;
|
|
var TG: longint;
|
|
begin
|
|
TG := TimeGone;
|
|
if TG<>0 then PerMin := what / ( TimeGone / 6000 ) else PerMin := 0;
|
|
end;
|
|
|
|
function PerSec(what: longint): real;
|
|
var TG: longint;
|
|
begin
|
|
TG := TimeGone;
|
|
if TG<>0 then PerSec := what / ( TimeGone / 100 ) else PerSec := 0;
|
|
end;
|
|
|
|
function PerMS(what: longint): real;
|
|
var TG: longint;
|
|
begin
|
|
TG := TimeGone;
|
|
if TG<>0 then PerMS := what / TimeGone else PerMS := 0;
|
|
end;
|
|
|
|
begin
|
|
WriteLn('þ Loading Unit: TimeStatus - RoboCop of nOOb <Robo.Cop@gmx.net>');
|
|
end. |