今天出爐的挖礦script ^^

版主: ALOHAJSON

回覆文章
JAK
高級玩家
高級玩家
文章: 560
註冊時間: 週二 7月 10, 2001 8:00 am

文章 JAK » 週三 2月 06, 2002 12:30 am

GOOD

KleMenT
高級玩家
高級玩家
文章: 589
註冊時間: 週三 12月 26, 2001 8:00 am

文章 KleMenT » 週二 2月 05, 2002 11:31 pm

原來上次寫的要用ezscript 1.x 版本的@@
因為x y座標跟 2 的算法不同....
而且我混了ezscript2 的指令@@
一定要用 ezscript2 跟uop.dll
所以今天又寫了一個~
這次已經試驗過沒問題的了^^

var6=0
var5=0
var8=7
pos2=pos1-y2pos[18.5*var8] //pos1=人物位置
repeat (var8) //如果5x5 var8=5
repeat (var8)
if hits!=str //如果hits不等於str
say"guards" //就say "guards"
delay(3000) //等待3 秒
sendkey(f4) //崩帶補血 (要先拿少量崩帶)
delay(3000) //等待3 秒
end if
sendkey(f1) //使用挖礦工具
delay(200) //等待0.2秒
Left Click pos2//挖pos2的礦
delay(200) //等待0.2秒
sendkey(f12) //f12設為最後目標
end if
if GetColorPos[var3,pos3,pos4] > 0
//var3=文字記錄裡的[   ]
//pos3=[   ]的左上角, pos4為右下角
delay(100)
else
WaitForWghtChange(15000)
end if
var5=var5+1
pos2=pos1-y2pos[18.5*var8]-x2pos[20*var5]+y2pos[20*var5]+x2pos[20*var6]+y2pos[20*var6]
end repeat
var6=var6+1
var5=var5-var5
pos2=pos1-y2pos[18.5*var8]+x2pos[20*var6]+y2pos[20*var6]
end repeat
var6=var6-var6
_________________
我是新手~ 別欺負我+_+

<font size=-1>[ 這篇文章被編輯過: KleMenT 在 2002-02-06 00:28 ]</font>

<font size=-1>[ 這篇文章被編輯過: KleMenT 在 2002-02-07 16:54 ]</font>

KleMenT
高級玩家
高級玩家
文章: 589
註冊時間: 週三 12月 26, 2001 8:00 am

文章 KleMenT » 週一 2月 04, 2002 4:31 pm

在這裡po個今天剛改好的script
寫了好久~ 因為本來不是用改的+_+
不過寫上去都有錯誤, 不能marco>.<
原先用nowx 和nowy 用xy2pos換成pos
不過原來uoa的xy座標跟ezs的差很遠很遠+_+
所以都沒有寫好~>o<
最後還是用了舊有的 5x5 (不太喜歡說)
改成:
血被扣會叫警衛
目標沒礦不會等待
找不到目標不會等待

設定前先把文字記錄人物視窗的
JOURNAL吐出來
在"不會阻擋身邊的岩石"的地方放好這個視窗
先看一下這個
Where do you want to use the
pickaxe? [     ]
There is no ore here to mine.
那麼在 [     ] 這個範圍裡"有文字"的都是失敗的訊息
所以要抓[     ]
那就可以開始了^^

//pos5 目標是文字記錄上的灰色(我是用灰色的^^||)
//var5 取得座標pos5的顏色
//重設一次pos5為文字記錄上的[ ] 左上方
//pos6為文字記錄上的[ ] 右下方
//var8 預設是 5 是挖礦的範圍 要在內容設定
//F1為最後雙按的動作
//F12為最後的目標
var6=hits
var7=str
var8=5
var1=0
repeat var8
var2=0
repeat var8
if hits<str
say "guards"
end if
var3=[var1-var2]*22
var4=[var1+var2-var8+1]*22
pos2=pos1-x2pos[var3]+y2pos[var4]
sendkey(f1)
delay(200)
Left Click pos2
delay(100)
SendKey(f12)
delay(100)
if GetColorPos[var5,pos5,pos6] > 0
delay(200)
else
WaitForWghtChange(15000)
end if
var2=var2+1
end repeat
var1=var1+1
end repeat

就是這樣嚕^^
雖然說不會等待喔~
不過也不是每次也行的~
有問題請指教

_________________
我是新手~ 別欺負我+_+

<font size=-1>[ 這篇文章被編輯過: KleMenT 在 2002-02-04 16:35 ]</font>

回覆文章

回到「Red Spider紅蜘蛛公會」

誰在線上

正在瀏覽這個版面的使用者:沒有註冊會員 和 0 位訪客