MacroQuest64

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