Marmic PM Orb (script)

counter set 2
setvariable perc perc
setvariable avenger avenger
setvariable avenger_not_mine anm1

start:
put get my camb orb


avenger_look:
match avenger_yes pure white alfar avenger
match summon Obvious exits:
match summon Obvious paths:
put look
matchwait
avenger_yes:
match main_loop A pure white alfar avenger whispers,
match %avenger_not_mine The alfar avenger shies away from you,
match summon What were you referring to?
put poke %avenger
matchwait


anm1:
setvariable avenger second avenger
setvariable avenger_not_mine anm2
goto avenger_yes

anm2:
setvariable avenger third avenger
setvariable avenger_not_mine anm3
goto avenger_yes

anm3:
setvariable avenger fourth avenger
setvariable avenger_not_mine anm4
goto avenger_yes


anm4:
setvariable avenger fifth avenger
setvariable avenger_not_mine anm5
goto avenger_yes


anm5:
setvariable avenger sixth avenger
setvariable avenger_not_mine anm1
goto avenger_yes





avenger_reset:
setvariable avenger avenger
goto avenger_look

summon:
setvariable avenger avenger
put prep gs
waitfor You feel fully prepared to cast your spell.
put cast avenger
waitfor With a warrior's calm,
put ask aven about quiet
pause 1
goto avenger_yes



exp_check:
match end mind lock
match recover%c EXP HELP
put exp skill primary
matchwait
goto loop

recover3:
match perc You reach out with your senses
match perc_heal You close your eyes, drawing
put %perc
matchwait
perc:
setvariable perc perc heal
pause 1
pause 1
counter set 0
goto recover
perc_heal:
setvariable perc perc
pause 1
pause 1
counter set 0
goto recover
recover:
recover1:
recover2:
match avenger_look You have a complete attunement
match avenger_look 50%>>>>>>>>>>>>>>>>>>>>>>>100%]
match recover_wait You are receiving full
put harn
matchwait

recover_wait:
waitfor You feel fully attuned to the mana streams again.
goto avenger_look
main_loop:
gol_loop:
gol_arm_Charge_f:
match gol_arm_Charge_S Roundtime:
match gol_arm_Charge_f Try though you may,
put charge my arm 16
matchwait
gol_arm_Charge_S:
pause 1
pause 1
put prep gol 12
gol_arm_focus_f:
match gol_arm_focus_S Roundtime:
match gol_arm_focus_f Try though you may,
put focus my arm
matchwait
gol_arm_focus_S:
pause 1
pause 1
match gol_charge_s The cambrinth orb absorbs
match gol_charge_f The cambrinth orb resists,
match gol_charge_f The cambrinth orb is already holding
put charge my orb 11
matchwait
gol_charge_s:
pause 1
pause 1


setvariable numavenger appavenger_1
goto app_avenger
appavenger_1:

put cast

match end mind lock
#match gol_recover EXP HELP
match tranquility_loop EXP HELP
put exp skill primary
matchwait
#gol_recover:
#waitfor You feel fully attuned to the mana streams again.
#goto tranquility_loop
gol_charge_f:
pause 1
pause 1


setvariable numavenger appavenger_2
goto app_avenger
appavenger_2:

put cast
put prep ease
waitfor gathering energy for the Ease Burden spell.
put focus my orb
pause 1
pause 1
put cast
pause 1
pause 1
goto tranquility_loop
tranquility_loop:
tranquility_arm_Charge_f:
match tranquility_arm_Charge_S Roundtime:
match tranquility_arm_Charge_f Try though you may,
put charge my arm 16
matchwait
tranquility_arm_Charge_S:
pause 1
pause 1
put prep tranquility 16
tranquility_arm_focus_f:
match tranquility_arm_focus_S Roundtime:
match tranquility_arm_focus_f Try though you may,
put focus my arm
matchwait
tranquility_arm_focus_S:
pause 1
pause 1
match tranquility_charge_s The cambrinth orb absorbs
match tranquility_charge_f The cambrinth orb resists,
match tranquility_charge_f The cambrinth orb is already holding
put charge my orb 11
matchwait
tranquility_charge_s:
pause 1
pause 1

setvariable numavenger appavenger_3
goto app_avenger
appavenger_3:

put cast
counter add 1
goto exp_check
tranquility_charge_f:
pause 1
pause 1

setvariable numavenger appavenger_4
goto app_avenger
appavenger_4:

put cast
put prep ease
waitfor gathering energy for the Ease Burden spell.
put focus my orb
pause 1
pause 1
put cast
pause 1
pause 1
counter add 1
goto exp_check
end:
put stow my camb orb
exit


app_avenger:
match app_success [Roundtime:
match app_success_f Appraise what?  Type APPRAISE HELP for more information.
match other_avenger All things considered, probably best not to do that.
put app %avenger quick
matchwait
other_avenger:
setvariable avenger other avenger
goto app_avenger

app_success_f:
setvariable avenger avenger
app_success:
pause 1
pause 1
goto %numavenger