hedgewars/uGearsUtils.pas
changeset 10668 a15d57d941a1
parent 10659 79e466c393f7
child 10789 acbf69e2e5cf
equal deleted inserted replaced
10667:5bd2fa61f25b 10668:a15d57d941a1
   696 
   696 
   697         // splash sound animation and droplets
   697         // splash sound animation and droplets
   698         if isImpact or isSkip then
   698         if isImpact or isSkip then
   699             addSplashForGear(Gear, isSkip);
   699             addSplashForGear(Gear, isSkip);
   700 
   700 
       
   701         if isSkip then
       
   702             ScriptCall('onGearWaterSkip', Gear^.uid);
   701         end
   703         end
   702     else
   704     else
   703         begin
   705         begin
   704         if (not ((Gear^.Kind = gtJetpack) or (Gear^.Kind = gtBee))) then
   706         if (not ((Gear^.Kind = gtJetpack) or (Gear^.Kind = gtBee))) then
   705             Gear^.State:= (Gear^.State and (not gstSubmersible));  // making it temporary for most gears is more attractive I think
   707             Gear^.State:= (Gear^.State and (not gstSubmersible));  // making it temporary for most gears is more attractive I think