per-cl.baf

IF
    Heard([ANYONE], 251182)
THEN
    RESPONSE #100
        ReallyForceSpell(Player1, CLERIC_BLESS)
        ReallyForceSpell(Player1, CLERIC_AID)
        ReallyForceSpell(Player1, CLERIC_DEFENSIVE_HARMONY)
        ReallyForceSpell(Player1, CLERIC_PROTECTION_FROM_EVIL_10_FOOT)
        ReallyForceSpell(Myself, CLERIC_DRAW_UPON_HOLY_MIGHT)
        ReallyForceSpell(Myself, CLERIC_HOLY_POWER)
        SmallWait(1)
        ReallyForceSpell(Myself, CLERIC_TRUE_SIGHT)
END

IF
    ActionListEmpty()
    !ModalState(TURNUNDEAD)
THEN
    RESPONSE #100
        Turn()
END

per-fm.baf

IF
    Or(2)
        PartyRested()
        HotKey(H)
THEN
    RESPONSE #100
        ReallyForceSpell(Player1, WIZARD_IMPROVED_HASTE)
        ReallyForceSpell(Player2, WIZARD_IMPROVED_HASTE)
        ReallyForceSpell(Player3, WIZARD_IMPROVED_HASTE)
        Continue()
END

IF
    HotKey(K)
    Global("PER_AUTOBUFF", "GLOBALS", 0)
THEN
    RESPONSE #100
        SetGlobal("PER_AUTOBUFF", "GLOBALS", 1)
        DisplayString(Myself, 2893)
END

IF
    HotKey(K)
    Global("PER_AUTOBUFF", "GLOBALS", 1)
THEN
    RESPONSE #100
        SetGlobal("PER_AUTOBUFF", "GLOBALS", 0)
        DisplayString(Myself, 6745)
END

IF
    PartyRested()
    Global("PER_AUTOBUFF", "GLOBALS", 1)
THEN
    RESPONSE #100
        GlobalShout(251182)
END

IF
    HotKey(B)
THEN
    RESPONSE #100
        GlobalShout(251182)
END

IF
    Heard([ANYONE], 251182)
THEN
    RESPONSE #100
        ReallyForceSpell(Player1, WIZARD_IMPROVED_HASTE)
        ReallyForceSpell(Player2, WIZARD_IMPROVED_HASTE)
        ReallyForceSpell(Player3, WIZARD_IMPROVED_HASTE)
        ReallyForceSpell(Myself, WIZARD_MIRROR_IMAGE)
        ReallyForceSpell(Myself, WIZARD_BLUR)
        ReallyForceSpell(Myself, WIZARD_SPIRIT_ARMOR)
        ReallyForceSpell(Myself, WIZARD_FIRE_SHIELD_RED)
        ReallyForceSpell(Myself, WIZARD_FIRE_SHIELD_BLUE)
        ReallyForceSpell(Myself, WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
        ReallyForceSpell(Myself, WIZARD_SPELL_IMMUNITY_ABJURATION)
        ReallyForceSpell(Myself, WIZARD_SPELL_IMMUNITY_DIVINATION)
        SmallWait(1)
        ReallyForceSpell(Myself, WIZARD_IMPROVED_INVISIBILITY)
        ReallyForceSpell(Myself, WIZARD_STONE_SKIN)
END

per-m.baf

IF
    Heard([ANYONE], 251182)
THEN
    RESPONSE #100
        ReallyForceSpell(Myself, WIZARD_MELF_METEOR)
        ReallyForceSpell(Myself, WIZARD_SPIRIT_ARMOR)
        ReallyForceSpell(Player1, WIZARD_SPIRIT_ARMOR)
        ReallyForceSpell(Myself, WIZARD_MASS_INVISIBILITY)
END