Simple Skill Seller

[Dvrstle]

Hello guys, i would like to request a simple skill seller.

Every 50 TCG cards is equal to 1 skill point and there is an option of how many skill points I want to add so that it will be not so tiring on buying skill points.

Thank you in advance.!!

This will be also a great help to other members

[deathscythe13]

//Made by deathscythe13

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;
}

Edited April 26, 2012 by deathscythe13

[Dvrstle]

thank you for your post!! it helps me a lot

[deathscythe13]

np

[KingTristan]

thanks for this sir!