||mage.mac
#include Spell_Routines.inc

#event cmd "<#1#> #2#"
#event lvl "You have gained a level! Welcome to level #1#"
#event pingaa "You have gained an ability point! You now have #1# ability point#3#"
#event invite "#1# invites you to join a group."
#event Exp "You gain#*#"




Sub main
/bc Mage mac on the run!

||set up vars
/declare Master string outer
/declare DSSpell string outer
/declare PetNumItems int outer
/declare PetSpell string outer
/declare PetItem1 string outer
/declare PetItem2 string outer
/declare PetItem3 string outer
/declare Burnout string outer
/declare MaloSpell string outer
/declare BoltSpell string outer
/declare NukeSpell string outer
/declare Exper float outer
/declare AAExp float outer
/declare assist int outer

/varset Master ${Target}
/varset DSSpell Circle of Fireskin
/varset PetNumItems 3
/varset PetSpell "Child of Wind"
/varset PetItem1 Dagger of the Deep
/varset PetItem2 Dagger of the Deep
/varset PetItem3 Crystal Belt
/varset Burnout "Elemental Fury"
/varset MaloSpell Malosinia
/varset BoltSpell Ancient: Nova Strike
/varset NukeSpell Star Strike
/varset Exper ${Me.PctExp}
/varset AAExp ${Me.PctAAExp}
/varset assist 0

:loop

/doevents
/delay 1
/call CheckBuffs
/goto :loop
/return

Sub Event_cmd(line, dude, com)

/if (${dude.Equal[${Master}]}) {
	/if (${com.Equal[sic]}) {
		/assist ${Master}
		/delay 10
		/bc Sparky! Go get that -${Target.Name}-!!
		/pet attack
	}
	/if (${com.Equal[follow]}) {
		/stick id ${Spawn[${Master}].ID} hold
		/bc Following you, you fuckin cuntwad.
	}
	/if (${com.Equal[stop]}) {
		/bc ending stickage
		/stick off
	}
	/if (${com.Equal[ds]}) {
		/target ${Master}
		/delay 5
		/call cast "${DSSpell}" gem5 5s
	}
	/if (${com.Equal[petup]}) {
		/call PetStuff
	}
	/if (${com.Equal[bolt]}) {
		/target clear
		/assist ${Master}
		/delay 5s ${Target.ID}
		/call cast "${BoltSpell}" gem2 5s
	}
	/if (${com.Equal[nuke]}) {
		/target clear
		/assist ${Master}
		/delay 5s ${Target.ID}
		/call cast "${NukeSpell}" gem1 5s
	}
	/if (${com.Equal[malo]}) {
		/target clear
		/assist ${Master}
		/delay 5s ${Target.ID}
		/call cast ${MaloSpell} gem4 10s

	}
	/if (${com.Equal[aoe]}) {
		/call cast "Wind of the Desert" gem7 10s
	}
}
/return

Sub Event_lvl(line, level)
/bc DING! ${level}
|/g DING! ${level}
/return

Sub Event_pingaa(line, points, junkstuh) {
	/bc PING! ${points}aa
	/return

Sub Event_invite(line, inviter)
	/if (${inviter.Equal[${Master}]}) /invite
	/return

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

	/bc EXP: ${Exper}:${Me.PctExp}% - AAXP: ${AAExp}:${Me.PctAAExp}% - ${Math.Calc[${Macro.RunTime}/60]} minutes
	/popup EXP: ${Exper}:${Me.PctExp}% - AAXP: ${AAExp}:${Me.PctAAExp}% - ${Math.Calc[${Macro.RunTime}/60]} minutes
	/varset Exper ${Me.PctExp}
	/varset AAExp ${Me.PctAAExp}

	/return

Sub CheckBuffs
	/if (!${Me.Moving} && !${Me.Casting.ID}) {
		/if (${Me.Pet.ID} && !${Me.PetBuff[${Burnout}]}) {
			/call cast ${Burnout} gem7 5s
		}
	}
	/return

Sub PetStuff
	/if (${Me.Pet.ID}) /return
	/call Cast ${PetSpell} gem8 30s
	/target ${Me.Pet}
	/delay 10
	/call PetItems
	/call cast ${Burnout} gem6 30s
	/bc I got a bitch to do my bidding.

/return


Sub PetItems

/if (!${Target.Type.Equal[pet]}) /return

/declare i int local
/for i 1 to ${PetNumItems}
	/call Cast "Summon ${PetItem${i}}" gem9 6s
	/echo "Summon ${PetItem${i}}"
	/call GiveToPet
/next i
/return

Sub GiveToPet
/declare i int local
:give_item
/delay 5 ${Cursor.ID}
/if (${Cursor.ID} && !${InvSlot[trade4].Item.ID}) {
	/if (${Cursor.Name.Find[summoned:]}) {
		/click left target
		/delay 1s ${InvSlot[trade${i}].Item.ID}
	}
	/goto :give_item
}
/for i 1 to 4
	/if (${InvSlot[trade${i}].Item.ID} && !${InvSlot[trade${i}].Item.Name.Find[summoned:]} ) /nomodkey /notify GiveWnd GVW_Cancel_Button leftmouseup
/next i
/if (${Window[GiveWnd].Open}) /nomodkey /notify GiveWnd GVW_Give_Button leftmouseup
/delay 5s !${Window[GiveWnd].Open}
/return