Problem with quest

[Bandor]

Lol tried your version,still wouldnt work. Very odd lol. This is my full code maybe the problem lies somewhere else?

sub EVENT_SAY {
if($text=~/hail/i) {
		if(quest::istaskactivityactive(19, 2)) {
			quest::updatetaskactivity(19,2);
			plugin::Whisper("Wow you really did it! Did you happen to obtain an essence of power?! If so give it here now!");
			} 
			elsif (defined $qglobals{"Derlook"} && $qglobals{"Derlook"} == 3) {
			plugin::Whisper("Get to work $name!");
			} 
			elsif (defined $qglobals{"Derlook"} && $qglobals{"Derlook"} >= 4) {
			plugin::Whisper("Your work here is finished $name. Your are needed elsewhere!");
				} 
				else {
		plugin::Whisper("Hello $name! Im glad you made it here alive! It is time for our  " . quest::saylink("revenge", 1) . "!");
	}
	}
	elsif($text=~/revenge/i) {
	plugin::Whisper("There is a great General in these halls known as Veyse. Rumor has it that she has been working alongside Rallos to
	incite this war. His presence in these halls, along with the Zekian soldiers, seem to hold credence to these rumors! From the intelligence gathered thus far, It appears the ancient throne of Marr beholds a source of great power. We believe that Veyse has somehow absorbed this power and is using it to increase the power of him and his minions. Commander Tazen has asked for you to handle this threat as our forces are a bit stretched at the moment. Do you like a    " . quest::saylink("challenge", 1) . " ?");
	}
	elsif($text=~/challenge/i) {
	plugin::Whisper("I thought so $class! This mission is extremely simple,but in no ways shall it be easy! If you happen to defeat Veyse come and speak with me. Perhaps we can impart some of that power upon a item for you! So what say you are you up for the " . quest::saylink("task", 1) . " ?");
	}
	elsif($text=~/task/i) {
	plugin::Whisper("Very well, be off now!");
	quest::assigntask(19);
	quest::setglobal("Derlook", 3, 5, "F");
	}
	}
	
	
sub EVENT_ITEM { 
	if (plugin::check_handin(\%itemcount, 5792 => 1))
	{
		if (plugin::check_hasitem($client, 5333)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5769);
		}
		elsif (plugin::check_hasitem($client, 5371)){
			plugin::Whisper("As promised! Here is your new item!");
			my %epic1 = ("Monk" => 5790, "Ranger" => 5787);
			quest::summonitem($epic1{$class});
		}
		elsif (plugin::check_hasitem($client, 5375)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5720);
		}
		elsif (plugin::check_hasitem($client, 5390)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5700);
		}
		elsif (plugin::check_hasitem($client, 5409)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5750);
		}
		elsif (plugin::check_hasitem($client, 5419)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5651);
		}
		elsif (plugin::check_hasitem($client, 5420)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5755);
		}
		elsif (plugin::check_hasitem($client, 5421)){
			plugin::Whisper("As promised! Here is your new item!");
			my %epic2 = ("Warrior" => 5775, "Rogue" => 5775, "Monk" => 5783, "Berserker" => 5770, "Shadowknight" => 5770, "Paladin" => 5770, "Ranger" => 5775, "Bard" => 5775, "Beastlord" => 5783);
			quest::summonitem($epic2{$class});
		}
		elsif (plugin::check_hasitem($client, 5426)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5707);
		}
		elsif (plugin::check_hasitem($client, 5427)){
			plugin::Whisper("As promised! Here is your new item!");
			quest::summonitem(5650);
		}
		else
		{
			plugin::Whisper("You are not ready to give me this item yet.");
			quest::summonitem(5792);
		}
	}