equal
deleted
inserted
replaced
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; |
156 {$ENDIF MOBILE} |
156 {$ENDIF} |
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; |
176 {$ENDIF MOBILE} |
176 {$ENDIF} |
177 |
177 |
178 pfsMountAtRoot(PathPrefix); |
178 pfsMountAtRoot(PathPrefix); |
179 pfsMountAtRoot(UserPathPrefix + ansistring('/Data')); |
179 pfsMountAtRoot(UserPathPrefix + ansistring('/Data')); |
180 |
180 |
181 hedgewarsMountPackages; |
181 hedgewarsMountPackages; |