enderal/enderalse
1
Fork 0
Code Releases Activity

Added quick start

Browse Source
This commit is contained in:
Eddoursul 2024-01-11 21:24:54 +01:00
parent eff44b1e23
commit af3a933e2b
13 changed files with 143 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
QuickStart.esp Normal file
View File

Binary file not shown.

BIN
scripts/EnderalUpgradeAlias.pex
View File

Binary file not shown.

BIN
scripts/_00e_mqp01_functions.pex
View File

Binary file not shown.

BIN
scripts/_00e_mqp01_startsc.pex
View File

Binary file not shown.

BIN
scripts/_00e_mqp02_functions.pex
View File

Binary file not shown.

BIN
scripts/_00e_mqp03_functions.pex
View File

Binary file not shown.

BIN
scripts/qf_mqp03_0007b1e5.pex
View File

Binary file not shown.

4
source/scripts/EnderalUpgradeAlias.psc
View File

@ -7,8 +7,8 @@ float fPatchVersion
Event OnInit()
; MQP01
if (Game.GetForm(0x46F1A) as Quest).IsStageDone(10)
Quest startQuest = Game.GetForm(0x46F1A) as Quest
if startQuest.IsStageDone(10) || startQuest.IsCompleted()
While Utility.IsInMenuMode()
Utility.WaitMenuMode(0.1)
EndWhile

6
source/scripts/_00e_mqp01_functions.psc
View File

@ -21,12 +21,6 @@ Function SetUpScene()
MQP01_DreamDoorREF.BlockActivation(True)
Wait(5.0)
if EnderalFunctions.GetNewGameCount() > 1
Game.EnablePlayerControls()
Game.QuitToMainMenu()
Debug.MessageBox("Due to an engine bug, new game should not be started after quitting to the main menu. Please, restart Enderal first.")
endif
EndFunction
Function UnlockDoor()

39
source/scripts/_00e_mqp01_startsc.psc
View File

@ -2,23 +2,48 @@ Scriptname _00E_MQP01_StartSC extends ObjectReference
Event OnTriggerEnter (ObjectReference akActionREF)
if akActionRef == PlayerREF && !bDone
If !MQ10a.IsRunning()
If !MQ12c.IsRunning()
MQP01.SetCurrentStageID(10)
Self.Delete()
if akActionRef == PlayerREF && !bDone
bDone = true ; deletion may take some time
Delete()
If !MQ10a.IsRunning()
If !MQ12c.IsRunning()
if EnderalFunctions.GetNewGameCount() > 1
Game.QuitToMainMenu()
Debug.MessageBox("Due to an engine bug, new game should not be started after quitting to the main menu. Please, restart Enderal first.")
return
endif
if _00E_QuickStartPrompt.Show() > 0
MQP01.CompleteAllObjectives()
MQP01.CompleteQuest()
MQP02.CompleteAllObjectives()
MQP02.CompleteQuest()
Utility.wait(0.5)
PlayerREF.MoveTo(_00E_ClassMenuOrigin)
Debug.SendAnimationEvent(PlayerRef, "IdleForceDefaultState")
Game.ShowRaceMenu()
Game.DisablePlayerControls(false, true, true, false, true, false, false, true)
MQP03.SetCurrentStageID(15)
(MQP02 as _00E_MQP02_Functions).AddRacialAbilites()
else
MQP01.SetCurrentStageID(10)
endif
EndIf
EndIf
EndIf
EndIf
EndEvent
bool bDone
Quest Property MQP01 Auto
Quest Property MQP02 Auto
Quest Property MQP03 Auto
Quest Property MQ12c Auto
Quest Property MQ10a Auto
Actor Property PlayerREF Auto
Message Property _00E_QuickStartPrompt Auto
ObjectReference Property _00E_ClassMenuOrigin Auto

2
source/scripts/_00e_mqp02_functions.psc
View File

@ -398,7 +398,7 @@ Function RocioKillPlayer()
Wait(3)
Game.RequestAutoSave()
Self.SetCurrentStageID(115)
MQP03.Start()
MQP03.SetCurrentStageID(5)
EndFunction

17
source/scripts/_00e_mqp03_functions.psc
View File

@ -39,7 +39,7 @@ Function MovePlayerToStart()
DisablePlayerControls(false, true, true, false, true, false, false, true)
PlayerREF.SetAlpha(0.0)
PlayerREF.MoveTo(_00E_ClassMenuOrigin)
Self.SetCurrentStageID(10)
SetCurrentStageID(10)
EndFunction
@ -52,17 +52,22 @@ Function ShowVisionBinkMovie()
FadeToBlackHoldIMOD.PopTo(_00E_MQP03_WakeUpIMOD)
Wait(4)
_00E_SilenceAbruptHighPriority.Remove()
Message.ResetHelpMessage("Empty")
_00E_MQP03_Thoughts01.ShowAsHelpMessage("Empty", 5, 1, 1)
SetCurrentStageID(15)
EndFunction
function SetupPlayer()
Game.SetInCharGen(false, true, false)
PlayerREF.AddShout(_00E_Class_Meditate)
Game.UnlockWord(_00E_Class_ClassMenuWord)
Game.TeachWord(_00E_Class_ClassMenuWord)
_00E_MQP03_sMemoryPointGained.Show(1)
TalentPoints.SetValueInt(1)
PlayerREF.SetActorValue("dragonsouls", TalentPoints.GetValueInt())
Message.ResetHelpMessage("Empty")
_00E_MQP03_Thoughts01.ShowAsHelpMessage("Empty", 5, 1, 1)
RegisterForSingleUpdate(20)
EndFunction
endfunction
Function StrandingCutscene()
@ -226,4 +231,4 @@ WordOfPower Property _00E_Class_ClassMenuWord Auto
Shout Property _00E_Class_Meditate Auto
VisualEffect Property FXCameraAttachEmbersHeavyEffects Auto
VisualEffect Property FXCameraAttachEmbersEffect Auto
VisualEffect Property FXCameraAttachEmbersEffect Auto

182
source/scripts/qf_mqp03_0007b1e5.psc
View File

@ -1,5 +1,5 @@
;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 22
;NEXT FRAGMENT INDEX 28
Scriptname QF_MQP03_0007B1E5 Extends Quest Hidden
;BEGIN ALIAS PROPERTY PlayerAlias
@ -7,6 +7,19 @@ Scriptname QF_MQP03_0007B1E5 Extends Quest Hidden
ReferenceAlias Property Alias_PlayerAlias Auto
;END ALIAS PROPERTY
;BEGIN FRAGMENT Fragment_1
Function Fragment_1()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowVisionBinkMovie()
Game.SetHudCartMode(False)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_16
Function Fragment_16()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
@ -19,10 +32,14 @@ kmyQuest.PrepareSoundAndWeather()
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_6
Function Fragment_6()
;BEGIN FRAGMENT Fragment_27
Function Fragment_27()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
Self.SetObjectiveDisplayed(5)
kmyQuest.SetupPlayer()
;END CODE
EndFunction
;END FRAGMENT
@ -40,67 +57,6 @@ SetCurrentStageID(75)
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_9
Function Fragment_9()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowSkillbookTutorial()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_1
Function Fragment_1()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowVisionBinkMovie()
Game.SetHudCartMode(False)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_11
Function Fragment_11()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowSleepTutorial()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_3
Function Fragment_3()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.StrandingCutscene()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_12
Function Fragment_12()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowThoughtBox05()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_0
Function Fragment_0()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
@ -113,26 +69,6 @@ kmyQuest.MovePlayerToStart()
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_17
Function Fragment_17()
;BEGIN CODE
_00E_EPHandler.GiveEP(150)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_8
Function Fragment_8()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowThoughtBox()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_13
Function Fragment_13()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
@ -145,4 +81,80 @@ kmyQuest.ShowThoughtBox06()
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_8
Function Fragment_8()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowThoughtBox()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_9
Function Fragment_9()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowSkillbookTutorial()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_17
Function Fragment_17()
;BEGIN CODE
_00E_EPHandler.GiveEP(150)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_12
Function Fragment_12()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowThoughtBox05()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_3
Function Fragment_3()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.StrandingCutscene()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_11
Function Fragment_11()
;BEGIN AUTOCAST TYPE _00E_MQP03_Functions
Quest __temp = self as Quest
_00E_MQP03_Functions kmyQuest = __temp as _00E_MQP03_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ShowSleepTutorial()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_6
Function Fragment_6()
;BEGIN CODE
Self.SetObjectiveDisplayed(5)
;END CODE
EndFunction
;END FRAGMENT
;END FRAGMENT CODE - Do not edit anything between this and the begin comment