--- a/hedgewars/uFLScripts.pas	Sun Dec 17 00:09:24 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,128 +0,0 @@
-unit uFLScripts;
-interface
-uses uFLTypes;
-
-function getScriptsList: PPChar; cdecl;
-procedure freeScriptsList;
-
-implementation
-uses uFLUtils, uFLIPC, uPhysFSLayer, uFLThemes;
-
-const MAX_SCRIPT_NAMES = 64;
-type
-    TScript = record
-            scriptName: shortstring;
-            description: shortstring;
-            gameScheme, weapons: shortstring;
-        end;
-    PScript = ^TScript;
-var
-    scriptsList: PScript;
-    scriptsNumber: Longword;
-    listOfScriptNames: array[0..MAX_SCRIPT_NAMES] of PChar;
-
-procedure loadScript(var script: TScript; scriptName, fileName: shortstring);
-var f: PFSFile;
-begin
-    underScore2Space(scriptName);
-    script.scriptName:= scriptName;
-    script.description:= scriptName + ' script description';
-
-    f:= pfsOpenRead(copy(fileName, 1, length(fileName) - 4) + '.txt');
-
-    script.gameScheme:= '';
-    script.weapons:= '';
-
-    if f <> nil then
-    begin
-        if not pfsEOF(f) then
-        begin
-            pfsReadLn(f, script.gameScheme);
-
-            if not pfsEOF(f) then
-                pfsReadLn(f, script.weapons);
-        end;
-
-        pfsClose(f)
-    end
-end;
-
-procedure loadScripts;
-var filesList, tmp: PPChar;
-    script: PScript;
-    s: shortstring;
-    l: Longword;
-begin
-    filesList:= pfsEnumerateFiles('/Scripts/Multiplayer');
-    scriptsNumber:= 1;
-
-    tmp:= filesList;
-    while tmp^ <> nil do
-    begin
-        s:= shortstring(tmp^);
-        l:= length(s);
-        if (l > 4) and (copy(s, l - 3, 4) = '.lua') then inc(scriptsNumber);
-        inc(tmp)
-    end;
-
-    scriptsList:= GetMem(sizeof(scriptsList^) * (scriptsNumber + 1));
-
-    script:= scriptsList;
-
-    // add 'normal' script
-    script^.scriptName:= 'Normal';
-    script^.description:= 'Normal gameplay';
-    inc(script);
-
-    // fill the rest from *.lua list
-    tmp:= filesList;
-    while tmp^ <> nil do
-    begin
-        s:= shortstring(tmp^);
-        l:= length(s);
-        if (l > 4) and (copy(s, l - 3, 4) = '.lua') then 
-            begin
-                loadScript(script^, copy(s, 1, l - 4), '/Config/Scripts/' + s);
-                inc(script)
-            end;
-        inc(tmp)
-    end;
-
-    pfsFreeList(filesList)
-end;
-
-
-function getScriptsList: PPChar; cdecl;
-var i, t, l: Longword;
-    script: PScript;
-begin
-    if scriptsList = nil then
-        loadScripts;
-
-    t:= scriptsNumber;
-    if t >= MAX_SCRIPT_NAMES then 
-        t:= MAX_SCRIPT_NAMES;
-
-    script:= scriptsList;
-    for i:= 0 to Pred(t) do
-    begin
-        l:= length(script^.scriptName);
-        if l >= 255 then l:= 254;
-        script^.scriptName[l + 1]:= #0;
-        listOfScriptNames[i]:= @script^.scriptName[1];
-        inc(script)
-    end;
-
-    listOfScriptNames[t]:= nil;
-
-    getScriptsList:= listOfScriptNames
-end;
-
-
-procedure freeScriptsList;
-begin
-    if scriptsList <> nil then
-        FreeMem(scriptsList, sizeof(scriptsList^) * scriptsNumber)
-end;
-
-end.