equal
deleted
inserted
replaced
680 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then |
680 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then |
681 begin |
681 begin |
682 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
682 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
683 Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall); |
683 Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall); |
684 end; |
684 end; |
685 AddFileLog('doing step for gear '+intToStr(Gear^.uid)+' (type '+EnumToStr(Gear^.Kind)+')'); |
|
686 Gear^.doStep(Gear); |
685 Gear^.doStep(Gear); |
687 end |
686 end |
688 end; |
687 end; |
689 |
688 |
690 if AllInactive then |
689 if AllInactive then |