IF
	Global("Darkness","GLOBAL",0)
	See([PC])
	!StateCheck(NearestEnemyOf(Myself),STATE_BLIND)
THEN
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),CLERIC_FAERIE_FIRE)
		SetGlobal("Darkness","GLOBAL",1)
		StartTimer(0,60)
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("Darkness","GLOBAL",1)
		StartTimer(0,90)
END

IF
	RandomNumGT(30,10)
	Global("Darkness","GLOBAL",1)
	See([PC])
	!StateCheck(NearestEnemyOf(Myself),STATE_BLIND)
	TimerExpired(0)
THEN
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),CLERIC_FAERIE_FIRE)
		SetGlobal("Darkness","GLOBAL",2)
		StartTimer(0,60)
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("Darkness","GLOBAL",2)
		StartTimer(0,90)
END

IF
	RandomNumGT(30,5)
	Global("Darkness","GLOBAL",2)
	See([PC])
	!StateCheck(NearestEnemyOf(Myself),STATE_BLIND)
	TimerExpired(0)
THEN
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),CLERIC_FAERIE_FIRE)
		SetGlobal("Darkness","GLOBAL",3)
		StartTimer(0,60)
	RESPONSE #75
		ForceSpell(NearestEnemyOf(Myself),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("Darkness","GLOBAL",3)
		StartTimer(0,90)
END

IF
	Global("Darkness","GLOBAL",3)
	See([PC])
	TimerExpired(0)
THEN
	RESPONSE #100
		SetGlobal("Darkness","GLOBAL",0)
END


