飛機場實驗成功了

balafox

我實驗過後  沒有什麼問題
大家可以用看看
把下面複製到control資料夾的macros
傳點跟金額要自己改喔!!

automacro a {
console /You are ●嚴禁張貼廣告● in the game/
call {
pause 5
if (@invamount(藍色魔力礦石) == 0) goto qk
      #當藍色魔力礦石=0時qk= =
pause 1
do chat create "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 2 0 1234
      #a-1 b-2 c-3 d-4 = 聊天室名稱
pause 1
do sit
stop
:qk
do c QK
do sit
stop
}
}
automacro b {
console /(.*) ((.*)) Requests a Deal/
call {
      do deal
      pause 15
                  #15秒內不動作取消交易
      do deal no
      stop
}
}

automacro c {
console /(.*) 加入物品以交易: (.*)/
call {
                  #加入物品取消交易
      do deal no
      stop
  }
}
automacro d {
console /(.*) added (.*) z to Deal/
call {
$a = $.lastMatch2
$b = $.lastMatch2
$c = $.lastMatch2
$d = $.lastMatch2
if ($a = 2,000) goto bb
if ($b = 2,500) goto bb
if ($c = 3,000) goto bb
if ($d = 4,000) goto bb
      #$a = ".*" = 傳陣金額
#$b = ".*" = 傳陣金額
#$c = ".*" = 傳陣金額
#$d = ".*" = 傳陣金額
pause 1
      #當金額!=你販賣的金額取消交易
do deal no
stop
:bb
pause 1
do deal
pause 1
do deal
      #輸入金額10秒內未完成交易者取消交易
pause 10
do deal no
stop
}
}
automacro e {
console /gained (.*) zeny/
call {
      do chat leave
      $a = $.lastMatch1
      if ($a = 2,000) goto a1
      if ($b = 2,500) goto b2
      if ($c = 3,000) goto c3
      if ($d = 4,000) goto d4
                  #$a = ".*" = 傳陣金額
            :a1
                  call aa1
                                       #執行macro aa1
                  stop
            :b2
                  call bb2
                  stop
            :c3
                  call cc3
                  stop
            :d4
                  call dd4
                  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))
do sl 27 $x0 $y0
pause 1
do warp yuno
      #a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
      #施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
      #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
do c [朱諾]請進~一路順風並祝您遊戲愉快
stop
:ax
pause 1
do c 傳送失敗
do c 再來一次
call axx
      #執行macro axx
stop
}
}
macro axx {
call aa1
      #執行macro aa1
}
#以下類推..
macro bb2 {
$bb1 = @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 ra_fild05
      #b = 地圖名稱
pause 1
$bb2 = @invamount(藍色魔力礦石)
if ($bb1 == $bb2) goto bx
do c [犬妖]請進~一路順風並祝您遊戲愉快
stop
:bx
pause 1
do c 傳送失敗
do c 再來一次
call bxx
stop
}
}
macro bxx {
call bb2
}
macro cc3 {
$cc1 = @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 glast_01
      #c = 地圖名稱
pause 1
$cc2 = @invamount(藍色魔力礦石)
if (cc1 == cc2) goto cx
do c [古城]請進~一路順風並祝您遊戲愉快
stop
:cx
pause 1
do c 傳送失敗
do c 再來一次
call cxx
stop
}
}
macro cxx {
call cc3
}
macro dd4 {
$dd1 = @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
      #d = 地圖名稱
pause 1
$cc2 = @invamount(藍色魔力礦石)
if ($dd1 == $dd2) goto dx
do c [火洞]請進~一路順風並祝您遊戲愉快
stop
:dx
pause 1
do c 傳送失敗
do c 再來一次
call dxx
stop
}
}
macro dxx {
call dd4
}

automacro f {
console /You 已開啟傳送之陣在 $(.*), (.*)$/
call {
      pause 5
      if (@invamount(藍色魔力礦石) == 0) goto qk
      pause 1
      do chat create "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 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 "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 2 0 1234
            pause 1
            do sit
            stop
      :qk
            do sit
            stop
      }
}

orz820511 該用戶已被刪除	8層 orz820511 2011-1-15 11:51:23 提示: 作者被禁止或刪除內容自動屏蔽
orz820511 該用戶已被刪除
	回覆使用道具舉報

外掛聯合國

[分享] 飛機場實驗成功了

相關POST