home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 133.OFFLINE.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-27  |  3KB  |  113 lines
  1. { I keep forgetting to turn off 286 instruction set.  So, better force it
  2.   off here, before I confuse any more 286 people. }
  3. {$A+}        { speed up us 80x86 guys }
  4. {$B-}        { I dig short circuits }
  5. {$I+}        { pisses people off when they hit a letter, but its better than
  6.                gigo. }
  7. {$G-}        { turn OFF 286 instruction set }
  8. {$M 32767, 0, 65520 }
  9.  
  10. program offline;
  11. { This will do the various sorts of computations you might want to do with
  12. your data base but while not playing.  You might plan itineraries, identify
  13. defensible structures, identify areas of control, spot high traffic areas, 
  14. and so on. }
  15.  
  16. uses
  17.   DOS, CRT;
  18.  
  19. {$I headers.inc}
  20. var {globals}
  21.   space     : TheVoid;
  22.   BBSname   : string;
  23.   quit      : boolean;
  24.   distances : distancearray;
  25.   mono,
  26.   verbose   : boolean;
  27.   inverses  : inversearray;
  28.   invdone   : boolean;
  29.  
  30. {$I misc.inc }
  31. {$I GSDATA.INC }
  32. {$I queue.inc }
  33. {$I distance.inc }
  34. {$I decount.inc }
  35. {$I control.inc }
  36. {$I status.inc }
  37. {$I textdisp.inc }
  38. {$I basepath.inc }
  39. {$I hitrffic.inc }
  40. {$I statistc.inc }
  41. {$I tour.inc }
  42. {$I multpath.inc }
  43. {$I unknown.inc }
  44. {$I oneway.inc}
  45. {$I parseeth.inc}
  46. {$I sctrlist.inc }
  47. {$I robpath.inc}
  48. {$I listbust.inc}
  49. {$I initdefs.inc}
  50. procedure menu;
  51. begin
  52.   writeln;
  53.   writeln('<C>ontrolled sector status');
  54.   writeln('<D>ead end analysis');
  55.   writeln('suggest <E>therprobe targets');
  56.   writeln('<L>ist bust records');
  57.   writeln('visit <M>ultiple sectors efficiently');
  58.   writeln('<O>ne way warps');
  59.   writeln('<P>arse captured ASCII text');
  60.   writeln('<Q>uit');
  61.   writeln('<R>obbing path');
  62.   writeln('<S>tellar dispersion');
  63.   writeln('<T>raffic area analysis');
  64.   writeln('<U>known sectors');
  65.   writeln('<V>isit every sector');
  66.   writeln;
  67. end; {menu}
  68.  
  69. function choice : char;
  70. var
  71.   ch : char;
  72. begin
  73.   write('(', BBSName, ') [C, D, E, L, M, O, P, Q, R, S, T, U, V] Your choice?  ');
  74.   readln( ch );
  75.   choice := upcase( ch );
  76. end;
  77.  
  78. begin
  79.   writeln('Tradewars Offline Data Base Inquiry program: ', version);
  80.   writeln( author );
  81.   writeln( source );
  82.   writeln;
  83.   Quit := false;
  84.   GetInits( verbose, mono );
  85.   invdone := false;
  86.   InitSpace( Space );
  87.   if paramcount > 0 then
  88.     BBSName := paramstr( 1 )
  89.   else
  90.     BBSName := '';
  91.   GetData( Space, BBSName, false );
  92.   menu;
  93.   repeat
  94.     case choice of
  95.       'C' : Control;
  96.       'D' : DeadEndAnalysis;
  97.       'E' : SuggestEtherProbes;
  98.       'L' : ListBusts;
  99.       'M' : MultiPassSector;
  100.       'O' : OneWaySectorList;
  101.       'P' : ParseCapturedText;
  102.       'Q' : quit := true;
  103.       'R' : RobPath;
  104.       'S' : StellarDispersion;
  105.       'T' : HighTraffic;
  106.       'U' : UnknownSectors;
  107.       'V' : VisitEverySector;
  108.     else
  109.       menu;
  110.     end; {case}
  111.   until quit;
  112. end.
  113.