equal
deleted
inserted
replaced
755 if Gear^.Kind = gtFlake then |
755 if Gear^.Kind = gtFlake then |
756 exit(true); // skip splashes |
756 exit(true); // skip splashes |
757 end |
757 end |
758 else // submersible |
758 else // submersible |
759 begin |
759 begin |
760 // drown submersible grears if far below map |
760 // drown submersible gears if far below map |
761 if (Y > cWaterLine + cVisibleWater*4) then |
761 if (Y > cWaterLine + cVisibleWater*4) then |
762 begin |
762 begin |
763 DrownGear(Gear); |
763 DrownGear(Gear); |
764 exit(true); // no splashes needed |
764 exit(true); // no splashes needed |
765 end; |
765 end; |
794 end; // end of submersible |
794 end; // end of submersible |
795 end; // end of not skipping |
795 end; // end of not skipping |
796 |
796 |
797 // splash sound animation and droplets |
797 // splash sound animation and droplets |
798 if isImpact or isSkip then |
798 if isImpact or isSkip then |
799 addSplashForGear(Gear, isSkip); |
799 if (not (((dist2Water + Gear^.Radius div 2) < 0) or (abs(dist2Water + Gear^.Radius) >= Gear^.Radius))) then |
|
800 addSplashForGear(Gear, isSkip); |
800 |
801 |
801 if isSkip then |
802 if isSkip then |
802 ScriptCall('onGearWaterSkip', Gear^.uid); |
803 ScriptCall('onGearWaterSkip', Gear^.uid); |
803 end |
804 end |
804 else |
805 else |