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