respond :look, Query::Parent.new(Supporter) do |actor, supporter|
  actor.tell supporter.description
  actor.tell "You are currently on #{the supporter}."
end

respond :look, Query::Room.new(Room) do |actor, room|
  actor.tell room.name.cap_first
  actor.tell room.description
  chars = room.children.that_are(Character) - [actor]
  if chars.length > 0
    actor.tell "Others here: #{chars.join(", ")}"
  end
  items = room.children.that_are(:itemized) - [actor]
  if items.length > 0
    actor.tell "You see #{items.join_and}."
  end
  portals = room.children.that_are(Portal)
  if portals.length > 0
    if portals.length == 1
      actor.tell "There is an exit #{portals[0]}."
    else
      actor.tell "There are exits #{portals.join_and(', ')}."
    end
  end
  if actor.is? :supported
    actor.tell "You are on #{the actor.parent}."
    actor.parent.children.that_are(:supported).that_are_not(actor).each { |s|
      actor.tell "#{A s} is on #{the actor.parent}."
    }
  end
end
xlate "look", :look, "around"
xlate "l", :look, "around"

respond :look, Query::Visible.new() do |actor, thing|
  actor.tell thing.description
  thing.children.that_are(:attached).that_are(:itemized).each { |item|
    actor.tell "#{An item} is attached to #{the thing}."
  }
end

respond :look, Query::Text.new() do |actor, string|
  actor.tell "You don't see any \"#{string}\" here."
end

respond :look, Query::Reachable.new(Container) do |actor, container|
  passthru
  if container.is? :openable
    actor.tell "#{The container} is #{container.is?(:open) ? 'open' : 'closed'}."
  end
  if container.is? :open
    contents = container.children.that_are(:contained)
    contents.each { |thing|
      actor.tell "You see #{a thing} inside #{the container}."
    }
  end
end

respond :look, Query::Siblings.new(Supporter) do |actor, supporter|
  passthru
  supported = supporter.children.that_are(:supported)
  supported.each { |thing|
    actor.tell "You see #{a thing} sitting there."
  }
end

xlate "look at :thing", :look, :thing
xlate "l :thing", :look, :thing
xlate "examine :thing", :look, :thing
xlate "x :thing", :look, :thing
xlate "search :thing", :look, :thing