Scriptname __LALLCuckQuest1 extends Quest  Conditional

;Essentials
Actor Property PlayerRef Auto
SexlabFramework Property Sexlab Auto
zbfBondageShell Property Zaz Auto
zbfSlot[] Property ZSlot Auto Hidden
Quest Property ThisQuest Auto


;Ref Aliases
ReferenceAlias Property Feria Auto
ReferenceAlias Property Ulfberth Auto
ReferenceAlias Property Adrianne Auto
ReferenceAlias Property ChosenActor Auto


;Actors
Actor Property UlfberthActor Auto
Actor Property AdrianneActor Auto

;Conditionals
Int Property InitDialogue Auto Conditional Hidden
;1 Ulfberth 2 Adrianne
Int Property WhoDialogue Auto Conditional Hidden
Int Property UlfberthReject Auto Conditional Hidden
Int Property AdrianneReject Auto Conditional Hidden



Function RejectActor(int which)
if which == 1
UlfberthReject = 1
elseif which == 2
AdrianneReject = 1
endif
if (UlfberthReject == 1) && (AdrianneReject == 1)
;Fail quest
;ThisQuest.SetStage(fail)
endif



EndFunction


Function ChooseActor(int which)
if which == 1
;Ulfberth
ChosenActor.ForceRefTo(UlfberthActor)
Whodialogue = 1
elseif which == 2
;Adrianne
ChosenActor.ForceRefTo(AdrianneActor)
Whodialogue = 2
endif
ThisQuest.SetStage(10)
EndFunction