--- a/hedgewars/VGSHandlers.inc Fri May 07 04:52:46 2010 +0000
+++ b/hedgewars/VGSHandlers.inc Fri May 07 06:29:46 2010 +0000
@@ -429,13 +429,8 @@
////////////////////////////////////////////////////////////////////////////////
procedure doStepHealthTagWork(Gear: PVisualGear; Steps: Longword);
begin
-//if Gear^.Kind = gtHealthTag then
-// AllInactive:= false;
-
if Steps > Gear^.Timer then
begin
-// if (Gear^.Kind = vgtHealthTag) and (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then
-// PHedgehog(Gear^.Hedgehog)^.Gear^.Active:= true; // to let current hh die
DeleteVisualGear(Gear);
end
else
@@ -447,8 +442,6 @@
procedure doStepHealthTagWorkUnderWater(Gear: PVisualGear; Steps: Longword);
begin
-//AllInactive:= false;
-
if hwRound(Gear^.Y) < cWaterLine + 10 then
DeleteVisualGear(Gear)
else
@@ -459,14 +452,14 @@
procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword);
var s: shortstring;
begin
-//AllInactive:= false;
-
s:= '';
Gear^.dY:= -_0_08;
str(Gear^.State, s);
Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, fnt16);
+// if you segfault here you probably added this healthtag directly
+// maybe you should call spawnHealthTagForHH() in uGears.pas instead
if hwRound(Gear^.Y) < cWaterLine then
Gear^.doStep:= @doStepHealthTagWork