Druid Buffer

[Angelox]

Here's one I made for a Druid NPC, that just joined the bank buffers;

#zone:PoKnowledge
#Angelox
#Druid Buffs
#NPC: Befaydra

sub EVENT_SAY {
if($text=~/hail/i){
$npc->SetAppearance(0);
quest::say("Hello $name, Any donation you can afford will be ok");
quest::emote("winks at you");
$npc->CastSpell(278,$userid);
quest::say("I also have [PoN] if you're interested, but you need to at least be level 40");
}
elsif(($text=~/PoN/i)&&($ulevel>=40)){
$npc->SetAppearance(0);
$npc->CastSpell(3234,$userid);
quest::say("Casting PoN, enjoy!");
}
}

sub EVENT_SPAWN
{
$x = $npc->GetX();
$y = $npc->GetY();
quest::set_proximity($x - 90, $x + 90, $y - 90, $y + 90);
}

sub EVENT_ENTER
{
$npc->SetAppearance(1);
my $random_result = int(rand(100));
if ($random_result<=10){
quest::shout("Casting SOW for donations up front the main bank, just hail me!");
}else{
#Do Nothing
}
}


sub EVENT_SIGNAL {
my $random_result = int(rand(100));
if($random_result<=20){
quest::shout("Casting SOW for donations up front the main bank! just hail me");
}else{
#say nothing
}
}

The oocs are very randomized so as not to spam the zone, and I always like the "SetAppearance" modes, so as to make it look a little more natural. Druid SoWs you when hailed, and also offers you PoN, if you have the required level.
I prefer "$npc->CastSpell" because it's not instant-cast, so it looks more natural, I also have time to throw in some text/chat while casting.