Exp tracking macro for use with Ghostxp

[Higamorph]

|Written by Higamorph for Red Guides
 |Written 4 of 2007
 |Purpose - To Display current expeience and aa points while afk ghostkilling for experience.  To facilitate a quick way to start
 |To facilitate a quick way to start a group in an instance while leeching ghostkill exp.
 |The macro requires mq2eqbc to be loaded and the ghostkiller to be on the server as well.  
 |
 |Thanks to Pugs for helping me being to learn macrowriting
 
 
 
 #turbo
 #chat tell
 #chat group
 
 #Event exp "You gain party experience!!"
 #Event exp "You gain experience!!"
 #event gm "#*#There is 1 player in EverQuest.#*#"
 #event gm "#*#There are #*# players in EverQuest.#*#"
 
 
 Sub Main
 /call CheckPlugin MQ2ghostexp
 /declare curzone string local
 /varset curzone ${Zone.ShortName}
 /echo Macro Bound To: ${Zone.Name}
 
 |Replace REPLACEME with ghost killers name.
 /ghostxp setassist REPLACEME
 /ghostxp on
 	/declare cnt int outer 0
 	/bc Exp mac runnin.
 :loop
 	/if (!${Zone.ShortName.Equal[${curzone}]}) /call zoned
 	/doevents
 	/goto :loop
 	
 /return
 
 sub Event_exp
 	/varcalc cnt ${cnt}+1
 	/bc Level-${Me.Level} EXP-${Me.PctExp}% AAEXP-${Me.PctAAExp}% AA-${Me.AAPoints} Mobs-${cnt}
 	/who all gm
 	/doevents
	/delay 1s
	/target clear
 	/if (${Me.AAPoints}>29) /call packitup
 /return
 
 sub Event_gm
 	/bc GM Alert!!  GM Alert!! GM Alert!!
 	/beep
 	/bc ***********GM Alert!!*************
 	/beep
 	/beep
 	/beep
 	/call end
 /return
 
 sub zoned
 	/bc ZONED
 	/beep
 	/bc ZONED
 	/beep
 	/beep
 	/beep
 	/call end
 /return
 
 sub packitup
 	/bc pack it up
 	/call end
 /return
 
 sub end
 	/bca //end
 	/bca //ghostxp off
 	/bca //sit
 	/bca //exit
 	/bca //camp desktop
 	/ghostxp off
 	/sit
 	/exit
 	/camp desktop
 	/end	
 
 |Code from EQManiac's brdhoh.mac
 Sub CheckPlugin(string PluginName)
 	/if (!${Plugin[${PluginName}].Name.Equal[${PluginName}]}) /plugin ${PluginName} noauto
 	/if (!${Plugin[${PluginName}].Name.Equal[${PluginName}]}) {
 	   /echo Exit Macro: Failed to load REQUIRED plugin ${PluginName}
 	   /endmacro
 	}
 /return

 

[Pugs]

Here is a little rework to make it look cleaner

|Written by Higamorph for Red Guides
|Written 4 of 2007
|Reworked to use exit codes 4/11/07 By Pugs
|Purpose - To Display current expeience and aa points while afk ghostkilling for experience.  
|To facilitate a quick way to start a group in an instance while leeching ghostkill exp.
|The macro requires mq2eqbc and ghostxp to be loaded and the ghostkiller to be on the server as well.  
|
|Thanks to Pugs for helping me being to learn macrowriting
 
 
 
 #turbo
 #chat tell
 #chat group
 
 #Event exp "You gain party experience!!"
 #Event exp "You gain experience!!"
 #event gm "#*#There is 1 player in EverQuest.#*#"
 #event gm "#*#There are #*# players in EverQuest.#*#"
 
 
 Sub Main
/declare monk string outer
/declare curzone string local
/declare exitCode int outer
/declare cnt int outer 0


/varset monk MONKSNAME
/varset curzone ${Zone.ShortName}



/call CheckPlugin MQ2ghostexp
/echo Macro Bound To: ${Zone.Name}
/ghostxp setassist ${monk}
/ghostxp on
 	
/bc Exp mac runnin.
 	
 :loop
 	/if (!${Zone.ShortName.Equal[${curzone}]}) /call zoned
 	/doevents
 	/goto :loop
 	
/return
 
sub Event_exp
 	/varcalc cnt ${cnt}+1
 	/bc Level-${Me.Level} EXP-${Me.PctExp}% AAEXP-${Me.PctAAExp}% AA-${Me.AAPoints} Mobs-${cnt}
 	/who all gm
 	/doevents
	/delay 2s
	/target clear
 	/if (${Me.AAPoints}>29) {
		/varset exitCode 0		
		/call end
		}
/return
 
sub Event_gm
/varset exitCode 1
/call end
/return
 
sub zoned
/varset exitCode 2	
/call end
/return
 

 
sub end
	/if (${exitCode}=0) /bc We are AAed out.
	/if (${exitCode}=1) /bc We Left do to a GM.
	/if (${exitCode}=2) /bc We Left the current zone.
 	/bca //end
 	/bca //ghostxp off
 	/bca //sit
 	/bca //exit
 	/bca //camp desktop
 	/ghostxp off
 	/sit
 	/exit
 	/camp desktop
 	/end	
 
 |Code from EQManiac's brdhoh.mac
Sub CheckPlugin(string PluginName)
 	/if (!${Plugin[${PluginName}].Name.Equal[${PluginName}]}) /plugin ${PluginName} noauto
 	/if (!${Plugin[${PluginName}].Name.Equal[${PluginName}]}) {
 	   /echo Exit Macro: Failed to load REQUIRED plugin ${PluginName}
 	   /end
 	}
 /return