[Muuss]

Thanks Kroeg. In fact i have no problem at all with the new perl system, but i m the lazyest guy around, so lazy that i don't wanna take the time to find all the commands. If you wanna do it, you're more than welcome !
If you correct the wrong ones and add the missing ones, i ll merge it to the source code, recompile and send you flowers

addcomand syntax :
- command title
- command string (where | is a CR)
- number of rows
- kind of the command :

Const EVENT=1;
Const COMMAND=2;
Const TEST=3;
Const IDENTIFIER=4;

    addcommand('sub EVENT_SAY{}','sub EVENT_SAY()|if ($text=~//i){  }',3,EVENT,'');
    addcommand('sub EVENT_ITEM{}','sub EVENT_ITEM()|if ($item1==){  }',3,EVENT,'');
    addcommand('sub EVENT_ATTACK{}','sub EVENT_ATTACK()|',3,EVENT,'');
    addcommand('sub EVENT_SPAWN{}','sub EVENT_SPAWN()|',3,EVENT,'');
    addcommand('sub EVENT_DEATH{}','sub EVENT_DEATH()|',3,EVENT,'');
    addcommand('quest::say()','quest::say("");',1,COMMAND,'');
    addcommand('quest::addskill()','quest::addskill(,);',1,COMMAND,'');
    addcommand('quest::break()','quest::break();',1,COMMAND,'');
    addcommand('quest::castspell()','quest::castspell(,$id);',1,COMMAND,'');
    addcommand('quest::depop()','quest::depop();',1,COMMAND,'');
    addcommand('quest::doanim()','quest::doanim();',1,COMMAND,'');
    addcommand('quest::echo()','quest::echo("");',1,COMMAND,'');
    addcommand('quest::emote()','quest::emote("");',1,COMMAND,'');
    addcommand('quest::exp()','quest::exp();',1,COMMAND,'');
    addcommand('quest::faction()','quest::faction();',1,COMMAND,'');
    addcommand('quest::flagmob()','quest::flagmob();',1,COMMAND,'');
    addcommand('quest::flagnpc()','quest::flagnpc();',1,COMMAND,'');
    addcommand('quest::follow()','quest::follow();',1,COMMAND,'');
    addcommand('quest::givecash()','quest::givecash();',1,COMMAND,'');
    addcommand('quest::gmmove()','quest::gmmove();',1,COMMAND,'');
    addcommand('quest::linkitem()','quest::linkitem();',1,COMMAND,'');
    addcommand('quest::level()','quest::level();',1,COMMAND,'');
    addcommand('quest::me()','quest::me("");',1,COMMAND,'');
    addcommand('quest::movegroup()','quest::movegroup();',1,COMMAND,'');
    addcommand('quest::movenpc()','quest::movenpc();',1,COMMAND,'');
    addcommand('quest::pvp()','quest::pvp("");',1,COMMAND,'');
    addcommand('quest::rain()','quest::rain();',1,COMMAND,'');
    addcommand('quest::rebind()','quest::rebind();',1,COMMAND,'');
    addcommand('quest::snow()','quest::snow();',1,COMMAND,'');
    addcommand('quest::setallskill()','quest::setallskill();',1,COMMAND,'');
    addcommand('quest::setguild()','quest::setguild();',1,COMMAND,'');
    addcommand('quest::setsky()','quest::setsky();',1,COMMAND,'');
    addcommand('quest::settarget()','quest::settarget();',1,COMMAND,'');
    addcommand('quest::settime()','quest::settime();',1,COMMAND,'');
    addcommand('quest::sfollow()','quest::sfollow();',1,COMMAND,'');
    addcommand('quest::settarget()','quest::settarget();',1,COMMAND,'');
    addcommand('quest::shout()','quest::shout("");',1,COMMAND,'');
    addcommand('quest::spawn()','quest::spawn(,,,,,);',1,COMMAND,'');
    addcommand('quest::summonitem()','quest::summonitem();',1,COMMAND,'');
    addcommand('quest::wait()','quest::wait();',1,COMMAND,'');
    addcommand('$text','$text',1,IDENTIFIER,'');
    addcommand('$class','$class',1,IDENTIFIER,'');
//    addcommand('$day','$day',1,IDENTIFIER,'');
    addcommand('$faction','$faction',1,IDENTIFIER,'');
//    addcommand('$faction_name','$faction_name',1,IDENTIFIER,'');
//    addcommand('$item1','$item1',1,IDENTIFIER,'');
//    addcommand('$item2','$item2',1,IDENTIFIER,'');
//    addcommand('$item3','$item3',1,IDENTIFIER,'');
//    addcommand('$item4','$item4',1,IDENTIFIER,'');
    addcommand('$mlevel','$mlevel',1,IDENTIFIER,'');
    addcommand('$mobid','$mobid',1,IDENTIFIER,'');
    addcommand('$name','$name',1,IDENTIFIER,'');
//    addcommand('$npc_status','$npc_status',1,IDENTIFIER,'');
    addcommand('$race','$race',1,IDENTIFIER,'');
//    addcommand('$random','$random',1,IDENTIFIER,'');
   addcommand('$status','$status',1,IDENTIFIER,'');
//   addcommand('$time','$time',1,IDENTIFIER,'');
//    addcommand('$uguildrank','$uguildrank',1,IDENTIFIER,'');
    addcommand('$uguildid','$uguildid',1,IDENTIFIER,'');
    addcommand('$ulevel','$ulevel',1,IDENTIFIER,'');
    addcommand('$userid','$userid',1,IDENTIFIER,'');
    addcommand('$zoneln','$zoneln',1,IDENTIFIER,'');
//    addcommand('$zonesky','$zonesky',1,IDENTIFIER,'');
    addcommand('$zonesn','$zonesn',1,IDENTIFIER,'');