Scriptname DRTravelToDestination extends Questimport Gameimport UtilityReferenceAlias Property DRAGON AutoIdle Property groundMountDragonIdle AutoIdle Property grounddismountdragronNPC AutoIdle Property grounddismountdragon AutoImageSpaceModifier Property FadeToBlackImod AutoImageSpaceModifier Property FadeToBlackHoldImod AutoImageSpaceModifier Property FadeToBlackBackImod AutoMusicType Property MUSOdahviingRiding AutoObjectReference Property DRWhiterunMarkerPl AutoObjectReference Property DRWhiterunMarkerDr AutoObjectReference Property DRWindhelmMarkerPl AutoObjectReference Property DRWindhelmMarkerDr AutoObjectReference Property DRSolitudeMarkerPl AutoObjectReference Property DRSolitudeMarkerDr AutoObjectReference Property DRMarkarthMarkerPl AutoObjectReference Property DRMarkarthMarkerDr AutoObjectReference Property DRRiftenMarkerPl AutoObjectReference Property DRRiftenMarkerDr AutoObjectReference Property DRDawnstarMarkerPl AutoObjectReference Property DRDawnstarMarkerDr AutoObjectReference Property DRFalkreathMarkerPl AutoObjectReference Property DRFalkreathMarkerDr AutoObjectReference Property DRMorthalMarkerPl AutoObjectReference Property DRMorthalMarkerDr AutoObjectReference Property DRWinterholdMarkerPl AutoObjectReference Property DRWinterholdMarkerDr AutoObjectReference Property DRDragonBridgeMarkerPl AutoObjectReference Property DRDragonBridgeMarkerDr AutoObjectReference Property DRHelgenMarkerPl AutoObjectReference Property DRHelgenMarkerDr AutoObjectReference Property DRHighHrothgarMarkerPl AutoObjectReference Property DRHighHrothgarMarkerDr AutoObjectReference Property DRIvarsteadMarkerPl AutoObjectReference Property DRIvarsteadMarkerDr AutoObjectReference Property DRKarthwastenMarkerPl AutoObjectReference Property DRKarthwastenMarkerDr AutoObjectReference Property DRRiverwoodMarkerPl AutoObjectReference Property DRRiverwoodMarkerDr AutoObjectReference Property DRRoriksteadMarkerPl AutoObjectReference Property DRRoriksteadMarkerDr AutoObjectReference Property DRShorsStoneMarkerPl AutoObjectReference Property DRShorsStoneMarkerDr AutoObjectReference Property DRDushnikhYalMarkerPl AutoObjectReference Property DRDushnikhYalMarkerDr AutoObjectReference Property DRLargashburMarkerPl AutoObjectReference Property DRLargashburMarkerDr AutoObjectReference Property DRMorKhazgurMarkerPl AutoObjectReference Property DRMorKhazgurMarkerDr AutoObjectReference Property DRNarzulburMarkerPl AutoObjectReference Property DRNarzulburMarkerDr AutoObjectReference Property DRAlftandMarkerPl AutoObjectReference Property DRAlftandMarkerDr AutoObjectReference Property DRAvanchnzelMarkerPl AutoObjectReference Property DRAvanchnzelMarkerDr AutoObjectReference Property DRBthardamzMarkerPl AutoObjectReference Property DRBthardamzMarkerDr AutoObjectReference Property DRIrkngthandMarkerPl AutoObjectReference Property DRIrkngthandMarkerDr AutoObjectReference Property DRMzinchaleftMarkerPl AutoObjectReference Property DRMzinchaleftMarkerDr AutoObjectReference Property DRMzulftMarkerPl AutoObjectReference Property DRMzulftMarkerDr AutoObjectReference Property DRRaldbtharMarkerPl AutoObjectReference Property DRRaldbtharMarkerDr AutoObjectReference Property DRTowerofMzarkMarkerPl AutoObjectReference Property DRTowerofMzarkMarkerDr AutoFunction DRTravelTo(int DestNumber)If (GetStage() == 20) SetStage(30)endIfObjectReference DestMarkerPlObjectReference DestMarkerDrIf (DestNumber == 1) DestMarkerPl = DRWhiterunMarkerPl DestMarkerDr = DRWhiterunMarkerDrelseIf (DestNumber == 2) DestMarkerPl = DRWindhelmMarkerPl DestMarkerDr = DRWindhelmMarkerDrelseIf (DestNumber == 3) DestMarkerPl = DRSolitudeMarkerPl DestMarkerDr = DRSolitudeMarkerDrelseIf (DestNumber == 4) DestMarkerPl = DRMarkarthMarkerPl DestMarkerDr = DRMarkarthMarkerDrelseIf (DestNumber == 5) DestMarkerPl = DRRiftenMarkerPl DestMarkerDr = DRRiftenMarkerDrelseIf (DestNumber == 6) DestMarkerPl = DRDawnstarMarkerPl DestMarkerDr = DRDawnstarMarkerDrelseIf (DestNumber == 7) DestMarkerPl = DRFalkreathMarkerPl DestMarkerDr = DRFalkreathMarkerDrelseIf (DestNumber == 8) DestMarkerPl = DRMorthalMarkerPl DestMarkerDr = DRMorthalMarkerDrelseIf (DestNumber == 9) DestMarkerPl = DRWinterholdMarkerPl DestMarkerDr = DRWinterholdMarkerDrelseIf (DestNumber == 10) DestMarkerPl = DRDragonBridgeMarkerPl DestMarkerDr = DRDragonBridgeMarkerDrelseIf (DestNumber == 11) DestMarkerPl = DRHelgenMarkerPl DestMarkerDr = DRHelgenMarkerDrelseIf (DestNumber == 12) DestMarkerPl = DRHighHrothgarMarkerPl DestMarkerDr = DRHighHrothgarMarkerDrelseIf (DestNumber == 13) DestMarkerPl = DRIvarsteadMarkerPl DestMarkerDr = DRIvarsteadMarkerDrelseIf (DestNumber == 14) DestMarkerPl = DRKarthwastenMarkerPl DestMarkerDr = DRKarthwastenMarkerDrelseIf (DestNumber == 15) DestMarkerPl = DRRiverwoodMarkerPl DestMarkerDr = DRRiverwoodMarkerDrelseIf (DestNumber == 16) DestMarkerPl = DRRoriksteadMarkerPl DestMarkerDr = DRRoriksteadMarkerDrelseIf (DestNumber == 17) DestMarkerPl = DRShorsStoneMarkerPl DestMarkerDr = DRShorsStoneMarkerDrelseIf (DestNumber == 18) DestMarkerPl = DRDushnikhYalMarkerPl DestMarkerDr = DRDushnikhYalMarkerDrelseIf (DestNumber == 19) DestMarkerPl = DRLargashburMarkerPl DestMarkerDr = DRLargashburMarkerDrelseIf (DestNumber == 20) DestMarkerPl = DRMorKhazgurMarkerPl DestMarkerDr = DRMorKhazgurMarkerDrelseIf (DestNumber == 21) DestMarkerPl = DRNarzulburMarkerPl DestMarkerDr = DRNarzulburMarkerDrelseIf (DestNumber == 22) DestMarkerPl = DRAlftandMarkerPl DestMarkerDr = DRAlftandMarkerDrelseIf (DestNumber == 23) DestMarkerPl = DRAvanchnzelMarkerPl DestMarkerDr = DRAvanchnzelMarkerDrelseIf (DestNumber == 24) DestMarkerPl = DRBthardamzMarkerPl DestMarkerDr = DRBthardamzMarkerDrelseIf (DestNumber == 25) DestMarkerPl = DRIrkngthandMarkerPl DestMarkerDr = DRIrkngthandMarkerDrelseIf (DestNumber == 26) DestMarkerPl = DRMzinchaleftMarkerPl DestMarkerDr = DRMzinchaleftMarkerDrelseIf (DestNumber == 27) DestMarkerPl = DRMzulftMarkerPl DestMarkerDr = DRMzulftMarkerDrelseIf (DestNumber == 28) DestMarkerPl = DRRaldbtharMarkerPl DestMarkerDr = DRRaldbtharMarkerDrelseIf (DestNumber == 29) DestMarkerPl = DRTowerofMzarkMarkerPl DestMarkerDr = DRTowerofMzarkMarkerDrendIfActor DragonAct = Dragon.GetActorRef()Actor PlayerAct = GetPlayer()if (!DragonAct.IsAllowedToFly()) DragonAct.SetAllowFlying(true)endifDisablePlayerControls(abMovement = true, abFighting = true, abCamSwitch = true, abLooking = false, abSneaking = true, abMenu = true, abActivate = true, abJournalTabs = false)ForceThirdPerson(); mount DragonDragonAct.PlayIdleWithTarget(groundMountDragonIdle, Game.GetPlayer())MUSOdahviingRiding.Add()Wait(8)FadeToBlackImod.Apply()Wait(2)FadeToBlackImod.PopTo(FadeToBlackHoldImod)Wait(2);Go to DestinationDRDoFasttravel(DestMarkerPl, DestMarkerDr); dismountPlayerAct.PlayIdle(grounddismountdragronNPC)DragonAct.PlayIdle(grounddismountdragon)EnablePlayerControls()ForceThirdPerson()DROnTravel.Setvalue(0);Debug.MessageBox("SOT = " + GetGameSettingInt("bSaveOnTravel"))If (GetStage() == 30) SetStage(100)endIfendFunctionfunction DRDoFasttravel(ObjectReference DestMarkerPl, ObjectReference DestMarkerDr)Debug.Trace("Begin Fastravel")FastTravel(DestMarkerPl)Dragon.GetActorRef().Moveto(DestMarkerDr)FadeToBlackHoldImod.PopTo(FadeToBlackBackImod)FadeToBlackHoldImod.Remove()Debug.Trace("After Fastravel")endFunctionGlobalVariable Property DROnTravel Auto