% Test worlds for predator 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).   21grid_key(ed='tEdgeOfWorld').
   22grid_key(tr=tTree).
   23grid_key( rk=tRock).
   24grid_key( nt=tNnut).
   25%
   26
   27
   28typeGrid(tBigForestMap,1, [ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed]).
   29typeGrid(tBigForestMap,2, [ed,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]).
   30typeGrid(tBigForestMap,3, [ed,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]).
   31typeGrid(tBigForestMap,4, [ed,--,tr,--,nt,--,--,--,tr,tr,--,--,--,--,--,nt,nt,--,--,ed]).
   32typeGrid(tBigForestMap,5, [ed,--,--,tr,--,--,--,--,tr,--,--,--,--,nt,nt,nt,--,--,--,ed]).
   33typeGrid(tBigForestMap,6, [ed,--,--,--,--,--,tr,tr,tr,tr,tr,tr,--,--,nt,nt,--,--,--,ed]).
   34typeGrid(tBigForestMap,7, [ed,--,--,--,--,--,tr,--,--,--,--,--,--,--,--,nt,--,--,--,ed]).
   35typeGrid(tBigForestMap,8, [ed,--,--,--,--,--,--,--,--,--,--,--,tr,tr,tr,tr,tr,tr,--,ed]).
   36typeGrid(tBigForestMap,9, [ed,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]).
   37typeGrid(tBigForestMap,10,[ed,--,--,--,nt,--,--,--,--,--,--,--,--,--,--,--,--,--,--,ed]).
   38typeGrid(tBigForestMap,11,[ed,--,--,--,nt,--,--,--,--,--,tr,tr,--,--,--,--,--,--,--,ed]).
   39typeGrid(tBigForestMap,12,[ed,--,--,tr,tr,nt,nt,--,--,tr,tr,nt,nt,nt,nt,nt,nt,--,--,ed]).
   40typeGrid(tBigForestMap,13,[ed,--,--,--,--,--,nt,--,--,tr,--,--,nt,nt,nt,nt,nt,--,--,ed]).
   41typeGrid(tBigForestMap,14,[ed,--,--,--,--,--,--,--,tr,tr,--,--,--,--,nt,nt,--,--,--,ed]).
   42typeGrid(tBigForestMap,15,[ed,--,--,--,--,tr,tr,tr,tr,tr,--,--,--,nt,nt,--,--,--,--,ed]).
   43typeGrid(tBigForestMap,16,[ed,--,--,--,--,--,--,--,--,--,--,--,nt,nt,--,--,tr,--,--,ed]).
   44typeGrid(tBigForestMap,17,[ed,--,--,--,--,--,--,--,--,tr,--,nt,nt,--,tr,--,tr,--,--,ed]).
   45typeGrid(tBigForestMap,18,[ed,--,--,--,--,--,--,--,--,--,nt,nt,--,--,tr,--,--,--,--,ed]).
   46typeGrid(tBigForestMap,19,[ed,--,--,--,--,--,--,--,--,--,--,--,--,--,tr,--,--,--,--,ed]).
   47typeGrid(tBigForestMap,20,[ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed,ed]).
   48
   49
   50% :- include(prologmud(mud_footer)).