Diddy (part 3)

Function Main:Int()
	game = new MyGame()
	game.useFixedRateLogic = True 
	Return 0
End Function

game.useFixedRateLogic = True

game.UseFixedRateLogic = True

Function Main:Int()
	game = New MatchGame()
	game.FPS = 30
	game.UseFixedRateLogic = True
	Return 0
End Function

Class DiddyApp Extends App
...
	Method OnUpdate:Int()
		OverrideUpdate() ' <--- New
...
		Return 0
	End

	Method OverrideUpdate:Void()
	End

Function Main:Int()
	game = New MatchGame()
	game.FPS = 30
	game.useFixedRateLogic = True    'Commented out it runs at a steady 30
	Return 0
End Function

Function Main:Int()
	game = New MatchGame()
	game.FPS = 30
	game.frameRate = 100 ' <--- CHANGE THIS (default is 200)
	game.UseFixedRateLogic = True    'Commented out it runs at a steady 30
	Return 0
End Function

If MouseHit(MOUSE_LEFT)
	e.EmitAt(5, game.mouseX,game.mouseY)
Endif 

If MouseHit(MOUSE_LEFT)
  e.EmitAt(5, game.mouseX, SCREEN_HEIGHT - game.mouseY)
EndIf

For local i:Int = 1 to Floor(numTicks)
	Update(1)
Next

Local layer:TileMapLayer = ReadObjectLayer(mapchild) 

For Local obj:TileMapObject = EachIn tilemap.GetAllObjects()
  ' do something with obj
Next

Class MyCell Extends TileMapCell
  Field box2dbody ' I can't remember the class for a b2d body

  Method New(gid:Int, x:Int, y:Int)
    Super.New(gid, x, y)
  End
End

Class MyMap Extends TileMap
  Method CreateCell:TileMapCell(gid:Int, x:Int, y:Int)
    Return New MyCell(gid, x, y)
  End
End

Class MyReader Extends TiledTileMapReader
  Method CreateMap:TileMap()
    Return New MyMap
  End
End

Method BuildBodies:Void()
  For Local layer:TileMapLayer = EachIn tilemap.layers
    If TileMapTileLayer(layer) <> Null Then
      For Local cell:TileMapCell = EachIn TileMapTileLayer(layer).mapData.cells
        If MyCell(cell) <> Null Then
          Local mc:MyCell = MyCell(cell)
          ' now you can use mc.x, mc.y, and mc.gid to build a body
          mc.box2dbody = ' the new body
        End
      Next
    End
  Next
End

For Local i:Int = 0 Until list.Size
  Local foo := list.Get(i)
  ' do stuff with foo
Next

Local enum:AbstractEnumerator<SomeClass> = list.Enumerator()
' cache enum somewhere
enum.Reset()
While enum.HasNext()
  Local foo := enum.NextObject()
  ' do stuff with foo
End

Method Clear:Void()
  aliveParticles = 0
End

Local mylist:ArrayList<Foo>
...
For Local i:Int = 0 Until mylist.Size
  Local f:Foo = mylist.Get(i)
  ' do something with f
Next

local testObject = Null

Assert(( testObject = Null ), "testObject is Null" )

Function Assert( statement : Bool, message : String )
	If statement = True
		Print (message)
		Error (message)
	Endif
End Function