equal
deleted
inserted
replaced
336 if not (TestCollisionXwithXYShift(Gear, 0, -1, Sign(Gear.dX)) |
336 if not (TestCollisionXwithXYShift(Gear, 0, -1, Sign(Gear.dX)) |
337 or HHTestCollisionYwithGear(Gear, -1)) then Gear.Y:= Gear.Y - 1; |
337 or HHTestCollisionYwithGear(Gear, -1)) then Gear.Y:= Gear.Y - 1; |
338 end; |
338 end; |
339 if not TestCollisionXwithGear(Gear, Sign(Gear.dX)) then Gear.X:= Gear.X + Gear.dX; |
339 if not TestCollisionXwithGear(Gear, Sign(Gear.dX)) then Gear.X:= Gear.X + Gear.dX; |
340 |
340 |
|
341 AddIntersectorsCR(Gear); |
341 if not HHTestCollisionYwithGear(Gear, 1) then |
342 if not HHTestCollisionYwithGear(Gear, 1) then |
342 begin |
343 begin |
343 Gear.Y:= Gear.Y + 1; |
344 Gear.Y:= Gear.Y + 1; |
344 if not HHTestCollisionYwithGear(Gear, 1) then |
345 if not HHTestCollisionYwithGear(Gear, 1) then |
345 begin |
346 begin |
367 end |
368 end |
368 end |
369 end |
369 end |
370 end |
370 end |
371 end |
371 end; |
372 end; |
372 AddIntersectorsCR(Gear); |
|
373 SetAllHHToActive |
373 SetAllHHToActive |
374 end |
374 end |
375 end; |
375 end; |
376 |
376 |
377 //////////////////////////////////////////////////////////////////////////////// |
377 //////////////////////////////////////////////////////////////////////////////// |