//Made by deathscythe13
//A simple skill point seller that require item payment

prontera,155,93,4 script Skill Point seller 100,{
set .@paymentitemid,7227; // Edit Item ID use
set .@paymentamount,50;		 // Edit Amount
mes "[Skill Point Seller]";
mes "Hi i can sell you skill points for "+.@paymentamount+" "+getitemname(.@paymentitemid)+" equals 1 Skill Point";
mes "Do you like to buy a skill point?";
next;
if(select("Yes:No")==2) {
	  mes "[Skill Point Seller]";
	  mes "Ok Bye.";
	  close;
}
mes "[Skill Point Seller]";
mes "please input how many skill points you want or enter 0 to cancel";
next;
input .@points;
next;
mes "[Skill Point Seller]";
if(!.@points) {
		 mes "You have canceled buying.";
		 close;
}
if(countitem(.@paymentitemid) < (.@points*.@paymentamount)) {
		 mes "Sorry your "+getitemname(.@paymentitemid)+" is not enough.";
		 close;
}
delitem .@paymentitemid,(.@points*.@paymentamount);
set SkillPoint, SkillPoint+.@points;
mes "There you go have a nice day.";
close;
}