还有一段
VBS dim c1,c2,c3,blu1,blu2,blu3,m,cc1,blu4
VBS dim c11,c22,c33,blu11,blu22,blu33
VBS cao="1100"
VBS shou="0100"
VBS shui="0011"
VBS hai="0000"
VBS fei="1110"
///////////////用户自定义设置//////////////////////
UserVar zhongdi=DropList{长白山:0|延安:1}=0 请选择种地的地点
///////////////获取游戏句柄和游戏窗口左上角坐标/////
Delay 200
Plugin hwnd=Window.Foreground()
Plugin aabb=Window.GetWindowRect(hwnd)
zuobiao=split(aabb,"|",-1,1)
VBS a=cint(zuobiao(0))
VBS b=cint(zuobiao(1))
////////////////////自动种地主程序/////////////////////
Rem start
//寻找种地的地点，采用画圆形式，具体参见该子程序（找种地地点）
Gosub 找种地地点
Delay 300
Gosub 耕种界面
If blu1<50 and blu2<50 and blu3<50
MoveTo 234+a,275+b
Delay 500
LeftClick 1
Else
//在没找到种地的地点时，重新开始找点，下面提供两个地方回原始点
If zhongdi=0
Gosub 回长白山种植地
Goto start
Else
Gosub 回延安种植地
Goto start
EndIf
EndIf
Delay 300
//开始自动选好种子并开始种地
Gosub 选择种子窗口
If blu11<50 and blu22<50 and blu33<50
MoveTo 300+a,202+b
Delay 800
LeftClick 1
Delay 1000
Else
Goto start
EndIf
Delay 300
//进入循环
VBS m=0
While m=0
Delay 500
Gosub 耕种界面
//当弹出浇水杀虫等耕种界面窗口时，开始验证
If blu1<50 and blu2<50 and blu3<50
Delay 100
//读取第一行最后一个字的5个坐标的颜色（5个字分别是：草、水、害、肥、收），
//分离出蓝色值，值大于150为“1”字符，否则为“0”字符。即：字的颜色用“1”
//字符表示，背景色用“0”表示。
//当然也可能通过找5个字的图达到目的
VBS ux=287+a:uy=199+b
VBS co=""
For 4
VBSCall cc1=GetPixelColor(ux,uy)
Delay 200
VBS blu4=Cint("&H" & Left(cc1,2))
Delay 10
If blu4>150
VBS i="1"
Else
VBS i="0"
EndIf
VBS co=co & i
VBS uy=uy+2
EndFor
Delay 100
//第一行最后一个字为“草”时
If co=cao
MoveTo 235+a,375+b
Delay 800
LeftClick 1
//第一行最后一个字为“水”时
ElseIf co=shui
MoveTo 235+a,324+b
Delay 800
LeftClick 1
//第一行最后一个字为“害”时
ElseIf co=hai
MoveTo 235+a,350+b
Delay 800
LeftClick 1
//第一行最后一个字为“肥”时
ElseIf co=fei
MoveTo 235+a,399+b
Delay 800
LeftClick 1
//第一行最后一个字为“收”时
ElseIf co=shou
MoveTo 235+a,300+b
Delay 800
LeftClick 1
Delay 1000
//m=1,表示跳出本循环
VBS m=1
EndIf
Delay 10
EndIf
Delay 10
EndWhile
Delay 300
Goto start
