關於傳鎮外掛

4406899

可以幫我看看怎麼了嗎...？
他的問題所在是交易好後不會關掉聊天室.放傳鎮.在開聊天是
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

}

}

外掛聯合國

[發問] 關於傳鎮外掛