Scriptname __LALLMiscDialogueQSTScript extends Quest  

SexLabFramework Property mySexlab Auto
Actor Property PlayerRef Auto
Actor Property Nicolette Auto Hidden
Actor Property Bjorn Auto Hidden
Actor Property Feria Auto
Quest Property ThisQuest Auto
ReferenceAlias Property BjornRA Auto
ReferenceAlias Property NicoletteRA Auto
__LALLActorQuestScript Property SexThread Auto


ReferenceAlias Property BjornThisQuest Auto
ReferenceAlias Property NicoletteThisQuest Auto

Function GetBjornNicolette()
Bjorn = BjornRA.GetActorRef()
Nicolette = NicoletteRA.GetActorRef()
BjornThisQuest.ForceRefTo(BjornRA.GetActorReference())
NicoletteThisQuest.ForceRefTo(NicoletteRA.GetActorReference())
EndFunction



Function FeriaMasturbatePlayer()
;mySexlab.QuickStart(PlayerRef,Feria,none,none,none,none,none,"Masturbation,Masturbate,Handjob")
SexThread.NormalThread(Feria,"Masturbation,Masturbate,Handjob")
EndFunction

Function FeriaOralPlayer()
ActorBase PC = PlayerRef.GetActorBase()
if PC.GetSex() == 0
;mySexlab.QuickStart(PlayerRef,Feria,none,none,none,none,none,"Blowjob,Oral")
SexThread.NormalThread(Feria,"Blowjob,Oral")
else
mySexlab.QuickStart(PlayerRef,Feria,none,none,none,none,none,"Cunnilingus,Oral")
SexThread.NormalThread(Feria,"Cunnilingus,Oral")
endif
EndFunction

Function GiveFeriaOral()
;mySexlab.QuickStart(Feria,PlayerRef,none,none,none,none,none,"Cunnilingus,Vaginal,Oral")
SexThread.NormalThread(Feria,"Cunnilingus,Oral")
EndFunction

string Function BjornAndPCTag()
ActorBase PC = PlayerRef.GetActorBase()
if PC.GetSex() == 0
;male
return "Anal"
else
;female
return "Vaginal"
endif
EndFunction


string Function NicoletteAndPCTag()
ActorBase PC = PlayerRef.GetActorBase()
if PC.GetSex() == 0
;male
return "Missionary"
else
;female
return "Lesbian"
endif
EndFunction

string Function ParentsAndPCThreesome()
ActorBase PC = PlayerRef.GetActorBase()
if PC.GetSex() == 0
;male
return "Threesome"
else
;female
return "Threesome"
endif
EndFunction

Message Property M1 Auto
Message Property M2 Auto
Message Property M3 Auto


Function Stage20Thoughts()
;debug.messagebox("Hmph! I don't know why he got so mad about it!")
;debug.messagebox("Hmm? It sounds like mom and dad are talking about something. I should try to listen in.")
M1.Show()
M2.Show()
EndFunction

Function Stage15Thoughts()
;debug.messagebox("Umph! Dad is really serious right now. I should get to my room ASAP!")
M3.Show()
EndFunction


Function NicoletteGiveOral()
;mySexlab.QuickStart(PlayerRef,Nicolette,none,none,none,none,none,GetOralTag())
SexThread.NormalThread(Nicolette,GetOralTag())
EndFunction

string Function GetOralTag()
Int Sex = PlayerRef.GetActorBase().GetSex()
if Sex == 0
return "blowjob"
elseif sex == 1
return "cunnilingus"
endif
EndFunction

Function StartSafetyTimer()
RegisterForSingleUpdateGameTime(0.5)
EndFunction

Event OnUpdateGameTime()
if ThisQuest.GetStage() == 20
ThisQuest.SetStage(25)
endif
EndEvent

Function BjornGiveOral()
;mySexlab.QuickStart(PlayerRef,Bjorn,none,none,none,none,none,GetOralTag())
SexThread.NormalThread(Bjorn,GetOralTag())
EndFunction

Function ThreesomeFuck()
;mySexlab.QuickStart(PlayerRef,Nicolette,Bjorn,none,none,none,none,"threesome")
actor[] party = new actor[3]
party[0] = PlayerRef
party[1] = Nicolette
party[2] = Bjorn
SexThread.NormalThreadArray(party,"threesome")
EndFunction

Function BjornAndPlayerSex()
;mySexlab.QuickStart(PlayerRef,Bjorn,none,none,none,none,none,BjornAndPCTag())
SexThread.NormalThread(Bjorn,BjornAndPCTag())
EndFunction

Function NicoletteAndPlayerSex()
;mySexlab.QuickStart(PlayerRef,Nicolette,none,none,none,none,none,NicoletteAndPCTag())
SexThread.NormalThread(Nicolette,NicoletteAndPCTag())
EndFunction

Function InitParentsAndPCThreeSome()
;mySexlab.QuickStart(PlayerRef,Bjorn,Nicolette,none,none,none,none,ParentsAndPCThreesome())
actor[] party2 = new actor[3]
party2[0] = PlayerRef
party2[1] = Nicolette
party2[2] = Bjorn
SexThread.NormalThreadArray(party2,"threesome")
EndFunction