// --------------------------------------------------------------------------------------------* 
//                                                                                             //
// ______                                           _                                          // 
// | ___ \                                         | |                                         //
// | |_/ /___  ___  ___ _ __ ___   ___  _   _ _ __ | |_                                        //
// |    // _ \/ __|/ _ \ '_ ` _ \ / _ \| | | | '_ \| __|                                       // 
// | |\ \ (_) \__ \  __/ | | | | | (_) | |_| | | | | |_                                        //
// \_| \_\___/|___/\___|_| |_| |_|\___/ \__,_|_| |_|\__|                                       //
//                                                                                             //
//                                         _____           _       _                           //
//                                        /  ___|         (_)     | |                          //
//                                        \ `--.  ___ _ __ _ _ __ | |_                         //
//                                         `--. \/ __| '__| | '_ \| __|                        //
//                                        /\__/ / (__| |  | | |_) | |_                         //
//                                        \____/ \___|_|  |_| .__/ \__|                        //
//                                                          | |                                //
//                                                          |_|                                //
// --------------------------------------------------------------------------------------------*
//					Create By ~ Rosemount				       //
//					Current Version ~ v1.0	                               //
//					Tested ~ Latest Rathena                                //
// --------------------------------------------------------------------------------------------*
prontera,155,179,4	script	Trader	100,{
menu "~ Infomation",L_Info,"~ Trade",L_trade;

L_Info:
mes "^D6976FBronze Coin^000000 - 1,000000 ^FF0000Zeny^000000";
mes "^E6C457Gold Coin^000000 - 10,00000 ^FF0000Zeny^000000";
mes "^DED9CAPlatinum Coin^000000 - 100,000000 ^FF0000Zeny^000000";
close;

L_trade:
menu "~ ^E6C457Coin^000000  to ^FF0000Zeny^000000",CTZ,"~ ^FF0000Zeny^000000 to ^E6C457Coin^000000",ZTC,"~ Cancel",L_Quit;

ZTC:
menu "~ ^FF0000Zeny^000000 to ^D6976FBronze Coin^000000",ZTB,"~ ^FF0000Zeny^000000 to ^E6C457Gold Coin^000000",ZTG,"~ ^FF0000Zeny^000000 to ^DED9CAPlatinum Coin^000000",ZTP,"~ Cancel",L_Quit; 

CTZ:
menu "~ ^D6976FBronze Coin^000000",BC,"~ ^E6C457Gold Coin^000000",GC,"~ ^DED9CAPlatinum Coin^000000",PC;

BC:
set .@i,countitem(673);
mes "--------------------------------";
mes "You have "+.@i+" x "+getitemname(673);
mes "--------------------------------";
next;
if(select("~ Trade:~ Leave") == 2) end;
if( .@i < 0 ) end;
delitem 673,.@i;
set Zeny, Zeny +(.@i*1000000);
close;

GC:
set .@x,countitem(671);
mes "--------------------------------";
mes "You have "+.@x+" x "+getitemname(671);
mes "--------------------------------";
next;
if(select("~ Trade:~ Leave") == 2) end;
if( .@x < 0 ) end;
delitem 671,.@x;
set Zeny, Zeny +(.@x*10000000);
close;

PC:
set .@z,countitem(677);
mes "--------------------------------";
mes "You have "+.@z+" x "+getitemname(677);
mes "--------------------------------";
next;
next;
if(select("~ Trade:~ Leave") == 2) end;
if( .@x < 0 ) end;
delitem 677,.@z;
set Zeny, Zeny +(.@z*100000000);
close;

ZTB:
mes "--------------------------------";
mes "You have "+Zeny+" Zeny";
mes "1,000000 Zeny ^FF0000~^000000 1x ^D6976FBronze Coin^000000"; 
mes "--------------------------------";
if(select("~ Trade:~ Leave") == 2) end;
input .BC;
if(Zeny < .BC) end;
set Zeny, Zeny - .BC*1000000;
getitem 673,.BC;
end;

ZTG:
mes "--------------------------------";
mes "You have "+Zeny+" Zeny";
mes "10,000000 Zeny ^FF0000~^000000 1x ^E6C457Gold Coin^000000"; 
mes "--------------------------------";
if(select("~ Trade:~ Leave") == 2) end;
input .GC;
if(Zeny < .GC) end;
set Zeny, Zeny - .GC*10000000;
getitem 671,.BC;
end;

ZTP:
mes "--------------------------------";
mes "You have "+Zeny+" Zeny";
mes "100,000000 Zeny ^FF0000~^000000 1x ^DED9CAPlatinum Coin^000000"; 
mes "--------------------------------";
if(select("~ Trade:~ Leave") == 2) end;
input .PC;
if(Zeny < .PC) end;
set Zeny, Zeny - .PC*100000000;
getitem 677,.PC;
end;

L_Quit:
end;
}