脚本附件：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 缺水