home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 283.CONVERT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-09  |  4KB  |  136 lines
  1. { Part one will parse a log file, and store explored sectors; then
  2. create a text file that you can feed to the computer that will give you
  3. a map of the universe.  Part two will take a log file generated from
  4. feeding the first to the computer, and create a data file that can
  5. be fed into something else.
  6.  
  7. Well, this has been expanded a bit since the first note.  It now does
  8. a variety of conversion tasks, from fighter clouds to major space lane stuff.
  9. But that is always the problem with programs -- they always outstrip the
  10. documentation, eh?  Program begun Dec 1990 by woody.
  11. }
  12. program converter;
  13.  
  14. {$I headers.inc}
  15.  
  16. const
  17.   Version  = ' dos 0.88a';
  18.  
  19. var
  20.   upl,
  21.   ext,
  22.   mss       : string;
  23.   othername,
  24.   BBSName   : string;
  25.   ch        : char;
  26.   n         : integer;
  27.   f, g      : text;
  28.   space     : TheVoid;
  29.  
  30. {$I QUEUE.INC }
  31. {$I status.inc }
  32. {$I misc.inc }
  33. {$I PortStat.inc }
  34. {$I gsdata.inc }
  35. {$I part13.inc}
  36. {$I part2.inc}
  37. {$I part4.inc}
  38. {$I part5.inc}
  39. {$I part6.inc}
  40. {$I part89.inc}
  41. {$I editbase.inc}
  42.  
  43. begin {main}
  44.   writeln('Tradewars Data Base generator: version', Version);
  45.   writeln( author );
  46.   writeln( source );
  47.   writeln;
  48.   InitSpace( Space );
  49.   if paramcount > 0 then
  50.     BBSName := paramstr( 1 )
  51.   else
  52.     BBSName := '';
  53.   GetData( space, BBSName );
  54.   repeat
  55.     repeat
  56.       writeln('Choices:');
  57.       writeln('  (0)  Let me out of here!');
  58.       writeln('  (1)  Read "Explored/Unexplored Sectors"',
  59.               'for newly scanned sectors');
  60.       writeln('  (2)  Read log files for inter-warp and port information');
  61.       writeln('  (3)  Read "Fighter Display" list for fighter clouds');
  62.       writeln('  (4)  Generate upload file for determining Major Space Lanes');
  63.       writeln('  (5)  Read "Major Space Lanes" downloaded file into database');
  64.       writeln('  (6)  Add some other explorer''s data into database');
  65.       writeln('  (7)  Perform editing on data base');
  66.       writeln('  (8)  Read "Interrogation Mode" sector report');
  67.       writeln('  (9)  Read "Interrogation Mode" port report');
  68.       writeln;
  69.       write('(', BBSname, ')  Your choice?  (0, 1, ..., 9) ');
  70.       readln( ch );
  71.     until ch in ['0'..'9'];
  72.     n := ord( ch ) - ord( '0' );
  73.     if n = 0 then halt;
  74.     upl := 'dat';
  75.     case n of
  76.       1 : begin
  77.             mss := '"Explored/Unexplored Sectors"';
  78.             ext := 'exp';
  79.             upl := 'upl';
  80.           end;
  81.       2 : begin
  82.             mss := 'log';
  83.             ext := 'log';
  84.           end;
  85.       3 : begin
  86.             mss := '"Deployed Fighter Scan"';
  87.             ext := 'ftr';
  88.           end;
  89.       4 : upl := 'upl';
  90.       5 : begin
  91.             mss := '"Major Space Lanes"';
  92.             ext := 'msl';
  93.           end;
  94.       6 : begin
  95.             mss :='other database';
  96.             ext := 'unk';
  97.           end;
  98.       7 : ;
  99.       8 : begin
  100.             mss := 'sector report file';
  101.             ext := 'sct';
  102.           end;
  103.       9 : begin
  104.             mss := 'port report file';
  105.             ext := 'prt';
  106.           end;
  107.     end; {case}
  108.     if not (n in [4,7]) then
  109.       begin
  110.         othername := GetOldFileName( 'Name of ' + mss + ' file?  ',
  111.                                      bbsname + '.' + ext );
  112.         if n <> 6 then
  113.           begin
  114.             assign( f, othername);
  115.             reset( f );
  116.           end; {if}
  117.       end; {if}
  118.     assign( g, GetNewFileName('Name of file to generate? ',
  119.                                 bbsname + '.' + upl) );
  120.     rewrite( g );
  121.     case n of
  122.       1 : partOneThree;
  123.       2 : partII( space);
  124.       3 : partIV( space );
  125.       4 : partV;
  126.       5 : partVI( space );
  127.       6 : begin GetData( space, othername ); SaveData( g, space ); end;
  128.       7 : begin EditMenu; SaveData( g, space ); end;
  129.       8 : partVIII( f, Space );
  130.       9 : partIX( f, Space );
  131.     end; {case}
  132.     if n in [1, 2, 3, 5, 8, 9] then
  133.       close( f );
  134.   until n = 0;
  135. end.
  136.