2021-10-05 22:59:59 +00:00
|
|
|
Scriptname _00E_MyradSystem02 extends Quest
|
2021-10-05 22:15:58 +00:00
|
|
|
|
|
|
|
import UIExtensions
|
|
|
|
import Utility
|
|
|
|
|
|
|
|
Actor akCurrentMyrad
|
|
|
|
|
|
|
|
Function CallMyradFlight(Actor akMyrad = None)
|
|
|
|
akCurrentMyrad = akMyrad
|
|
|
|
CallPage1()
|
|
|
|
EndFunction
|
|
|
|
|
|
|
|
|
|
|
|
Function CallPage1()
|
|
|
|
|
|
|
|
Game.RequestAutoSave()
|
|
|
|
UIListMenu listmenu = GetMenu("UIListMenu") as UIListMenu
|
|
|
|
|
|
|
|
string[] MyradTravelList = new string[13]
|
|
|
|
MyradTravelList[0] = "$Myradtravel00"
|
|
|
|
MyradTravelList[1] = "$Myradtravel01"
|
|
|
|
MyradTravelList[2] = "$Myradtravel02"
|
|
|
|
MyradTravelList[3] = "$Myradtravel03"
|
|
|
|
MyradTravelList[4] = "$Myradtravel04"
|
|
|
|
MyradTravelList[5] = "$Myradtravel05"
|
|
|
|
MyradTravelList[6] = "$Myradtravel06"
|
|
|
|
MyradTravelList[7] = "$Myradtravel07"
|
|
|
|
MyradTravelList[8] = "$Myradtravel08"
|
|
|
|
MyradTravelList[9] = "$Myradtravel09"
|
|
|
|
MyradTravelList[10] = "$Myradtravel10"
|
|
|
|
MyradTravelList[11] = "$Myradtravel11"
|
|
|
|
MyradTravelList[12] = "$Back"
|
|
|
|
|
|
|
|
Int iLength = 0
|
|
|
|
|
|
|
|
While iLength < MyradTravelList.length
|
|
|
|
listmenu.AddEntryItem(MyradTravelList[iLength], -1, -1, false)
|
|
|
|
iLength += 1
|
|
|
|
EndWhile
|
|
|
|
|
|
|
|
int iListMenu = listmenu.OpenMenu()
|
|
|
|
int iListButton = listmenu.GetResultInt()
|
|
|
|
|
|
|
|
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 == 7
|
|
|
|
PortPlayer(FrostcliffDestination)
|
|
|
|
ElseIf iListButton == 8
|
|
|
|
PortPlayer(DunehomeDestination)
|
|
|
|
Elseif iListButton == 09
|
|
|
|
PortPlayer(QuellwachtDestination)
|
|
|
|
Elseif iListButton == 10
|
|
|
|
PortPlayer(MisthomeDestination)
|
|
|
|
Elseif iListButton == 11
|
|
|
|
PortPlayer(DuestertalDesitnation)
|
|
|
|
Elseif iListButton == 12
|
|
|
|
return
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
EndFunction
|
|
|
|
|
|
|
|
Function CallFlightAnimation(Actor akMyrad)
|
|
|
|
|
|
|
|
FadeToBlackAndBackQuick.Apply()
|
|
|
|
If (PlayerREF as Actor).IsWeaponDrawn()
|
|
|
|
(PlayerREF as Actor).SheatheWeapon()
|
|
|
|
EndIf
|
|
|
|
Wait(0.75)
|
|
|
|
ObjectReference objTakeOffMarker = akMyrad.GetLinkedRef(_00E_FS_MyradTakeOffMarker)
|
|
|
|
akMyrad.MoveTo(objTakeOffMarker)
|
|
|
|
akMyrad.SetScale(1)
|
|
|
|
_FS_TheriantrophistControlQuest.TransformBackIfTransformed()
|
|
|
|
akMyrad.PlayIdleWithTarget(groundMountDragon, PlayerREF)
|
|
|
|
Wait(4.0)
|
|
|
|
akMyrad.PlayImpactEffect(FXDragonTakeoffImpactSet, "NPC Tail8", 0, 0, -1, 512, true, false)
|
|
|
|
Wait(8.0)
|
|
|
|
Return
|
|
|
|
|
|
|
|
EndFunction
|
|
|
|
|
|
|
|
Function ResetMyradAndPlayer(Actor akMyrad)
|
|
|
|
|
|
|
|
Debug.SendAnimationEvent(PlayerREF, "IdleCartExitInstant")
|
|
|
|
akMyrad.Disable()
|
|
|
|
akMyrad.Enable()
|
|
|
|
akMyrad.MoveTo(akMyrad.GetLinkedRef())
|
|
|
|
akMyrad.EvaluatePackage()
|
|
|
|
|
|
|
|
EndFunction
|
|
|
|
|
|
|
|
Function PortPlayer(ObjectReference Destination)
|
|
|
|
|
|
|
|
PlayerRef.RemoveItem(Gold001, Price)
|
|
|
|
|
|
|
|
if akCurrentMyrad != None
|
|
|
|
CallFlightAnimation(akCurrentMyrad)
|
|
|
|
endif
|
|
|
|
|
|
|
|
FadeToBlackImod.Apply()
|
|
|
|
Game.SetHudCartMode(true)
|
|
|
|
Wait(1)
|
|
|
|
FadeToBlackHoldImod.ApplyCrossFade()
|
|
|
|
Wait(0.5)
|
|
|
|
PlayerRef.MoveTo(Destination)
|
|
|
|
Wait(0.5)
|
|
|
|
|
|
|
|
if akCurrentMyrad != None
|
|
|
|
ResetMyradAndPlayer(akCurrentMyrad)
|
|
|
|
endif
|
|
|
|
|
|
|
|
FadeToBlackBackImod.ApplyCrossFade()
|
|
|
|
Game.SetHudCartMode(false)
|
|
|
|
|
|
|
|
If MQ04.GetStage() >= 10 && !bDone
|
|
|
|
bDone = True
|
|
|
|
MQ04.SetObjectiveCompleted(20)
|
|
|
|
Levelsystem.GiveEP(150)
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
MyradFligthCounter += 1
|
|
|
|
|
|
|
|
If _00E_AchievementsEnabled.GetValueInt() == 1 && MyradFligthCounter == 20
|
2022-08-03 21:19:58 +00:00
|
|
|
Steam.UnlockAchievement("END_MYRAD_01")
|
2021-10-05 22:15:58 +00:00
|
|
|
EndIf
|
|
|
|
|
2021-10-05 22:59:59 +00:00
|
|
|
_FS_Phasmalist_ControlQuest.MoveApparitionToPlayer()
|
2021-10-05 22:15:58 +00:00
|
|
|
|
|
|
|
Game.RequestAutoSave()
|
|
|
|
|
|
|
|
EndFunction
|
|
|
|
|
|
|
|
bool bDone
|
|
|
|
int MyradFligthCounter = 0
|
|
|
|
|
|
|
|
_00E_QuestFunctions Property Levelsystem Auto
|
|
|
|
|
|
|
|
GlobalVariable Property _00E_FS_IsForgottenStoriesActivated Auto
|
|
|
|
GlobalVariable Property _00E_AchievementsEnabled Auto
|
|
|
|
|
|
|
|
Quest Property MQ04 Auto
|
|
|
|
|
|
|
|
Keyword Property _00E_FS_MyradTakeOffMarker Auto
|
|
|
|
|
|
|
|
Message Property _00E_MyradFlightPage1 Auto
|
|
|
|
Message Property _00E_MyradFlightPage2 Auto
|
|
|
|
ObjectReference Property PlayerRef Auto
|
|
|
|
MiscObject Property Gold001 Auto
|
|
|
|
Int Property Price = 25 Auto
|
|
|
|
|
|
|
|
Idle Property groundMountDragon Auto
|
|
|
|
ImpactDataSet Property FXDragonTakeoffImpactSet Auto
|
|
|
|
|
|
|
|
ObjectReference Property ArkDestination Auto
|
|
|
|
ObjectReference Property ArkDestinationOutside Auto
|
|
|
|
ObjectReference Property RiverhomeDestination Auto
|
|
|
|
ObjectReference Property HeartlandBorderregionDestination Auto
|
|
|
|
ObjectReference Property HeartlandWatchtowerDestination Auto
|
|
|
|
ObjectReference Property HeartlandNordicDestination Auto
|
|
|
|
ObjectReference Property FarmerscoastDestination Auto
|
|
|
|
ObjectReference Property FrostcliffDestination Auto
|
|
|
|
ObjectReference Property DunehomeDestination Auto
|
|
|
|
ObjectReference Property QuellwachtDestination Auto
|
|
|
|
ObjectReference Property MisthomeDestination Auto
|
|
|
|
ObjectReference Property DuestertalDesitnation Auto
|
|
|
|
|
|
|
|
ImageSpaceModifier Property FadeToBlackImod Auto
|
|
|
|
ImageSpaceModifier Property FadeToBlackHoldImod Auto
|
|
|
|
ImageSpaceModifier Property FadeToBlackBackImod Auto
|
|
|
|
ImageSpaceModifier Property FadeToBlackAndBackQuick Auto
|