UninstallVoiceScript

Scriptname bsUninstallMirScr extends activemagiceffect

VoiceType Property FemaleMir  Auto

FormList Property VoicesCommonCombatant  Auto

FormList Property VoicesCommonAdult  Auto

FormList Property DefaultNPCVoiceTypes  Auto

FormList Property VoicesNPCs  Auto

FormList Property VoicesFollowerNeutral  Auto

FormList Property VoicesMarriageNeutral  Auto

FormList Property VoicesMarriageAll  Auto

Quest Property bsMirVoiceAdd  Auto

Message Property bsMirUninstalledMsg  Auto

SPELL Property bsUninstallMirSpl  Auto

function UninstallMir()
	if bsMirVoiceAdd.IsRunning()
		bsMirVoiceAdd.Stop()
	endif
	if VoicesCommonCombatant.HasForm(FemaleMir)
		VoicesCommonCombatant.RemoveAddedForm(FemaleMir)
	endif
	if VoicesCommonAdult.HasForm(FemaleMir)
		VoicesCommonAdult.RemoveAddedForm(FemaleMir)
	endif
	if DefaultNPCVoiceTypes.HasForm(FemaleMir)
		DefaultNPCVoiceTypes.RemoveAddedForm(FemaleMir)
	endif
	if VoicesNPCs.HasForm(FemaleMir)
		VoicesNPCs.RemoveAddedForm(FemaleMir)
	endif
	if VoicesFollowerNeutral.HasForm(FemaleMir)
		VoicesFollowerNeutral.RemoveAddedForm(FemaleMir)
	endif
	if VoicesMarriageNeutral.HasForm(FemaleMir)
		VoicesMarriageNeutral.RemoveAddedForm(FemaleMir)
	endif
	if VoicesMarriageAll.HasForm(FemaleMir)
		VoicesMarriageAll.RemoveAddedForm(FemaleMir)
	endif
	Game.GetPlayer().UnequipSpell(bsUninstallMirSpl,1)
	Game.GetPlayer().RemoveSpell(bsUninstallMirSpl)
	bsMirUninstalledMsg.show()
endfunction

Event OnEffectStart(Actor akTarget, Actor akCaster)
	UninstallMir()
endevent