equal
deleted
inserted
replaced
77 procedure SwitchHedgehog; |
77 procedure SwitchHedgehog; |
78 procedure InitTeams; |
78 procedure InitTeams; |
79 procedure OnUsedAmmo(Ammo: PHHAmmo); |
79 procedure OnUsedAmmo(Ammo: PHHAmmo); |
80 function TeamSize(p: PTeam): Longword; |
80 function TeamSize(p: PTeam): Longword; |
81 procedure RecountTeamHealth(team: PTeam); |
81 procedure RecountTeamHealth(team: PTeam); |
|
82 procedure RestoreTeamsFromSave; |
82 |
83 |
83 implementation |
84 implementation |
84 uses uMisc, uStore, uWorld, uIO, uAI; |
85 uses uMisc, uStore, uWorld, uIO, uAI; |
85 const MaxTeamHealth: integer = 0; |
86 const MaxTeamHealth: integer = 0; |
86 |
87 |
309 end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth |
310 end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth |
310 end; |
311 end; |
311 AddGear(0, 0, gtTeamHealthSorter, 0) |
312 AddGear(0, 0, gtTeamHealthSorter, 0) |
312 end; |
313 end; |
313 |
314 |
|
315 procedure RestoreTeamsFromSave; |
|
316 var p: PTeam; |
|
317 begin |
|
318 p:= TeamsList; |
|
319 while p <> nil do |
|
320 begin |
|
321 p.ExtDriven:= false; |
|
322 p:= p.Next |
|
323 end; |
|
324 end; |
|
325 |
314 initialization |
326 initialization |
315 |
327 |
316 finalization |
328 finalization |
317 |
329 |
318 FreeTeamsList |
330 FreeTeamsList |