17 clock
:array[0..7] of image
;
21 function getBlockTrans(id
:integer;):boolean;
22 function getBlockFore(id
:integer;):boolean;
23 function getBlockSet(id
:integer;):boolean;
25 function getItemIndNum(id
:integer):boolean;
26 function getItemIndLine(id
:integer):boolean;
27 function getItemDiv(id
:integer):boolean;
28 function getItemTexType(id
:integer):integer;
30 procedure setMaxItemList(i
:integer);
31 procedure setItemList(item
, i
:integer);
32 function getItemList(i
:integer):integer;
43 itemList
: array [0..0] of integer;
45 function getBlockTrans(id
:integer;):boolean;
47 getBlockTrans
:=(getBlockFlags(id
) and BLOCK_FLAG_Trans
)>0;
50 function getBlockFore(id
:integer;):boolean;
52 getBlockFore
:=(getBlockFlags(id
) and BLOCK_FLAG_FORE
)>0;
55 function getBlockSet(id
:integer;):boolean;
57 getBlockSet
:=(getBlockFlags(id
) and BLOCK_FLAG_SET
)>0;
60 function getItemIndNum(id
:integer):boolean;
62 getItemIndNum
:=(getItemFlags(id
) and ITEM_FLAG_IND1
)>0;
65 function getItemIndLine(id
:integer):boolean;
67 getItemIndLine
:=(getItemFlags(id
) and ITEM_FLAG_IND2
)>0;
70 function getItemDiv(id
:integer):boolean;
72 getItemDiv
:=(getItemFlags(id
) and ITEM_FLAG_DIV
)>0;
75 function getItemTexType(id
:integer):integer;
77 getItemTexType
:=(getItemFlags(id
) and ITEM_FLAG_TEX
)>>3;
80 procedure setMaxItemList(i
:integer);
87 putstatic field
'items', 'itemlist', '[I';
91 procedure setItemList(i
, item
:integer);
96 function getItemList(i
:integer):integer;
98 if (i
>=0) and (i
<=itemListSize
) then
99 getItemList
:=itemList
[i
];