傳陣巨集

如標題

我需要小服傳陣的巨集!!

要能用!!

拜託幫幫忙..................................

我記得好像有人發過歐!!!!    你去看看吧~~~~~~~~~~~

別人發的不行呀......

哪位大大 可以用的
拜託幫幫忙
高額懸賞!!

為啥都沒人肯幫

幫忙一下啦..

拜託幫幫忙...

求求妳們

拜託

這個很多人發過了!
多爬爬文吧~

automacro a {
        console /Your Coordinates/
        exclusive 1
        call {
        if (@invamount(Blue_Gemstone) == 0) goto qk
        pause 3
        do look 4
        do deal no
        do chat create "火洞1萬.炎波2萬.吉分工會地3萬" 2 0 4528
        #a-1 b-2 c-3 d-4 = 聊天室名稱
        pause 1
        do sit
        release all
        stop
        :ok
        do sit
        stop
        do chat create "沒石頭了" 2 0 4528
        }
}

automacro b {
        console /Requests a Deal/
        run-once 1
        call {
        do deal
        pause 15
        #15秒內不動作取消交易
        do deal no
        }
}

automacro c {
        console /added Item to Deal/
        call {
        do deal
        #加入物品取消交易
        }
}

automacro d {
        console /added (.*) z to Deal/
        run-once 1
        call {
        $a = $.lastMatch2
        if ($a = 1) goto bb
        if ($a = 2) goto bb
        if ($a = 3) goto bb
        #$a = ".*" = 傳陣金額
        pause 1
        do deal no
        #當金額!=你販賣的金額取消交易
        stop
        :bb
        pause 1
        do deal
        pause 1
        do deal
        pause 10
        do deal no
        #輸入金額10秒內未完成交易者取消交易
        }
}

automacro f {
        console /You gained (.*) zeny/
        run-once 1
        call {
        pause 1
        do chat leave
        $a = $.lastMatch1
        if ($a = 1) goto a1
        if ($a = 2) goto b2
        if ($a = 3) goto c3
        #$a = ".*" = 傳陣金額
        :a1
        call aa1
        #執行macro aa1
        :a1
        call aa1
        stop
        :b2
        call bb2
        stop
        :c3
        call cc3
        }
}

automacro e {
        console /交易已取消/
        call {
        release all
        }
}

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 yuno_fild03
        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c 謝謝你的使用（沒謝謝惡魔的話）去火洞吃土吧！∼∼∼
        call start
        stop
        :ax
        pause 1
        call axx
        #執行macro axx
}
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 ve_fild04
        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c 謝謝你的使用（沒謝謝惡魔的話）去炎波吃便便吧！∼∼∼
        call start
        stop
        :ax
        pause 1
        call bxx
}
macro bxx {
        call bb2
}

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_fild13
        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c 打城加油喔∼∼殺殺殺∼∼∼∼
        call start
        stop
        :ax
        pause 1
        call cxx
}
macro cxx {
        call cc3
}

macro start {
        if (@invamount(藍色魔力礦石) == 0) goto qk
        pause 3
        do look 4
        do deal no
        do chat create "火洞1萬.炎波2萬.石波3萬" 2 0 4528
        #a-1 b-2 c-3 d-4 = 聊天室名稱
        pause 1
        do sit
        release all
        stop
        :qk
        do sit
        stop
}