Started to port (ish) Defenstar to monkey ;)

Community Forums/Showcase/Started to port (ish) Defenstar to monkey ;)

Playniax

(Posted 2013) [#1]

I have no idea if I ever finish it or when it will be finished but I have started to port our game Defenstar to monkey!

I think it is really cool to see the background of Defenstar scrolling on HTML5 and it was easy too because IgnitionMax and Ignition for monkey have the same playfield, layer and sprite system :)

http://www.playniax.com/share/demos/defenstar/MonkeyGame.html

And if you don't know Defenstar, shame on you ;)

http://playniax.com/defenstar.html

Why0Why

(Posted 2013) [#2]

I was under the impression that you had done that.

I know it would probably never happen, but I would love to see the code and how you use Ignition. I was the one that bugged the hell out of you to sell me both before you released for Monkey :) Big fan! I will be interested to see how they compare.

Playniax

(Posted 2013) [#3]

Thanks!

I can show you the code of this demo :)



	Import playniax.ignition.framework.engine

	Import brl

	Global gameState:Game

	Function Main ()
	
		New MyApp

	End Function

	Class MyApp Extends App

		Method OnCreate ()
	
			gameState = New Game

			iStart (60)
	
		End Method

		Method OnRender ()
			iRender ()
		End Method

		Method OnUpdate ()
			iUpdate ()
		End Method

	End Class

	Class Game Extends iEngine

		Field playfield:iPlayfield
		Field layer:iLayer [14]

		Method DebugRender ()
			DrawText "Use arrow keys left and right to scroll", 0, 0
		End Method

		Method InitLayers ()

			For Local i:Int = 0 Until layer.Length ()

				Local c:iConfig = New iConfig ("config/" + i + ".txt")

				layer [i] = New iLayer
				layer [i].AddLast (playfield)
				layer [i].name = c.GetString ("name")
				layer [i].cameraSpeedX = c.GetFloat ("mulu")
				layer [i].cameraSpeedY = c.GetFloat ("mulu")
				
			Next
			
		End Method
	
		Method LoadBackground (_level:Int)

			For Local l:Int = 0 Until layer.Length ()

				For Local p:String = Eachin LoadString ("scenes/" + _level + "/" + l + ".txt").Split ("~n")
				If p

					Local d:String [] = p.Split (",")
	
					Local s:iLayerSprite = New iLayerSprite

					s.name = d [1]
					s.blend = Int ( d [2] )
					s.alpha = Float ( d [3] )
					s.red = Float ( d [4] )
					s.green = Float ( d [5] )
					s.blue = Float ( d [6] )
					s.rotation = Float ( d [7] )
					s.scaleX = Float ( d [8] )
					s.scaleY = Float ( d [9] )
	
					s.x = Float ( d [10] )
					s.y = Float ( d [11] )
	
					Local f:Image = iContent.GetImage ("scene/" + s.name)
					If f
						s.SetImage ( f )
						s.AddLast ( layer [l] )
					End If

				End If

				Next

			Next

			layer [13].Disable ()

		End Method

		Method OnCreate ()

			playfield = New iPlayfield
			playfield.AddLast (Self)

			playfield.SetVirtual (1024, 768, True)

			playfield.AutoCls (0, 48, 0)

			InitLayers ()
			LoadBackground (0)

			playfield.cameraX = 1500
			playfield.cameraY = 0

		End Method
	
		Method OnUpdate ()

			If KeyDown (KEY_LEFT)
				playfield.cameraX = playfield.cameraX - 4
				If playfield.cameraX < 0 playfield.cameraX = 0
			End If
		
			If KeyDown (KEY_RIGHT)
				playfield.cameraX = playfield.cameraX + 4
				If playfield.cameraX > 3000 playfield.cameraX = 3000
			End If
			
		End Method

	End Class

Why0Why

(Posted 2013) [#4]

Thanks. I love the depth.