hedgewars/uTeams.pas
changeset 167 805fa9a27e9e
parent 165 9b9144948668
child 176 533d03041dcd
--- a/hedgewars/uTeams.pas	Mon Sep 25 19:48:51 2006 +0000
+++ b/hedgewars/uTeams.pas	Tue Sep 26 11:53:12 2006 +0000
@@ -56,7 +56,7 @@
              Color: Cardinal;
              TeamName: string[MAXNAMELEN];
              ExtDriven: boolean;
-             Aliases: array[0..cKeyMaxIndex] of shortstring;
+             Binds: TBinds;
              Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
              Ammos: array[0..cMaxHHIndex] of THHAmmo;
              CurrHedgehog: integer;
@@ -162,6 +162,8 @@
 AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1).Tag:= round(72 * cWindSpeed / cMaxWindSpeed);
 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
 ApplyAmmoChanges(CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog]);
+if CurrentTeam.ExtDriven then SetDefaultBinds
+                         else SetBinds(CurrentTeam.Binds);
 TurnTimeLeft:= cHedgehogTurnTime
 end;