Add Voice Types script

Scriptname bsAddMirVoice extends Quest

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

Message Property bsMirInstalledMsg  Auto

Book Property bsRemoveMirBook  Auto

function AddMirVoice()
	if !VoicesCommonCombatant.HasForm(FemaleMir)
		VoicesCommonCombatant.AddForm(FemaleMir)
	endif
	if !VoicesCommonAdult.HasForm(FemaleMir)
		VoicesCommonAdult.AddForm(FemaleMir)
	endif
	if !DefaultNPCVoiceTypes.HasForm(FemaleMir)
		DefaultNPCVoiceTypes.AddForm(FemaleMir)
	endif
	if !VoicesNPCs.HasForm(FemaleMir)
		VoicesNPCs.AddForm(FemaleMir)
	endif
	if !VoicesFollowerNeutral.HasForm(FemaleMir)
		VoicesFollowerNeutral.AddForm(FemaleMir)
	endif
	if !VoicesMarriageNeutral.HasForm(FemaleMir)
		VoicesMarriageNeutral.AddForm(FemaleMir)
	endif
	if !VoicesMarriageAll.HasForm(FemaleMir)
		VoicesMarriageNeutral.AddForm(FemaleMir)
	endif
	Game.GetPlayer().AddItem(bsRemoveMirBook,1)
	bsMirInstalledMsg.show()
endfunction

Event OnInit()
	AddMirVoice()
endevent