equal
deleted
inserted
replaced
272 if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear); |
272 if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear); |
273 curHandledGear^.Message:= curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList)) |
273 curHandledGear^.Message:= curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList)) |
274 end; |
274 end; |
275 if curHandledGear^.Active then |
275 if curHandledGear^.Active then |
276 begin |
276 begin |
277 if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then |
277 if curHandledGear^.RenderTimer then |
278 begin |
278 begin |
279 FreeAndNilTexture(curHandledGear^.Tex); |
279 if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then |
280 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(curHandledGear^.Timer div 1000)), cWhiteColor, fntSmall); |
280 begin |
|
281 if curHandledGear^.Tex = nil then |
|
282 begin |
|
283 i:= curHandledGear^.Timer; |
|
284 if (i > 0) and (i < 1000) then |
|
285 i:= 1 |
|
286 else |
|
287 i:= curHandledGear^.Timer div 1000; |
|
288 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall); |
|
289 end; |
|
290 end |
|
291 else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then |
|
292 begin |
|
293 FreeAndNilTexture(curHandledGear^.Tex); |
|
294 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(curHandledGear^.Timer div 1000)), cWhiteColor, fntSmall); |
|
295 end; |
281 end; |
296 end; |
282 curHandledGear^.doStep(curHandledGear); |
297 curHandledGear^.doStep(curHandledGear); |
283 end |
298 end |
284 end |
299 end |
285 end; |
300 end; |