[nilbog]

You can do this rather simply by requesting a $ulevel check with an if. Like:

if ($text=~/heal/i)
{
if ($ulevel <= 10)
{
quest::selfcast(13);
}
}

and at the beginning of sub EVENT_ITEM:

sub EVENT_ITEM
{
if ($ulevel <= 10)
{

Note that will make the npc not accept any item unless the user is <= level 10. If you wanted them to take other items, you can add that if check in each platinum/item check.

For example, here is your script with the additions.

sub EVENT_SAY {
	if ($text =~/Hail/i)
	{
		quest::say("Greetings $name. If you want me to cast a spell on 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 cast the following spells : Spirit of Wolf = 1 pp // Dead Man Floating = 3 pp // Clarity = 4 pp // Clarity II = 5 pp // Spiritual Light = 8 pp // Spiritual Radiance = 15 pp // Temperance = 1 peridot // Virtue = 4 peridots // KEI = 50 pp");
	}
	if ($text=~/heal/i) 
	{ 
		if ($ulevel <= 10)
		{
			quest::selfcast(13); 
		}
	}
}

sub EVENT_ITEM
{
	if ($ulevel <= 10)
	{
		if($platinum == 1)
		{
			quest::selfcast(278);
		}
		if($platinum == 3)
		{
			quest::selfcast(457);
		}
		if($platinum == 4)
		{
			quest::selfcast(174);
		}
		if($platinum == 5)
		{
			quest::selfcast(1693);
		}
		if($platinum == 8)
		{
			quest::selfcast(2176);
		}
		if($platinum == 15)
		{
			quest::selfcast(2177);
		}
		if($item1== 10028)
		{
			quest::selfcast(3692);
		}
		if($itemcount{10028} == 4)
		{
			quest::selfcast(3467);
		}
		if($platinum == 50)
		{
			quest::selfcast(2570);
		}
	}
}

Hope that helps. Good luck.