equal
deleted
inserted
replaced
937 begin |
937 begin |
938 //AddFileLog('Trying to make a hole'); |
938 //AddFileLog('Trying to make a hole'); |
939 while (cnt < 1000) do |
939 while (cnt < 1000) do |
940 begin |
940 begin |
941 inc(cnt); |
941 inc(cnt); |
942 x:= leftX+GetRandom(rightX-leftX-32)+16; |
942 x:= left+GetRandom(right-left-2*cHHRadius)+cHHRadius; |
943 y:= topY+GetRandom(LAND_HEIGHT-topY-64)+48; |
943 y:= topY+GetRandom(LAND_HEIGHT-topY-64)+48; |
944 if NoGearsToAvoid(x, y, 100 div max(1,cnt div 100), 100 div max(1,cnt div 100)) then |
944 if NoGearsToAvoid(x, y, 100 div max(1,cnt div 100), 100 div max(1,cnt div 100)) then |
945 begin |
945 begin |
946 Gear^.State:= Gear^.State or gsttmpFlag; |
946 Gear^.State:= Gear^.State or gsttmpFlag; |
947 Gear^.X:= int2hwFloat(x); |
947 Gear^.X:= int2hwFloat(x); |