# HG changeset patch
# User unc0rr
# Date 1217199701 0
# Node ID b4c0698fbb6bdcc923c98bcaa3386ae4228342e3
# Parent  c5b8f2bfa487ed9662b54d83e7b92a8aa02e9238
 - Fix problem when clouds number is 0
 - Swap two sounds used when hedgehog get damage due to fall

diff -r c5b8f2bfa487 -r b4c0698fbb6b hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Jul 27 22:26:47 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jul 27 23:01:41 2008 +0000
@@ -43,9 +43,9 @@
 if _0_4 < Gear^.dY then
 	begin
 	if _0_6 < Gear^.dY then
-		PlaySound(sndOw1, false)
+		PlaySound(sndOw4, false)
 	else
-		PlaySound(sndOw4, false);
+		PlaySound(sndOw1, false);
 
 	dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70);
 	inc(Gear^.Damage, dmg);
diff -r c5b8f2bfa487 -r b4c0698fbb6b hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Sun Jul 27 22:26:47 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Jul 27 23:01:41 2008 +0000
@@ -256,8 +256,8 @@
 procedure AddClouds;
 var i: LongInt;
 begin
-for i:= 0 to cCloudsNumber do
-    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -160, vgtCloud)
+for i:= 0 to cCloudsNumber - 1 do
+    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div (cCloudsNumber + 1)), -160, vgtCloud)
 end;
 
 initialization