;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 1
Scriptname TIF__0200230A Extends TopicInfo Hidden

;BEGIN FRAGMENT Fragment_0
Function Fragment_0(ObjectReference akSpeakerRef)
Actor akSpeaker = akSpeakerRef as Actor
;BEGIN CODE
;NO CODE
_LoveInterest.ForceRefTo(_Carlotta)
_player.AddtoFaction(_door.GetFactionOwner())
_player.AddKeyIfNeeded(_door)
_player.SetFactionRank(_wifefaction, 0)
;END CODE
EndFunction
;END FRAGMENT

;END FRAGMENT CODE - Do not edit anything between this and the begin comment

Faction Property _wifefaction  Auto  

ObjectReference Property _door  Auto  

Actor Property _Carlotta  Auto  

Keyword Property _SpouseBedKeyword  Auto  

ReferenceAlias Property _LoveInterest  Auto  

Actor Property _player  Auto  
