equal
deleted
inserted
replaced
1260 procedure AssignHHCoords; |
1260 procedure AssignHHCoords; |
1261 var i, t, p, j: LongInt; |
1261 var i, t, p, j: LongInt; |
1262 ar: array[0..Pred(cMaxHHs)] of PGear; |
1262 ar: array[0..Pred(cMaxHHs)] of PGear; |
1263 Count: Longword; |
1263 Count: Longword; |
1264 begin |
1264 begin |
1265 if (GameFlags and gfForts) <> 0 then |
1265 if (GameFlags and (gfForts or gfDivideTeams)) <> 0 then |
1266 begin |
1266 begin |
1267 t:= 0; |
1267 t:= 0; |
|
1268 TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true); |
1268 for p:= 0 to 1 do |
1269 for p:= 0 to 1 do |
1269 begin |
1270 begin |
1270 with ClansArray[p]^ do |
1271 with ClansArray[p]^ do |
1271 for j:= 0 to Pred(TeamsNumber) do |
1272 for j:= 0 to Pred(TeamsNumber) do |
1272 with Teams[j]^ do |
1273 with Teams[j]^ do |