Castspell($userid,num) not working

[SiliconeClone]

hmm still having problems on this one.

#Prince_Thirneg.pl
#zone growthplane

sub EVENT_SAY { 
if ($text=~/Hail/i){
quest::say("Hello $name .  What have you come to growth for?"); 
}
if ($text=~/phatty lewts/i)
{
quest::say("There are no Phatty Lewts for you here $name!");
quest::shout("$name!!!"); 
quest::damage(32000);
}
}

Changed it from $castspell and #selfcast to the suggested, and now he yells the name but the 32000 damage is not going through. Heh I am about ready to give up on this one, was just simply play on an old urban legend. The closest I have come to getting this to work is using selfcast method. He will not cast the spell using #spellcast and he will not do the damage using the damage method... any other suggestions?

Edit: In fact no matter what spell I try and get this particular NPC to cast... he always Cast a mage pet instead?? lol

[Malignus Wingnut]

Ya know...to be authentic you gotta make the unicorn in PoM say what he says.

You hail him ,he says something ridiculous, and you say "phat lewts?", and he says something to the effect of "To My KnOwLeDgE, PrInCe ThIrNeG iN tHe PlAnE oF GrOwTh HaS acQuIrEd A VeRy LaRgE sUpPlY oF pHaT lEwTs..yOu ShoUlD gO aSk hIm FoR sOmE.. HeHehHeHeHeHeHEHeEEE!!!!"

I have a screenshot of this from live somewhere, ah well.