enderalse/source/scripts/_00e_mq12c_functions.psc

468 lines
15 KiB
Plaintext
Raw Normal View History

Scriptname _00E_MQ12c_Functions extends Quest Conditional
Import _00E_QuestFunctions
Import Utility
; This script is mainly used for handling the different "debris" stages of Ark after the siege
;=====================================================================================
; EVENTS
;=====================================================================================
Event OnUpdate()
If MQ12c_SC03_Dream.IsPlaying()
If GameHour.GetValue() >= 20
Timescale.SetValue(0.01)
Else
RegisterForSingleUpdate(1)
EndIf
Else
UnregisterForUpdate()
EndIf
EndEvent
Event OnUpdateGameTime()
DebrisLevel02()
DeleteSC01Stuff()
EndEvent
;=====================================================================================
; FUNCTIONS
;=====================================================================================
Function DebrisLevel01()
; Ark directly after the Nehrimese's attack, corpses are still around, sigils are enabled
int iIndex = _00E_MQ12c_HarborNPCs.GetSize()
while iIndex > 0
iIndex -= 1
ObjectReference objToDisable = _00E_MQ12c_HarborNPCs.GetAt(iIndex) as ObjectReference
objToDisable.Disable()
endwhile
iIndex = _00E_MQ12c_SoldierNPCs.GetSize()
while iIndex > 0
iIndex -= 1
ObjectReference objToEnable = _00E_MQ12c_SoldierNPCs.GetAt(iIndex) as ObjectReference
objToEnable.Enable()
; Failsave to prevent a bug in which some of the Possessed
; enabled at this point would be in ghostmode and therefore
; invincible
; ( http://sureai.net:9898/browse/ERB-846 ).
; EDIT Till 03/Nov/2018: This doesn't really fix the issue, but I leave the code in here just in case
; see comment below
Actor objAsActor = (objToEnable as Actor)
if objAsActor != None
if (objToEnable as _00E_EPOnDeath)
; Checking (by typecast) that objAsActor is an enemy.
objAsActor.SetGhost(False)
endif
endif
endwhile
iIndex = _00E_MQ12c_FireNPCs.GetSize()
while iIndex > 0
iIndex -= 1
ObjectReference objToEnable = _00E_MQ12c_FireNPCs.GetAt(iIndex) as ObjectReference
objToEnable.Enable()
; Failsave to prevent a bug in which some of the Possessed
; enabled at this point would be in ghostmode and therefore
; invincible
; ( http://forum.sureai.net//tracker.php?p=8&t=10425 ).
; EDIT Till 03/Nov/2018: This doesn't really fix the issue, but I leave the code in here just in case
; see comment below
Actor objAsActor = (objToEnable as Actor)
if objAsActor != None
objAsActor.SetGhost(False)
endif
endwhile
; Till 03/Nov/2018: The possessed NPCs need to be enabled in a separate formlist (could have been also done via EnableParent)
; Anyway, the reason behind this is fairly simple: The script _00E_MQ12c_HarbirSiegeSC uses also the formlists
; _00E_MQ12c_FireNPCs and _00E_MQ12c_SoldierNPCs but the script actually sets the ghost flag to 1 upon leaving the respective trigger
; and hence the flag can't be set for an actor's reference it gets set for the actor base
; resulting in all actor references of the possessed NPCs that are included in the formlist being flagged as ghost
; I took the possessed NPCs out of those lists and created this new one, that isn't used by the harbor trigger at all
_00E_QuestFunctions.EnableReferenceFormList(_00E_MQ12c_PossessedNPCs)
MQ12c_SC1_ExecutionDoor001.BlockActivation(True)
MQ12c_SC1_ExecutionDoor001.SetLockLevel(255)
MQ12c_SC1_ExecutionDoor001.SetOpen(False)
MQ12c_SC1_ExecutionDoor001.Lock(True)
MQ12c_WestGate_BarrierREF.Enable()
MQ12c_NorthGate_BarrierREF.Enable()
MQ12c_MyradOutsideGate_BarrierREF.Enable()
MQ12c_SouthGate_BarrierREF.Enable()
MQ12c_SC01_FailsaveREF.Enable()
MQ12c_HarborGate_BarrierREF.Enable()
MQ12b_SC6_ArcherMarker.Disable()
MQ12b_SC6_HarborLinker.Disable()
MQ12c_GuardLinker.Disable()
_00E_MC_TaranorREF.Disable()
_00E_SC_AlmaREF.Disable()
MQ12c_DisableBoat.Disable()
MQ12c_Debris_NPC_Linker.Enable()
MQ12c_NehrimeseScoutREF.Enable()
MQ12c_Debris_Smoke_Linker.Enable()
MQ12c_Debris_Level_01_Linker.Enable()
MQ12cDebrisLight.MoveTo(NightLightsMarker, abMatchRotation = False) ; Hide one lantern light in Ark's Stranger Quarter
RegisterForSingleUpdateGameTime(72) ; Wait three days to proceed to next debris stage
EndFunction
Function DebrisLevel02()
MQ12b_SC14_SiegeTempleMarker.Disable()
MQ12c_Debris_Level_01_Linker.Disable()
; Corpses have been carried removed, first repairs have started
MQ12c_Debris_Level_02_Linker.Enable()
MQ12cDebrisLight.MoveToMyEditorLocation() ; Unhide lantern light in Ark's Stranger Quarter
MQ12cDebrisLight = None ; No need to keep it persistent anymore
EndFunction
Function SetUpSC01()
MQ12c_SC2_Bed.SetActorOwner(PlayerREF.GetActorBase())
MQ12c_SC2_Bed.BlockActivation(True)
_00E_MC_TealorRef.Disable()
_00E_MC_NataraRef.Disable()
MQ12c_SC1_ExecutionVoiceTealor001.Enable()
MQ12c_SC1_ExecutionDoor001.SetLockLevel(255)
MQ12c_SC1_ExecutionDoor001.SetOpen(False)
MQ12c_SC1_ExecutionDoor001.Lock(True)
EndFunction
Function CleanUpSC01()
_00E_MC_TealorRef.Enable()
_00E_MC_NataraRef.Enable()
EndFunction
Function DeleteSC01Stuff()
MQ12c_SC1_ExecutionVoiceTealor001.Disable()
MQ12c_SC1_ExecutionDoor001.SetLockLevel(0)
MQ12c_SC1_ExecutionDoor001.SetOpen(False)
MQ12c_SC1_ExecutionDoor001.Lock(False)
EndFunction
Function ShowMessageBoxBeforeSleeping()
If ((CQJ04.IsRunning()) && (CQC04.IsRunning()))
If !CQJ04.IsCompleted() && !CQC04.IsCompleted()
int iButton01 = _00E_MQ12c_SleepJesparCaliaMsg.Show()
If iButton01 == 0
SetStage(15)
Else
Return
EndIf
ElseIf CQJ04.IsCompleted() && !CQC04.IsCompleted()
int iButton02 = _00E_MQ12c_SleepCaliaMsg.Show()
If iButton02 == 0
SetStage(15)
Else
Return
EndIf
ElseIf !CQJ04.IsCompleted() && CQC04.IsCompleted()
int iButton03 = _00E_MQ12c_SleepJesparMsg.Show()
If iButton03 == 0
SetStage(15)
Else
Return
EndIf
Elseif CQJ04.IsCompleted() && CQC04.IsCompleted()
SetStage(15)
EndIf
ElseIf (CQJ04.IsRunning()) && !(CQJ04.IsCompleted())
int iButton04 = _00E_MQ12c_SleepJesparMsg.Show()
If iButton04 == 0
SetStage(15)
Else
Return
EndIf
ElseIf (CQC04.IsRunning()) && !(CQC04.IsCompleted())
int iButton05 = _00E_MQ12c_SleepCaliaMsg.Show()
If iButton05 == 0
SetStage(15)
Else
Return
EndIf
Else
SetStage(15)
EndIf
EndFunction
Function StartSC02()
_00E_SilenceTransitionLowPriority.Add()
If (!CQC04.IsCompleted()) && CQC04.IsRunning()
CQC04.SetStage(20)
EndIf
If (!CQJ04.IsCompleted()) && CQJ04.IsRunning()
CQJ04.SetStage(40)
EndIf
_00E_QuestFunctions.PlayerAIWalk()
Game.ForceThirdPerson()
MQ12c_SC02_DreamGoToSleep.ForceStart()
EndFunction
Function FadeToBlack()
SetObjectiveCompleted(10)
SetStage(20)
EndFunction
Function StartSC03()
fTimescaleBefore = TimeScale.GetValue()
MQ10a_SC1_HeartParentREF.Enable()
MQ12c_SC03_FatherREF.Enable()
MQ12c_SC03_FatherREF.MoveTo(MQ12c_SC3_FatherMarkerREF)
MQ12c_SC03_FatherREF.SetOutfit(_00E_Father_Outfit_VeryDecayed)
If MQP01_FatherRef.IsEnabled()
MQP01_FatherRef.Disable()
EndIf
_00E_QuestFunctions.UnsummonApparitionIfExists()
FadeToBlackIMOD.Apply()
Wait(1)
FadeToBlackHoldImod.ApplyCrossFade(1)
PlayerREF.MoveTo(PlayerStartMarkerNew)
_00E_SilenceTransitionLowPriority.Remove()
Levelsystem.RemoveSilence()
_00E_Music_Special_Dreams.Add()
_00E_QuestFunctions.PlayerAIWalkStop()
Game.ShowFirstPersonGeometry(False)
Game.RequestAutoSave()
fPlayerScale = PlayerREF.GetScale()
PlayerREF.SetScale(0.85)
TimeScale.SetValue(0.1)
Levelsystem.SkipTimeToHour(18.5)
ImageSpaceModifier.RemoveCrossFade(3)
Game.ForceFirstPerson()
Game.DisablePlayerControls(false, true, true, false, true, false, false)
Wait(3.0)
Game.EnablePlayerControls()
Game.DisablePlayerControls(false, true, true, false, true, false, true)
MQ12c_SC03_Dream.ForceStart()
Wait(2)
SetObjectiveDisplayed(15)
EndFunction
Function SetTimescale()
TimeScale.SetValue(450)
RegisterForSingleUpdate(1)
EndFunction
Function OpenForbiddenDoor()
MQ12c_SC03_ForbiddenDoorREF.SetOpen(True)
EndFunction
Function EndSC03()
PlayerREF.SetScale(fPlayerScale)
_00E_MQ10a_DreamCollapseIMOD.Apply()
Wait(4)
FadeToBlackHoldImod.ApplyCrossFade(1)
MQ12c_SC03_FatherREF.Disable()
_00E_Music_Special_Dreams.Remove()
SetObjectiveCompleted(10)
SetObjectiveCompleted(15)
SetStage(40)
EndFunction
Function StartSC04()
_00E_MC_JesparREF.SetOutfit(_00E_MC_JesparOutfit)
_00E_Music_Special_Dreams.Remove()
_00E_SilenceTransitionLowPriority.Add()
_00E_QuestFunctions.PlayerAIWalkStop()
Game.ForceThirdPerson()
MQ12c_SC04_DoorREF.SetOpen(true)
PlayerREF.MoveTo(MQ12c_SC04_CompanionRunREF)
SetCompanion()
If Companion.IsDisabled()
Companion.Enable()
EndIf
Companion.MoveTo(MQ12c_SC04_CompanionMarkerREF)
TimeScale.SetValue(fTimescaleBefore)
MQ12c_SC04_WakeUp.ForceStart()
Game.SetHudCartMode(false)
EndFunction
Function FadeBack()
Game.SetPlayerAIDriven(False)
_00E_QuestFunctions.PlayerAIWalkStop()
FadeToBlackBackLongImod.ApplyCrossFade(afFadeDuration = 1.0)
EndFunction
Function SetCompanion()
If SympathyCalia.GetValueInt() > SympathyJespar.GetValue()
Companion = _00E_MC_CaliaREF
Else
Companion = _00E_MC_JesparREF
EndIf
SC04_Companion.ForceRefTo(Companion)
If (Companion == _00E_MC_CaliaREF) && (SympathyJespar.GetValueInt() >= __Config_RomanceThreshold)
bAskForLoveInterest = True
Elseif (Companion == _00E_MC_JesparREF) && (SympathyCalia.GetValueInt() >= __Config_RomanceThreshold)
bAskForLoveInterest = True
Else
bAskForLoveInterest = False
EndIf
EndFunction
Function ActivateBed()
_00E_QuestFunctions.RefreshFace()
MQ12c_SC2_Bed.Activate(PlayerREF, True)
Game.EnablePlayerControls()
Game.SetPlayerAIDriven(False)
Game.SetHudCartMode(False)
EndFunction
Function CleanUpAndStartMQ13()
Game.EnablePlayerControls()
Game.SetHudCartMode(false)
_00E_SilenceTransitionLowPriority.Remove()
Levelsystem.RemoveSilence()
MQ12c_SC01_FailsaveREF.Disable()
MQ12c_SC1_ExecutionDoor001.Lock(False)
MQ12c_SC1_ExecutionDoor001.BlockActivation(False)
MQ13a.SetStage(5)
EndFunction
;=====================================================================================
; PROPERTIES
;=====================================================================================
int iDebrisLevel
float fPlayerScale = 1.0
float fTimescaleBefore
bool Property bAskForLoveInterest Auto Conditional Hidden
int Property __Config_RomanceThreshold Auto
{Determines how many sympathy points the player needs to have for either Calia or Jespar in order for the other one to ask about his/her relationship to the player}
_00E_QuestFunctions Property Levelsystem Auto
Actor Property Companion Auto Conditional Hidden
Actor Property _00E_MC_TealorRef Auto
Actor Property _00E_MC_TaranorREF Auto
Actor Property _00E_SC_AlmaREF Auto
Actor Property _00E_MC_NataraRef Auto
Actor Property _00E_MC_JesparREF Auto
Actor Property _00E_MC_CaliaREF Auto
Actor Property MQP01_FatherRef Auto
Actor Property MQ12c_SC03_FatherREF Auto
Actor Property PlayerREF Auto
GlobalVariable Property SympathyCalia Auto
GlobalVariable Property SympathyJespar Auto
GlobalVariable Property Timescale Auto
GlobalVariable Property GameHour Auto
Quest Property CQC04 Auto
Quest Property CQJ04 Auto
Quest Property MQ13a Auto
MusicType Property _00E_Music_Special_Dreams Auto
MusicType Property _00E_SilenceTransitionLowPriority Auto
Message Property _00E_MQ12c_SleepCaliaMsg Auto
Message Property _00E_MQ12c_SleepJesparMsg Auto
Message Property _00E_MQ12c_SleepJesparCaliaMsg Auto
Scene Property MQ12c_SC02_DreamGoToSleep Auto
Scene Property MQ12c_SC03_Dream Auto
Scene Property MQ12c_SC04_WakeUp Auto
Outfit Property _00E_MC_JesparOutfit Auto
Outfit Property _00E_Father_Outfit_VeryDecayed Auto
ReferenceAlias Property SC04_Companion Auto
ImageSpaceModifier Property FadeToBlackIMOD Auto
ImageSpaceModifier Property FadeToBlackBackLongImod Auto
ImageSpaceModifier Property FadeToBlackHoldImod Auto
ImageSpaceModifier Property _00E_MQ10a_DreamCollapseIMOD Auto
Formlist Property _00E_MQ12c_FireNPCs Auto
Formlist Property _00E_MQ12c_HarborNPCs Auto
Formlist Property _00E_MQ12c_SoldierNPCs Auto
Formlist Property _00E_MQ12c_PossessedNPCs Auto
ObjectReference Property MQ12c_Debris_NPC_Linker Auto
ObjectReference Property MQ12c_Debris_Smoke_Linker Auto
ObjectReference Property MQ12c_Debris_Level_01_Linker Auto
ObjectReference Property MQ12c_Debris_Level_02_Linker Auto
ObjectReference Property MQ12b_SC14_SiegeTempleMarker Auto
ObjectReference Property MQ12c_SC2_Bed Auto
ObjectReference Property PlayerStartMarkerNew Auto
ObjectReference Property MQ12c_SC3_FatherMarkerREF Auto
ObjectReference Property MQ12c_SC04_CompanionMarkerREF Auto
ObjectReference Property MQ12c_SC04_CompanionRunREF Auto
ObjectReference Property MQ12c_SC04_DoorREF Auto
ObjectReference Property MQ12c_DisableBoat Auto
ObjectReference Property MQ12c_NehrimeseScoutREF Auto
ObjectReference Property MQ12b_SC6_ArcherMarker Auto
ObjectReference Property MQ12b_SC6_HarborLinker Auto
ObjectReference Property MQ12c_GuardLinker Auto
ObjectReference Property MQ12c_WestGate_BarrierREF Auto
ObjectReference Property MQ12c_NorthGate_BarrierREF Auto
ObjectReference Property MQ12c_MyradOutsideGate_BarrierREF Auto
ObjectReference Property MQ12c_SouthGate_BarrierREF Auto
ObjectReference Property MQ12c_HarborGate_BarrierREF Auto
ObjectReference Property MQ12c_SC01_FailsaveREF Auto
ObjectReference Property MQ10a_SC1_HeartParentREF Auto
ObjectReference Property MQ12c_SC03_ForbiddenDoorREF Auto
ObjectReference Property MQ12c_SC1_ExecutionVoiceTealor001 Auto
ObjectReference Property MQ12c_SC1_ExecutionDoor001 Auto
ObjectReference Property NightLightsMarker Auto
ObjectReference Property MQ12cDebrisLight Auto