IF
	Heard([ANYONE],201)
	InMyGroup(LastHeardBy(Myself))
        !GlobalTimerNotExpired("SongTimer","LOCALS")
THEN
	RESPONSE #10
                SetGlobalTimer("SongTimer","LOCALS",30)
                DisplayStringHead(Myself,@171)
                Shout(201)
                ReallyForceSpellRES("RU_MUMSH",Myself)
                ScreenShake([5.5],3)
	RESPONSE #10
                SetGlobalTimer("SongTimer","LOCALS",30)
                DisplayStringHead(Myself,@293)
                Shout(201)
                ReallyForceSpellRES("RU_MUMSH",Myself)
                ScreenShake([5.5],3)
	RESPONSE #10
                SetGlobalTimer("SongTimer","LOCALS",30)
                DisplayStringHead(Myself,@294)
                Shout(201)
                ReallyForceSpellRES("RU_MUMSH",Myself)
                ScreenShake([5.5],3)
	RESPONSE #70
                SetGlobalTimer("SongTimer","LOCALS",30)
                Shout(201)
                ReallyForceSpellRES("RU_MUMSH",Myself)
                ScreenShake([5.5],3)
END

IF
	See(NearestEnemyOf(Myself))
        !GlobalTimerNotExpired("ResistDelayTimer","LOCALS")
THEN
	RESPONSE #100
                SetGlobalTimer("ResistDelayTimer","LOCALS",60)
                ReallyForceSpellRES("SPCL907",Myself)
END

IF
	See(NearestEnemyOf(Myself))
THEN
	RESPONSE #100
		Continue()
END

IF
	NumCreatureGT([ENEMY],1)
	See(SecondNearestEnemyOf(Myself))
        RandomNum(2,1)
THEN
	RESPONSE #100
		Continue()
END

IF
	NumCreatureGT([ENEMY],2)
	See(ThirdNearestEnemyOf(Myself))
        RandomNum(2,1)
THEN
	RESPONSE #100
		Continue()
END

IF
	NumCreatureGT([ENEMY],3)
	See(FourthNearestEnemyOf(Myself))
        RandomNum(2,1)
THEN
	RESPONSE #100
		Continue()
END

IF
	NumCreatureGT([ENEMY],4)
	See(FifthNearestEnemyOf(Myself))
        RandomNum(2,1)
THEN
	RESPONSE #100
		Continue()
END

IF
	NumCreatureGT([ENEMY],5)
	See(SixthNearestEnemyOf(Myself))
        RandomNum(2,1)
THEN
	RESPONSE #100
		Continue()
END

IF
        ActionListEmpty()
        GlobalLT("WHIL","LOCALS",3)
        !CheckStat(LastSeenBy(Myself),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
THEN
	RESPONSE #100
                IncrementGlobal("WHIL","LOCALS",1)
                ReallyForceSpellRES("SPCL901",Myself)
                AttackReevaluate(NearestEnemyOf(Myself),30)
END

IF
        ActionListEmpty()
	See(NearestEnemyOf(Myself))
THEN
	RESPONSE #100
                AttackReevaluate(NearestEnemyOf(Myself),30)
END