$room_flags = [:hidden]

class Room
  define_creatable
  define_editor :room_editor
  define_editor_field({:name=>"vtag", :filter=>:filt_to_tag, :type=>:vtag})
  define_editor_field({:name=>"zone", :filter=>:filt_to_area, :type=>:namespace})
  define_editor_field({:name=>"name", :filter=>:filt_none})
  define_editor_field({:name=>"sector", :filter=>:filt_to_sect})
  define_editor_field({:name=>"flags", :filter=>:filt_to_flag, :filter_key=>$room_flags, :type=>:flags})

  define_editor_field({:name=>"description",:arg_type=>:arg_none, :filter=>:filt_none,
    :proc_fun=>proc do |ed, ch, obj, arg|
      ch.editing.unshift(obj.desc)
      ch.view "Editing description." + ENDL
    end,

    :display=>proc do |obj|
      ["#{mxptag('send description')}#R[#Wdescription#R]:#{mxptag('/send')}","#n"+obj.desc,"----"]
    end
  })
  define_editor_field({:name=>"exit", :filter=>:filt_to_exit,
    # proc exits.  I wrote it out like this because it was difficult to read.
    # What do we do when exits command is accessed?  It's filtered by filt_to_exit.  
    :proc_fun=>lambda do |ed, ch, obj, arg|
      direction = arg[0] # already correct format.  Guarenteed to be a valid direction 0-5.
      command = arg[1] # What to do that direction.

      puts direction
      puts command
      puts arg[2]

      case command.downcase
        when "edit" then ch.editing.unshift(obj.exit_list[direction]); ch.text_to_player "Editing exit." + ENDL
        when "link" then ch.view "This is not yet supported." + ENDL 
        when "dig" 
          supplied = nil
          if arg[2]
            supplied = Tag.find_any_obj arg[2]
            if supplied && supplied[0].is_a?(Room)
              supplied = supplied[0]
            else
              ch.view "That's not a valid room." + ENDL
              return
            end
          end
          if supplied
            r = ch.buildwalk(direction, supplied)
          else
            r = ch.buildwalk(direction)
          end
          if r
            ch.view "Room created with a two way link." + ENDL
            #ch.editing.unshift(obj.exit_list[direction]);
          end
        else ch.view "#{command} wasn't valid." +ENDL + "Did you mean: edit, link, or dig?" + ENDL
      end
    end,
    # proc to define how we display this field.   It's only needed because we have a non-generic field.
    # Note that if we didn't include this it would not be displayed at all.
    :display=>proc do |obj|
      str = []      
      str << "#YExit parameters: [edit, dig, link]#n"
      4.times do |i|
        ex = obj.exit_list[i]
        if ex
          str << (("%-20s" % "#R[#{mxptag('send "&text;"')}#Wexit #{i.exit_code_to_s} edit#{mxptag('/send')}#R]: #{ex.to_s}#w"))
        else
          str << (("%-20s" % "#R[#{mxptag('send "&text;"')}#Wexit #{i.exit_code_to_s} dig#{mxptag('/send')}#R])#w"))
        end
      end
      str << ("#R==========================================================================#n")
      str
    end
  })

  # add delete option
  define_editor_field({:name=>"delete", :arg_type=>:arg_none, :filter=>:filt_none,
    :proc_fun=>proc do |ed, ch, obj, arg|
      ch.execute_command("done") # leave the editor just in time.
      obj.do_delete # rely on the object to implement a way to delete it.
    end,
    :display=>proc do |obj|
      [mxptag('send delete')+ "#R[#WDELETE#R]:" + mxptag('/send') + "   Deletes Entire Room"]
    end
    })
end