Run
FREE WoW BOTS at 1024x768 in WINDOW MODE. Do not change any default settings, as this macro relies on default window settings in WoW. If you aren't running the default WoW interface, this most likely WILL NOT work. Also, your window MUST BE at the very top left hand corner of the screen. You can accomplish this by changing your resolution to 800x600 in window mode, then back to 1024x768. DO NOT MOVE YOUR SCREEN AFTER THIS! I will add a function where you can move the screen around eventually, but that's for v1.5!
2. You must be running the default "blue" Windows XP theme! This is crucial due to pixel color checks. Being one pixel off can ruin your macro! The theme is called "Windows XP" in Windows. Ya can't miss it.
3. CLOSE YOUR MINI MAP! Some colors in the mini map can confuse the macro, so close it before running this!
4. TURN ON "CLICK TO MOVE" in your "Interface Options". Press ESC then click Interface Options. Then turn on "CLICK TO MOVE!" IF YOU DON'T DO THIS IT WON'T WORK AT ALL!
7. I haven't put any sort of looping mechanism so put the "number of times to run" at an acceptable number in ACTool.
8. Find an area with non aggro mobs to use this macro in......it will not attack aggro mobs you jump you. Trying to figure out a way to handle this, but there is no foolproof method. If that works, it would just be an auto attack/loot/skin bot. Not there just yet!
Have fun. Tested this quite a bit works very well. However servers are kinda empty at 8 AM so not too many dead mobs lying around. I killed a ton and used it, worked very well!
After you've got this portion setup, open up ACTool and paste in the macro below.
FYI, Auto Mining is next! Coming up tomorrow. :)
//WoW Auto Skin Bot v1.25 MPS
//This macro is a single macro created by and for MPSGames.com members.
//The origin of this software must not be misrepresented, either by
//explicit claim or by omission. This notice may not be removed.
//This software may not be resold without explicit permission from mpsgames.com
SetActiveWindow World of Warcraft
Constants
//Find Bait Box
minr=150
maxr=193
ming=150
maxg=193
minb=150
maxb=193
//Other Vars
storex=0
storey=0
checkx=7
checky=50
foundit=0
temp = Information
timelook = 0
End
//Find Bait Box
set minr=165
set maxr=193
set ming=165
set maxg=193
set minb=165
set maxb=193
//Other Vars
set storex=0
set storey=0
set checkx=7
set checky=50
set foundit=0
set temp = Information
set timelook = 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
//AFK Killer
//KeyDown {DOWN} 1
//Delay 1500
//KeyDown {UP} 1
//Delay 1500
//Keys 0
//Delay 500
set storex=0
set storey=0
set foundit=0
set checkx=7
set checky=100
//Procedure DumpRGB
// Delay 5000
// LoadRGB 967,674
//End
//Find the Fishing Lure
While $checky < 738 AND $foundit=0
If $checkx >= 1022
Compute checky=$checky+50
Compute checkx=7
End
//check pixel for special color
MousePos $checkx, $checky
Delay 30
LoadRGB 967, 674
Call CaptureCarcass
End
//Procedure to Capture Carcass Location
Procedure CaptureCarcass
If {RGBRed} >= $minr AND {RGBRed} <= $maxr AND {RGBGreen} >= $ming AND {RGBGreen} <= $maxg AND {RGBBlue} >= $minb AND {RGBBlue} <= $maxb
//SetActiveWindow Untitled - Notepad
set foundit=1
Compute storex=$checkx
Compute storey=$checky +1
MousePos $storex, $storey
//Check to make sure mouse isn't over carcass to ensure movement
LoadRGB 967,674
// Call DumpRGB
// Exit
If {RGBRed} >= $minr AND {RGBRed} <= $maxr AND {RGBGreen} >= $ming AND {RGBGreen} <= $maxg AND {RGBBlue} >= $minb AND {RGBBlue} <= $maxb
While {RGBRed} >= $minr AND {RGBRed} <= $maxr AND {RGBGreen} >= $ming AND {RGBGreen} <= $maxg AND {RGBBlue} >= $minb AND {RGBBlue} <= $maxb
Compute storex=$checkx
Compute storey=$storey +10
MousePos $storex, $storey
Delay 1500
LoadRGB 967, 674
End
RightClick
Delay 8000
//Loop to Zoom In
Keys {END}
Loop 3
Keys {HOME}
Delay 30
End
//Now Find Carcass Again
Call SkinCarcass
Else
//Move to Carcass
Delay 500
RightClick
Delay 5000
//Loop to Zoom In
Keys {END}
Loop 3
Keys {HOME}
Delay 30
End
Delay 3000
//Now Find Carcass Again
Call SkinCarcass
End
Else
Compute checkx=$checkx+50
If $checky >=738
set checky=100
set checkx=7
//Start AFK Killer
KeyDown {DOWN} 1
Delay 1500
KeyDown {UP} 1
Delay 1500
//End AFK Killer
Keydown {RIGHT} 650
End
End
End
//Procedure to Skin the Carcass
Procedure SkinCarcass
set timelook=0
set checky=100
set foundit=0
set checkx=7
//Find the Carcass Again
While $checky < 738 AND $foundit=0
If $checkx >= 1022
Compute checky=$checky+30
Compute checkx=7
End
//check pixel for special color
MousePos $checkx, $checky
Delay 30
LoadRGB 967, 674
If {RGBRed} >= $minr AND {RGBRed} <= $maxr AND {RGBGreen} >= $ming AND {RGBGreen} <= $maxg AND {RGBBlue} >= $minb AND {RGBBlue} <= $maxb
Compute storex=$checkx
Compute storey=$checky
MousePos $storex, $storey
RightClick
Delay 5000
MousePos 50,230
Delay 500
RightClick
set checkx=7
set checky=100
Delay 6000
Keys {END}
Loop 3
Keys {END}
Delay 30
End
Delay 1000
KeyDown {Right} 650
Exit
Else
Compute checkx=$checkx+75
If $checky >=738
set checky=100
set checkx=7
set timelook=timelook+1
If $timelook > 2
Keys {END}
Loop
Keys {END}
Delay 30
End
Delay 1000
Exit
End
End
End
End
//ignore for debugging
//Call DumpRGB
//Procedure DumpRGB
// Delay 5000
// LoadRGB 967,674
// SetActiveWindow Untitled - Notepad
// Keys {RGBRed}
// Keys {Return}
// Keys {RGBGreen}
// Keys {Return}
// Keys {RGBBlue}
// Keys {Return}
// Stop
//End
End
