小弟個人使用的飛機場巨集

tim811021

#################

automacro Start {
console /您現在已在遊戲中/
exclusive 1
call {
pause 3
do conf ignoreAll 1
call Chat
}
}
macro Chat {
do sit
do look 4
if (@invamount(藍色魔力礦石) > 0) goto OK
      do chat create "沒石頭了" 2 0 0000
      stop
:OK
      do chat create "朱諾2000 毀格2100 優配2200 火洞1500" 2 0 0880
# 自行修改聊天室內容
      do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
console /(.*) ((.*)) 向您要求一個交易/
inventory "藍色魔力礦石" > 0
call {
do deal
pause 15
do deal no
}
}
automacro Dealb {
console /(.*) 加入物品以交易: (.*)/
call {
do deal no
}
}
automacro Dealc {
console /(.*) 加入 (.*) z 以交易/
call {
$a = $.lastMatch2
if ($a = 2,000) goto OK
if ($a = 2,100) goto OK
if ($a = 2,200) goto OK
if ($a = 1,500) goto OK
# 自行修改金額
      do deal no
      stop
:OK
      pause 1
      do deal
      pause 1
      do deal
      pause 10
      do deal no
   stop
}
}

automacro Warp {
console /您獲得 (.*) zeny/
   exclusive 1
call {
$b = @invamount(藍色魔力礦石)
do chat leave
:Top
$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 2
if ($a == "2,100") goto A
if ($a == "2,200") goto B
if ($a == "1,500") goto C
      do warp yuno
   do c 朱諾傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
      # 傳送點一
      goto End
:A
      do warp hugel
   do c  毀格傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點二
      goto End
:B
      do warp yuno_fild07
   do c 優配傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點三
      goto End
:C
      do warp yuno_fild03
   do c 火洞傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
# 傳送點四
:End
      pause 3
if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
      call Chat
}
}

--------我是分隔線--------------

把紅字的地方修改就行了貼到MACROS!!

外掛聯合國

[分享] 小弟個人使用的飛機場巨集