小服傳陣巨集問題

這是我在爬文中找到的automacro a {
        console /您現在已在遊戲中/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto qk
                                #當藍色魔力礦石=0時qk=   =
  stand
                pause 3
               do chat create "石波1101/古城1102/岩波1103 請自行交易" 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 = 1,101) goto bb
        if ($a = 1,102) goto bb
        if ($a = 1,103) 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 = 1,101) goto a1
                if ($a = 1,102) goto b2
                if ($a = 1,103) goto c3

                                #$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 = 1,101) goto a1
                if ($a = 1,102) goto b2
                if ($a = 1,103) goto c3
   :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 ve_fild07
                #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 ve_fild03
                #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 start {
$asd = 1
do deal no
pause 1
do chat create "石波1101/古城1102/岩波1103 請自行交易" 2 0 4528

pause 1
do sit
release b
stop



有對巨集比較了解的大大
幫我改上面的指令
我要改成 傳 朱諾 普龍 夢羅克 這3ㄍ為範例 該怎們改
我試了好久都失敗  麻煩各位摟^^

#

automacro Start {
  console /您現在已在遊戲中/
  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 "拉赫9000 火洞8000 古城7000 犬妖6000" 2 0 0880
# 自行修改聊天室內容               
      do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
  console /(.*) ((.*)) 向您要求一個交易/
  inventory "藍色魔力礦石" > 0
  call {
  do deal
  pause 15
  do deal no
  }
}
automacro Dealb {
  console /(.*) 加入物品以交易: (.*)/
  call {
  do deal no
  }
}
automacro Dealc {
  console /(.*) 加入 (.*) z 以交易/
  call {
  $a = $.lastMatch2
  if ($a = 9,000) goto OK
  if ($a = 8,000) goto OK
  if ($a = 7,000) goto OK
  if ($a = 6,000) goto OK
# 自行修改金額↑
      do deal no
      stop
  :OK
      pause 1
      do deal
      pause 1
      do deal
      pause 10
      do deal no
    stop
  }
}


automacro Warp {
  console /您 獲得 (.*) 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 == "8,000") goto A
  if ($a == "7,000") goto B
  if ($a == "6,000") goto C
#地1個船點價錢不打入，從第2個傳點價錢打入即可!
      do warp rachel
    do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
      # 傳送點一
      goto End
  :A
      do warp yuno_fild03
    do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點二
      goto End
  :B
      do warp glast_01
    do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點三
      goto End
  :C
      do warp ra_fild05
    do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點四
  :End
      pause 3
  if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
      call Chat
  }
}