hedgewars/CCHandlers.inc
changeset 547 b81a055f2d06
parent 546 0e7cc3fb05cd
child 549 4278a80140a8
equal deleted inserted replaced
546:0e7cc3fb05cd 547:b81a055f2d06
    44    TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true);
    44    TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true);
    45    TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true)
    45    TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true)
    46    end
    46    end
    47 end;
    47 end;
    48 
    48 
    49 const TeamsCount: Longword = 0;
       
    50 
       
    51 procedure chAddTeam(var s: shortstring);
    49 procedure chAddTeam(var s: shortstring);
    52 begin
    50 begin
    53 if isDeveloperMode then
    51 if isDeveloperMode then
    54    begin
    52    begin
    55    inc(TeamsCount);
       
    56    ParseCommand('ammstore 93919294221912103323', true);
    53    ParseCommand('ammstore 93919294221912103323', true);
    57    TryDo(TeamsCount <= 6, 'Too many teams', true);
       
    58    AddTeam;
    54    AddTeam;
    59 
    55 
    60 
    56 
    61    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;
    57    if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;
    62    val(s, CurrentTeam^.Color);
    58    val(s, CurrentTeam^.Color);