home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 252.OFFLINE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-09  |  2KB  |  75 lines
  1. program offline;
  2. { This will do the various sorts of computations you might want to do with
  3. your data base but while not playing.  You might plan itineraries, identify
  4. defensible structures, identify areas of control, spot high traffic areas,
  5. and so on. }
  6.  
  7. {$I headers.inc}
  8.  
  9. const
  10.   Version  = 'dos 0.88a';
  11.  
  12. var {globals}
  13.   space     : TheVoid;
  14.   BBSname   : string;
  15.   quit      : boolean;
  16.   distances : distancearray;
  17.  
  18. {$I misc.inc }
  19. {$I GSDATA.INC }
  20. {$I queue.inc }
  21. {$I decount.inc }
  22. {$I control.inc }
  23. {$I basepath.inc }
  24. {$I distance.inc }
  25. {$I status.inc }
  26. {$I textdisp.inc }
  27. {$I hitrffic.inc }
  28. {$I statistc.inc }
  29.  
  30. procedure menu;
  31. begin
  32.   writeln;
  33.   writeln('<C>ontrolled sector status');
  34.   writeln('<D>ead end analysis');
  35.   writeln('<Q>uit');
  36.   writeln('<S>tellar dispersion');
  37.   writeln('<T>raffic area analysis');
  38.   writeln;
  39. end; {menu}
  40.  
  41. function choice : char;
  42. var
  43.   ch : char;
  44. begin
  45.   write('(', BBSName, ') [C, D, Q, S, T] Your choice?  ');
  46.   readln( ch );
  47.   choice := upcase( ch );
  48. end;
  49.  
  50. begin
  51.   writeln('Tradewars Offline Data Base Inquiry program: version ', version);
  52.   writeln( author );
  53.   writeln( source );
  54.   writeln;
  55.   Quit := false;
  56.   InitSpace( Space );
  57.   if paramcount > 0 then
  58.     BBSName := paramstr( 1 )
  59.   else
  60.     BBSName := '';
  61.   GetData( Space, BBSName );
  62.   menu;
  63.   repeat
  64.     case choice of
  65.       'C' : Control;
  66.       'D' : DeadEndAnalysis;
  67.       'Q' : quit := true;
  68.       'S' : StellarDispersion;
  69.       'T' : HighTraffic;
  70.     else
  71.       menu;
  72.     end; {case}
  73.   until quit;
  74. end.
  75.