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

   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])