Diddy - An Open Source Framework - Part 7

Import diddy

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

Class MyGame Extends DiddyApp

For obj = EachIn Self.updateList   'This line causes an error
	obj.Update()
Next

Monkey Runtime Error : TypeError: Error #1009

static int seekMusic(int timeMillis)
{
	if(bb_audio_device->musicPlayer)
	{
		bb_audio_device->musicPlayer.currentTime = timeMillis/1000.0;
	}
	// TODO: check it worked
	return 1;
}

	Method Render:Void(scrollX:Float, scrollY:Float)
		Local rgb:Float[] = GetColor()
		Local alpha:Float = GetAlpha()
		For Local i:Int = 0 Until groups.Size
			groups.Get(i).Render(scrollX, scrollY)
		Next
		SetAlpha(alpha)
		SetColor(rgb[0], rgb[1], rgb[2])
	End

	Method Render:Void(scrollX:Float, scrollY:Float)
		For Local i:Int = 0 Until aliveParticles
			Local index:Int = alivePointers[i]
			SetColor(red[index], green[index], blue[index])
			SetAlpha(alpha[index])
			
			' scale should never be <=0, so we'll fix it here
			If scale[index] <= 0 Then scale[index] = 1
			
			If particleImage[index] <> Null Then
				If scale[index] <> 1 Or rotation[index] <> 0 Then
					DrawImage(particleImage[index], x[index] - scrollX, y[index] - scrollY,
					rotation[index] * R2D, scale[index], scale[index])
				Else
					DrawImage(particleImage[index], x[index] - scrollX, y[index] - scrollY)
				End
			Else
				If scale[index] <> 1 Or rotation[index] <> 0 Then
					PushMatrix
					Translate(x[index] - 1 - scrollX, y[index] - 1 - scrollY)
					If scale[index] <> 1 Then Scale(scale[index], scale[index])
					If rotation[index] <> 0 Then Rotate(rotation[index] * R2D)
					DrawRect(0, 0, 3, 3)
					PopMatrix
				Else
					DrawRect(x[index] - 1 - scrollX, y[index] - 1 - scrollY, 3, 3)
				End
			End
		Next
	End

	Method Create:Void()
		LoadImages()
		titleScreen = New TitleScreen
		gameScreen = new GameScreen
		Start(gameScreen)
	End

Class TitleScreen Extends Screen
	Method New()
		name = "Title"
		backScreenName = "exit"
		diddyGame.screens.Set(name, Self)
	End

' inits the loadingscreen graphics and steps
' params:
' 1: image which will be displayed in the center of the screen
' 2: full loading bar image
' 3: empty loading bar image
' 4: number of resources (steps)
' 5: X position of the loading bar (optional, if not supplied or -1 it will be centered)
' 6: Y position of the loading bar (optional, if not supplied or -1 it will be centered)

diddyGame.loadingScreen.Init("graphics/loadingScreen.png", "graphics/loadingbar.png", "graphics/loadingbarempty.png", 4, -1, 400)
diddyGame.loadingScreen.destination = gameScreen		
Start(diddyGame.loadingScreen)

...AddButton(diddyGame.images.Find("button.png"), diddyGame.images.Find("buttonMO.png"), "button1")

gameScreen.tilemap.SetTile(xx, yy, 4, "Foreground Layer")	

If gameScreen.tilemap.CollisionTile(xx, yy, "Foreground Layer") = 24 Then

' find the layer
Local layer:TileMapTileLayer = FindLayerByName(layerName)
' get the TileMapCell
Local tmc:TileMapCell = layer.mapData.GetCell(xx, yy)
' set the image frame
tmc.gid = 4

Method ChangeTile(layerName:String, x:Int, y:Int, gid:Int)
  Local layer:TileMapTileLayer = tilemap.FindLayerByName(layerName)
  ' get the TileMapCell
  Local xx:Int = (Floor(x / gameScreen.tilemap.tileWidth))
  Local yy:Int = (Floor(y / gameScreen.tilemap.tileHeight))
  Local tmc:TileMapCell = layer.mapData.GetCell(Floor(xx), Floor(yy))
  ' set the image frame
  tmc.gid = gid
  gameScreen.tilemap.SetTile(x, y, 4, layerName)
End Method

tilemap.ChangeTile(diddyGame.mouseX + offsetX, diddyGame.mouseY + offsetY, 4, "Tile Layer 1")

Loading configuration file C:\monkey_sdks\flex_sdk_4.6\frameworks\flex-config.xml
D:\Source\Monkey\StickRun\stickrun.build\flash\MonkeyGame.as(1938): col: 60
Error: Implicit coercion of a value of type Boolean to an unrelated type int.

chan.channel = chan.sample.sound.play(timeMillis, chan.loops, chan.transform);

static public function seekMusic(timeMillis:int):int {
if(bb_audio_device) {
	var chan:gxtkChannel = bb_audio_device.channels[32];
	if(chan.channel) {
		chan.channel.stop();
		chan.channel = chan.sample.sound.play(timeMillis, chan.loops, chan.transform);
		}
	}
	// TODO: check it worked
	return 1;
}

Local b:SimpleButton = menu.FindButton("options")
Local gi:GameImage = New GameImage
gi.Load(diddyGame.images.path + "newButton.png", False)
b.SetImage(gi)

b.SetImage(gi) ' Main button image
b.imageMouseOver = gi ' Mouse over image

Function MusicState : Int ()
Returns 1 if music is currently playing, 0 if music is currently not playing or -1 if music state cannot be determined.

Strict

Import mojo
Import diddy.collections

' ################################

' Main Function
Function Main:Int()
	New myApp
	Return True
End

' ################################

' myApp Class
Class myApp Extends App
	
	Field zlist:ArrayList<DrawZ>
	
	' --------------------------------
	
	Method OnCreate:Int()

		' create ArrayList
		Self.zlist = New ArrayList<DrawZ>
		
		' random seed
		Local date:= GetDate()
		Seed = date[5] * 1000 + date[6]
		
		' create rects and add to list
		For Local a:Int = 0 To 9
			Local rect:Rect = New Rect(Rnd(0, 900), Rnd(0, 600),Rnd(50,100))
			Self.zlist.AddLast(rect)
		Next
		DebugLog "ListCount after Rects: " + zlist.Size()
		
		' create ovals and add to list
		For Local a:Int = 0 To 9
			Local oval:Oval = New Oval(Rnd(0, 900), Rnd(0, 600), Rnd(50, 100))
			Self.zlist.AddLast(oval)
		Next
		DebugLog "ListCount after Ovals: " + Self.zlist.Size()
		
		' create mouseObj and add to list
		Local mo:MouseObj = New MouseObj
		Self.zlist.AddLast(mo)
		DebugLog "ListCount after MouseObj: " + Self.zlist.Size()
		
		SetUpdateRate(60)
		Return True
	End
	
	' --------------------------------
	
	Method OnUpdate:Int()
	
		' Update all objects
		For Local obj:= EachIn Self.zlist
			obj.Update()
		Next
		
		' 
		'##############
		
                ' Sorting here makes them flicker.
                ' I'm also not sure what is being sorted?
            
                Self.zlist.Sort()	
		
		'#############
		
		Return True
	End Method
	
	' --------------------------------
	
	Method OnRender:Int()
		Cls

		' draw objects from list
		For Local o:DrawZ = EachIn Self.zlist
			o.Draw()
		Next
		
		Return True
	End Method
	
End

' ################################

' Interface
Interface DrawZ
	Method GetName:String()
	Method Update:Void()
	Method Draw:Void()
End

' ################################

' MouseObj Class
Class MouseObj Implements DrawZ
	
	Field name:String
	Field x:Int
	Field y:Int

	' --------------------------------
	
	Method New()
		Self.name = "MouseObj"
		Self.x = MouseX()
		Self.y = MouseY()
	End
	
	' --------------------------------
	
	Method Update:Void()
		Self.x = MouseX()
		Self.y = MouseY()
	End
	
	' --------------------------------
	
	Method Draw:Void()
		SetColor 255, 255, 255
		DrawRect Self.x, Self.y, 50, 50
	End
	
	' --------------------------------
	
	Method GetName:String()
		Return Self.name
	End
	
	' --------------------------------
	
End

' ################################

' Rect Class
Class Rect Implements DrawZ
	
	Field name:String
	Field x:Int
	Field y:Int
	Field size:Int

	' --------------------------------
	
	Method New(x:Int, y:Int, size:Int)
		
		Self.name = "Rect"
		Self.x = x
		Self.y = y
		Self.size = size
		
	End Method
	
	' --------------------------------
	
	Method Update:Void()
		
	End Method
	
	' --------------------------------
	
	Method Draw:Void()
		SetColor 200, 0, 0
		DrawRect Self.x, Self.y, Self.size, Self.size
	End
	
	' --------------------------------
	
	Method GetName:String()
		Return Self.name
	End
	
End

' ################################

' Oval Class
Class Oval Implements DrawZ
	
	Field name:String
	Field x:Int
	Field y:Int
	Field radius:Int

	' --------------------------------
		
	Method New(x:Int, y:Int, radius:Int)
		
		Self.name = "Oval"
		Self.x = x
		Self.y = y
		Self.radius = radius
	End
	
	' --------------------------------
	
	Method Update:Void()
	
	End
	
	' --------------------------------
	
	Method Draw:Void()
		SetColor 0, 200, 0
		DrawOval Self.x, Self.y, Self.radius, Self.radius
	End
	
	' --------------------------------
	
	Method GetName:String()
		Return Self.name
	End
	
End

	Method Load:Void()
		Local filein:FileStream
		Local filehandler:FileSystem
		filehandler = FileSystem.Create()
		
		If filehandler.FileExists("options.dat")
			filein = filehandler.ReadFile("options.dat")
			if filein
				Self.musicVolume = filein.ReadInt()
				Self.soundVolume = filein.ReadInt()
				Self.graphicsDetail = filein.ReadInt()
				Self.graphicsGlow = filein.ReadInt()
			End If
			
		Else
			Self.Save()
		EndIf		
	End Method
	

	
	Method Save:Void()
		Local fileout:FileStream
		Local filehandler:FileSystem
		filehandler = FileSystem.Create()
		
		fileout = filehandler.WriteFile("options.dat")
		'Self.PrintVolumes()
		fileout.WriteInt(Self.musicVolume)
		fileout.WriteInt(Self.soundVolume)
		fileout.WriteInt(Self.graphicsDetail)
		fileout.WriteInt(Self.graphicsGlow)
		'Self.PrintVolumes()
		filehandler.SaveAll()
	End Method

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

../main.cpp:3998:21: fatal error: windows.h: No such file or directory
 #include <windows.h>
                     ^
compilation terminated.
make: *** [../main.o] Error 1
TRANS FAILED: Error executing 'make CCOPTS="-Wno-free-nonheap-object -O3 -DNDEBUG" OUT="Release/MonkeyGame"', return code=512

<diddy screenWidth="800" screenHeight="600" useAspectRatio="true">
	<global>
		<resources>
			<images>
				<image path="sprites/Ship1.png" name="Ship" width="64" height="64" frames="7" />
			</images>
			<sounds>
				<sound path="Firelaser" name="fire" soundDelay="100" ignoreCache="false" />
			</sounds>
		</resources>
	</global>
	<screens>
		<screen class="TitleScreen" name="Title">
			<resources>
				<images>
					<image path="sprites/sword.png" />
				</images>
				<music path="NewsTheme.ogg" />
			</resources>
		</screen>
	<screens>

#REFLECTION_FILTER+="${MODPATH}"

Class TestPredicate Implements IPredicate<String>
	Method Evaluate:Bool(val:String)
		Return val.Contains("e")
	End
End

Function Main()
	Local ds:DiddyStringStack = New DiddyStringStack
	ds.AddItem("the")
	ds.AddItem("cake")
	ds.AddItem("is")
	ds.AddItem("a")
	ds.AddItem("lie")
	
	Print "all items containing an e..."
	For Local s:String = EachIn ds.Items(New TestPredicate)
		Print s
	Next
End

the
cake
lie

g++  -Wno-free-nonheap-object -O3 -DNDEBUG -I../glfw/include -I../glfw/lib -I../glfw/lib/win32 -I../openal/include -I../stb  -c -o ../main.o ../main.cpp
../main.cpp:4015:24: fatal error: tinythread.h: No such file or directory
 #include "tinythread.h"
                        ^
compilation terminated.
mingw32-make: *** [../main.o] Error 1
<builtin>: recipe for target '../main.o' failed
TRANS FAILED: Error executing 'mingw32-make CCOPTS="-Wno-free-nonheap-object -O3 -DNDEBUG" OUT="Release/MonkeyGame"', return code=2
Abnormal program termination. Exit code: -1