src/items.mpsrc

   1 unit items;
   2
   3 interface
   4  const
   5   ITEM_TYPE_BLOCK=0;
   6   ITEM_TYPE_TOOL=1;
   7
   8   ITEM_FLAG_IND1=1;
   9   ITEM_FLAG_IND2=2;
  10   ITEM_FLAG_DIV=4;
  11   ITEM_FLAG_TEX=8;
  12  var
  13   compas:image;
  14   clock:array[0..7] of image;
  15   none0:image;
  16   clock_stage:integer;
  17
  18  function getBlockTrans(id:integer;):boolean;
  19  function getBlockFore(id:integer;):boolean;
  20  function getBlockSet(id:integer;):boolean;
  21
  22  function getItemIndNum(id:integer):boolean;
  23  function getItemIndLine(id:integer):boolean;
  24  function getItemDiv(id:integer):boolean;
  25  function getItemTexType(id:integer):integer;
  26
  27  procedure setMaxItemList(i:integer);
  28  procedure setItemList(item, i:integer);
  29  function getItemList(i:integer):integer;
  30
  31 implementation
  32  uses items_store;
  33  const
  34   BLOCK_FLAG_Trans=1;
  35   BLOCK_FLAG_FORE=2;
  36   BLOCK_FLAG_SET=4;
  37
  38  var
  39   itemListSize:integer;
  40   itemList: array [0..0] of integer;
  41
  42  function getBlockTrans(id:integer;):boolean;
  43   begin
  44    getBlockTrans:=(getBlockFlags(id) and BLOCK_FLAG_Trans)>0;
  45   end;
  46
  47  function getBlockFore(id:integer;):boolean;
  48   begin
  49    getBlockFore:=(getBlockFlags(id) and BLOCK_FLAG_FORE)>0;
  50   end;
  51
  52  function getBlockSet(id:integer;):boolean;
  53   begin
  54    getBlockSet:=(getBlockFlags(id) and BLOCK_FLAG_SET)>0;
  55   end;
  56
  57  function getItemIndNum(id:integer):boolean;
  58   begin
  59    getItemIndNum:=(getItemFlags(id) and ITEM_FLAG_IND1)>0;
  60   end;
  61
  62  function getItemIndLine(id:integer):boolean;
  63   begin
  64    getItemIndLine:=(getItemFlags(id) and ITEM_FLAG_IND2)>0;
  65   end;
  66
  67  function getItemDiv(id:integer):boolean;
  68   begin
  69    getItemDiv:=(getItemFlags(id) and ITEM_FLAG_DIV)>0;
  70   end;
  71
  72  function getItemTexType(id:integer):integer;
  73   begin
  74    getItemTexType:=(getItemFlags(id) and ITEM_FLAG_TEX)>>3;
  75   end;
  76
  77  procedure setMaxItemList(i:integer);
  78   begin
  79    itemListSize:=i;
  80    i:=i+1;
  81    bytecode
  82     iload 0;
  83     newarray 10;
  84     putstatic field 'items', 'itemlist', '[I';
  85    end;
  86   end;
  87
  88  procedure setItemList(i, item:integer);
  89   begin
  90    itemList[i]:=item;
  91   end;
  92
  93  function getItemList(i:integer):integer;
  94   begin
  95    if (i>=0) and (i<=itemListSize) then
  96     getItemList:=itemList[i];
  97   end;
  98 end.