--- a/hedgewars/uFLAmmo.pas	Sun Dec 17 00:09:24 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,136 +0,0 @@
-unit uFLAmmo;
-interface
-uses uFLTypes;
-
-function getAmmosList: PPChar; cdecl;
-procedure freeAmmosList;
-
-function ammoByName(s: shortstring): PAmmo;
-procedure sendAmmoConfig(var ammo: TAmmo);
-
-implementation
-uses uFLUtils, uFLIPC, uPhysFSLayer, uFLThemes;
-
-const MAX_AMMO_NAMES = 64;
-type
-    TAmmoArray = array [0..0] of TAmmo;
-    PAmmoArray = ^TAmmoArray;
-var
-    ammoList: PAmmo;
-    ammoNumber: LongInt;
-    listOfAmmoNames: array[0..MAX_AMMO_NAMES] of PChar;
-
-procedure loadAmmo;
-var f: PFSFile;
-    ammo: PAmmo;
-    ammos: PAmmoArray;
-    s: ansistring;
-    i: Longword;
-begin
-    f:= pfsOpenRead('/Config/weapons.ini');
-    ammoNumber:= 0;
-
-    if f <> nil then
-    begin
-        while (not pfsEOF(f)) do
-        begin
-            pfsReadLnA(f, s);
-
-            if (length(s) > 0) and (s[1] <> '[') then
-                inc(ammoNumber);
-        end;
-
-        //inc(ammoNumber); // add some default ammo
-
-        ammoList:= GetMem(sizeof(ammoList^) * (ammoNumber + 1));
-        ammo:= PAmmo(ammoList);
-        pfsSeek(f, 0);
-
-        while (not pfsEOF(f)) do
-        begin
-            pfsReadLnA(f, s);
-
-            i:= 1;
-            while(i <= length(s)) and (s[i] <> '=') do inc(i);
-
-            if i < length(s) then
-            begin
-                ammo^.ammoName:= copy(s, 1, i - 1);
-                delete(s, 1, i);
-                // TODO: split into 4 shortstrings
-                i:= length(s) div 4;
-                ammo^.a:= copy(s, 1, i);
-                ammo^.b:= copy(s, i + 1, i);
-                ammo^.c:= copy(s, i * 2 + 1, i);
-                ammo^.d:= copy(s, i * 3 + 1, i);
-                inc(ammo)
-            end;
-        end;
-
-        pfsClose(f)
-    end;
-end;
-
-
-function getAmmosList: PPChar; cdecl;
-var i, t, l: Longword;
-    ammo: PAmmo;
-begin
-    if ammoList = nil then
-        loadAmmo;
-
-    t:= ammoNumber;
-    if t >= MAX_AMMO_NAMES then 
-        t:= MAX_AMMO_NAMES;
-
-    ammo:= ammoList;
-    for i:= 0 to Pred(t) do
-    begin
-        l:= length(ammo^.ammoName);
-        if l >= 255 then l:= 254;
-        ammo^.ammoName[l + 1]:= #0;
-        listOfAmmoNames[i]:= @ammo^.ammoName[1];
-        inc(ammo)
-    end;
-
-    listOfAmmoNames[t]:= nil;
-
-    getAmmosList:= listOfAmmoNames
-end;
-
-function ammoByName(s: shortstring): PAmmo;
-var i: Longword;
-    ammo: PAmmo;
-begin
-    ammo:= ammoList;
-    i:= 0;
-    while (i < ammoNumber) and (ammo^.ammoName <> s) do
-    begin
-        inc(ammo);
-        inc(i)
-    end;
-
-    if i < ammoNumber then ammoByName:= ammo else ammoByName:= nil
-end;
-
-procedure freeAmmosList;
-begin
-    if ammoList <> nil then
-        FreeMem(ammoList, sizeof(ammoList^) * (ammoNumber + 1))
-end;
-
-
-procedure sendAmmoConfig(var ammo: TAmmo);
-var i: Longword;
-begin
-    with ammo do
-    begin
-        ipcToEngine('eammloadt ' + ammo.a);
-        ipcToEngine('eammprob '  + ammo.b);
-        ipcToEngine('eammdelay ' + ammo.c);
-        ipcToEngine('eammreinf ' + ammo.d);
-        ipcToEngine('eammstore');
-    end
-end;
-
-end.