本帖最後由 手心向太陽大大分享 於 2010-6-29 00:50

製作箭使用 arrowcraft forceuse 是不會消耗 SP 的
幾個小時就一兩千筒,用一個月應該不成問題


 


###地###
automacro EAAutoM {
        inventory "地靈礦石" > 0
        macro_delay 0.01
        exclusive 1
        call {
        do arrowcraft forceuse @inventory (地靈礦石)
        }
}
automacro EAAutoC {
        inventory "地靈箭矢" >= 500
        inventory "地靈礦石" == 0
        exclusive 1
        call {
        do move @rand (12,15) @rand (130,132) payon_in01
        do talknpc 5 134 c c c c r7 c r0 c c r0 n
# 0=箭矢、1=鐵箭、2=鋼鐵箭、3=神金箭、4=火箭、5=銀箭、6=風箭、7=地箭、8=水箭、9=影箭、10=無形箭、11=鐵銹箭
        }
}
automacro EAAutoS {
        inventory "地靈礦石" == 0
        inventory "地靈箭矢" < 500
        exclusive 1
        call {
        do move @rand (175,181) @rand (110,116) payon
        do talknpc 181 104 c r1 n
        pause 3
        do storage add 地靈箭矢筒
        $a = 40
# 從倉庫取得地礦數量
        if (@storamount (地靈礦石) < 100) goto Over
# 倉庫的地礦($a)小於多少時關閉程式
                do storage get 地靈礦石 $a
                pause 2
                do storage close
                stop
        :Over
                do relog 30000
        }
}


 


 


###水###
automacro WAAutoM {
        inventory "鰓刺" > 0
        macro_delay 0.01
        exclusive 1
        call {
        do arrowcraft forceuse @inventory (鰓刺)
        }
}
automacro WAAutoC {
        inventory "水靈箭矢" >= 500
        inventory "鰓刺" == 0
        exclusive 1
        call {
        do move @rand (12,15) @rand (130,132) payon_in01
        do talknpc 5 134 c c c c r8 c r0 c c r0 n
        do talknpc 5 134 c c c c r1 c r0 c c r0 n
        }
}
automacro WAAutoS {
        inventory "鰓刺" == 0
        inventory "水靈箭矢" < 500
        exclusive 1
        call {
        do move @rand (175,181) @rand (110,116) payon
        do talknpc 181 104 c r1 n
        pause 3
        do storage add 水靈箭矢筒
        do storage add 鐵箭矢筒
        $a = 40
# 從倉庫取得鰓刺數量
        if (@storamount (鰓刺) < 50) goto Over
# 倉庫的鰓刺($a)小於多少時關閉程式
                do storage get 鰓刺 $a
                pause 2
                do storage close
                stop
        :Over
                do relog 30000
        }
}


 


買銀箭需為商人且有手推車


###銀###
automacro SIMove {
        location payon
        inventory "銀箭矢筒" == 0
        cart "銀箭矢筒" == 0
        exclusive 1
        call {
        do move @rand (12,15) @rand (130,132) payon_in01
        }
}
automacro SIAutoBC {
        location payon_in01 10 135 20 125
        inventory "銀箭矢筒" == 0
        exclusive 1
        call {
        do talknpc 15 119 b b1,20000 e
# 一次購買兩萬支,請依自己的負重調整
        do talknpc 5 134 c c c c r5 c r0 c c r0 n
        do cart add 銀箭矢筒
        }
}
automacro SIAutoS {
        inventory "銀箭矢筒" > 0
        cartweight > 7000
        exclusive 1
        call {
        do move @rand (175,181) @rand (110,116) payon
        do talknpc 181 104 c r1 n
        pause 3
        do storage add 銀箭矢筒
        do storage addfromcart 銀箭矢筒
        $a = @storamount (銀箭矢筒)
        if ($a > 2000) goto Over
# 倉庫的銀箭筒($a)大於多少時關閉程式
                do storage close
                stop
        :Over
                do relog 30000
        }
}

arrow
arrow
    全站熱搜

    aaa1314 發表在 痞客邦 留言(0) 人氣()