[原創] 自動買箭矢合箭筒

tonywong1029

tonywong1029 發表於 2011-2-15 20:28:59 | 只看該作者回帖獎勵

看見很多人想知道洗箭筒,我把別人的洗銀箭筒改了一點,已測試成功

macro start {
      do conf autoTalkCont 0
      do conf storageAuto 0
      do conf sellAuto 0
      do move 170 100 payon
      pause 1
      do talk @npc (181 104)
      pause 1
      do talk cont
      pause 1
      do talk resp 1
      pause 2
# 取得倉庫的箭矢筒數量
      $silverQuiver = @storamount(箭矢筒)
      do storage close
      pause 1
      do move 12 124 payon_in01
}
automacro outOfQuiver {
# 以站立點當做觸發條件，若該點位置有人則可能無法觸發
      location payon_in01 12 124
# 下行是控制做多少箭筒的設定，預設為 1000 筒
      var silverQuiver <= 1000
      run-once 1
      call createQuiver
}
macro createQuiver {
# 購買箭矢
      do talk @npc (15 119)
      pause 1
      do store
      do store
      pause 1
      $silverArrows = @invamount(箭矢)
      do buy @store(箭矢) @eval(10000 - $silverArrows)
      pause 1
      do buy @store(箭矢) 10000
      pause 1
      do move 7 131 payon_in01
      pause 1
# 與 NPC 對話，將火箭矢轉為銀箭矢筒
      do conf autoTalkCont 1
      pause 2
      do talk @npc (5 134)
      pause 4
      do talk resp 0
      pause 2
      do talk resp 0
      pause 2
      do talk resp 0
      pause 1
      do conf autoTalkCont 0
      pause 2
# 前往裴揚卡普拉存倉
      do move 170 100 payon
      pause 1
      do talk @npc (181 104)
      pause 1
      do talk cont
      pause 1
      do talk resp 1
      pause 2
      do storage add @inventory(箭矢筒)
      pause 1
      $silverQuiver = @storamount(箭矢筒)
      do p 箭矢筒庫存 $silverQuiver 個
      pause 1
      do storage close
      pause 1
      release outOfQuiver
      pause 1
# 前往觸發的座標點
      do move 12 124 payon_in01
      pause 2
# 再移動一次以保證到位
      do move 12 124 payon_in01
}

請輸入"macro start"開始動作..

close