7 FONT_STD_COLOR
=$FFFFFFFF;
8 FONT_YELLOW_COLOR
=$FFFFFF00;
18 pl_world
:integer;//мир в котором находится игрок (0 - обычный мир, 1 - нижний мир)
19 fps
:integer;//Текущий фпс, можно использовать для синхронизации
20 camx
,camy
:integer;//Координаты камеры
21 curx
,cury
:integer;//Координаты курсора игрока
22 game_time
:integer;//Игровое время
23 gamemode
:integer;//Режим игры
24 bon_chest
:boolean;//Генерировать бонусный сундук?
25 //invslot:integer;//номер слота на "поясе"
31 bl_ani5_v
,bl_ani5_d
:boolean;
37 hung_time
,hp_time
,air_time
,portal_time
:integer;
40 maxBlockTex
, maxItemTex
:integer;
42 tex
:array [0..0] of image
;
44 tex8
:array [0..0] of image
;
46 item
:array [0..0] of image
;
48 item8
:array [0..0] of image
;
50 font
:array [0..127] of image
;
53 procedure initBlockTex(i
:integer);
54 procedure initItemTex(i
:integer);
58 procedure initBlockTex(i
:integer);
64 multianewarray
class '[Ljavax/microedition/lcdui/Image;', 1;
65 putstatic field
'vars', 'tex', '[Ljavax/microedition/lcdui/Image;';
69 multianewarray
class '[Ljavax/microedition/lcdui/Image;', 1;
70 putstatic field
'vars', 'tex8', '[Ljavax/microedition/lcdui/Image;';
74 procedure initItemTex(i
:integer);
80 multianewarray
class '[Ljavax/microedition/lcdui/Image;', 1;
81 putstatic field
'vars', 'item', '[Ljavax/microedition/lcdui/Image;';
85 multianewarray
class '[Ljavax/microedition/lcdui/Image;', 1;
86 putstatic field
'vars', 'item8', '[Ljavax/microedition/lcdui/Image;';