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