home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPADV.ZIP / GLOBALS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-08-12  |  2.8 KB  |  89 lines
  1. unit Globals;
  2.  
  3. interface
  4.                     (****** CONSTANT DECLARATIONS ******)
  5. const
  6.   Debug        = False;
  7.   MaxRobots    = 3;
  8.   MaxHiScores  = 40;
  9.   SWall        = 130;
  10.   MapX         = 0;
  11.   MapY         = 129;
  12.   NoofIcons    = 20;
  13.   IconSize     = 205;
  14.   SAdir        = '';
  15.   North        = 1;
  16.   South        = 2;
  17.   West         = 4;
  18.   East         = 8;
  19.   Shield       = 16;
  20.   Block        = 32;
  21.   Pform        = 64;
  22.   Panel        = 128;
  23.   Ppack        = 1;
  24.   Key          = 2;
  25.   Crystal      = 6;
  26.   ObjIcon      : array[1..9] of byte
  27.                = (16,17,17,17,17,18,18,18,18);
  28.   OneWay       : array[1..10,1..3] of byte
  29.                = ((1,2,1),(1,3,1),(1,9,1),
  30.                   (2,3,1),(2,9,3),(2,14,1),(2,14,3),
  31.                   (3,2,3),(3,3,3),(3,14,1));
  32.   PCcompatible = True;
  33.  
  34.                      (***** TYPE DECLARATIONS *****)
  35. type
  36.   IconTyp = array [1..IconSize] of byte;
  37.   ShipTyp = array [1..3,1..14,1..3] of record
  38.               Interior:word;
  39.                             Objekt:byte;
  40.               Visited:boolean;
  41.             end;
  42.   WeapTyp = (Phaser,Blaster);
  43.   Str80   = string[80];
  44.   ScrTyp  = array [1..16240] of byte;
  45.   HiscTyp = array [1..MaxHiScores] of record
  46.               Hname  : string [16];
  47.               Hscore : integer;
  48.               Hdone  : boolean;
  49.             end;
  50.  
  51.                       (**** VARIABLE DECLARATIONS *****)
  52. var
  53.   Tit1,Tit2                   : ScrTyp;
  54.   TitleFile                   : file of ScrTyp;
  55.   Scr                         : byte absolute $B800:0000;
  56.   Scr2                        : byte absolute $B800:8120;
  57.   Ship                        : ShipTyp;
  58.   ShipFile                    : file of ShipTyp;
  59.   HiScore                     : HiscTyp;
  60.   HiScoreFile                 : file of HiscTyp;
  61.   Icon                        : array [1..NoofIcons] of IconTyp;
  62.   KeyCarried                  : array [0..3] of boolean;
  63.   Robot                       : array [1..MaxRobots] of record
  64.                                   Xr,Yr,Xrd,Yrd,Xrb,Yrb,Xrbd,Yrbd:integer;
  65.                                   Typ,Power:byte;
  66.                                   Bl:boolean;
  67.                                 end;
  68.   Weapon                      : WeapTyp;
  69.   WSupp                       : array [WeapTyp] of integer;
  70.   Ym,Yb,Man,WlkC,Robots,
  71.   RobotsLeft,Hit,MessCnt,Keys,
  72.   Ppacks,Crystals,Width,Page,
  73.   CurrObj,Obx,Oby,Skill,Level,
  74.   NewLevel,ShipX,ShipY,Ox,Oy  : byte;
  75.   Ctr,Ctr2,Ctr3,Code,Size,
  76.   Gd,Gm,Xm,Xd,Yd,Xod,Yod,
  77.   Xb,Xbd,Ybd,Dist,BulSound,
  78.   RobotsKilled,PpacksUsed,
  79.   Rooms,Score,LifeSupp        : integer;
  80.   Teleport,Walk,Bul,RFlag,
  81.   Leave,Dead,Done,Quit,Noise,
  82.   ShwTitle                    : boolean;
  83.   K1,K2,K3                    : char;
  84.   Pause,TempPause,BkColor     : shortint;
  85.  
  86. implementation
  87.  
  88. end.
  89.