home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / TWVIEW91.ZIP / CONVERT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-03-11  |  3.8 KB  |  134 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.  
  17. var
  18.   upl,
  19.   ext,
  20.   mss       : string;
  21.   othername,
  22.   BBSName   : string;
  23.   ch        : char;
  24.   n         : integer;
  25.   f, g      : text;
  26.   space     : TheVoid;
  27.  
  28. {$I QUEUE.INC }
  29. {$I status.inc }
  30. {$I misc.inc }
  31. {$I PortStat.inc }
  32. {$I gsdata.inc }
  33. {$I part13.inc}
  34. {$I part2.inc}
  35. {$I part4.inc}
  36. {$I part5.inc}
  37. {$I part6.inc}
  38. {$I part89.inc}
  39. {$I editbase.inc}
  40.  
  41. begin {main}
  42.   writeln('Tradewars Data Base generator: ', Version);
  43.   writeln( author );
  44.   writeln( source );
  45.   writeln;
  46.   InitSpace( Space );
  47.   if paramcount > 0 then
  48.     BBSName := paramstr( 1 )
  49.   else
  50.     BBSName := '';
  51.   GetData( space, BBSName );
  52.   repeat
  53.     repeat
  54.       writeln('Choices:');
  55.       writeln('  (0)  Let me out of here!');
  56.       writeln('  (1)  Read "Explored/Unexplored Sectors"',
  57.               'for newly scanned sectors');
  58.       writeln('  (2)  Read log files for inter-warp and port information');
  59.       writeln('  (3)  Read "Fighter Display" list for fighter clouds');
  60.       writeln('  (4)  Generate upload file for determining Major Space Lanes');
  61.       writeln('  (5)  Read "Major Space Lanes" downloaded file into database');
  62.       writeln('  (6)  Add some other explorer''s data into database');
  63.       writeln('  (7)  Perform editing on data base');
  64.       writeln('  (8)  Read "Interrogation Mode" sector report');
  65.       writeln('  (9)  Read "Interrogation Mode" port report');
  66.       writeln;
  67.       write('(', BBSname, ')  Your choice?  (0, 1, ..., 9) ');
  68.       readln( ch );
  69.     until ch in ['0'..'9'];
  70.     n := ord( ch ) - ord( '0' );
  71.     if n = 0 then halt;
  72.     upl := 'dat';
  73.     case n of
  74.       1 : begin
  75.             mss := '"Explored/Unexplored Sectors"';
  76.             ext := 'exp';
  77.             upl := 'upl';
  78.           end;
  79.       2 : begin
  80.             mss := 'log';
  81.             ext := 'log';
  82.           end;
  83.       3 : begin
  84.             mss := '"Deployed Fighter Scan"';
  85.             ext := 'ftr';
  86.           end;
  87.       4 : upl := 'upl';
  88.       5 : begin
  89.             mss := '"Major Space Lanes"';
  90.             ext := 'msl';
  91.           end;
  92.       6 : begin
  93.             mss :='other database';
  94.             ext := 'unk';
  95.           end;
  96.       7 : ;
  97.       8 : begin
  98.             mss := 'sector report file';
  99.             ext := 'sct';
  100.           end;
  101.       9 : begin
  102.             mss := 'port report file';
  103.             ext := 'prt';
  104.           end;
  105.     end; {case}
  106.     if not (n in [4,7]) then
  107.       begin
  108.         othername := GetOldFileName( 'Name of ' + mss + ' file?  ',
  109.                                      bbsname + '.' + ext );
  110.         if n <> 6 then
  111.           begin
  112.             assign( f, othername);
  113.             reset( f );
  114.           end; {if}
  115.       end; {if}
  116.     assign( g, GetNewFileName('Name of file to generate? ',
  117.                                 bbsname + '.' + upl) );
  118.     rewrite( g );
  119.     case n of
  120.       1 : partOneThree;
  121.       2 : partII( space);
  122.       3 : partIV( space );
  123.       4 : partV;
  124.       5 : partVI( space );
  125.       6 : begin GetData( space, othername ); SaveData( g, space ); end;
  126.       7 : begin EditMenu; SaveData( g, space ); end;
  127.       8 : partVIII( f, Space );
  128.       9 : partIX( f, Space );
  129.     end; {case}
  130.     if n in [1, 2, 3, 5, 8, 9] then
  131.       close( f );
  132.   until n = 0;
  133. end.
  134.