Quest not wanting to work

[c0ncrete]

there's also a missing hash to comment out the first line, and you've got what looks to be another conditional line for your EVENT_SAY subroutine inside your EVENT_ITEM subroutine with the variable used to check spelled incorrectly.

here... i'm assuming this should be $text, not $test, and that it shouldn't be in your EVENT_ITEM sub

if($test=~/waiting/i){

[Bandor]

I see the stupid mistakes Made now that theyve been pointed out,however im still getting nowhere with this npc lol. Ive just coppied/pasted working quests( that I wrote and tested) and with no luck.For instance just gave him a simple quest code that I know for a fact works as I just did the quest 5minutes ago.

sub EVENT_SAY {
	if($text=~/hail/i) {
		plugin::Whisper("Hail $class. Do you seek to earn some " . quest::saylink("armour", 1) . "?");
	} 
	elsif($text=~/armour/i) {
		plugin::Whisper("I can make you armor provided you have the proper " . quest::saylink("materials", 1) . " for me.");
	}
	elsif($text=~/materials/i) {
		plugin::Whisper(" Bring me a armor " . quest::saylink("pattern", 1) . " and a " . quest::saylink("crafting", 1) . " piece.");
	} 
	elsif($text=~/pattern/i) {
		plugin::Whisper("Indeed, they can be found from most creatures. Keep your eyes and ears open.");
	}
    elsif($text=~/crafting/i) {
		plugin::Whisper("Yes you fool! Infact I happen to sell them. Plate for Plate,Chain for Chain get it?!");
	}
	}

As far as the code for the perl interpreter im just failing to understand what to do with the code at all,do I make a new PL file or what? Sorry for all these noob quests but Im trying here guys.