Minesweeper

NoOdle

(Posted 2012) [#1]

Wrote a really quick simple version of Minesweeper. Also features a code data font used to draw all text. Tested on HTLM5 and IOS, should work fine on most targets.


Import mojo



Class Digit

	Field data : Int[]
	
	Field w : Int
	Field h : Int
	
	Method New( w : Int, h : Int, d : Int[])
		Self.w = w
		Self.h = h
		Self.data = d
	End Method
	
	Method Render( px : Float, py : Float, s : Float )
		Local index : Int = 0
		For Local y : Int = 0 Until Self.h
			For Local x : Int = 0 Until Self.w
				If Self.data[ index ] = 1
					DrawRect px + ( x * s ), py + ( y * s ), s, s
				Endif
				index = index + 1
			Next
		Next
	End Method

End Class




Class Font

	Global CharacterMap : StringMap< Digit > = New StringMap< Digit >

	Function CreateCharacterMap()
		CharacterMap.Set( "0", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "1", New Digit( 2, 5, [ 1, 1, 0, 1, 0, 1, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "2", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "3", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "4", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1 ] ))
		CharacterMap.Set( "5", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "6", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "7", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0 ] ))
		CharacterMap.Set( "8", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "9", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "A", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "B", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "C", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "D", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0 ] ))
		CharacterMap.Set( "E", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "F", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "G", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "H", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "I", New Digit( 3, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "J", New Digit( 4, 5, [ 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "K", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "L", New Digit( 4, 5, [ 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "M", New Digit( 5, 5, [ 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "N", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "O", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "P", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "Q", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "R", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "S", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "T", New Digit( 3, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0 ] ))
		CharacterMap.Set( "U", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "V", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0 ] ))
		CharacterMap.Set( "W", New Digit( 5, 5, [ 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "X", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "Y", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "Z", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( " ", New Digit( 3, 5, [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "!", New Digit( 1, 5, [ 1, 1, 1, 0, 1 ] ))
		CharacterMap.Set( ".", New Digit( 1, 5, [ 0, 0, 0, 0, 1 ] ))
		CharacterMap.Set( "'", New Digit( 1, 5, [ 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( ":", New Digit( 1, 5, [ 0, 1, 0, 1, 0 ] ))
		CharacterMap.Set( ";", New Digit( 1, 5, [ 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "|", New Digit( 1, 5, [ 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( ")", New Digit( 2, 5, [ 1, 0, 0, 1, 0, 1, 0, 1, 1, 0 ] ))
		CharacterMap.Set( "(", New Digit( 2, 5, [ 0, 1, 1, 0, 1, 0, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "/", New Digit( 2, 5, [ 0, 1, 0, 1, 0, 1, 1, 0, 1, 0 ] ))
		CharacterMap.Set( "\", New Digit( 2, 5, [ 1, 0, 1, 0, 1, 0, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "+", New Digit( 3, 5, [ 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "-", New Digit( 3, 5, [ 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "=", New Digit( 3, 5, [ 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "*", New Digit( 3, 5, [ 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "[", New Digit( 2, 5, [ 1, 1, 1, 0, 1, 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "]", New Digit( 2, 5, [ 1, 1, 0, 1, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "?", New Digit( 3, 5, [ 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0 ] ))
		CharacterMap.Set( ",", New Digit( 2, 5, [ 0, 0, 0, 0, 0, 0, 0, 1, 1, 0 ] ))
		CharacterMap.Set( String.FromChar( 34 ), New Digit( 3, 5, [ 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 ] ))
	End Function



	Function Draw : Void( val : String, px : Float, py : Float, pScale : Float, pXSpace : Int = 8, xCentre : Float = 0.0, yCentre : Float = 0.0 )
		
		Local xSpace : Int = 0
		
		Local cx : Int = 0
		Local cy : Int = 0
		
		If xCentre <> 0.0 Or yCentre <> 0.0
			Local yMax : Int = 0
			For Local ii : Int = 0 Until val.Length
				Local dig : Digit = CharacterMap.Get( val[ ii..ii + 1 ].ToUpper() )
				xSpace = xSpace + ( dig.w * pScale )
				If yMax < ( dig.h * pScale ) Then yMax = dig.h * pScale
				If ii < val.Length - 1 Then xSpace = xSpace + pXSpace
			Next
			cx = xSpace * xCentre
			cy = yMax * yCentre
		Endif
		xSpace = 0
		
		For Local i : Int = 0 Until val.Length
			Local dig : Digit = CharacterMap.Get( val[ i..i + 1 ].ToUpper() )
			dig.Render( px - cx + xSpace, py - cy, pScale )
			xSpace = xSpace + ( dig.w * pScale ) + pXSpace
		Next
	End Function

End Class






Class Timer

	Field active : Bool = False
	Field start_time : Int = 0
	Field current_time : Int = 0
	
	Method Reset()
		Self.start_time = 0
		Self.current_time = 0
		Self.active = False
	End Method
	
	Method IsActive : Bool()
		Return Self.active
	End Method
	
	Method Start()
		Self.start_time = Millisecs()
		Self.active = True
	End Method

	Method Stop()
		Self.active = False
	End Method
	
	Method Update()
		If Self.active
			Self.current_time = ( Millisecs() - Self.start_time ) / 1000
		Endif
	End Method

	Method GetTime : Int()
		Return Self.current_time
	End Method

End Class




Class GridTile

	Global ID_BOMB : Int = -1

	Field hidden : Bool = True
	Field id : Int
  
End Class






Class MineGrid

	Global ID_WIN : Int = 1
	Global ID_LOSE : Int = -1
	Global ID_ACTIVE : Int = 0

	Field grid : GridTile[][]
	
	Field time : Timer
	
	Field active : Int
	
	Field bombs : Int = 6
	
	Field x : Int = 50
	Field y : Int = 50
	
	Field w : Int = 8
	Field h : Int = 8

	Field gw : Int
	Field gh : Int 
	
	Field size : Int = 32

	'/ new grid
	Method New()
		
		Self.grid = New GridTile[ Self.w ][]
		
		For Local i : Int = 0 Until Self.h
			
			Local g : GridTile[ Self.h ]
			For Local ii : Int = 0 Until Self.h
				g[ ii ] = New GridTile
			Next
			
			Self.grid[ i ] = g
		Next
		
		Self.gw = Self.w * Self.size
		Self.gh = Self.h * Self.size
		
		GenerateBombs()
		GenerateNumbers()
		
		Self.active = ID_ACTIVE
		
		Self.time = New Timer()
		
	End Method
	
	
	'/ centres grid at position
	Method CentreGrid( px : Int, py : Int )
		Self.x = px - ( Self.gw / 2 )
		Self.y = py - ( Self.gh / 2 )
	End Method
	
	
	'/ resets grid array
	Method ClearGrid()
		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				Self.grid[ cx ][ cy ].hidden = True
				Self.grid[ cx ][ cy ].id = 0
			Next
		Next		
	End Method
	
	'/ places bombs amongst the array
	Method GenerateBombs()
		Local gx : Int
		Local gy : Int
		For Local i : Int = 0 Until Self.bombs
			Repeat
				gx = Int( Rnd( 0, Self.w ))
				gy = Int( Rnd( 0, Self.h ))
			Until Self.grid[ gx ][ gy ].id = 0
			Self.grid[ gx ][ gy ].id = GridTile.ID_BOMB
		Next
	End Method
	
	'/ returns win bool, checks that all tiles except bombs are shown
	Method CheckWin : Bool()
		For Local ax : Int = 0 Until Self.w
			For Local ay : Int = 0 Until Self.h
				If Self.grid[ ax ][ ay ].id <> GridTile.ID_BOMB And Self.grid[ ax ][ ay ].hidden = True
					Return False
				Endif
			Next
		Next
		Return True
	End Method
	
	'/ calculates tile ids, must be called after bombs have been generated
	Method GenerateNumbers()
		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				Local minX : Int = Max( cx - 1, 0 )
				Local minY : Int = Max( cy - 1, 0 )
				Local maxX : Int = Min( cx + 1, Self.w - 1 )
				Local maxY : Int = Min( cy + 1, Self.h - 1 )
				If Self.grid[ cx ][ cy ].id <> GridTile.ID_BOMB
					For Local ix : Int = minX To maxX
						For Local iy : Int = minY To maxY
							If Self.grid[ ix ][ iy ].id = GridTile.ID_BOMB
								Self.grid[ cx ][ cy ].id = Self.grid[ cx ][ cy ].id + 1
							Endif
						Next
					Next
				Endif
			Next
		Next
	End Method
	
	
	'/ recursively uncovers a tile at array postion
	Method UncoverTile( ax : Int, ay : Int )
	
		If Self.grid[ ax ][ ay ].hidden = False Then Return
		Self.grid[ ax ][ ay ].hidden = False
		
		If Self.grid[ ax ][ ay ].id = 0
			If ax > 0 Then Self.UncoverTile( ax - 1, ay )
			If ax < Self.w - 1 Then Self.UncoverTile( ax + 1, ay )
			If ay > 0 Then Self.UncoverTile( ax, ay - 1 )
			If ay < Self.h - 1 Then Self.UncoverTile( ax, ay + 1 )
		Endif
	
	End Method
	
	
	
	
	Method Update()
	
		Self.time.Update()

		'/ if already won or lost, reset the grid
		If Self.active = ID_LOSE Or Self.active = ID_WIN
			If TouchHit()
				Self.ClearGrid()
				Self.GenerateBombs()
				Self.GenerateNumbers()
				Self.active = ID_ACTIVE
				Self.time.Reset()
				Return
			Endif
		Endif

		'/ if play is in progress, uncover tile recursively and check for win / lose
		If Self.active = ID_ACTIVE
			If MouseX() > Self.x And MouseY() > Self.y
				If MouseX() < Self.x + Self.gw And MouseY() < Self.y + Self.gh
					Local ax : Int = Int(( MouseX() - Self.x ) / Self.size )
					Local ay : Int = Int(( MouseY() - Self.y ) / Self.size )
					If TouchHit()
						If Self.grid[ ax ][ ay ].hidden = True
							If Self.time.IsActive() = False Then Self.time.Start()
							Self.UncoverTile( ax, ay )
							If Self.CheckWin() = True
								Self.active = ID_WIN
								Self.time.Stop()
							Endif
							If Self.grid[ ax ][ ay ].id = GridTile.ID_BOMB
								Self.active = ID_LOSE
								Self.time.Stop()
							Endif
							Return
						Endif
					Endif
				Endif
			Endif
		Endif

	End Method
	
	
	
	Method Render()
		
		SetColor 96, 96, 96
		DrawRect Self.x, Self.y, Self.gw, Self.gh

		SetColor 40, 40, 40
		For Local i : Int = 1 Until Self.w
			DrawDottedLine( Self.x + ( i * Self.size ), Self.y, Self.x + ( i * Self.size ), Self.y + Self.gh )
		Next
		For Local i : Int = 1 Until Self.h
			DrawDottedLine( Self.x, Self.y + ( i * Self.size ), Self.x + Self.gw, Self.y + ( i * Self.size ))
		Next

		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				If Self.grid[ cx ][ cy ].hidden = False
					'/ render the bomb
					If Self.grid[ cx ][ cy ].id = GridTile.ID_BOMB
						SetColor 255, 0, 0
						DrawRect Self.x + ( cx * Self.size ) + ( Self.size / 4 ), Self.y + ( cy * Self.size ) + ( Self.size / 4 ), Self.size / 2, Self.size / 2
					'/ render number tile
					Else
						If Self.grid[ cx ][ cy ].id = 1 Then SetColor 0, 0, 175
						If Self.grid[ cx ][ cy ].id = 2 Then SetColor 175, 0, 0
						If Self.grid[ cx ][ cy ].id = 3 Then SetColor 0, 175, 0
						If Self.grid[ cx ][ cy ].id = 4 Then SetColor 255, 0, 255
						If Self.grid[ cx ][ cy ].id = 5 Then SetColor 0, 255, 255
						If Self.grid[ cx ][ cy ].id = 6 Then SetColor 0, 0, 0
						If Self.grid[ cx ][ cy ].id = 7 Then SetColor 255, 255, 0
						If Self.grid[ cx ][ cy ].id = 8 Then SetColor 255, 255, 255
						If Self.grid[ cx ][ cy ].id <> 0
							Font.Draw( Self.grid[ cx ][ cy ].id, Self.x + ( cx * Self.size ) + ( Self.size / 4 ), Self.y + ( cy * Self.size ) + ( Self.size / 4 ), Self.size / 9 )	
						Endif
					Endif
				Else
					'/ render a shaded hidden tile
					SetColor 196, 196, 196
					DrawRect Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.size - 2, Self.size	- 2	
					SetColor 255, 255, 255
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.x + ( cx * Self.size ) + 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + ( cy * Self.size ) + 1
					DrawLine Self.x + ( cx * Self.size ), Self.y + ( cy * Self.size ), Self.x + ( cx * Self.size ), Self.y + (( cy + 1 ) * Self.size )
					DrawLine Self.x + ( cx * Self.size ), Self.y + ( cy * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + ( cy * Self.size )				
					SetColor 40, 40, 40
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + (( cy + 1 ) * Self.size ) - 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + ( cy * Self.size ) + 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + ( cx * Self.size ), Self.y + (( cy + 1 ) * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + (( cy + 1 ) * Self.size )
					DrawLine Self.x + (( cx + 1 ) * Self.size ), Self.y + ( cy * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + (( cy + 1 ) * Self.size )
				Endif
			Next
		Next
		
		'/ render lose
		If Self.active = ID_LOSE
			SetColor 200, 0, 0
			Font.Draw( "YOU FAIL!", Self.x + ( Self.gw / 2 ), Self.y + Self.gh + 10, Self.size / 6, 3, 0.5 )
		Endif
		
		'/ render win
		If Self.active = ID_WIN
			SetColor 0, 175, 0
			Font.Draw( "YOU WIN!", Self.x + ( Self.gw / 2 ), Self.y + Self.gh + 10, Self.size / 6, 3, 0.5 )
		Endif
		
		'/ render time, adding 0's to make 3 digits long
		SetColor 200, 0, 0
		Local timeString : String = Self.time.GetTime()
		While timeString.Length < 3
			timeString = "0" + timeString
		Wend
		Font.Draw( timeString, Self.x + ( Self.gw / 2 ), Self.y - 10, Self.size / 6, 3, 0.5, 1.0 )
				
	End Method
	

End Class






'/ very crude dotted line (sorry I was being lazy!)
Function DrawDottedLine( x1 : Int, y1 : Int, x2 : Int, y2 : Int )

	Local dx : Int = x2 - x1
	Local dy : Int = y2 - y1
	
	Local d : Float = Sqrt(( dx * dx ) + ( dy * dy ))

	Local vx : Float = dx / d
	Local vy : Float = dy / d
	
	For Local i : Int = 0 To d Step 12
		Local l : Int = 6
		If i + l > d Then l = d - i
		DrawLine x1 + ( vx * i ), y1 + ( vy * i ), x1 + ( vx * ( i + l )), y1 + ( vy * ( i + l ))
	Next
	
End Function







Class MyApp Extends App

	
	Field mine : MineGrid
	

	Method OnCreate()
	
		SetUpdateRate( 60 )
		
		Font.CreateCharacterMap()

		mine = New MineGrid()
		mine.CentreGrid( DeviceWidth() / 2, DeviceHeight() / 2 )

	End Method
	


	Method OnUpdate()
		
		mine.Update()

	End Method
	


	Method OnRender()
		Cls 255, 255, 255
		
		mine.Render()

	End Method
	

End Class


Function Main()
	New MyApp()
End Function

Jesse

(Posted 2012) [#2]

pretty cool!
all it needs is a way to flag them.

NoOdle

(Posted 2012) [#3]

all it needs is a way to flag them.

Yea it does, I was going to add a button to toggle flag placement mode but I forgot! Oops.

AdamRedwoods

(Posted 2012) [#4]

this is cool. we should do a 99-line game jam with monkey some day.

NoOdle

(Posted 2012) [#5]

this is cool. we should do a 99-line game jam with monkey some day.

Yea that would be good fun!

NoOdle

(Posted 2012) [#6]

Decided to add a flag to this so it is complete. Click the flag to toggle flag placement mode. I left it so that you can uncover flagged tiles, saves a couple of mouse clicks this way!


Import mojo

Class Digit

	Field data : Int[]
	
	Field w : Int
	Field h : Int
	
	Method New( w : Int, h : Int, d : Int[])
		Self.w = w
		Self.h = h
		Self.data = d
	End Method
	
	Method Render( px : Float, py : Float, s : Float )
		Local index : Int = 0
		For Local y : Int = 0 Until Self.h
			For Local x : Int = 0 Until Self.w
				If Self.data[ index ] = 1
					DrawRect px + ( x * s ), py + ( y * s ), s, s
				Endif
				index = index + 1
			Next
		Next
	End Method

End Class




Class Font

	Global CharacterMap : StringMap< Digit > = New StringMap< Digit >

	Function CreateCharacterMap()
		CharacterMap.Set( "0", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "1", New Digit( 2, 5, [ 1, 1, 0, 1, 0, 1, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "2", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "3", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "4", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1 ] ))
		CharacterMap.Set( "5", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "6", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "7", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0 ] ))
		CharacterMap.Set( "8", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "9", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "A", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "B", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "C", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "D", New Digit( 4, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0 ] ))
		CharacterMap.Set( "E", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "F", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "G", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "H", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "I", New Digit( 3, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "J", New Digit( 4, 5, [ 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "K", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "L", New Digit( 4, 5, [ 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "M", New Digit( 5, 5, [ 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "N", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "O", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "P", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "Q", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "R", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "S", New Digit( 4, 5, [ 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "T", New Digit( 3, 5, [ 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0 ] ))
		CharacterMap.Set( "U", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "V", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0 ] ))
		CharacterMap.Set( "W", New Digit( 5, 5, [ 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "X", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "Y", New Digit( 4, 5, [ 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( "Z", New Digit( 4, 5, [ 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1 ] ))
		CharacterMap.Set( " ", New Digit( 3, 5, [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "!", New Digit( 1, 5, [ 1, 1, 1, 0, 1 ] ))
		CharacterMap.Set( ".", New Digit( 1, 5, [ 0, 0, 0, 0, 1 ] ))
		CharacterMap.Set( "'", New Digit( 1, 5, [ 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( ":", New Digit( 1, 5, [ 0, 1, 0, 1, 0 ] ))
		CharacterMap.Set( ";", New Digit( 1, 5, [ 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "|", New Digit( 1, 5, [ 1, 1, 1, 1, 1 ] ))
		CharacterMap.Set( ")", New Digit( 2, 5, [ 1, 0, 0, 1, 0, 1, 0, 1, 1, 0 ] ))
		CharacterMap.Set( "(", New Digit( 2, 5, [ 0, 1, 1, 0, 1, 0, 1, 0, 0, 1 ] ))
		CharacterMap.Set( "/", New Digit( 2, 5, [ 0, 1, 0, 1, 0, 1, 1, 0, 1, 0 ] ))
		CharacterMap.Set( "\", New Digit( 2, 5, [ 1, 0, 1, 0, 1, 0, 0, 1, 0, 1 ] ))
		CharacterMap.Set( "+", New Digit( 3, 5, [ 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "-", New Digit( 3, 5, [ 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0 ] ))
		CharacterMap.Set( "=", New Digit( 3, 5, [ 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "*", New Digit( 3, 5, [ 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0 ] ))
		CharacterMap.Set( "[", New Digit( 2, 5, [ 1, 1, 1, 0, 1, 0, 1, 0, 1, 1 ] ))
		CharacterMap.Set( "]", New Digit( 2, 5, [ 1, 1, 0, 1, 0, 1, 0, 1, 1, 1 ] ))
		CharacterMap.Set( "?", New Digit( 3, 5, [ 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0 ] ))
		CharacterMap.Set( ",", New Digit( 2, 5, [ 0, 0, 0, 0, 0, 0, 0, 1, 1, 0 ] ))
		CharacterMap.Set( String.FromChar( 34 ), New Digit( 3, 5, [ 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 ] ))
	End Function



	Function Draw : Void( val : String, px : Float, py : Float, pScale : Float, pXSpace : Int = 8, xCentre : Float = 0.0, yCentre : Float = 0.0 )
		
		Local xSpace : Int = 0
		
		Local cx : Int = 0
		Local cy : Int = 0
		
		If xCentre <> 0.0 Or yCentre <> 0.0
			Local yMax : Int = 0
			For Local ii : Int = 0 Until val.Length
				Local dig : Digit = CharacterMap.Get( val[ ii..ii + 1 ].ToUpper() )
				xSpace = xSpace + ( dig.w * pScale )
				If yMax < ( dig.h * pScale ) Then yMax = dig.h * pScale
				If ii < val.Length - 1 Then xSpace = xSpace + pXSpace
			Next
			cx = xSpace * xCentre
			cy = yMax * yCentre
		Endif
		xSpace = 0
		
		For Local i : Int = 0 Until val.Length
			Local dig : Digit = CharacterMap.Get( val[ i..i + 1 ].ToUpper() )
			dig.Render( px - cx + xSpace, py - cy, pScale )
			xSpace = xSpace + ( dig.w * pScale ) + pXSpace
		Next
	End Function

End Class






Class Timer

	Field active : Bool = False
	Field start_time : Int = 0
	Field current_time : Int = 0
	
	Method Reset()
		Self.start_time = 0
		Self.current_time = 0
		Self.active = False
	End Method
	
	Method IsActive : Bool()
		Return Self.active
	End Method
	
	Method Start()
		Self.start_time = Millisecs()
		Self.active = True
	End Method

	Method Stop()
		Self.active = False
	End Method
	
	Method Update()
		If Self.active
			Self.current_time = ( Millisecs() - Self.start_time ) / 1000
		Endif
	End Method

	Method GetTime : Int()
		Return Self.current_time
	End Method

End Class




Class GridTile

	Global ID_BOMB : Int = -1
	
	Field flagged : Bool = False
	Field hidden : Bool = True
	Field id : Int

End Class






Class MineGrid

	Global MODE_FLAG : Int = 1
	Global MODE_SHOW : Int = 0

	Global ID_WIN : Int = 1
	Global ID_LOSE : Int = -1
	Global ID_ACTIVE : Int = 0

	Field grid : GridTile[][]
	
	Field time : Timer
	
	Field active : Int
	
	Field mode : Int
	
	Field bombs : Int = 6
	
	Field x : Int = 50
	Field y : Int = 50
	
	Field w : Int = 8
	Field h : Int = 8

	Field gw : Int
	Field gh : Int 
	
	Field size : Int = 32

	'/ new grid
	Method New()
		
		Self.grid = New GridTile[ Self.w ][]
		
		For Local i : Int = 0 Until Self.h
			
			Local g : GridTile[ Self.h ]
			For Local ii : Int = 0 Until Self.h
				g[ ii ] = New GridTile
			Next
			
			Self.grid[ i ] = g
		Next
		
		Self.gw = Self.w * Self.size
		Self.gh = Self.h * Self.size
		
		GenerateBombs()
		GenerateNumbers()
		
		Self.active = ID_ACTIVE
		
		Self.time = New Timer()
		
	End Method
	
	
	'/ centres grid at position
	Method CentreGrid( px : Int, py : Int )
		Self.x = px - ( Self.gw / 2 )
		Self.y = py - ( Self.gh / 2 )
	End Method
	
	
	'/ resets grid array
	Method ClearGrid()
		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				Self.grid[ cx ][ cy ].hidden = True
				Self.grid[ cx ][ cy ].id = 0
				Self.grid[ cx ][ cy ].flagged = False
			Next
		Next	
	End Method
	
	'/ places bombs amongst the array
	Method GenerateBombs()
		Local gx : Int
		Local gy : Int
		For Local i : Int = 0 Until Self.bombs
			Repeat
				gx = Int( Rnd( 0, Self.w ))
				gy = Int( Rnd( 0, Self.h ))
			Until Self.grid[ gx ][ gy ].id = 0
			Self.grid[ gx ][ gy ].id = GridTile.ID_BOMB
		Next
	End Method
	
	'/ returns win bool, checks that all tiles except bombs are shown
	Method CheckWin : Bool()
		For Local ax : Int = 0 Until Self.w
			For Local ay : Int = 0 Until Self.h
				If Self.grid[ ax ][ ay ].id <> GridTile.ID_BOMB And Self.grid[ ax ][ ay ].hidden = True
					Return False
				Endif
			Next
		Next
		Return True
	End Method
	
	'/ calculates tile ids, must be called after bombs have been generated
	Method GenerateNumbers()
		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				Local minX : Int = Max( cx - 1, 0 )
				Local minY : Int = Max( cy - 1, 0 )
				Local maxX : Int = Min( cx + 1, Self.w - 1 )
				Local maxY : Int = Min( cy + 1, Self.h - 1 )
				If Self.grid[ cx ][ cy ].id <> GridTile.ID_BOMB
					For Local ix : Int = minX To maxX
						For Local iy : Int = minY To maxY
							If Self.grid[ ix ][ iy ].id = GridTile.ID_BOMB
								Self.grid[ cx ][ cy ].id = Self.grid[ cx ][ cy ].id + 1
							Endif
						Next
					Next
				Endif
			Next
		Next
	End Method
	
	
	'/ recursively uncovers a tile at array postion
	Method UncoverTile( ax : Int, ay : Int )
		If Self.grid[ ax ][ ay ].hidden = False Then Return
		Self.grid[ ax ][ ay ].hidden = False
		If Self.grid[ ax ][ ay ].id = 0
			If ax > 0 And Self.grid[ ax - 1 ][ ay ].flagged = False Then Self.UncoverTile( ax - 1, ay )
			If ax < Self.w - 1 And Self.grid[ ax + 1 ][ ay ].flagged = False  Then Self.UncoverTile( ax + 1, ay )
			If ay > 0 And Self.grid[ ax ][ ay - 1 ].flagged = False  Then Self.UncoverTile( ax, ay - 1 )
			If ay < Self.h - 1 And Self.grid[ ax ][ ay + 1 ].flagged = False  Then Self.UncoverTile( ax, ay + 1 )
		Endif
	End Method
	
	
	
	
	Method Update()
	
		Self.time.Update()

		'/ if already won or lost, reset the grid
		If Self.active = ID_LOSE Or Self.active = ID_WIN
			If TouchHit()
				Self.ClearGrid()
				Self.GenerateBombs()
				Self.GenerateNumbers()
				Self.active = ID_ACTIVE
				Self.time.Reset()
				Return
			Endif
		Endif

		'/ if play is in progress, uncover tile recursively and check for win / lose
		If Self.active = ID_ACTIVE
			If MouseX() > Self.x And MouseY() > Self.y
				If MouseX() < Self.x + Self.gw And MouseY() < Self.y + Self.gh
					Local ax : Int = Int(( MouseX() - Self.x ) / Self.size )
					Local ay : Int = Int(( MouseY() - Self.y ) / Self.size )
					If TouchHit()
						If Self.grid[ ax ][ ay ].hidden = True
							If Self.time.IsActive() = False Then Self.time.Start()
							'uncover
							If Self.mode = MODE_SHOW
								Self.UncoverTile( ax, ay )
								If Self.CheckWin() = True
									Self.active = ID_WIN
									Self.time.Stop()
								Endif
								If Self.grid[ ax ][ ay ].id = GridTile.ID_BOMB
									Self.active = ID_LOSE
									Self.time.Stop()
								Endif
							Endif
							'flag
							If Self.mode = MODE_FLAG
								Self.grid[ ax ][ ay ].flagged = Not Self.grid[ ax ][ ay ].flagged
							Endif
							Return
						Endif
					Endif
				Endif
			Endif
			
			'flag click
			If MouseX() > Self.x + Self.gw - ( 40.0 * ( Self.size / 32.0 )) And MouseX() < Self.x + Self.gw
				If MouseY() > Self.y - ( 40.0 * ( Self.size / 32.0 )) And MouseY < Self.y
					If TouchHit()
						Self.mode = Not Self.mode
						Return
					Endif
				Endif
			Endif
		Endif

	End Method
	
	
	
	Method Render()
		
		SetColor 96, 96, 96
		DrawRect Self.x, Self.y, Self.gw, Self.gh

		SetColor 40, 40, 40
		For Local i : Int = 1 Until Self.w
			DrawDottedLine( Self.x + ( i * Self.size ), Self.y, Self.x + ( i * Self.size ), Self.y + Self.gh )
		Next
		For Local i : Int = 1 Until Self.h
			DrawDottedLine( Self.x, Self.y + ( i * Self.size ), Self.x + Self.gw, Self.y + ( i * Self.size ))
		Next

		For Local cx : Int = 0 Until Self.w
			For Local cy : Int = 0 Until Self.h
				If Self.grid[ cx ][ cy ].hidden = False
					'/ render the bomb
					If Self.grid[ cx ][ cy ].id = GridTile.ID_BOMB
						SetColor 255, 0, 0
						DrawRect Self.x + ( cx * Self.size ) + ( Self.size / 4 ), Self.y + ( cy * Self.size ) + ( Self.size / 4 ), Self.size / 2, Self.size / 2
					'/ render number tile
					Else
						If Self.grid[ cx ][ cy ].id = 1 Then SetColor 0, 0, 175
						If Self.grid[ cx ][ cy ].id = 2 Then SetColor 175, 0, 0
						If Self.grid[ cx ][ cy ].id = 3 Then SetColor 0, 175, 0
						If Self.grid[ cx ][ cy ].id = 4 Then SetColor 255, 0, 255
						If Self.grid[ cx ][ cy ].id = 5 Then SetColor 0, 255, 255
						If Self.grid[ cx ][ cy ].id = 6 Then SetColor 0, 0, 0
						If Self.grid[ cx ][ cy ].id = 7 Then SetColor 255, 255, 0
						If Self.grid[ cx ][ cy ].id = 8 Then SetColor 255, 255, 255
						If Self.grid[ cx ][ cy ].id <> 0
							Font.Draw( Self.grid[ cx ][ cy ].id, Self.x + ( cx * Self.size ) + ( Self.size / 4 ), Self.y + ( cy * Self.size ) + ( Self.size / 4 ), Self.size / 9 )	
						Endif
					Endif
				Else
					'/ render a shaded hidden tile
					SetColor 196, 196, 196
					DrawRect Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.size - 2, Self.size	- 2	
					SetColor 255, 255, 255
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.x + ( cx * Self.size ) + 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + ( cy * Self.size ) + 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + ( cy * Self.size ) + 1
					DrawLine Self.x + ( cx * Self.size ), Self.y + ( cy * Self.size ), Self.x + ( cx * Self.size ), Self.y + (( cy + 1 ) * Self.size )
					DrawLine Self.x + ( cx * Self.size ), Self.y + ( cy * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + ( cy * Self.size )				
					SetColor 40, 40, 40
					DrawLine Self.x + ( cx * Self.size ) + 1, Self.y + (( cy + 1 ) * Self.size ) - 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + ( cy * Self.size ) + 1, Self.x + (( cx + 1 ) * Self.size ) - 1, Self.y + (( cy + 1 ) * Self.size ) - 1
					DrawLine Self.x + ( cx * Self.size ), Self.y + (( cy + 1 ) * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + (( cy + 1 ) * Self.size )
					DrawLine Self.x + (( cx + 1 ) * Self.size ), Self.y + ( cy * Self.size ), Self.x + (( cx + 1 ) * Self.size ), Self.y + (( cy + 1 ) * Self.size )
					
					'/render flag
					If Self.grid[ cx ][ cy ].flagged = True
						DrawFlag( (( Self.size / 40.0 ) * 8.0 ) + Self.x + ( cx * Self.size ), (( Self.size / 40.0 ) * 5.0 ) + Self.y + ( cy * Self.size ), Self.size / 40.0 )
					Endif
				Endif
			Next
		Next
		
		
		'/ Render flag
		If mode = 0 Then SetAlpha( 0.5 )
		DrawFlag( Self.x + Self.gw - ( 40.0 * ( Self.size / 32.0 )), Self.y - ( 40.0 * ( Self.size / 32.0 )), Self.size / 32.0 )
		SetAlpha( 1.0 )
		
		
		'/ render lose
		If Self.active = ID_LOSE
			SetColor 200, 0, 0
			Font.Draw( "YOU FAIL!", Self.x + ( Self.gw / 2 ), Self.y + Self.gh + 10, Self.size / 6, 3, 0.5 )
		Endif
		
		'/ render win
		If Self.active = ID_WIN
			SetColor 0, 175, 0
			Font.Draw( "YOU WIN!", Self.x + ( Self.gw / 2 ), Self.y + Self.gh + 10, Self.size / 6, 3, 0.5 )
		Endif
		
		'/ render time, adding 0's to make 3 digits long
		SetColor 200, 0, 0
		Local timeString : String = Self.time.GetTime()
		While timeString.Length < 3
			timeString = "0" + timeString
		Wend
		Font.Draw( timeString, Self.x + ( Self.gw / 2 ), Self.y - 10, Self.size / 6, 3, 0.5, 1.0 )
				
	End Method
	

End Class




'/ draws a quick flag
Function DrawFlag( x : Int, y : Int, scale : Float )
	PushMatrix()
	Translate x, y
	Scale scale, scale
	SetColor 100, 75, 0
	DrawRect 0, 0, 4, 30
	SetColor 0, 175, 0
	DrawRect 4, 2, 20, 15
	PopMatrix()
End Function



'/ very crude dotted line (sorry I was being lazy!)
Function DrawDottedLine( x1 : Int, y1 : Int, x2 : Int, y2 : Int )

	Local dx : Int = x2 - x1
	Local dy : Int = y2 - y1
	
	Local d : Float = Sqrt(( dx * dx ) + ( dy * dy ))

	Local vx : Float = dx / d
	Local vy : Float = dy / d
	
	For Local i : Int = 0 To d Step 12
		Local l : Int = 6
		If i + l > d Then l = d - i
		DrawLine x1 + ( vx * i ), y1 + ( vy * i ), x1 + ( vx * ( i + l )), y1 + ( vy * ( i + l ))
	Next
	
End Function







Class MyApp Extends App

	
	Field mine : MineGrid
	

	Method OnCreate()
	
		SetUpdateRate( 60 )
		
		Font.CreateCharacterMap()

		mine = New MineGrid()
		mine.CentreGrid( DeviceWidth() / 2, DeviceHeight() / 2 )

	End Method
	


	Method OnUpdate()
		
		mine.Update()

	End Method
	


	Method OnRender()
		Cls 255, 255, 255
		
		mine.Render()

	End Method
	

End Class


Function Main()
	New MyApp()
End Function