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   compas:image;
  54   clock:array[0..7] of image;
  55   none5:image;
  56   clock_stage:integer;
  57
  58  procedure initBlockTex(i:integer);
  59  procedure initItemTex(i:integer);
  60
  61 implementation
  62
  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;
  78
  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;
  94
  95 end.