Perk Property RestorationNovice Auto
Perk Property RestorationApprentice Auto
Perk Property RestorationAdept Auto
Perk Property RestorationExpert Auto
Perk Property RestorationMaster Auto

Perk Property DestructionNovice Auto
Perk Property DestructionApprentice Auto
Perk Property DestructionAdept Auto
Perk Property DestructionExpert Auto
Perk Property DestructionMaster Auto

Perk Property AlterationNovice Auto
Perk Property AlterationApprentice Auto
Perk Property AlterationAdept Auto
Perk Property AlterationExpert Auto
Perk Property AlterationMaster Auto

Perk Property IllusionNovice Auto
Perk Property IllusionApprentice Auto
Perk Property IllusionAdept Auto
Perk Property IllusionExpert Auto
Perk Property IllusionMaster Auto

Perk Property ConjurationNovice Auto
Perk Property ConjurationApprentice Auto
Perk Property ConjurationAdept Auto
Perk Property ConjurationExpert Auto
Perk Property ConjurationMaster Auto

Globalvariable Property Andr_NoviceLevel Auto
Globalvariable Property Andr_ApprenticeLevel Auto
Globalvariable Property Andr_AdeptLevel Auto
Globalvariable Property Andr_ExpertLevel Auto
Globalvariable Property Andr_MasterLevel Auto

Actor Property PlayerRef Auto

Event OnObjectEquipped(Form akBaseObject, ObjectReference akReference)
	If akBaseObject as Spell

		; RESTORATION
		If akBaseObject.HasCastingPerk(RestorationApprentice) && (!PlayerRef.HasPerk(RestorationApprentice) || PlayerRef.GetActorValue("Restoration") < Andr_ApprenticeLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Restoration Apprentice)")

		; Make the following ElseIf part optional
		ElseIf akBaseObject.HasCastingPerk(RestorationNovice) && (!PlayerRef.HasPerk(RestorationNovice) || PlayerRef.GetActorValue("Restoration") < Andr_NoviceLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Restoration Novice)")

		ElseIf akBaseObject.HasCastingPerk(RestorationAdept) && (!PlayerRef.HasPerk(RestorationAdept) || PlayerRef.GetActorValue("Restoration") < Andr_AdeptLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Restoration Adept)")
		ElseIf akBaseObject.HasCastingPerk(RestorationExpert) && (!PlayerRef.HasPerk(RestorationExpert) || PlayerRef.GetActorValue("Restoration") < Andr_ExpertLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Restoration Expert)")
		ElseIf akBaseObject.HasCastingPerk(RestorationMaster) && (!PlayerRef.HasPerk(RestorationMaster) || PlayerRef.GetActorValue("Restoration") < Andr_MasterLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Restoration Master)")

		; CONJURATION

		; Make the following ElseIf part optional
		ElseIf akBaseObject.HasCastingPerk(ConjurationNovice) && (!PlayerRef.HasPerk(ConjurationNovice) || PlayerRef.GetActorValue("Conjuration") < Andr_NoviceLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Conjuration Novice)")

		ElseIf akBaseObject.HasCastingPerk(ConjurationApprentice) && (!PlayerRef.HasPerk(ConjurationApprentice) || PlayerRef.GetActorValue("Conjuration") < Andr_ApprenticeLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Conjuration Apprentice)")
		ElseIf akBaseObject.HasCastingPerk(ConjurationAdept) && (!PlayerRef.HasPerk(ConjurationAdept) || PlayerRef.GetActorValue("Conjuration") < Andr_AdeptLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Conjuration Adept)")
		ElseIf akBaseObject.HasCastingPerk(ConjurationExpert) && (!PlayerRef.HasPerk(ConjurationExpert) || PlayerRef.GetActorValue("Conjuration") < Andr_ExpertLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Conjuration Expert)")
		ElseIf akBaseObject.HasCastingPerk(ConjurationMaster) && (!PlayerRef.HasPerk(ConjurationMaster) || PlayerRef.GetActorValue("Conjuration") < Andr_MasterLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Conjuration Master)")

		; DESTRUCTION

		; Make the following ElseIf part optional
		ElseIf akBaseObject.HasCastingPerk(DestructionNovice) && (!PlayerRef.HasPerk(DestructionNovice) || PlayerRef.GetActorValue("Destruction") < Andr_NoviceLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Destruction Novice)")

		ElseIf akBaseObject.HasCastingPerk(DestructionApprentice) && (!PlayerRef.HasPerk(DestructionApprentice) || PlayerRef.GetActorValue("Destruction") < Andr_ApprenticeLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Destruction Apprentice)")
		ElseIf akBaseObject.HasCastingPerk(DestructionAdept) && (!PlayerRef.HasPerk(DestructionAdept) || PlayerRef.GetActorValue("Destruction") < Andr_AdeptLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Destruction Adept)")
		ElseIf akBaseObject.HasCastingPerk(DestructionExpert) && (!PlayerRef.HasPerk(DestructionExpert) || PlayerRef.GetActorValue("Destruction") < Andr_ExpertLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Destruction Expert)")
		ElseIf akBaseObject.HasCastingPerk(DestructionMaster) && (!PlayerRef.HasPerk(DestructionMaster) || PlayerRef.GetActorValue("Destruction") < Andr_MasterLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Destruction Master)")

		; ILLUSION

		; Make the following ElseIf part optional
		ElseIf akBaseObject.HasCastingPerk(IllusionNovice) && (!PlayerRef.HasPerk(IllusionNovice) || PlayerRef.GetActorValue("Illusion") < Andr_NoviceLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Illusion Novice)")

		ElseIf akBaseObject.HasCastingPerk(IllusionApprentice) && (!PlayerRef.HasPerk(IllusionApprentice) || PlayerRef.GetActorValue("Illusion") < Andr_ApprenticeLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Illusion Apprentice)")
		ElseIf akBaseObject.HasCastingPerk(IllusionAdept) && (!PlayerRef.HasPerk(IllusionAdept) || PlayerRef.GetActorValue("Illusion") < Andr_AdeptLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Illusion Adept)")
		ElseIf akBaseObject.HasCastingPerk(IllusionExpert) && (!PlayerRef.HasPerk(IllusionExpert) || PlayerRef.GetActorValue("Illusion") < Andr_ExpertLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Illusion Expert)")
		ElseIf akBaseObject.HasCastingPerk(IllusionMaster) && (!PlayerRef.HasPerk(IllusionMaster) || PlayerRef.GetActorValue("Illusion") < Andr_MasterLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Illusion Master)")

		; ALTERATION

		; Make the following ElseIf part optional
		ElseIf akBaseObject.HasCastingPerk(AlterationNovice) && (!PlayerRef.HasPerk(AlterationNovice) || PlayerRef.GetActorValue("Alteration") < Andr_NoviceLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Alteration Novice)")

		ElseIf akBaseObject.HasCastingPerk(AlterationApprentice) && (!PlayerRef.HasPerk(AlterationApprentice) || PlayerRef.GetActorValue("Alteration") < Andr_ApprenticeLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Alteration Apprentice)")
		ElseIf akBaseObject.HasCastingPerk(AlterationAdept) && (!PlayerRef.HasPerk(AlterationAdept) || PlayerRef.GetActorValue("Alteration") < Andr_AdeptLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Alteration Adept)")
		ElseIf akBaseObject.HasCastingPerk(AlterationExpert) && (!PlayerRef.HasPerk(AlterationExpert) || PlayerRef.GetActorValue("Alteration") < Andr_ExpertLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Alteration Expert)")
		ElseIf akBaseObject.HasCastingPerk(AlterationMaster) && (!PlayerRef.HasPerk(AlterationMaster) || PlayerRef.GetActorValue("Alteration") < Andr_MasterLevel.GetValue())
			akBaseObject.UnEquip()
			Debug.Messagebox("You lack the required perk to cast this spell. (Alteration Master)")
		EndIf

	EndIf
EndEvent