賣傳陣巨集問題

小妹我本身有寫傳陣巨集

但是不太能使用

我希望有人可以幫忙寫囧

我真的是研究很久了...

有人可以幫忙寫:
1.可以傳4個傳點
2.可以跟他交易藍石(其他東西他會按取消)
3.不管多少錢都會交易(常常有人亂放價錢導致卡住)

如果測試後符合上述條件，獎金就送給你囉~

謝謝大家^_____^~~

automacro f {
    console /You 已開啟傳送之陣在 \((.*), (.*)\)/
    call {
          pause 5
          if (@invamount(藍色魔力礦石) == 0) goto qk
          pause 1
          do chat create "斐楊1000劍村1100中1200貝塔1300 請自點交易" 2 0 1234
          pause 1
          do sit
    :qk
          do c QK
          do sit
          stop
    }
}
automacro g {
        console /You are sitting/
        call {
                if (@invamount(藍色魔力礦石) < 1) goto qk
                pause 1
           do chat create "斐楊1000劍村1100中1200貝塔1300 請自點交易" 2 0 1234
                pause 1
                do sit
                stop
        :qk
                do sit
                stop
        }
}

2# y820221
這個沒辦法用的吧..
沒有可以調整價錢的地方，也沒有交易...等的指令-.-

那你試試這個巨集(符合你的3個條件
automacro a {
        console /您現在已在遊戲中/
        exclusive 1
        call {
        pause 3
        if (@invamount(藍色魔力礦石) == 0) goto qk
        do deal no
        do chat create "朱諾3000/毀葛3100/拉赫3200/企都3300 自點交易" 2 0 8888
        release all
        stop
        :qk
        do sit
        stop
        }
}

automacro b {
        console /向您要求一個交易/
        run-once 1
        call {
        do deal
        pause 15
        #15秒內不動作取消交易
        do deal no
        }
}

automacro c {
        console /加入物品以交易: (.*)/
        priority 2
        call {
        do deal no
        #加入物品取消交易
        }
}

automacro d {
        console /加入物品以交易: 藍色魔力礦石/
        priority 1
        call {
        log 允許交易藍色魔力礦石
        pause 15
        #15秒內不動作取消交易
        do deal no
        }
}

automacro e {
        console /(.*) 完成了本交易/
        run-once 1
        call {
        do deal
        pause 1
        do deal
        pause 10
        do deal no
        release all
        }
}

automacro f {
        console /您 獲得  (.*) zeny./
        exclusive 1
        run-once 1
        call {
        pause 1
        do chat leave
        $a = $.lastMatch1
        if ($a = 3,000) goto a1
        if ($a = 3,100) goto b2
        if ($a = 3,200) goto c3
        if ($a = 3,300) goto d4
        do c 交易金額錯誤,請輸入正確金額
        call start
        stop
        :a1
        call aa1
        stop
        :b2
        call bb2
        stop
        :c3
        call cc3
        stop
        :d4
        call dd4
        }
}

automacro g {
        console /交易已取消/
        call {
        do deal no
        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
        #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 hugel
        #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 rachel
        #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 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 lighthalzen
        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c [企都]請進~一路順風並祝您遊戲愉快
        call start
        stop
        :ax
        pause 1
        call dxx
}
macro dxx {
        call dd4
}

macro start {
        pause 3
        if (@invamount(藍色魔力礦石) == 0) goto qk
        do deal no
        do chat create "朱諾3000/毀葛3100/拉赫3200/企都3300 自點交易" 2 0 8888
        release all
        stop
        :qk
        do sit
        stop
}

最近想研究看看巨集
來實驗看看
謝謝分享