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])
% 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 % */