diff -r f26422ef0333 -r 93e16240f178 hedgewars/uStore.pas --- a/hedgewars/uStore.pas Sat Nov 17 09:03:47 2012 -0500 +++ b/hedgewars/uStore.pas Sun Nov 18 01:00:26 2012 +0400 @@ -56,9 +56,11 @@ procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; implementation -uses uMisc, uConsole, uMobile, uVariables, uUtils, uTextures, uRender, uRenderUtils, uCommands, - uDebug{$IFDEF USE_CONTEXT_RESTORE}, uWorld{$ENDIF} - {$IF NOT DEFINED(SDL13) AND DEFINED(USE_VIDEO_RECORDING)}, glut {$ENDIF}; +uses uMisc, uConsole, uMobile, uVariables, uUtils, uTextures, uRender, uRenderUtils, uCommands + , uPhysFSLayer + , uDebug + {$IFDEF USE_CONTEXT_RESTORE}, uWorld{$ENDIF} + {$IF NOT DEFINED(SDL13) AND DEFINED(USE_VIDEO_RECORDING)}, glut {$ENDIF}; //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); @@ -309,11 +311,9 @@ for fi:= Low(THWFont) to High(THWFont) do with Fontz[fi] do begin - s:= UserPathz[ptFonts] + '/' + Name; - if not FileExists(s) then - s:= Pathz[ptFonts] + '/' + Name; + s:= cPathz[ptFonts] + '/' + Name; WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... '); - Handle:= TTF_OpenFont(Str2PChar(s), Height); + Handle:= TTF_OpenFontRW(rwopsOpenRead(s), true, Height); SDLTry(Handle <> nil, true); TTF_SetFontStyle(Handle, style); WriteLnToConsole(msgOK) @@ -565,7 +565,7 @@ WriteToConsole(msgLoading + filename + '.png [flags: ' + inttostr(imageFlags) + '] '); s:= filename + '.png'; - tmpsurf:= IMG_Load(Str2PChar(s)); + tmpsurf:= IMG_Load_RW(rwopsOpenRead(s), true); if tmpsurf = nil then begin @@ -597,13 +597,7 @@ var tmpsurf: PSDL_Surface; begin // check for file in user dir (never critical) - tmpsurf:= LoadImage(UserPathz[path] + '/' + filename, imageFlags and (not ifCritical)); - - // if unsuccessful check data dir - if (tmpsurf = nil) then - tmpsurf:= LoadImage(Pathz[path] + '/' + filename, imageFlags); - - LoadDataImage:= tmpsurf; + tmpsurf:= LoadImage(cPathz[path] + '/' + filename, imageFlags); end;