練習寫的挖蘿蔔腳本

小的不是什麼高手  而是個按鍵新手
這是我練習寫的腳本  測試後可用
因為剛學  可能寫的很複雜     請包含~
PS..此腳本需要自己更改座標
     建議抓座標之前先將農場圖移到最左上角
     以後就直接移好農場 開腳本就行了



//背包座標
MoveTo 背X,包Y
Delay 500
LeftClick 1
Delay 1000
//標記1.(找蘿蔔圖 找到才執行....此處可改為找蘿蔔座標)
Rem 1
Delay 1500
VBSCall FindPic(220,428,794,733,"蘿蔔.bmp",0.8,x,y)
If x>=0 and y>=0
    //  + - 自己抓
    MoveTo x+20 y+20
    Delay 500
    LeftClick 1
Else
    Goto 1
    Delay 1000
EndIf
//田地1
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地2
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地3
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地4
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地5
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地6
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地7
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地8
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地9
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地10
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地11
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地12
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地13
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地14
MoveTo 田X,地Y
Delay 10
LeftClick 1
//田地15
MoveTo 田X,地Y
Delay 10
LeftClick 1
Delay 1000
//鏟子的座標
MoveTo 鏟X,子Y
Delay 500
LeftClick 1
Delay 1000
//田地1
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 2
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 2
EndIf
Delay 1000
//田地2
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 3
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 3
EndIf
Delay 1000
//田地3
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 4
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 4
EndIf
Delay 1000
//田地4
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 5
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 5
EndIf
Delay 1000
//田地5
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 6
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 6
EndIf
Delay 1000
//田地6
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 7
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 7
EndIf
Delay 1000
//田地7
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 8
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 8
EndIf
Delay 1000
//田地8
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 9
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 9
EndIf
Delay 1000
//田地9
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 10
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 10
EndIf
Delay 1000
//田地10
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 11
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 11
EndIf
Delay 1000
//田地11
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 12
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 12
EndIf
Delay 1000
//田地12
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 13
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 13
EndIf
Delay 1000
//田地13
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 14
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 14
EndIf
Delay 1000
//田地14
MoveTo 田X,地Y
Delay 10
LeftDoubleClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 15
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 15
EndIf
Delay 1000
//田地15
MoveTo 田X,地Y
Delay 10
LeftClick 1
//確認剷除的圖    個人是抓那個綠色的小圖
Rem 16
Delay 1000
VBSCall FindPic(346,290,656,475,"剷除.bmp",0.8,x,y)
If x>=0 and y>=0
    //確認剷除的按鍵座標
    MoveTo 確X,認Y
    Delay 500
    LeftClick 1
Else
    Goto 16
EndIf
Delay 1000

忘了說  我的田地15格
請自行增減腳本

謝謝大大分享............YCT46B

如果你是新手 我就是嫩逼新手了  我沒寫過 也看不懂@@

感謝大大分享..感覺還蠻實用的~謝謝囉~