# HG changeset patch
# User nemo
# Date 1411009404 14400
# Node ID ee4e6d392b31b65e87457c3a9252e42a005d9284
# Parent  0972bf43e8fc81843e23c6d4698cdc432309946c
Make it a bit easier/safer to build ice bridges

diff -r 0972bf43e8fc -r ee4e6d392b31 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Tue Sep 09 10:48:11 2014 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Sep 17 23:03:24 2014 -0400
@@ -5569,7 +5569,10 @@
                         Power := GameTicks;
                         end
                     end
-                else if (target.y >= cWaterLine) then
+                else if (Target.Y >= cWaterLine) or 
+                        ((Target.X and LAND_WIDTH_MASK = 0) and 
+                         (Target.Y+iceHeight+4 >= cWaterLine) and 
+                         (Land[Target.Y, Target.X] = lfIce)) then
                     begin
                     if Timer = iceWaitCollision then
                         begin
@@ -5646,7 +5649,7 @@
                     Timer := iceWaitCollision;
                     end;
 
-                if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime) then
+                if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime div 2) then
                     begin
                     PlaySound(sndHogFreeze);
                     DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight);