hedgewars/uFLTeams.pas
branchqmlfrontend
changeset 11456 ab77e2ea2f82
parent 11455 96decedd9400
child 11458 8318e841648f
equal deleted inserted replaced
11455:96decedd9400 11456:ab77e2ea2f82
    12 
    12 
    13 procedure sendTeam(var team: TTeam);
    13 procedure sendTeam(var team: TTeam);
    14 procedure removeTeam(teamName: shortstring);
    14 procedure removeTeam(teamName: shortstring);
    15 
    15 
    16 implementation
    16 implementation
    17 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData, uFLNet;
    17 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLThemes, uFLNet;
    18 
    18 
    19 const MAX_TEAM_NAMES = 128;
    19 const MAX_TEAM_NAMES = 128;
    20 var
    20 var
    21     teamsList: PTeam;
    21     teamsList: PTeam;
    22     teamsNumber: Longword;
    22     teamsNumber: Longword;