|
Well early on in the game I realized I was probably going to bust my keyboard hittig the darn TAB key so much, so I wrote a simple auto-it script that detects a specific node, alarms me (sweet chicks voice saying "Target Aquired"), and when I drive up to it spams the minning key for me.
In anycase I have the auto-it script version of this and would love to share it with whoever it will work for.
Currently it only does.
1. Pause script/Engage script
2. Nodes it currently handels is just Sandwashed Stones
3. Harvest key is 6 for Minning
You still have to do the driving, and your windows at least your target window must be in the default area. Oh one more bad thing is, I run in 1600x1200 yeah got the bomb video card so I can afford the resolution.
Oh please disreguard the SoundPlay stuff, unless you would like me to send you my sound waves.
It's more a less a start to something bigger if someone wants to pick up the ball and work with me on this. The concepts use in the auto crafting bot could be used here, Window where the target box is at, then look for white pixels for the specific nodes out there. Auto learn the buff keys or in this case the harvest keys in union with the Hunted node. The Idea is there, maybe some code who knows. Let me know if someone out there wants to work with me on this.
SoundPlay("c:\intro.wav");
$answer = MsgBox(4, "Auto Harvest","Do you want to activate this script?")
HotKeySet("!{F11}", "TogglePause")
HotKeySet("^{F11}", "ScriptEnd")
Global $Paused
If $answer = 7 Then
MsgBox(0, "Good Call", "OK. Bye!")
Exit
EndIf
$turn=0
$done=0;
$tracker=2
$mob=0
$resourceexist=2
TogglePause();
AutoItSetOption("SendKeyDelay", 0235);
AutoItSetOption("SendKeyDownDelay", 0100);
WinWaitActive("EverQuest II");
;------------------------------------------- Main Loop ---------------
Sleep(2000);
While $tracker > 1
Sleep(250);
Sleep(500);
Send ("{TAB}");
;-- Note the Pixel placement below is for me at 1600x1200 sandwash stones
if PixelGetColor(41,92) > 13158600 AND PixelGetColor(69,92) > 13158600 AND PixelGetColor(115,92) > 13158600 Then
SoundPlay("c:\located.wav");
Sleep(2000);
while $resourceexist > 1
Send("6"); // Provided you are stopped this will auto harvest hot key number 6 Minning for me
sleep(1000);
;------ The blow check is to see if the sandwashed stones is gone
if PixelGetColor(41,92) <> 16777215 AND PixelGetColor(69,92) <> 16777215 AND PixelGetColor(115,92) <> 16777215 Then
$resourceexist = 0;
endif
Wend
$resourceexist=2;
Endif
WEnd
;------------------------------------------- Main Loop ---------------
Func ScriptEnd()
SoundPlay("c:\endtrack.wav");
Exit;
EndFunc
Func TogglePause()
SoundPlay("c:\paused.wav");
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
SoundPlay("c:\unpaused.wav");
EndFunc
; Returns an array with element1=RED, element2=GREEN, element3=BLUE
Func PixelGetRGB($x, $y)
$hex = Hex(PixelGetColor($x, $y), 6)
$r = Dec(StringRight($hex, 2)) & "|"
$g = Dec(StringMid($hex, 3,2)) & "|"
$b = Dec(StringLeft($hex, 2))
Return StringSplit($r & $g & $b, "|")
EndFunc
Thanks and happy hunting
Metalo
|