OP洗初水+三種箭矢筒(研究gemini61的寫法後學著寫的,用不到銀箭矢火箭矢可以不用買^^)

dagie · dagie *發表於 2010-10-24 00:56:29* | 只看該作者 |倒序瀏覽 |

首先，我先謝謝 gemini61 所寫的OP洗初水文章內容
讓我有機會能參考並且邊看邊學習，然後自己寫動作
第一次自己寫完，實際運作後完全成功的感覺真不錯^^
今後會繼續嘗試寫其他動作需求，一點一點慢慢研究

[●禁私人部落格●enta]Automacro.pm 的內容修改方面
還是麻煩請參照 gemini61 所寫的那篇文章修改
在此貼上該篇連結http://bbs.wgun.net/thread-389772-1-1.html

另外，如果你很容易遇到對話錯誤的話
那表示你很容易lag
請把pause加大一點點1或2就可以了(依你的需求而定)
因為文章中是以我的執行速度為基準的應答速度哦^^

再次強調，這是我學著寫出來的 macros.txt 一樣要打電話解通訊鎖
用不到 "箭矢筒" "銀箭矢筒" "火箭矢筒" 的話不用買這篇
或是想自己遊戲中買就好的也不用買這篇，因為商人低買10級買應該也滿便宜的
說真的我也不一定用的到，不過成功完整運作後讓我更有信心就是了
有興趣的人可以試著自己寫寫看哦～

以下綠色字體請改成自己的哦，尤其是數字２關係到要刪除的角色格，相當重要
所以我也跟著 gemini61 提醒購買者千萬要注意別寫錯數字哦~~~
買家請將以下複製貼入 macros.txt

===========虛線以下開始複製，不包含虛線===========
#####洗初水#####
automacro deletecreate {
   hook charSelectScreen
   run-once 1
   exclusive 1
   call {
      $email = xyzmail <--(刪除用的信箱)
      $login = 2
      do eval $::messageSender->sendCharDelete($::chars[2]{charID}, '$email');$::AI::temp::delIndex = 2;$::timeout{'charlogin'}{'time'} = time;
      pause 2
      do eval $::timeout{'charlogin'}{'time'} = time;
      pause 2
      $login = @eval($login + 1)
      log  its char select screen
      $num = @rand(1, 1000)
      $masterName = XYZ <--洗東西用的ID
      $name = @eval("$masterName" . "$num")
      do eval $::messageSender->sendCharCreate(2, '$name', 9, 9, 9, 1, 1, 1, 2, 3);$::timeout{'charlogin'}{'time'} = time;
      pause 2
      do conf char 2
      do eval $::messageSender->sendCharLogin(2);$::timeout{'charlogin'}{'time'} = time;
      pause 1
      do eval $::timeout{'charlogin'}{'time'} = time;
      pause 1
      release NovicePotion
   }
}
automacro NovicePotion {
base == 1
call np
run-once 1
exclusive 1
}
macro np {
#set config
do conf logConsole 0
do conf attackAuto 0
do conf route_randomWalk 0
do conf autoTalkCont 1
do conf itemsGatherAuto 0
do conf dcOnDeath 0
pause 1
do move 148 112
pause 2
do move 100 24
pause 2
#絲普拉琪
do talk @npc (100 29)
pause 3
do talk @npc (100 29)
pause 2
do talk resp 0
pause 2
#室內布萊伊德
do talk @npc (100 105)
pause 4
do eq @inventory (初學者蛋殼帽)
do eq @inventory (初學者鐵盾)
do eq @inventory (初學者笨拙短劍)
do eq @inventory (初學者陰險披肩)
do eq @inventory (初學者忍者斗篷)
do eq @inventory (初學者海灘鞋)
do talk @npc (100 105)
pause 4
do move 113 118
pause 2
#陳河
do talk @npc (115 120)
pause 1
do talk resp 0
pause 2
do talk @npc (115 120)
pause 1
do talk resp 1
pause 1
#室內布萊伊德
do talk @npc (100 105)
pause 2
do talk @npc (100 105)
pause 2
do talk resp 1
pause 2
#秀克拉
do talk @npc (33 172)
pause 3
#卡姐
do talk @npc (30 176)
pause 5
do talk resp 4
pause 2
#准它
do talk @npc (33 176)
pause 4
#士兵
do talk @npc (36 176)
pause 3
#秀克拉
do talk @npc (33 172)
pause 4
#室外布萊伊德
do talk @npc (96 30)
pause 4
do conf attackAuto 2
do conf route_randomWalk 2
do conf route_randomWalk_inTown 1
}
automacro mon {
console /You attack Monster 波利 (.*)/
call mon1
}
macro mon1 {
$poring = 1
}
automacro jpcheck {
location new_1-3
job > 9
call jpc
timeout 30
exclusive 1
}
macro jpc {
log kill poring $poring
if ($poring == 1) goto ok
stop
:ok
call cont
stop
}
macro cont {
pause 2
do conf attackAuto 0
do conf route_randomWalk 0
do conf route_randomWalk_inTown 0
pause 1
do move 98 31
pause 1
#室外布萊伊德
do talk @npc (96 30)
pause 4
do move 113 39
pause 1
#弓箭手
do talk @npc (113 41)
pause 2
do talk resp 1
pause 1
do talk resp 1
pause 2
#ADD SKILLS
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
pause 3
do move 64 66
pause 1
#弓箭手公會人員
do talk @npc (64 71)
pause 1
do talk resp 0
pause 3
do move 64 56
pause 2
do move 55 120
pause 1
do conf logConsole 1
pause 1
#斐揚洞外卡姐
do talk @npc (55 123)
pause 1
do talk resp 0
pause 1
$i = @storamount (初學者專用藥水)
$j = @storamount (卡普拉倉庫免費利用券)
$k = @storamount (卡普拉傳送點免費利用券)
$l = @storamount (箭矢筒)
$m = @storamount (銀箭矢筒)
$n = @storamount (火箭矢筒)
if ($i > 29600) goto over
if ($i <= 29600) goto empty
if ($j > 29981) goto over
if ($j <= 29981) goto empty
if ($k > 29970) goto over
if ($k <= 29970) goto empty
if ($l > 29999) goto over
if ($l <= 29999) goto empty
if ($m > 29999) goto over
if ($m <= 29999) goto empty
if ($n > 29999) goto over
if ($n <= 29999) goto empty
stop
:over
log 倉庫已滿目前初水 $i 瓶
log 倉庫已滿目前開倉券 $j 張
log 倉庫已滿目前傳送券 $k 張
log 倉庫已滿目前箭矢筒 $l 筒
log 倉庫已滿目前銀箭矢筒 $m 筒
log 倉庫已滿目前火箭矢筒 $n 筒
pause 1
do conf logConsole 0
stop
:empty
pause 1
do storage add 0
pause 1
do storage add 1
pause 1
do storage add 2
pause 1
do storage add 3
pause 1
do storage add 4
pause 1
do storage add 5
pause 1
$t = @storamount (初學者專用藥水)
$u = @storamount (卡普拉倉庫免費利用券)
$v = @storamount (卡普拉傳送點免費利用券)
$w = @storamount (箭矢筒)
$x = @storamount (銀箭矢筒)
$y = @storamount (火箭矢筒)
pause 1
log 倉庫初水數量 $t 瓶
log 倉庫開倉券 $u 張
log 倉庫傳送券 $v 張
log 倉庫傳送券 $w 筒
log 倉庫傳送券 $x 筒
log 倉庫傳送券 $y 筒
pause 1
do conf char none
pause 1
do conf logConsole 0
pause 2
do quit
}
============複製到虛線以上就好，不包含虛線==============

外掛聯合國

[分享] OP洗初水+三種箭矢筒(研究gemini61的寫法後學著寫的,用不到銀箭矢火箭矢可以不用買^^)