equal
deleted
inserted
replaced
4408 y := hwRound(Gear^.Y); |
4408 y := hwRound(Gear^.Y); |
4409 tx := 0; |
4409 tx := 0; |
4410 ty := 0; |
4410 ty := 0; |
4411 // avoid compiler hints |
4411 // avoid compiler hints |
4412 |
4412 |
4413 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then |
4413 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] and ($FF00 and not lfBouncy) <> 0) then |
4414 begin |
4414 begin |
4415 Gear^.State := Gear^.State or gstCollision; |
4415 Gear^.State := Gear^.State or gstCollision; |
4416 Gear^.State := Gear^.State and (not gstMoving); |
4416 Gear^.State := Gear^.State and (not gstMoving); |
4417 |
4417 |
4418 if not CalcSlopeTangent(Gear, x, y, tx, ty, 255) |
4418 if not CalcSlopeTangent(Gear, x, y, tx, ty, 255) |