//

function	script	Banker	{
	if (BankAccount > 0) callsub S_MoveAccount;
	mes "[" + @npcName$ + "]";
	mes "\"Welcome to the bank!";
	mes "How can I help you?\"";
	next;
	menu	"Deposit", L_Dep,
		"Withdraw", L_With,
		"Check my balance", L_Balance,
		"Nevermind", L_Nev;
	
L_Dep:
	mes "[" + @npcName$ + "]";
	mes "\"How much would you like to deposit?\"";
	next;
	menu
		"1,000 GP", D_1,
		"5,000 GP", D_5,
		"10,000 GP", D_10,
		"25,000 GP", D_25,
		"50,000 GP", D_50,
		"100,000 GP", D_100, 
		"250,000 GP", D_250,
		"500,000 GP", D_500,
		"1,000,000 GP", D_1000,
		"All of my money", D_All,
		"I've changed my mind", L_Nev;

D_1:
	if (zeny<1000) goto L_NoMoney;
	set @Amount, 1000;
	goto L_Deposit;
D_5:
	if (zeny<5000) goto L_NoMoney;
	set @Amount, 5000;
	goto L_Deposit;
D_10:
	if (zeny<10000) goto L_NoMoney;
	set @Amount, 10000;
	goto L_Deposit;
D_25:
	if (zeny<25000) goto L_NoMoney;
	set @Amount, 25000;
	goto L_Deposit;
D_50:
	if (zeny<50000) goto L_NoMoney;
	set @Amount, 50000;
	goto L_Deposit;
D_100:
	if (zeny<100000) goto L_NoMoney;
	set @Amount, 100000;
	goto L_Deposit;
D_250:
	if (zeny<250000) goto L_NoMoney;
	set @Amount, 250000;
	goto L_Deposit;
D_500:
	if (zeny<500000) goto L_NoMoney;
	set @Amount, 500000;
	goto L_Deposit;
D_1000:
	if (zeny<1000000) goto L_NoMoney;
	set @Amount, 1000000;
	goto L_Deposit;
D_All:
	if (zeny<1) goto L_NoMoney;
	set @Amount, zeny;
	goto L_Deposit;

L_Deposit:
	if (zeny < @Amount) goto L_NoMoney;
	set zeny, zeny - @Amount;
	set #BankAccount, #BankAccount + @Amount;
		goto L_Balance;
	
L_With:
	mes "[" + @npcName$ + "]";
	mes "\"How much would you like to withdraw?\"";
	next;
	menu
		"1,000 GP", W_1,
		"5,000 GP", W_5,
		"10,000 GP", W_10,
		"25,000 GP", W_25,
		"50,000 GP", W_50,
		"100,000 GP", W_100,
		"250,000 GP", W_250,
		"500,000 GP", W_500,
		"1,000,000 GP", W_1000,
		"All of my money", W_All,
		"I've changed my mind", L_Nev;

W_1:
	if (#BankAccount < 1000) goto L_NoMoney;
	set @Amount, 1000;
	goto L_Withdraw;

W_5:
	if (#BankAccount < 5000) goto L_NoMoney;
	set @Amount, 5000;
	goto L_Withdraw;

W_10:
	if (#BankAccount < 10000) goto L_NoMoney;
	set @Amount, 10000;
	goto L_Withdraw;

W_25:
	if (#BankAccount < 25000) goto L_NoMoney;
	set @Amount, 25000;
	goto L_Withdraw;

W_50:
	if (#BankAccount < 50000) goto L_NoMoney;
	set @Amount, 50000;
	goto L_Withdraw;

W_100:
	if (#BankAccount < 100000) goto L_NoMoney;
	set @Amount, 100000;
	goto L_Withdraw;

W_250:
	if (#BankAccount < 250000) goto L_NoMoney;
	set @Amount, 250000;
	goto L_Withdraw;

W_500:
	if (#BankAccount < 500000) goto L_NoMoney;
	set @Amount, 500000;
	goto L_Withdraw;

W_1000:
	if (#BankAccount < 1000000) goto L_NoMoney;
	set @Amount, 1000000;
	goto L_Withdraw;

W_All:
	if (#BankAccount < 1) goto L_NoMoney;
	set @Amount, #BankAccount;
	goto L_Withdraw;

L_Withdraw:
	set zeny, zeny + @Amount;
	set #BankAccount, #BankAccount - @Amount;
	goto L_Balance;
	
L_Balance:
	mes "[" + @npcName$ + "]";
	mes "\"Your current bank balance is:";
	mes #BankAccount + " GP\"";
	return;
	
L_Nev:
	mes "[" + @npcName$ + "]";
	mes "\"Goodbye then.\"";
	return;
	
L_NoMoney:
	mes "[" + @npcName$ + "]";
	mes "\"Oh dear, it seems that you don't have enough money.\"";
	return;

S_MoveAccount:
	set #BankAccount, #BankAccount + BankAccount;
	set BankAccount, 0;
	return;
}