[chrsschb]

Syntax looks fine to me.

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

However consider expanding your code to use character level and class skill max values. For instance if your character is level 34 wizard, this code would give max skills for a level 34 wizard. You can place it inside any if statement with your predetermined prerequisites.

{
my $CharClass = $client->GetClass();
for ($skillid = 0; $skillid < 74; $skillid++)
	{
	my $SkillValue = $client->MaxSkill($skillid, $CharClass, $ulevel);
	$client->SetSkill($skillid, $SkillValue);
	}
}