macro 巨集 之 （傳送服務生意）

automacro Start {
console /Your Coordinates/
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 "沒石頭了" 2 0 9527
stop
:OK
do chat create "聊天室名稱" 2 0 9527
# 自行修改聊天室內容
do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
console /Requests a Deal/
inventory "藍色魔力礦石" > 0
call {
do deal
pause 15
do deal no
}
}
automacro Dealb {
console /added Item to Deal/
call {
do deal no
}
}
automacro Dealc {
console /added (.*) z to Deal/
call {
$a = $.lastMatch1
if ($a = 1,100) goto OK
if ($a = 1,200) goto OK
if ($a = 1,000) goto OK
if ($a = 1,300) goto OK
# 自行修改金額
do deal no
stop
:OK
pause 1
do deal
pause 1
do deal
pause 10
do deal no
}
}
automacro Warp {
console /You gained (.*) zeny/
exclusive 1
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 == "1,200") goto A
#if ($a == "1,300") goto B
#if ($a == "1,000") goto C
do warp alberta_in
# 傳送點一
goto End
:A
do warp ouyang
# 傳送點二
goto End
:B
do warp mosk_fild02
# 傳送點三
goto End
:C
do warp lhz_fild01
# 傳送點四
:End
pause 3
if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
call Chat
}
}