hedgewars/HHHandlers.inc
changeset 2262 0dc94341bf42
parent 2238 1a0d26408324
child 2302 0f122917d799
--- a/hedgewars/HHHandlers.inc	Tue Jul 14 20:02:07 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Wed Jul 15 00:35:59 2009 +0000
@@ -174,7 +174,10 @@
                        amGirder: CurAmmoGear:= AddGear(0, 0, gtGirder, Ammo^[CurSlot, CurAmmo].Pos, _0, _0, 0);
                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);
                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);
-                       amMortar: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);
+                       amMortar: begin
+				playSound(sndMortar, false, nil);
+				FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);
+				 end;
                       amRCPlane: begin
                                  CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtRCPlane,  0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0);
                                  PlaySound(sndRCPlane, true, nil)