Baobob_Miller.pl

[Theeper]

###################################
# 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

[cavedude]

Submitted to PEQ, thank you!

[juronu]

My question to you is where did you get the text from the NPC? I've searched throughout the internet and haven't found anything resembling what he would say from a hail. Did you make up what he says or is there some awesome website that sources what every NPC has said?

[Angelox]

Here's where most everyone goes
http://eqbeastiary.allakhazam.com/zonelist.html

[juronu]

I do use alla for most everything I research for EQ, but with this NPC, there is nothing under his page that states any quest text, let alone what he says when something aggros! lol. I'm just curious to know.

[Theeper]

I got the text for this quest from doing it on EQ Live.