hedgewars/CCHandlers.inc
changeset 409 4f1841929ccc
parent 394 4c017ae1226a
child 428 1052ef2f7863
equal deleted inserted replaced
408:6c3da4907d00 409:4f1841929ccc
    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 93919294221912103', true);
    56    ParseCommand('ammstore 939192942219121033', 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