Added an MCM option to toggle killmoves

This commit is contained in:
Eddoursul 2024-01-17 22:50:37 +01:00
parent f85cf43704
commit 719d00d4b6
6 changed files with 24 additions and 2 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -23,6 +23,7 @@ Event OnPageReset(string page)
toggleOID_ReadAloudBooks = AddToggleOption(_00E_ConfigMenu_DisableReadAloudBooks.GetName(), _00E_DisableReadAloudBooks.GetValue() != 0) toggleOID_ReadAloudBooks = AddToggleOption(_00E_ConfigMenu_DisableReadAloudBooks.GetName(), _00E_DisableReadAloudBooks.GetValue() != 0)
toggleOID_VideoSkip = AddToggleOption(_00E_ConfigMenu_VideoSkip.GetName(), _00E_VideoSkip.GetValue() != 0) toggleOID_VideoSkip = AddToggleOption(_00E_ConfigMenu_VideoSkip.GetName(), _00E_VideoSkip.GetValue() != 0)
toggleOID_ActorHealthBars = AddToggleOption(_00E_ConfigMenu_ActorHealthBars.GetName(), _00E_ActorHealthBarsEnabled.GetValue() != 0) toggleOID_ActorHealthBars = AddToggleOption(_00E_ConfigMenu_ActorHealthBars.GetName(), _00E_ActorHealthBarsEnabled.GetValue() != 0)
toggleOID_KillMoves = AddToggleOption(_00E_ConfigMenu_KillMove.GetName(), KillMove.GetValue() != 0)
SetCursorPosition(1) SetCursorPosition(1)
@ -84,6 +85,14 @@ Event OnOptionSelect(int option)
else else
ActorHealthBarWidget.UnregisterEvents() ActorHealthBarWidget.UnregisterEvents()
endif endif
elseif option == toggleOID_KillMoves
ChangeCheckbox(toggleOID_KillMoves, KillMove)
if KillMove.GetValue()
Utility.SetINIBool("bVATSDisable:VATS", false)
else
Utility.SetINIBool("bVATSDisable:VATS", true)
endif
EndIf EndIf
EndEvent EndEvent
@ -114,6 +123,8 @@ Event OnOptionHighlight(int option)
SetInfoText("$ConfigMenuVideoSkipInfo") SetInfoText("$ConfigMenuVideoSkipInfo")
ElseIf option == toggleOID_ActorHealthBars ElseIf option == toggleOID_ActorHealthBars
SetInfoText("$ConfigMenuActorHealthBars") SetInfoText("$ConfigMenuActorHealthBars")
ElseIf option == toggleOID_KillMoves
SetInfoText("$ConfigMenuKillMoves")
EndIf EndIf
EndEvent EndEvent
@ -147,6 +158,7 @@ int toggleOID_OtherTutorials
int toggleOID_ReadAloudBooks int toggleOID_ReadAloudBooks
int toggleOID_VideoSkip int toggleOID_VideoSkip
int toggleOID_ActorHealthBars int toggleOID_ActorHealthBars
int toggleOID_KillMoves
Message Property _00E_ConfigMenu_Keybindings Auto Message Property _00E_ConfigMenu_Keybindings Auto
Message Property _00E_ConfigMenu_OtherOptions Auto Message Property _00E_ConfigMenu_OtherOptions Auto
@ -162,6 +174,7 @@ Message Property _00E_ConfigMenu_DisableOtherTutorials Auto
Message Property _00E_ConfigMenu_DisableReadAloudBooks Auto Message Property _00E_ConfigMenu_DisableReadAloudBooks Auto
Message Property _00E_ConfigMenu_VideoSkip Auto Message Property _00E_ConfigMenu_VideoSkip Auto
Message Property _00E_ConfigMenu_ActorHealthBars Auto Message Property _00E_ConfigMenu_ActorHealthBars Auto
Message Property _00E_ConfigMenu_KillMove Auto
_FS_Phasmalist_ControlQuest Property controlQuest Auto _FS_Phasmalist_ControlQuest Property controlQuest Auto
_00E_Horseflute_SC Property _00E_HorseFlute_New Auto _00E_Horseflute_SC Property _00E_HorseFlute_New Auto
@ -174,6 +187,7 @@ GlobalVariable Property _00E_DisableOtherTutorials Auto
GlobalVariable Property _00E_DisableReadAloudBooks Auto GlobalVariable Property _00E_DisableReadAloudBooks Auto
GlobalVariable Property _00E_VideoSkip Auto GlobalVariable Property _00E_VideoSkip Auto
GlobalVariable Property _00E_ActorHealthBarsEnabled Auto GlobalVariable Property _00E_ActorHealthBarsEnabled Auto
GlobalVariable Property KillMove Auto
_00E_MeditationHotkeyAlias Property PlayerMeditation Auto _00E_MeditationHotkeyAlias Property PlayerMeditation Auto

View File

@ -1,10 +1,18 @@
scriptname _00E_SKI_PlayerLoadGameAlias extends ReferenceAlias scriptname _00E_SKI_PlayerLoadGameAlias extends ReferenceAlias
; EVENTS -----------------------------------------------------------------------------------------
event OnPlayerLoadGame() event OnPlayerLoadGame()
if KillMove.GetValue()
Utility.SetINIBool("bVATSDisable:VATS", false)
else
Utility.SetINIBool("bVATSDisable:VATS", true)
endif
Quest bSkyUI = Game.GetFormFromFile(0x802, "SkyUI_SE.esp") as Quest Quest bSkyUI = Game.GetFormFromFile(0x802, "SkyUI_SE.esp") as Quest
if bSkyUI if bSkyUI
(GetOwningQuest() as _00E_EnderalMCM).OnGameReload() (GetOwningQuest() as _00E_EnderalMCM).OnGameReload()
endif endif
endEvent endEvent
GlobalVariable Property KillMove Auto