151 procedure initModule;

   151 procedure initModule;

   152 var i: LongInt;

   152 var i: LongInt;

   153     cPhysfsId: shortstring;

   153     cPhysfsId: shortstring;

   154 {$IFNDEF MOBILE}

   154 {$IFNDEF MOBILE}

   155     fp: PChar;

   155     fp: PChar;

   157 begin

   157 begin

   158 {$IFDEF HWLIBRARY}

   158 {$IFDEF HWLIBRARY}

   159     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html

   159     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html

   160     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';

   160     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';

   161 {$ELSE}

   161 {$ELSE}

   171         begin

   171         begin

   172             fp := cFontsPaths[i];

   172             fp := cFontsPaths[i];

   173             if fp <> nil then

   173             if fp <> nil then

   174                 pfsMount(ansistring(fp), PChar('/Fonts'));

   174                 pfsMount(ansistring(fp), PChar('/Fonts'));

   175         end;

   175         end;

   177 

   177 

   178     pfsMountAtRoot(PathPrefix);

   178     pfsMountAtRoot(PathPrefix);

   179     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));

   179     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));

   180 

   180 

   181     hedgewarsMountPackages;

   181     hedgewarsMountPackages;