% Test world for tWumpusMazeMap world can be defined by a grid like the
% one below. The grid must be rectangular (ie. same number of
% columns for each row). It can be of any size.
%
% To look at the world, once this file is consulted, use the show_world/0 command.
%
% The two letter codes used below are defined in tWumpusMazeMap.objects.pl
%
% tWumpusMazeMap.map.pl
% July 10, 1996
% John Eikenberry
%
% Dec 13, 2035
% Douglas Miles
%
*/


   18:- expects_dialect(pfc).   19
   20grid_key(ed='tEdgeOfWorld').
   21grid_key(wl=wall).
   22grid_key(lg=ledge).
   23grid_key(dr=tDoor).
   24grid_key(gd=gold).
   25grid_key(fd=tFood).
   26grid_key(pt=pit).
   27grid_key(el='elixer of mudHealth').
   28
   29typeGrid(tWumpusMazeMap,1, [ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed]).
   30typeGrid(tWumpusMazeMap,2, [ed,--,--,--,wl,fd,--,fd,--,fd,--,fd,--,fd,--,--,fd,wl,gd,ed]).
   31typeGrid(tWumpusMazeMap,3, [ed,--,wl,--,wl,fd,--,--,--,--,--,--,--,--,--,wl,--,wl,--,ed]).
   32typeGrid(tWumpusMazeMap,4, [ed,--,wl,--,wl,fd,--,--,--,--,--,--,--,wl,--,wl,--,wl,--,ed]).
   33typeGrid(tWumpusMazeMap,5, [ed,--,wl,--,wl,wl,wl,--,wl,wl,wl,wl,--,wl,--,wl,--,wl,--,ed]).
   34typeGrid(tWumpusMazeMap,6, [ed,el,wl,--,--,--,--,--,--,--,--,--,--,wl,--,wl,--,wl,--,ed]).
   35typeGrid(tWumpusMazeMap,7, [ed,gd,wl,wl,wl,wl,wl,--,wl,wl,wl,--,wl,wl,--,--,--,--,--,ed]).
   36typeGrid(tWumpusMazeMap,8, [ed,wl,wl,--,--,--,--,--,--,--,--,--,--,wl,wl,wl,--,wl,--,ed]).
   37typeGrid(tWumpusMazeMap,9, [ed,--,--,--,wl,wl,wl,wl,wl,wl,wl,--,--,--,--,--,--,wl,--,ed]).
   38typeGrid(tWumpusMazeMap,10,[ed,--,wl,--,wl,--,--,--,--,gd,wl,--,wl,--,wl,--,--,wl,--,ed]).
   39typeGrid(tWumpusMazeMap,11,[ed,--,wl,--,wl,--,wl,--,wl,fd,wl,--,wl,fd,wl,--,--,wl,--,ed]).
   40typeGrid(tWumpusMazeMap,12,[ed,--,--,--,--,--,wl,--,wl,fd,wl,--,wl,wl,wl,--,--,wl,--,ed]).
   41typeGrid(tWumpusMazeMap,13,[ed,--,wl,--,wl,--,wl,--,wl,--,--,--,--,--,--,--,--,wl,--,ed]).
   42typeGrid(tWumpusMazeMap,14,[ed,fd,wl,--,wl,wl,wl,--,wl,wl,wl,wl,wl,wl,wl,wl,--,wl,--,ed]).
   43typeGrid(tWumpusMazeMap,15,[ed,--,wl,--,--,wl,--,--,--,--,--,--,--,--,pt,wl,--,--,--,ed]).
   44typeGrid(tWumpusMazeMap,16,[ed,fd,wl,fd,--,wl,--,wl,wl,wl,wl,wl,wl,--,wl,wl,wl,--,fd,ed]).
   45typeGrid(tWumpusMazeMap,17,[ed,--,wl,fd,--,--,--,--,--,--,--,--,--,--,--,--,wl,--,fd,ed]).
   46typeGrid(tWumpusMazeMap,18,[ed,fd,wl,wl,wl,wl,wl,wl,wl,--,wl,--,wl,wl,wl,--,wl,--,fd,ed]).
   47typeGrid(tWumpusMazeMap,19,[ed,pt,fd,--,fd,--,fd,--,fd,--,wl,--,--,--,--,--,--,--,fd,ed]).
   48typeGrid(tWumpusMazeMap,20,[ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed])