Status & Skill Seller using KafraPoints

[MidKnight 0]

Hello everyone, I would like some help on this Status & Skill seller. 

I wanna add in Kafra Points in it but i'm not sure on how to add Kafra Points in the script and where. I'M just now learning how to script if anyone would like to help me that be great. I will post the script so anyone can look at it.

 

I would like the Status/Skill selling part be 500000 Kafra Points

 

Here's the script below

 

prontera,151,192,4 script Kafra Linda 4_F_KAFRA8,{

mes "[Kafra Linda]";

mes "Hello";

mes "My name is Kafra Linda";

mes "I work for the Kafra Services";

mes "My job is to sell Status Points & Skill Points.";

next;

menu "^FF3355Sell Points",Sell,"Buy Points",Buy,"See Prices^000000",Prices,"No Thanks",CANCEL;

 

Sell:

mes "[Kafra Linda]";

mes "Allright, What kind of points would you like to sell?";

next;

menu "^FF3355Status Points",Stats,"Skill Points^000000",Skill,"No Thanks",CANCEL;

 

Stats:

mes "[Kafra Linda]";

mes "Ok, now put in the Amount of Statpoints you would like to sell";

input .@statamount;

if (StatusPoint < .@statamount) goto NoPoints;

set .@statprice, 100 * .@statamount;

set Zeny, Zeny +.@statprice;

set StatusPoint,StatusPoint -.@statamount;

close;

 

Skill:

mes "[Kafra Linda]";

mes "Ok, now put in the Amount of Skillpoints you would like to sell";

input .@skillamount;

if (SkillPoint < .@skillamount) goto NoPoints;

set .@skillprice, 100 * .@skillamount;

set Zeny, Zeny +.@skillprice;

set SkillPoint,SkillPoint -.@skillamount;

close;

 

Buy:

mes "[Kafra Linda]";

mes "Allright, what kind of points would you like to buy?";

next;

menu "^FF3355Status Points",BStats,"Skill Points^000000",BSkill,"Nothing",CANCEL;

 

BStats:

mes "[Kafra Linda]";

mes "Ok, now put in the Amount of Statpoints you would like to buy";

input .@statamount;

set .@statprice, 100 * .@statamount;

if (Zeny < .@statprice) goto NoZeny;

set Zeny, Zeny -.@statprice;

set StatusPoint,StatusPoint +.@statamount;

close;

 

BSkill:

mes "[Kafra Linda]";

mes "Ok, now put in the Amount of Skillpoints you would like to buy";

input .@skillamount;

set .@skillprice, 100 * .@skillamount;

if (Zeny < .@skillprice) goto NoZeny;

set Zeny, Zeny -.@skillprice;

set SkillPoint,SkillPoint +.@skillamount;

close;

 

Prices:

mes "[Kafra Linda]";

mes "I buy and sell Stat/Skill points for the same prices.";

next;

mes "Status Points 100 Zeny";

mes "Skill Points 100 Zeny";

close;

 

NoPoints:

mes "[Kafra Linda]";

mes "Sorry, you don't have enough Skill / Status Points!";

close;

 

NoZeny:

mes "[Kafra Linda]";

mes "Sorry, you don't have enough zeny to buy points!";

close;

 

CANCEL:

mes "[Kafra Linda]";

mes "Allright. Please come again if you need anything.";

close;

 

}

 

[Ehwaz 8]

Just change Zeny to #KAFRAPOINTS

 

set .@statprice, 100 * .@statamount; and  set .@skillprice, 100 * .@skillamount; is price part change by yourself

Edited December 5, 2014 by Hirist

[MidKnight 0]

Thanks for your help Hirist, It works.