4
Fork 0
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

96 lines
2.3 KiB

;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 10
Scriptname QF_MQ_P01_ASummersDay_00046F1A Extends Quest Hidden
;BEGIN ALIAS PROPERTY Father
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_Father Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY PlayerRef
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_PlayerRef Auto
;END ALIAS PROPERTY
;BEGIN ALIAS PROPERTY Elk
;ALIAS PROPERTY TYPE ReferenceAlias
ReferenceAlias Property Alias_Elk Auto
;END ALIAS PROPERTY
;BEGIN FRAGMENT Fragment_3
Function Fragment_3()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.ArriveInHouse()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_5
Function Fragment_5()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.StartFatherAccuseScene()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_9
Function Fragment_9()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.UnlockDoor()
kmyQuest.UnblockDoor()
SetObjectiveCompleted(5)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_4
Function Fragment_4()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.StartFatherWhistleScene()
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_2
Function Fragment_2()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
kmyQuest.SetUpScene()
SetObjectiveDisplayed(5)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_8
Function Fragment_8()
;BEGIN AUTOCAST TYPE _00E_MQP01_Functions
Quest __temp = self as Quest
_00E_MQP01_Functions kmyQuest = __temp as _00E_MQP01_Functions
;END AUTOCAST
;BEGIN CODE
CompleteAllObjectives()
kmyQuest.PlayIntroAndMovePlayerToShip()
;END CODE
EndFunction
;END FRAGMENT
;END FRAGMENT CODE - Do not edit anything between this and the begin comment