hedgewars/uGears.pas
changeset 12938 b075ad6112c9
parent 12928 fa402ce826c2
child 13031 bef97cc310b0
--- a/hedgewars/uGears.pas	Fri Feb 09 11:30:04 2018 +0100
+++ b/hedgewars/uGears.pas	Fri Feb 09 12:08:12 2018 +0100
@@ -542,7 +542,10 @@
         t^.PortalCounter:= 0;
         if ((GameFlags and gfResetHealth) <> 0) and (t^.Kind = gtHedgehog) and (t^.Health < t^.Hedgehog^.InitialHealth) then
             begin
+            i:= t^.Hedgehog^.InitialHealth - t^.Health;
             t^.Health:= t^.Hedgehog^.InitialHealth;
+            if i > 0 then
+                HHHeal(t^.Hedgehog, i, false, $00FF0040);
             RenderHealth(t^.Hedgehog^);
             end;
         t:= t^.NextGear