20:- expects_dialect(pfc). 21 22grid_key( ed='tEdgeOfWorld'). 23grid_key( hw='tHighWall'). 24grid_key( lw='tLowWall'). 25grid_key( hb='tHighBox'). 26grid_key( lb='tLowBox'). 27grid_key( dt=tDirt). 28grid_key( ot=tPowerOutlet). 29 30 31 32typeGrid(tStoreRoom,1, [ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed]). 33typeGrid(tStoreRoom,2, [ed,dt,dt,--,--,--,--,--,--,hw,hw,--,--,--,--,--,--,--,--,ed]). 34typeGrid(tStoreRoom,3, [ed,dt,dt,--,--,--,--,--,--,hw,hw,--,--,--,--,--,--,--,--,ed]). 35typeGrid(tStoreRoom,4, [ed,dt,dt,dt,dt,--,--,--,--,hw,hw,--,--,--,--,dt,dt,--,--,ed]). 36typeGrid(tStoreRoom,5, [ed,hw,hw,lw,lw,ot,--,--,--,hw,hw,--,--,dt,dt,dt,--,--,--,ed]). 37typeGrid(tStoreRoom,6, [ed,--,--,--,lw,lw,lw,--,--,hw,hw,--,lb,lb,dt,dt,--,--,--,ed]). 38typeGrid(tStoreRoom,7, [ed,--,--,--,--,--,--,--,--,hw,hw,--,--,lb,lb,dt,--,--,--,ed]). 39typeGrid(tStoreRoom,8, [ed,--,--,--,--,--,--,--,--,lw,lw,--,--,--,--,--,--,--,--,ed]). 40typeGrid(tStoreRoom,9, [ed,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]). 41typeGrid(tStoreRoom,10,[ed,--,--,--,dt,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]). 42typeGrid(tStoreRoom,11,[ed,--,--,--,dt,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]). 43typeGrid(tStoreRoom,12,[ed,--,--,--,--,dt,dt,--,--,--,--,dt,dt,dt,dt,dt,dt,--,--,ed]). 44typeGrid(tStoreRoom,13,[ed,--,--,--,--,--,dt,--,--,--,--,--,dt,dt,dt,dt,dt,--,--,ed]). 45typeGrid(tStoreRoom,14,[ed,--,--,--,--,lb,lb,--,--,--,--,--,--,--,dt,dt,--,--,--,ed]). 46typeGrid(tStoreRoom,15,[ed,--,--,--,--,hb,hb,hb,hb,--,--,--,--,dt,dt,--,--,ot,--,ed]). 47typeGrid(tStoreRoom,16,[ed,--,--,--,--,--,--,--,--,--,--,--,dt,dt,--,--,--,--,--,ed]). 48typeGrid(tStoreRoom,17,[ed,--,--,--,--,--,ot,--,--,--,--,dt,dt,--,--,--,--,--,--,ed]). 49typeGrid(tStoreRoom,18,[ed,--,--,--,--,--,--,--,--,--,dt,dt,--,--,--,--,--,--,--,ed]). 50typeGrid(tStoreRoom,19,[ed,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]). 51typeGrid(tStoreRoom,20,[ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed])
% Test worlds for vacuum 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, use the show_world/0 command. % % The two letter codes used below are defined in map.
objects.pl
% % predator.map.pl
% July 10, 1996 % John Eikenberry % % % Dec 13, 2035 % Douglas Miles % */