--- 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