equal
deleted
inserted
replaced
880 begin |
880 begin |
881 colly:= (TestCollisionYwithGear(Gear, 1) <> 0); |
881 colly:= (TestCollisionYwithGear(Gear, 1) <> 0); |
882 |
882 |
883 while colly do |
883 while colly do |
884 begin |
884 begin |
885 // don't use TestCollisionXwithXYShift, because we don't gears |
885 // don't use TestCollisionXwithXYShift, because it checks for gears |
886 // save real x-position |
886 // save real x-position |
887 hx:= Gear^.X; |
887 hx:= Gear^.X; |
888 |
888 |
889 Gear^.X:= hx + _1; |
889 Gear^.X:= hx + _1; |
890 collxl:= (TestCollisionX(Gear, -1) <> 0); |
890 collxl:= (TestCollisionX(Gear, -1) <> 0); |