Diddy - An Open Source Framework - Part 6

Method Draw:Void(offsetx:Float = 0, offsety:Float = 0, rounded:Bool = False)
		if Not visible Then Return
		...
Method DrawHitBox:Void(offsetx:Float = 0, offsety:Float = 0)
		if Not visible Then Return
		...

Function PauseChannel( channel )
	device.PauseChannel channel
End

Function ResumeChannel( channel )
	device.ResumeChannel channel
End

Method Pause:Void()
	If IsPlaying() Then
		PauseChannel(channel)
	End
End

Method Resume:Void()
	If IsPlaying() Then
		ResumeChannel(channel)
	End
End

'Strict

Import diddy
Import screenTitle
Import screenMenu
Import screenGame


Global menuScreen:MenuScreen
Global titleScreen:TitleScreen
Global gameScreen:GameScreen
Global VIRTUAL_W = 1080
Global VIRTUAL_H = 1920

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

Class MyGame Extends DiddyApp
	Method OnCreate:Int()
		Super.OnCreate()
		
		#If TARGET="android"
			SetGraphics(DeviceHeight(),DeviceWidth())
		#Else
			SetGraphics(480,853) 
		#end
		
		 
		SetScreenSize(VIRTUAL_W,VIRTUAL_H, True) ' Virtual resolution! Respect aspect ratio last parameter
		LoadImages()
		titleScreen = New TitleScreen
		menuScreen = new MenuScreen
		gameScreen = new GameScreen
		defaultFadeTime = 300
		game.Start(titleScreen)
		Return 0
	End
	
	Method LoadImages:Void()
		' Load in our screen images
		images.Load("title.png","", False)
		
		' Load in our dice images
		images.Load("1.png", "", False)
		images.Load("2.png", "", False)
		images.Load("3.png", "", False)
		images.Load("4.png", "", False)
		images.Load("5.png", "", False)
		images.Load("6.png", "", False)
	End
End

Import diddy



Class TitleScreen Extends Screen
	Field title:GameImage
	Field ts:Int
	
	Method New()
		name = "Title"
	End
	
	Method Start:Void()
		title=game.images.Find("title")
		game.screenFade.Start(300, False)
		ts=Millisecs()
	End
	
	Method Update:Void()
		If ts<Millisecs()-3000
			game.screenFade.Start(300, True, True, True)
			game.nextScreen = menuScreen ' <-------- menuScreen is out of scope!
		End If
	End
	
	Method Render:Void()
		' Both rendering and fading are affected by virtual resolution
		DrawImage(title,0,0)
		
	End
	Method ExtraRender:Void()
		' Render isn't affected by virtual resolution, but fading is
	End
	Method DebugRender:Void()
		' Neither render nor fading are affected by virtual resolution
	
	end
	
	
End

Import diddy



Class MenuScreen Extends Screen
	Method New()
		name = "Menu"
	End
	
	Method Start:Void()
		
	End
	
	Method Update:Void()
	
	End
	
	Method Render:Void()
		' Both rendering and fading are affected by virtual resolution
	End
	Method ExtraRender:Void()
		' Render isn't affected by virtual resolution, but fading is
	End
	Method DebugRender:Void()
		' Neither render nor fading are affected by virtual resolution
	
	End
	
	
End

Syntax error - unexpected token ':'

Method OnResume:Int()
		'Try
			dt.currentticks = Millisecs()
			dt.lastticks = dt.currentticks
			currentScreen.Resume()
		'Catch e:DiddyException
		'	Print(e.ToString(True))
		'	Error(e.ToString(False))
		'End
		Return 0
	End

'summary: Assert Error, outputs the error of the assertion
Function AssertError:Void(msg:String)
	'Throw New AssertException(msg)
End

Module 'game' not found

If PathFinder.route.Length() > 0 And currentPath >0 Then

If KeyHit(KEY_R)
	'reset
	x = 0
	y = 0
	For fy = 0 Until MAP_HEIGHT
		For fx = 0 Until MAP_WIDTH
			grid[fx + fy * MAP_WIDTH] = 0
		Next
	Next
	PathFinder.route = PathFinder.route.Resize(0)
	PathFinder.paths = 0
EndIf

currentPath = undefined, undefined

DrawText "currentPath = " + PathFinder.route[currentPath] + "," + PathFinder.route[currentPath + 1], SCREEN_WIDTH, 30, 1

<Animation />

'Animation '

	Method ReadPixelsArray:Void()
		Cls 0, 0, 0
		Local posX:Int = SCREEN_WIDTH2
		Local posY:Int = SCREEN_HEIGHT2
'MODIFICATION START (single translation only, followed by pushmatrix)		
		Local m:= GetMatrix()
		Local offX:Int = m[4]
		Local offY:Int = m[5]
		
		DrawImage Self.image, posX - offX, posY - offY
' MODIFICATION END		

		If readPixels
			ReadPixels(pixels, posX - image.HandleX(), posY - image.HandleY(), image.Width(), image.Height())
			readPixelsComplete = True
			PixelArrayMask(pixels, maskRed, maskGreen, maskBlue)		
		End	
	End

Monkey Runtime Error : Error: Error #1023

C:/Apps/Coding/MonkeyPro66/modules/diddy/framework.monkey<176>
D:/Coding/Monkey/test.monkey<16>

DEVICE_WIDTH = DeviceWidth()

Local dw:Float = DeviceWidth()
DEVICE_WIDTH = dw

Local dw:Float = DeviceWidth()

Create()

SetTile ( mouseX, mouseY, 2, layerName )

#MOJO_AUTO_SUSPEND_ENABLED=false
#MOJO_IMAGE_FILTERING_ENABLED=false

#TEXT_FILES="*.txt|*.xml|*.json"
#IMAGE_FILES="*.png|*.jpg"
#SOUND_FILES="*.mp3"
#MUSIC_FILES="*.mp3"
#BINARY_FILES="*.bin|*.dat"

TRANS monkey compiler V1.42
Semanting...
Translating...
Building...
Done.
Process ended with return code 0 at 2/20/2013 8:28:03 AM

Function GetMatrix : Float[] ()
Function GetMatrix : Int ( matrix:Float[] )