Miralon Farm Game completed

This topic contains 6 replies, has 3 voices, and was last updated by cocon 1 year, 9 months ago.

Viewing 7 posts - 1 through 7 (of 7 total)

Author

Posts

June 23, 2017 at 1:43 pm #8881

AdamStrange

Participant

https://adamstrange.itch.io/miralonfarm

ok. This little number was created in 10 days for the Mirror Jam. And I’m all plum-tuckered out now.

The audio didn’t go to plan and I needed to revert back to very simple wav playback ;(

AI was nasty – and I know I’m not good at it either. so I need to improve a lot there.

Been a good learning process with my 3d stuff though. Needed to learn how to deal with things very quickly. Now I have time I can slow down and get the 3d stuff optimised and better thought out.

Hex based games look nice, but are a complete pig to program…

June 23, 2017 at 1:51 pm #8882

Xaron

Participant

Adam, you’re a machine! Incredible how fast you create those nice looking games!

June 23, 2017 at 9:24 pm #8885

cocon

Participant

Is there any secret to produce games fast? Refactoring and fixing bad code design sucks too much time.

June 24, 2017 at 5:57 am #8886

AdamStrange

Participant

the simple answer is TOOLS! Let me expand on that using Maralon farm

This is the first dev image:

It’s a custom openGL system for monkey2 based on shaders. and based on Cocons base code. I took the framework nd rewrote it to support stuff I needed and then added a 3do model importer (3do is the model format I created for a 3d modeller I wrote called Rameses).

To use the monkey2 version you will need these 3 files:

Ramese3d.monkey2

matrix.monkey2

textural.monkey2

and finally the demo file:

#import "rameses3d"


#import "assets/grid.3do"
 
'the size of our window
Const Size := New Vec2i( 950,720 )

'And some nice stuff
const PI:float = 3.14159265359 
const PIHALF:float = PI * 0.5

const SHOW_TEX:float = 1
const HIDE_TEX:float = 0

const USE_LIGHT:float = 1
const NO_LIGHT:float = 0



Class MyWindow Extends GLWindow

	'this is the 3d system
	field my3d:Rameses3d

	'we need at lest one shader
	field myShader:GLShader

	'and this is the 3d object
	field r3d_Grid:int

	'we dont need this,  but it is the texture that can be fed into rameses3d
	field tex:TextureGL
	
	Method New()
		'create a window
		Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )

		'this is a timer. it will 'tick' 60 times a second. calling OnUpdate
		_timer = New Timer( 60, OnUpdate )

		'if you want a constant canvas size use this
'		Layout = "letterbox"
		'or If you want the canvas to always fill the window use this
		Layout = "fill"

		'get the shaders. we are not using any user defined ones,  but we wil need to get a basic one
		InitShaders()

		'next initalize Rameses
		my3d = New Rameses3d( Width, Height )
		'and set a light. Think of you the observer as position 0, 0, 0.
		' with x being left/right
		' y being up/down
		' and z being in/out z starts at 0,  and goes minus away from you, plus towards you
		' so... 0, 1, -1 is centered,  above and into the screen
		my3d.SetLight( 0, 1, -2 )

		'load the texture - we are not using
'		tex = TextureGL.Load( "asset::ship32x32_font.png", TextureFlagsGL.Dynamic )

		'now we load the 3d shape from the assets
		r3d_Grid = my3d.Load( "asset::grid.3do", myShader )

		'and finally some opengl
		'set the clear color of the screen to black
		glClearColor(0, 0, 0, 1.0)

		'cull the face drawing and add depth
		glEnable(GL_CULL_FACE)
		glEnable(GL_DEPTH_TEST)
	End

	method InitShaders()
		'first get the basic internal shader from Rameses3d
		myShader = New GLShader()
	End method
	
	
	Method OnUpdate()
		'this 'ticks' at 60 fps
		
		'use it For your master updating system
		_gameTime = Millisecs()
		
		'lets update the rotation
		_objectRotate += 0.005

		'finally call everything to render
		'the render is done:OnRenderGL first then standard monkey2 OnRender
		RequestRender()
	End Method
	
	
	Method OnRender(canvas:Canvas) Override
		App.RequestRender()
		'this will call the opengl render
		Super.OnRender(canvas)
		

		canvas.DrawText( "FPS="+App.FPS,Width,0,1,0 )

		canvas.DrawText("Monkey2 OpenGL", 10, 10)
		canvas.Color = Color.Blue
		canvas.DrawRect( 210, 10, 10, 200 )

	End


	
	Method OnRenderGL() Override
		'clear the screen buffers
		glClearStencil( 0 )
		glClear( GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT|GL_STENCIL_BUFFER_BIT )

		'Drawing area. You're always drawing to the entire window in GL regardless of Layout.
		glViewport( 0, 0 ,Frame.Width, Frame.Height )

		'initalize the texture - we are not using
'		local texint:GLuint = tex.GLTexture
'		tex.Bind( 0, TextureFilterGL.None )

		Local scale:float = 1.618
		'here's the format for the following drawing commands:
		'method DrawModel( model:int,  x:float, y:float, z:float, lightMix:float, textureMix:float, baseColor:Color, scale:float = 1, yrot:float = 0, xrot:float = 0, zrot:float = 0 )
		
		my3d.DrawLines( r3d_Grid, 0, -1.5, -3.7, NO_LIGHT, HIDE_TEX,  Color.Cyan, scale, 0 )

		my3d.DrawModel( r3d_Grid, 0, -1, -3.7, NO_LIGHT, HIDE_TEX,  Color.Orange, scale*0.5, _objectRotate, _objectRotate )

		my3d.DrawLines( r3d_Grid, 0, -.5, -3.7, NO_LIGHT, HIDE_TEX,  Color.Red, scale*0.25, 0, -_objectRotate )
	End

private	
	'the timer ticks 60 times a second and handles the screen update
	Field _timer:Timer

	'global game time derrived from a single call to Millisecs()
	field _gameTime:int
	
	field _objectRotate:float = 0
End


 
Function Main()
	Local cfg := New StringMap<String>
	
	cfg["GL_depth_buffer_enabled"] = 1
	cfg["GL_stencil_buffer_enabled"] = 1
	
	New AppInstance( cfg )

	New MyWindow
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

#import "rameses3d"

#import "assets/grid.3do"

'the size of our window

Const Size := New Vec2i( 950,720 )

'And some nice stuff

const PI:float = 3.14159265359

const PIHALF:float = PI * 0.5

const SHOW_TEX:float = 1

const HIDE_TEX:float = 0

const USE_LIGHT:float = 1

const NO_LIGHT:float = 0

Class MyWindow Extends GLWindow

'this is the 3d system

field my3d:Rameses3d

'we need at lest one shader

field myShader:GLShader

'and this is the 3d object

field r3d_Grid:int

'we dont need this, but it is the texture that can be fed into rameses3d

field tex:TextureGL

Method New()

'create a window

Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )

'this is a timer. it will 'tick' 60 times a second. calling OnUpdate

_timer = New Timer( 60, OnUpdate )

'if you want a constant canvas size use this

' Layout = "letterbox"

'or If you want the canvas to always fill the window use this

Layout = "fill"

'get the shaders. we are not using any user defined ones, but we wil need to get a basic one

InitShaders()

'next initalize Rameses

my3d = New Rameses3d( Width, Height )

'and set a light. Think of you the observer as position 0, 0, 0.

' with x being left/right

' y being up/down

' and z being in/out z starts at 0, and goes minus away from you, plus towards you

' so... 0, 1, -1 is centered, above and into the screen

my3d.SetLight( 0, 1, -2 )

'load the texture - we are not using

' tex = TextureGL.Load( "asset::ship32x32_font.png", TextureFlagsGL.Dynamic )

'now we load the 3d shape from the assets

r3d_Grid = my3d.Load( "asset::grid.3do", myShader )

'and finally some opengl

'set the clear color of the screen to black

glClearColor(0, 0, 0, 1.0)

'cull the face drawing and add depth

glEnable(GL_CULL_FACE)

glEnable(GL_DEPTH_TEST)

End

method InitShaders()

'first get the basic internal shader from Rameses3d

myShader = New GLShader()

End method

Method OnUpdate()

'this 'ticks' at 60 fps

'use it For your master updating system

_gameTime = Millisecs()

'lets update the rotation

_objectRotate += 0.005

'finally call everything to render

'the render is done:OnRenderGL first then standard monkey2 OnRender

RequestRender()

End Method

Method OnRender(canvas:Canvas) Override

App.RequestRender()

'this will call the opengl render

Super.OnRender(canvas)

canvas.DrawText( "FPS="+App.FPS,Width,0,1,0 )

canvas.DrawText("Monkey2 OpenGL", 10, 10)

canvas.Color = Color.Blue

canvas.DrawRect( 210, 10, 10, 200 )

End

Method OnRenderGL() Override

'clear the screen buffers

glClearStencil( 0 )

glClear( GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT|GL_STENCIL_BUFFER_BIT )

'Drawing area. You're always drawing to the entire window in GL regardless of Layout.

glViewport( 0, 0 ,Frame.Width, Frame.Height )

'initalize the texture - we are not using

' local texint:GLuint = tex.GLTexture

' tex.Bind( 0, TextureFilterGL.None )

Local scale:float = 1.618

'here's the format for the following drawing commands:

'method DrawModel( model:int, x:float, y:float, z:float, lightMix:float, textureMix:float, baseColor:Color, scale:float = 1, yrot:float = 0, xrot:float = 0, zrot:float = 0 )

my3d.DrawLines( r3d_Grid, 0, -1.5, -3.7, NO_LIGHT, HIDE_TEX, Color.Cyan, scale, 0 )

my3d.DrawModel( r3d_Grid, 0, -1, -3.7, NO_LIGHT, HIDE_TEX, Color.Orange, scale*0.5, _objectRotate, _objectRotate )

my3d.DrawLines( r3d_Grid, 0, -.5, -3.7, NO_LIGHT, HIDE_TEX, Color.Red, scale*0.25, 0, -_objectRotate )

End

private

'the timer ticks 60 times a second and handles the screen update

Field _timer:Timer

'global game time derrived from a single call to Millisecs()

field _gameTime:int

field _objectRotate:float = 0

End

Function Main()

Local cfg := New StringMap<String>

cfg["GL_depth_buffer_enabled"] = 1

cfg["GL_stencil_buffer_enabled"] = 1

New AppInstance( cfg )

New MyWindow

App.Run()

End

I’ve included all the files in a zip for you. but I thought the main file was better to be seen. the assets folder has lots of .3do files to play with

Attachments:

demo.zip

June 28, 2017 at 3:01 am #8980

cocon

Participant

This means that you can create any tool needed to generate content in the most fast and productive way right?

June 28, 2017 at 5:48 am #8982

AdamStrange

Participant

yep. the tools I used are these:

fontsprite to create 2d graphics (you can see version 2 of the font being used, with darker graphics for the cards):

and then fontmap to create the cards (showing version 1 of the font). You can see how the grey font is being used to create both the green and blue edges for the cards. it also shows that most of the layers are off.

and the maps (with the final version of the font). you can also see that the map display is offset allowing me to quickly work on hex based maps)

I also used a bit of photoshop to do the other graphics.

All the tools are monkey2. But NOT MojoX. I wrote a custom GUI system that allows much better and simpler UI design.

coming on to the GUI of Miralon, I rewrote the above custom gui for game use. it’s a very small system that allows for fast prototyping:

You can see it here with the grid showing and 6 controls. they can use standard text, bitmaps, or graphics. and can be simply subclassed to write other handlers for any purpose. In this case I added the ability to use 3 images for a button: Off, over and top (the top text)

Here’s a snippet of code direct from miralon showing how I create a button:

_button2 = New UXImageButton3( "Begin", _imageButton2, _imageButton1, _imageButton3 )
_button2.SetGridLayout( 18, 16, 5, 2 )
_button2.ImageColor = Color.Orange
_button2.TextBold = True
_button2.TextColor = Color.Black
_button2.MouseEnter = Lambda()
	MouseEnter()
End
_button2.Clicked = Lambda()
	MouseClicked()
	OKClicked()
End
AddControl( _button2 )

_button2 = New UXImageButton3( "Begin", _imageButton2, _imageButton1, _imageButton3 )

_button2.SetGridLayout( 18, 16, 5, 2 )

_button2.ImageColor = Color.Orange

_button2.TextBold = True

_button2.TextColor = Color.Black

_button2.MouseEnter = Lambda()

MouseEnter()

End

_button2.Clicked = Lambda()

MouseClicked()

OKClicked()

End

AddControl( _button2 )

You can see there is still code to do with Text that I should remove as its not being used, but it show how the code was quickly taken from another project and reused

The MouseEnter and MouseClicked signal back to the main program that it needs a sound. so when you hover a sound plays and when you click another sound plays

June 29, 2017 at 1:01 pm #9042

cocon

Participant

Amazing stuff!

Author

Posts

Viewing 7 posts - 1 through 7 (of 7 total)

You must be logged in to reply to this topic.

Miralon Farm Game completed

Attachments:

Archives

Recent Replies

What is this?