Diddy (part 2)

Local tcSer:XMLElement = s.SerializeObject("tc", tc)

Local tc2:TestClass = TestClass(s.DeserializeObject(tcSer))

Local doc:XMLDocument = New XMLDocument

doc.Root.AddChild(s.SerializeObject("object1", object1))
doc.Root.AddChild(s.SerializeObject("object2", object2))
doc.Root.AddChild(s.SerializeObject("object3", object3))

Local output:String = doc.ToString()

Local parser:XMLParser = New XMLParser
Local doc:XMLDocument = parser.ParseString(LoadString("myobjects.xml"))

For node:XMLElement = EachIn doc.Root.Children
  Local myobject:MyClass = MyClass(s.DeserializeObject(node))
  ' do something with your deserialized object here
Next

Function DecodeBase64Bytes:Int[](src:String)
	InitBase64()
	Local a:Int, b:Int, c:Int, d:Int, i:Int, j:Int
	Local src2:Int[] = New Int[src.Length]
	Local padding:Int = 0
	
	' find out how many base64 characters
	Local srclen:Int = 0
	For i = 0 Until src.Length
		If BASE64_ARRAY[src[i]] >= 0 Then
			src2[srclen] = src[i]
			srclen += 1
			' check if it's a padding character and increment the count
			If BASE64_ARRAY[src[i]] = 64 Then padding += 1
		End
	Next
	
	' die if there are no base64 chars
	If srclen = 0 Then Return []
	
	' get the target length and create the array
	Local len:Int = 3*(srclen/4)
	If srclen Mod 4 = 0 Then
		len -= padding
	ElseIf padding = 0 Then
		If srclen Mod 4 >= 2 Then len += 1
		If srclen Mod 4 = 3 Then len += 1
	End
	Local rv:Int[] = New Int[len]
	
	i = 0
	j = 0
	Repeat
		a = BASE64_ARRAY[src2[i]]
		If i+1 > srclen Then Exit ' This shouldn't happen with base64, so something's wrong!
		b = BASE64_ARRAY[src2[i+1]]
		If i+2 < srclen Then c = BASE64_ARRAY[src2[i+2]] Else c = 64
		If i+3 < srclen Then d = BASE64_ARRAY[src2[i+3]] Else d = 64
		rv[j] = (a Shl 2) | (b Shr 4)
		If j+1 < len Then rv[j+1] = ((b & 15) Shl 4) | (c Shr 2)
		If j+2 < len Then rv[j+2] = ((c & 3) Shl 6) | d
		i += 4
		j += 3
	Until i >= srclen
	Return rv
End

<layer name="Cloud Layer" width="400" height="40">
 <properties>
  <property name="parallax_scale_x" value="0.3"/>
 </properties>
...
<layer name="Mountain Layer" width="400" height="40">
 <properties>
  <property name="parallax_scale_x" value="0.7"/>
 </properties>
...

	static float realMod(float value, float amount) {
		return modf(value, &amount);
	}

	static float realMod(float value, float amount) {
		return fmod(value, &amount);
	}

#include <math.h>

static float realMod(float value, float amount) {
	return (float)fmod(value, amount);
}

     double fmod (      double numerator,      double denominator );
      float fmod (       float numerator,       float denominator );
long double fmod ( long double numerator, long double denominator );

     double modf (      double x,      double * intpart );
long double modf ( long double x, long double * intpart );
      float modf (       float x,       float * intpart );

self.xmldata = LoadString(binpath + "locale/locale.xml")

		Local parser:XMLParser = New XMLParser
		Local node:XMLElement
		Local nodeList:ArrayList<XMLElement>

		Self.map = New StringMap<StringObject>
		
		'parse XML data and dump it into a Tmap
		xmldoc = parser.ParseString(Self.xmldata)  'FAILS HERE

Strict
Function Main:Int()
	Local a:Bool = Test(True)
	Return
End Function	

Function Test:Bool(val:Bool)
	If val
		Return True
	Else
		Return False
	Endif
End Function

Strict
Function Main:Int()
	Local a:Bool = Test(True)
	Return
End Function	

Function Test:Bool(val:Bool)
	If val
		Return True
	Else
		Return False
	Endif
        Return   'should this not return the default value for the function (i.e. False)?  Diddy seems to think so!
End Function

C:\Monkey\Android\BunnyHopp\Main.build\flash\MonkeyGame.as(5614): Spalte (Column): 26 Fehler(Error): Call to a
possibly undefined method loadBitmap through a reference with static type MonkeyGame.

		var bitmap:Bitmap=game.loadBitmap( path );

ERROR:C:\Monkey\Android\BunnyHopp\Main.build\flash\MonkeyGame.as(6056): Spalte(Column): 24 Fehler(Error): Call
to a possibly undefined method loadSound through a reference with static type MonkeyGame.

		var sound:Sound=game.loadSound( path );

LoadI18N()

Print(I18N("Hello World!")) ' prints "Hello World!"
SetI18N("french") ' change the current language to French
Print(I18N("Hello World!")) ' prints "Bonjour, tout le monde!"
ClearI18N() ' resets language to "default", which is whatever you've coded (not necessarily English)