# HG changeset patch
# User nemo
# Date 1309707505 14400
# Node ID 7a7ce10bee53d85268daa6f9dce08833c76b6001
# Parent  7283bc7682288b8288fc019a26ebd1862d7b01d4
Add a little y kick if there is nothing under an active barrel.

diff -r 7283bc768228 -r 7a7ce10bee53 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Jul 03 11:24:53 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sun Jul 03 11:38:25 2011 -0400
@@ -1868,6 +1868,7 @@
     i: LongInt;
     particle: PVisualGear;
 begin
+    if not TestCollisionYwithGear(Gear, 1) and (Gear^.dY.QWordValue = 0) then SetLittle(Gear^.dY);
     Gear^.State := Gear^.State or gstAnimation;
     if ((Gear^.dX.QWordValue <> 0) or (Gear^.dY.QWordValue <> 0))  then
     begin