Exchanger

//////////////////////////////////
sl_mall02,91,165,3	script	Andelinia Exchanger	860,{

    cutin "kafra_08",2;
    mes "[ ^336699Credit Master^000000 ]";
    mes "What do you want to do today?";
    menu "Coin -> Zeny",L_coin,"Zeny -> coin",L_Zeny,"Gold -> Zeny",L_Gold,"Zeny -> Gold",L_Zeny1,"Nevermind",L_No;

////////////////////////
    L_coin:
        next;
        mes "[ ^336699coin Master^000000 ]";
        mes "Very well. Here is the list on how much each coin is worth:";
        mes "^996633coin^000000: 500,000 Zeny";
        mes "Tell me, what coin would you like to exchange?";
        next;
        menu "^996633coin^000000",M_coin;



    M_coin:
        next;
        mes "[ ^336699coin Master^000000 ]";
        mes "How many coins would you like to give up?";
        set @mamount,0;
        input @mamount;
        if(@mamount < 0) goto L_No;
        if(countitem(7517) < @mamount) goto L_No;
        set Zeny,(zeny + (500000* @mamount));
        delitem 7517,@mamount;
        goto L_Thanks;

    L_Zeny:
        next;
        mes "[ ^336699coin Master^000000 ]";
        mes "Very well. Here is the list on how much each coin is worth:";
        mes "^996633coin^000000: 10,000,000m Zeny";
        mes "Tell me, what coin would you like to get?";
        next;
        menu "^996633coin^000000",M_coin1;

    M_coin1:
        next;
        mes "[ ^336699coin Master^000000 ]";
        mes "How many coins would you like?";
        set @mamount,0;
        input @mamount;
        if (zeny < 0) goto L_No;
        if (zeny < (1000000* @mamount)) goto L_No;
        set Zeny,(zeny - (500000* @mamount));
        getitem 7517,@mamount;
        goto L_Thanks;

     L_Gold:
        next;
        mes "[ ^336699Gold Master^000000 ]";
        mes "Very well. Here is the list on how much each Gold is worth:";
        mes "^996633Gold^000000: 100,000k Zeny";
        mes "Tell me, what Gold would you like to exchange?";
        next;
        menu "^996633Gold^000000",M_Gold;

    M_Gold:
        next;
        mes "[ ^336699Gold Master^000000 ]";
        mes "How many Golds would you like to give up?";
        set @mamount,0;
        input @mamount;
        if(@mamount < 0) goto L_No;
        if(countitem(969) < @mamount) goto L_No;
        set Zeny,(zeny + (100000* @mamount));
        delitem 969,@mamount;
        goto L_Thanks;


    L_Zeny1:
        next;
        mes "[ ^336699Gold Master^000000 ]";
        mes "Very well. Here is the list on how much each Gold is worth:";
        mes "^996633Gold^000000: 10,000,000m Zeny";
        mes "Tell me, what Gold would you like to get?";
        next;
        menu "^996633Gold^000000",M_Gold1;

    M_Gold1:
        next;
        mes "[ ^336699Gold Master^000000 ]";
        mes "How many Golds would you like?";
        set @mamount,0;
        input @mamount;
        if (zeny < 0) goto L_No;
        if (zeny < (1000000* @mamount)) goto L_No;
        set Zeny,(zeny - (100000* @mamount));
        getitem 969,@mamount;
        goto L_Thanks;


    L_Thanks:
        mes "[ ^336699coin Master^000000 ]";
        mes "Pleasure doing business with you.";
        close2;
        cutin "", 255;
        close;

    L_No:
        mes "[ ^336699coin Master^000000 ]";
        mes "Okay~ Bye!";
        close2;
        cutin "", 255;
        close;
OnInit:
	waitingroom "Andelinia Exchanger",0;
	end;

}