LOTRO Bots - Lootbot with Selectable Loot. : LOTRO - Bots and Hacks

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.4.9
 Author:         Lorefiendel

 Script Function:
   Function to implent into your LOTR Bot.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

; 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 )