hedgewars/uGearsList.pas
changeset 13737 bbea77a8dff9
parent 13651 56a925256039
child 13850 4e4111a75256
equal deleted inserted replaced
13736:2ac3658a2a13 13737:bbea77a8dff9
   866             Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
   866             Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
   867         if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then
   867         if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then
   868             begin
   868             begin
   869             t:= max(Gear^.Damage, Gear^.Health);
   869             t:= max(Gear^.Damage, Gear^.Health);
   870             Gear^.Damage:= t;
   870             Gear^.Damage:= t;
   871             if (((not SuddenDeathDmg) and (WaterOpacity < $FF)) or (SuddenDeathDmg and (SDWaterOpacity < $FF))) then
   871             // Display hedgehog damage in water
   872                 spawnHealthTagForHH(Gear, t);
   872             spawnHealthTagForHH(Gear, t);
   873             end;
   873             end;
   874 
   874 
   875         team:= Gear^.Hedgehog^.Team;
   875         team:= Gear^.Hedgehog^.Team;
   876         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear = Gear) then
   876         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear = Gear) then
   877             begin
   877             begin