--lua PFL_NONE 0 3

local bank = owner(pl)

if not getflag(bank, flag.Bank) then
  send(pl, "You can only withdraw in a bank.")
  return
end

local mob = getobj(bank, "bankmob")

if not mob or owner(mob) != bank then
  send(pl, "The cashier appears to be missing.")
  return
end

if getn(arg)==0 then
  send(pl, "Withdraw what?")
  return
end

local cur = currency(mob)
local wantcur = nil
local all = nil
local amt

if txt=="all" then
  all = 1
else
  wantcur, amt = curmatch(arg, cur)
  if not wantcur then
    if amt then
      send(pl, amt)
    end
    return
  end
end

local bal = balance(pl, cur)

if wantcur and cur != wantcur then
  tell(mob, pl, format("We only use %s currency here.", getstr(cur, "name")))
  return
end

if all then
  amt = bal
end

if amt>bal then
  tell(mob, pl, lang("You don't have that much in your account.", mob))
  return
end

if amt==0 then
  send(pl, "You don't withdraw anything.")
  return
end

send(pl, "You withdraw "..formatcash(amt, cur, 1)..".")

setbalance(pl, cur, balance(pl, cur) - amt)
setcash(pl, cur, cash(pl, cur) + amt)

return