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