各位大哥大姊小弟有困難想要請你們幫忙

各位大哥大姊小弟爬了很多巨集文章自己慢慢修改
但始終弄不好從不會開聊天不會交易都慢慢上手
但是交易玩了他還是一樣坐在地上不會幫放傳陣弄了很久還是弄不好
↓以下是交易完會出現的畫面

[deal] XXX (level 95) Requests a Deal
[deal] Type 'deal' to start dealing, or 'deal no' to deny the deal.
[deal] Engaged Deal with XXX
[deal] XXX added 1,500 z to Deal
[macro] [macro] automacro Dealc triggered.
[deal] You finalized the Deal
[deal] XXX finalized the Deal
[deal] You accepted the final Deal
[info] You 獲得 1,500 zeny.
[deal] Deal Complete
[console] Error in function 'deal' (Deal a Player)
There is no deal to accept
[console] Error in function 'deal' (Deal a Player)
There is no incoming/current deal to cancel

以及附上小弟自己的腳本設定請大哥大姊幫忙看一下小弟哪邊有問題
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 OK
      if ($a = 2,000) goto OK
      if ($a = 2,500) goto OK
      if ($a = 3,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(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 == "2,000") goto A
      if ($a == "2,500") goto B
      if ($a == "3,000") goto C
          do warp yuno
# 傳送點一
          goto End
      :A
          do warp lhz_fild01
# 傳送點二
          goto End
      :B
          do warp ve_fild03
# 傳送點三
          goto End
      :C
          do warp yuno_fild03
# 傳送點四
      :End
          pause 3
      if ($b == @invamount(Blue_Gemstone)) goto Top
# 使用傳陣藍礦未減少回到Top
          do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
          call Chat
      }
}