脚本附件：2.bmp, 4.bmp, 3.bmp, 5.bmp, 00.bmp, 1.bmp, 6.bmp
运行环境：分辨率：1024×768 色深：32位 操作系统：Microsoft Windows Server 2003 R2 按键精灵版本：7.31.6258
@ice8285336 2010/5/27
IfColor 267,133,111111,0 Gosub 种地过程 Else EndIf IfColor 725,195,ffffff,0 Goto 开始 Else Gosub 种地 EndIf Sub 种地 VBSCall FindPic(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo intX,intY Gosub 找地 Else EndIf Return 种地 Sub 找地 LeftClick 1 Delay 500 Gosub 播种 Return 找地 Sub 播种 VBSCall FindPic(0,0,1024,768,"Attachment:\6.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo 230,210 Delay 200 LeftClick 1 Delay 200 MoveTo 309,184 Delay 200 LeftClick 1 Else EndIf Return 播种 Sub 种地过程 VBSCall FindPic(0,0,1024,768,"Attachment:\4.bmp",0.9,intX,intY) If intX>0 and intY>0 Gosub 施肥 Else EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\2.bmp",0.9,intX,intY) If intX>0 and intY>0 Gosub 锄草 Else EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\5.bmp",0.9,intX,intY) If intX>0 and intY>0 Gosub 收获 Else EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY) If intX>0 and intY>0 Gosub 杀虫 Else EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\3.bmp",0.9,intX,intY) If intX>0 and intY>0 Gosub 缺水 Else EndIf Return 种地过程 Sub 施肥 MoveTo 231,359 LeftClick 1 Return 施肥 Sub 锄草 MoveTo 230,329 LeftClick 1 Return 锄草 Sub 收获 MoveTo 230,243 LeftClick 1 Return 收获 Sub 杀虫 MoveTo 233,299 LeftClick 1 Return 杀虫 Sub 缺水 MoveTo 232,269 LeftClick 1 Return 缺水