hedgewars/uGearsHandlersRope.pas
changeset 7674 aead327f1e1a
parent 7662 35d895dcd6f7
child 8397 5b273af3ac95
equal deleted inserted replaced
7673:e06b83cbde74 7674:aead327f1e1a
   321     if (Gear^.Message and gmAttack) <> 0 then
   321     if (Gear^.Message and gmAttack) <> 0 then
   322         haveCollision:= false;
   322         haveCollision:= false;
   323 
   323 
   324     HHGear^.dX.QWordValue:= HHGear^.dX.QWordValue shr 2;
   324     HHGear^.dX.QWordValue:= HHGear^.dX.QWordValue shr 2;
   325     HHGear^.dY.QWordValue:= HHGear^.dY.QWordValue shr 2;
   325     HHGear^.dY.QWordValue:= HHGear^.dY.QWordValue shr 2;
   326     if not haveCollision then
   326     if (not haveCollision) and ((Gear^.State and gsttmpFlag) <> 0) then
   327         begin
   327         begin
   328         if (Gear^.State and gsttmpFlag) <> 0 then
       
   329             begin
   328             begin
   330             PlaySound(sndRopeRelease);
   329             PlaySound(sndRopeRelease);
   331             if Gear^.Hedgehog^.CurAmmoType <> amParachute then
   330             if Gear^.Hedgehog^.CurAmmoType <> amParachute then
   332                 RopeWaitCollision(Gear, HHGear)
   331                 RopeWaitCollision(Gear, HHGear)
   333             else
   332             else