level 7
![[Kiss]](/static/emoticons/Kiss.png)
level 1
level 7
建议开始的时候就，把$guild里边取成说话的玩家名字就好了
if ("$guild" == "舞") goto status
if ("$guild" == "@阿曼達@") goto status
if ("$guild" == "Rising_Sun") goto status
if ("$guild" == "Baby-Kingdom") goto status
if ("$guild" == "°Real.Madrid°") goto status
if ("$guild" == "恋海-天下无双") goto status
if ("$guild" == "心°系ξ每一刻") goto status
if ("$guild" == "☆皇家马德里☆") goto status
读文件我在试。写好了我发出来一起看看
2012年10月30日 11点10分
7
if ("$guild" == "舞") goto status
if ("$guild" == "@阿曼達@") goto status
if ("$guild" == "Rising_Sun") goto status
if ("$guild" == "Baby-Kingdom") goto status
if ("$guild" == "°Real.Madrid°") goto status
if ("$guild" == "恋海-天下无双") goto status
if ("$guild" == "心°系ξ每一刻") goto status
if ("$guild" == "☆皇家马德里☆") goto status
读文件我在试。写好了我发出来一起看看
我只是想用一个函数就表示出来 公会名单和人员名单专门放在专门的函数里，这样方便以后管理和添加新的名单
2012年10月31日 03点10分
支持数组的话，用循环遍历一下数组这种最简单的方法就可以实现了，两个数组专门存放名单~~ 但是貌似不支持啊
2012年10月31日 03点10分
回复 kevinct :可以@array("sdf","wrw","afaww") 取值是$array[0] $array[1] $array[$i]
2012年10月31日 03点10分
回复 kevinct :我考虑的是，直接从txt文件中读取玩家列表。用open(FILE,"playerlist.txt"); 现在还有点点，问题，弄好了我发出来我们试试
2012年10月31日 03点10分
level 4
automacro pubmguild {
console /\[(距离|dist)=(.*)\] (.*) \((\d+)\): (鸟|套|中|斐)/
exclusive 1
call {
$i = $.lastMatch4
if ($.lastMatch2 > 9) goto stop
$g = @eval (exists $::players{$::playersID[$i]}->{guild} ? $::players{$::playersID[$i]}->{guild}{name} : 'null')
if ("$.lastMatch3" == "黑名单人物") goto stop
#有需要可以自己填入人名扩充，太多可能会影响效率。
#相对的改成goto ok，就可以没工会使用。
if ("$g" == "精灵．王道．风云再起") goto ok
if ("$g" == "[暴力美学联盟皇家学院]") goto ok
if ("$g" == ":+:乱舞-ＳhowＴime:+") goto ok
stop
:ok
if ($.lastMatch5 == "鸟") goto mac01
if ($.lastMatch5 == "套") goto mac02
if ($.lastMatch5 == "中") goto mac03
if ($.lastMatch5 == "斐") goto mac04
stop :mac01
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$y2 = @eval($y + -1)
do sl 27 $x $y2
pause 2
do warp prontera
do c ↓租鸟↓
stop
:mac02
do sp 361 $i 5
pause 1
stop
:mac03
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x2 = @eval($x + -1)
do sl 27 $x2 $y
pause 2
do warp prt_gld
do c ←中55
stop
:mac04
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x2 = @eval($x + 1)
do sl 27 $x2 $y
pause 2
do warp pay_gld
do c 红楼→
stop
:stop
stop
}
}
或高深更智能点的
do eval foreach my $_player (@{$::playersList->getItems()}) { next if $_player->{name} eq ""; next if $_player->{actorType} ne "Player"; if ($_player->{'binID'} eq "$n") {$::Macro::Data::varStack{name} = $_player->{'name'}; $::Macro::Data::varStack{job} = $_player->job; $::Macro::Data::varStack{lvl} = $_player->{'lv'}; $::Macro::Data::varStack{sex} = $::sex_lut{$_player->{'sex'}}; $::Macro::Data::varStack{dist} = sprintf("%.1f", distance($::char->{pos_to}, $_player->{pos_to})); $::Macro::Data::varStack{guild} = $_player->{guild} ? $_player->{guild}{name} : ''; $::Macro::Data::varStack{id} = $_player->{'binID'}; $::Macro::Data::varStack{status} = join (", ", keys %{$_player->{statuses}});}}
我就是不想写成这样.... 我所想做的是，专门用两个文本存放玩家ID和公会名字，巨集只需要和这两个文件做通信读取数据进行匹配即可，就不用写一长串的If了。 我刚发现op用的是perl，我以前也没学过perl，所以不知道如何实现，现在基本知道方法了
2012年11月04日 09点11分
回复 kevinct :读文件来的比较妥当我也觉得
2012年11月04日 10点11分
插件帮到你!!!你说的就是插件.... 其实openkore不止巨集的 他还有形形式式的小插件 当然你够厉害的话 自己实现一个!!!!!
2012年11月04日 16点11分
回复 皇者X风范 :你说的插件，就是用perl语言自己构造的类或者函数，但实际用不着这么复杂。直接在巨集里面构造几个函数就够用了。
2012年11月04日 18点11分
level 4