blocks.cfg -> Blocks.pas

[cavecraft.git] / src / func.mpsrc

diff --git a/src/func.mpsrc b/src/func.mpsrc
index bce8640e1089e1289ecb8bfd20d74d4e988f5501..1edb76fff251e27bdccf396df6ba65a86fcdd230 100644 (file)
--- a/src/func.mpsrc
+++ b/src/func.mpsrc
@@ -3,8 +3,8 @@ unit func;
 interface\r
  function get_spawn_x:integer;//Возвращает блок по X где должен появиться игрок\r
  function get_spawn_y:integer;//Возвращает блок по Y где должен появиться игрок\r
- procedure draw_block(xx,yy:integer);\r
 (*\r
+ procedure draw_block(xx,yy:integer);\r
  procedure drawSmallItem(item, x, y:integer);\r
  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r
 *)\r
@@ -115,6 +115,7 @@ function readstr:string;
   end;\r
 *)\r
 \r
+(*\r
  procedure draw_block(xx,yy:integer);\r
   begin\r
    if (getmap(xx,yy)=123) or (getmap(xx,yy)=124) then\r
@@ -169,6 +170,7 @@ function readstr:string;
    if getmap(xx,yy)<>0 then\r
     drawimage(tex[getBlockTex(getmap(xx,yy))],(xx*16)-camx,(yy*16)-camy);\r
   end;\r
+*)\r
 \r
 (*\r
  procedure drawItem(item, sum, x, y:integer; indicator:boolean;);\r