equal
deleted
inserted
replaced
781 inc(i) |
781 inc(i) |
782 end; |
782 end; |
783 |
783 |
784 i:= 0; |
784 i:= 0; |
785 j:= 0; |
785 j:= 0; |
786 p:= 0; // 0 searching, 1 bad position, 2 added. |
786 p:= 0; // 0: good position, 1: bad position. |
787 unplaced:= 0; |
787 unplaced:= 0; |
788 if cAirMines > 0 then |
788 if cAirMines > 0 then |
789 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0); |
789 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0); |
790 while (i < cAirMines) and (j < 1000*cAirMines) do |
790 while (i < cAirMines) and (j < 1000*cAirMines) do |
791 begin |
791 begin |
833 inc(i); |
833 inc(i); |
834 AddFileLog('Placed Air Mine @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
834 AddFileLog('Placed Air Mine @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
835 if i < cAirMines then |
835 if i < cAirMines then |
836 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0) |
836 Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0) |
837 end |
837 end |
838 end; |
838 end |
|
839 else |
|
840 p:= 1; |
839 inc(j) |
841 inc(j) |
840 end; |
842 end; |
841 if p <> 0 then DeleteGear(Gear); |
843 if p <> 0 then DeleteGear(Gear); |
842 |
844 |
843 if (GameFlags and gfLowGravity) <> 0 then |
845 if (GameFlags and gfLowGravity) <> 0 then |