Mage macro?

AEbard · Post by **AEbard** » Tue Oct 05, 2004 1:56 pm

Anyone got a macro that assists tank, sends in pet, and nukes?

fearless · Post by **fearless** » Tue Oct 05, 2004 2:04 pm

<3 advbot

JimJohnson · Post by **JimJohnson** » Tue Oct 05, 2004 2:43 pm

working on one will post later today after i fix one issue I am having with it.

AEbard · Post by **AEbard** » Fri Oct 08, 2004 8:39 am

so where is it?

JimJohnson · Post by **JimJohnson** » Fri Oct 08, 2004 10:05 am

Code: Select all

|Usage  /macro mage <Tank> <Nuke Spell> <Nuke Percent>
|By Jimjohnson
|Assist Tank Nukes with set spell at X percent
|Backs pet off at 15 % then resends at 6 % to avoid most enraged mobs

#turbo 
#Include spell_routines.inc 

 
#Chat #tell 

Sub Main 

/declare Tank string outer
/declare Nuke string outer
/declare NukePercent int outer

/varset Tank ${Param0} 
/varset Nuke ${Param1}
/varset NukePercent ${Param2}


:MainLoop 
	/call GetTarget 
	/if (${Target.Type.Equal["NPC"]} && ${Target.Distance}<150) { 
		/call Pet
		/call Nuke 
		/call Petoff
		/call Nuke2
		/call Pet
		/call Nuke3
		/doevents Chat
  } 
/goto :MainLoop 

/endmacro



Sub GetTarget
/assist ${Tank}

/return



Sub Pet
/pet attack 
  
/return 

Sub Petoff
/pet back off
/pet hold



Sub Nuke 
:nuke1 
	/call GetTarget
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}<${NukePercent} && ${Target.Distance}<150) && ${Me.PctMana}>5) { 
	/if (${Me.SpellReady["${Nuke"]}) /call cast "${Nuke}" gem8 nodismount
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}>15) /doevents Chat
	/goto :nuke1
  } 
  
/return 



Sub Nuke2
:nuke2 
	/call GetTarget
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}<${NukePercent} && ${Target.Distance}<150) && ${Me.PctMana}>5) { 
	/if (${Me.SpellReady["${Nuke"]}) /call cast "${Nuke}" gem8 nodismount
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}>6) /doevents Chat
	/goto :nuke2
  } 
  
/return


Sub Nuke3
:nuke3 
	/call GetTarget
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}<${NukePercent} && ${Target.Distance}<150) && ${Me.PctMana}>5) { 
	/if (${Me.SpellReady["${Nuke"]}) /call cast "${Nuke}" gem8 nodismount
	/if (${Target.Type.Equal["NPC"]} && ${Target.PctHPs}>0) /doevents Chat
	/goto :nuke3
  } 
  
/return


Sub Event_Chat(string ChatType,string Sender,string ChatText) 
	/if (${ChatText.Equal["rod"]}) { 
		/target ${Sender}
		/call cast "Rod of Mystical Transvergance"  gem5 nodismount
		}

/return

Had not fixed the issue so didnt post what i wanted to add in bussy last few days could show little more gratitude when asking for something dickweed

AEbard · Post by **AEbard** » Fri Oct 08, 2004 12:35 pm

thanks...hows that?

Lum · Post by **Lum** » Fri Oct 08, 2004 3:53 pm

Code: Select all

/if (${Me.SpellReady["${Nuke"]}) /call cast "${Nuke}" gem8 nodismount

Why do you have /cast spell name as well as the gem? I thought the point of doing /cast "name" was to not have to have it memmed ina certain spot

edit: nevermind, Ms. Newb didnt read through the inc file before

TheAFKBard · Post by **TheAFKBard** » Fri Oct 08, 2004 4:07 pm

/call cast will mem a spell into a given slot if it's not otherwise memmed, or cast it by name if it is. It's a function of spellroutines.inc

JimJohnson · Post by **JimJohnson** » Sat Oct 09, 2004 5:21 pm

did that work for you? didnt test so dont know how well it works as it wasnt the one i wanted to post