src/vars.mpsrc

   1 unit vars;
   2
   3 interface
   4  const
   5    max_sounds=13;
   6
   7    FONT_STD_COLOR=$FFFFFFFF;
   8    FONT_YELLOW_COLOR=$FFFFFF00;
   9    FONT_MAX_SYM=127;
  10    FONT_SYM_SIZE=8;
  11
  12    MAP_W=256;
  13    MAP_H=128;
  14
  15    TILE_SIZE=16;
  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;//номер слота на "поясе"
  26
  27
  28   tex_pack:string;
  29   bl_ani5:integer;
  30
  31   bl_ani5_v,bl_ani5_d:boolean;
  32
  33   fish:boolean;
  34
  35
  36   fish_time:integer;
  37   hung_time,hp_time,air_time,portal_time:integer;
  38   fx,fy:integer;
  39
  40   maxBlockTex, maxItemTex:integer;
  41
  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;
  52
  53  procedure initBlockTex(i:integer);
  54  procedure initItemTex(i:integer);
  55
  56 implementation
  57
  58  procedure initBlockTex(i:integer);
  59   begin
  60    maxblocktex:=i;
  61    i:=i+1;
  62    bytecode
  63     iload 0;
  64     multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
  65     putstatic field 'vars', 'tex', '[Ljavax/microedition/lcdui/Image;';
  66    end;
  67    bytecode
  68     iload 0;
  69     multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
  70     putstatic field 'vars', 'tex8', '[Ljavax/microedition/lcdui/Image;';
  71    end;
  72   end;
  73
  74  procedure initItemTex(i:integer);
  75   begin
  76    maxItemTex:=i;
  77    i:=i+1;
  78    bytecode
  79     iload 0;
  80     multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
  81     putstatic field 'vars', 'item', '[Ljavax/microedition/lcdui/Image;';
  82    end;
  83    bytecode
  84     iload 0;
  85     multianewarray class '[Ljavax/microedition/lcdui/Image;', 1;
  86     putstatic field 'vars', 'item8', '[Ljavax/microedition/lcdui/Image;';
  87    end;
  88   end;
  89
  90 end.