[Mariomario]

sub EVENT_SAY 
{
	my $NPCName = $npc->GetCleanName();
	
	if ($text=~/hail/i) 
	{
		my $sl1 = quest::saylink("Mortal!", 1, "Do you have the strength to engage the Vampire lord of the Froglocks?.");
		
		$client->Message(14, "$NPCName says 'Froglock Master Vampire must be stopped!'");
		$client->Message(11, "::: $sl1");
	} 
	elsif ($text=~/Mortal!/i)
	{
		if ($ulevel >= 70) 
		{
			$client->Message(13, "Beware the undead have grown strong");
			plugin::SendToInstance("public", "guke", 1, 688, -1026, 59, "gukeVI", 64000); # Creates a instance trough a class in plugin folder
		} 
		else 
		{
			$client->Message(14, "$NPCName says 'Come back when you have more courage.'");
		}
	}
}

sub EVENT_ITEM 
{
	plugin::return_items(\%itemcount);
	
	if ($platinum != 0 || $gold !=0 || $silver != 0 || $copper != 0) 
	{
		quest::givecash($copper, $silver, $gold, $platinum);
	}
}

Indented and converted to BBCode for clarity.