equal
deleted
inserted
replaced
307 end; |
307 end; |
308 |
308 |
309 procedure InitTeams; |
309 procedure InitTeams; |
310 var i, t: LongInt; |
310 var i, t: LongInt; |
311 th: LongInt; |
311 th: LongInt; |
312 cp: PClan; |
312 begin |
313 begin |
|
314 if (GameFlags and gfRandomOrder) <> 0 then // shuffle them up a bit |
|
315 for i:= 0 to ClansCount * 8 do |
|
316 begin |
|
317 t:= GetRandom(Pred(ClansCount))+1; |
|
318 cp:= ClansArray[0]; |
|
319 ClansArray[0]:= ClansArray[t]; |
|
320 ClansArray[t]:= cp; |
|
321 ClansArray[t]^.ClanIndex:= t; |
|
322 ClansArray[0]^.ClanIndex:= 0; |
|
323 end; |
|
324 for t:= 0 to Pred(TeamsCount) do |
313 for t:= 0 to Pred(TeamsCount) do |
325 with TeamsArray[t]^ do |
314 with TeamsArray[t]^ do |
326 begin |
315 begin |
327 if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then |
316 if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then |
328 LocalClan:= Clan^.ClanIndex + 1; |
317 LocalClan:= Clan^.ClanIndex + 1; |