automacro Start {
console /您現在已在遊戲中/
exclusive 1
call {
pause 3
do conf ignoreAll 1
call Chat
}
}
macro Chat {
do sit
do look 4
if (@invamount(藍色魔力礦石) > 0) goto OK
do chat create "石頭沒了○o○" 2 0 9527
stop
:OK
do chat create "朱諾3100/古城3200/拉赫3300/毀葛3400/ 自點交易" 2 0 9527
# 自行修改聊天室內容
do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
release Deala
}
automacro Deala {
console /(.*) ((.*)) 向您要求一個交易/
call {
do deal
pause 15
#15秒內不動作取消交易
do deal no
stop
}
}
automacro Dealb {
console /(.*) 加入物品以交易: (.*)/
call {
#加入物品取消交易
do deal no
stop
}
}
automacro Dealc {
console /(.*) 加入 (.*) z 以交易/
call {
$a = $.lastMatch2
$b = $.lastMatch2
$c = $.lastMatch2
$d = $.lastMatch2
if ($a = 3,100) goto bb
if ($b = 3,200) goto bb
if ($c = 3,300) goto bb
if ($d = 3,400) goto bb
#$a = ".*" = 傳陣金額
#$b = ".*" = 傳陣金額
#$c = ".*" = 傳陣金額
#$d = ".*" = 傳陣金額
pause 1
#當金額!=你販賣的金額取消交易
do deal no
stop
:OK
pause 1
do deal
pause 1
do deal
pause 10
do deal no
}
}
automacro Warp {
console /您 獲得 (.*) zeny./
call {
do chat leave
$a = $.lastMatch1
if ($a = 3,100) goto a1
if ($b = 3,200) goto b2
if ($c = 3,300) goto c3
if ($d = 3,400) goto d4
#$a = ".*" = 傳陣金額
call {
$b = @invamount(藍色魔力礦石)
do chat leave
:Top
$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 2
if ($a == "3,100") goto A
if ($a == "3,200") goto B
if ($a == "3,300") goto C
if ($a == "3,400") goto D
# 傳送點一
:A
do warp yuno
goto End
# 傳送點二
:B
do warp glast_01
goto End
# 傳送點三
:C
do warp rachel
goto End
# 傳送點四
:D
do warp hugel
goto End
:End
pause 3
if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
do c 傳陣已開,若看不到或進不去,請先"重登",謝謝^^
call Chat
}
}
automacro Dealno {
console /交易已取消|Deal Cancelled/
call {
release Deala
}
} |