[hayward6]

Ok, it's working as written below. All I need to do now is make the actual pet summon work, make sure the pets are able to cross zone lines and set a check to make sure the player doesn't already have a pet... and add some text for an invalid turnin lots to do, good thing the weekend is coming.

#Hired Hand's Quest

sub EVENT_SAY { 
if($text=~/Hail/i){
    quest::emote("Looks around carefully");
    quest::pause(2);
    quest::say("Hail. $name!  I had to be sure you were alone, this type of (buisness) is not always accepted among the people here.");
}
if($text=~/buisness/i)
  {
    quest::say("What! you don't know of my trade? Have you not heard of the Norrath Hired Hands? Oh come now, don't tell me you haven't come to hire an (Adventurer) from me.");
  }
  if($text=~/adventurer/i)
  {
    quest::say("Yes, an adventurer! I have some of the finest (cleric's), (Warrior's) and (Wizard's) Norrath has ever seen. If hired they will fight at your side for the day.");
  }
  if($text=~/cleric's/i)
  {
    quest::say("Yes the cleric's I have are very experienced and will help to keep you alive in combat. Trade me 2 Gold for the services of a Cleric for one day.");
  }
  if($text=~/warrior's/i)
  {
    quest::say("Yes the Warrior's I have are very experienced in battle and will protect you well. Trade me 4 Gold for the services of a Warrior for one day.");
  }
  if($text=~/Wizard's/i)
  {
    quest::say("Yes, the Wizard's I have are very experienced in battle and will assist you well. Trade me 6 Gold for the services of a Warrior for one day.");
  }
}

sub EVENT_ITEM {
	#Cleric
	if($gold==2){
		quest::say("Thank you, this Cleric is among my finest and, will serve you well."); 
		quest::givepet(npcid);}
        #Warrior
	elsif($gold==4){
		quest::say("Thank you, this Warrior is among my finest and, will serve you well."); 
		quest::givepet(npcid);}

        #Wizard
	elsif($gold==6){
		quest::say("Thank you, this Wizard is among my finest and, will serve you well."); 
		quest::givepet(npcid);}
}
#end of quest