5088         if graves.size <= Gear^.Tag then Gear^.Tag:= 0;

  5088         if graves.size <= Gear^.Tag then Gear^.Tag:= 0;

  5089         dec(hh^.Gear^.Health);

  5089         dec(hh^.Gear^.Health);

  5090         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then

  5090         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then

  5091             hh^.Gear^.Damage:= 1;

  5091             hh^.Gear^.Damage:= 1;

  5092         RenderHealth(hh^);

  5092         RenderHealth(hh^);

  5093         inc(graves.ar^[Gear^.Tag]^.Health);

  5094         inc(graves.ar^[Gear^.Tag]^.Health);

  5094         inc(Gear^.Tag)

  5095         inc(Gear^.Tag)

  5095 {-for i:= 0 to High(graves) do begin

  5096 {-for i:= 0 to High(graves) do begin

  5096             if hh^.Gear^.Health > 0 then begin

  5097             if hh^.Gear^.Health > 0 then begin

  5097                 dec(hh^.Gear^.Health);

  5098                 dec(hh^.Gear^.Health);

  5108                 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);

  5109                 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);

  5109                 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog;

  5110                 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog;

  5110                 resgear^.Health := graves.ar^[i]^.Health;

  5111                 resgear^.Health := graves.ar^[i]^.Health;

  5111                 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;

  5112                 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;

  5112                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;

  5113                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;

  5113                 RenderHealth(resgear^.Hedgehog^);

  5115                 RenderHealth(resgear^.Hedgehog^);

  5114                 RecountTeamHealth(resgear^.Hedgehog^.Team);

  5116                 RecountTeamHealth(resgear^.Hedgehog^.Team);

  5115                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;

  5117                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;

  5116                 // only make hat-less hedgehogs look like zombies, preserve existing hats

  5118                 // only make hat-less hedgehogs look like zombies, preserve existing hats

  5117 

  5119