[Lord of Steel]

Here is a script that gives you a clickable link when you hail the cleric buffbot NPC. The cost and the spell casted scale depending on level.

sub EVENT_SAY { 
my $GetPlayerID = $client->GetID();
my $GetMoney = $client->GetCarriedMoney();
	my $Buff = quest::saylink("Buff",0,"Buff");
	if($text=~/hail/i)
	{
		quest::say ("For 1 platinum piece per level I can cast a strong health [$Buff] on you.");	
	}


	
	if($text=~/buff/i)
	{
		if($GetMoney >= $ulevel *1000)
		{
			$client->TakeMoneyFromPP($ulevel * 1000, true);
			if ($ulevel<11)
			{				
				$npc->CastSpell(244, $GetPlayerID, 10,0,0,0 );
			}
			if ($ulevel >10 && $ulevel<21)
			{				
				$npc->CastSpell(312, $GetPlayerID, 10,0,0,0 );
			}
			if ($ulevel >20 && $ulevel<31)
			{
				$npc->CastSpell(314, $GetPlayerID, 10,0,0,0 );
			}
			if ($ulevel >30 && $ulevel<41)
			{
				$npc->CastSpell(3692, $GetPlayerID, 10,0,0,0 );
			}
			if ($ulevel >40 && $ulevel<51)
			{
				$npc->CastSpell(3692, $GetPlayerID, 10,0,0,0 );
			}
			if ($ulevel >50)
			{
				$npc->CastSpell(1447, $GetPlayerID, 10,0,0,0 );
			}
			$client->Message(2, "Here you go.  Thanks for the donation!");
			$client->Message(5, "$ulevel platinum has been removed from your inventory.");
		}
	}
}