X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2Ffunc.mpsrc;h=5089d0cc60be5a4b483fb3aba90da7b744cd566f;hp=a80e3eca0bcb3966906e285a8b71fe66dea9fe68;hb=e1395893ec7223a8a86c66cdc49e4a9fb48b15c2;hpb=0f57c7b3e61ce764ab1a52fd7723b928bed083ec diff --git a/src/func.mpsrc b/src/func.mpsrc index a80e3ec..5089d0c 100644 --- a/src/func.mpsrc +++ b/src/func.mpsrc @@ -20,18 +20,20 @@ function readstr:string; implementation uses canvas,imgcolor,jsr75i, vars, safeload, items,maps, items_store; - //Загрузка изображения из текстурпака, ели такого нет, то происходит загрузка из архива игры -function ld_tex(name,path,folder:string):image; - begin - if tex_pack<>'' then - begin - if file_exists(path+folder+name)=1 then - begin - ld_tex:=safely_load_image_fs(path+folder+name); - end; else ld_tex:=loadimage('/'+folder+name); - end; - if tex_pack='' then ld_tex:=loadimage('/'+folder+name); - end; +//Загрузка текстуры с автоматическим выбором источника +function ld_tex(name, path, folder : String) : Image; + var + n, p : String; + begin + n := folder + name; + + //Debug("ld_tex (tex_pack:" + tex_pack + ") : " + path + n); + + if file_exists(path + n) = 1 then + ld_tex := safely_load_image_fs(path + n); + else + ld_tex := loadimage('/' + n); + end; function readint:integer; var