automacro a {
console /您現在已在遊戲中/
call {
pause 5
if (@invamount(藍色魔力礦石) == 0) goto qk
#當藍色魔力礦石=0時qk= =
pause 2
do chat create "石波3000犬妖2900古城2500" 2 0 1234
#a-1 b-2 c-3 d-4 = 聊天室名稱
do deal no
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 = 3,000) goto bb
if ($a = 2,900) goto bb
if ($a = 2,500) goto bb
if ($a = 1,000) goto bb
#$a = ".*" = 傳陣金額
pause 2
#當金額!=你販賣的金額取消交易
do deal no
stop
:bb
pause 1
do deal
pause 1
do deal
#輸入金額10秒內未完成交易者取消交易
pause 10
do deal no
stop
}
}
automacro e {
console /您獲得了 (.*) zeny/
call {
do chat leave
$a = $.lastMatch1
if ($a = 3,000) goto a1
if ($a = 2,900) goto b2
if ($a = 2,500) goto c3
if ($a = 1,000) goto d4
#$a = ".*" = 傳陣金額
:a1
call aa1
#執行macro aa1
stop
:b2
call bb2
stop
:c3
call cc3
stop
:d4
call dd4
stop
}
}
macro aa1 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
do sl 27 35 49
#do sl 27 之後 ** ** 是傳點固定座標防止找不到道點可以傳 請上線自行抓取
pause 1
do warp veins
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
#當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
call start
stop
:ax
pause 1
do c 傳送失敗
do c 再來一次
call axx
#執行macro axx
stop
}
}
macro axx {
call aa1
#執行macro aa1
}
#以下類推..
macro bb2 {
$bb1 = @invamount(藍色魔力礦石)
do sl 27 35 48
#do sl 27 之後 ** ** 是傳點固定座標防止找不到道點可以傳 請上線自行抓取
pause 1
do warp ra_fild05
#b = 地圖名稱
pause 1
$bb2 = @invamount(藍色魔力礦石)
if ($bb1 == $bb2) goto bx
call start
stop
:bx
pause 1
do c 傳送失敗
do c 再來一次
call bxx
stop
}
}
macro bxx {
call bb2
}
macro cc3 {
$cc1 = @invamount(藍色魔力礦石)
do sl 27 35 47
#do sl 27 之後 ** ** 是傳點固定座標防止找不到道點可以傳 請上線自行抓取
pause 1
do warp glast_01
#c = 地圖名稱
pause 1
$cc2 = @invamount(藍色魔力礦石)
if (cc1 == cc2) goto cx
call start
stop
:cx
pause 1
do c 傳送失敗
do c 再來一次
call cxx
stop
}
}
macro cxx {
call cc3
}
macro dd4 {
$dd1 = @invamount(藍色魔力礦石)
do sl 27 35 49
#do sl 27 之後 ** ** 是傳點固定座標防止找不到道點可以傳 請上線自行抓取
pause 1
do warp prontera
#d = 地圖名稱
pause 1
$cc2 = @invamount(藍色魔力礦石)
if ($dd1 == $cc2) goto dx
call start
stop
:dx
pause 1
do c 傳送失敗
do c 再來一次
call dxx
stop
}
}
macro dxx {
call dd4
}
automacro g {
console /You 已開啟傳送之陣在 \((.*), (.*)\)/
call {
pause 3
if (@invamount(藍色魔力礦石) == 0) goto qk
pause 2
do chat create "石波3000犬妖2900古城2500" 2 0 1234
do deal no
pause 1
do sit
:qk
do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
do sit
stop
}
}
automacro g {
console /您正坐著./
call {
pause 5
if (@invamount(藍色魔力礦石) < 1) goto qk
pause 2
do chat create "石波3000犬妖2900古城2500" 2 0 1234
do deal no
pause 1
do sit
stop
:qk
do sit
stop
}
}
以上是小弟參考別人加上自己稍微修改後版本
原則上掛一天不會有問題
如果開太大電腦有時會LAG..就..不開聊天室了
請定期電腦重開機 |
收藏
分享
讚
幹
分享
分享
