gistfile1.bmx

Import diddy
Import mojo


Class TestScreen Extends Screen

  Method Start:Void() 
	
	End 
	
	Method Update:Void() 

	End 
	
	Method Render:Void()
		Cls 
		DrawRect 200, 200, 250, 250 
		If MouseDown And game.mouseX >= 200 And game.mouseX <= 450 And game.mouseY >= 200 And game.mouseY <= 450
			DrawRect 400, 600, 50, 50
		End 		
	End 

End 

Class TestApp Extends DiddyApp

	Method Create:Void()

		SetGraphics(2048, 1536) 

		Start(New TestScreen)
		
	End 
	
	
End 

Function Main:Int()

	New TestApp()
	Return 0
End Function