# HG changeset patch
# User nemo
# Date 1363222946 14400
# Node ID b39f433f8ab47d44a3bd2cfe61f393d8f7767767
# Parent  b19be476a2fa1447a90ef43fc685b72cca6e564a
at vatten's request. make resurrection always resurrect at least 1 hp out of kindness to noobs who can't be bothered to read tooltips

diff -r b19be476a2fa -r b39f433f8ab4 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue Mar 12 22:35:57 2013 -0400
+++ b/hedgewars/GSHandlers.inc	Wed Mar 13 21:02:26 2013 -0400
@@ -4732,6 +4732,7 @@
 procedure doStepResurrector(Gear: PGear);
 var
     graves: PGearArrayS;
+    hh: PHedgehog;
     i: LongInt;
 begin
     AllInactive := false;
@@ -4739,12 +4740,24 @@
 
     if graves.size > 0 then
         begin
+        hh := Gear^.Hedgehog;
         for i:= 0 to graves.size - 1 do
             begin
             PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := nil;
             graves.ar^[i]^.Health := 0;
             end;
         Gear^.doStep := @doStepResurrectorWork;
+        if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then
+            begin
+            if LongInt(graves.size) <= Gear^.Tag then Gear^.Tag:= 0;
+            dec(hh^.Gear^.Health);
+            if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
+                hh^.Gear^.Damage:= 1;
+            RenderHealth(hh^);
+            RecountTeamHealth(hh^.Team);
+            inc(graves.ar^[Gear^.Tag]^.Health);
+            inc(Gear^.Tag)
+            end 
         end 
     else 
         begin