|
}
##走迴避怪物##
automacro avoid {
# 當地圖為...時
map ama_dun03
# 當魔物為...且距離你 20 格以內時
# Notice the coma space and number 12 above? This avoid automacro only trigger if any of the monster list
# distance is equal or less than the number given.
monster 元靈武士,蟻后,巴風特,月夜貓,皮里恩,墨蛇君,黑暗之王,死靈騎士,狂暴蟻后,烏龜將軍,RSX 0806,迷幻之王,慰勞者,代行刑者,安息者,狂暴蟻后,監視者,褐方體惡魔,黑方體惡魔,莫內,暗黑祭司,三頭龍,齊爾,闇●神射手,闇●神工匠,闇●騎士領主,闇●十字刺客,闇●神官,闇●超魔導師,達納托斯的憎恨,達納托斯的絕望,達納托斯的悲哀,達納托斯的苦惱,狂暴惡靈,血腥騎士,溫古力安特,劍士監護人魔物,弓箭手監護人魔物,紅貝勒斯,綠貝勒斯,巴基力 蘭特克力斯,炙燄魔,
# 間隔 5 秒
timeout 1
exclusive 1
# 打算要往反方向走幾格
# set Move to how many distance per trigger you want it to move.
set Move 25
call check
}
macro check {
[
$mon = $.lastMonster
$monID = $.lastMonsterID
$dist = $.lastMonsterDist
$monPos = $.lastMonsterPos
$map = $.map
$myPos = $.pos
$myPosX = @arg ("$myPos", 1)
$myPosY = @arg ("$myPos", 2)
$monPosX = @arg ("$monPos", 1)
$monPosY = @arg ("$monPos", 2)
$map = $.map
do eval message T("Macro Avoid: $::Macro::Data::varStack{mon} \($::Macro::Data::varStack{monID}\)\n"), "teleport"; message T("魔物距離\= $::Macro::Data::varStack{dist} \, 魔物座標\: \($::Macro::Data::varStack{monPosX},$::Macro::Data::varStack{monPosY}\) 地圖名\= $::Macro::Data::varStack{map}\n"), "teleport";
]
do as
if ($myPosX > $monPosX) goto east
if ($myPosX < $monPosX) goto west
:X0
if ($myPosY < $monPosY) goto X0south
if ($myPosY > $monPosY) goto X0north
log We have the same co-ord to the Monster
do @random ("east", "west", "south", "north") $Move
log Move Random
stop
:X0south
log Monster Loc: North X-axis0
do south $Move
log Move South
stop
:X0north
log Monster Loc: South X-axis0
do north $Move
log Move North
stop
:east
if ($myPosY < $monPosY) goto eastSouth
if ($myPosY > $monPosY) goto eastNorth
:Y0east
log Monster Loc: West Y-axis0
do east $Move
log Move East
stop
:eastSouth
log Monster Loc: NorthWest
do southeast $Move
log Move South East
stop
:eastNorth
log Monster Loc: SouthWest
do northeast $Move
log Move North East
stop
:west
if ($myPosY < $monPosY) goto westSouth
if ($myPosY > $monPosY) goto westNorth
:Y0west
log Monster Loc: East Y-axis0
do west $Move
log Move West
stop
:westSouth
log Monster Loc: NorthEast
do southwest $Move
log Move South West
stop
:westNorth
log Monster Loc: SouthEast
do northwest $Move
log Move North West
stop
}
}
#########防外掛發呆##############
automacro a {
console /您現在已在遊戲中/
call {
if (@invamount(藍色魔力礦石) == 0) goto qk
#當藍色魔力礦石=0時qk= =
stand
pause 3
do chat create "拉赫8萬優配9萬炎波9萬01 請自行交易" 2 0 4528
#a-1 b-2 c-3 d-4 = 聊天室名稱
pause 1
do sit
stop
:qk
do sit
stop
}
}
automacro b {
console /(.*) ((.*)) 向您要求一個交易/
call {
do deal
pause 15
#15秒內不動作取消交易
do deal no
stop
}
}
automacro c {
console /(.*) 加入物品以交易: (.*)/
call {
#加入物品取消交易
do deal no
stop
}
}
automacro d {
console /(.*) 加入 (.*) z 以交易/
call {
$a = $.lastMatch2
if ($a = 80,000) goto bb
if ($a = 90,000) goto bb
if ($a = 90,001) goto bb
#$a = ".*" = 傳陣金額
pause 1
#當金額!=你販賣的金額取消交易
do deal no
stop
:bb
pause 1
do deal
pause 1
do deal
pause 10
do deal no
#輸入金額10秒內未完成交易者取消交易
stop
}
}
automacro f {
console /您獲得了 (.*) zeny/
call {
$asd = 0
pause 1
do chat leave
$a = $.lastMatch1
if ($a = 80,000) goto a1
if ($a = 90,000) goto b2
if ($a = 90,001) goto c3
#$a = ".*" = 傳陣金額
:a1
call aa1
#執行macro aa1
stop
:b2
call bb2
stop
:c3
call cc3
stop
}
}
automacro k {
console /LXCollect ((.*)) 向您要求一個交易/
call {
if ($asd = 0) goto asa
do deal no
stop
:asa
if ($a = 80,000) goto a1
if ($a = 90,000) goto b2
if ($a = 90,001) goto c3
:a1
call aa1
#執行macro aa1
stop
:b2
call bb2
stop
:c3
call cc3
stop
}
}
macro aa1 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 $x0 $y0
pause 1
do warp rachel
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
#當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
call start
stop
:ax
pause 1
call axx
#執行macro axx
stop
}
}
macro axx {
call aa1
#執行macro aa1
}
macro bb2 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 $x0 $y0
pause 1
do warp yuno_fild11
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
#當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
call start
stop
:ax
pause 1
call bxx
#執行macro axx
stop
}
}
macro bxx {
call bb2
#執行macro aa1
}
macro cc3 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 $x0 $y0
pause 1
do warp ve_fild03
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
call start
stop
:ax
pause 1
call cxx
#執行macro axx
stop
}
}
macro cxx {
call cc3
# call cc3
#執行macro aa1
}
macro start {
$asd = 1
do deal no
pause 1
do chat create "拉赫8萬優配9萬炎波9萬01" 2 0 4528
pause 1
do sit
stop
}
|
收藏
分享
讚
幹
分享
分享
