diff -r b74a7bbe224e -r c58db813240b hedgewars/uFLTeams.pas --- a/hedgewars/uFLTeams.pas Mon Oct 13 23:46:49 2014 +0400 +++ b/hedgewars/uFLTeams.pas Mon Oct 20 22:55:12 2014 +0400 @@ -96,15 +96,17 @@ s: shortstring; l: Longword; begin - filesList:= pfsEnumerateFiles('Teams'); + 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) + if (l > 4) and (copy(s, l - 3, 4) = '.hwt') then inc(teamsNumber); + inc(tmp) end; // TODO: no teams at all? @@ -121,6 +123,7 @@ loadTeam(team^, '/Config/Teams/' + s); inc(team) end; + inc(tmp) end; pfsFreeList(filesList) @@ -144,7 +147,8 @@ l:= length(team^.teamName); if l >= 255 then l:= 254; team^.teamName[l + 1]:= #0; - listOfTeamNames[i]:= @team^.teamName[1] + listOfTeamNames[i]:= @team^.teamName[1]; + inc(team) end; listOfTeamNames[t]:= nil;