hedgewars/uPhysFSLayer.pas
branchspacecampaign
changeset 9382 f1464fa10c0b
parent 9378 2be457289e60
child 9407 860f959f92c9
equal deleted inserted replaced
9346:1245c7636380 9382:f1464fa10c0b
   131 var i: LongInt;
   131 var i: LongInt;
   132     cPhysfsId: shortstring;
   132     cPhysfsId: shortstring;
   133 begin
   133 begin
   134 {$IFDEF HWLIBRARY}
   134 {$IFDEF HWLIBRARY}
   135     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   135     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
   136     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF} ' hedgewars';
   136     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
   137 {$ELSE}
   137 {$ELSE}
   138     cPhysfsId:= ParamStr(0);
   138     cPhysfsId:= ParamStr(0);
   139 {$ENDIF}
   139 {$ENDIF}
   140 
   140 
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));