hedgewars/GSHandlers.inc
changeset 2227 743218daf878
parent 2226 e35b62cb7a1c
child 2228 7f4613bae01a
--- a/hedgewars/GSHandlers.inc	Sun Jul 05 16:37:05 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jul 06 00:39:32 2009 +0000
@@ -1516,7 +1516,8 @@
 		HHGear^.State:= HHGear^.State and not gstAttacking;
 		HHGear^.State:= HHGear^.State or gstHHChooseTarget;
 		DeleteGear(Gear);
-		isCursorVisible:= true
+		isCursorVisible:= true;
+		PlaySound(sndDenied, false, nil);
 		end
 	else begin
 		DeleteCI(HHGear);
@@ -1526,10 +1527,10 @@
 		Gear^.Y:= HHGear^.Y;
 		HHGear^.X:= int2hwFloat(TargetPoint.X);
 		HHGear^.Y:= int2hwFloat(TargetPoint.Y);
-		HHGear^.State:= HHGear^.State or gstMoving
+		HHGear^.State:= HHGear^.State or gstMoving;
+		playSound(sndWarp, false, nil);
 		end;
 TargetPoint.X:= NoPointX;
-playSound(sndWarp, false, nil);
 
 end;