先祝大家新年快乐
我很久没放巨集了
这次在作品里选了半天，终于挑了一个比较有用并且也不太破坏平衡的巨集

以前的加BUFF巨集，都只能固定加一套BUFF
比如12 就是天赐和加速。SL就是圣典
我稍微改进了这个机制，使得喊话的人能根据实际需求，方便的要求自由组合BUFF组合。
比如1对应天赐，2对应加速，3对应霸邪，4对应圣典
喊1就是天赐，喊23就是加速和霸邪，喊124就是天赐 加速 圣典
而且使用者可以很方便的添加BUFF~~
我会做出演示

automacro manualbuff {
pubm /^[12s]+$/i, 9
exclusive 1
call {
$n = @player ($.lastpub)
$gname = @eval (exists $::players{$::playersID[$n]}->{guild} ? $::players{$::playersID[$n]}->{guild}{name} : 'null')
$pname = $.lastpub
if ($pname == ...) goto ok
if ($gname == ...) goto ok
stop
:ok
$sid = sid("$.lastpubMsg")
$i = 2
while ($i <= @eval (@arg ("$sid",1) + 1)) as buffloop
do sp @arg ("$sid",$i) $n
pause 1.5
$i++
end buffloop
do sit
stop
}
}
sub sid {
my ($s) = @_;
my $j = 0;
my $i = 0;
my @des = qw(1 2 s);
#1 2 s 对应的就是口令
my @id = qw(34 29 2515);
#34 29 2515 就是与口令对应的技能ID，记住要和上面的口令顺序对应
my @slist;
for ($i=0;$i<@des;$i++) {
if ($des[$i] =~ /[$s]/i) {
push @slist, $id[$i];
$j++;
}
}
unshift (@slist,$j);
my $tmp = join(" ",@slist);
if($j == 0) {
return 0;
}
return $tmp;
}

如果还要添加新的BUFF组合
只要修改
my @des = qw();
和
my @id = qw();
里的内容
@des里需要写的是对应口号 @id里需要写的是和口号对应的技能ID
比如
my @des = qw(1 2 3 SL ++ abc);
my @id = qw(34 29 27 2515 2516 29);

[有效] http://pan.baidu.com/share/link?shareid=300348&uk=1644977055
度娘盘链接

忘记了这里也要改 改成你设置的口号
pubm /^[12s]+$/i, 9
比如你的口号
是my @des = qw(1 2 3 SL ++ abc);
那么要改成
pubm /^[123(SL)(++)(abc)]+$/i, 9
单个字符直接添加，多个字符组成的要在外面加括号

ct酱也是，新年快乐~

可不可以解释一下上面权限该怎么改？

if ($pname == k8876) goto ok
#许可的玩家名字
if ($gname == 仙境传说) goto ok
#许可的公会名字

有几个赋值不懂如何使用，有机会要请教下