Very simple quest

[Randymarsh9]

Ok I am doing a very basic quest, and the quest guy isn't responding to hails or giving the item for the turn in. Any suggestions?

#Gives a belt
sub EVENT_SAY
{

if ($text =~/hail/i) {
  quest::say ("Shhhh, $name. They can't know I'm not an orc. I am a [spy] sent here by the Soldiers of Tunare.");  }
if ($text =~/spy/i {  
  quest::say ("Aye, I was sent to learn who was leading these orcs. From my studies I have concluded it is a powerful orc named Emperor [Crush].");  }
if ($text =~/Crush/i {  
  quest::say ("If you kill him, I can go home. I'll let you have my belt that makes me appear to be an orc since I won't need it anymore. Bring me his Dwarven Ringmail Tunic to prove he is dead");  }
}




sub EVENT_ITEM
{

if($itemcount{3301} >= 1)
   {
quest::say("Finally! Kelethin will be a lot safer without Crush around.");
quest::summonitem(1449);
quest::exp(30000); 
   }
}

[Neiv]

For one thing, both

if ($text =~/spy/i

and

if ($text =~/Crush/i

. . . are missing closing parentheses

[Yeormom]

I'd suggest using an editor which supports Perl syntax modeling so you catch all the simple non-logical mistakes when writing quests, such as Notepad++. Alternatively, you can use one of the many web based perl validators.