@verb #4787:"w" any none none rdo #9452
@program #4787:"w" any none none
dude = $lord_database:authenticate(player)
if (typeof(dude) == WAIF)
  if (length(args) < 1)
    player:tell("\"How much gold would you like to withdraw?\"  (1 for ALL of it)")
    amount = toint($command_utils:read("an amount"))
  else
    amount = toint(args[1])
  endif
  if (amount <= 0)
    player:tell("\"Okay.  Maybe another time.\"")
  elseif (amount <= dude->gold_bank)
    if (amount == 1)
      amount = dude->gold_bank
    endif
    dude->gold_bank = $lord_database:intsub(dude->gold_bank, amount)
    dude->gold_hand = $lord_database:intadd(dude->gold_hand, amount)
    player:tell("Done!  " + toliteral(amount) + " withdrawn.")
  else
    player:tell("\"I'm afraid you don't have that much in your account, sir.\"")
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.