# HG changeset patch
# User unc0rr
# Date 1241628961 0
# Node ID 51e164a40b41aee52f3efb2a55f82abb8d979186
# Parent  260a3a2094dca42872965c5c3ee1251e0da1677e
Add a tracing message to help debug rope bugs

diff -r 260a3a2094dc -r 51e164a40b41 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon May 04 01:36:39 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Wed May 06 16:56:01 2009 +0000
@@ -739,7 +739,12 @@
 
 HedgehogChAngle(HHGear);
 
-if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
+if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
+	begin
+	{$IFDEF DEBUGFILE}if HHGear^.dX.QWordValue > 1 then AddFileLog('Stopping hedgehog after rope attack due to wall collision');{$ENDIF}
+	SetLittle(HHGear^.dX);
+	end;
+
 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;
 HHGear^.X:= HHGear^.X + HHGear^.dX;
 HHGear^.Y:= HHGear^.Y + HHGear^.dY;