equal
deleted
inserted
replaced
4616 Gear^.dY := Gear^.Y - oY; |
4616 Gear^.dY := Gear^.Y - oY; |
4617 |
4617 |
4618 x := hwRound(Gear^.X); |
4618 x := hwRound(Gear^.X); |
4619 y := hwRound(Gear^.Y); |
4619 y := hwRound(Gear^.Y); |
4620 |
4620 |
|
4621 if WorldEdge = weWrap then |
|
4622 begin |
|
4623 if x > LongInt(rightX) then |
|
4624 repeat; |
|
4625 dec(x, playWidth); |
|
4626 dec(rx, playWidth); |
|
4627 until x <= LongInt(rightX) |
|
4628 else if x < LongInt(leftX) then |
|
4629 repeat; |
|
4630 inc(x, playWidth); |
|
4631 inc(rx, playWidth); |
|
4632 until x >= LongInt(leftX); |
|
4633 end; |
|
4634 |
4621 // if borders are on, stop outside land array |
4635 // if borders are on, stop outside land array |
4622 if hasBorder and (((x and LAND_WIDTH_MASK) <> 0) or ((y and LAND_HEIGHT_MASK) <> 0)) then |
4636 if hasBorder and (((x and LAND_WIDTH_MASK) <> 0) or ((y and LAND_HEIGHT_MASK) <> 0)) then |
4623 begin |
4637 begin |
4624 Gear^.Damage := 0; |
4638 Gear^.Damage := 0; |
4625 Gear^.Health := 0; |
4639 Gear^.Health := 0; |