Oh wow, thanks DK - that worked perfectly
; Get the object reference this alias refers toObjectReference Function GetReference() native; ...; Convenience functionObjectReference Function GetRef() return GetReference()endFunction
; Get the object reference this alias refers toObjectReference Function GetReference() native; ...; Convenience functionObjectReference Function GetRef() return GetReference()endFunction
;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment;NEXT FRAGMENT INDEX 14Scriptname QF_HousePurchase_000A7B33 Extends Quest Hidden;BEGIN ALIAS PROPERTY VMSMarker;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_VMSMarker Auto;END ALIAS PROPERTY[/b];BEGIN ALIAS PROPERTY WhiterunDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeFrontDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeFrontDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WhiterunJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY VMSBench;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_VMSBench Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WhiterunSonsJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunSonsJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenTamrielDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenTamrielDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmEmpireJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmEmpireJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenCityDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenCityDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeSideDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeSideDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenEmpireJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenEmpireJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthSonsJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthSonsJarl Auto;END ALIAS PROPERTY;BEGIN FRAGMENT Fragment_6Function Fragment_6();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(markarthhouse, markarthhousekey, markarthguide, kmyquest.HPMarkarth)kmyquest.markarthhousevar=1SetObjectiveDisplayed(40,1)If Favor250.GetStageDone(10) Favor250.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_7Function Fragment_7();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(windhelmhouse, windhelmhousekey, windhelmguide, kmyquest.HPWindhelm)kmyquest.windhelmhousevar=1SetObjectiveDisplayed(50,1)If Favor254.GetStageDone(10) Favor254.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_5Function Fragment_5();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(riftenhouse, riftenhousekey, riftenguide, kmyquest.HPRiften)kmyquest.riftenhousevar=1SetObjectiveDisplayed(30,1)If Favor251.GetStageDone(10) Favor251.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_0Function Fragment_0();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(whiterunhouse, whiterunhousekey, whiterunguide, kmyquest.HPWhiterun)kmyquest.whiterunhousevar=1SetObjectiveDisplayed(10,1)If Favor253.GetStageDone(10) Favor253.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_3Function Fragment_3();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(solitudehouse, solitudehousekey, solitudeguide, kmyquest.HPSolitude)kmyquest.solitudehousevar=1SetObjectiveDisplayed(20,1)If Favor252.GetStageDone(10) Favor252.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_13Function Fragment_13();BEGIN AUTOCAST TYPE ViimagstenscriptQuest __temp = self as QuestViimagstenscript kmyQuest = __temp as Viimagstenscript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(VMSMarker, ViimagstenDeed, ViimagstenPlotBuilding, kmyquest.PPViimagsten)kmyquest.ViimagstenPlotvar=1SetObjectiveDisplayed(60,1);END CODEEndFunction;END FRAGMENT;END FRAGMENT CODE - Do not edit anything between this and the begin commentcell Property WhiterunHouse Auto key Property WhiterunHouseKey Auto cell Property SolitudeHouse Auto key Property SolitudeHouseKey Auto cell Property RiftenHouse Auto key Property RiftenHouseKey Auto cell Property MarkarthHouse Auto key Property MarkarthHouseKey Auto cell Property WindhelmHouse Auto key Property WindhelmHouseKey Auto Quest Property Favor250 Auto Quest Property Favor251 Auto Quest Property Favor252 Auto Quest Property Favor254 Auto quest Property Favor253 AutoBook Property WhiterunGuide Auto Book Property SolitudeGuide Auto Book Property RiftenGuide Auto Book Property MarkarthGuide Auto Book Property WindhelmGuide Auto[b]ObjectReference Property VMSMarker Auto Book Property ViimagstenPlotBuilding Auto Book Property ViimagstenDeed Auto
Scriptname Viimagstenscript extends Quest Conditional;Propertiesmiscobject Property Gold Auto faction Property PlayerFaction Auto int Property ViimagstenPlotVar Auto conditionalGlobalVariable Property PPViimagsten Auto ObjectReference property PlayerRef Autofunction PurchaseHouse(objectreference VMSMarker, book ViimagstenDeed, book ViimagstenPlotBuilding, globalvariable GoldAmount) game.getplayer().RemoveItem(Gold, GoldAmount.getvalueint()) game.getplayer().AddItem(ViimagstenDeed) game.getplayer().AddItem(ViimagstenPlotBuilding) game.IncrementStat( "Houses Owned" )endfunction
;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment;NEXT FRAGMENT INDEX 14Scriptname QF_HousePurchase_000A7B33 Extends Quest Hidden;BEGIN ALIAS PROPERTY VMSMarker;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_VMSMarker Auto;END ALIAS PROPERTY[/b];BEGIN ALIAS PROPERTY WhiterunDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeFrontDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeFrontDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WhiterunJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY VMSBench;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_VMSBench Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WhiterunSonsJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WhiterunSonsJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenTamrielDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenTamrielDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmEmpireJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmEmpireJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenCityDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenCityDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY SolitudeSideDoor;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_SolitudeSideDoor Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY WindhelmJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_WindhelmJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY RiftenEmpireJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_RiftenEmpireJarl Auto;END ALIAS PROPERTY;BEGIN ALIAS PROPERTY MarkarthSonsJarl;ALIAS PROPERTY TYPE ReferenceAliasReferenceAlias Property Alias_MarkarthSonsJarl Auto;END ALIAS PROPERTY;BEGIN FRAGMENT Fragment_6Function Fragment_6();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(markarthhouse, markarthhousekey, markarthguide, kmyquest.HPMarkarth)kmyquest.markarthhousevar=1SetObjectiveDisplayed(40,1)If Favor250.GetStageDone(10) Favor250.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_7Function Fragment_7();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(windhelmhouse, windhelmhousekey, windhelmguide, kmyquest.HPWindhelm)kmyquest.windhelmhousevar=1SetObjectiveDisplayed(50,1)If Favor254.GetStageDone(10) Favor254.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_5Function Fragment_5();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(riftenhouse, riftenhousekey, riftenguide, kmyquest.HPRiften)kmyquest.riftenhousevar=1SetObjectiveDisplayed(30,1)If Favor251.GetStageDone(10) Favor251.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_0Function Fragment_0();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(whiterunhouse, whiterunhousekey, whiterunguide, kmyquest.HPWhiterun)kmyquest.whiterunhousevar=1SetObjectiveDisplayed(10,1)If Favor253.GetStageDone(10) Favor253.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_3Function Fragment_3();BEGIN AUTOCAST TYPE HousePurchaseScriptQuest __temp = self as QuestHousePurchaseScript kmyQuest = __temp as HousePurchaseScript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(solitudehouse, solitudehousekey, solitudeguide, kmyquest.HPSolitude)kmyquest.solitudehousevar=1SetObjectiveDisplayed(20,1)If Favor252.GetStageDone(10) Favor252.SetStage(15)EndIf;END CODEEndFunction;END FRAGMENT;BEGIN FRAGMENT Fragment_13Function Fragment_13();BEGIN AUTOCAST TYPE ViimagstenscriptQuest __temp = self as QuestViimagstenscript kmyQuest = __temp as Viimagstenscript;END AUTOCAST;BEGIN CODEkmyquest.Purchasehouse(VMSMarker, ViimagstenDeed, ViimagstenPlotBuilding, kmyquest.PPViimagsten)kmyquest.ViimagstenPlotvar=1SetObjectiveDisplayed(60,1);END CODEEndFunction;END FRAGMENT;END FRAGMENT CODE - Do not edit anything between this and the begin commentcell Property WhiterunHouse Auto key Property WhiterunHouseKey Auto cell Property SolitudeHouse Auto key Property SolitudeHouseKey Auto cell Property RiftenHouse Auto key Property RiftenHouseKey Auto cell Property MarkarthHouse Auto key Property MarkarthHouseKey Auto cell Property WindhelmHouse Auto key Property WindhelmHouseKey Auto Quest Property Favor250 Auto Quest Property Favor251 Auto Quest Property Favor252 Auto Quest Property Favor254 Auto quest Property Favor253 AutoBook Property WhiterunGuide Auto Book Property SolitudeGuide Auto Book Property RiftenGuide Auto Book Property MarkarthGuide Auto Book Property WindhelmGuide Auto[b]ObjectReference Property VMSMarker Auto Book Property ViimagstenPlotBuilding Auto Book Property ViimagstenDeed Auto
Scriptname Viimagstenscript extends Quest Conditional;Propertiesmiscobject Property Gold Auto faction Property PlayerFaction Auto int Property ViimagstenPlotVar Auto conditionalGlobalVariable Property PPViimagsten Auto ObjectReference property PlayerRef Autofunction PurchaseHouse(objectreference VMSMarker, book ViimagstenDeed, book ViimagstenPlotBuilding, globalvariable GoldAmount) game.getplayer().RemoveItem(Gold, GoldAmount.getvalueint()) game.getplayer().AddItem(ViimagstenDeed) game.getplayer().AddItem(ViimagstenPlotBuilding) game.IncrementStat( "Houses Owned" )endfunction
Scriptname CSStopCrimeOverhaulJail extends QuestActor Property PlayerRef AutoQuest Property CQCrimeOverhaul AutoEvent OnLocationChange(Location akOldLoc, Location akNewLoc) If PlayerRef.GetCurrentLocation()==akNewLoc Debug.Notification("Location changed.") If PlayerRef.IsArrested() CQCrimeOverhaul.Stop() Debug.Notification("Crimeoverhaul stopped.") EndIf EndIfEndEvent
Scriptname rayPortalGoHome extends ObjectReference {Sends the player to the castle.}ObjectReference Property PortalDoor AutoEvent OnActivate(ObjectReference akActionRef)If akActionRef == Game.GetPlayer() PortalDoor.Activate(Game.GetPlayer())EndIfEndEvent
Scriptname rayPortalGoHome extends ObjectReference{Sends the player to the castle.}ObjectReference Property PortalDoor AutoEvent OnActivate(ObjectReference akActionRef)If akActionRef == Game.GetPlayer() PortalDoor.Activate(Game.GetPlayer())EndIfEndEvent