求救大大飛機巨集 小弟前三個點可以傳 但是第4個點卻只收錢不傳...

小弟第四個點金額輸入無誤 交易完畢 卻只會關上聊天室 並不會站起來傳
並且出現以下字:
[macro] f.call error: error in 7: error in 7: cannot find label d4
小弟巨集檔案在下面~~
有請厲害的大大幫小弟看一下哪裡出錯了


automacro a {
console /You are ●嚴禁張貼廣告● in the game/
call {
if (@invamount(藍色魔力礦石) == 0) goto qk
  #當藍色魔力礦石=0時qk=   =
stand
pause 3
do chat create "中央4000 古城4001 菲音斯4002 犬妖4003" 2 0 4528   (聊天室名稱自己改吧)
  #a-1 b-2 c-3 d-4 = 聊天室名稱
pause 1
do sit
stop
:qk
do sit
stop
}
}
automacro b {
console /(.*) ((.*)) 向您要求一個交易/
call {
do deal
pause 15
  #15秒內不動作取消交易
do deal no
stop
}
}
automacro c {
console /(.*) 加入物品以交易: (.*)/
call {
  #加入物品取消交易
do deal no
stop
}
}
automacro d {
console /(.*) 加入 (.*) z 以交易/
call {
$a = $.lastMatch2
if ($a = 4,000) goto bb
if ($a = 4,001) goto bb
if ($a = 4,002) goto bb
if ($a = 4,003) goto bb
#$a = ".*" = 傳陣金額
pause 1
#當金額!=你販賣的金額取消交易
do deal no
stop
:bb
pause 1
do deal
pause 1
do deal
pause 10
do deal no

#輸入金額10秒內未完成交易者取消交易
stop
}
}
automacro f {     
console /獲得 (.*) zeny/
call {
$asd = 0
pause 1
do chat leave
$a = $.lastMatch1
if ($a = 4,000) goto a1
if ($a = 4,001) goto b2
if ($a = 4,002) goto c3
if ($a = 4,003) goto d4
  #$a = ".*" = 傳陣金額
:a1
  call aa1
      #執行macro aa1
  stop
:b2   
  call bb2
  stop
:c3
  call cc3
  stop
}
}

automacro k {
console /LXCollect ((.*)) 向您要求一個交易/
call {
if ($asd = 0) goto asa
do deal no
stop
:asa
if ($a = 4,000) goto a1
if ($a = 4,001) goto b2
if ($a = 4,002) goto c3
if ($a = 4,003) goto d4
:a1
  call aa1
      #執行macro aa1
  stop
:b2   
  call bb2
  stop
:c3
  call cc3
  stop
}
}
macro aa1 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$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 1
do warp prontera
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
#當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
call start
stop
:ax
pause 1   
call axx
#執行macro axx
stop
}
}
macro axx {
call aa1
#執行macro aa1
}
macro bb2 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 1)
$x0 = @eval($x - @rand(1,2))
$y0 = @eval($y - @rand(1,2))
do sl 27 $x0 $y0
pause 1
do warp glast_01
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
#當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
call start
stop
:ax
pause 1   
call bxx
#執行macro axx
stop
}
}
macro bxx {
call bb2
#執行macro aa1
}
macro cc3 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$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 1
do warp ve_fild07
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
call start
stop
:ax
pause 1   
call cxx
#執行macro axx
stop
}
}
macro cxx {
call cc3
# call cc3
#執行macro aa1
}
macro dd4 {
$aa1 = @invamount(藍色魔力礦石)
#施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 3)
$x0 = @eval($x - @rand(2,2))
$y0 = @eval($y - @rand(2,2))
do sl 27 $x0 $y0
pause 1
do warp ra_fild05
#a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
#施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
call start
stop
:ax
pause 1   
call dxx
#執行macro axx
stop
}
}
macro dxx {
call dd4
# call dd4
#執行macro aa1
}
macro start {
$asd = 1
do deal no
pause 1
do chat create "中央4000 古城4001 菲音斯4002 犬妖4003" 2 0 4528
pause 1
do sit
stop
}