src/utils.mpsrc

   1 unit utils;
   2
   3 interface
   4 const
   5  MaxTimers=2;
   6  TIMER_ERROR=-1;
   7  TIMER_OK=0;
   8
   9  T_CONSOLE=0;//Timer for call console
  10  T_KEY_DIVITEM=1;
  11  T_KEY_DROPITEM=2;
  12
  13 procedure SetTimer(t,i:integer);
  14 function GetTimer(i:integer):integer;
  15 procedure ResetTimer(i:integer);
  16 procedure ResetAllTimers;
  17
  18 implementation
  19  var
  20   Timer_value:array [0..MaxTimers] of integer;
  21   Timer_time:array [0..MaxTimers] of integer;
  22
  23 procedure SetTimer(t,i:integer);
  24  begin
  25   Timer_value[i]:=t;
  26   Timer_time[i]:=getrelativetimems;
  27  end;
  28
  29 function GetTimer(i:integer):integer;
  30  var
  31   dt:integer;
  32  begin
  33   if Timer_value[i]>-1 then
  34    begin
  35     dt:=Timer_time[i]-getrelativetimems;
  36     Timer_value[i]:=Timer_value[i]+dt;
  37     if Timer_value[i]<0 then Timer_value[i]:=0;
  38     Timer_time[i]:=getrelativetimems;
  39     GetTimer:=Timer_value[i];
  40    end;
  41   else GetTimer:=-1;
  42  end;
  43
  44 procedure ResetTimer(i:integer);
  45  begin
  46   Timer_value[i]:=-1;
  47   Timer_time[i]:=-1;
  48  end;
  49
  50 procedure ResetAllTimers;
  51  var
  52   i:integer;
  53  begin
  54   for i:=0 to MaxTimers do
  55    begin
  56     Timer_value[i]:=-1;
  57     Timer_time[i]:=-1;
  58    end;
  59  end;
  60
  61 initialization
  62  ResetAllTimers;
  63 end.