hedgewars/GSHandlers.inc
changeset 2329 1cfb7d184ee1
parent 2301 7a4ad0772c88
child 2331 e4941a7986d6
--- a/hedgewars/GSHandlers.inc	Wed Aug 19 18:55:40 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Aug 23 12:01:55 2009 +0000
@@ -953,6 +953,8 @@
 if (HHGear^.State and gstMoving) <> 0 then
 	begin
 	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
+	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;
+	
 	HHGear^.X:= HHGear^.X + HHGear^.dX;
 	Gear^.X:= Gear^.X + HHGear^.dX;