按键精灵采矿脚本源码

脚本附件：货柜.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