equal
deleted
inserted
replaced
2831 end; |
2831 end; |
2832 |
2832 |
2833 if Gear^.Health < 0 then Gear^.Health:= 0; |
2833 if Gear^.Health < 0 then Gear^.Health:= 0; |
2834 if (GameTicks and $3F) = 0 then |
2834 if (GameTicks and $3F) = 0 then |
2835 begin |
2835 begin |
2836 if Gear^.Timer < 500 then |
2836 if Gear^.Health < 500 then |
2837 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFeather); |
2837 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFeather); |
2838 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2838 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2839 Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2839 Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2840 end; |
2840 end; |
2841 |
2841 |