# HG changeset patch
# User unc0rr
# Date 1224537328 0
# Node ID 5e7920f2e2aaf3dab78996a945b3bb8c5e199b7a
# Parent  c809c536a58f799554a832276ba34b9064e33013
Fix seduction sound

diff -r c809c536a58f -r 5e7920f2e2aa 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;