Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 03:38

  • Please register to post and access all features, it's quick, easy and FREE!

 

AutoIt3 Vampiir Hunting Macro

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2005
Posts: 1,013
Received Thanks: 19
Yep, nothing too fancy. It will keep up parry/haste, end tap when you need it, HoT when you need it, claw when you have power and dont need to be casting any of that. Pull with Bolt and the lowbie dd, because I'm too lazy to add in the bolt timer. Style Eyeshot backed up with VF, loot when the mobs dead.
Only sends keys for tab to target next, and to loot. The rest is done wiht mouseclick so you can chat while this is running without too much trouble.
Wanna exit or pause it? Just alt tab to a different window. etc.


First, Run this config to set-up Mouse position ini file...
--------------------------------------------

MsgBox(0,"Chat Friendly ini addition","Move mouse over first attack")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","Attack1posx",$tem p[0])
IniWrite("Vamp.ini","chat","Attack1posy",$tem p[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over second attack")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","Attack2posx",$tem p[0])
IniWrite("Vamp.ini","chat","Attack2posy",$tem p[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over Bolt")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","boltposx",$temp[0])
IniWrite("Vamp.ini","chat","boltposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse DD")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","ddposx",$temp[0])
IniWrite("Vamp.ini","chat","ddposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over Haste")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","hasteposx",$temp[0])
IniWrite("Vamp.ini","chat","hasteposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over Parry")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","parryposx",$temp[0])
IniWrite("Vamp.ini","chat","parryposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over HOT")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","hotposx",$temp[0])
IniWrite("Vamp.ini","chat","hotposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over Claw")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","clawposx",$temp[0])
IniWrite("Vamp.ini","chat","clawposy",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over End Tap")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","endposx",$temp[0])
IniWrite("Vamp.ini","chat","endposy",$temp[1])


MsgBox(0,"Chat Friendly ini addition","Move mouse over Face Macro")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","Facex",$temp[0])
IniWrite("Vamp.ini","chat","Facey",$temp[1])
MsgBox(0,"Chat Friendly ini addition","Move mouse over a place to click to clear target")
$temp = MouseGetPos()
IniWrite("Vamp.ini","chat","ClearTargetx",$te mp[0])
IniWrite("Vamp.ini","chat","ClearTargety",$te mp[1])


-----------------------------------------------------< End that one

Begin the main Vamp script-------------------------------------------&#62;

; Lazy Vamp 1.0

; Timers
&#036;bolttimer = 33000
&#036;hastetimer = 55000
&#036;parrytimer = 55000
&#036;hprecast = 17000
&#036;hottimer = 17000
&#036;casttimer = 3000
&#036;hottic = TimerInit() - &#036;hottimer
&#036;hastetic = TimerInit() - &#036;hastetimer
&#036;parrytic = TimerInit() - &#036;parrytimer
&#036;hptic = TimerInit() - &#036;hprecast
&#036;cast = TimerInit() - &#036;casttimer
&#036;bolttic = Timerinit() - &#036;bolttimer

; Vamp ini addition reads
Dim &#036;ESpos[2]
Dim &#036;VFpos[2]
Dim &#036;boltpos[2]
Dim &#036;ddpos[2]
Dim &#036;hastepos[2]
Dim &#036;parrypos[2]
Dim &#036;hotpos[2]
Dim &#036;clawpos[2]
Dim &#036;endtpos[2]
Dim &#036;EndPos[2]
Dim &#036;Face[2]
Dim &#036;ClearTarget[2]

&#036;ESpos[0] = IniRead("Vamp.ini","chat","Attack1posx","")
&#036;ESpos[1] = IniRead("Vamp.ini","chat","Attack1posy","")
&#036;VFpos[0] = IniRead("Vamp.ini","chat","Attack2posx","")
&#036;VFpos[1] = IniRead("Vamp.ini","chat","Attack2posy","")
&#036;boltpos[0] = IniRead("Vamp.ini","chat","boltposx","")
&#036;boltpos[1] = IniRead("Vamp.ini","chat","boltposy","")
&#036;ddpos[0] = IniRead("Vamp.ini","chat","ddposx","")
&#036;ddpos[1] = IniRead("Vamp.ini","chat","ddposy","")
&#036;hastepos[0] = IniRead("Vamp.ini","chat","hasteposx","")
&#036;hastepos[1] = IniRead("Vamp.ini","chat","hasteposy","")
&#036;parrypos[0] = IniRead("Vamp.ini","chat","parryposx","")
&#036;parrypos[1] = IniRead("Vamp.ini","chat","parryposy","")
&#036;hotpos[0] = IniRead("Vamp.ini","chat","hotposx","")
&#036;hotpos[1] = IniRead("Vamp.ini","chat","hotposy","")
&#036;clawpos[0] = IniRead("Vamp.ini","chat","clawposx","")
&#036;clawpos[1] = IniRead("Vamp.ini","chat","clawposy","")
&#036;endtpos[0] = IniRead("Vamp.ini","chat","endposx","")
&#036;endtpos[1] = IniRead("Vamp.ini","chat","endposy","")
&#036;Face[0] = IniRead("Vamp.ini","chat","Facex","")
&#036;Face[1] = IniRead("Vamp.ini","chat","Facey","")
&#036;ClearTarget[0] = IniRead("Vamp.ini","chat","ClearTargetx","")
&#036;ClearTarget[1] = IniRead("Vamp.ini","chat","ClearTargety","")

MsgBox(1,"Health Bar selection","Point at Healpoint on healthbar, roughly 60% Health")
&#036;Healthpos = MouseGetPos()
&#036;Healthfull = PixelGetColor(&#036;Healthpos[0],&#036;Healthpos[1])

MsgBox(1,"Mana","Point at mana bar at 25%")
&#036;ManaPos = MouseGetPos()
&#036;Powerfull = PixelGetColor(&#036;ManaPos[0],&#036;ManaPos[1])

MsgBox(1,"Endurance","Point at Endurance Bar at 10%")
&#036;EndPos = MouseGetPos()
&#036;Endfull = PixelGetColor(&#036;EndPos[0],&#036;EndPos[1])

MsgBox(1,"Target","Point at the &#39;H&#39; in Hit in front of the target&#39;s health")
&#036;Targetpos = MouseGetPos()
&#036;Target = PixelGetColor(&#036;Targetpos[0],&#036;Targetpos[1])

WinActivate("Dark")


While 1
WinWaitActive("Dark")
While PixelGetColor(&#036;Targetpos[0],&#036;Targetpos[1]) <> &#036;Target
Send("{TAB}")
MouseClick("left",&#036;Face[0],&#036;Face[1],1,0)
Sleep(2000)
WinWaitActive("Dark")
WEnd
MouseClick("left",&#036;boltpos[0],&#036;boltpos[1],1,0)
MouseClick("left",&#036;ddpos[0],&#036;ddpos[1],1,0)
&#036;cast = TimerInit()

While PixelGetColor(&#036;Targetpos[0],&#036;Targetpos[1]) = &#036;Target
Combat()
Sleep(1000)
WinWaitActive("Dark")
WEnd

Loot()
Loot()
Loot()

WEnd


Func Combat()
MouseClick("left",&#036;ESpos[0],&#036;ESpos[1],1,0)
MouseClick("left",&#036;VFpos[0],&#036;VFpos[1],1,0)
If TimerDiff(&#036;cast) > &#036;casttimer Then
If PixelGetColor(&#036;ManaPos[0],&#036;ManaPos[1]) <> &#036;Powerfull Then
Select
Case ((PixelGetColor(&#036;Healthpos[0],&#036;Healthpos[1]) <> &#036;Healthfull) AND (TimerDiff(&#036;hottic) > &#036;hottimer))
Mouseclick("left",&#036;hotpos[0],&#036;hotpos[1],1,0)
&#036;hottic = TimerInit()
Case PixelGetColor(&#036;EndPos[0],&#036;EndPos[1]) <> &#036;Endfull
Mouseclick("left",&#036;endtpos[0],&#036;endtpos[1],1,0)
Case ((TimerDiff(&#036;hptic) > &#036;hprecast) AND (TimerDiff(&#036;hastetic) > &#036;hastetimer))
Mouseclick("left",&#036;hastepos[0],&#036;hastepos[1],1,0)
&#036;hptic = TimerInit()
&#036;hastetic = TimerInit()
Case ((TimerDiff(&#036;hptic) > &#036;hprecast) AND (TimerDiff(&#036;parrytic) > &#036;parrytimer))
Mouseclick("left",&#036;parrypos[0],&#036;parrypos[1],1,0)
&#036;hptic = TimerInit()
&#036;parrytic = TimerInit()
Case Else
Mouseclick("left",&#036;Clawpos[0],&#036;Clawpos[1],1,0)
EndSelect
&#036;cast = TimerInit()
EndIf
EndIf

EndFunc

Func Loot()
Send("h")
Sleep(20)
Send("g")
Send("g")
EndFunc

------------------------------------< End of that one too



d-aze is offline  
Old   #2
 
elite*gold: 0
Join Date: Aug 2007
Posts: 33
Received Thanks: 2
Wie hoch ist das Risiko zu bewerten dass es auf nem Live Server detected wird ?
Habs auf nem Freeshard probiert, funktioniert recht gut, wobei ich anstatt einem Face Macro ein Stick Macro machen würde.

Hmm, und irgendwie macht mein Vamp andauernd nen Endutap und nie ne DMG Claw, hab dann die Icons gewechselt


dila is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Paladin Hunting Macro
This is the solution for all Paladins who are tired of switchig their chants. CODE SetActiveWindow Dark Age of Camelot, Copyright © 2001-05...
2 Replies - General Gaming Discussion
Autoit3 Help
Ich versuche einen AFK bot zu machen^^ Hier mal mein script: HotKeySet( "{F8}" , "Start") HotKeySet( "{F9}", "Pause") HotKeySet( "{F10}",...
42 Replies - AutoIt
Vamp Hunting Macro
For the most part I have been making scripts using macroexpress. Its a pretty easy program that doesnt require any knowledge of languages so you pick...
0 Replies - General Gaming Discussion
Bonedancer Hunting Macro
Requirements: AC-Tool // This line is necessary to select the proper window SetActiveWindow Dark Age of Camelot, Copyright © 2001-03 Mythic...
0 Replies - General Gaming Discussion



All times are GMT +1. The time now is 03:38.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.