home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 099.HEADERS.INC < prev    next >
Text File  |  1992-08-01  |  3KB  |  106 lines
  1. const
  2. { general constants }
  3.   error      = maxint;
  4.   author     = 'Copyright 1991, 1992 by Robert Weaver.  All Rights Reserved.';
  5.   source     = 'For latest versions, call 510-376-1554';
  6.   version    = 'version 0.94 (dos) bugfix 1';
  7.   FileNotFound =   2;
  8.   abort      = 'abort';
  9. { universe dimensions }
  10.   maxSector  = 1000;
  11.   maxWarps   = 6;
  12.   maxPorts   = 420;
  13.   maxNote    = 400;        { max number of notes                       }
  14.   NoteSize   = 40;         { max size of note string                   }
  15.   MaxMPS     = 25;         { max "multi port sector" for robbing paths }
  16.   MaxInto = 8;             { maximum number of warps into a sector     }
  17. { sector (warp number) flag }
  18.   UnExplored = 0;
  19. { stuff flags }
  20.   NotAPort   = -1;
  21.   Class0     = 8;
  22. { etc flags }
  23.   NoteExists = 1;
  24.   IsPort     = 2;
  25.   HasFighters= 4;
  26.   SpaceLane  = 8;
  27.   Avoid      = 16;
  28.   Stardock   = 128;
  29.   Busted     = 256;
  30.   Nothing    = 0;
  31.  
  32. type
  33.   str3 = string[ 3 ];
  34.   SectorIndex  = 0..maxSector;
  35.   sector     = 1..maxSector;
  36.   PortPtr = 1..MaxPorts;
  37.   PortIndex = 0..MaxPorts;
  38.   dist = record
  39.            d : integer;
  40.            s : sector;
  41.          end;
  42.   distanceArray = array [ sector ] of dist;
  43.   sectorscanner = array [ sector ] of boolean;
  44.   DistanceTable = array [0..MaxMPS, 0..MaxMPS] of integer;
  45.   SectorVector  = record
  46.                     size : 0..MaxMPS;
  47.                     data : array [0..MaxMPS] of sectorindex;
  48.                   end;
  49.  
  50.   PortVector = record
  51.                  size : 0..MaxMPS;
  52.                  data : array [1..MaxMPS] of portIndex;
  53.                end;
  54.   warpindex  = 0..maxWarps;
  55.   stuff      = -1..8;      { 8 = class 0; xxx (binary) Equip, Org, Fuel }
  56.                            {-1 = not a port   1 = sell, 0 = buy         }
  57.   SectorInfo = record
  58.                  number   : 0..maxWarps;
  59.                  data     : array [ 1..maxwarps ] of sector;
  60.                  porttype : stuff;
  61.                  etc      : word;
  62.                end;
  63.  
  64.   note = record
  65.            reference : sector;
  66.            info      : string [ NoteSize ];
  67.          end;
  68.   NoteIndex = 0..MaxNote;
  69.   NoteList = record
  70.                top  : NoteIndex;
  71.                data : array [1..MaxNote] of note;
  72.              end;
  73.  
  74.   goods = ( Fuel, Organics, Equipment );
  75.   GoodsArray = array [ goods ] of integer;   { + = selling; - = buying }
  76.   percent = 0..100;
  77.   PercentArray = array [ goods ] of percent;
  78.   portTradeType = (AllTrades, EquipOrganic, EquipFuel, OrganicFuel);
  79.   portField = ( location, bust );
  80.   portSales = record
  81.                 where : sector;
  82.                 amts  : goodsArray;
  83.                 usage : percentArray;
  84.                 change: goodsArray;
  85.                 bustdate : word;
  86.               end;
  87.   PortList  = record
  88.                 top  : PortIndex;
  89.                 data : array [ PortPtr ] of PortSales;
  90.               end;
  91.  
  92.   SectorArray = array [ sector ] of SectorInfo;
  93.   TheVoid = record
  94.               dock    : SectorIndex;
  95.               notes   : NoteList;
  96.               Ports   : PortList;
  97.               sectors : SectorArray;
  98.             end;
  99.   invindex = 0..MaxInto;
  100.   inversearray = array [ sector ] of
  101.                    record
  102.                      number : invindex;
  103.                      data   : array [1..MaxInto] of sector;
  104.                    end;
  105.  
  106.