automacro emoguild {
console /\[(距離|dist)=(.*)\] (.*) \((\d+)\): \*(剪刀|石頭|布)\*$/
# 操作視窗出現下列表情符號時
call {
if ($.lastMatch2 < 9) goto emoguild
stop
:emoguild
$n = $.lastMatch4
# 取得發出表情的玩家
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{pos} = "$_player->{pos_to}{x}" . " $_player->{pos_to}{y}"; $::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}});}}
do p 玩家編號=$id 名子=$name 職業=$job 等級=$lvl 性別=$sex 距離=$dist 座標=$pos 公會=$guild 狀態=$status
# 取得發出表情的玩家工會
if ("$guild" == "【神戒】") goto ok
if ("$guild" == "τ浮光掠影〃") goto ok
if ("$guild" == "春夏之秋") goto ok
if ("$guild" == "剪刀石頭布加速天賜霸邪") goto ok
# 驗正 發出表情的玩家工會 和 設定輔助的工會 是否一樣
stop
:ok
if ($.lastMatch5 == "布") goto wave
if ($.lastMatch5 == "剪刀") goto peace
if ($.lastMatch5 == "石頭") goto fist
:wave
# 施展天賜
do sp 34 $.lastMatch4 10
# 施展加速
do sp 29 $.lastMatch4 10
stop
:peace
#
do sp 361 $.lastMatch4 10
:fist
#
do sp 28 $.lastMatch4 10
}
}
automacro warpPortal2 {
pm /1/
call {
if (@invamount(藍色魔力礦石) == 0) goto ●嚴禁張貼廣告●arp
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x2 = @eval($x + 2)
do sl 27 $x2 $y
pause 1
do warp alde_gld
do c 新城左上
stop
:●嚴禁張貼廣告●arp
do c 沒藍石
stop
}
}
automacro warpPortal3 {
pm /2/
call {
if (@invamount(藍色魔力礦石) == 0) goto ●嚴禁張貼廣告●arp
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$y2 = @eval($y - 2)
do sl 27 $x $y2
pause 1
do warp pay_gld
do c 斐揚右下
stop
:●嚴禁張貼廣告●arp
do c 沒藍石
stop
}
}
automacro warpPortal4 {
pm /3/
call {
if (@invamount(藍色魔力礦石) == 0) goto ●嚴禁張貼廣告●arp
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$y2 = @eval($y + 2)
do sl 27 $x $y2
pause 1
do warp prt_gld
do c 中央左上
stop
:●嚴禁張貼廣告●arp
do c 沒藍石
stop
}
}
新639 OP都偵測不到表情 密語也無法觸發傳陣 |