#
# file::    cmd_mlist.rb
# This source code copyright (C) 2009 Craig Smith
# All rights reserved.
#
# Released under the terms of the TeensyMUD Public License
# See LICENSE file for additional information.
#

module Cmd

  bindtextdomain("Cmd")

  # Find and lists mobiles and their oid
  def cmd_mlist(args)
    active = _("active")
    only_active = false
    if args=~/#{active}\s+(.+)/
	only_active = true
	args = $1
    end
    case args
    when nil, ""
        sendto _("@mlist [active] <object>")
    else
	found = false
        world.find_objects(args).each do |obj|
		case obj
		when Mobile
			if only_active
				if obj.location
					room = get_object(obj.location)
					oid = ""
					oid = "[#{obj.id}] " if get_stat(:debugmode)
					sendto(" #{oid}#{obj.name} - (##{room.id}) #{room.name}") if obj.location > 0
					found = true if obj.location > 0
				end
			else
				sendto(" [#{obj.id}] #{obj.name}") if not obj.isclone
				found = true
			end
		end
	end
	sendto _("Couldn't find %{args}." % {:args => args}) if not found
    end
  end

end