hedgewars/GSHandlers.inc
changeset 3320 506f7d6a82b3
parent 3307 275af46392bd
child 3342 b4f01613dcd7
--- a/hedgewars/GSHandlers.inc	Wed Apr 07 03:29:38 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Apr 07 12:15:49 2010 +0000
@@ -982,7 +982,7 @@
     Gear^.Friction:= _450;
     Gear^.Elasticity:= _0;
     Gear^.State:= Gear^.State and not gsttmpflag;
-    Gear^.doStep:= @doStepRope
+    Gear^.doStep:= @doStepRope;
     end
 end;
 
@@ -1021,6 +1021,7 @@
 if ((HHGear^.State and gstHHDriven) = 0)
     or (CheckGearDrowning(HHGear)) then
     begin
+    PlaySound(sndRopeRelease);
     DeleteMe;
     exit
     end;
@@ -1159,10 +1160,13 @@
 if (Gear^.Message and gm_Attack) <> 0 then
     if (Gear^.State and gsttmpFlag) <> 0 then
         with PHedgehog(Gear^.Hedgehog)^ do
+            begin
+            PlaySound(sndRopeRelease);
             if Ammo^[CurSlot, CurAmmo].AmmoType <> amParachute then
                 WaitCollision
             else
                 DeleteMe
+            end
     else
 else
     if (Gear^.State and gsttmpFlag) = 0 then
@@ -1223,6 +1227,7 @@
             Gear^.Y:= Gear^.Y + ty;
             Gear^.Elasticity:= tt;
             Gear^.doStep:= @doStepRopeWork;
+            PlaySound(sndRopeAttach);
             with HHGear^ do State:= State and not (gstAttacking or gstHHJumping or gstHHHJump);
 
             RemoveFromAmmo;
@@ -1244,6 +1249,7 @@
     else
         begin
         Gear^.doStep:= @doStepRopeWork;
+        PlaySound(sndRopeAttach);
         with HHGear^ do State:= State and not (gstAttacking or gstHHJumping or gstHHHJump);
 
         RemoveFromAmmo;
@@ -1269,7 +1275,8 @@
 begin
 Gear^.dX:= - Gear^.dX;
 Gear^.dY:= - Gear^.dY;
-Gear^.doStep:= @doStepRopeAttach
+Gear^.doStep:= @doStepRopeAttach;
+PlaySound(sndRopeShot)
 end;
 
 ////////////////////////////////////////////////////////////////////////////////