hedgewars/uTeams.pas
changeset 74 42257fee61ae
parent 72 aeb2ac1878dc
child 75 d2b737858ff7
--- a/hedgewars/uTeams.pas	Mon Jul 03 17:46:58 2006 +0000
+++ b/hedgewars/uTeams.pas	Sat Jul 08 21:40:03 2006 +0000
@@ -39,7 +39,7 @@
      PTeam     = ^TTeam;
      PHHAmmo   = ^THHAmmo;
      THedgehog = record
-                 Name: string[15];
+                 Name: string[MAXNAMELEN];
                  Gear: PGear;
                  NameRect, HealthRect, HealthTagRect: TSDL_Rect;
                  Ammo: PHHAmmo;
@@ -54,7 +54,7 @@
      TTeam = record
              Next: PTeam;
              Color: Cardinal;
-             TeamName: string[15];
+             TeamName: string[MAXNAMELEN];
              ExtDriven: boolean;
              Aliases: array[0..cKeyMaxIndex] of shortstring;
              Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
@@ -149,7 +149,7 @@
 New(Result);
 TryDo(Result <> nil, 'AddTean: Result = nil', true);
 FillChar(Result^, sizeof(TTeam), 0);
-Result.AttackBar:= 1;
+Result.AttackBar:= 2;
 if TeamsList = nil then TeamsList:= Result
                    else begin
                         Result.Next:= TeamsList;