MacroQuest64

Code: Select all

#Event Exp "You gain#*#" 
#Event AAability "You can use the ability#*#" 
#Event GetHit "#*#hits YOU#*#" 
#Event SLOWED "#*#slowed#*#" 
#Event SLOWED "#*#slowed" 
#Event SLOWED "#*#slwoed" 
#Event CastCH "You begin casting Complete Healing." 
#Event CastDArb "You begin casting Divine Arbitration." 
#Event CastRC "You begin casting Radiant Cure3." 
#Event CastSR "You begin casting Supernal Remedy." 
#Event CastSL "You begin casting Supernal Light." 
#Event Invulnerable "#*#while invulnerable!" 
#include spell_routines.inc 

#turbo 

Sub Main 
/declare Exper float outer 
/declare AAExp float outer 
/declare slow string outer 

/varset slow FALSE 
/varset Exper ${Me.Exp} 
/varset AAExp ${Me.AAExp} 

/echo -== Auto Heal has started at ${Time} ==- 
:loop 
/doevents 
/if (${slow.Equal[TRUE]}) { 
/if ((${Target.Type.Equal[PC]} && ${Target.PctHPs}<=65) && ${Target.Distance}<=95) /call CH 
} else /if (${slow.Equal[FALSE]}) { 
/if ((${Target.Type.Equal[PC]} && ${Target.PctHPs}<=95) && ${Target.Distance}<=95) /call CH
}
/goto :loop 
/return 

Sub CH 
/delay 1s 
/cast "Complete Healing" 
/delay 1s 
/cast "Complete Healing" 
|/if (${Me.AltAbilityReady[169]}) /alt activate 169 
|/delay 1 
/if (${Me.AltAbilityReady[153]}) /alt activate 153 
/delay 1 
/notify TradeWnd TRDW_Trade_Button LeftMouseUp 
/return 

Sub Event_Exp 
/varset AAExp ${Math.Calc[${Me.PctAAExp}-${AAExp}]} 
/varset Exper ${Math.Calc[${Me.PctExp}-${Exper}]} 

/echo 
/echo 
/echo ${Time} 
/echo LAST EXP: ${Exper} -- CURRENT EXP: ${Me.PctExp}% - ${Math.Calc[${Macro.RunTime}/60]} minutes 
/echo LAST AA EXP: ${AAExp} -- CURRENT AA EXP: ${Me.PctAAExp}% - ${Math.Calc[${Macro.RunTime}/60]} minutes 
/echo 
/echo 

/varset Exper ${Me.PctExp} 
/varset AAExp ${Me.PctAAExp} 
/varset slow FALSE 
/return 


Sub Event_AAability 
/delay 2s 
/return 


Sub Event_GetHit 
/if (${Me.PctHPs}<=25) { 
/cast "Divine Aura" 
/delay 1 
/cast "Divine Barrier" 
} 
/return 


Sub Event_SLOWED 
/varset slow TRUE 
/echo Slow set to ${slow} 
/return 

Sub Event_CastCH 
/delay 10s
/return

Sub Event_CastDArb
/delay 1s
/return

Sub Event_CastSR
/delay 2s
/return

Sub Event_CastSL
/delay 4s
/return

Sub Event_Invulnerable
/delay 18s
/return