Unique List

ScriptName RandomScript Extends Quest

;---------------------------------------------------------------------------------[Author Information]
;PROXiCide aka Taewon
;Steam:						http://steamcommunity.com/id/PROXiCiDE
;Nexus:						http://skyrim.nexusmods.com/users/3018315
;Bethesda:					http://forums.bethsoft.com/user/425376-taewon/
;CreationKit: 				http://www.creationkit.com/User:PROXiCiDE
;---------------------------------------------------------------------------------

Form Function UniqueList_RandomForm(FormList akList)
	If akList == None
		Return None
	EndIf

	Int iLen = akList.GetSize() - 1
	Int iIndex = 0
	If iLen>=1
		iIndex = Utility.RandomInt(0,iLen)
	EndIf
	Return akList.GetAt(iIndex)
EndFunction

Bool Function UniqueList_Add(Form akForm, FormList akList)
	If akList.HasForm(akForm)
		Return False
	EndIf

	akList.AddForm(akForm)
	Return True
EndFunction