Autoskinning Macro [ENG]

[individual]

This macro was made using ACTool...

Here's what ya need to do:
1. Run WoW 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!

After you've got this portion setup, open up ACTool and paste in the macro below.

//WoW Auto Skin Bot v1.0
SetActiveWindow World of Warcraft
Constants
//Find Bait Box
minr=60
maxr=95
ming=150
maxg=195
minb=40
maxb=75

//Lure Color
minlure_r=98
maxlure_r=255
minlure_g=32
maxlure_g=174
minlure_b=32
maxlure_b=132

//Other Vars
storex=0
storey=0
checkx=7
checky=50
foundit=0
temp = Information
timelook = 0
End


//Find Bait Box
set minr=60
set maxr=95
set ming=150
set maxg=195
set minb=40
set maxb=75

//Lure Color
set minlure_r=98
set maxlure_r=255
set minlure_g=32
set maxlure_g=174
set minlure_b=32
set maxlure_b=132

//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 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 945,717
SetActiveWindow Untitled - Notepad
Keys {RGBRed}
Keys {Return}
Keys {RGBGreen}
Keys {Return}
Keys {RGBBlue}
Keys {Return}
Stop
End

//Find the Fishing Lure
While &#036;checky < 738 AND &#036;foundit=0
If &#036;checkx >= 1022
Compute checky=&#036;checky+30
Compute checkx=7
End
//check pixel for special color
MousePos &#036;checkx, &#036;checky
Delay 30
LoadRGB 945, 717
Call CaptureCarcass
End


//Procedure to Capture Lure Location
Procedure CaptureCarcass
If {RGBRed} >= &#036;minr AND {RGBRed} <= &#036;maxr AND {RGBGreen} >= &#036;ming AND {RGBGreen} <= &#036;maxg AND {RGBBlue} >= &#036;minb AND {RGBBlue} <= &#036;maxb
//SetActiveWindow Untitled - Notepad
set foundit=1
Compute storex=&#036;checkx
Compute storey=&#036;checky +1
MousePos &#036;storex, &#036;storey
//Check to make sure mouse isn't over carcass to ensure movement
LoadRGB 945,717
// Call DumpRGB
// Exit
If {RGBRed} >= &#036;minr AND {RGBRed} <= &#036;maxr AND {RGBGreen} >= &#036;ming AND {RGBGreen} <= &#036;maxg AND {RGBBlue} >= &#036;minb AND {RGBBlue} <= &#036;maxb
While {RGBRed} >= &#036;minr AND {RGBRed} <= &#036;maxr AND {RGBGreen} >= &#036;ming AND {RGBGreen} <= &#036;maxg AND {RGBBlue} >= &#036;minb AND {RGBBlue} <= &#036;maxb
Compute storex=&#036;checkx
Compute storey=&#036;storey +10
MousePos &#036;storex, &#036;storey
Delay 1500
LoadRGB 945, 717
End
RightClick
Delay 5000
//Loop to Zoom In
Keys {END}
Keys {HOME}
Loop 8
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}
Keys {HOME}
Loop 8
Keys {HOME}
Delay 30
End
//Now Find Carcass Again
Call SkinCarcass
End
Else
Compute checkx=&#036;checkx+30
If &#036;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} 450
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 &#036;checky < 738 AND &#036;foundit=0
If &#036;checkx >= 1022
Compute checky=&#036;checky+30
Compute checkx=7
End
//check pixel for special color
MousePos &#036;checkx, &#036;checky
Delay 30
LoadRGB 945, 717
If {RGBRed} >= &#036;minr AND {RGBRed} <= &#036;maxr AND {RGBGreen} >= &#036;ming AND {RGBGreen} <= &#036;maxg AND {RGBBlue} >= &#036;minb AND {RGBBlue} <= &#036;maxb
Compute storex=&#036;checkx
Compute storey=&#036;checky
MousePos &#036;storex, &#036;storey
RightClick
Delay 5000
MousePos 50,230
Delay 500
RightClick
Delay 3000
Keys {END}
Keys {HOME}
Loop 8
Keys {END}
Delay 30
End
Delay 1000
KeyDown {Right} 450
Exit
Else
Compute checkx=&#036;checkx+75
If &#036;checky >=738
set checky=100
set checkx=7
set timelook=timelook+1
If &#036;timelook > 2
Keys {END}
Keys {HOME}
Loop 8
Keys {END}
Delay 30
End
Delay 1000
Exit
End
End
End
End
End

Have fun

[Noir]

brrr. ein win xp makro.. da mach ich das doch lieber per hand

dennoch ein nettes makro