--- 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;
////////////////////////////////////////////////////////////////////////////////