(求)傳送巨集高手

要如何加上客人交易後 幫客人加速天賜
求祥解
已爬文找不到相關主題

#################
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 0000
  stop
:OK
  do chat create "中1千/古1千5/斐1千2" 2 0 0000　
# 自行修改聊天室內容
  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 = 9,00) goto OK　
if ($a = 1,500) goto OK　
if ($a = 1,200) goto OK　
if ($a = 1,000) 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,500") goto A　
if ($a == "1,200") goto B　
if ($a == "1,000") goto C　
  do warp izlude
# 傳送點一
  goto End
:A
  do warp glast_01
# 傳送點二
  goto End
:B
  do warp payon
# 傳送點三
  goto End
:C
  do warp prontera　
# 傳送點四
:End
  pause 3
if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
  do c 謝謝^^
  call Chat
}