equal
deleted
inserted
replaced
455 begin |
455 begin |
456 if (hwRound(Gear^.Y) >= cWaterLine) then |
456 if (hwRound(Gear^.Y) >= cWaterLine) then |
457 begin |
457 begin |
458 t:= max(Gear^.Damage, Gear^.Health); |
458 t:= max(Gear^.Damage, Gear^.Health); |
459 Gear^.Damage:= t; |
459 Gear^.Damage:= t; |
460 AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
460 if cWaterOpacity < $FF then |
|
461 AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
461 uStats.HedgehogDamaged(Gear) |
462 uStats.HedgehogDamaged(Gear) |
462 end; |
463 end; |
463 |
464 |
464 team:= PHedgehog(Gear^.Hedgehog)^.Team; |
465 team:= PHedgehog(Gear^.Hedgehog)^.Team; |
465 if CurrentHedgehog^.Gear = Gear then |
466 if CurrentHedgehog^.Gear = Gear then |