equal
deleted
inserted
replaced
45 begin |
45 begin |
46 GameState:= gsExit |
46 GameState:= gsExit |
47 end; |
47 end; |
48 |
48 |
49 procedure chAddTeam(var s: shortstring); |
49 procedure chAddTeam(var s: shortstring); |
50 begin |
50 const TeamsCount: Longword = 0; |
51 if isDeveloperMode then AddTeam; |
51 begin |
|
52 if isDeveloperMode then |
|
53 begin |
|
54 inc(TeamsCount); |
|
55 TryDo(TeamsCount <= 5, 'Too many teams', true); |
|
56 AddTeam |
|
57 end; |
|
58 |
52 if GameType in [gmtDemo, gmtSave] then CurrentTeam.ExtDriven:= true |
59 if GameType in [gmtDemo, gmtSave] then CurrentTeam.ExtDriven:= true |
53 end; |
60 end; |
54 |
61 |
55 procedure chTeamLocal(var s: shortstring); |
62 procedure chTeamLocal(var s: shortstring); |
56 begin |
63 begin |