prontera,100,100,5	script	Converter	50,{
mes "[^FF0000Converter^000000]";
mes "Hi ^0000FF"+strcharinfo(0)+"^000000!";
mes "What o you want to change?";
next;
switch( select("- PC to PC Points:- Close") )
{
	case 2:
		close;
	case 1:
		input .@amount;
		if(countitem(7539) < .@amount)
		{
			mes "[^FF0000Converter^000000]";
			mes "You don't have that many Poring Coins.";
			close;
		}
		mes "[^FF0000Converter^000000]";
		delitem 7539,.@amount;
		set #PORINGPOINTS, #PORINGPOINTS + .@amount * 3;
		mes "Done converting.";
		close;
	}
}