unit uFLTeams;

interface

uses uFLTypes;

function createRandomTeam: TTeam;

procedure sendTeamConfig(var team: TTeam);

function getTeamsList: PPChar; cdecl;

procedure freeTeamsList;

function teamByName(s: shortstring): PTeam;

implementation

const MAX_TEAM_NAMES = 128;

var

    teamsList: PTeam;

    teamsNumber: Longword;

    listOfTeamNames: array[0..MAX_TEAM_NAMES] of PChar;

function createRandomTeam: TTeam;

var t: TTeam;

    i: Longword;

begin

    with t do

    begin

        teamName:= 'team' + inttostr(random(100));

        for i:= 0 to 7 do

            with hedgehogs[i] do

            begin

                name:= 'hedgehog ' + inttostr(i);

                hat:= 'NoHat'

            end;

        botLevel:= 0;

        hogsNumber:= 4

    end;

    createRandomTeam:= t

end;

procedure sendTeamConfig(var team: TTeam);

var i: Longword;

begin

    with team do

    begin

        for i:= 0 to Pred(hogsNumber) do

        begin

            ipcToEngine('eaddhh ' + inttostr(botLevel) + ' 100 ' + hedgehogs[i].name);

            ipcToEngine('ehat ' + hedgehogs[i].hat);

        end;

    end

end;

procedure loadTeam(var team: TTeam; fileName: shortstring);

var f: PFSFile;

    section: LongInt;

    l: shortstring;

begin

    section:= -1;

    f:= pfsOpenRead(fileName);

    while (not pfsEOF(f)) do

    begin

        pfsReadLn(f, l);

        if l = '' then

        else if l = '[Team]' then 

            section:= 0

        else if l[1] = '[' then

            section:= -1

        else if section = 0 then

        begin // [Team]

            if copy(l, 1, 5) = 'Name=' then

                team.teamName:= midStr(l, 6)

            else if copy(l, 1, 6) = 'Grave=' then

                team.graveName:= midStr(l, 7)

            else if copy(l, 1, 5) = 'Fort=' then

                team.fortName:= midStr(l, 6)

            else if copy(l, 1, 5) = 'Flag=' then

                team.flag:= midStr(l, 6)

        end;

        // TODO: load hedgehogs and other stuff

        team.botLevel:= 1

    end;

    pfsClose(f)

end;

procedure loadTeams;

var filesList, tmp: PPChar;

    team: PTeam;

    s: shortstring;

    l: Longword;

begin

    filesList:= pfsEnumerateFiles('/Config/Teams');

    teamsNumber:= 0;

    tmp:= filesList;

    while tmp^ <> nil do

    begin

        s:= shortstring(tmp^);

        writeln(stderr, '> ', s);

        l:= length(s);

        if (l > 4) and (copy(s, l - 3, 4) = '.hwt') then inc(teamsNumber);

        inc(tmp)

    end;

    // TODO: no teams at all?

    teamsList:= GetMem(sizeof(teamsList^) * teamsNumber);

    team:= teamsList;

    tmp:= filesList;

    while tmp^ <> nil do

    begin

        s:= shortstring(tmp^);

        l:= length(s);

        if (l > 4) and (copy(s, l - 3, 4) = '.hwt') then 

            begin

                loadTeam(team^, '/Config/Teams/' + s);

                inc(team)

            end;

        inc(tmp)

    end;

    pfsFreeList(filesList)

end;

function getTeamsList: PPChar; cdecl;

var i, t, l: Longword;

    team: PTeam;

begin

    if teamsList = nil then

        loadTeams;

    t:= teamsNumber;

    if t >= MAX_TEAM_NAMES then 

        t:= MAX_TEAM_NAMES;

    team:= teamsList;

    for i:= 0 to Pred(t) do

    begin

        l:= length(team^.teamName);

        if l >= 255 then l:= 254;

        team^.teamName[l + 1]:= #0;

        listOfTeamNames[i]:= @team^.teamName[1];

        inc(team)

    end;

    listOfTeamNames[t]:= nil;

    getTeamsList:= listOfTeamNames

end;

function teamByName(s: shortstring): PTeam;

var i: Longword;

    team: PTeam;

begin

    team:= teamsList;

    i:= 0;

    while (i < teamsNumber) and (team^.teamName <> s) do

    begin

        inc(team);

        inc(i)

    end;

    if i < teamsNumber then teamByName:= team else teamByName:= nil

end;

procedure freeTeamsList;

begin

    if teamsList <> nil then

        FreeMem(teamsList, sizeof(teamsList^) * teamsNumber)

end;

end.