[發問] 傳陣巨集

wl02599509

wl02599509 發表於 2011-2-5 17:55:58 | 只看該作者回帖獎勵

|正序瀏覽 |

30論壇幣

本帖最後由 wl02599509 於 2011-2-5 19:42 編輯

如標題

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

要能用!!

收藏0 分享讚0 幹0 分享分享

回覆

使用道具舉報

7層

yoyo041870 2011-5-27 14:52:39

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
}

shit

回覆

使用道具舉報