New implementation of module Items, *.cfg files now deprecated

[cavecraft.git] / src / func.mpsrc

diff --git a/src/func.mpsrc b/src/func.mpsrc
index 5089d0cc60be5a4b483fb3aba90da7b744cd566f..bce8640e1089e1289ecb8bfd20d74d4e988f5501 100644 (file)
--- a/src/func.mpsrc
+++ b/src/func.mpsrc
@@ -4,8 +4,10 @@ interface
  function get_spawn_x:integer;//Возвращает блок по X где должен появиться игрок\r
  function get_spawn_y:integer;//Возвращает блок по Y где должен появиться игрок\r
  procedure draw_block(xx,yy:integer);\r
  function get_spawn_x:integer;//Возвращает блок по X где должен появиться игрок\r
  function get_spawn_y:integer;//Возвращает блок по Y где должен появиться игрок\r
  procedure draw_block(xx,yy:integer);\r

+(*\r

  procedure drawSmallItem(item, x, y:integer);\r
  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r
  procedure drawSmallItem(item, x, y:integer);\r
  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r

+*)\r

  procedure LoadDrawFont(s:string);\r
  procedure DrawFontTextSpec(str:string; x, y, color:integer; spec:boolean;);\r
  procedure DrawFontText(str:string; x, y:integer);\r
  procedure LoadDrawFont(s:string);\r
  procedure DrawFontTextSpec(str:string; x, y, color:integer; spec:boolean;);\r
  procedure DrawFontText(str:string; x, y:integer);\r


@@ -18,7 +20,7 @@ procedure writestr(s:string);
 function readstr:string;\r
 \r
 implementation\r
 function readstr:string;\r
 \r
 implementation\r

- uses canvas,imgcolor,jsr75i, vars, safeload,  items,maps, items_store;\r
+ uses canvas, imgcolor, jsr75i, vars, safeload, Blocks, maps, items_store;\r

 \r
 //Загрузка текстуры с автоматическим выбором источника\r
 function ld_tex(name, path, folder : String) : Image;\r
 \r
 //Загрузка текстуры с автоматическим выбором источника\r
 function ld_tex(name, path, folder : String) : Image;\r


@@ -102,6 +104,7 @@ function readstr:string;
     if getmap(get_spawn_x,iy)<>0 then begin get_spawn_y:=(iy-2); break; end;\r
   end;\r
 \r
     if getmap(get_spawn_x,iy)<>0 then begin get_spawn_y:=(iy-2); break; end;\r
   end;\r
 \r

+(*\r

  procedure drawSmallItem(item, x, y:integer);\r
   begin\r
    if getItemTexType(item)=0 then\r
  procedure drawSmallItem(item, x, y:integer);\r
   begin\r
    if getItemTexType(item)=0 then\r


@@ -110,6 +113,7 @@ function readstr:string;
    if getItemTexType(item)=1 then\r
     drawimage(item8[getItemTex(item)], x, y);\r
   end;\r
    if getItemTexType(item)=1 then\r
     drawimage(item8[getItemTex(item)], x, y);\r
   end;\r

+*)\r

 \r
  procedure draw_block(xx,yy:integer);\r
   begin\r
 \r
  procedure draw_block(xx,yy:integer);\r
   begin\r


@@ -122,9 +126,9 @@ function readstr:string;
     end; else\r
    if (getmap(xx,yy)=92) or (getmap(xx,yy)=93) then\r
     begin\r
     end; else\r
    if (getmap(xx,yy)=92) or (getmap(xx,yy)=93) then\r
     begin\r

-     if (getBlockSet(getmap(xx-1,yy))=false) and (getBlockSet(getmap(xx+1,yy))=true) then setclip((xx*16)-camx,(yy*16)-camy,10,16); else\r
-     if (getBlockSet(getmap(xx+1,yy))=false) and (getBlockSet(getmap(xx-1,yy))=true) then setclip((xx*16)-camx+6,(yy*16)-camy,10,16); else\r
-     if (getBlockSet(getmap(xx+1,yy))=true) and (getBlockSet(getmap(xx-1,yy))=true) then setclip((xx*16)-camx+6,(yy*16)-camy,4,16);\r
+     if (Blocks.IsOverlapped(getmap(xx - 1, yy)) = false) and (Blocks.IsOverlapped(getmap(xx + 1, yy)) = true) then setclip((xx*16)-camx,(yy*16)-camy,10,16); else\r
+     if (Blocks.IsOverlapped(getmap(xx + 1, yy)) = false) and (Blocks.IsOverlapped(getmap(xx - 1, yy)) = true) then setclip((xx*16)-camx+6,(yy*16)-camy,10,16); else\r
+     if (Blocks.IsOverlapped(getmap(xx + 1, yy)) = true) and (Blocks.IsOverlapped(getmap(xx - 1, yy)) = true) then setclip((xx*16)-camx+6,(yy*16)-camy,4,16);\r

      drawimage(tex[getBlockTex(getmap(xx,yy))],(xx*16)-camx,(yy*16)-camy);\r
      setclip(0,0,getwidth,getheight);\r
     end; else\r
      drawimage(tex[getBlockTex(getmap(xx,yy))],(xx*16)-camx,(yy*16)-camy);\r
      setclip(0,0,getwidth,getheight);\r
     end; else\r


@@ -166,6 +170,7 @@ function readstr:string;
     drawimage(tex[getBlockTex(getmap(xx,yy))],(xx*16)-camx,(yy*16)-camy);\r
   end;\r
 \r
     drawimage(tex[getBlockTex(getmap(xx,yy))],(xx*16)-camx,(yy*16)-camy);\r
   end;\r
 \r

+(*\r

  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r
   var\r
    pa_xo,ugol:integer;\r
  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r
   var\r
    pa_xo,ugol:integer;\r


@@ -213,7 +218,7 @@ function readstr:string;
       drawfonttext(''+sum, x, y+8);\r
     end;\r
   end;\r
       drawfonttext(''+sum, x, y+8);\r
     end;\r
   end;\r

-\r
+*)\r

 \r
 //Загрузка шрифта из файла под именем s\r
 procedure LoadDrawFont(s:string);\r
 \r
 //Загрузка шрифта из файла под именем s\r
 procedure LoadDrawFont(s:string);\r