equal
deleted
inserted
replaced
669 else |
669 else |
670 begin |
670 begin |
671 rx:= leftX+GetRandom(rightX-leftX+400)-200; |
671 rx:= leftX+GetRandom(rightX-leftX+400)-200; |
672 ry:= topY+GetRandom(LAND_HEIGHT-topY+400)-200 |
672 ry:= topY+GetRandom(LAND_HEIGHT-topY+400)-200 |
673 end; |
673 end; |
674 Gear^.X:= int2hwFloat(rx); |
674 Gear^.X:= int2hwFloat(CalcWorldWrap(rx,Gear^.Radius)); |
675 Gear^.Y:= int2hwFloat(ry); |
675 Gear^.Y:= int2hwFloat(ry); |
676 if CheckLandValue(rx, ry, $FFFF) and |
676 if CheckLandValue(rx, ry, $FFFF) and |
677 (TestCollisionYwithGear(Gear,-1) = 0) and |
677 (TestCollisionYwithGear(Gear,-1) = 0) and |
678 (TestCollisionXwithGear(Gear, 1) = 0) and |
678 (TestCollisionXwithGear(Gear, 1) = 0) and |
679 (TestCollisionXwithGear(Gear,-1) = 0) and |
679 (TestCollisionXwithGear(Gear,-1) = 0) and |