請問有關於巨集的deal 急 拜託各位大大教導一下

我自己研究了一下傳陣巨集
可是每次我開都會出現這兩行紅字
Error in function 'deal' 〈deal a player〉
There is no incoming/current dael to cancel
而且我的沒藍石了也不會自動休息
又會出現
b.call error error in 0 : syntax error
而且我的dd4似乎不會執行

貼上我的巨集給大家看一下
這是我+別人的修改出來的
拜託了  真的搞不太董


automacro a {
        console /Your Coordinates/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto qk
                                #當藍色魔力礦石=0時qk=   =
                pause 3
               do chat create "吉芬1101/古城1102/東歐1103中央1104 " 2 0 4528
                                #a-1 b-2 c-3 d-4 = 聊天室名稱
                pause 1
                do sit
                stop
        :qk
              
                do sit
                stop
        }
}
automacro b {
        console /(.*) ((.*)) Requests a Deal/  
        call {
  
               
                run-once 1
                do deal  
                pause 15
  
                                #15秒內不動作取消交易
  
                do deal no
                stop  
             }
        
}
        
automacro c {
        console /(.*) added Item to Deal: (.*)/
        call {
                                #加入物品取消交易
                do deal no
                stop
     }
}
automacro d {
        console /(.*) added (.*) z 以交易/
        call {
        $a = $.lastMatch2
        if ($a = 1,101) goto bb
        if ($a = 1,102) goto bb
        if ($a = 1,103) goto bb     
        if ($a = 1,104) 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 /You gained (.*) zeny/
        call {  
  $asd = 0  
  pause 1
                do chat leave
                $a = $.lastMatch1
                if ($a = 1,101) goto a1
                if ($a = 1,102) goto b2
                if ($a = 1,103) goto c3
                if ($a = 1,103) goto d4
                                #$a = ".*" = 傳陣金額
                        :a1
                                call aa1
                                                                #執行macro aa1
                                stop
                        :b2        
                                call bb2
                                stop
                        :c3
                                call cc3
                                stop
                        :d4     
                                call dd4
                                stop
           }
}
automacro qwqw {
        console /Deal Cancelled/  
call {
release b

}
}
automacro qwer {
        console /Blue Gem Needed/  
call {
pause 3
               do chat create " 沒藍礦了 " 2 0 4528
                                #a-1 b-2 c-3 d-4 = 聊天室名稱
                pause 1
                do sit
                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 geffen
                #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", 2)
        $x0 = @eval($x - @rand(1,3))
        $y0 = @eval($y - @rand(1,3))
        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 gef_fild10
                #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", 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
call start   
stop
        :ax
        pause 1      
        call dxx
                #執行macro axx
              
        stop
        
}
macro dxx {
call dd4
      #  call dd4
                #執行macro aa1
}
macro start {
$asd = 1
release b
do deal no
pause 1
do chat create "吉芬1101/古城1102/東歐1103中央1104" 2 0 4528
pause 1
do sit
stop
}

自推一下  拜託各位大大幫忙想想辦法~"~
弄很久可是不太懂