DEADSOFTWARE

e7db3e379d12da1b8882db80041b64f60a09ad6d
[cavecraft.git] / src / vars.mpsrc
1 unit vars;
3 interface
4 const
5 max_sounds=13;
7 FONT_STD_COLOR=$FFFFFFFF;
8 FONT_YELLOW_COLOR=$FFFFFF00;
9 FONT_MAX_SYM=127;
10 FONT_SYM_SIZE=8;
12 MAP_W=256;
13 MAP_H=128;
15 TILE_SIZE=16;
17 var
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;//номер слота на "поясе"
28 tex_pack:string;
29 bl_ani5:integer;
31 bl_ani5_v,bl_ani5_d:boolean;
33 fish:boolean;
36 fish_time:integer;
37 hung_time,hp_time,air_time,portal_time:integer;
38 fx,fy:integer;
40 maxBlockTex, maxItemTex:integer;
42 tex:array [0..0] of image;
43 none0:image;
44 tex8:array [0..0] of image;
45 none1:image;
46 item:array [0..0] of image;
47 none2:image;
48 item8:array [0..0] of image;
49 none3:image;
50 font:array [0..127] of image;
51 none4:image;
53 compas:image;
54 clock:array[0..7] of image;
55 none5:image;
56 clock_stage:integer;
58 procedure initBlockTex(i:integer);
59 procedure initItemTex(i:integer);
61 implementation
63 procedure initBlockTex(i:integer);
64 begin
65 maxblocktex:=i;
66 i:=i+1;
67 bytecode
68 iload 0;
69 multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
70 putstatic field 'vars', 'tex', '[Ljavax/microedition/lcdui/Image;';
71 end;
72 bytecode
73 iload 0;
74 multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
75 putstatic field 'vars', 'tex8', '[Ljavax/microedition/lcdui/Image;';
76 end;
77 end;
79 procedure initItemTex(i:integer);
80 begin
81 maxItemTex:=i;
82 i:=i+1;
83 bytecode
84 iload 0;
85 multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
86 putstatic field 'vars', 'item', '[Ljavax/microedition/lcdui/Image;';
87 end;
88 bytecode
89 iload 0;
90 multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
91 putstatic field 'vars', 'item8', '[Ljavax/microedition/lcdui/Image;';
92 end;
93 end;
95 end.