分享小弟的巨集幫忙討論八

以下是小弟的巨集 小弟爬文 自行修改 現在 會 開聊天 傳正 都不是問題
但試問題在 傳完正後就不再 開聊天了 我最後面是寫 call Chat 但是他不會從新執行 @@
請客位大哥大姊幫忙一下八 幫忙看看問題在哪 謝謝 要是我先修正好也會貼出來分享
automacro Start {
    console /Your Coordinates/
    exclusive 1
    call {
    pause 3
    do conf ignoreAll 1
    call Chat
    }
}
macro Chat {
    do sit
    do look 8
    if (@invamount(Blue_Gemstone) > 0) goto OK
      do chat create "朱1500金2000炎2500火3000" 2 0 9527
      stop
    :OK
      do chat create "沒石頭了" 2 0 9527
# 自行修改聊天室內容
      do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
    console /Requests a Deal/
    inventory "Blue_Gemstone" > 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,500) goto mac01
    if ($a = 2,000) goto mac02
    if ($a = 2,500) goto mac03
    if ($a = 3,000) goto mac04
# 自行修改金額
      do deal no
      stop
    :mac
      pause 1
      do deal
      pause 1
      do deal
      pause 10
      do deal no
    }
}
automacro Warp {
    console /You gained (.*) zeny/
    exclusive 1
    call {
    $b = @invamount(Blue_Gemstone)
    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 mac01
    if ($a = 2,000) goto mac02
    if ($a = 2,500) goto mac03
    if ($a = 3,000) goto mac04
      stop
# 傳送點一
      :mac01
          $x = @arg("$.pos", 1)
          $y = @arg("$.pos", 2)
          $y2 = @eval($y + -1)
          do sl 27 $x $y2
          pause 2
          do warp yuno
          do c 祝您遊戲愉快
          stop

# 傳送點二
      :mac02
          $x = @arg("$.pos", 1)
          $y = @arg("$.pos", 2)
          $y2 = @eval($y + -1)
          do sl 27 $x $y2
          pause 2
          do warp lhz_fild01
          do c 祝您遊戲愉快
          stop
# 傳送點三
      :mac03
          $x = @arg("$.pos", 1)
          $y = @arg("$.pos", 2)
          $y2 = @eval($y + -1)
          do sl 27 $x $y2
          pause 2
          do warp ve_fild03
          do c 祝您遊戲愉快
          stop
# 傳送點四
      :mac04
          $x = @arg("$.pos", 1)
          $y = @arg("$.pos", 2)
          $y2 = @eval($y + -1)
          do sl 27 $x $y2
          pause 2
          do warp yuno_fild03
          do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
call chat
}
}