Requesting NPC Trader

[Hyoru]

Hello!

 

I need an NPC that trades 100 #invasionpoint to 1 Poring Coin ( ID: 7539 ). 

 

Thanks in Advanced.

[EL Dragon]

here  100 x #invasionpoint to 1 x Poring Coins and 1x Poring coin to 100x  #invasionpoint

prontera,155,155,4	script	Converter	83,{

    .@name$ ="[^FF0000Converter^000000]";


    dispbottom "You have " + #invasionpoint + " Invasion Point's.";
    mes .@name$;
    mes "Hello, 100 Invasion Point is equals to 1 Poring Coin.";
    mes "What would you like to do?";
    next;



    switch( select("Invasion Point to Poring Coin","Poring Coin to Invasion Point") ) {

        case 1:
            mes .@name$;
            mes "How many Poring Coin(s) do you want?";
            input .@num;
            next;



            if( .@num <= 0 || #invasionpoint  < .@num * 100 ) {
                mes .@name$;
                mes "Sorry, you don't have enough Invasion Point!";
                close;

            }

            mes .@name$;
            mes "This will cost ^FF0000" +(.@num * 100)+ " Invasion Point^000000.";
            next;



            if( select("Proceed:Nevermind") -1 ) {
                mes .@name$;
                mes "Goodbye!";
                close;

            }

            set #invasionpoint,#invasionpoint -  .@num * 100;
            dispbottom "Lost: " +(.@num * 100)+ " Invasion Point. Total: " +#invasionpoint +" Invasion Point.";
            getitem 7539, .@num;
            break;

    

        case 2:
            mes .@name$;
            mes "How many Poring Coin(s) will you give?";
            input .@num;
            next;



            if( .@num <= 0 || countitem(7539) < .@num ) {
                mes .@name$;
                mes "Sorry, you don't have enough Poring Coin!";
                close;

            }

            mes .@name$;
            mes "I can give you ^FF0000" +(.@num * 100)+ " Invasion Point.^000000 for this.";
            next;



            if( select("Proceed:Nevermind") -1 ) {
                mes .@name$;
                mes "Goodbye!";
                close;

            }

			set #invasionpoint,#invasionpoint +  .@num * 100;
            dispbottom "Gained: " +(.@num * 100)+ " Invasion Point. Total: " +#invasionpoint +" Invasion Point's.";
            delitem 7539,.@num;

    }

    close;

}

[Hyoru]

Thanks a lot!

[Conflicts]

Please mark topic as solved, and select the post that helped you solve it. This would help other members facing the same issue / having the same request.