Banker NPC

//Made by Karul
prontera,131,216,5	script	Zeny Exchanger	984,{

set .@name$,"[Zeny Exchanger]";

mes .@name$;
mes "Hello~";
mes "What can i do for you?";
next;
mes "It will be your loss if you convert coins to the point of the max Zany limit, which is 2 Billion Zeny";
next;
menu 	"Zeny to Coins",L_ZC,"Coins to Zeny",L_CZ,"Nevermind",L_Nevermind;

L_Nevermind:
	mes .@name$;
	mes "Alright!";
	close;

L_ZC:
	mes .@name$;
	mes "Gold is 1 Million Zeny";
	mes "Mithril is 10 Million Zeny";
	mes "Silver is 100 Million Zeny";
	mes "Platinum is 200 Million Zeny";
	next;
	mes .@name$;
	mes "What kind of coins do you want to trade?";
	switch(select("Gold:Mithril:Silver:Platinum")) {
			case 1: next;
					mes .@name$;
					mes "How many Gold Coins do you want?";
					input .@goldc;
					if(checkweight(671,.@goldc)) {
					if( zeny < 1000000*.@goldc) { close; }
					set zeny,zeny-1000000*.@goldc;
					getitem 671,.@goldc;
					} else {
					mes .@name$;
					mes "You don't have enough space in your inventory";
					}
					close;
			case 2: next;
					mes .@name$;
					mes "How many Mithril Coins do you want?";
					input .@mithc;
					if(checkweight(674,.@mithc)) {
					if( zeny < 10000000*.@mithc) { close; }
					set zeny,zeny-10000000*.@mithc;
					getitem 674,.@mithc;
					} else {
					mes .@name$;
					mes "You don't have enough space in your inventory";
					}
					close;
			case 3: next;
					mes .@name$;
					mes "How many Silver Coins do you want?";
					input .@silvc;
					if(checkweight(675,.@silvc)) {
					if( zeny < 100000000*.@silvc) { close; }
					set zeny,zeny-100000000*.@silvc;
					getitem 675,.@silvc;
					} else {
					mes .@name$;
					mes "You don't have enough space in your inventory";
					}
					close;
			case 4: next;
					mes .@name$;
					mes "How many Platinum Coins do you want?";
					input .@platc;
					if(checkweight(677,.@platc)) {
					if( zeny < 200000000*.@platc) { close; }
					set zeny,zeny-200000000*.@platc;
					getitem 677,.@platc;
					} else {
					mes .@name$;
					mes "You don't have enough space in your inventory";
					}
					close;
			}

L_CZ:
	mes .@name$;
	mes "Gold is 1 Million Zeny";
	mes "Mithril is 10 Million Zeny";
	mes "Silver is 100 Million Zeny";
	mes "Platinum is 200 Million Zeny";
	next;
	mes "What would you like to convert?";
	switch(select("Gold:Mithril:Silver:Platinum")) {
			case 1: next;
					mes .@name$;
					mes "How many Gold coins do you want to convert?";
					input .@goldz;
					if( .@goldz < 0 ) || ( countitem(671) < .@goldz ) { close; }
					set zeny,zeny+1000000*.@goldz;
					delitem 671,.@goldz;
					close;
			case 2: next;
					mes .@name$;
					mes "How many Mithril coins do you want to convert?";
					input .@mithz;
					if( .@mithz < 0 ) || ( countitem(674) < .@mithz ) { close; }
					set zeny,zeny+10000000*.@mithz;
					delitem 674,.@mithz;
					close;
			case 3: next;
					mes .@name$;
					mes "How many Silver coins do you want to convert?";
					input .@silvz;
					if( .@silvz < 0 ) || ( countitem(675) < .@silvz ) { close; }
					set zeny,zeny+100000000*.@silvz;
					delitem 675,.@silvz;
					close;
			case 4: next;
					mes .@name$;
					mes "How many Platinum coins do you want to convert?";
					input .@platz;
					if( .@platz < 0 ) || ( countitem(677) < .@platz ) { close; }
					set zeny,zeny+200000000*.@platz;
					delitem 677,.@platz;
					close;
		}
}