small perl coding problem

[sylverwolf]

geez. i must be asking one question per day. i feel like such a noob and all the help i got so far is much appreciated. this place rocks :) I stared at this for almost half an hour comparing to other .pl's trying to see if i missed a bracket somewhere but counted even. When I hail the npc, she responds appropriately but when i use the key words "wish to go", nothing happens. (3182 is the spellID for ring of knowledge) I also tried sefcast with no results. If anyone can take a glance at this and just point out what i did wrong, i can take it from there. Thx :)

#Diarra Windrunner in qeynos2

sub EVENT_SAY {
if($text =~ /Hail/i) {
quest::say("Greetings. I am an acolyte of the seer of knowledge. We were sent to Norrath to provide transportation to this world. If you [wish to go], just tell me and I will use the seer's powers to transport you. Anytime you wish to return, just seek out the seer and she will send you back.");
}
if($text =~ /wish to go/i) {
quest::castspell($userid,3182); }
}

[kadrith]

This worked for me; I didn't have a Diarra Windrunner so I simply ran it on one of the NQey merchants.


sub EVENT_SAY
{
if($text=~/Hail/i)
{
quest::say("Greetings. I am an acolyte of the seer of knowledge. We were

sent to Norrath to provide transportation to this world. If you [wish to go], just tell me

and I will use the seer's powers to transport you. Anytime you wish to return, just seek

out the seer and she will send you back");
}
if($text=~/wish to go/i)
{
quest::selfcast(3182);
}
}