4
Fork 0

Restored vanilla Myrad menu

development
Eddoursul 3 months ago
parent c1fa7a2738
commit 2c6c259a65
  1. BIN
      scripts/_00e_myradsystem02.pex
  2. 59
      source/scripts/_00e_myradsystem02.psc
  3. BIN
      strings/skyrim_english.strings

Binary file not shown.

@ -7,13 +7,22 @@ Actor akCurrentMyrad
Function CallMyradFlight(Actor akMyrad = None)
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
event OnUpdate()
if SKSE.GetVersion()
CallLocationList()
else
CallLocationListVanilla()
endif
endevent
Function CallPage1()
Function CallLocationList()
Game.RequestAutoSave()
UIListMenu listmenu = GetMenu("UIListMenu") as UIListMenu
string[] MyradTravelList = new string[13]
@ -71,6 +80,50 @@ Function CallPage1()
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)
FadeToBlackAndBackQuick.Apply()

Binary file not shown.
Loading…
Cancel
Save