hedgewars/CCHandlers.inc
changeset 520 e83dfb7ffead
parent 498 9c8b385dc9a1
child 534 92fb2b0d5117
equal deleted inserted replaced
519:981df6f6e2a9 520:e83dfb7ffead
    51 procedure chAddTeam(var s: shortstring);
    51 procedure chAddTeam(var s: shortstring);
    52 begin
    52 begin
    53 if isDeveloperMode then
    53 if isDeveloperMode then
    54    begin
    54    begin
    55    inc(TeamsCount);
    55    inc(TeamsCount);
    56    ParseCommand('ammstore 939192942219121033', true);
    56    ParseCommand('ammstore 9391929422191210332', true);
    57    TryDo(TeamsCount <= 5, 'Too many teams', true);
    57    TryDo(TeamsCount <= 5, 'Too many teams', true);
    58    AddTeam
    58    AddTeam
    59    end;
    59    end;
    60 
    60 
    61 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true
    61 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true