#
# file::    cmd_withdrawl.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")

  # Withdrawl money from your bank account
  def cmd_withdrawl(args)
	case args
	when /(\d+)/
		amt = $1.to_i
		atm = nil
		get_object(location).contents.each do |oid|
			obj = get_object(oid)
			atm = obj if obj.has_attribute? :ATM
		end
		if atm
			if amt <= get_stat(:bank)
				adjust_stat(:bank, -amt)
				adjust_stat(:cash, amt)
				sendto _("You withdrawl $%{amt} from the %{name}." % {:amt => amt, :name => atm.name})
				msg = Msg.new _("^p1 withdrawls money from the %{name}." % {:name => atm.name})
				msg.p1 = name
				sendroom(msg)
			else
				sendto _("You do not have that much money in the bank.")
			end
		else
			sendto _("You do not see an ATM here.")
		end
	else
		sendto _("Withdrawl how much?")
	end
  end

end