home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG133.ARC / VILLAGE2.ARC / VILLFIND.PAS < prev    next >
Pascal/Delphi Source File  |  1988-08-07  |  2KB  |  50 lines
  1. program VillagerFinder;
  2. { Locates position of every characters and displays their stats. }
  3.  
  4. type
  5.   strng= string[80]; { Strind Data }
  6.   others= record { Computer-Player Data }
  7.     name: strng;
  8.     x, y, gold, food: integer;
  9.     villager, friend: boolean;
  10.   end;
  11.   people= record { Player Data }
  12.     name: strng;
  13.     x, y, gold, food, foodback, scouts, bonus: integer;
  14.     dead, expert, played: boolean;
  15.   end;
  16.  
  17. var
  18.   otherfile: file of others; { Computer-Player file }
  19.   other: others; { Computer-Player }
  20.   personfile: file of people; { Player file }
  21.   person: people; { Player }
  22.  
  23. begin
  24.   writeln('Villager Utility to find all characters. By Andrew Scott.');
  25.   writeln;
  26.   writeln('Name':40,'  X   Y   Gold Food Scouts');
  27.   writeln('------------------------------------------------------------------');
  28.   assign(personfile,'VILL1.DAT');
  29.   assign(otherfile,'VILL2.DAT');
  30.   {$I-} reset(otherfile); {$I+}
  31.   if ioresult<>0 then writeln('Character file doesn''t exist.') else begin
  32.     while not eof(otherfile) do begin
  33.       read(otherfile,other);
  34.       writeln(other.name:40,other.x:4,other.y:4,' ',other.gold:4,
  35.         ' ',other.food:4,'    -');
  36.     end;
  37.     close(otherfile);
  38.   end;
  39.   {$I-} reset(personfile); {$I+}
  40.   if ioresult<>0 then writeln('Person file doesn''t exist.') else begin
  41.     while not eof(personfile) do begin
  42.       read(personfile,person);
  43.       writeln(person.name:40,person.x:4,person.y:4,' ',person.gold:4,
  44.         ' ',person.food:4,' ',person.scouts:4);
  45.     end;
  46.     close(personfile);
  47.   end;
  48.   writeln('------------------------------------------------------------------');
  49. end.
  50.