Quest help

[hayward6]

It's quite possible that this quest will be the death of me... here's what I have so far, it works all the way up untill time to turn in money. the npc im placing this on simply will not respond to money turnins... yes I know the pet summon wont work anyways, but he should at least be saying his responce phrase to the money right? any help would be appreciated.

#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 Freeport 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
{
if($copper == 2){
    quest::say("Thank you, this Cleric is among my finest and, will serve you well.");
    quest::givepet(npcid);}
}
sub EVENT_ITEM
{
if($copper == 4){
    quest::say("Thank you, this Warrior is among my finest and, will serve you well.");
    quest::givepet(npcid);}
}
sub EVENT_ITEM
{
if($copper == 6){
    quest::say("Thank you, this Wizard is among my finest and, will serve you well.");
    quest::givepet(npcid);
  }
}
#END (Quest writing Sucks!)