[分享] 伊甸園任務 26-40級適用另類洗初水方法

611層

qq121355 2016-8-6 21:46:49

{:2_381:}{:2_381:}

回覆

使用道具舉報

612層

w73133232000 2016-8-8 11:18:56

automacro b {
      console /(.*) (.*) (.*) ((.*)) 向您要求一個交易/  #
      call {
               $w = $.lastMatch2
            do deal
            pause 15

                              #15秒內不動作取消交易

            do deal no
            stop

      }

}

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

automacro d {
      console /(.*) 加入 (.*) z 以交易/
      call {
      $a = $.lastMatch2
      if ($a = 1,101) goto bb
      if ($a = 1,102) goto bb
      if ($a = 1,103) goto bb
            #$a = ".*" = 傳陣金額
      pause 1
            #當金額!=你販賣的金額取消交易
      do deal no
      stop
:bb
      pause 1
do deal
pause 1
do deal
      pause 10
      do deal no


            #輸入金額10秒內未完成交易者取消交易

      stop
      }
}

automacro f {
   console /You gained (.*) zeny./
      call {
      pause 1
               $a = $.lastMatch1
                  if ($a = 1,101) goto a1
            if ($a = 1,102) goto b2
            if ($a = 1,103) goto c3

                              #$a = ".*" = 傳陣金額
                     :a1
                              $ta = 0;
                              call aa1                                                             #執行macro aa1
                              stop
                     :b2
                              $ta = 1;
                              call aa1
                              stop
                     :c3
                              $ta = 2;
                              call aa1
                              stop

      }
}

macro aa1 {
      $aa1 = @invamount(藍色魔力礦石)
            #施放傳送之陣"前"的藍色魔力礦石數量
      $x = @arg("$.pos", 1)
      $y = @arg("$.pos", 2)
      $x0 = @eval($x - @rand(1,3))
      $y0 = @eval($y - @rand(1,3))
      pause 1
      do c $ta
      do sp 29 $w 10
      pause 1
      do sp 34 $w 10
      pause 1
      do sl 27 $x0 $y0
      pause 1
      do warp $ta
            #a = 地圖名稱
      pause 2
      $aa2 = @invamount(藍色魔力礦石)
            #施放傳送之陣"後"的藍色魔力礦石數量
      if ($aa1 == $aa2) goto ax
            #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
      stop
      :ax
      pause 1
      call axx
            #執行macro axx
      stop

}
macro axx {
      call aa1
            #執行macro aa1
}