my @blockedspells = (xxxx,xxxx,xxxx,xxxx); quest::scribespells ($ulevel, $ulevel - 1, $blockedspells);