Great job, and I've always been a long time supporter of this tool, back since when you first released it. One problem with this one is though, the syntax is off quite a bit.
Just plugging in a basic EVENT_SAY component returned the following:
sub EVENT_SAY(){
if ($text=~/hail/i){ }
}
The syntax works like this now:
sub EVENT_SAY {
if($text=~/Hail/i){
quest::say("Hail hail hail... tis all ye ever say anymore.");
quest::summonitem(itemno); }
}
If you want some help on updating this, let me know. I use the current perl system all the time, and am very comfortable with it.
|