Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GSHandlers.inc
changeset 23 16322d14f068
parent 16 b6f4b413dd41
child 37 2b7f2a43b999 
--- a/hedgewars/GSHandlers.inc	Sun Dec 04 15:28:31 2005 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Dec 04 19:06:56 2005 +0000
@@ -405,8 +405,6 @@
          begin
          tx:= cc*len;
          ty:= cs*len;
-//         if   TestCollisionXwithXYShift(Gear, round(tx), round(ty), Sign(HHGear.dX))
-///           or TestCollisionYwithXYShift(Gear, round(tx), round(ty), Sign(HHGear.dY)) then
          lx:= round(Gear.X + tx) + sign(HHGear.dX);
          ly:= round(Gear.Y + ty) + sign(HHGear.dY);
          if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0)and (Land[ly, lx] <> 0) then
@@ -573,7 +571,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepMine(Gear: PGear);
 begin
-if (Gear.dX <> 0) or (Gear.dY <> 0) then
+if (Gear.dX <> 0) or (Gear.dY <> 0) {or not TestCollisionY(Gear, 1)} then
    begin
    doStepFallingGear(Gear);
    if Gear.Active = false then
hedgewars