; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
;
; Script Function:
;   EVE Mining
;
; ----------------------------------------------------------------------------

; Function to exit script
Func EndScript()
  $exit = MsgBox(4, "Macro Miner", "End Macro Miner?")
  If $exit = 6 Then
    Exit
  EndIf
EndFunc

; Prompt the user to run the script using Yes/No prompt
$run = MsgBox(4, "Macro Miner", "Do you want to run Macro Miner?")

; Exit if "No"
If $run = 7 Then
    Exit
EndIf

; Initialization

HotKeySet("{PAUSE}", "EndScript")
$evewins = WinList("EVE")
$miner = 0
$hauler = 0
For $i = 1 To $evewins[0][0]
  WinActivate($evewins[$i][1])
  If $miner = 0 Then
    If MsgBox(4, "Macro Miner", "Is this the miner?") = 6 Then
      $miner = $evewins[$i][1]
      WinMove($miner, "", 0, 0)
      ContinueLoop
    EndIf
  EndIf
  If $hauler = 0 Then
    If MsgBox(4, "Macro Miner", "Is this the hauler?") = 6 Then
      $hauler = $evewins[$i][1]
      WinMove($hauler, "", 0, 0)
      ContinueLoop
    EndIf
  EndIf
Next
If $miner = 0 OR $hauler = 0 Then
  MsgBox(0, "Macro Miner", "I give up.")
  Exit
EndIf

; Start Script

; TO DO: refactor this with actions in loop
WinActivate($miner)
MouseClick("left", 657, 75) ; check for target. TODO: expand to larger range?
PixelSearch(884, 149, 900, 165, 0xFF0000)
If @Error Then ; no target
  $target = 0
  MouseClick("left", 855, 219) ; select closest asteroid
  MouseClick("left", 770, 157) ; approach asteroid
  MouseClick("left", 901, 157) ; target asteroid
  Sleep(7000) ; wait to target
EndIf
$target = 1
MouseClick("left", 606, 673) ; activate lasers
MouseClick("left", 648, 673)
MouseClick("left", 689, 673)
$laserstart = TimerInit()

While 1
  ; wait for lasers to finish cycle
  While TimerDiff($laserstart) < 185000
    Sleep(1000)
  WEnd
  $laserstart = TimerInit() ; assume lasers repeat

  WinActivate($miner)
  MouseClick("left", 410, 391) ; jettison ore
  Sleep(1000)
  Send("^a")
  MouseClick("right", 455, 495)
  MouseClick("left", 530, 507)
  MouseClick("right", 455, 470)
  MouseClick("left", 496, 544)
  Sleep(1000)

  WinActivate($hauler)
  MouseClick("right", 818, 569) ; warp to miner
  MouseClick("left", 880, 627)
  Sleep(1000)

  WinActivate($miner)
  MouseClick("left", 657, 75) ; check for target
  PixelSearch(884, 149, 900, 165, 0xFF0000)
  If @Error Then ; no target
    $target = 0
    MouseClick("left", 606, 673) ; clear repeating lasers
    MouseClick("left", 648, 673)
    MouseClick("left", 689, 673)
    MouseClick("right", 718, 674)
    MouseClick("left", 718, 674)
    Sleep(1000)
    MouseClick("left", 855, 219) ; select closest asteroid
    MouseClick("left", 770, 157) ; approach asteroid
    Sleep(1000)
  EndIf

  Sleep(37000) ; wait to finish warp. TODO: verify that a can exists
  WinActivate($hauler)
  MouseClick("left", 860, 217) ; select closest can
  Sleep(1000)
  MouseClick("left", 770, 157) ; approach can
  Sleep(16000) ; wait for hauler to close range

  If $target = 0 Then
    WinActivate($miner)
    ; TODO: verify "Lock Target" tooltip is small
    Sleep(1000)
    MouseClick("left", 901, 157) ; target asteroid
    Sleep(5000) ; wait to target
    ; TODO: verify lasers are in range
    $target = 1
    MouseClick("left", 606, 673) ; activate lasers
    MouseClick("left", 648, 673)
    MouseClick("left", 689, 673)
    $laserstart = TimerInit()
    sleep(1000)
  EndIf

  WinActivate($hauler)
  MouseClick("left", 860, 217) ; select closest can
  ; TODO: verify "Open Cargo" tooltip is small
  MouseClick("left", 834, 156) ; open can
  Sleep(1000)
  MouseClick("left", 226, 426) ; pick up all loot
  Sleep(1000)
  Send("^a")
  MouseClickDrag("left", 221, 494, 490, 429)
  ; TODO: open all white cans in range
  Sleep(1000)
  MouseClick("right", 123, 75) ; dock at station
  Sleep(1000)
  MouseClick("left", 161, 136)
  Sleep(70000) ; wait to dock

  WinActivate($hauler) ; TODO: verify docking
  MouseClick("left", 488, 429) ; drop all loot
  Sleep(1000)
  Send("^a")
  MouseClickDrag("left", 518, 509, 484, 610)
  MouseClick("left", 22, 768) ; undock

  ;Sleep(27000) ; wait to undock
  ;WinActivate($hauler)
  ;MouseClick("left", 560, 740); fly forward
  ;Sleep(1000)
WEnd