prontera,146,196,4 script Stat Seller 831,{
readparam(bStr);
readparam(bAgi);
readparam(bVit);
readparam(bInt);
readparam(bDex);
readparam(bLuk);
mes "[ Stat Seller ]";
mes "Good day, I am the stat seller";
next;
mes "[ Stat Seller ]";
mes "I sell 10 stat points directly to your desired stat.";
next;
mes "[ Stat Seller ]";
mes "Each 10 stat points cost 50,000,000 zeny.";
mes "Would you like to buy 10 stat points from me?";
next;
mes "[ Stat Seller ]";
mes "But please note that when you buy stats,";
mes "The additional stat points will not be added when you reset your character stats!";
next;
mes "[ Stat Seller ]";
mes "So please make sure that when you do this,";
mes "You won't regret it later!";
next;
mes "[ Stat Seller ]";
mes "Do you still want to buy stat points?";
next;
menu "Yes",YES,"No",NO;
YES:
mes "[ Stat Seller ]";
if(Zeny < 49999999) goto no400k;
mes "Which status points would you like me to distribute?";
next;
menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;
STR:
if (readparam(bStr) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bStr,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
AGI:
if (readparam(bAgi) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bAgi,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
VIT:
if (readparam(bVit) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bVit,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
INT:
if (readparam(bInt) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bInt,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
DEX:
if (readparam(bDex) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bDex,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
LUK:
if (readparam(bLuk) > 489) goto M_Limit;
next;
mes "[ Stat Seller ]";
mes "There you go.";
mes "Come by again.";
statusup2 bLuk,10;
set Zeny, Zeny - 50000000; // change this to delitem itemID,Qty; or set #CASHPOINTS,Amount;
close;
M_Limit:
mes "[ Stat Seller ]";
mes "You have already reached max on selected stat!";
next;
mes "[ Stat Seller ]";
mes "Please choose another stat.";
next;
menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;
close;
no400k:
mes "[ Stat Seller ]";
mes "Apparently, you don't have enough zeny to buy these points.";
next;
mes "[ Stat Seller ]";
mes "Come by any time.";
close;
NO:
mes "[ Stat Seller ]";
mes "Come by if you need me.";
close;
}
Here you go.
Don't forget to change the messages based on your desired requirements (Zeny/Cashpoints/Item)
PRRstatseller v1.001.txt