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.
Code:
#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!)