EQEmulator Forums - Azzar

Azzar_Habbib.pl

Quote:

############################################
#
# DEVELOPER: ARAGON
#
# *** NPC INFORMATION ***
#
# ZONE: Paineel
# NAME: Azzar_Habbib
# RACE: Erudite
# LEVEL: 25
#
# *** QUESTS AVAILABLE TO ***
#
# - All Classes
# - All Races
#
############################################

sub EVENT_SAY {
if($text=~/Hail/i)
{
quest::say("I'm not in any mood for conversation. My favorite hat was torn right from my head by a gigantic bat the other night and I am quite upset.");
}
if($text=~/what other tasks/i)
{
quest::say("I will sew you your own personal dreadful cap if you bring me the necessary components. I will need the pelt of a feared beast, some gold thread, and an imbued amber.");
}
}
sub EVENT_ITEM
{
if($itemcount{1528} && $itemcount{1528} == 1)
{
quest::emote("gasps in astonishment and says");
quest::say("You...you..found my hat!! This is the most I can repay you but perhaps I can reward you further for some other tasks?");
quest::exp(125);
quest::summonitem(1530);
}
if($itemcount{19076} == 1 && $itemcount{12096} == 1 && $itemcount{22502} == 1)
{
quest::exp(125);
quest::summonitem(1529);
}
}