hedgewars/uTeams.pas
changeset 14940 8b848c2939da
parent 14931 ba5fd934f49b
child 15052 1a754860b0e5
--- a/hedgewars/uTeams.pas	Tue May 14 15:52:53 2019 +0200
+++ b/hedgewars/uTeams.pas	Tue May 14 16:01:55 2019 +0200
@@ -714,6 +714,7 @@
     if checkFails((Health > 0) and (Health <= cMaxHogHealth), 'Invalid hedgehog health (must be between 1 and '+IntToStr(cMaxHogHealth)+')', true) then exit;
     CurrentHedgehog^.Name:= id;
     CurrentHedgehog^.InitialHealth:= Health;
+    CurrentHedgehog^.RevengeHog:= nil;
     inc(HedgehogsNumber)
     end
 end;
@@ -749,6 +750,7 @@
     CurrentHedgehog^.Name:= id;
     CurrentHedgehog^.InitialHealth:= Gear^.Health;
     CurrentHedgehog^.RevengeHog:= nil;
+    CurrentHedgehog^.FlownOffMap:= false;
     CurrHedgehog:= HedgehogsNumber;
     inc(HedgehogsNumber)
     end