EQEmulator Forums - Baobob

Code:
###################################

# Baobob_Miller.pl

#

# Quests: Wolf-hide armor

# Zone: Qeynos Hills (qeytoqrg)

#

# Turn-in Items: 

# Low Quality Wolf Skin ID-13753 and 5 gold pieces

# Medium Quality Wolf Skin ID-13754 and 15 gold pieces

# High Quality Wolf Skin ID-13755 and 21 gold pieces

#

# Rewards: 

# Wolf-hide Belt ID-2907

# Wolf-hide Boots ID-2906

# Wolf-hide Cape ID-2905

#

#



sub EVENT_SPAWN {

   quest::settimer(1,10);

}



sub EVENT_TIMER {

   if($timer eq "1") {

   $npc->SetAppearance(1);

   quest::stoptimer(1);

   }

} 



sub EVENT_AGGRO {

   quest::say("I can take on a whole pack of wolves. You will not be as much trouble.");

}



sub EVENT_SAY {



   if ($faction <= 8) { # Need dubious or better (not sure this is correct).



      if ($text=~/Hail/i) {

         quest::say("Hello, there. My name is Baobob Miller. My [sister] and I are the best tanners in all of Norath. Wolves are my specialty. A nice wolf skin [garmet] would be the perfect accessory to your 



stylish ensemble.");

      }



      if ($text=~/what sister/i) {

         quest::say("My little sister Chanda is the second best tanner around!. Seriously though, she is a very skilled artisan and people travel far and wide to acquire one of her fine bear skin cloaks. I 



am proud of her. She doesn't really like to meet new people, but if you tell her [Baobob sent you], I am sure she can help get you into some nice bear skin boots.");

      }



      if ($text=~/what garment/i) {

         quest::say("I make the finest wolf skin [boots],[cloaks] and [belts] in all of Antonica.");

      }



      if ($text=~/what boot/i) {

         quest::say("If you can bring me a wolf skin of medium quality and pay me a fee of say.. hmmmm.. for you.. 15 gold pieces, I think I can make you a pair of boots that will make all of Qeynos envy 



you.");

      }



      if ($text=~/what cloak/i) {

         quest::say("Yes! One of my wold skin cloaks would go very well with your.. eeerr.. style.. Ahem! Let's see.. I think I can get you into one for 21 gold pieces, but, you have to provide the skin, and 



I make my cloaks with only the highest quality wolf skins.");

      }



      if ($text=~/what belt/i) {

         quest::say("Belts are far more forgiving than cloaks or boots. A lesser quality pelt and 5 gold pieces would get you a nice wolf-hide belt.");

      }



   } else {

      quest::say("Hmm.. I really would not feel comfortable helping you in that way. You need to prove yourself to me by aiding my friends and family in the Plains of Karana before I will help you.");

   }

}



sub EVENT_ITEM {



   if(plugin::check_handin(\%itemcount, 13753 => 1) && $gold == 5) {



      quest::say("Good work! Now have you the rest of what I require?");

      quest::say("I hate working with such low quality hides. They lack the sheen that makes a high quality pelt look so fine!");

      quest::say("Anyhow, here's your belt.");

      quest::summonitem(2907);

      $give_faction = 1;



   } elsif (plugin::check_handin(\%itemcount, 13754 => 1) && $gold == 15) {



      quest::say("Good work! Now have you the rest of what I require?");

      quest::say("They are exquisite, if I do say so myself. Hope they fit.");

      quest::summonitem(2906);

      $give_faction = 1;



   } elsif (plugin::check_handin(\%itemcount, 13755 => 1) && $gold == 21) {



      quest::say("Good work! Now have you the rest of what I require?");

      quest::say("Here ya go! That should keep ya nice and warm! Be sure to tell all the friends you're going to impress where you got this fine cloak. Although I am sure they probably have heard of me 



already.");

      quest::summonitem(2905);

      $give_faction = 1;



   } else {

      plugin::return_items(\%itemcount);

   }



   if ($give_faction == 1) {

      quest::faction("167","1"); # +Karana Residents

      quest::faction("135","1"); # +Guards of Qeynos

      quest::faction("257","1"); # +Priests of Life

      quest::faction("183","1"); # +Knights of Thunder

   }



}



#END of FILE Zone:qeytoqrg  -- Baobob_Miller