; Activate Game Window
$winwake=WinExists ( "The Lord of the Rings Online™: Shadows of Angmar™" )
if $winwake=0 then
   Exit
endif
if $winwake=1 then
   WinActivate ( "The Lord of the Rings Online™: Shadows of Angmar™" )
endif

;What To Loot Options Maybe Retrive These From A Ini file on each function run?
$hpot=1
$mpot=1
$craft=1
$yellow=1
$purple=1
$blue=1

;Find Loot Window
$coord = PixelSearch( 0, 137, 1015, 503, 0x13109D, 1 )
If Not @error Then
   MouseMove ( $coord[0], $coord[1] , 10 )
   $loot=1
   $lx1=$coord[0]-54
   $lx2=$coord[0]+205
   $ly1=$coord[1]-2
   $ly2=$coord[1]+212
Else
    $loot=0
EndIf

;Find And Loot
; Check For Healing Potions
While $loot=1 and $hpot=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0x1db01a, 1 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
      sleep(1000)
Else
    $hpot=0
EndIf
WEnd

; Check For Mana Potions
While $loot=1 and $mpot=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0x1a4965, 1 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
      sleep(1000)
Else
    $mpot=0
EndIf
WEnd

; Crafting Items
While $loot=1 and $craft=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0x69ca99, 10 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
      sleep(1000)
Else
    $craft=0
EndIf
WEnd

; Yellow
While $loot=1 and $yellow=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0xffff00, 1 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
      sleep(1000)
Else
    $yellow=0
EndIf
WEnd

; Purple
While $loot=1 and $purple=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0xc200c7, 1 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
      sleep(1000)
Else
    $purple=0
EndIf
WEnd

; Blue
While $loot=1 and $blue=1
$coord = PixelSearch( $lx1, $ly1, $lx2, $ly2, 0x00fdff, 1 )
If Not @error Then
   MouseClick ( "left" , $coord[0], $coord[1] , 2 )
   sleep(1000)
Else
    $blue=0
EndIf
WEnd

$loot=0

;Close Loot Window
MouseClick ( "left" , $lx1+244, $ly1+29 , 1 )

dim bgwHWND
dim X
dim Y
dim iteration
dim iterations

iteration = 1
iterations = 35

ownLOTROWindow
'mouseLoc

while ( iteration <= iterations)
    plantFarm
    harvestField
    lootHarvest
   debugLog "Completed iteration: " & iteration & " of " & iterations
   iteration = iteration + 1
wend


sub plantFarm
    dim X, Y
    X = randomize(336, 278)
    Y = randomize(620, 610)
    Mouse.FullMouseMove X, Y, 1
    Mouse.LMouseClick X, Y, 1, 1
    sleep 27000
end sub

sub harvestField
    dim X, Y
    X = randomize(746, 665)
    Y = randomize(596, 550)
    Mouse.FullMouseMove X, Y, 1
    Mouse.LMouseClick X, Y, 1, 1
    Mouse.RMouseClick X, Y, 1, 1
    sleep 8000
end sub

sub lootHarvest
    dim X, Y
    X = randomize(675, 592)
    Y = randomize(668, 661)
    Mouse.FullMouseMove X, Y, 1
    Mouse.LMouseClick X, Y, 1, 1
    sleep 400
end sub

sub ownLOTROWindow
    debugLog "Attempting find the LoTRO Window"
    bgwHWND = Windows.FindWindowByTitle("The Lord of the Rings Online")
    if ( bgwHWND <= 0) then
        debugLog "Whoops, you need to launch LOTRO first..."
    end if
    ShowWindow bgwHWND
    Sleep 500
    FocusWindow bgwHWND
    Sleep 500
    debugLog "Success! LOTRO Found "
end sub

function randomize (max, min)
    randomize = (Int((max-min+1)*Rnd+min))
end function


sub mouseLoc
  while (true)

   X = Mouse.GetCursorPosX()
   y = Mouse.GetCursorPosY()

   debuglog "X:" & X & "\t Y:" &Y
   Sleep 1000
  wend
end sub