equal
deleted
inserted
replaced
405 else |
405 else |
406 Gear^.doStep := @doStepDrowningGear; |
406 Gear^.doStep := @doStepDrowningGear; |
407 if Gear^.Kind = gtFlake then |
407 if Gear^.Kind = gtFlake then |
408 exit // skip splashes |
408 exit // skip splashes |
409 end |
409 end |
410 else if (Y > cWaterLine + cVisibleWater) and |
410 else if (Y > cWaterLine + cVisibleWater*4) and |
411 ((Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.AmmoType <> amJetpack)) then |
411 ((Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.AmmoType <> amJetpack)) then |
412 Gear^.doStep:= @doStepDrowningGear; |
412 Gear^.doStep:= @doStepDrowningGear; |
413 if ((not isSubmersible) and (Y < cWaterLine + 64 + Gear^.Radius)) |
413 if ((not isSubmersible) and (Y < cWaterLine + 64 + Gear^.Radius)) |
414 or (isSubmersible and (Y < cWaterLine + 2 + Gear^.Radius) and (Gear = CurAmmoGear) and ((CurAmmoGear^.Pos = 0) |
414 or (isSubmersible and (Y < cWaterLine + 2 + Gear^.Radius) and (Gear = CurAmmoGear) and ((CurAmmoGear^.Pos = 0) |
415 and (CurAmmoGear^.dY < _0_01))) then |
415 and (CurAmmoGear^.dY < _0_01))) then |