這是自動狂洗卡普拉點數,
等點數到達一定程度後,
再自動傳送到艾爾帕蘭向卡普拉總公司換取蝴蝶翅膀,
過程全自動,只需打開始指令
整個過程只花一百萬R幣以內! 教學:
將以下巨集貼到macro.txt後
再pickupitems.txt裡加入
蕃薯 -1
長靴 -1
木製鎧甲 -1
避免負重
將RO角色先移動到吉分後,即可打開黑窗
打開黑窗,連線角色完成後,
在黑窗內鍵入talknpc 120 62 c r4 c r0 n
即可開始全自動兌換蝴蝶翅膀!
※建議保持流暢,以免斷線。若兌換到一半斷線請重新連線即可!- ####################
- #向卡普拉檢查點數
- automacro check {
- run-once 1
- location geffen
- exclusive 1
- call {
- do move @rand (113, 115) @rand (60, 63) geffen
- stop
- }
- }
- #開始巨集請手動輸入talknpc 120 62 c r4 c r0 n
- #看現在有幾點
- automacro check2 {
- location geffen
- console /您的儲蓄點數是(.*)點/
- exclusive 1
- call {
- $a = $.lastMatch1
- if ( $a > 100000 ) goto changeg
- call aa
- stop
- #大於10萬點開始兌換
- :changeg
- log 開始兌換
- call changeg
- stop
- }
- }
- #開始傳送洗點數
- macro aa {
- do move @rand (113, 115) @rand (60, 63) geffen
- pause 1
- do talknpc 120 62 c r2 c r1 n
- pause 1
- $t++
- log 已傳送 $t 次,目前卡普拉點數為 @eval("$t" * "120" + "$a") 點
- #看傳幾次,判斷現在點數。大於10萬點開始兌換
- if ( @eval("$t" * "120" + "$a") > 100000 ) goto changea
- stop
- :changea
- log 開始兌換
- call changea
- stop
- }
- automacro aldebarn {
- location aldebaran
- exclusive 1
- call {
- call bb
- stop
- }
- }
- macro bb {
- do move @rand (151, 153) @rand (117, 119) aldebaran
- pause 1
- do talknpc 143 119 c r2 c r0 n
- pause 1
- $t++
- log 已傳送 $t 次,目前卡普拉點數為 @eval("$t" * "120" + "$a") 點
- #看傳幾次,判斷現在點數。大於10萬點開始兌換
- if ( @eval("$t" * "120" + "$a") > 100000 ) goto changeg
- call aa
- stop
- :changeg
- log 開始兌換
- call changeg
- stop
- }
- macro changeg {
- do move @rand (113, 115) @rand (60, 63) geffen
- pause 1
- do talknpc 120 62 c r2 c r1 n
- pause 1
- $a = @eval("$a" + "120")
- do move @rand (74, 78) @rand (158, 162) aldeba_in
- pause 1
- #等個40秒統計點數,請勿動作
- do talk @npc (79 161)
- pause 40
- do talk resp 11
- pause 1
- $b = @eval("$t" * "120" + "$a")
- call changeOK
- stop
- }
- macro changea {
- do move @rand (74, 78) @rand (158, 162) aldeba_in
- pause 1
- #等個40秒統計點數,請勿動作
- do talk @npc (79 161)
- pause 40
- do talk resp 11
- pause 1
- $b = @eval("$t" * "120" + "$a")
- call changeOK
- stop
- }
- macro changeOK {
- log 目前尚有 $b 點
- if ( $b < 1000 ) goto relog
- do talknpc 79 161 c c c r9 c r0 c c c c d1 c c c c c n
- pause 1
- $b = @eval("$b" - "1000")
- call changeOK
- stop
- :relog
- log 兌換完畢,目前尚有 $b 點
- do relog
- stop
- }
複製代碼 |