changeset 3145 | a9af6bf223cf |
parent 3143 | 682bc7f99c63 |
child 3146 | 53ba22975536 |
--- a/hedgewars/GSHandlers.inc Sun Mar 28 23:05:33 2010 +0000 +++ b/hedgewars/GSHandlers.inc Sun Mar 28 23:10:33 2010 +0000 @@ -2833,6 +2833,8 @@ if Gear^.Health < 0 then Gear^.Health:= 0; if (GameTicks and $3F) = 0 then begin + if Gear^.Timer < 500 then + AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFeather); if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) end;