徵求洗初水的腳本(已爬文)

#####洗初水#####
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
}
-------------
試試看吧~我自用的~知道放那吧~別貼錯喔

是用什麼程式?????
能分享整個寫好腳本的程式嗎!!!
謝謝大大

謝謝大大的無私感謝分享請大大們多多分享
也請大家多多回覆
回覆也是一種美德
本文章轉自外掛聯合國

是用什麼程式?????
能分享整個寫好腳本的程式嗎!!!
謝謝大大