home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CAVE.ZIP / GLOBAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-14  |  1.4 KB  |  41 lines
  1. UNIT GLOBAL;
  2.  
  3. INTERFACE
  4.  
  5. uses x_graph,x_pcx,ctvoice;
  6.  
  7. CONST
  8.        KEYBOARD_INT=$09; KEY_BUFFER=$60; KEY_CONTROL=$61; INT_CONTROL=$20;
  9.        MAKE_RIGHT=77;    MAKE_LEFT=75;   MAKE_UP=72;      MAKE_DOWN=80;
  10.        BREAK_RIGHT=205;  BREAK_LEFT=203; BREAK_UP=200;    BREAK_DOWN=208;
  11.        INDEX_UP=0;       INDEX_DOWN=1;   INDEX_RIGHT=2;   INDEX_LEFT=3;
  12.        OVERBOARD=52;                     INTERSECTION_FOUND=1;
  13.        MAX_SCALE=200;        WINDOW_HEIGHT=192;         WINDOW_MIDDLE=116;
  14.        VERTICAL_SCALE=13312;
  15.        ANGLE_0=0;    ANGLE_1=5;   ANGLE_2=10;   ANGLE_4=20;   ANGLE_5=25;
  16.        ANGLE_6=30;   ANGLE_15=80; ANGLE_30=160; ANGLE_45=240; ANGLE_60=320;
  17.        ANGLE_90=480;           ANGLE_135=720;           ANGLE_180=960;
  18.        ANGLE_225=1200;         ANGLE_270=1440;          ANGLE_315=1680;
  19.        ANGLE_360=1919;
  20.        WORLD_ROWS=64;           WORLD_COLUMNS=64;
  21.        CELL_X_SIZE=64;         CELL_Y_SIZE=64;          CELL_X_SIZE_FP=6;
  22.        CELL_Y_SIZE_FP=6;
  23.        WORLD_X_SIZE=(WORLD_COLUMNS * CELL_X_SIZE);
  24.        WORLD_Y_SIZE=(WORLD_ROWS    * CELL_Y_SIZE);
  25.  
  26. TYPE
  27.    enemy_info=record
  28.          numhp,curframe,xpos,ypos,daminflict:byte
  29.    end;
  30.    enemypointer=^enemyrec;
  31.    enemyrec=record
  32.       enemy:enemy_info;
  33.       link:enemypointer;
  34.    end;
  35.  
  36. VAR  curpageoff:word;
  37.      enemies:enemypointer;
  38.  
  39. IMPLEMENTATION
  40. BEGIN
  41. END.