Diddy - An Open Source Framework - Part 8

#If TARGET <> "ios" And TARGET <> "stdcpp" And TARGET <> "glfw" And TARGET <> "android" And TARGET <> "bmax" Then

#If TARGET <> "ios" And TARGET <> "stdcpp" And TARGET <> "glfw" And TARGET <> "android" And TARGET <> "bmax" And TARGET <> "winrt" Then

Local tween := diddy.tween.Tween.CreateSine(durationMillis, 0.5, -0.25, 0.5)

Alias DiddyTween = diddy.tween.Tween

Local tween := DiddyTween.CreateSine(durationMillis, 0.5, -0.25, 0.5)

tilemap.RenderMap(diddyGame.scrollX, diddyGame.scrollY, SCREEN_WIDTH, SCREEN_HEIGHT, 1, 1)
		'player.Draw(diddyGame.scrollX, diddyGame.scrollY, True)

something like
tilemap.RenderLayer(layer1,...)
player.Draw(...)
tileMap.RenderLayer(layer2,..)

Method RenderLayer:Void(layerName:String, bx:Int, by:Int, bw:Int, bh:Int, sx:Float = 1, sy:Float = 1)

Method RenderLayer:Void(layer:TileMapLayer, bx:Int, by:Int, bw:Int, bh:Int, sx:Float = 1, sy:Float = 1)

Method RenderMap:Void(bx:Int, by:Int, bw:Int, bh:Int, sx:Float = 1, sy:Float = 1, layerName:String = "ALL")

tilemap.RenderLayer("CollisionLayer", diddyGame.scrollX, diddyGame.scrollY, SCREEN_WIDTH, SCREEN_HEIGHT, 1, 1) ' using the name of the layer we want to draw
tilemap.RenderLayer(tileLayer, diddyGame.scrollX, diddyGame.scrollY, SCREEN_WIDTH, SCREEN_HEIGHT, 1, 1) ' using the object of the layer we want to draw
player.Draw(diddyGame.scrollX, diddyGame.scrollY, True)
tilemap.RenderMap(diddyGame.scrollX, diddyGame.scrollY, SCREEN_WIDTH, SCREEN_HEIGHT, 1, 1, "Background") ' using the RenderMap to draw the layer with the name background

Import diddy
Import sethtmlsize

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

Class MyGame Extends DiddyApp
	Method Create:Void()
		SetGraphics(800, 600)
		SetScreenSize(800, 600)
		SetHTMLSize(800, 600)
		
		Start(Singleton<MyScreen>.Instance())
	End	
End

Class MyScreen Extends Screen
	Method Start:Void()
	End
	
	Method Update:Void()

	End
	
	Method Render:Void()
		Cls
		DrawRect(0, 0, 20, 20)
		DrawRect(780, 580, 20, 20)
	End
End

diddy.setGraphics=function(w, h)
{
	var canvas=document.getElementById( "GameCanvas" );
	canvas.width  = w;
	canvas.height = h;
        if( canvas.updateSize ) canvas.updateSize();
	//return window.innerHeight;
}

diddy.setGraphics=function(w, h)
{
	var canvas = document.getElementById("GameCanvas");
	canvas.width  = w;
	canvas.height = h;
	canvas.setAttribute("style", "");
}

canvas.style.height=h;

	canvas.updateSize=function(){
		xscale=canvas.width/canvas.clientWidth;
		yscale=canvas.height/canvas.clientHeight;
		game.RenderGame();
	}

diddy.setGraphics=function(w, h)
{
	var canvas = document.getElementById("GameCanvas");
	canvas.width  = w;
	canvas.height = h;
	canvas.setAttribute("style", "");
	if( canvas.updateSize ) canvas.updateSize();
}

Class MyGame Extends DiddyApp
	Method Create:Void()
    Local w:Int = 800
    Local h:Int = 600
    
    autoCls = False
    drawFPSOn = True
    
    'SetGraphics(w, h)
    SetHTMLSize(w, h)
    SetScreenSize(w, h, True)

		Start(GameScreen.GetInstance())
	End
End

Strict

Import diddy

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

Class MyGame Extends DiddyApp
	Method Create:Void()
		drawFPSOn = True
		SetGraphics(800, 600)
		SetScreenSize(800, 600)
		Start(Singleton<MyScreen>.Instance())
	End	
End

Class MyScreen Extends Screen
	Field x:Float = 0
	
	Method Start:Void()
	End
	
	Method Update:Void()
		x += 1 * dt.delta
	End
	
	Method Render:Void()
		DrawRect(x, SCREEN_HEIGHT2, 20, 20)
	End
End

../main.cpp: In static member function 'static String diddy::openfilename()':
../main.cpp:5102:18: warning: deprecated conversion from string constant to 'char*' [-Wwrite-strings]
   char *filter = "All Files (*.*)\0*.*\0";
                  ^
../main.cpp: In static member function 'static String diddy::savefilename()':
../main.cpp:5130:18: warning: deprecated conversion from string constant to 'char*' [-Wwrite-strings]
   char *filter = "All Files (*.*)\0*.*\0";
                  ^

PathFinder.SetMap(tilemap.??, tilemap.width,tilemap.width, 2, 0)

Strict
#MOJO_IMAGE_FILTERING_ENABLED=False

Import diddy

Global game:MyGame

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

Class MyGame Extends DiddyApp
	Method Create:Void()

Import diddy.math

Function Main()
	' NextInt() ' returns a random value within the entire 32-bit signed integer range (-2147483648 to +2147483647)
	' NextInt(n) ' returns a random integer value from 0 (inclusive) to n (exclusive)
	' NextInt(low,high) ' returns a random integer value from low (inclusive) to high (inclusive)
	' NextFloat() ' returns a random float value from 0 (inclusive) to 1 (exclusive) - this is essentially the same as Rnd()
	' NextBool() ' returns true or false with an approximately 50/50 spread
	
	' create a RandomSource - you could store the seed in your savegame
	Local one:RandomSource = New RandomSource(12345)
	Print "First"
	Print "a "+one.NextInt(1,10) ' a
	Print "b "+one.NextInt(5) ' b
	Print "c "+one.NextFloat() ' c
	
	' create another one with a different seed
	Local two:RandomSource = New RandomSource(67890)
	Print "d "+two.NextInt() ' d
	If two.NextBool() Print "e true" Else Print "e false" ' e
	Print "f "+two.NextInt(7) ' f
	
	' recreate them
	one = New RandomSource(12345)
	two = New RandomSource(67890)
	
	' as long as the calls are in the same order within each source, you can mix and match them with no conflicts
	' these will give you the same values as before, even though the calls for one and two are mixed together
	Print "Second"
	Print "a "+one.NextInt(1,10) ' a
	Print "d "+two.NextInt() ' d
	If two.NextBool() Print "e true" Else Print "e false" ' e
	Print "b "+one.NextInt(5) ' b
	Print "f "+two.NextInt(7) ' f
	Print "c "+one.NextFloat() ' c
End

#Rem
First
a 1
b 0
c 0.5431557893753052
d -1945622467
e true
f 4
Second
a 1
d -1945622467
e true
b 0
f 4
c 0.5431557893753052
#End

Class gameScreen Extends Screen 'gameScr
	Field starfield:Int[20]
End Class

Class anotherScreen Extends Screen
  Method blah()
     GameScr.starfield[1]=1
  End Method 
End

Class gameScreen Extends Screen 'gameScr
	Global starfield:Int[20]
End Class

Class anotherScreen Extends Screen
  Method blah()
     gameScreen.starfield[1]=1
  End Method 
End

MODPATH="${MONKEYDIR}/modules;${MONKEYDIR}/modules_ext;D:/Shane/Dropbox/Repositories/DiddyHg/src;D:/Shane/Dropbox/Repositories/junglegui;D:/Shane/Dropbox/Repositories/fontmachine"

	Method CalcRatio:Void()
		ratio = counter / fadeTime
		If ratio < 0 Then ratio = 0
		If ratio > 1 Then ratio = 1
		If fadeOut Then ratio = 1 - ratio
	End

' regular monkey Deque
Local d:Deque<Foo> = New Deque<Foo>
' creates a DiddyStack initialised with the contents of the Deque
Local s:DiddyStack<Foo> = New DiddyStack<Foo>(d)

Field layers:DiddyStack<TileMapLayer> = New DiddyStack<TileMapLayer>

Field layers := New DiddyStack<TileMapLayer>

Stack<TileMapLayer> layers = new Stack<>();

Import diddy.tile
Class MyLoader Extends TiledTileMapLoader
	' ...
End

Import diddy.tile
Import diddy.tile.diddyloader
Class MyLoader Extends DiddyTiledTileMapLoader
	' ...
End

Import diddy.tile
Import diddy.tile.skn3loader
Class MyLoader Extends Skn3TiledTileMapLoader
	' ...
End

{
	"menu": {
		"y": 210,
		"buttons": {
			"button": [
				{
					"name": "Resume",
					"image": "button1",
					"offsetY": 10,
					"redText": 255,
					"blueText": 255,
					"greenText": 255
				},
				{
					"name": "Quit",
					"image": "button1",
					"offsetY": 10,
					"redText": 255,
					"blueText": 255,
					"greenText": 255
				}
			]
		},
		"sliders": {
			"slider": [
				{
					"name": "Sound",
					"image": "slider",
					"borderX": 35,
					"borderY": 20,
					"x": 100,
					"y": 100
				}	
			]
		}
	}
}

Class MyGame Extends DiddyApp
	Method Create:Void()
		SetDeviceWindow(1366, 768, 4)
		SetScreenSize(1366, 768, True)
		diddyGame.loadingScreen.Init("graphics/loading/Loadingscreen.jpg", "graphics/loading/loadingbar.png", "graphics/loading/loadingbarempty.png", 10, -1, 700)
		diddyGame.loadingScreen.destination = TitleScreen.GetInstance()
		diddyGame.loadingScreen.loadingScreenDelegate = New MyLoadingScreenDelegate()
		Start(MySplashScreen.GetInstance())
	End
End

Class MyLoadingScreenDelegate Extends LoadingScreenDelegate
	Field i:Int = 0
	Field delay:Float = 0
	Field load:Bool
	Field fadeDelay:Float
		
	Method Load:Void()
		Local tmpImage:Image
		If Not load
			delay += 1 * dt.delta
			If delay > 1 Then
				i += 1
				delay = 0
				load = True
			End
		End

		If load
			Select i
				Case 1
					game.font = New BitmapFont("fonts/font.txt", True)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 2
					game.buttonFont = New BitmapFont("fonts/buttonFont.txt", True)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 3
					diddyGame.images.LoadAnim("game/cardAtlas1.png", 136, 195, 52, tmpImage)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 4
					diddyGame.images.Load("game/backcard1.png")
					diddyGame.images.Load("game/wild1.png")
					diddyGame.loadingScreen.Progress()
					load = False
				Case 5
					diddyGame.images.Load("game/progress_bar_empty.png", "", False)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 6
					diddyGame.images.Load("game/progress_bar_fullpng.png", "", False)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 7
					diddyGame.images.Load("game/PanelTop.png", "", False)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 8
					diddyGame.images.LoadAnim("game/stars.png", 38, 38, 2, tmpImage)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 9
					diddyGame.images.LoadAnim("game/menuboard.png", 200, 215, 2, tmpImage)
					diddyGame.loadingScreen.Progress()
					load = False
				Case 10
					diddyGame.loadingScreen.Progress()
					load = False
			End
		End
	End
	
	Method Draw:Void()
		If game.font <> Null Then
			game.font.DrawText("Loading...", SCREEN_WIDTH2, SCREEN_HEIGHT2, eDrawAlign.CENTER)
		End
	End
End

[samah conformsToProtocol:@protocol(FreeTime)]

Method LoadMap:TileMap(xmlString:String)
		' look for the data encoding, if we cant find it assume its RAW XML and thats just too slow!
		Local findData:Int = xmlString.Find("<data encoding")
		If findData = -1
			Error("Tiled Raw XML is not supported!")
		End

Method LoadMap:TileMap(xmlString:String, allowRaw:Bool)
		' look for the data encoding, if we cant find it assume its RAW XML and thats just too slow!
		If Not allowRaw
			Local findData:Int = xmlString.Find("<data encoding")
			If findData = -1
				Error("Tiled Raw XML is not supported!")
			End
		End

<?xml version="1.0" encoding="UTF-8"?>
<map version="1.0" orientation="orthogonal" renderorder="right-down" width="100" height="100" tilewidth="32" tileheight="32" nextobjectid="8">
 <tileset firstgid="1" name="test" tilewidth="871" tileheight="919" tilecount="5">
  <tile id="0">
   <image width="625" height="229" source="test.png"/>
  </tile>
 </tileset>
 <objectgroup name="Objektebene 1">
  <object id="1" gid="1" x="1839" y="1214" width="625" height="229"/>
 </objectgroup>
</map>

<layer name="Kachelebene 1" width="100" height="100">
  <data encoding="base64" compression="zlib">
   eJztwTEBAAAAwqD1T+1lC6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAbnEAAAQ==
  </data>
 </layer>

<?xml version="1.0" encoding="UTF-8"?>
<map version="1.0" orientation="orthogonal" renderorder="right-down" width="100" height="100" tilewidth="32" tileheight="32" nextobjectid="8">
 <tileset firstgid="1" name="test" tilewidth="871" tileheight="919" tilecount="5">
  <tile id="0">
   <image width="625" height="229" source="test.png"/>
  </tile>
 </tileset>
 <objectgroup name="Objektebene 1">
  <object id="1" gid="1" x="1839" y="1214" width="625" height="229"/>
 </objectgroup>
</map>

<?xml version="1.0" encoding="UTF-8"?>
<map version="1.0" orientation="orthogonal" renderorder="right-down" width="100" height="100" tilewidth="32" tileheight="32" nextobjectid="8">
 <tileset firstgid="1" name="test" tilewidth="871" tileheight="919" tilecount="5">
  <tile id="0">
   <image width="625" height="229" source="test.png"/>
  </tile>
 </tileset>
 <objectgroup name="Objektebene 1">
  <object id="1" gid="1" x="1839" y="1214" width="625" height="229"/>
 </objectgroup>
 <layer name="Kachelebene 1" width="100" height="100">
  <data encoding="base64" compression="zlib">
   eJztwTEBAAAAwqD1T+1lC6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAbnEAAAQ==
  </data>
 </layer>
</map>

<data encoding="base64" compression="zlib">

<?xml version="1.0" encoding="UTF-8"?>
<map version="1.0" orientation="orthogonal" renderorder="right-down" width="100" height="100" tilewidth="32" tileheight="32" nextobjectid="8">
 <tileset firstgid="1" name="test" tilewidth="871" tileheight="919" tilecount="5">
  <tile id="0">
   <image width="625" height="229" source="test.png"/>
  </tile>
 </tileset>
 <objectgroup name="Objektebene 1">
  <object id="1" gid="1" x="1839" y="1214" width="625" height="229"/>
 </objectgroup>
</map>

removed

#TILEMAP_USE_DIDDYGAME=True

Local tm:TileMap = reader.LoadMap(LoadString("levels/level1.tmx"))

tilemap.RenderMap(0, 0, SCREEN_WIDTH, SCREEN_HEIGHT, 1, 1, diddyGame.scrollX, diddyGame.scrollY)

public Object getUserData() {
	return userData;
}

Method UserData:Object() Property
	Return userData
End

Field ZoomOffeset:int[] =[98, 92, 86, 80, 75, 69, 64, 58, 53, 48, 43, 38, 33, 29, 24, 20, 15, 11, 7, 3, -1]

[xx, -6,  -6, -6, -5, -6, -5, -6, -5, -5, -5, -5, -5, -4, -5, -4, -5, -4,-4,-4, -4 ]
[98, 92, 86, 80, 75, 69, 64, 58, 53, 48, 43, 38, 33, 29, 24, 20, 15, 11, 7, 3, -1]