Restored vanilla Myrad menu

This commit is contained in:
Eddoursul 2024-02-12 19:56:25 +01:00
parent c1fa7a2738
commit 2c6c259a65
3 changed files with 56 additions and 3 deletions

Binary file not shown.

View File

@ -7,13 +7,22 @@ Actor akCurrentMyrad
Function CallMyradFlight(Actor akMyrad = None) Function CallMyradFlight(Actor akMyrad = None)
akCurrentMyrad = akMyrad akCurrentMyrad = akMyrad
CallPage1()
; If we call Message.Show() in a Goodbye script, dialogue menu will stay on screen
; Registering for an update, we allow it to close before the location menu
RegisterForSingleUpdate(0.1)
EndFunction EndFunction
event OnUpdate()
if SKSE.GetVersion()
CallLocationList()
else
CallLocationListVanilla()
endif
endevent
Function CallPage1() Function CallLocationList()
Game.RequestAutoSave()
UIListMenu listmenu = GetMenu("UIListMenu") as UIListMenu UIListMenu listmenu = GetMenu("UIListMenu") as UIListMenu
string[] MyradTravelList = new string[13] string[] MyradTravelList = new string[13]
@ -71,6 +80,50 @@ Function CallPage1()
EndFunction EndFunction
Function CallLocationListVanilla()
int iListButton = _00E_MyradFlightPage1.Show()
If iListButton == 0
PortPlayer(ArkDestination)
ElseIf iListButton == 1
PortPlayer(ArkDestinationOutside)
ElseIf iListButton == 2
PortPlayer(RiverhomeDestination)
Elseif iListButton == 3
PortPlayer(HeartlandBorderregionDestination)
Elseif iListButton == 4
PortPlayer(HeartlandWatchtowerDestination)
Elseif iListButton == 5
PortPlayer(HeartlandNordicDestination)
Elseif iListButton == 6
PortPlayer(FarmerscoastDestination)
elseif iListButton == 8 ; Exit
return
else ; More
int iListButton2 = _00E_MyradFlightPage2.Show()
If iListButton2 == 0
PortPlayer(FrostcliffDestination)
ElseIf iListButton2 == 1
PortPlayer(DunehomeDestination)
Elseif iListButton2 == 2
PortPlayer(QuellwachtDestination)
Elseif iListButton2 == 3
PortPlayer(MisthomeDestination)
Elseif iListButton2 == 4
PortPlayer(DuestertalDesitnation)
Elseif iListButton2 == 6 ; Exit
return
else ; Return
CallLocationListVanilla()
endif
endif
endfunction
Function CallFlightAnimation(Actor akMyrad) Function CallFlightAnimation(Actor akMyrad)
FadeToBlackAndBackQuick.Apply() FadeToBlackAndBackQuick.Apply()

Binary file not shown.