equal
deleted
inserted
replaced
1502 begin |
1502 begin |
1503 Gear^.dY := _0; |
1503 Gear^.dY := _0; |
1504 SetLittle(HHGear^.dX); |
1504 SetLittle(HHGear^.dX); |
1505 HHGear^.dY := _0; |
1505 HHGear^.dY := _0; |
1506 end |
1506 end |
|
1507 else if Gear^.dY.isNegative and (TestCollisionYwithGear(HHGear, -1) <> 0) then |
|
1508 begin |
|
1509 Gear^.dY := cGravity; |
|
1510 HHGear^.dY := cGravity; |
|
1511 end |
1507 else |
1512 else |
1508 begin |
1513 begin |
1509 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), lfLandMask) then |
1514 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), lfLandMask) then |
1510 begin |
1515 begin |
1511 Gear^.dY := Gear^.dY + cGravity; |
1516 Gear^.dY := Gear^.dY + cGravity; |