hedgewars/GSHandlers.inc
changeset 2029 51e164a40b41
parent 2025 692308790912
child 2031 b6f3e56fb100
--- 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;