New Auto Hunt Bot [ENG]

[Lowfyr]

1. must have a pet to use this macro.
2. must set target to 100
3. must put food in bottom right corner of primary backpack for pet
4. run in 1024x768 window mode. window must be at top left corner of screen.
5. must use default windowsxp blue theme
6. turn mini-map off
7. turn on click to move in interface options
8. set camera to just above you, not zoomed out too far.
9. set number of times to run in actools

SetActiveWindow World of Warcraft 

Constants 
//Check If Targeted 
enemybarx=370 
enemybary=81 
minr=0 
maxr=10 
ming=166 
maxg=176 
minb=0 
maxb=10 

//Find Grey Line 
minr_line=150 
maxr_line=193 
ming_line=155 
maxg_line=193 
minb_line=155 
maxb_line=193 

//Scan for Pet On Map 
//coords 987,690 
petlootx=987 
petlooty=690 
minr_petmap=20 
maxr_petmap=35 
ming_petmap=30 
maxg_petmap=45 
minb_petmap=140 
maxb_petmap=170 

//Check "Pet In Combat" Button Range 
//coords 90, 105 
minr_petcombat=115 
maxr_petcombat=165 
ming_petcombat=35 
maxg_petcombat=50 
minb_petcombat=0 
maxb_petcombat=5 

//Other Vars 
storex=0 
storey=0 
checkx=135 
checky=400 
foundit=0 
temp = Information 
timelook = 0 
attackdone = 0 
keeplooking = 1 
foundattackable=0 
nothingleft=0 
//change this value to 1 if you want to skin the mobs you kill as well! 
skinnable=0 
End 

//Other Vars 
set storex=0 
set storey=0 
set checkx=240 
set checky=350 
set foundit=0 
set temp = Information 
set timelook = 0 
set nothingleft = 0 

If {WindowWidth} <> 1032 OR {WindowHeight} <> 802 
ShowMessage temp = Information, OK, {WindowWidth} 
ShowMessage temp = Information, OK, {WindowHeight} 
ShowMessage temp = Information, OK, You Are Not Running in 1024x768 Windowed Mode...OR.... 
ShowMessage temp = Information, OK, You are not using the 'Windows XP Blue' Theme in Windows. 
Stop 
End 

If {WindowLeft} > 0 OR {WindowTop} > 0 
ShowMessage temp = Information, OK, Your WoW Window is not in the top left hand corner of your screen. 
ShowMessage temp = Please follow the instructions on MPSGames.com to fix this issue. 
Stop 
End 

//Target Enemy, Have Pet Retrieve. Loot when energy bar depleted. 
LoadRGB 204,118 
If {RGBRed} <> 39 and {RGBGreen} <> 99 and {RGBBlue} <> 63 
Keys B 
Delay 500 
MousePos 995,681 
DragTo 90, 123 
LeftClick 
Delay 1000 
Keys B 
End 
MousePos 979, 734 
LeftClick 
LeftClick 
LeftClick 
//target enemy 
Keys ~{TAB} 
Delay 2000 

LoadRGB $enemybarx,$enemybary 
If {RGBRed} >= $minr AND {RGBRed} <= $maxr AND {RGBGreen} >= $ming AND {RGBGreen} <= $maxg AND {RGBBlue} >= $minb AND {RGBBlue} <= $maxb 
Keys ^1 
Delay 12000 
Keys ^2 
Delay 7000 
Keys 1 
KeyDown q 90 
LoadRGB 265,80 
While {RGBGreen} > 100 
LoadRGB 265,80 
End 
Delay 3000 
Call LootCarcass 
End 

//Procedure to Skin the Carcass 
Procedure LootCarcass 
set timelook=0 
set checky=400 
set checkx=135 
set foundit=1 
set nothingleft=0 

//Find the Carcass Again 
While $checky < 738 and $foundit=1 
set timelook=0 
If $checkx >= 870 
Compute checky=$checky+60 
Compute checkx=135 
End 

MousePos $checkx, $checky 
Delay 30 

//check pixel for special color 

LoadRGB 987, 688 

//START STANDARD LOOT NEXT UP IS SKINNING LOOT 
If {RGBRed} >= $minr_line AND {RGBRed} <= $maxr_line AND {RGBGreen} >= $ming_line AND {RGBGreen} <= $maxg_line AND {RGBBlue} >= $minb_line AND {RGBBlue} <= $maxb_line 
Compute storex=$checkx 
Compute storey=$checky 

//put mouse over lootable mob 
Delay 2000 
MousePos $storex, $storey 
RightClick 

//Loot Item 1 
Delay 1500 
MousePos 45,230 
Delay 500 
LeftClick 

//Loot Item 2 
Delay 1500 
MousePos 45,272 
Delay 500 
LeftClick 

//Loot Item 3 
Delay 150 
MousePos 45,327 
Delay 150 
LeftClick 

//Loot Item 4 
Delay 150 
MousePos 45,360 
Delay 150 
LeftClick 

//close loot window 
Delay 150 
MousePos 178,165 
LeftClick 
Delay 1500 

If $skinnable=1 
MousePos $storex, $storey 
RightClick 
Delay 1000 
//Loot Skin 
Delay 5000 
MousePos 45,230 
Delay 500 
LeftClick 
Delay 3000 
End 

//found something keep looking/looping 
set timelook=1 
Else 
Compute checkx=$checkx+25 
If $checky >=738 
set checky=400 
set checkx=135 
//looped through whole thing and found nothing exit now 
If $timelook=0 
set nothingleft=1 
Exit 
End 
End 
//End If 
End 
//END STANDARD LOOT NEXT UP IS SKINNING LOOT 

//End While 
End 
//End Procedure 
End