Quest do not work

[Olimpan859]

i am trying to assign a npc a quest, but he doesnt respond..heres my quest


sub EVENT_SAY
{
if ($text=~ /Hail/i){quest::say("Hail, $name .I will make you a deal with you. Give me your Tome of Order and Discord and I will set your level to 40, scribe your spells to 40, and give you 110 in all skills. Plus 5k plat.. So how about it?");}
}
sub EVENT_ITEM
{
if ($itemcount{18700} == 1){quest::say("Nice deal, Here you go.");
quest::level(40);
quest::setskillall(110);
quest::givecash (0,0,0,5000);
quest::scribespells();
}}



any ideas?