scn AAAFyTyActivatorFreezeItemsScript

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
array_var array_Refs_AngleX
array_var array_Refs_AngleY
array_var array_Refs_AngleZ
 
int iRefCount
int iBaseObjectIndex
int iArrayIndex
 
float fPosX
float fPosY
float fPosZ
float fAngleX
float fAngleY
float fAngleZ
 
ref refItem
ref refStatic
ref refBaseObject
ref refMarker

begin OnActivate
    set refMarker to AAAFyTyNPCDummyRef
	Print "Activated"
    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_Refs_AngleX := Ar_Construct "array"
    let array_Refs_AngleY := Ar_Construct "array"
    let array_Refs_AngleZ := 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
        Ar_append array_Refs_AngleX refItem.GetAngle X
        Ar_append array_Refs_AngleY refItem.GetAngle Y
        Ar_append array_Refs_AngleZ refItem.GetAngle 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
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource02Armor, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest02Armor, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource03Armor, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest03Armor, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource04Armor, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest04Armor, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource05Book, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest05Book, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource06Card, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest06Card, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource07Card, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest07Card, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
 
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource08Misc, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest08Misc, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource09Misc, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest09Misc, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource10Misc, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest10Misc, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource11Misc, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest11Misc, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource12Weapon, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest12Weapon, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource13Weapon, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest13Weapon, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
 
        let iBaseObjectIndex := IsRefInList AAAFyTyFormListSource14Weapon, refBaseObject
 
        if iBaseObjectIndex > -1
 
            let refBaseObject := ListGetNthForm AAAFyTyFormListDest14Weapon, iBaseObjectIndex
            Print GetFormIDString refBaseObject
            let refStatic := PlayerRef.PlaceAtMe refBaseObject, 1
            refStatic.MoveTo refItem
            refItem.Disable
           
            let fPosX := array_Refs_PosX[iArrayIndex]
            let fAngleX := array_Refs_AngleX[iArrayIndex]
 
            let fPosY := array_Refs_PosY[iArrayIndex]
            let fAngleY := array_Refs_AngleY[iArrayIndex]
 
            let fPosZ := array_Refs_PosZ[iArrayIndex]
            let fAngleZ := array_Refs_AngleZ[iArrayIndex]
 
            refStatic.SetPos X fPosX
            refStatic.SetAngle X fAngleX
 
            refStatic.SetPos Y fPosY
            refStatic.SetAngle Y fAngleY
 
            refStatic.SetPos Z fPosZ
            refStatic.SetAngle Z fAngleZ
 
        endif
       
    loop
end