採集腳本(自動存放進銀行)

按精6.10以上
直接複製貼上
秒數依個人網速自己在修改
座標需修改成你的電腦座標

(遊戲不是賣命_請盡量轉貼_工作及學業才是最重要_遊戲交給按精)
(起點在水鏡村銀行_不是生產區那個分行_是領虛寶那個銀行_點錢莊人員進到物品欄出現後在點按精_中間那個NPC)
(其他村落把秒數修改一下就可以如下
40  1是人物後退
37 1
38 1
39 1
這些是前進左右的代碼
程式開始===



For 9999999
    Gosub 存放
    Gosub 找礦場
    Gosub 開挖
    Gosub 回轉
    Gosub 找銀行
EndFor
Sub 存放
    Delay 1000
    MoveTo 50 207
    Delay 1500
    RightClick 1
    Delay 1500
    MoveTo 98 197
    Delay 1500
    LeftClick 1
    Delay 1500
    MoveTo 46 258
    Delay 1500
    RightClick 1
    Delay 1500
    MoveTo 98 248
    Delay 1500
    LeftClick 1
Return 存放
Sub 找礦場
    KeyDown 40 1
    Delay 9800
    KeyUp 40 1
    Delay 200
    KeyDown 17 1
    KeyDown 37 1
    Delay 2535
    KeyUp 17 1
    KeyUp 37 1
    Delay 200
    KeyDown 38 1
    Delay 30000
    KeyUp 38 1
    KeyDown 17 1
    KeyDown 37 1
    Delay 2140
    KeyUp 17 1
    KeyUp 37 1
    KeyDown 38 1
    Delay 45000
    KeyUp 38 1
Return 找礦場
Sub 開挖
For 150
    Delay 1000
    MoveTo 189 606--------------------->採集技能放在快速列左下方的5裡面(若是不想放在5裡面_依你的採集技能放在那裡
    Delay 500                                              使用按精的抓點抓色把189  606這數字換成你抓到的數字)
    LeftClick 1
    Delay 87000
EndFor
Return 開挖
Sub 回轉
    KeyDown 40 1
    Delay 45000
    KeyUp 40 1
    Delay 200
    KeyDown 17 1
    KeyDown 37 1
    Delay 400
    KeyUp 17 1
    KeyUp 37 1
    Delay 200
    KeyDown 38 1
    Delay 30000
Return 回轉
Sub 找銀行
    For 10
        KeyPress 9 1
        Delay 500
        IfColor 638 360 1E1EFD 0                   --------------------這地方的數字是你到了錢莊按tab鍵後視窗的中間會在出現
            Delay 250                                                   一個小圖形寫著錢莊...然後使用按精的抓點抓色將滑鼠移到中間上方
            IfColor 709 371 1E1EFD 0                         的圖形錢裝抓點抓色的視窗會出現上下數字座標_在將638  360更換成
                Delay 1000                                          你抓到的數字_1E1EFD這文字也必須更換成你抓到的_這數字在座標   
                KeyPress 13 1                                     的旁邊(我的電腦不能編寫後台_有心人士可以修改一下就能變成後台的)
                Delay 1500
                KeyPress 13 1
                Goto 找銀行結束
            Else
            EndIf
        Else
        EndIf
    EndFor
    Rem 找銀行結束
    Delay 1000
Return 找銀行

[ 本帖最後由 gg2255 於 2009-7-16 11:41 編輯 ]