gistfile1.txt

tile init nooverrides
set %grid_size 0

sub scangrid
for %x -20 20
{
 for %y -20 20
 {
  set %posX #charposx + %x
  set %posY #charposy + %y
  tile cnt %posX %posY
  for %i 1 #tilecnt
  {
   tile get %posX %posY
   if #tileName = cave
   {
     set %grid_item . %grid_size %posX %posY
     set %grid_size %grid_size + 1
     break
   }
  }