I take no credit for this mac, I just ripped whatever I liked, did some debugging to make it fit together, then added some of my own ghetto code.
Code: Select all
#event Loading "#*#LOADING, PLEASE WAIT...#*#"
#event Recover "#*#You miss a note, bringing your song to a close!#*#"
#event Recover "#*#You haven't recovered yet...#*#"
#event Exp "#*#You gain experience!!#*#"
#event NoTarget "#*#You must first select a target for this spell#*#"
#include advpath.inc
Sub MAIN
/call InitAPFVars 1 15 20
/declare a[${Macro.Params}] int outer 0
/declare nsongs int outer 0
/declare cursong int outer 0
/declare t0 timer outer 0
/declare pcount int outer 0
/declare bcount int outer 0
/varset nsongs ${Macro.Params}
/if (!${Defined[Param0]}) {
/echo Usage: /mac twisting # # # #....
/echo Usage: Where # is any Spell Gem number 1-8.
/end
}
/for pcount 0 to ${Macro.Params}
/if (${Defined[Param${pcount}]}) {
/varcalc bcount ${pcount}+1
/varset a[${bcount}] ${Param${pcount}}
/echo Song ${bcount}: ${Me.Gem[${Param${pcount}}]}
}
/Next pcount
/varset cursong 0
/varset t0 1
/if ((${Defined[Param0]})&&(!${Defined[Param1]})) /goto :loop2
|Ths is where you put your own filename with /loc for it to follow
/call PlayFunction "PoNent loop cf nopp noz"
:Loop1
/if (${t0}<=0) {
/stopsong
/delay 2
/varset t0 32
/varcalc cursong ${cursong}+1
/if (${cursong}>${nsongs}) /varset cursong 1
| /popup Song ${cursong}: ${Me.Gem[${a[${cursong}]}]}
/cast ${a[${cursong}]}
}
/doevents
/if (${PathingFlag}==1) {
/call AdvPathPoll
/delay 0
/doevents
/goto :Loop1
}
/return
:loop2
/if (!${Bool[${Me.Casting}]}) {
/stopsong
/delay 1
/cast ${Param0}
/doevents
/delay 3
}
/goto :Loop2
/return
Sub Event_Loading
/camp desktop
/return
Sub Event_Recover
/varcalc cursong ${cursong}-1
/varset t0 1
/return
Sub Event_Exp
/keypress f8
/return
Sub Event_NoTarget
/keypress f8
/return