为编程爱好者分享易语言教程源码的资源网
易语言源码视频(易学院) A全站文字广告,诚邀与您合作 建站,挂机器人,挂监控服务器 A全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895
每日必买商品 20块一小时,一小时一结账 299买3年腾讯云服务器 B全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895

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

按键精灵采矿脚本源码

三叶资源网 2018-12-29 按键精灵Q语言 283 ℃ 0 评论

脚本附件:货柜.bmp, 跃迁.bmp

运行环境:分辨率:1366x768 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.50.11632

@bezonian2012/12/7

Rem 脚本开始  
Call 是否跃迁  
Call 货柜  
Call 空间站有货  
Call 空间站没货  
Call 检查小行星  
Call 锁定  
Call 矿枪状态  
Delay 3000  
Goto 脚本开始  
Sub 是否跃迁()  
    Call  FindColorEx (653,451,687,490,"C5C4C3",0,0.8,x,y)  
    If x< 0 And y< 0 Then  
        Call 货柜  
    Else  
    End If  
    Goto 脚本开始  
End Sub  
Sub 货柜()  
    FindPic 154,143,235,191,"Attachment:\货柜.bmp",0.8,x,y  
    If x> 0 And y> 0 Then  
        Call 空间站有货  
    Else   
        Call 空间站没货  
    End If  
End Sub  
Sub 空间站有货()  
    Call  FindColorEx (0,639,54,720,"3FD2FF",0,0.8,x,y)  
    If x > 0 And y > 0 Then   
        Call 货物转移  
    Else   
        MoveTo 313, 609  
        Delay 100  
        LeftClick 1  
        Delay 100  
        RightClick 1  
        Delay 100  
        MoveTo 372, 607  
        Delay 100  
        LeftClick 1  
        Delay 2000  
    End If  
End Sub  
Sub 空间站没货()  
    Call  FindColorEx (0,639,54,720,"3FD2FF",0,0.8,x,y)  
    If x > 0 And y > 0 Then  
        Delay 1500  
        MoveTo 18, 691  
        Delay 100  
        LeftClick 1  
        Delay 2000  
    Else   
        Call 检查小行星  
    End If  
End Sub  
Sub 检查小行星()  
    FindColorEx 1175,225,1253,273,"C7C7C7",1,0.8,x,y  
    If x> 0 And y> 0 Then  
        Call 锁定  
    Else   
        Call 转移到行星带  
    End If  
End Sub  
Sub 锁定()  
    Call FindColorEx (963,96,1014,123,"B8B6B3",0,0.8,x,y)  
    If x> 0 And y> 0 Then  
        Call 矿枪状态  
    Else   
        Delay 300  
        MoveTo 1168, 194  
        Delay 20  
        LeftClick 1  
        Delay 20  
        MoveTo 1160, 235  
        Delay 100  
        KeyDown "Ctrl", 1  
        LeftClick 1  
        KeyUp "Ctrl", 1  
        Delay 200  
    End If  
End Sub  
Sub 矿枪状态()  
    kq=Plugin.Color.GetPixelColor(1039,82,0)  
    If kq="CAD8D9"  
    Else   
        Delay 1000  
        KeyPress "F1", 1  
        Delay 100  
        KeyPress "F2", 1  
        Delay 3000  
    End If  
End Sub  
Sub 货物转移()  
    Delay 100  
    MoveTo 183, 228  
    Delay 100  
    LeftClick 1  
    Delay 100  
    LeftDown 1  
    Delay 100  
        MoveTo 96, 264  
    Delay 100  
    LeftUp 1  
End Sub  
Sub 转移到行星带()  
    Delay 500  
    MoveTo 306, 582  
    Delay 100  
    LeftClick 1  
    Delay 100  
    RightClick 1  
    Delay 100  
    MoveTo 374, 552  
    Delay 100  
    LeftClick 1  
End Sub


文件下载

Tags:

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

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

欢迎 发表评论:

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

网站分类
随机tag
kktv取QQ昵称bitlocker加密目录枚举软件特效2345签到腾讯滑块验证码模块源码彗星HTTP支持库360UI粒子特效小米路由器在线发音源码HTTP服务器吃鸡泰服矩阵Quoted支持库教程窗口位置控制模块QQ注册饿了么高仿WPF界面
最新评论