EQEmulator Forums - Very simple quest

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Very simple quest (https://www.eqemulator.org/forums/showthread.php?t=27360)

Very simple quest

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?

Code:

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

   }

}

For one thing, both

if ($text =~/spy/i

and

if ($text =~/Crush/i

. . . are missing closing parentheses

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.