hedgewars/CCHandlers.inc
changeset 534 92fb2b0d5117
parent 520 e83dfb7ffead
child 539 6a9bf1852bbc
equal deleted inserted replaced
533:eebb7684ac22 534:92fb2b0d5117
    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 9391929422191210332', true);
    56    ParseCommand('ammstore 93919294221912103323', 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