equal
deleted
inserted
replaced
860 else |
860 else |
861 p:= 1; |
861 p:= 1; |
862 inc(j) |
862 inc(j) |
863 end; |
863 end; |
864 if p <> 0 then DeleteGear(Gear); |
864 if p <> 0 then DeleteGear(Gear); |
|
865 |
|
866 i:= 0; |
|
867 unplaced:= 0; |
|
868 while (i < cSentries) and (unplaced < 4) do |
|
869 begin |
|
870 Gear:= AddGear(0, 0, gtSentry, 0, _0, _0, 0); |
|
871 FindPlace(Gear, false, 0, LAND_WIDTH); |
|
872 |
|
873 if Gear = nil then |
|
874 inc(unplaced) |
|
875 else |
|
876 unplaced:= 0; |
|
877 |
|
878 inc(i) |
|
879 end; |
865 |
880 |
866 if (GameFlags and gfLowGravity) <> 0 then |
881 if (GameFlags and gfLowGravity) <> 0 then |
867 begin |
882 begin |
868 cGravity:= cMaxWindSpeed; |
883 cGravity:= cMaxWindSpeed; |
869 cGravityf:= 0.00025; |
884 cGravityf:= 0.00025; |