equal
deleted
inserted
replaced
96 CurrentHedgehog: PHedgehog; |
96 CurrentHedgehog: PHedgehog; |
97 TeamsArray: array[0..Pred(cMaxTeams)] of PTeam; |
97 TeamsArray: array[0..Pred(cMaxTeams)] of PTeam; |
98 TeamsCount: Longword; |
98 TeamsCount: Longword; |
99 ClansArray: array[0..Pred(cMaxTeams)] of PClan; |
99 ClansArray: array[0..Pred(cMaxTeams)] of PClan; |
100 ClansCount: Longword; |
100 ClansCount: Longword; |
101 LocalClan: Longword; // last non-bot, non-extdriven clan |
101 LocalClan: LongInt; // last non-bot, non-extdriven clan |
102 LocalAmmo: Longword; // last non-bot, non-extdriven clan's first team's ammo index |
102 LocalAmmo: LongInt; // last non-bot, non-extdriven clan's first team's ammo index |
103 CurMinAngle, CurMaxAngle: Longword; |
103 CurMinAngle, CurMaxAngle: Longword; |
104 |
104 |
105 procedure init_uTeams; |
105 procedure init_uTeams; |
106 procedure free_uTeams; |
106 procedure free_uTeams; |
107 function AddTeam(TeamColor: Longword): PTeam; |
107 function AddTeam(TeamColor: Longword): PTeam; |
347 for t:= 0 to Pred(TeamsCount) do |
347 for t:= 0 to Pred(TeamsCount) do |
348 with TeamsArray[t]^ do |
348 with TeamsArray[t]^ do |
349 begin |
349 begin |
350 if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then |
350 if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then |
351 begin |
351 begin |
352 LocalClan:= Clan^.ClanIndex + 1; |
352 LocalClan:= Clan^.ClanIndex; |
353 LocalAmmo:= Hedgehogs[0].AmmoStore |
353 LocalAmmo:= Hedgehogs[0].AmmoStore |
354 end; |
354 end; |
355 th:= 0; |
355 th:= 0; |
356 for i:= 0 to cMaxHHIndex do |
356 for i:= 0 to cMaxHHIndex do |
357 if Hedgehogs[i].Gear <> nil then |
357 if Hedgehogs[i].Gear <> nil then |
465 CurrentTeam:= nil; |
465 CurrentTeam:= nil; |
466 PreviousTeam:= nil; |
466 PreviousTeam:= nil; |
467 CurrentHedgehog:= nil; |
467 CurrentHedgehog:= nil; |
468 TeamsCount:= 0; |
468 TeamsCount:= 0; |
469 ClansCount:= 0; |
469 ClansCount:= 0; |
470 LocalClan:= 0; // first non-bot, non-extdriven clan |
470 LocalClan:= -1; |
|
471 LocalAmmo:= -1; |
471 end; |
472 end; |
472 |
473 |
473 procedure free_uTeams; |
474 procedure free_uTeams; |
474 var i: LongWord; |
475 var i: LongWord; |
475 begin |
476 begin |