Advanced follow (stick)

[hoosierbilly]

I wrote this simple macro after my alt was attacked and killed several times in the high argo zones of oceangreen hills/village. If your health drops below 60% it will /succor you.

I have also coded support for fabeled journeyman boots and the chanters AA rune.

|**AdvStik 1.0 by Hoosierbilly

Requires: MQ2MoveUtils & MQ2PiggyZone
Purpose: Follow a group member and evac if health drops below 60%.
Uasge: Target a group member /mac advstik
**|


#Event camp "#*#prepare your camp#*#"

Sub Main

	/declare stickon int outer 0
	/declare stickoff int outer 0
	/declare i int outer 0
	/declare stickto string outer
	/declare b int outer 0

	/if (${Target.Type.Equal[PC]} && ${Target.Distance}<200) {
	/echo "I am following ${Target.CleanName}"
	/varset stickto ${Target.CleanName}
	/stick hold loose UW 30
	} else {
	/popup "You must target a nearby group member to follow"
	/endmac
	}

:loop

	/varcalc stickon ${Stick.Distance}
	/varcalc i ${i}+1
	/doevents
	/if (!${Stick.Active}) /call stickoff

	/if (${Me.Class.ID}==14) /call chanter

	/if (${Me.PctHPs}<60) {
	/echo "Evac before I die!"
	/succor
	/endmac
	}

	/if (${Target.Type.Equal[PC]} && ${Target.Distance}>150 && ${Target.Distance}<200 && ${stickon}==30) {
	/warp target
	}

	/if (${i}==10000) /call hello
	/goto :loop

/return

Sub stickoff

	/if (${stickoff}==0) /echo I am no longer following ${stickto}
	/if (${stickoff}==0) /echo I am no longer following ${stickto}
	/if (${stickoff}==0) /echo I am only monitoring my health
	/varset stickoff 1

/return

Sub chanter

	/if (${Me.Buff[Eldritch Rune].Duration}<9 && ${Me.AltAbilityReady[Eldritch Rune]}) {
	/alt activate ${Me.AltAbility[Eldritch Rune].ID}
	/delay 3
	}
/return

Sub hello

	/varcalc b ${b}+1

	/if (${FindItem[=Fabled Journeyman's Boots].ID} && ${b}==3) {
	/casting 68239
	/varset b 0
	}

	/if (${stickon}==30) {
	/echo I am still following ${stickto}
	} else {
	/echo I am staying healthy right here.
	}
	/varset i 0

/return

Sub Event_camp

	/endmac
/return

 

[impatientuser]

Clean, simple, and useful... thanks =)