require "thread"

def reload!
  $commands = {}
  
  old_count = Room.rooms.keys.length
  load FILENAME
  Room.rooms.keys.length - old_count
end

class String
  def |(o)
    if o.nil?
      self
    else
      self + "\n" + o
    end
  end
  
  def commandify
    Regexp.compile("^" + Regexp.escape(self.gsub("_", " ")).gsub("XXX", "(.+)") + "$")
  end
end

class Printer
  class << self
    def puts(str = "")
      lines = str.split("\n", -1)
      lines << "" if lines.length == 0
      lines.each { |line| sleep 0.05; $stdout.puts line }
    end
  end
end

class Room
  DEFAULT_COMMANDS = [["look".commandify, :look], ["l".commandify, :look], ["look_around".commandify, :look]]
  
  def go key
    Room.go key
  end
  
  def be_secretive
    $secretive = true
  end
  
  def inventory
    $inventory ||= []
  end
  
  def have? item
    inventory.include? item
  end
  
  def take item
    inventory << item
  end
  
  def lose item
    inventory.delete item
  end
  
  def do action
    Printer.puts
    if action.strip == ""
    elsif action == "reload!"
      d = reload!
      Printer.puts "A great wave of relief washes over you."
      Printer.puts "The world seems larger by about #{d}." if d > 0
    elsif (r = self.class.commands.detect { |c, m| c =~ action })
      command, method = r
      args = command.match(action).to_a.drop(1)
      Printer.puts self.send(method, *args).to_s.rstrip
    else
      Printer.puts huh?(action)
    end
  end
  
  def immediate *text
    Printer.puts *text
  end
  
  def look
    "A nondescript room."
  end
  
  def huh? action = nil
    "I don't understand."
  end
  
  def unknown_room key
    "" |
    "The fourth wall falls over and you realize you didn't really" |
    "want to go to '#{key}' anyway. You decide to let the author" |
    "know about this terrible oversight as soon as possible."
  end
  
  class << self
    def key
      self.to_s.downcase
    end
    
    def commands
      $commands ||= {}
      $commands[key] ||= DEFAULT_COMMANDS.dup
    end
    
    def rooms
      $rooms ||= {}
    end
    
    def go key
      if rooms[key]
        $here = rooms[key]
        "\n" + $here.look
      else
        $here.unknown_room key
      end
    end
    
    def do action
      if $here
        $here.do action
      else
        Printer.puts
        Printer.puts "Where am I?"
      end
    end
    
    def dup *cmds
      cmds.each do |cmd|
        alias_method cmd, $last_command
      end
    end
    
    def add_command regexp, method
      commands << [regexp, method]
    end
    
    def inherited subclass
      rooms[subclass.key] = subclass.new
      $here ||= rooms[subclass.key]
    end
    
    def method_added name
      if public_instance_methods.include? name.to_s
        $last_command = name
        
        if /^look(.+)/ =~ name.to_s
          %w{ look l look_at look_at_the examine ex }.each do |prefix|
            add_command "#{prefix}#{$1}".commandify, name
          end
        elsif /^enter(.+)/ =~ name.to_s
          %w{ enter enter_the go_into go_into_the }.each do |prefix|
            add_command "#{prefix}#{$1}".commandify, name
          end
        else
          add_command name.to_s.commandify, name
        end
      end
    end
  end
end