为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

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

按键精灵采矿脚本源码

三叶资源网 2018-12-29 按键精灵Q语言 170 ℃ 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

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

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
HttpWatch破解版界面UI源码JS教程QQ飞车网易clientToken炫彩设计器工程任务栏缩略图邮箱轰炸器图片拼接淘宝宝贝列表分页源码QQ主显易语言资源网图像处理时时彩二星缩水软件云外归鸟多功能记事本加密解密Charles开心宝贝音频处理
最新评论