Fix seduction sound
authorunc0rr
Mon, 20 Oct 2008 21:15:28 +0000
changeset 1388 5e7920f2e2aa
parent 1387 c809c536a58f
child 1389 6e411559cc7b
Fix seduction sound
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon Oct 20 18:56:23 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Oct 20 21:15:28 2008 +0000
@@ -1738,11 +1738,11 @@
 if Gear^.Timer > 250 then
 	begin
 	Gear^.Timer:= 0;
-	inc(Gear^.Pos)
+	inc(Gear^.Pos);
+	if Gear^.Pos = 5 then
+		PlaySound(sndYoohoo, false)
 	end;
 
-if Gear^.Pos = 5 then
-	PlaySound(sndYoohoo, false);
 if Gear^.Pos = 14 then
 	Gear^.doStep:= @doStepSeductionWork
 end;