changeset 3399 | 885304636abf |
parent 3396 | e5b3e5f2818e |
child 3405 | 8fdb08497bf1 |
3398:ede254e24545 | 3399:885304636abf |
---|---|
521 begin |
521 begin |
522 if (hwRound(Gear^.Y) >= cWaterLine) then |
522 if (hwRound(Gear^.Y) >= cWaterLine) then |
523 begin |
523 begin |
524 t:= max(Gear^.Damage, Gear^.Health); |
524 t:= max(Gear^.Damage, Gear^.Health); |
525 Gear^.Damage:= t; |
525 Gear^.Damage:= t; |
526 if cWaterOpacity < $FF then |
526 if (cWaterOpacity < $FF) and (hwRound(Gear^.Y) < cWaterLine + 256) then |
527 AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
527 AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
528 uStats.HedgehogDamaged(Gear) |
528 uStats.HedgehogDamaged(Gear) |
529 end; |
529 end; |
530 |
530 |
531 team:= PHedgehog(Gear^.Hedgehog)^.Team; |
531 team:= PHedgehog(Gear^.Hedgehog)^.Team; |