[Cripp]

try this one..

#zone:PoKnowledge
#Angelox
 
sub EVENT_SAY
{ 
	if(($text=~/hail/i) && ($ulevel <= 45))
	{
		$npc->SetAppearance(0);
	}
	elsif(($text=~/hail/i) && ($ulevel >= 46))
	{
		$npc->SetAppearance(0);
		quest::say("Hello $name, For a donation of 15pp, I'll cast Spirit of Eagle on you.");
	}
}
 
sub EVENT_ENTER
{
	$npc->SetAppearance(1);
	my $random_result = int(rand(100));
	if ($random_result <= 15)
	{
		quest::shout("Casting SoW and SoE for donations behind the main bank!");
	}
	else
	{
		#Do Nothing
	}
}
 
sub EVENT_ITEM
{
	if (($platinum >= 15) && ($ulevel >= 46))
	{
		$npc->SetAppearance(0);
		$npc->CastSpell(2517,$userid);
		quest::say("Casting Spirit of Eagle, Good hunting!");
	}
	elsif(($platinum >= 5) && ($ulevel <= 45))
	{
		$npc->SetAppearance(0);
		$npc->CastSpell(278,$userid);
		quest::say("Casting Spirit of the Wolf, Good hunting!");
	}
	else
	{
		quest::say("Thank you for your donation $name, it wasn't enough though ...");
	}
}
 
sub EVENT_SIGNAL
{
	quest::shout("Casting SoW and SoE for donations behind the main bank!");
}

some of the =>/=< symbols were backwards.. (if that even matters)
made it look better nyways ;p