I was a Co-Developer on a server called Harbingers Safehaven. An aspect about the server that players like is throughout our content we had very hidden NPC's scaling in difficulty so player hub was the easiest one to fine, and T2 was the hardest. These NPC's where based upon the names of the GM's and Donators alike.
Code:
#Starf the Drowning (Starf the Drowning)
sub EVENT_SAY
{
my $Drag = quest::saylink("Drag", 1);
my $NPCName = $npc->GetCleanName();
if ($text =~/hail/i)
{
$client->Message(315, "$NPCName says to you through telepathy, 'Please save me. I've been stuck under here for some time now. [$Drag] Me out of here please?'");
quest::emote("lets out his last air bubble.");
}
if ($text =~/drag/i)
{
$client->Message(315, "$NPCName says to you through telepathy, 'Thank you, it will be good to see my family again.'");
##quest::enabletitleset("998");
quest::depop();
}
}