Buy skill points npc with limit

[wasaru]

can anyone do me a script a buy skill points npc with limit of 10skill points to buy

using this item 20x required

itemid ,30001,"Ubercoins"

thank you in advance

 

[hendra814]

can anyone do me a script a buy skill points npc with limit of 10skill points to buy

using this item 20x required

itemid ,30001,"Ubercoins"

thank you in advance

not test, but try this

prontera,147,162,5     script  Point Merchant  47,{
// ===================== Settings ===========================
set .@skillname$,"^0000FF[ Baldur ]^000000";
set .numitem,30001;
// ================== End of Settings =======================
mes .@skillname$;
mes "Hello ^FF0000["+strcharinfo(0)+"]^000000!";
mes "What do you want to do?";
next;
switch(select("-Buy Skill Point:-Cancel")) {
case 1:
		if (.numitem < 22) {
		mes "You don't have enough "+getitemname(.numitem)+"";
		end;
		}
		
        mes .@skillname$;
        mes "Okay input the Amount";
        mes "of Points you want to buy!";
        next;
        mes .@skillname$;
        mes "1 Point has a cost of 20 pcs "+getitemname(.numitem)+"";
        input .@amount;
        delitem .numitem,.@amount*20;
        set SkillPoint, SkillPoint + .@amount;
        mes "There you are, enjoy your new points!";
        close;
        }
case 2:
        mes .@skillname$;
        mes "Come again...";
        close;
}