hedgewars/uGearsList.pas
changeset 13812 1f15b0ee8e34
parent 13742 bbea77a8dff9
child 13855 4e4111a75256
equal deleted inserted replaced
13811:54725a1d1db8 13812:1f15b0ee8e34
   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