Hunt Sk style WIP

[nyghteyes]

Ok Had this running last night but wanted to change from spell routines too mq2cast so changed it around abit and wont be able too get too a comp with EQ for awhile. anyone wants too test lemme know how it goes.

The Acquiretarget.inc I edited the "Tooclosedistance" from 150 to 10 , if you want it too pull anything just set too 1.

|BASE CODE STOLEN FROM FROM RangerPuller Alpha Writen by Omper

|Extensively Modified For Afk Use by Nyghteyes 
|Updated for 85 Group SK to check buffs and accept Rez. Will also AE hate incase of an add.
|Explosion of Hatred/Vicious Bite/Encroaching Darkness are hardcoded so read through the entire mac and Rem as necessary 
|Pet hold is used. If Spells arent memmed Gem8 is used too buff.
|Requires Mq2Cast & Moveutils (only for sticking during combat)


#include AcquireTarget.inc
#event Dead "#*#You have been slain#*#"
#event GotHIT "#*#hits YOU for#*#"
#event GotHIT "#*#slashes YOU for#*#"
#event GotHIT "#*#crushes YOU for#*#"
#event GotHIT "#*#bashes YOU for#*#"
#event GotHIT "#*#kicks YOU for#*#"
#event GotHIT "#*#smashes YOU for#*#"
#event GotHIT "#*#mauls YOU for#*#"
#event GotHIT "#*#gores YOU for#*#"
#event GotHIT "#*#pierces YOU for#*#"
#event GotHIT "#*#kicks YOU for#*#"
#event GotHIT "#*#bashes YOU for#*#" 
#event Wornoff "#*#has worn off#*#"


Sub Main

|---Change your spells here
|Gem1
/declare Lifetap 	outer "Touch of Tharoff Rk. II"
|Gem2
/declare Terror 	outer "Terror of Jelvalak Rk. II"
|Gem3
/declare Challenge 	outer "Challenge for Power"
|Gem8
/declare Shroud 	outer "Shroud of the Blightborn Rk. II"
|Gem8
/declare Killproc	outer "Remorseless Demeanor Rk. II"
|Gem8
/declare HPBuff		outer "Drape of Korafax Rk. II"
|Gem6
/declare Conversion	outer "Venril's Covenant"
|Gem9
/declare Defproc	outer "Umbral Skin"
|Gem8
/declare SkellyPet	outer "Minion of Sebilis Rk. II"
|Gem7
/declare PetHaste	outer "Gift of Sathir Rk. II"

|---No touchy touchy these

/call InitializeTargettingVariables
/declare AnchorX float outer
/declare AnchorY float outer
/declare fXLoc float outer 0.0
/declare fYLoc float outer 0.0
/declare Agro outer FALSE
/declare Buffme outer TRUE

/varset AnchorX ${Me.X}
/varset AnchorY ${Me.Y}

/pet hold

:start
	/keypress esc
	/doevents
	/if (${Buffme}) /call Buffup
	/if (${Me.PctMana} < 30) /call Meditate
	/if (!${Casting.Ready[Explosion of Hatred]}) /goto :start
	/delay 1s
	/if (${Agro}) /call combat 
	/if (!${Agro}) /cleanup
	/doevents
	/delay 1s           
	/if (!${Agro}) /call Tarnpc
	/goto  :start 
	
/return

Sub Tarnpc   
	/call AcquireTarget
	/delay 1s
	/doevents
	:holdforaa
	/if (!${Casting.Ready[Explosion of Hatred]} && ${Target.ID}) /goto :holdforaa
	/if (${Target.ID}) /call combat     

/return

Sub combat
	/attack on
	/if (!${Target.ID}) {
	/varset Agro FALSE
	/goto :End
	}

	/doevents
   	:loop
   	/face nolook
   	/if (${Target.Distance} > 17) {
       		/keypress forward hold  
	}
   	/if (${Target.Distance} < 10) {
       		/Pet attack  
	}
	/if (${Target.Distance} < 90) {
		/keypress back hold
     		/timed 1 /keypress back
    	} else {
		/goto :loop
	}
	/call pull
	/if (!${Target.ID}) /goto :end
	/call nuke
	:end			
            
/return

Sub Event_GotHIT
	/varset Agro TRUE   
   
/return



Sub Detectobst
	/delay 2
	/if (${fXLoc}==${Me.X}) /if (${fYLoc}==${Me.Y}) /call Hitobst
	/varset fXLoc ${Me.X}
	/varset fYLoc ${Me.Y}
/return

Sub Hitobst
	/keypress forward
	/keypress back hold
   
	/if (${Math.Rand[2]}) {   
	        /delay 2s   
        	/keypress back
	        /keypress right hold
	        /delay 8
	        /keypress right
       
	        /delay 2s
        	/keypress back
	        /keypress left hold
	        /delay 8
	        /keypress left
    	}
	/delay 10
|	/keypress forward hold
/return

Sub pull
	/delay 5
	/Casting ${Terror}
	/face 
/return
 

Sub Event_dead
/varset agro FALSE
/if (${Window[RespawnWnd].Open}) {

	:tryrez
		/if (${Window[ConfirmationDialogBox].Open}) {
		/delay 6
		/notify ConfirmationDialogBox Yes_Button  leftmouseup 
		/delay 20 !${Window[ConfirmationDialogBox].Open}
		/delay 5
		/if (!${Window[ConfirmationDialogBox].Open} && ${Window[RespawnWnd].Open}) {
			/notify RespawnWnd RW_OptionsList listselect 2
			/delay 8
			/notify RespawnWnd RW_SelectButton leftmouseup
			/delay 1s !${Window[RespawnWnd].Open}
			/delay 5
			/goto :rdytoloot
		}
	}
	/if (${Window[RespawnWnd].Open}) {
		/delay 10
		/goto :tryrez
	}
}
/call Buffup
/return

 
Sub nuke

	:hold
	/delay 7
	/if (!${Target.ID}) /goto :endnuke
	/if (${Target.Distance} > 90) /goto :hold
  /if (${Casting.Ready[Encroaching Darkness|alt]}) /Casting "Encroaching Darkness|alt"
  /if (${Casting.Ready[Explosion of Hatred|alt]}) /Casting "Explosion of Hatred|alt"
	/pet attack
	/face
	/delay 1s
	/stick 12
	:keepnuking
  /doability bash
	/delay 1s
  /doability taunt
	/if (!${Target.ID}) /goto :endnuke
	/if (${Me.PctHPs} < 30 && ${Casting.Ready[Leech Touch]}) /Casting "Leech Touch|alt"
        /if (${Casting.Ready[Explosion of Hatred|alt]}) /Casting "Explosion of Hatred|alt"
	/if (${Casting.Ready[Vicious Bite of Chaos|alt]}) /Casting "Vicious Bite of Chaos|alt"
	/if (!${Me.Song[${Challenge}].ID} && ${Casting.Ready[${Challenge}]}) /Casting ${Challenge}
	/if (${Me.PctHPs} < 49 && ${Casting.Ready[${Lifetap}]}) /Casting ${Lifetap}
	/if (${Me.PctHPs} < 75 && ${Me.Song[Remorselessness].ID} && ${Casting.Ready[${Lifetap}]}) /Casting ${Lifetap}
	/if (${Me.PctHPs} < 10 && ${Target.PctHPs} < 50) {
	/disc "Unholy Aura"
	/delay 1s
	/Casting "Harm Touch|alt"
	}
	/if (${Target.ID}) /goto :keepnuking
	/if (!${Target.ID}) {
		:endnuke
		/varset Agro FALSE
	}
/return


Sub Buffup
	/doevents
	/if (${Me.Buff["Elixir of Speed X"].Duration} < 20) /Potionbelt activate 2
	/if (${Me.Buff[${Shroud}].Duration} < 20) /Casting "${Shroud}|8"
	/if (${Me.Buff[${Killproc}].Duration} < 20) /Casting "${Killproc}|8"
	/if (${Me.Buff[${HPBuff}].Duration} < 20) /Casting "${HPBuff}|8"
	/if (${Me.Buff[${Conversion}].Duration} < 20) /Casting "${Conversion}|6" 
	/if (${Me.Buff[${Defproc}].Duration} < 2) /Casting "${Defproc}|9"
	/if (!${Me.Pet.ID}) /Casting "${SkellyPet}|8"
	/if (${Me.PetBuff[${PetHaste}]} && !${petAttacking}) /Casting "${PetHaste}|7"
	/doevents
	/keypress esc
	}

/return



Sub Meditate
	/sit on
	/keypress esc
:medmore
	/doevents
	/if (${Target.ID}) /varset Agro TRUE 
	/if (${Agro}) /call combat 
	/if (${Me.PctMana} < 90) /goto :medmore 
/return

Sub Event_Wornoff
/varset Buffme TRUE
/return

<---Pls RC if this helped you.

 

[werratai]

do you have a new working version of this? I had to go in and replace all the spell names with ID's. I've only got it partially working.