home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 084.INITDEFS.INC < prev    next >
Text File  |  1992-07-23  |  2KB  |  67 lines
  1. procedure stripwhite( var s : string );
  2. var
  3.   i : byte;
  4.   temp : string;
  5. begin
  6.   temp := '';
  7.   for i := 1 to length( s ) do
  8.     if s[i] > ' ' then
  9.       temp := temp + s[i];
  10.   s := temp;
  11. end;
  12.  
  13. procedure GetInits( var wordy, monochrome : boolean );
  14. {
  15. look for file TWVIEW.CFG in default directory.  If you find it, look for
  16. lines of the form "VERBOSE = " and "MONOCHROME =" -- and set the variables
  17. to true or false.  Default values are verbose set to true, and monochrome
  18. set to false.
  19. }
  20. var
  21.   f    : text;
  22.   line : string;
  23.   i    : byte;
  24. begin
  25.   wordy := true;
  26.   monochrome := false;
  27.   assign( f, 'twview.cfg');
  28. {$I-}
  29.   reset( f );
  30. {$I+}
  31.   if ioresult <> 0 then
  32.     exit;
  33.   while not eof( f ) do
  34.     begin
  35.       readln( f, line );
  36.       stripwhite( line );
  37.       line := upstring( line );
  38.       if pos( 'VERBOSE', line ) > 0 then
  39.         begin
  40.           i := pos( '=', line );
  41.           if i = 0 then
  42.             begin
  43.               writeln( 'couldn''t find = on verbose configuration line "', line, '"');
  44.               readln;
  45.             end
  46.           else
  47.             wordy := line[ i + 1 ] in ['t', 'T', '1' ];
  48.         end
  49.       else if pos( 'MONOCHROME', line ) > 0 then
  50.         begin
  51.           i := pos( '=', line );
  52.           if i = 0 then
  53.             begin
  54.               writeln( 'couldn''t find = on monochrome configuration line "', line, '"');
  55.               readln;
  56.             end
  57.           else
  58.             monochrome := not (line[ i + 1 ] in ['f', 'F', '0' ]);
  59.         end
  60.       else
  61.         begin
  62.           writeln('Configuration line "', line, '" not understood.');
  63.           readln;
  64.         end;
  65.     end; {while}
  66.   close( f );
  67. end;