50 procedure StartSuddenDeath; |
50 procedure StartSuddenDeath; |
51 function GearByUID(uid : Longword) : PGear; |
51 function GearByUID(uid : Longword) : PGear; |
52 function IsClockRunning() : boolean; |
52 function IsClockRunning() : boolean; |
53 |
53 |
54 implementation |
54 implementation |
55 uses SysUtils, uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, |
55 uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, |
56 {$IFDEF USE_TOUCH_INTERFACE}uTouch,{$ENDIF} |
56 {$IFDEF USE_TOUCH_INTERFACE}uTouch,{$ENDIF} |
57 uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
57 uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
58 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, |
58 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, |
59 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
59 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
60 , uVisualGearsList, uGearsHandlersMess, uAI; |
60 , uVisualGearsList, uGearsHandlersMess, uAI; |
290 i:= curHandledGear^.Timer div 1000; |
290 i:= curHandledGear^.Timer div 1000; |
291 j:= (curHandledGear^.Timer mod 1000) div 100; |
291 j:= (curHandledGear^.Timer mod 1000) div 100; |
292 if j = 0 then |
292 if j = 0 then |
293 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall) |
293 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall) |
294 else |
294 else |
295 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i) + FormatSettings.DecimalSeparator + inttostr(j)), $ff808080, fntSmall); |
295 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i) + lDecimalSeparator + inttostr(j)), $ff808080, fntSmall); |
296 end |
296 end |
297 end |
297 end |
298 // Timer of other gears |
298 // Timer of other gears |
299 else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then |
299 else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then |
300 begin |
300 begin |