LOTRO Bots - Lootbot with Selectable Loot.
Posted: July 17th, 2007, 11:36 pm
Use this as a function, when ur mob is dead, select it with F10, then send U command
This example is for 1024x768 Window Mode, but can be easily edited
and then run:
This code will first find the Loot Window which popups
And then search for loot you select in the values at start!
This example is for 1024x768 Window Mode, but can be easily edited
and then run:
This code will first find the Loot Window which popups
And then search for loot you select in the values at start!
Code: Select all
#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 )