diff -r 5f56c6979496 -r aeb2ac1878dc hedgewars/uTeams.pas --- a/hedgewars/uTeams.pas Wed Jun 28 18:27:42 2006 +0000 +++ b/hedgewars/uTeams.pas Thu Jun 29 18:27:53 2006 +0000 @@ -79,6 +79,7 @@ procedure OnUsedAmmo(Ammo: PHHAmmo); function TeamSize(p: PTeam): Longword; procedure RecountTeamHealth(team: PTeam); +procedure RestoreTeamsFromSave; implementation uses uMisc, uStore, uWorld, uIO, uAI; @@ -311,6 +312,17 @@ AddGear(0, 0, gtTeamHealthSorter, 0) end; +procedure RestoreTeamsFromSave; +var p: PTeam; +begin +p:= TeamsList; +while p <> nil do + begin + p.ExtDriven:= false; + p:= p.Next + end; +end; + initialization finalization