9 T_CONSOLE
=0;//Timer for call console
13 procedure SetTimer(t
,i
:integer);
14 function GetTimer(i
:integer):integer;
15 procedure ResetTimer(i
:integer);
16 procedure ResetAllTimers
;
20 Timer_value
:array [0..MaxTimers
] of integer;
21 Timer_time
:array [0..MaxTimers
] of integer;
23 procedure SetTimer(t
,i
:integer);
26 Timer_time
[i
]:=getrelativetimems
;
29 function GetTimer(i
:integer):integer;
33 if Timer_value
[i
]>-1 then
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
];
44 procedure ResetTimer(i
:integer);
50 procedure ResetAllTimers
;
54 for i
:=0 to MaxTimers
do