Where is Diddy?

Strict

Import diddy

Function Main:Int()
	new MyGame()
	Return 0
End

Global gameScreen:GameScreen

Class MyGame Extends DiddyApp
	Method OnCreate:Int()
		Super.OnCreate()
		LoadImages()
		gameScreen = new GameScreen
		game.Start(gameScreen)
		return 0
	End
	
	Method LoadImages:Void()
		' create tmpImage for animations
		Local tmpImage:Image
		' load normal sprite
		images.LoadAnim("Ship1.png", 64, 64, 7, tmpImage)
		' load atlas sprites
		images.LoadAtlas("sprites.xml")
	End
End

Class GameScreen Extends Screen
	Field shipImage:GameImage
	Field axeAltasImage:GameImage
	Field longswordAltasImage:GameImage
		
	Method New()
		name = "Game"
	End
	
	Method Start:Void()
		shipImage = game.images.Find("Ship1")
		axeAltasImage = game.images.Find("axe")
		longswordAltasImage = game.images.Find("longsword")
	End
	
	Method Render:Void()
		Cls
		DrawText "GAME SCREEN!", SCREEN_WIDTH2, 10, 0.5, 0.5
		FPSCounter.Draw(0, 0)
		shipImage.Draw(100, 100, 0, 1, 1, 3)
		axeAltasImage.Draw(200, 100)
		longswordAltasImage.Draw(300, 100)
	End
	
	Method Update:Void()
		If KeyHit(KEY_ESCAPE)
			FadeToScreen(Null)
		End
	End
End

Class Robotobot Extends DiddyApp
	Method OnCreate:Int()
		Super.OnCreate()
		
		SetUpdateRate(60)
		SetScreenSize(960, 640, True)
		logoScreen = New LogoScreen()
		logoScreen.PreStart()
		
		Return 0
	End
End

Class LogoScreen Extends Screen

	Private
		Field timer:Timer
	
	Public
		Method New()
			game.images.Load("logo.png", "logo", False)
			titleScreen = New TitleScreen()
			Self.timer = New Timer(6000)
		End
			
		Method Start:Void()
			game.screenFade.Start(2000, False)
		End
		
		Method Render:Void()
			game.images.Find("logo").Draw(0,0)
		End
		
		Method Update:Void()
			Self.timer.Update()
			
			If Self.timer.getMode() = Timer.STOPPED Then
				game.screenFade.Start(2000, True)
				game.nextScreen = titleScreen
			EndIf
		End
End

	Method OnCreate:Int()
...
		SetScreenSize(DEVICE_WIDTH, DEVICE_HEIGHT)
		deviceChanged = True ' <<<<<<<< NEW
...

	Method OnRender:Int()
		FPSCounter.Update()
		If virtualResOn
			PushMatrix
			If aspectRatioOn
				If (DeviceWidth() <> DEVICE_WIDTH) Or (DeviceHeight() <> DEVICE_HEIGHT) Or deviceChanged ' <<<<< NEW (or deviceChanged)
					DEVICE_WIDTH = DeviceWidth()
					DEVICE_HEIGHT = DeviceHeight()
					deviceChanged = False ' <<<<< NEW
...

Strict

Import diddy

Global logoScreen:LogoScreen
Global titleScreen:TitleScreen

Function Main:Int()
	New Robotobot()
	Return 0
End

Class Robotobot Extends DiddyApp
	Method OnCreate:Int()
		Super.OnCreate()
		SetScreenSize(960, 640, True)
		logoScreen = New LogoScreen()
		game.Start(logoScreen)
		Return 0
	End
End

Class LogoScreen Extends Screen
	Field logo:GameImage
	
	Private
		Field timer:Timer
	
	Public
		Method New()
			name = "title"
		End
			
		Method Start:Void()
			logo = game.images.Load("logo.png", "logo", False)
			titleScreen = New TitleScreen()
			Self.timer = New Timer(game.CalcAnimLength(6000))
		End
		
		Method Render:Void()
			Cls
			logo.Draw(0,0)
		End
		
		Method Update:Void()
			Self.timer.Update()
			If Self.timer.GetMode() = Timer.STOPPED Then
				FadeToScreen(titleScreen)
			Endif
		End
End 

Class TitleScreen Extends Screen
	Method New()
		name = "title"
	End
			
	Method Start:Void()
	End
		
	Method Render:Void()
		Cls
		DrawText "TITLESCREEN", 10, 10
	End
		
	Method Update:Void()
		If KeyHit(KEY_ESCAPE)
			FadeToScreen(game.exitScreen)
		End
	End
End

Class Timer
	Field time:Float
	Field mode:Int
	Const RUNNING:Int = 0
	Const STOPPED:Int = 1
	
	Method New(amount:Float)
		time = amount
		mode = RUNNING
	End
	
	Method Update:Void()
		If time > 0 Then
			time -= dt.delta
		Else
			mode = STOPPED
		End
	End
	
	Method GetMode:Int()
		Return mode
	End
End

Method OnTouchHit:Void(x:Int, y:Int, pointer:Int)
	If TouchDown(0)
		Print "Pointer1 + " + pointer
	Endif
	Print "Pointer2 + " + pointer
end

images.LoadAtlas("libgdx_sprites.txt", images.LIBGDX_ATLAS)

Field spriteImage:GameImage
...
spriteImage = game.images.Find("ship") 'ship is stored in the atlas

internal function OnDeactivate( e:Event ):void{
	input=new gxtkInput;
	if( Config.MOJO_AUTO_SUSPEND_ENABLED=="true" ){
		InvokeOnSuspend();
	}
}

Class DiddyApp Extends App
...
	Method OnSuspend:Int()
		currentScreen.Suspend()
		Return 0
	End

	Method OnResume:Int()
		currentScreen.Resume()
		Return 0
	End

Class Screen Abstract
...
	Method Suspend:Void()
	End

	Method Resume:Void()
	End

	Method RangeCheck:Void(index:Int)
		' range check doesn't use assert, for speed
		If index < 0 Or index >= size Then AssertError("ArrayList.RangeCheck: Index out of bounds: " + index + " is not 0<=index<" + size)
	End

	Method RangeCheck:Void(index:Int)
		' range check doesn't use assert, for speed
		If index < 0 Or (index > 0 And index >= size) Then AssertError("ArrayList.RangeCheck: Index out of bounds: " + index + " is not 0<=index<" + size)
	End

	' Overrides IList
	Method Insert:Void(index:Int, o:E)
		If rangeChecking And index <> 0 Then RangeCheck(index)
		If size+1 > elements.Length Then EnsureCapacity(size+1)
		For Local i:Int = size Until index Step -1
			elements[i] = elements[i-1]
		Next
		elements[index] = o
		size+=1
		modCount += 1
	End

	For Local key:String = EachIn game.images.Keys()
		game.images.Find(key).image.Discard()
	Next
	game.images.Clear()

	'using this to clear recent asset sceene
	game.images.Clear()

game.images.clear()

        For Local key:String = EachIn game.images.Keys()
                game.images.Find(key).image.Discard()
        Next
        game.images.Clear()

game.images.PreCache()

public static void forceGC()
{
	System.gc();
}

#if WINDOWS_PHONE
        var wbt = new WebBrowserTask();
        wbt.Uri = new Uri(address);
        wbt.Show();
#endif

#if WINDOWS_PHONE
        EmailComposeTask emailComposeTask = new EmailComposeTask();
 
        emailComposeTask.Subject = subject;
        emailComposeTask.Body = text;
        emailComposeTask.To = email;
 
        emailComposeTask.Show();
#endif 

		WebBrowserTask webBrowserTask = new WebBrowserTask();
		webBrowserTask.Uri = new Uri(address, UriKind.Absolute);
		webBrowserTask.Show();

Method New(img:GameImage, x:Float, y:Float)
	...
	'Self.SetHitBox( -img.w2, -img.h2, img.w, img.h)
	Self.SetHitBox(-img.image.HandleX(), -img.image.HandleY(), img.w, img.h)
	Self.visible = True
End

Function Main:Int()
	game = New MyGame()
	game.FPS = 120
	Return 1
End

yPos -= MouseZ() * 3.0

Method SetTile:Void(x:Float, y:Float, tile:Int, layerName:String)

Class GameScreen Extends Screen
	Field tilemap:MyTileMap
	Field offsetX:Int, offsetY:Float 

	Method New()
		name = "Game"	
	End

	Method Start:Void()
		Local reader:MyTiledTileMapReader = New MyTiledTileMapReader
		Local tm:TileMap = reader.LoadMap("maps/map.xml")	
		tilemap = MyTileMap(tm) 			
		game.screenFade.Start(1000, False)	
	End
	
	Method Render:Void()
		Cls	
		tilemap.RenderMap(offsetX, offsetY, SCREEN_WIDTH, SCREEN_HEIGHT)
		
	End
	
	Method Update:Void()	
		If KeyDown(KEY_UP) Then offsetY -=3
		If KeyDown(KEY_DOWN) Then offsetY +=3
		If KeyDown(KEY_LEFT) Then offsetX -=3
		If KeyDown(KEY_RIGHT) Then offsetX +=3
		If KeyDown(KEY_SPACE) Then tilemap.SetTile(2,2,1,"border")
	End
End

Class MyTiledTileMapReader Extends TiledTileMapReader
	Method CreateMap:TileMap()
		Return New MyTileMap
	End
End

Class MyTileMap Extends TileMap
	Method ConfigureLayer:Void(tileLayer:TileMapLayer)
		SetAlpha(tileLayer.opacity)
	End
	Method DrawTile:Void(tileLayer:TileMapTileLayer, mapTile:TileMapTile, x:Int, y:Int)
		mapTile.image.DrawTile(x, y, mapTile.id, 0, 1, 1)
	End
End

Local layer:TileMapTileLayer = FindLayerByName("border")
layer.mapData.Set(2, 2, 1)

Local layer:TileMapTileLayer = tilemap.FindLayerByName("border")
layer.mapData.Set(2, 2, 1)

layer.mapData.Get(2, 2)

Local layer:TileMapTileLayer = tilemap.FindLayerByName("border")
layer.mapData.Set(2,2,1)		
Local cell:TileMapCell = New TileMapCell	
cell.gid= 1				
layer.mapData.SetCell(2,2,cell)	

			#if TARGET="flash"
				sound = LoadSoundSample(SoundBank.path + file +".mp3")
			#else If TARGET="android"
				sound = LoadSoundSample(SoundBank.path + file +".ogg")
			#else
				sound = LoadSoundSample(SoundBank.path + file +".wav")
			#endif

Local screenshot:Image = CreateScreenshot()