Track AA Experience macro

[Groo]

Here is a simple macro to track your AA experience

Code: Select all

|Experience.mac by Groo Feb 14, 2004

Sub Main 
	/declare start_aa_exp local
	/declare last_aa_exp local
	/declare rate_aa_exp local
	/declare mins_per_aa local
	/declare gained_aa_exp local
	
	/varset start_aa_exp $char(aa,exp) 
	/varset last_aa_exp $char(aa,exp)
	
	/echo Tracking AA experience
	:Loop 
		/delay 1m
		
		/if n $char(aa,exp)<@last_aa_exp /varsub start_aa_exp 100 |dinged

		/varset gained_aa_exp $calc($char(aa,exp)-@start_aa_exp)
		/varset rate_aa_exp $calc(3600/$running*@gained_aa_exp)
		/varset mins_per_aa $calc(100/@rate_aa_exp*60)
		
		/varset last_aa_exp $char(aa,exp)
		    
		/if "@Param0"=="verbose" {
			/echo Running for $calc($running/60) mins
			/echo You have a total of $char(aa,exp)% AA exp
			/echo You gained @gained_aa_exp% AA exp
			/echo Your AA exp rate is @rate_aa_exp% per hour
			/echo You will gain 1 AA every @mins_per_aa minutes
			/echo ----------
		} else {
			/echo In $calc($running/60) mins, gained @gained_aa_exp% AA exp for @rate_aa_exp% AA/hour or 1 AA every @mins_per_aa mins
		}
	/goto :Loop 
	/return