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

运行环境：分辨率：1366×768 色深：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