Scriptname __LALLFeriaGenericFollowerScript extends Quest conditional

Actor Property PlayerRef Auto
Actor Property Feria Auto
SexLabFramework Property sexLab Auto
__LALLActorQuestScript Property SexThread Auto


;Follower stuff
Faction Property CurrentFollowerFaction Auto
Faction Property PotentialFollowerFaction Auto
DialogueFollowerScript Property FollowerQuest Auto
GlobalVariable Property FeriaSandboxMode Auto

;Romance level - starts at 0 for neutral
Int Property RomanceLvl Auto Conditional Hidden

;Inebriation
Int Property Drunk Auto Conditional Hidden
Int Property Skoomafied Auto Conditional Hidden

Function Romance(int to)
RomanceLvl = RomanceLvl + to
EndFunction

Function SetDrunk()
Drunk = 1
RegisterForSingleUpdateGameTime(6)
EndFunction

Function SetSkooma()
Skoomafied = 1
RegisterForSingleUpdateGameTime(2)
EndFunction

Function HaveSex()
;SexLab.QuickStart(PlayerRef,Feria,none,none,none,none,none,GetSLTag())
SexThread.NormalThread(Feria,GetSLTag())
EndFunction

string function GetSLTag()
int random = utility.randomint(0,6)
if random == 0
return "doggystyle"
elseif random == 1
return "oral"
elseif random == 2
return "vaginal"
elseif random == 3
return "cunnilingus"
elseif random == 4
return "standing"
elseif random == 5
return "handjob"
elseif random == 6
return "footjob"
endif

EndFunction


Event OnUpdateGameTime()
if Drunk == 1
Drunk = 0
elseif Skoomafied == 1
Skoomafied = 0
endif

EndEvent

Function FeriaFollow()
FollowerQuest.SetFollower(Feria)
FollowerQuest.FollowerFollow()
EndFunction

Function FeriaUnfollow()
FollowerQuest.DismissFollower()
Feria.SetFactionRank(CurrentFollowerFaction, -1)
EndFunction