equal
deleted
inserted
replaced
662 end |
662 end |
663 else*) |
663 else*) |
664 begin |
664 begin |
665 if ((CurrentHedgehog = nil) or (Gear <> CurrentHedgehog^.Gear)) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then |
665 if ((CurrentHedgehog = nil) or (Gear <> CurrentHedgehog^.Gear)) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then |
666 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
666 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
667 if not CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then |
667 if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then |
668 begin |
668 begin |
669 t:= max(Gear^.Damage, Gear^.Health); |
669 t:= max(Gear^.Damage, Gear^.Health); |
670 Gear^.Damage:= t; |
670 Gear^.Damage:= t; |
671 if (((not SuddenDeathDmg) and (WaterOpacity < $FF)) or (SuddenDeathDmg and (SDWaterOpacity < $FF))) then |
671 if (((not SuddenDeathDmg) and (WaterOpacity < $FF)) or (SuddenDeathDmg and (SDWaterOpacity < $FF))) then |
672 spawnHealthTagForHH(Gear, t); |
672 spawnHealthTagForHH(Gear, t); |