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------------------------------------------->
; Lazy Vamp 1.0
; Timers
$bolttimer = 33000
$hastetimer = 55000
$parrytimer = 55000
$hprecast = 17000
$hottimer = 17000
$casttimer = 3000
$hottic = TimerInit() - $hottimer
$hastetic = TimerInit() - $hastetimer
$parrytic = TimerInit() - $parrytimer
$hptic = TimerInit() - $hprecast
$cast = TimerInit() - $casttimer
$bolttic = Timerinit() - $bolttimer
; Vamp ini addition reads
Dim $ESpos[2]
Dim $VFpos[2]
Dim $boltpos[2]
Dim $ddpos[2]
Dim $hastepos[2]
Dim $parrypos[2]
Dim $hotpos[2]
Dim $clawpos[2]
Dim $endtpos[2]
Dim $EndPos[2]
Dim $Face[2]
Dim $ClearTarget[2]
$ESpos[0] = IniRead("Vamp.ini","chat","Attack1posx","")
$ESpos[1] = IniRead("Vamp.ini","chat","Attack1posy","")
$VFpos[0] = IniRead("Vamp.ini","chat","Attack2posx","")
$VFpos[1] = IniRead("Vamp.ini","chat","Attack2posy","")
$boltpos[0] = IniRead("Vamp.ini","chat","boltposx","")
$boltpos[1] = IniRead("Vamp.ini","chat","boltposy","")
$ddpos[0] = IniRead("Vamp.ini","chat","ddposx","")
$ddpos[1] = IniRead("Vamp.ini","chat","ddposy","")
$hastepos[0] = IniRead("Vamp.ini","chat","hasteposx","")
$hastepos[1] = IniRead("Vamp.ini","chat","hasteposy","")
$parrypos[0] = IniRead("Vamp.ini","chat","parryposx","")
$parrypos[1] = IniRead("Vamp.ini","chat","parryposy","")
$hotpos[0] = IniRead("Vamp.ini","chat","hotposx","")
$hotpos[1] = IniRead("Vamp.ini","chat","hotposy","")
$clawpos[0] = IniRead("Vamp.ini","chat","clawposx","")
$clawpos[1] = IniRead("Vamp.ini","chat","clawposy","")
$endtpos[0] = IniRead("Vamp.ini","chat","endposx","")
$endtpos[1] = IniRead("Vamp.ini","chat","endposy","")
$Face[0] = IniRead("Vamp.ini","chat","Facex","")
$Face[1] = IniRead("Vamp.ini","chat","Facey","")
$ClearTarget[0] = IniRead("Vamp.ini","chat","ClearTargetx","")
$ClearTarget[1] = IniRead("Vamp.ini","chat","ClearTargety","")
MsgBox(1,"Health Bar selection","Point at Healpoint on healthbar, roughly 60% Health")
$Healthpos = MouseGetPos()
$Healthfull = PixelGetColor($Healthpos[0],$Healthpos[1])
MsgBox(1,"Mana","Point at mana bar at 25%")
$ManaPos = MouseGetPos()
$Powerfull = PixelGetColor($ManaPos[0],$ManaPos[1])
MsgBox(1,"Endurance","Point at Endurance Bar at 10%")
$EndPos = MouseGetPos()
$Endfull = PixelGetColor($EndPos[0],$EndPos[1])
MsgBox(1,"Target","Point at the 'H' in Hit in front of the target's health")
$Targetpos = MouseGetPos()
$Target = PixelGetColor($Targetpos[0],$Targetpos[1])
WinActivate("Dark")
While 1
WinWaitActive("Dark")
While PixelGetColor($Targetpos[0],$Targetpos[1]) <> $Target
Send("{TAB}")
MouseClick("left",$Face[0],$Face[1],1,0)
Sleep(2000)
WinWaitActive("Dark")
WEnd
MouseClick("left",$boltpos[0],$boltpos[1],1,0)
MouseClick("left",$ddpos[0],$ddpos[1],1,0)
$cast = TimerInit()
While PixelGetColor($Targetpos[0],$Targetpos[1]) = $Target
Combat()
Sleep(1000)
WinWaitActive("Dark")
WEnd
Loot()
Loot()
Loot()
WEnd
Func Combat()
MouseClick("left",$ESpos[0],$ESpos[1],1,0)
MouseClick("left",$VFpos[0],$VFpos[1],1,0)
If TimerDiff($cast) > $casttimer Then
If PixelGetColor($ManaPos[0],$ManaPos[1]) <> $Powerfull Then
Select
Case ((PixelGetColor($Healthpos[0],$Healthpos[1]) <> $Healthfull) AND (TimerDiff($hottic) > $hottimer))
Mouseclick("left",$hotpos[0],$hotpos[1],1,0)
$hottic = TimerInit()
Case PixelGetColor($EndPos[0],$EndPos[1]) <> $Endfull
Mouseclick("left",$endtpos[0],$endtpos[1],1,0)
Case ((TimerDiff($hptic) > $hprecast) AND (TimerDiff($hastetic) > $hastetimer))
Mouseclick("left",$hastepos[0],$hastepos[1],1,0)
$hptic = TimerInit()
$hastetic = TimerInit()
Case ((TimerDiff($hptic) > $hprecast) AND (TimerDiff($parrytic) > $parrytimer))
Mouseclick("left",$parrypos[0],$parrypos[1],1,0)
$hptic = TimerInit()
$parrytic = TimerInit()
Case Else
Mouseclick("left",$Clawpos[0],$Clawpos[1],1,0)
EndSelect
$cast = TimerInit()
EndIf
EndIf
EndFunc
Func Loot()
Send("h")
Sleep(20)
Send("g")
Send("g")
EndFunc
------------------------------------< End of that one too
 |
