V War
V Earth
F isHealer(actor) = (class(actor) == 16 or class(actor) == 17 or class(actor) == 97 or class(actor) == 98 or class(actor) == 30 or class(actor) == 105 or class(actor) == 43 or class(actor) == 112 or class(actor) == 51 or class(actor) == 52 or class(actor) == 115 or class(actor) == 116)
F isMage(actor) = (class (actor) == 12  or class (actor) == 13  or class (actor) == 27 or class (actor) == 40 or class (actor) == 94 or class (actor) == 95 or class (actor) == 103 or class (actor) == 110)
F isSummoner(actor) = (class (actor) == 14 or class (actor) == 28 or class (actor) == 41 or class (actor) == 96 or class (actor) == 104 or class (actor) == 111)
L Assign War = 0
L Assign Earth = 1
?EarthChant >+E War == 0 : Assign War = 1; Assign Earth = 0; Display 2 ("Warchant "..War)
?EarthChant >+E Earth == 0 : Assign Earth = 1; Assign War = 0; Display 2 ("Earthchant "..Earth)

L EnableGroup buff off
?buff PT(1000) zone~=12 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$ChantOfFire) < 60000 and effectTime(actor,$SoulOfPaagrio)==0 and effectTime(actor,$MagicBarrier) == 0 and effectTime(actor,$ImprovedMagic) == 0 : Cast $ChantOfFire
?buff PT(1000) zone~=12 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$FlameChant) < 60000 and effectTime(actor,$Acumen)<60000 and effectTime(actor,$TheWisdomOfPaagrio)<60000 and effectTime(actor,2169)<60000 and effectTime(actor,2433)<60000 and (isHealer(actor) or isMage(actor) or isSummoner(actor)) : Cast $FlameChant

?buff PT(1000) zone~=12 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$ChantOfCombat) < 60000 and effectTime(actor,$ImprovedCombat) < 60000 and effectTime(actor,$CombatOfPaagrio) < 60000 and effectTime(actor,$BlockShield)==0 and effectTime(actor,$MassBlockShield)==0 : Cast $ChantOfCombat
?buff PT(1000) zone ~=12 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$ChantOfMovement) < 60000 and effectTime(actor,$WindWalk) == 0 and effectTime(actor,$PaagrianHaste) ==0 and effectTime(actor,$ChantOfMovement) == 0 and effectTime(actor,$ImprovedMovement) == 0 and effectTime(actor,2034) == 0 and effectTime(actor,$BlockWindWalk) == 0 and effectTime(actor,$MassBlockWindWalk) == 0 : Cast $ChantOfMovement

?buff PT(1000)  distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$ChantOfBloodAwakening) < 60000 and effectTime(actor,$Haste) == 0 and effectTime(actor,2035) == 0 and zone ~=12 and  not (isHealer(actor) or isMage(actor) or isSummoner(actor)) : Cast $ChantOfBloodAwakening
?buff PT(1000) zone~=12 and War == 1 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$WarChant) < 60000 and not (isHealer(actor) or isMage(actor) or isSummoner(actor)) : Cast $WarChant
?buff PT(1000) zone~=12 and Earth == 1 and distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$EarthChant) < 60000 : Cast $EarthChant
?crit PT(1000)  distance(actor) < 1000 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$ChantOfCriticalAttack) < 60000 and effectTime(actor,1537) == 0 and effectTime(actor,2035) == 0 and zone ~=12 and  not (isHealer(actor) or isMage(actor) or isSummoner(actor)) : Cast $ChantOfCriticalAttack

?buff PT(1000) zone ~=12 and not isDead(actor) and not isMedused(actor) and effectTime(actor,$Salvation) < 60000 and effectTime(actor,$NoblesseBlessing) < 60000 and distance(actor)<1000 : Select (actor) > Cast $NoblesseBlessing