Muuss
11-12-2004, 08:55 PM
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,CO MMAND,'');
addcommand('quest::castspell()','quest::castspell( ,$id);',1,COMMAND,'');
addcommand('quest::depop()','quest::depop();',1,CO MMAND,'');
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,COMMAN D,'');
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,CO MMAND,'');
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,COMM AND,'');
addcommand('quest::rebind()','quest::rebind();',1, COMMAND,'');
addcommand('quest::snow()','quest::snow();',1,COMM AND,'');
addcommand('quest::setallskill()','quest::setallsk ill();',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::summonite m();',1,COMMAND,'');
addcommand('quest::wait()','quest::wait();',1,COMM AND,'');
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,IDENT IFIER,'');
// 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,IDENTIFIE R,'');
addcommand('$race','$race',1,IDENTIFIER,'');
// addcommand('$random','$random',1,IDENTIFIER,'');
addcommand('$status','$status',1,IDENTIFIER,'');
// addcommand('$time','$time',1,IDENTIFIER,'');
// addcommand('$uguildrank','$uguildrank',1,IDENTIFIE R,'');
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,'');
vBulletin® v3.8.11, Copyright ©2000-2024, vBulletin Solutions Inc.