Skills NPC

sub EVENT_SAY {
if ($text =~/Hail/i)
{ quest::say("Greetings $name. If you want me to set your skills for you, please say so and I will give you my [pricelist]. If you want me to [heal] you, please say so and I will do it for free."); }
if($text=~/pricelist/i)
{quest::say("I can set all skills to the following skill levels : level 20 = 10 pp // level 40 = 40 pp // level 60 = 80 pp // level 80 = 160 pp // level 100 = 320 pp // level 120 = 640 pp // level 150 = 1280 pp // level 200 = 2560 pp // level 250 = 5000 pp");}
if ($text=~/heal/i) { quest::selfcast(13); }
}
sub EVENT_ITEM
{
if($platinum == 10)
{
quest::setallskills (20) ;
}
if($platinum == 40)
{
quest::setallskills (40);
}
if($platinum == 80)
{
quest::setallskills (60);
}
if($platinum == 160)
{
quest::setallskills (80);
}
if($platinum == 320)
{
quest::setallskills(100);
}
if($platinum == 640)
{
quest::setallskills(120);
}
if($platinum == 1280)
{
quest::setallskills(150);
}
if($platinum == 2560)
{
quest::setallskills(200);
}
if($platinum == 5000)
{
quest::setallskills(250);
}
}