|portgroup.mac 5/25/2018 by kaen01 Sub Main /declare i int local 0 /declare k int local 0 /if (!${Defined[Param0]}) { /echo \a-g.:\agGroup Portal Spells\a-g:. /echo \a-g.:\agUsage: \at/mac portgroup \at[\aytrigger\at] } else { /echo \agLooking for portal trigger \at[\ay${Param0}\at] } /for i 1 to 800 /if (${Me.Book[${i}].Category.Equal[Transport]} && ${Me.Book[${i}].TargetType.Find[Group v1]} && !${Me.Book[${i}].Name.Find[Succor]}) { /if (!${Defined[Param0]}) { /varcalc k ${k}+1 /echo \ay${k}: \at${Me.Book[${i}].Extra} \ay= \ao${Me.Book[${i}].Name} :: \a-t${Zone[${Me.Book[${i}].Extra}].Name} /continue /endmac } else /if (${Me.Book[${i}].Extra.Equal[${Param0}]}) { /echo \agMemming \at[\ay${Me.Book[${i}].Name}\at] /MemSpell 1 "${Me.Book[${i}].Name}" /while (!${Me.SpellReady[${Me.Book[${i}].Name}]}) { /delay 5 } /delay 1s /echo \agCasting \at[\ay${Me.Book[${i}].Name}\at] /cast "${Me.Book[${i}].Name}" /while (${Me.Casting.ID}) { /delay 5 } /endmac } } /next i /if (${Defined[Param0]}) /echo \at[\ay${Param0}\at] \arNot a trigger for a group based portal spell. /return