關於傳鎮外掛

可以幫我看看怎麼了嗎...？
他的問題所在是交易好後不會關掉聊天室.放傳鎮.在開聊天是
automacro a {

        console /戥。汏/

        call {

                if (@invamount(藍色魔力礦石) == 0) goto qk

                                #當藍色魔力礦石=0時qk=   =

                pause 1

                do chat create "朱456石波457優配458火洞459" 2 0 787878

                                #a-1 b-2 c-3 d-4 = 聊天室名稱

                pause 1                do sit

                stop

        :qk 

                do c QK

                do sit

                stop

        }



}

automacro b {

        console /(.*) ((.*)) 向您要求一個交易/

        call {

                do deal

                pause 15

                                #15秒內不動作取消交易

                do deal no

                do sit


                stop

        }

}

        

automacro c {

        console /(.*) 加入物品以交易: (.*)/

        call {

                                #加入物品取消交易

                do deal no

                stop

     }

}



automacro d {

        console /(.*) 加入 (.*) z 以交易/

        call {
        call {

        $a = $.lastMatch2

        if ($a = 1) goto bb

        if ($a = 2) goto bb

        if ($a = 3) goto bb

        if ($a = 4) goto bb

                #$a = ".*" = 傳陣金額

        pause 1

                #當金額!=你販賣的金額取消交易

        do deal no

        stop

:bb

        pause 1

        do deal

        pause 1

        do deal

                #輸入金額10秒內未完成交易者取消交易

        pause 10        do deal no

        stop

        }

}




automacro e {                                

        console /您獲得了 (.*) zeny/

        call {

                do chat leave

                $a = $.lastMatch1

                if ($a = 1) goto a1

                if ($a = 2) goto b2

                if ($a = 3) goto c3

                if ($a = 4) goto d4

                                #$a = ".*" = 傳陣金額

                        :a1

                                call aa1

                                                                #執行macro aa1

                                stop

                        :b2        
                                call bb2

                                stop

                        :c3

                                call cc3

                                stop

                        :d4

                                call dd4

                                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 a

                #a = 地圖名稱

        pause 1

        $aa2 = @invamount(藍色魔力礦石)

                #施放傳送之陣"後"的藍色魔力礦石數量

        if ($aa1 == $aa2) goto ax

                #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax

        do c a

        stop
        :ax

        pause 1

        do c 傳送失敗

        do c 再來一次

        call axx

                #執行macro axx

        stop

        }


}



macro axx {

        call aa1

                #執行macro aa1}



#以下類推..



macro bb2 {

        $bb1 = @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 b

                #b = 地圖名稱

        pause 1

        $bb2 = @invamount(藍色魔力礦石)

        if ($bb1 == $bb2) goto bx

        do c b

        stop

        :bx

        pause 1

        do c 傳送失敗

        do c 再來一次

        call bxx

        stop

        }



}



macro bb2 {

        $bb1 = @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 b

                #b = 地圖名稱

        pause 1

        $bb2 = @invamount(藍色魔力礦石)

        if ($bb1 == $bb2) goto bx

        do c b

        stop

        :bx

        pause 1

        do c 傳送失敗

        do c 再來一次

        call bxx

        stop

        }



}



macro bxx {

        call bb2

}


macro cc3 {

        $cc1 = @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 c

                #c = 地圖名稱

        pause 1

        $cc2 = @invamount(藍色魔力礦石)

        if (cc1 == cc2) goto cx

        do c c

        stop

        :cx

        pause 1

        do c 傳送失敗

        do c 再來一次

        call cxx

        stop
        }



}



macro cxx {

        call cc3

}



macro dd4 {

        $dd1 = @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 d
                #d = 地圖名稱

        pause 1

        $cc2 = @invamount(藍色魔力礦石)

        if ($dd1 == $cc2) goto dx

        do c d

        stop

        :dx

        pause 1

        do c 傳送失敗

        do c 再來一次

        call dxx

        stop

        }



}



macro dxx {

        call dd4

}



automacro g {

        console /You 已開啟傳送之陣在 \((.*), (.*)\)/

        call {
                do c 滾

                if (@invamount(藍色魔力礦石) == 0) goto qk

                pause 1

                do chat create "a-1 b-2 c-3 d-4" 2 0 787878

                pause 1

                do sit

        :qk 

                do c QK

                do sit

                stop

        }

}