----------------------------------------------------------
-- Banker Function                                      --
----------------------------------------------------------------------------------
--  Copyright 2008 The Mana World Development Team                              --
--                                                                              --
--  This file is part of The Mana World.                                        --
--                                                                              --
--  The Mana World  is free software; you can redistribute  it and/or modify it --
--  under the terms of the GNU General  Public License as published by the Free --
--  Software Foundation; either version 2 of the License, or any later version. --
----------------------------------------------------------------------------------

function Banker(npc, ch)
    if ch:gender() == GENDER_MALE then
        say("Welcome to the bank, sir!")
    elseif ch:gender() == GENDER_FEMALE then
        say("Welcome to the bank, madam!")
    else
        say("Welcome to the bank... uhm... person of unspecified gender!")
    end
    local account = tonumber(chr_get_quest(ch, "BankAccount"))
    local result = -1

    if (account == nil) then --Initial account creation, if needed
        say("Hello! Would you like to setup a bank account? There is a sign-on bonus right now!")
        result = ask("Yes", "No")
        if (result == 1) then
            chr_set_quest(ch, "BankAccount", 5)
            say("Your account has been made. Your sign-on bonus is 5GP.")
            account = 5
        end
    end

    if (account ~= nil) then --If the player has an account
        local money = 0
        local input = 0
        result = 1
        while (result < 3) do --While they've choosen a valid option that isn't "Never mind"
            account = tonumber(chr_get_quest(ch, "BankAccount")) --Why do I need to convert this?
            say("Your balance: " .. account .. ".\nYour money: " .. ch:money() .. ".")
            result = ask("Deposit", "Withdraw", "Never mind")
            if (result == 1) then --Deposit
                money = ch:money();
                if (money > 0) then --Make sure they have money to deposit
                    say("How much would you like to deposit? (0 will cancel)")
                    input = ask_number(0, money, 1)
                    money = ch:money()
                    if (input > 0 and input <= money) then --Make sure something weird doesn't happen and they try to deposit more than they have
                        ch:change_money(-input)
                        chr_set_quest(ch, "BankAccount", account + input)
                        say(input .. " GP deposited.")
                    elseif (input > money) then --Chosen more than they have
                        say("You don't have that much money. But you just did....")
                    end
                else
                    say("You don't have any money to deposit!")
                end
            elseif (result == 2) then --Withdraw
                if (account > 0) then --Make sure they have money to withdraw
                    say("How much would you like to withdraw? (0 will cancel)")
                    input = ask_number(0, account, 1)
                    if (input > 0 and input <= account) then --Make sure something weird doesn't happen and they try to withdraw more than they have
                        ch:change_money(input)
                        chr_set_quest(ch, "BankAccount", account - input)
                        say(input .. " GP withdrawn.")
                    elseif (input > account) then --Chosen more than they have
                        say("You don't have that much in your account. But you just did....")
                    end
                else
                    say("Your account is empty!")
                end
            end
        end --This ends the while loop
    end

    say("Thank you. Come again!")
end