author | nemo |
Sun, 03 Jul 2011 11:38:25 -0400 | |
changeset 5374 | 7a7ce10bee53 |
parent 5372 | 7283bc768228 |
child 5376 | ea8a74951948 |
--- 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