equal
deleted
inserted
replaced
91 CurrentHedgehog: PHedgehog = nil; |
91 CurrentHedgehog: PHedgehog = nil; |
92 TeamsArray: array[0..Pred(cMaxTeams)] of PTeam; |
92 TeamsArray: array[0..Pred(cMaxTeams)] of PTeam; |
93 TeamsCount: Longword = 0; |
93 TeamsCount: Longword = 0; |
94 ClansArray: array[0..Pred(cMaxTeams)] of PClan; |
94 ClansArray: array[0..Pred(cMaxTeams)] of PClan; |
95 ClansCount: Longword = 0; |
95 ClansCount: Longword = 0; |
|
96 LocalClan: Longword = 0; // first non-bot, non-extdriven clan |
96 CurMinAngle, CurMaxAngle: Longword; |
97 CurMinAngle, CurMaxAngle: Longword; |
97 |
98 |
98 function AddTeam(TeamColor: Longword): PTeam; |
99 function AddTeam(TeamColor: Longword): PTeam; |
99 procedure SwitchHedgehog; |
100 procedure SwitchHedgehog; |
100 procedure AfterSwitchHedgehog; |
101 procedure AfterSwitchHedgehog; |
305 th: LongInt; |
306 th: LongInt; |
306 begin |
307 begin |
307 for t:= 0 to Pred(TeamsCount) do |
308 for t:= 0 to Pred(TeamsCount) do |
308 with TeamsArray[t]^ do |
309 with TeamsArray[t]^ do |
309 begin |
310 begin |
|
311 if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then |
|
312 LocalClan:= Clan^.ClanIndex + 1; |
310 th:= 0; |
313 th:= 0; |
311 for i:= 0 to cMaxHHIndex do |
314 for i:= 0 to cMaxHHIndex do |
312 if Hedgehogs[i].Gear <> nil then |
315 if Hedgehogs[i].Gear <> nil then |
313 inc(th, Hedgehogs[i].Gear^.Health); |
316 inc(th, Hedgehogs[i].Gear^.Health); |
314 if th > MaxTeamHealth then MaxTeamHealth:= th; |
317 if th > MaxTeamHealth then MaxTeamHealth:= th; |