# Setting and retrieving the data using UserDataBlob.Array32
#
import array
Application.NewScene("", False)
blob = Application.ActiveSceneRoot.AddProperty("UserDataBlob", False, "myBlob");
Application.LogMessage("----------------Setting the Array32 Property----------------")
myString = "This is a string!"
# Convert the string to an unsigned byte array
myStringAsAByteArray = array.array('B', myString)
Application.LogMessage("myStringAsAByteArray = " + str(myStringAsAByteArray))
# To convert the unsigned byte (8 bit) array to an unsigned integer (32 bit) array,
# the size of the byte array needs to be a multiple of 4.
# To do so, let's pad the end of the byte array with null bytes
NumBytesPadded = 0
while len(myStringAsAByteArray) % 4 != 0:
	myStringAsAByteArray.append( 0 )
	NumBytesPadded += 1
Application.LogMessage("myStringAsAByteArray = " + str(myStringAsAByteArray))
Application.LogMessage("NumBytesPadded = " + str(NumBytesPadded))
# Convert the unsigned byte array to an unsigned integer array
# and add the number of null bytes padded as the first index of the integer array
myStringAsAnIntArray = array.array('I', myStringAsAByteArray.tostring())
myStringAsAnIntArray.insert(0, NumBytesPadded) 
Application.LogMessage("myStringAsAnIntArray = " + str(myStringAsAnIntArray))
# Set the UserDataBlob.Array32 property
blob.Array32 = myStringAsAnIntArray
Application.LogMessage("----------------Getting the Array32 Property----------------")
# Get the UserDataBlob.Array32 property
BlobIntTuple = blob.Array32
Application.LogMessage("BlobIntTuple = " + str(BlobIntTuple))
# Convert the integer tuple to an unsigned integer array
BlobIntArray = array.array('I', BlobIntTuple)
# Get the number of null bytes padded to the end of the byte array
# and removes it from the integer array
BlobNumBytesPadded = BlobIntArray.pop(0)
Application.LogMessage("BlobNumBytesPadded = " + str(BlobNumBytesPadded))
Application.LogMessage("BlobIntArray = " + str(BlobIntArray))
# Convert the unsigned integer array to an unsigned byte array
BlobByteArray = array.array('B', BlobIntArray.tostring() )
Application.LogMessage("BlobByteArray = " + str(BlobByteArray))
# Remove the number of bytes padded from the unsigned byte array
BlobByteArray = BlobByteArray[0:len(BlobByteArray)-BlobNumBytesPadded]
Application.LogMessage("BlobByteArray = " + str(BlobByteArray))
# Print the string
Application.LogMessage("BlobString = " + BlobByteArray.tostring())
# Expected results:
# INFO : ----------------Setting the Array32 Property----------------
# INFO : myStringAsAByteArray = array('B', [84, 104, 105, 115, 32, 105, 115, 32, 97, 32, 115, 116, 114, 105, 110, 103, 33])
# INFO : myStringAsAByteArray = array('B', [84, 104, 105, 115, 32, 105, 115, 32, 97, 32, 115, 116, 114, 105, 110, 103, 33, 0, 0, 0])
# INFO : NumBytesPadded = 3
# INFO : myStringAsAnIntArray = array('I', [3L, 1936287828L, 544434464L, 1953701985L, 1735289202L, 33L])
# INFO : ----------------Getting the Array32 Property----------------
# INFO : BlobIntTuple = (3, 1936287828, 544434464, 1953701985, 1735289202, 33)
# INFO : BlobNumBytesPadded = 3
# INFO : BlobIntArray = array('I', [1936287828L, 544434464L, 1953701985L, 1735289202L, 33L])
# INFO : BlobByteArray = array('B', [84, 104, 105, 115, 32, 105, 115, 32, 97, 32, 115, 116, 114, 105, 110, 103, 33, 0, 0, 0])
# INFO : BlobByteArray = array('B', [84, 104, 105, 115, 32, 105, 115, 32, 97, 32, 115, 116, 114, 105, 110, 103, 33])
# INFO : BlobString = This is a string!

// Setting and retrieving the data using UserDataBlob.Array32
//
NewScene(null, false);
var blob = Application.ActiveSceneRoot.AddProperty("UserDataBlob", false, "myBlob");
// Create an unsigned integer array and set it as the blob data
// Don't forget that the first item must be the number of null bytes added
// to the unsigned byte array (0 in this case since we want to store only
// unsigned integer values)
var WriteArray = [0,1,3,5,4294967295];
blob.Array32 = WriteArray;
// Retrieve the blob data
// Don't forget that the first item is the number of null bytes added
// to the unsigned byte array
var ReadArray = blob.Array32;
Application.LogMessage("ReadArray  = " + ReadArray.toArray());
// Expected results:
// INFO : ReadArray  = 0,1,3,5,4294967295

' Setting and retrieving the data using UserDataBlob.Array32
'
NewScene null , False
set  blob = Application.ActiveSceneRoot.AddProperty("UserDataBlob", false, "myBlob")
' Create an unsigned integer array and set it as the blob data
' Don't forget that the first item must be the number of null bytes added
' to the unsigned byte array (0 in this case since we want to store only
' unsigned integer values)
Dim WriteArray
WriteArray = Array(0,1,3,5,4294967295)
blob.Array32 = WriteArray
' Retrieve the blob data
' Don't forget that the first item is the number of null bytes added
' to the unsigned byte array
Dim ReadArray
ReadArray = blob.Array32
For i = 0 to Ubound(ReadArray)
	LogMessage("ReadArray(" & i & ") = " & CStr(ReadArray(i)))
Next
' Expected results:
' INFO : ReadArray(0) = 0
' INFO : ReadArray(1) = 1
' INFO : ReadArray(2) = 3
' INFO : ReadArray(3) = 5
' INFO : ReadArray(4) = 4294967295