//===== eAthena Script ======================================= 
//= Banker Script 
//===== By: ================================================== 
//= Syrus22 (1.0)
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= Any eAthena version with Account variables.
//===== Description: ========================================= 
//= An account wide Banker to store gol
//===== Additional Comments: ================================= 
//= Syrus22 - There's an optional transaction fee at the top of
//= the script. To use it simply change the first set command
//= to set the cost variable to whatever you want the fee to be.
//===== Additional Comments: ================================= 
//= cyrille idril.com adaptation pour the mana world
//============================================================ 
new_3-1.gat,27,73,0	script	Banker	107,{
set @cost,500;
mes "[Banker]";
mes "Welcome to the First Bank of Tulimshar. How can I help you today?";
next;
menu "I'd like to make a deposit.",Ldeposit,"I'd like to make a withdrawl.",Lwithdrawl,"What's my current balance?",Lbalance,"Cancel",Lcancel;

Ldeposit:
	mes "[Banker]";
	mes "Very well... How much would you like to deposit?";
      next;
	if (@cost > 0) goto Ldepocost;
	goto LdepositMenu;
      

LdepositMenu:
	mes "[Banker]";
	mes "The maximum you can deposit at once is 900 000 Gold.";
      next;
	mes "[Banker]";
	menu "1000 gold ?.",Ldeposit1000,"5000 gold?.",Ldeposit5000,"10 000 gold?",Ldeposit10000,"100 000 gold?",Ldeposit100000,"900 000 gold?",Ldeposit900000,"Cancel",Lcancel;


		Ldepocost:
			mes "[Banker]";
			mes "Oh and don't forget there is a " + @cost + " Gold charge on all transactions.";
			next;
			goto LdepositMenu;


Ldeposit1000:
            set @deposit,1000;
		mes "Very well...";
		next;
		goto Ldepocont;

Ldeposit5000:
            set @deposit,5000;
		mes "Very well...";
		next;
		goto Ldepocont;

Ldeposit10000:
            set @deposit,10000;
		mes "Very well...";
		next;
		goto Ldepocont;

Ldeposit100000:
            set @deposit,100000;
		mes "Very well...";
		next;
		goto Ldepocont;

Ldeposit900000:
            set @deposit,900000;
		mes "Very well...";
		next;
		goto Ldepocont;




Ldepocont:
	if (@deposit < 1) goto Lrealamount;
	if (@deposit > Zeny) goto Lneedzeny;
	if (@deposit > (Zeny - @cost)) goto Lneedzeny2;
	set Zeny,Zeny - @deposit;
	set Zeny,Zeny - @cost;
	set #bankstorage,#bankstorage + @deposit;
	mes "[Banker]";
	mes "Thank you very much... gOLD zeny is in good hands.";
	close;

Lwithdrawl:
	mes "[Banker]";
	mes "Very well... How much would you like to withdraw?";
	next;
	goto LwithdrawlMenu;
		

LwithdrawlMenu:
		mes "[Banker]";
		mes "The maximum you can deposit at once is 900 000 Gold.";
		next;
		mes "[Banker]";
	      menu "1000 gold ?.",Lwithdrawl1000,"5000 gold?.",Lwithdrawl5000,"10 000 gold?",Lwithdrawl10000,"100 000 gold?",Lwithdrawl100000,"900 000 gold?",Lwithdrawl900000,"Cancel",Lcancel;

	
Lwithdrawl1000:
            set @withdrawl,1000;
		mes "Very well...";
		next;
		goto Lwithcont;

Lwithdrawl5000:
            set @withdrawl,5000;
		mes "Very well...";
		next;
		goto Lwithcont;

Lwithdrawl10000:
            set @withdrawl,10000;
		mes "Very well...";
		next;
		goto Lwithcont;

Lwithdrawl100000:
            set @withdrawl,100000;
		mes "Very well...";
		next;
		goto Lwithcont;

Lwithdrawl900000:
            set @withdrawl,900000;
		mes "Very well...";
		next;
		goto Lwithcont;

Lwithcont:
	if (@withdrawl < 1) goto Lrealamount;
	if (@withdrawl > #bankstorage) goto Lneedzeny3;
	goto Lwithcont2;

	Lcostask:
		mes "[Banker]";
		mes "You don't have the Gold for the transaction fee right now. Would you like me to take the fee directly from your withdrawl?";
		next;
		menu "Yes please.",Lwithtake,"No thank you.",Lcancel;

	Lwithtake:
		mes "[Banker]";
		mes "Ok then.";
		set @withdrawl,@withdrawl - @cost;
		set #bankstorage,#bankstorage - @cost;
		set @cost,0;
		next;
		goto Lwithcont2;

Lwithcont2:
	set Zeny,Zeny - @cost;
	set Zeny,Zeny + @withdrawl;
	set #bankstorage,#bankstorage - @withdrawl;
	mes "[Banker]";
	mes "There's your Gold. Have a good day.";
	close;

Lbalance:
	mes "[Banker]";
	mes "Hmmmm lemme check the paper work.";
	next;
	mes "*Rustle, Rustle*";
	next;
	mes "[Banker]";
	mes "You currently have " + #bankstorage + " Gold in your account.";
	close;

Lrealamount:
	mes "[Banker]";
	mes "Don't play jokes with me please. Next time ask for a real amount.";
	close;

Lneedzeny:
	mes "[Banker]";
	mes "You don't have enough Gold to make that deposit.";
	close;

Lneedzeny2:
	mes "[Banker]";
	mes "You don't have enough Gold to cover the transaction fee.";
	close;

Lneedzeny3:
	mes "[Banker]";
	mes "You don't have enough Gold in your account.";
	close;

Lcancel:
	mes "[Banker]";
	mes "Very well... come again soon.";
	close;
}