ScriptName RenIntStaticsNodeQuestScriptfloat fQuestDelayTimefloat interiordoorxfloat interiordooryfloat interiordoorzfloat interiordoorzrotfloat newinteriordoorzrotfloat exteriordoorxfloat exteriordooryfloat exteriordoorzfloat exteriordoorzrotfloat doordifferencexfloat doordifferenceyfloat doordifferencezfloat objectxfloat objectyfloat objectzfloat objectxrotfloat objectyrotfloat objectzrotfloat newobjectxfloat newobjectyfloat newobjectzref interiordoorrefref exteriordoorrefshort usestatics ; 28short usetrees ; 30short uselights ; 26short useflora ; 31short usecontainers ; 23short usefurniture ; 32short useworld ; 53short useactivators ; 18short useroads ; 56short useland ; 54short uselandtexture ; 14short usemisc ; 27short donestatics ; 28short donetrees ; 30short donelights ; 26short doneflora ; 31short donecontainers ; 23short donefurniture ; 32short doneworld ; 53short doneactivators ; 18short doneroads ; 56short doneland ; 54short donelandtexture ; 14short donemisc ; 27short playerininterior ref objectrefref tempobjectrefshort objecttypecodeshort numcellsref interiorcellref exteriorcellshort nextfloat tempdistancefloat tempdistancexfloat tempdistanceyfloat tempdistancezref crosshairobject float lowestzpointfloat parentcellwaterheightshort activatekey array_var intobjectreference array_var heightdistancearrayarray_var interiorcellreferencearray_var objectstodeletearray_var returnarrayshort arraysizearray_var iterref deletereffloat interiortimer short workingfloat rotmovexfloat rotmoveyfloat rotation short stopeverything short floornumber; -1 = basemant; 1 = ground floor; 2 = 2nd; etc; interior2waywindow; LeyawiinWindow02; LeyawiinWindow01; KvatchKeepWindow01; BrumaWindowLightWhite500; InteriorWindowLight; BrumaWindowLightWhite350; InteriorWindowLight02; ICWindowBlue350; ICWindowBlue256; ICWindowBlue128; interiorlightRoseWindow10R1024float cellxfloat celly; cell locations...short worldxshort worldyfloat worldzfloat landguyzref landguyref playerworldshort dolandguycheckshort cellmoverxshort cellmoveryfloat timershort landguyongroundshort landguyunderwaterref returnarrayreffloat prevexteriordoorz Begin GameMode	set fQuestDelayTime to 0.001	set landguy to RenLandGuy01	if (working == 0 && player.IsInInterior == 0)		set timer to (timer + GetSecondsPassed)		set playerworld to player.GetParentWorldspace		set worldx to (player.GetPos X) / (4096)		set worldx to (worldx * 4096)		set worldy to (player.GetPos Y) / (4096)		set worldy to (worldy * 4096)		if (timer >= 0 && timer < 1)			RenLandGuy01.MoveTo RenLandGuy01		endif		if (timer >= 1)			if (RenLandGuy01.GetPos Z != -1000)				set landguyz to (RenLandGuy01.GetPos Z)			endif			RenLandGuy01.PositionWorld worldx worldy -1000 0 playerworld			set timer to 0		endif	else		set timer to 0	endif	set usestatics to 1	set uselights to 1	set usetrees to 1	set usecontainers to 1	set usefurniture to 1	set useflora to 1	set useactivators to 1	set crosshairobject to 0	set crosshairobject to player.GetCrosshairRef	if (crosshairobject != 0)		if (crosshairobject.IsLoadDoor == 1)			DisableControl 5		else			EnableControl 5		endif	else		EnableControl 5			endif	if (objectstodelete == 0)		let objectstodelete := ar_Construct Array	endif	if (intobjectreference == 0)		let intobjectreference := ar_Construct Array	endif	if (interiorcellreference == 0)		let 	interiorcellreference := ar_Construct Array	endif	if (heightdistancearray == 0)		let heightdistancearray := ar_Construct StringMap	endif	if (returnarray == 0)		let returnarray := ar_Construct Array	endif	if (crosshairobject != 0 && IsControlPressed 5 == 1)		; player is looking at interior		Print "RenIntStaticsNodeQuestScript: Player pressed activate key."		if (crosshairobject.IsLoadDoor == 0)			Print "RenIntStaticsNodeQuestScript: Crosshair object is not a load door."			return		endif		if (player.IsInInterior == 0)			set exteriorcell to player.GetParentCell		endif		set next to 0		set objecttypecode to 0		set numcells to 0		if (player.IsInInterior == 0)			PrintC "RenIntStaticsNodeQuestScript: Starting - player is not in interior..."			set exteriordoorref to crosshairobject			set interiordoorref to exteriordoorref.GetLinkedDoor			set interiorcell to exteriordoorref.GetTeleportCell							else			if (exteriordoorref == 0)				; bad!			endif			PrintC "RenIntStaticsNodeQuestScript: Starting - player is in interior..."			set prevexteriordoorz to interiordoorref.GetPos Z			set exteriordoorref to interiordoorref			; so that the correct distance is maintained... hopefully.			set interiordoorref to crosshairobject.GetLinkedDoor			if (interiordoorref.IsInInterior == 0)				; bad...!				; all done down here, enable the control again				EnableControl 5				set working to 0				crosshairobject.Activate player				return							endif			set interiorcell to crosshairobject.GetTeleportCell		endif		let iter := ar_Construct StringMap				foreach iter <- interiorcellreference			let objectref := iter["value"]			if (IsFormValid objectref)						if (interiorcell == objectref && objectref != 0)					; bad!					set stopeverything to 1												Print "RenIntStaticsNodeQuestScript: stopeverything triggered with objectref of: " + $objectref.GetFormIDString				endif			endif		loop		let arraysize := (ar_Size interiorcellreference) + 1		ar_Resize interiorcellreference arraysize		ar_Insert interiorcellreference arraysize interiorcell 		if (stopeverything == 1)			set stopeverything to 0			EnableControl 5			set working to 0			crosshairobject.Activate player						return		endif		set objectref to 0		let arraysize := (ar_Size interiorcellreference) + 1		ar_Resize interiorcellreference arraysize		ar_Insert interiorcellreference arraysize interiorcell		set parentcellwaterheight to exteriordoorref.GetParentCellWaterHeight;		PrintC "RenIntStaticsNodeQuestScript: Found interior and exterior doors..."		set interiordoorzrot to interiordoorref.GetAngle Z		set interiordoorx to interiordoorref.GetPos X		set interiordoory to interiordoorref.GetPos Y		set interiordoorz to interiordoorref.GetPos Z		if (interiordoorzrot > 360)			set interiordoorzrot to (interiordoorzrot - 360)		endif		if (interiordoorzrot < 0)			set interiordoorzrot to (interiordoorzrot + 360)		endif		set exteriordoorx to exteriordoorref.GetPos X		set exteriordoory to exteriordoorref.GetPos Y		set exteriordoorz to exteriordoorref.GetPos Z		set exteriordoorzrot to exteriordoorref.GetAngle Z		if (exteriordoorzrot > 360)			set exteriordoorzrot to (exteriordoorzrot - 360)		endif		if (exteriordoorzrot < 0)			set exteriordoorzrot to (exteriordoorzrot + 360)		endif		set doordifferencex to (interiordoorx - exteriordoorx)		set doordifferencey to (interiordoory - exteriordoory)		set doordifferencez to (interiordoorz - exteriordoorz)				if eval (player.IsInInterior == 1 && (ar_Size intobjectreference) > 0 && working == 0)			set working to 2			if ((player.GetPos Z - prevexteriordoorz) > 0)				; going up...				set floornumber to floornumber + 1			else				; basemant?				if (floornumber > 0)					set floornumber to (floornumber - 1)				endif			endif			let iter := ar_Construct StringMap					foreach iter <- intobjectreference				let objectref := iter["value"]				if (IsFormValid objectref)					let tempdistancez := heightdistancearray[$(objectref.GetFormIDString)]					set objectx to objectref.GetPos X					set objecty to objectref.GetPos Y					set objectz to objectref.GetPos Z					; these are all at the "ground" / exterior, for the most part.					set objectxrot to objectref.GetAngle X					set objectyrot to objectref.GetAngle Y					set objectzrot to objectref.GetAngle Z							set tempdistancex to (objectx - exteriordoorx)					set tempdistancey to (objecty - exteriordoory)										set newobjectz to (interiordoorz + (tempdistancez - (floornumber * 250)))					let newinteriordoorzrot := interiordoorzrot + (exteriordoorzrot - interiordoorzrot)					set newinteriordoorzrot to (newinteriordoorzrot - 180)					let objectzrot := newinteriordoorzrot + objectzrot					if (newinteriordoorzrot < 0)						set newinteriordoorzrot to (newinteriordoorzrot + 360)					endif					if (newinteriordoorzrot > 360)						set newinteriordoorzrot to (newinteriordoorzrot - 360)					endif					let newobjectx := interiordoorx + tempdistancex * cos newinteriordoorzrot + tempdistancey * sin newinteriordoorzrot 					let newobjecty := interiordoory - tempdistancex * sin newinteriordoorzrot + tempdistancey * cos newinteriordoorzrot ;					let newobjectz := tempdistancez					; - (250 * floornumber);					Print "Exteriordoorref cell: " + $exteriordoorref.GetParentCell + ", objectref cell: " + $objectref.GetParentCell + ", interiorcell: " + $interiorcell;					if (tempdistance <= 8000)						; also good...;						PrintC "RenIntStaticsNodeQuestScript: Moving interior item to another interior space..."						let tempobjectref := objectref.GetBaseObject						let tempobjectref := interiordoorref.PlaceAtMe tempobjectref 1 0 0										if (objectzrot > 360)							set objectzrot to (objectzrot - 360)						endif						if (objectzrot < 0)							set objectzrot to (objectzrot + 360)						endif						let arraysize := (ar_Size intobjectreference) + 1						ar_Resize objectstodelete arraysize						ar_Insert objectstodelete arraysize tempobjectref;						objectref.PositionCell newobjectx newobjecty newobjectz objectzrot interiorcell 						tempobjectref.SetPos X newobjectx						tempobjectref.SetPos Y newobjecty						tempobjectref.SetPos Z newobjectz 						tempobjectref.SetAngle X objectxrot						tempobjectref.SetAngle Y objectyrot						tempobjectref.SetAngle Z objectzrot;					endif				endif			loop			; all done down here, enable the control again							Print "Exterior door x, y, z: " + $exteriordoorx + " " + $exteriordoory + " " + $exteriordoorz + ", z-angle: " + $exteriordoorzrot							Print "Object x, y, z: " + $objectx + " " + $objecty + " " + $objectz + ", cell: " + $exteriorcell + ", tempdistance: " + $tempdistance							Print "Tempdistancex: " + $tempdistancex + ", tempdistancey: " + $tempdistancey + ", tempdistancez: " + $tempdistancez							Print "Interior door x, y, z: " + $interiordoorx + " " + $interiordoory + " " + $interiordoorz + ", z-angle: " + $interiordoorzrot							Print "Placed object (" + $tempobjectref.GetFormIDString + ") at position: " + $newobjectx + ", " + $newobjecty + ", " + $newobjectz + " in cell: " + $interiorcell + ", rotation: " + $rotation			Print "newobjectx: " + $interiordoorx + " + " + $tempdistancex + " * cos " + $newinteriordoorzrot + " + " + $tempdistancey + " * sin " + $newinteriordoorzrot 			Print "newobjecty: " + $interiordoory + " - " + $tempdistancex + " * cos " + $newinteriordoorzrot + " + " + $tempdistancey + " * sin " + $newinteriordoorzrot 			Print "Flor number: " + $floornumber			EnableControl 5			set working to 0			crosshairobject.Activate player			return		endif		if (working == 2)			return		endif		set working to 1		set objectref to 0		Label 1		PrintC "RenIntStaticsNodeQuestScript: Checking type %0.0f..." objecttypecode		set floornumber to 0		; ground floor...		if (objectref != 0)		;				if (player.GetInSameCell objectref == 0)					; good...					set objectx to objectref.GetPos X					set objecty to objectref.GetPos Y					set objectz to objectref.GetPos Z					if (objectref.GetObjectType == 28)						if (objectz < lowestzpoint)							set lowestzpoint to objectz							if (lowestzpoint < parentcellwaterheight)								set lowestzpoint to (parentcellwaterheight + 100)							endif						endif					endif					set rotation to 0					set rotation to (player.GetHeadingAngle objectref)					Print "Player getheading: " + $rotation					set objectxrot to objectref.GetAngle X					set objectyrot to objectref.GetAngle Y					set objectzrot to objectref.GetAngle Z							set tempdistance to exteriordoorref.GetDistance objectref					set tempdistancex to (objectx - exteriordoorx)					set tempdistancey to (objecty - exteriordoory)					set tempdistancez to (objectz - exteriordoorz)					let newinteriordoorzrot := interiordoorzrot + (interiordoorzrot - exteriordoorzrot)					if (newinteriordoorzrot < 0)						set newinteriordoorzrot to (newinteriordoorzrot + 360)					endif					if (newinteriordoorzrot > 360)						set newinteriordoorzrot to (newinteriordoorzrot - 360)					endif					let objectzrot := newinteriordoorzrot + objectzrot					let newobjectx := interiordoorx + tempdistancex * cos newinteriordoorzrot + tempdistancey * sin newinteriordoorzrot 					let newobjecty := interiordoory - tempdistancex * sin newinteriordoorzrot + tempdistancey * cos newinteriordoorzrot ;					Print "Exteriordoorref cell: " + $exteriordoorref.GetParentCell + ", objectref cell: " + $objectref.GetParentCell + ", interiorcell: " + $interiorcell					if (objectref.GetObjectType == 28 && exteriordoorref.GetDistance objectref <= 400)						; probably the exterior mesh of the house...						set objectref to Apple						set objectref to GetNextRef						GoTo 1					endif					if (tempdistance <= 10000)						; also good...;						PrintC "RenIntStaticsNodeQuestScript: Moving exterior item to interior space...";						set newobjectx to (interiordoorx + tempdistancex);						set newobjecty to (interiordoory + tempdistancey)						set newobjectz to (interiordoorz + tempdistancez)						let tempobjectref := objectref.GetBaseObject						let tempobjectref := interiordoorref.PlaceAtMe tempobjectref 1 0 0										if (objectzrot > 360)							set objectzrot to (objectzrot - 360)						endif						if (objectzrot < 0)							set objectzrot to (objectzrot + 360)						endif						let arraysize := (ar_Size intobjectreference) + 1						ar_Resize intobjectreference arraysize						ar_Resize objectstodelete arraysize						ar_Insert intobjectreference arraysize tempobjectref						ar_Insert objectstodelete arraysize tempobjectref						let heightdistancearray[$(tempobjectref.GetFormIDString)] := tempdistancez						; distance between the object and the exterior door						tempobjectref.SetPos X newobjectx						tempobjectref.SetPos Y newobjecty						tempobjectref.SetPos Z newobjectz 						tempobjectref.SetAngle X objectxrot						tempobjectref.SetAngle Y objectyrot						tempobjectref.SetAngle Z objectzrot							Print "Exterior door x, y, z: " + $exteriordoorx + " " + $exteriordoory + " " + $exteriordoorz + ", z-angle: " + $exteriordoorzrot							Print "Object x, y, z: " + $objectx + " " + $objecty + " " + $objectz + ", cell: " + $exteriorcell + ", tempdistance: " + $tempdistance							Print "Tempdistancex: " + $tempdistancex + ", tempdistancey: " + $tempdistancey + ", tempdistancez: " + $tempdistancez							Print "Interior door x, y, z: " + $interiordoorx + " " + $interiordoory + " " + $interiordoorz + ", z-angle: " + $interiordoorzrot							Print "Placed object (" + $tempobjectref.GetFormIDString + ") at position: " + $newobjectx + ", " + $newobjecty + ", " + $newobjectz + " in cell: " + $interiorcell + ", rotation: " + $rotation							set tempdistancex to (objectx - exteriordoorx) + interiordoorx							set tempdistancey to (objecty - exteriordoory) + interiordoory							set tempdistancez to (objectz - exteriordoorz) + interiordoorz							Print "Other object coord system: " + $tempdistancex + ", " + $tempdistancey + ", " + $tempdistancez + ", differences: " + $(tempdistancex - newobjectx) + ", " + $(tempdistancey - newobjecty) + ", " + $(tempdistancez - newobjectz)					endif;				endif			set objectref to Apple			set objectref to GetNextRef			GoTo 1		else			; done with current type;			PrintC "RenIntStaticsNodeQuestScript: Changing GetFirstRef type..."			if (usestatics == 1 && donestatics == 0)				set objectref to Apple				set objectref to GetFirstRef 28 3				set objecttypecode to 28				set donestatics to 1				GoTo 1			endif			if (usetrees == 1 && donetrees == 0)				set objectref to Apple				set objectref to GetFirstRef 30 3				set objecttypecode to 30				set donetrees to 1				GoTo 1			endif			if (uselights == 1 && donelights == 0)				set objectref to Apple				set objectref to GetFirstRef 26 3				set objecttypecode to 26				set donelights to 1				GoTo 1			endif			if (useflora == 1 && doneflora == 0)				set objectref to Apple				set objectref to GetFirstRef 31 3				set objecttypecode to 31				set doneflora to 1				GoTo 1			endif			if (usecontainers == 1 && donecontainers == 0)				set objectref to Apple				set objectref to GetFirstRef 23 3				set objecttypecode to 23				set donecontainers to 1				GoTo 1			endif			if (useactivators == 1 && doneactivators == 0)				set objectref to Apple				set objectref to GetFirstRef 18 3				set objecttypecode to 18				set doneactivators to 1				GoTo 1			endif			if (useroads == 1 && doneroads == 0)				set objectref to Apple				set objectref to GetFirstRef 56 3				set objecttypecode to 56				set doneroads to 1				GoTo 1			endif			if (useland == 1 && doneland == 0)				set objectref to Apple				set objectref to GetFirstRef 54 3				set objecttypecode to 54				set doneland to 1				GoTo 1			endif			if (usefurniture == 1 && donefurniture == 0)				set objectref to Apple				set objectref to GetFirstRef 32 3				set objecttypecode to 32				set donefurniture to 1				GoTo 1			endif			if (uselandtexture == 1 && donelandtexture == 0)				set objectref to Apple				set objectref to GetFirstRef 14 3				set objecttypecode to 14				set donelandtexture to 1				GoTo 1			endif			if (usemisc == 1 && donemisc == 0)				set objectref to Apple				set objectref to GetFirstRef 27 3				set objecttypecode to 27				set donemisc to 1				GoTo 1			endif		endif		set cellx to player.GetPos X		set celly to player.GetPos Y		set cellx to (cellx / 4096)		set celly to (celly / 4096)		Print "Player cellx: " + $cellx + ", player celly: " + $celly		; all done down here, enable the control again		EnableControl 5		set working to 0		set cellmoverx to -4		set cellmovery to -4		while (cellmoverx <= 4)			while (cellmovery <= 4)				let returnarray := Call rencreateland (cellx+cellmoverx) (celly+cellmovery) interiordoorref				let arraysize := (ar_Size intobjectreference) + 1				ar_Resize intobjectreference arraysize				ar_Resize objectstodelete arraysize				let returnarrayref := returnarray[1]				set tempdistancez to returnarrayref.GetPos Z				; already did (objectz - exteriordoorz) here...				; so...				set tempdistancez to (tempdistancez - (tempdistancez + exteriordoorz))				ar_Insert intobjectreference arraysize returnarrayref 				ar_Insert objectstodelete arraysize returnarrayref 				let heightdistancearray[$(returnarrayref.GetFormIDString)] := tempdistancez 				set cellmovery to (cellmovery + 1)			loop			set cellmovery to -4			set cellmoverx to (cellmoverx + 1)		loop		Print "RenIntStaticsNodeQuestScript: All done transferring..."		exteriordoorref.Activate player				return	else		; player is not looking at something...	endif	if (player.IsInInterior == 0)		set interiortimer to (interiortimer + GetSecondsPassed)		if (interiortimer > 1)			if eval (ar_Size objectstodelete) > 0				; time to delete all the references...					Print "Deleting references..."				let iter := ar_Construct StringMap				foreach iter <- objectstodelete					let deleteref := iter["value"]					if (IsFormValid deleteref)						deleteref.Disable						deleteref.DeleteReference					endif				loop				let objectstodelete := ar_Null				let intobjectreference := ar_Null				let interiorcellreference := ar_Null				let heightdistancearray := ar_Null				let returnarray := ar_Null			endif						set interiortimer to 0			if (donestatics == 1)				set donestatics to 0			endif			if (donetrees == 1)				set donetrees to 0			endif			if (donelights == 1)				set donelights to 0			endif			if (doneflora == 1)				set doneflora to 0			endif			if (donecontainers == 1)				set donecontainers to 0			endif			if (donefurniture == 1)				set donefurniture to 0			endif			if (doneworld == 1)				set doneworld to 0			endif			if (doneactivators == 1)				set doneactivators to 0			endif			if (doneroads == 1)				set doneroads to 0			endif			if (doneland == 1)				set doneland to 0			endif			if (donelandtexture == 1)				set donelandtexture to 0			endif			if (donemisc == 1)				set donemisc to 1			endif		endif	else		set interiortimer to 0	endifEnd

ScriptName rencreatelandfloat arg1float arg2ref arg3ref playerworldref linkeddoorfloat exteriordoorxfloat exteriordooryfloat exteriordoorzfloat interiordoorxfloat interiordooryfloat interiordoorzfloat interiordoorzrotfloat exteriordoorzotref exteriordoorrefref cloneobjectref cloneobjectnewref placedlandstring_var cloneobjectnifarray_var cloneobjectreturnarray; [0] = base object; [1] = placed referencefloat cellxfloat cellyshort cellxfileshort cellyfilefloat placedxfloat placedyfloat placedzfloat placedzrotshort cellnumber; for the NIF pathfloat worldxfloat worldy; for the PositionWorld actorfloat landguyzfloat newinteriordoorzrot float newobjectxfloat newobjectyBegin Function{arg1,arg2,arg3}	; arg1 = player x (-1, etc)	; arg2 = player y (-27, etc)	; arg3 = interior door ref	Print "Entered rencreateland function..."	set playerworld to player.GetParentWorldspace	set interiordoorx to arg3.GetPos X	set interiordoory to arg3.GetPos Y	set interiordoorz to arg3.GetPos Z	set interiordoorzrot to arg3.GetAngle Z	set exteriordoorref to arg3.GetLinkedDoor	set exteriordoorzot to exteriordoorref.GetAngle Z	set exteriordoorx to exteriordoorref.GetPos X	set exteriordoory to exteriordoorref.GetPos Y	set exteriordoorz to exteriordoorref.GetPos Z	set cellx to arg1	set celly to arg2	set cellxfile to arg1	set cellyfile to arg2	if (cellx >= 0 && celly >= 0)		set cellnumber to 1	endif	if (cellx >= 0 && celly < 0)		set cellnumber to 2	endif	if (cellx < 0 && celly >= 0)		set cellnumber to 3	endif	if (cellx < 0 && celly < 0)		set cellnumber to 4	endif	let cloneobjectnif := "reneerint\tamriel\" + $cellnumber + "\" + $cellxfile + "." + $cellyfile + "_far.nif"	Print "RenCreateLand: Made NIF path: " + $cloneobjectnif	set cloneobject to RenLandStatic01.GetBaseObject	set cloneobject to CloneForm cloneobject	SetModelPathEx $cloneobjectnif cloneobject	set placedland to arg3.PlaceAtMe cloneobject 1 0 0	set worldx to (exteriordoorref.GetPos X)	set worldy to (exteriordoorref.GetPos Y)		set landguyz to RenIntStaticsNode.landguyz 	; should be close...	set placedx to ((cellxfile * 4096) - exteriordoorx)	set placedy to ((cellyfile * 4096) - exteriordoory)	set placedz to ((landguyz - exteriordoorz) + interiordoorz); 	set tempdistancez to (objectz - exteriordoorz)	let newinteriordoorzrot := (interiordoorzrot + (exteriordoorzot - interiordoorzrot))	set placedzrot to (newinteriordoorzrot)	if (newinteriordoorzrot < 0)		set newinteriordoorzrot to (newinteriordoorzrot + 360)	endif	if (newinteriordoorzrot > 360)		set newinteriordoorzrot to (newinteriordoorzrot - 360)	endif	let newobjectx := interiordoorx + placedx * cos newinteriordoorzrot + placedy * sin newinteriordoorzrot 	let newobjecty := interiordoory - placedx * sin newinteriordoorzrot + placedy * cos newinteriordoorzrot ;	set newobjectx to (newobjectx - interiordoorx);	set newobjecty to (newobjecty - interiordoory)	Print "RenCreateLand: Position X: " + $newobjectx	Print "RenCreateLand: Position Y: " + $newobjecty	Print "RenCreateLand: Position Z: " + $placedz	if (placedzrot < 0)		set placedzrot to (placedzrot + 360)	endif	if (placedzrot > 360)		set placedzrot to (placedzrot - 360)	endif	placedland.SetAngle Z placedzrot	; hopefully?	placedland.SetPos X newobjectx 	placedland.SetPos Y newobjecty 	set placedz to (placedz - 200)	; rough height of terrain mesh in NIF	placedland.SetPos Z placedz	Print "RenCreateLand: Created land object (" + $(placedland.GetFormIDString) + ") at " + $cellx + ", " + $celly	let cloneobjectreturnarray := ar_Construct Array	let cloneobjectreturnarray[0] := cloneobject	let cloneobjectreturnarray[1] := placedland	Print "Leaving rencreateland function..."	SetFunctionValue cloneobjectreturnarrayEnd