enderalse/scripts/source/qf__00e_nq06_freda_000725ba.psc

136 lines
3.2 KiB
Plaintext

;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 12
Scriptname QF__00E_NQ06_Freda_000725BA Extends Quest Hidden
;BEGIN ALIAS PROPERTY Yrinto
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_Yrinto Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY HorsefluteChest
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_HorsefluteChest Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY Bonni
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_Bonni Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY HorseFlute
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_HorseFlute Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY PlayerHorse
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_PlayerHorse Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY FS_NQR05_FathersShadow
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_FS_NQR05_FathersShadow Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY Freda
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_Freda Auto
;END ALIAS PROPERTY
;BEGIN FRAGMENT Fragment_2
Function Fragment_2()
;BEGIN CODE
SetObjectiveDisplayed(10)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_6
Function Fragment_6()
;BEGIN AUTOCAST TYPE _00E_NQ06_Functions
Quest __temp = self as Quest
_00E_NQ06_Functions kmyQuest = __temp as _00E_NQ06_Functions
;END AUTOCAST
;BEGIN CODE
SetObjectiveCompleted(10)
SetObjectiveDisplayed(20)
kmyQuest.NQ06SceneFailsave()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_7
Function Fragment_7()
;BEGIN AUTOCAST TYPE _00E_NQ06_Functions
Quest __temp = self as Quest
_00E_NQ06_Functions kmyQuest = __temp as _00E_NQ06_Functions
;END AUTOCAST
;BEGIN CODE
SetObjectiveCompleted(30)
Alias_Bonni.GetActorRef().SetFactionRank(PlayerHorseFaction, 1)
Alias_Bonni.GetActorRef().SetFactionOwner(PlayerFaction)
kmyQuest.SetMuleName()
kmyQuest.AddHorseFlute()
If _00E_AchievementsEnabled.GetValueInt() == 1
Game.UnlockAchievement("END_WHIRLWIND_01")
EndIf
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_11
Function Fragment_11()
;BEGIN AUTOCAST TYPE _00E_NQ06_Functions
Quest __temp = self as Quest
_00E_NQ06_Functions kmyQuest = __temp as _00E_NQ06_Functions
;END AUTOCAST
;BEGIN CODE
SetObjectiveCompleted(20)
SetObjectiveDisplayed(25)
kmyQuest.RemoveAlly()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_8
Function Fragment_8()
;BEGIN CODE
NQ06_SC1.ForceStart()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_10
Function Fragment_10()
;BEGIN CODE
SetObjectiveCompleted(25)
SetObjectiveDisplayed(30)
NQ06_SC2.ForceStart()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_3
Function Fragment_3()
;BEGIN AUTOCAST TYPE _00E_NQ06_Functions
Quest __temp = self as Quest
_00E_NQ06_Functions kmyQuest = __temp as _00E_NQ06_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.EnableGnarldalf()
;END CODE
EndFunction
;END FRAGMENT
;END FRAGMENT CODE - Do not edit anything between this and the begin comment
Faction Property PlayerFaction Auto
Faction Property PlayerHorseFaction Auto
Scene Property NQ06_SC1 Auto
Scene Property NQ06_SC2 Auto
GlobalVariable Property _00E_AchievementsEnabled Auto