IF
	Global("psGlobeSpellCounter", "LOCALS", 8)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself, WIZARD_SUN_FIRE)
		DestroySelf()
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(2)
		ReallyForceSpell(Player1,CLERIC_ANIMAL_SUMMONING_3)
		ReallyForceSpell(Player2,CLERIC_ANIMAL_SUMMONING_3)
		ReallyForceSpell(Player3,CLERIC_ANIMAL_SUMMONING_3)
		ReallyForceSpell(Player4,CLERIC_ANIMAL_SUMMONING_3)
		ReallyForceSpell(Player5,CLERIC_ANIMAL_SUMMONING_3)
		ReallyForceSpell(Player6,CLERIC_ANIMAL_SUMMONING_3)
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(3)
		ReallyForceSpell(Player1,CLERIC_SUMMON_INSECTS)
		ReallyForceSpell(Player2,CLERIC_SUMMON_INSECTS)
		ReallyForceSpell(Player3,CLERIC_SUMMON_INSECTS)
		ReallyForceSpell(Player4,CLERIC_SUMMON_INSECTS)
		ReallyForceSpell(Player5,CLERIC_SUMMON_INSECTS)
		ReallyForceSpell(Player6,CLERIC_SUMMON_INSECTS)
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(5)
		ReallyForceSpell(Player1,WIZARD_MONSTER_SUMMONING_4)
		ReallyForceSpell(Player2,WIZARD_MONSTER_SUMMONING_4)
		ReallyForceSpell(Player3,WIZARD_MONSTER_SUMMONING_4)
		ReallyForceSpell(Player4,WIZARD_MONSTER_SUMMONING_4)
		ReallyForceSpell(Player5,WIZARD_MONSTER_SUMMONING_4)
		ReallyForceSpell(Player6,WIZARD_MONSTER_SUMMONING_4)
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(6)
		ReallyForceSpell(Player1,WIZARD_SUMMON_EFREET)
		ReallyForceSpell(Player2,WIZARD_SUMMON_EFREET)
		ReallyForceSpell(Player3,WIZARD_SUMMON_EFREET)
		ReallyForceSpell(Player4,WIZARD_SUMMON_EFREET)
		ReallyForceSpell(Player5,WIZARD_SUMMON_EFREET)
		ReallyForceSpell(Player6,WIZARD_SUMMON_EFREET)
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(3)
		ReallyForceSpell(Player1,SUMMON_FIRE_ELEMENTAL)
		ReallyForceSpell(Player2,SUMMON_FIRE_ELEMENTAL)
		ReallyForceSpell(Player3,SUMMON_FIRE_ELEMENTAL)
		ReallyForceSpell(Player4,SUMMON_FIRE_ELEMENTAL)
		ReallyForceSpell(Player5,SUMMON_FIRE_ELEMENTAL)
		ReallyForceSpell(Player6,SUMMON_FIRE_ELEMENTAL)
END

IF
	RandomNum(5, 1)
THEN
	RESPONSE #100
		IncrementGlobal("psGlobeSpellCounter", "LOCALS", 1)
		Wait(7)
		ReallyForceSpell(Player1,SUMMON_DEVIL_SHADE)
		ReallyForceSpell(Player2,SUMMON_DEVIL_SHADE)
		ReallyForceSpell(Player3,SUMMON_DEVIL_SHADE)
		ReallyForceSpell(Player4,SUMMON_DEVIL_SHADE)
		ReallyForceSpell(Player5,SUMMON_DEVIL_SHADE)
		ReallyForceSpell(Player6,SUMMON_DEVIL_SHADE)
END