伺服器:全伺服器皆可

儲存點:自行決定

最低裝備武器:無

備註:無藍礦將自行存倉取礦
   取倉完走回定點開傳陣
   請入macros.tx自行更改數值


 


automacro Start {
console /Your Coordinates/
exclusive 1
call {
pause 3
do conf ignoreAll 1
#不交易,防bug
call Chat
}
}
macro Chat {
do sit
do look 4
if (@invamount(藍色魔力礦石) > 0) goto OK
  do move 143 87 prontera
#站定存倉位置
  do talk @npc (146 89)
  pause 2
  do talk resp 1
  pause 2
  do storage get @storage (藍色魔力礦石) 400
  pause 1
  do storage close
  pause 1
  do storage log
  pause 1
  do move 55 46
#走去傳陣定點
  do sit
  do look 4

:OK
  do chat create "石波1500 火洞1501 優沛1502 犬妖1503" 2 0 0000
# 自行修改聊天室內容
  do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
console /Requests a Deal/
inventory "藍色魔力礦石" > 0
call {
do deal
pause 15
do deal no
}

automacro Dealb {
console /added Item to Deal/
call {
do deal no
}
}
automacro Dealc {
console /added (.*) z to Deal/
call {
$a = $.lastMatch1
if ($a = 1,500) goto OK
if ($a = 1,501) goto OK
if ($a = 1,502) goto OK
if ($a = 1,503) goto OK
# 自行修改金額
  do deal no
  stop
:OK
  pause 1
  do deal
  pause 1
  do deal
  pause 10
  do deal no
   }
}

automacro Warp {
console /You gained (.*) 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 == "1,500") goto a1
if ($a == "1,501") goto b2
if ($a == "1,502") goto c3
if ($a == "1,503") goto d4

: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", 1)
$x0 = @eval($x - @rand(1,2))
$y0 = @eval($y - @rand(1,2))
do sl 27 $x0 $y0
pause 1
do warp veins
    #a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
    #施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
    #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
  do c [veins]"峽谷村落 菲音斯"傳陣已開,若看不到或進不去,請先"重登",謝謝^^
    #傳陣結束,說話
call Chat
stop
:ax
pause 1  
call axx
    #執行macro axx
   
stop
}
}
macro axx {
call aa1
    #執行macro aa1
}

macro bb2 {
$aa1 = @invamount(藍色魔力礦石)
    #施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 1)
$x0 = @eval($x - @rand(1,2))
$y0 = @eval($y - @rand(1,2))
do sl 27 $x0 $y0
pause 1
do warp yuno_fild03
    #a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
    #施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
    #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
  do c [yuno_fild03]"爾邁斯 瀑雷德"傳陣已開,若看不到或進不去,請先"重登",謝謝^^
    #傳陣結束,說話
call Chat
stop
:ax
pause 1  
call bxx
    #執行macro axx
stop
}
}
macro bxx {
call bb2
    #執行macro aa1
}


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 ein_fild06
    #a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
    #施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
  do c [ein_fild06]"艾音布羅克 原野"傳陣已開,若看不到或進不去,請先"重登",謝謝^^
    #傳陣結束,說話
call Chat
stop
:ax
pause 1  
call cxx
    #執行macro axx
   
stop
}
}
macro cxx {
call cc3
# call cc3
    #執行macro aa1
}

macro dd4 {
$aa1 = @invamount(藍色魔力礦石)
    #施放傳送之陣"前"的藍色魔力礦石數量
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 1)
$x0 = @eval($x - @rand(1,2))
$y0 = @eval($y - @rand(1,2))
do sl 27 $x0 $y0
pause 1
do warp ra_fild05
    #a = 地圖名稱
pause 1
$aa2 = @invamount(藍色魔力礦石)
    #施放傳送之陣"後"的藍色魔力礦石數量
if ($aa1 == $aa2) goto ax
    #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
  do c [ra_fild05]"阿巫敦拉 草原"傳陣已開,若看不到或進不去,請先"重登",謝謝^^
    #傳陣結束,說話
call Chat
stop
:ax
pause 1  
call axx
    #執行macro axx
   
stop
}
}
macro dxx {
call dd4
    #執行macro aa1
}

創作者介紹
創作者 aaa1314 的頭像
aaa1314

RO相關資料資訊♂外掛腳本討論&請勿發表其他廣告(請保持畫面清爽)感謝

aaa1314 發表在 痞客邦 留言(3) 人氣()