--- a/hedgewars/GSHandlers.inc Fri Nov 12 12:21:40 2010 -0500
+++ b/hedgewars/GSHandlers.inc Fri Nov 12 12:25:38 2010 -0500
@@ -4044,9 +4044,9 @@
else
begin
i:= Gear^.Health div 5;
- if i <> Gear^.Tag then
+ if i <> Gear^.Damage then
begin
- Gear^.Tag:= i;
+ Gear^.Damage:= i;
if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) +
'%', cWhiteColor, fntSmall)
--- a/hedgewars/uGears.pas Fri Nov 12 12:21:40 2010 -0500
+++ b/hedgewars/uGears.pas Fri Nov 12 12:25:38 2010 -0500
@@ -531,7 +531,7 @@
gear^.Tag:= 10;
gear^.Timer:= 10;
gear^.Health:= 500;
- gear^.Tag:= 100;
+ gear^.Damage:= 100;
end;
gtPoisonCloud: begin
gear^.Timer:= 5000;