按鍵精靈 28 田 "相對" 座標...(修訂)

kclman

本帖最後由 kclman 於 2009-12-15 20:34 編輯

28 田澆水,除蟲除草各一次沒技巧腳本..=.=
使用時,不用管解析度,大致上把28田盡量放到銀幕裡,
把滑鼠指標移到第一塊田中心(偏上一點會比較好),在按下設定的熱鍵即可...

如需改變田數量,適合自己農場,將最下面的 Return place 這一行,
移到適當位子即可...
動作都在 Sub Main ~ Return Main 裡面...

大致上可以自行修改,看起來應該很容易...
例如自己手動滑鼠去選收成,然後再把滑鼠移到第一田,按下設定的熱鍵,
就會掃完農場收成..

每塊田的間格時間,在最下面的 Dealy1副程式裡
VBSCall Call Delay (Int(Rnd * 10) +10)

P.S 高手們就饒了小弟吧,我只是初學者,頂多利用到抓點對色的方法,不會太高深的控制
還有.想請問前輩們,如何再按下熱鍵之後,腳本會等你滑鼠按下 1 ~ 2 個座標點,自行把座標的 x,y 讓腳本使用,然後開始運作的..@@

================================================
Sub Main
VBSCall GetCursorPos(x,y)
//澆水熱鍵4
KeyPress 52,3
Delay 70
Gosub place
Delay 70
//除草熱鍵5
KeyPress 53,3
Delay 70
Gosub place
Delay 300
//除蟲熱鍵6
KeyPress 54,3
Delay 70
Gosub place
Delay 70
KeyPress 49,1
Delay 70
Gosub Delay1
MoveTo x,y
Return Main
Sub place
//第一田的中心點
//第一排
MoveTo x,y
Gosub Delay1
MoveTo x-69,y+34
Gosub Delay1
MoveTo x-2*69,y+2*34
Gosub Delay1
MoveTo x-3*69,y+3*34
Gosub Delay1
//第二排
MoveTo x+69,y+34
Gosub Delay1
MoveTo x,y+2*34
Gosub Delay1
MoveTo x-69,y+3*34
Gosub Delay1
MoveTo x-2*69,y+4*34
Gosub Delay1
//第三排
MoveTo x+2*69,y+2*34
Gosub Delay1
MoveTo x+69,y+3*34
Gosub Delay1
MoveTo x,y+4*34
Gosub Delay1
MoveTo x-69,y+5*34
Gosub Delay1
//第四排
MoveTo x+3*69,y+3*34
Gosub Delay1
MoveTo x+2*69,y+4*34
Gosub Delay1
MoveTo x+69,y+5*34
Gosub Delay1
MoveTo x,y+6*34
Gosub Delay1
//第五排
MoveTo x+4*69,y+4*34
Gosub Delay1
MoveTo x+3*69,y+5*34
Gosub Delay1
MoveTo x+2*69,y+6*34
Gosub Delay1
MoveTo x+69,y+7*34
Gosub Delay1
//第六排
MoveTo x+5*69,y+5*34
Gosub Delay1
MoveTo x+4*69,y+6*34
Gosub Delay1
MoveTo x+3*69,y+7*34
Gosub Delay1
MoveTo x+2*69,y+8*34
Gosub Delay1
//第七排
MoveTo x+6*69,y+6*34
Gosub Delay1
MoveTo x+5*69,y+7*34
Gosub Delay1
MoveTo x+4*69,y+8*34
Gosub Delay1
MoveTo x+3*69,y+9*34
Gosub Delay1
Return place
Sub Delay1
VBSCall Call Delay (Int(Rnd * 10) +10)
LeftClick 1
Delay 22
Return Delay1
============================================

外掛聯合國

[原創] 按鍵精靈 28 田 "相對" 座標...(修訂)