//WoW Auto Attack/Loot Macro v1.5

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