按键精灵抗战种地脚本源码

脚本附件：2.bmp, 4.bmp, 3.bmp, 5.bmp, 00.bmp, 1.bmp, 6.bmp

运行环境：分辨率：1024x768 色深：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 缺水