hedgewars/GSHandlers.inc
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;