为编程爱好者分享易语言教程源码的资源网
易语言网站app定制QQ1918812225 网络赚钱,从这里开始 想日赚300到3000来 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络赚钱,从这里开始 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 按键精灵相关 按键精灵Q语言 正文

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

三叶资源网 2019-03-13 按键精灵Q语言 100 ℃ 0 评论

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


Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
账号自动注册项目揭秘组合框乐玩模块荒野行动劲舞团PHP秒杀系统淘宝宝贝列表分页源码通用型哈希表数据库源码HttpProxy易编辑框源码WORD文件加图片硬笔黑月插件抖音去水印Tencent资料四级联动
最新评论