1655 end;

  1655 end;

  1656 

  1656 

  1657 procedure ResurrectHedgehog(gear: PGear);

  1657 procedure ResurrectHedgehog(gear: PGear);

  1658 var tempTeam : PTeam;

  1658 var tempTeam : PTeam;

  1659 begin

  1659 begin

  1660     gear^.dX := _0;

  1661     gear^.dX := _0;

  1661     gear^.dY := _0;

  1662     gear^.dY := _0;

  1662     gear^.Damage := 0;

  1663     gear^.Damage := 0;

  1663     gear^.Health := gear^.Hedgehog^.InitialHealth;

  1664     gear^.Health := gear^.Hedgehog^.InitialHealth;

  1664     gear^.Hedgehog^.Effects[hePoisoned] := false;

  1665     gear^.Hedgehog^.Effects[hePoisoned] := false;