home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 261.HEADERS.INC < prev    next >
Text File  |  1991-07-08  |  2KB  |  79 lines
  1. const
  2. { general constants }
  3.   error      = -1;
  4.   author     = 'Copyright 1991 by Robert Weaver.  All Rights Reserved.';
  5.   source     = 'For latest versions, call 415-376-1554';
  6.   FileNotFound =   2;
  7.   abort      = 'abort';
  8. { universe dimensions }
  9.   maxSector  = 1000;
  10.   maxWarps   = 6;
  11.   maxPorts   = 400;
  12.   maxNote    = 20;
  13.   NoteSize   = 60;
  14. { sector (warp number) flag }
  15.   UnExplored = 0;
  16. { stuff flags }
  17.   NotAPort   = -1;
  18.   Class0     = 8;
  19. { etc flags }
  20.   NoteExists = 1;
  21.   IsPort     = 2;
  22.   HasFighters= 4;
  23.   SpaceLane  = 8;
  24.   Stardock   = 128;
  25.   Nothing    = 0;
  26.  
  27. type
  28.   sector     = 1..maxSector;
  29.   dist = record
  30.            d : integer;
  31.            s : sector;
  32.          end;
  33.   distanceArray = array [ sector ] of dist;
  34.   sectorscanner = array [ sector ] of boolean;
  35.   warpindex  = 1..maxWarps;
  36.   stuff      = -1..8;      { 8 = class 0; xxx (binary) Equip, Org, Fuel }
  37.                            {-1 = not a port   1 = sell, 0 = buy         }
  38.   SectorIndex  = 0..maxSector;
  39.   SectorInfo = record
  40.                  number   : 0..maxWarps;
  41.                  data     : array [ warpindex ] of sector;
  42.                  porttype : stuff;
  43.                  etc      : integer;
  44.                end;
  45.  
  46.   note = record
  47.            reference : sector;
  48.            info      : string [ NoteSize ];
  49.          end;
  50.   NoteIndex = 0..MaxNote;
  51.   NoteList = record
  52.                top  : NoteIndex;
  53.                data : array [1..MaxNote] of note;
  54.              end;
  55.  
  56.   goods = ( Fuel, Organics, Equipment );
  57.   GoodsArray = array [ goods ] of integer;   { + = selling; - = buying }
  58.   percent = 0..100;
  59.   PercentArray = array [ goods ] of percent;
  60.   portSales = record
  61.                 where : sector;
  62.                 amts  : goodsArray;
  63.                 usage : percentArray;
  64.               end;
  65.   PortPtr = 1..MaxPorts;
  66.   PortIndex = 0..MaxPorts;
  67.   PortList  = record
  68.                 top  : PortIndex;
  69.                 data : array [ PortPtr ] of PortSales;
  70.               end;
  71.  
  72.   SectorArray = array [ sector ] of SectorInfo;
  73.   TheVoid = record
  74.               dock    : SectorIndex;
  75.               notes   : NoteList;
  76.               Ports   : PortList;
  77.               sectors : SectorArray;
  78.             end;
  79.