MacroQuest64

Code: Select all

| 2boxHeal.mac

#Event HealL "#1# tells you, 'l #2#'" 
#Event HealR "#1# tells you, 'r #2#'"
#Event HealC "#1# tells you, 'c #2#'"
#Event HealH "#1# tells you, 'h #2#'"
#Event HealG "#1# tells you, 'g'"
#Event HealP "#1# tells you, 'p #2#'"
#Event DI "#1# tells you, 'di #2#'"

#event Fizzle "Your spell fizzles#*#" 

Sub Main
/declare FizzleSlot int outer
/declare FizzleTimer timer outer 2s
/declare LightSpell string outer "Solemn Light Rk. II"
/declare RemedySpell string outer "Solemn Remedy Rk. II"
/declare CompleteSpell string outer "Complete Heal"
/declare HoTSpell string outer "Solemn Elixir"
/declare PromiseSpell string outer "Promised Restoration"
/declare GroupSpell string outer "Word of Vivacity"
/declare DISpell string outer "Divine Intervention"
/echo 2BoxHeal Activated
:MainLoop
	/doevents    
	/goto :MainLoop
/return


Sub Event_Fizzle(Textstuff)
	/if (${FizzleTimer}>0) {
		/cast ${FizzleSlot}
		/varset FizzleTimer 2s
	}
/return 

Sub Event_HealL(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}	
   } else {
      /assist ${Teller}
   }
   /cast ${LightSpell}
   /varset FizzleSlot ${Me.Gem[${LightSpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_HealR(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}	
   } else {
      /assist ${Teller}
   }
   /cast ${RemedySpell}
   /varset FizzleSlot ${Me.Gem[${RemedySpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_HealC(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}	
   } else {
      /assist ${Teller}
   }
   /cast ${CompleteSpell}
   /varset FizzleSlot ${Me.Gem[${CompleteSpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_HealH(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}	
   } else {
      /assist ${Teller}
   }
   /cast ${HoTSpell}
   /varset FizzleSlot ${Me.Gem[${HoTSpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_HealG(Line,Teller,Who) 
   /cast ${GroupSpell}
   /varset FizzleSlot ${Me.Gem[${GroupSpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_HealP(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}
   } else {
      /assist ${Teller}
   }
   /cast ${PromiseSpell}
   /varset FizzleSlot ${Me.Gem[${PromiseSpell}]}
   /varset FizzleTimer 2s
/return

Sub Event_DI(Line,Teller,Who) 
   /if (${Who.NotEqual[target]}) {
      /tar pc ${Who}	
   } else {
      /assist ${Teller}
   }
   /cast ${DISpell}
   /varset FizzleSlot ${Me.Gem[${DISpell}]}
   /varset FizzleTimer 2s
   
/return

Code: Select all

/declare iLoop int local
/for iLoop 0 to ${Group.Members}
    /if (${Group.Member[${iLoop}].PctHPs} < 65) /cast ${CompleteSpell}
/next iLoop