equal
deleted
inserted
replaced
858 i:= 0; |
858 i:= 0; |
859 unplaced:= 0; |
859 unplaced:= 0; |
860 while (i < cLandMines) and (unplaced < 4) do |
860 while (i < cLandMines) and (unplaced < 4) do |
861 begin |
861 begin |
862 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
862 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
|
863 Gear^.Hedgehog := nil; |
863 FindPlace(Gear, false, 0, LAND_WIDTH); |
864 FindPlace(Gear, false, 0, LAND_WIDTH); |
864 |
865 |
865 if Gear = nil then |
866 if Gear = nil then |
866 inc(unplaced) |
867 inc(unplaced) |
867 else |
868 else |
873 i:= 0; |
874 i:= 0; |
874 unplaced:= 0; |
875 unplaced:= 0; |
875 while (i < cExplosives) and (unplaced < 4) do |
876 while (i < cExplosives) and (unplaced < 4) do |
876 begin |
877 begin |
877 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
878 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
|
879 Gear^.Hedgehog := nil; |
878 FindPlace(Gear, false, 0, LAND_WIDTH); |
880 FindPlace(Gear, false, 0, LAND_WIDTH); |
879 |
881 |
880 if Gear = nil then |
882 if Gear = nil then |
881 inc(unplaced) |
883 inc(unplaced) |
882 else |
884 else |
938 if p = 0 then |
940 if p = 0 then |
939 begin |
941 begin |
940 inc(i); |
942 inc(i); |
941 AddFileLog('Placed Air Mine @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
943 AddFileLog('Placed Air Mine @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
942 if i < cAirMines then |
944 if i < cAirMines then |
943 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0) |
945 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0); |
|
946 Gear^.Hedgehog := nil |
944 end |
947 end |
945 end |
948 end |
946 else |
949 else |
947 p:= 1; |
950 p:= 1; |
948 inc(j) |
951 inc(j) |