scn AAAFyTyHotkeyFreezeItemsScript
int    iKeyID

array_var array_MiscRefsInCell
array_var array_BookRefsInCell
array_var array_ClothingRefsInCell
array_var array_ArmorRefsInCell
array_var array_IngredientRefsInCell
array_var array_WeaponRefsInCell
array_var array_AmmoRefsInCell
array_var array_IngestibleRefsInCell

array_var array_Temp

array_var array_Refs
array_var array_Refs_PosX
array_var array_Refs_PosY
array_var array_Refs_PosZ

int iRefCount
int iBaseObjectIndex
int iArrayIndex

int iPosX
int iPosY
int iPosZ

ref refItem
ref refStatic
ref refBaseObject
ref refMarker

begin function {iKeyID}

	set refMarker to AAAFyTyNPCDummyRef

	let iArrayIndex := -1

	let array_Refs := Ar_Construct "array"
	let array_Refs_PosX := Ar_Construct "array"
	let array_Refs_PosY := Ar_Construct "array"
	let array_Refs_PosZ := Ar_Construct "array"

	let array_MiscRefsInCell := GetRefs 31,1
	let array_BookRefsInCell := GetRefs 25,1
	let array_ClothingRefsInCell := GetRefs 26,1
	let array_ArmorRefsInCell := GetRefs 24,1
	let array_IngredientRefsInCell := GetRefs 29,1
	let array_WeaponRefsInCell := GetRefs 40,1
	let array_AmmoRefsInCell := GetRefs 41,1
	let array_IngestibleRefsInCell := GetRefs 47,1

	foreach array_Temp <- array_MiscRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_BookRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_ClothingRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_ArmorRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_IngredientRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_WeaponRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_AmmoRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	foreach array_Temp <- array_IngestibleRefsInCell

		let refItem := array_Temp["value"]
		Ar_append array_Refs refItem
		Ar_append array_Refs_PosX refItem.GetPos X
		Ar_append array_Refs_PosY refItem.GetPos Y
		Ar_append array_Refs_PosZ refItem.GetPos Z

	loop

	let iRefCount := Ar_size array_Refs

	foreach array_Temp <- array_Refs

		let iArrayIndex += 1
		let refItem := array_Temp["value"]
		let refBaseObject := refItem.GetBaseObject

		let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource01Ammo, refBaseObject

		if iBaseObjectIndex > -1

			let refBaseObject := ListGetNthForm AAAFyTyFormListDest01Ammo, iBaseObjectIndex

			;refItem.Disable

			let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1

			let iPosX := array_Refs_PosX[iArrayIndex]
			let iPosY := array_Refs_PosY[iArrayIndex]
			let iPosZ := array_Refs_PosZ[iArrayIndex]

			refStatic.SetPos X iPosX
			refStatic.SetPos Y iPosY
			refStatic.SetPos Z iPosZ

		endif

	loop

end function