npc->CastSpell(); Not working for me?

[fault]

Nothing in event item is working, EVENT_SAY works fine, giving 10gold does nothing except eat gold.

ideas?

sub EVENT_SAY{
	if($text=~/Hail/i){
		quest::say("Hello $name, give me 10 gold and I will bless you with great life.")
	}
}

sub EVENT_ITEM{
  my $cash = $copper + $silver * 10 + $gold * 100 + $platinum * 1000;

  if (($cash >= 1000) ) { #Check for 10 gold
    	quest::emote("Starts to cas....");
	$npc->CastSpell(3025,$userid);
  }
  else {
    if ($cash) {
      quest::say("Sorry stranger, but that is not enough to barter with.");
      quest::givecash($copper, $silver, $gold, $platinum);
    }