hedgewars/uGears.pas
changeset 7882 35dfc54ba2c6
parent 7850 fcbb024090a4
child 7988 4b428183d946
equal deleted inserted replaced
7881:3ac3ff6c7c4f 7882:35dfc54ba2c6
   109                 Gear^.Active:= true;
   109                 Gear^.Active:= true;
   110                 Gear^.Health:= 0
   110                 Gear^.Health:= 0
   111                 end
   111                 end
   112             else
   112             else
   113                 dec(Gear^.Health, dmg);
   113                 dec(Gear^.Health, dmg);
   114 
   114 (*
       
   115 This doesn't fit well w/ the new loser sprite which is cringing from an attack.
   115             if (Gear^.Hedgehog^.Team = CurrentTeam) and (Gear^.Damage <> Gear^.Karma)
   116             if (Gear^.Hedgehog^.Team = CurrentTeam) and (Gear^.Damage <> Gear^.Karma)
   116             and (not Gear^.Hedgehog^.King) and (Gear^.Hedgehog^.Effects[hePoisoned] = 0) and (not SuddenDeathDmg) then
   117             and (not Gear^.Hedgehog^.King) and (Gear^.Hedgehog^.Effects[hePoisoned] = 0) and (not SuddenDeathDmg) then
   117                 Gear^.State:= Gear^.State or gstLoser;
   118                 Gear^.State:= Gear^.State or gstLoser;
       
   119 *)
   118 
   120 
   119             spawnHealthTagForHH(Gear, dmg);
   121             spawnHealthTagForHH(Gear, dmg);
   120 
   122 
   121             RenderHealth(Gear^.Hedgehog^);
   123             RenderHealth(Gear^.Hedgehog^);
   122             RecountTeamHealth(Gear^.Hedgehog^.Team);
   124             RecountTeamHealth(Gear^.Hedgehog^.Team);