From ad72b0dfda62979d7f7a13704e8473cdd853435e Mon Sep 17 00:00:00 2001
From: RonTek <57479219+blitzcoder@users.noreply.github.com>
Date: Fri, 3 Jan 2020 09:55:32 +0800
Subject: [PATCH] Create Example - Grid Based or Tile Movement.monkey

---
 Example - Grid Based or Tile Movement.monkey | 238 +++++++++++++++++++
 1 file changed, 238 insertions(+)
 create mode 100644 Example - Grid Based or Tile Movement.monkey

diff --git a/Example - Grid Based or Tile Movement.monkey b/Example - Grid Based or Tile Movement.monkey
new file mode 100644
index 0000000..12211b8
--- /dev/null
+++ b/Example - Grid Based or Tile Movement.monkey	
@@ -0,0 +1,238 @@
+Strict
+
+Import mojo
+
+Global mapx:Int = 0
+' Scrolling offset
+Global mapsx:Int = 0
+
+Global SW:Int = 0, SH:Int = 0
+Global player:Image
+
+' Multiple of tilesize
+Global speed:Int = 4
+
+Global x:Int, y:Int
+Global initialPosX:Int, initialPosY:Int
+
+Global movement:Int = 0
+Global direction:String
+
+Global showgrid:Int = 1
+
+Const tilewidth:Int = 32
+Const tileheight:Int = 32
+Const tilesize:Int = 32
+
+Const mapwidth:Int = 20
+Const mapheight:Int = 15
+Global map:Int[][] = [ [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+								[1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+								[1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+								[1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1],
+								[1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1],
+								[1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1],
+								[1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+									[1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+									[1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+									[1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1],
+									[1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1],
+									[1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1],
+								 [1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1],
+								[1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1],
+								[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] ]
+
+Function Main:Int()
+	New TileMove
+	Return True
+End
+
+Class TileMove Extends App
+
+	Field text:String = "Monkey X Grid-Based or Tile Movement"
+	Field text2:String = "Use WASD Keys to Move Player, G to Toggle Grid"
+
+	Method OnCreate:Int()
+		SetUpdateRate 60
+		SW = 640 SH = 480
+
+		player = CreateImage(tilesize, tilesize)
+		' create an array for that image
+		Local pixels:Int[player.Width() * player.Height()]
+		' draw the color red in the pixels array
+		For Local i:Int = 0 Until player.Width() * player.Height()
+			pixels[i] = argb(200, 0, 0)
+		Next
+		' copy the array to the image
+		player.WritePixels(pixels, 0, 0, player.Width(), player.Height(), 0)
+ 		
+		player.SetHandle player.Width()/2, player.Height()/2
+		x = 6 * tilesize
+		y = 11 * tilesize
+		initialPosX = x
+		initialPosY = y
+
+		Return True
+	End
+
+	Method OnUpdate:Int()
+	
+		If KeyHit(KEY_G) Then showgrid = Not showgrid
+		
+		If KeyDown(KEY_W)
+			If movement = 0
+				movement = 1
+				direction = "up"
+				Print "UP"
+			End If
+		End If
+		
+		If KeyDown(KEY_S)
+			If movement = 0
+				movement = 1
+			 	direction = "down"
+				Print "Down"
+			End If
+		End If
+	
+		If KeyDown(KEY_A)
+			If movement = 0
+				movement = 1
+				direction = "left"
+				Print "Left"
+			End If
+		End If
+	
+		If KeyDown(KEY_D)
+			If movement = 0
+				movement = 1
+				direction = "right"
+				Print "Right"
+			End If
+		End If
+			
+		If direction = "right" And movement
+			If x <> initialPosX + tilesize
+				If playertc(1, 0) = False
+						x = x + speed; movement = 1
+					Else
+						movement = 0
+				End If
+			Else
+				initialPosX = x; movement = 0
+			End If
+		End If
+
+		If direction = "left" And movement
+			If x <> initialPosX - tilesize
+				If playertc(-1, 0) = False
+					x = x - speed; movement = 1
+				Else
+		 			movement = 0
+				End If
+			Else
+				initialPosX = x; movement = 0
+			End If
+		End If
+		
+		If direction = "up" And movement
+			If y <> initialPosY - tilesize
+				If playertc(0, -1) = False
+					y = y - speed; movement = 1
+				Else
+					movement = 0
+	 			End If
+			Else
+				initialPosY = y; movement = 0
+			End If
+		End If
+		
+		If direction = "down" And movement
+			If y <> initialPosY + tilesize
+				If playertc(0, 1) = False
+					y = y + speed; movement = 1
+				Else
+					movement = 0
+	 			End If
+			Else
+				initialPosY = y; movement = 0
+			End If
+		End If
+		
+		Return True
+	End
+
+	Method OnRender:Int()
+
+		Cls 0, 0, 0
+		
+		SetColor 100, 100, 100
+				
+		If showgrid = 1
+			For Local v:Int = 0 Until SW Step tilesize
+				DrawLine v, 0, v, SH ; DrawLine 0, v, SW, v
+			Next
+		End If
+	
+		SetColor 255, 255, 255
+		
+		drawmap
+		
+		DrawImage player, x+player.Width()/2, y+player.Height()/2
+		
+		Local m:Int = 0
+						
+		If movement Then m = 1 Else m = 0
+
+		SetAlpha .7
+		DrawText(text, DeviceWidth() / 2 - TextWidth(text)/2, DeviceHeight() / 2 - 30)
+		DrawText(text2, DeviceWidth() / 2 - TextWidth(text2)/2, DeviceHeight() / 2 - 10)
+		SetAlpha 1
+		
+		Return True
+	End
+End
+
+'helper function
+Function argb:Int(r:Int, g:Int, b:Int , alpha:Int = 255)
+	Return (alpha Shl 24) | (r Shl 16) | (g Shl 8) | b
+End Function
+
+Function drawmap:Void()
+	SetColor 255, 255, 255
+	For Local y:Int = 0 Until mapheight
+	For Local x:Int = 0 Until mapwidth
+		If map[y][x] = 1
+			DrawRect x*tilewidth, y*tileheight, tilewidth, tileheight
+		End If
+	Next
+	Next
+End Function
+
+' This function returns true if the player coordinates are inside a tile on the map.
+Function playertc:Bool(x1:Int = 0, y1:Int = 0)
+	Local playerx:Int = x
+	Local playery:Int = y
+	Local playerheight:Int = 32
+	Local playerwidth:Int = 32
+	Local cx:Int = (playerx + x1) / tilewidth
+	Local cy:Int = (playery + y1) / tileheight
+	For Local y2:Int = cy-1 Until cy+2
+	For Local x2:Int = cx-1 Until cx+2
+		If x2 >= 0 And x2 < mapwidth And y2 >= 0 And y2 < mapheight
+			If map[y2][x2] > 0
+				If rectsoverlap(playerx+x1, playery+y1, playerwidth, playerheight, x2*tilewidth, y2*tileheight, tilewidth, tileheight) = True
+					Return True
+				End If
+			End If
+		End If
+	Next
+	Next
+	Return False
+End Function
+
+Function rectsoverlap:Bool(x1:Int, y1:Int, w1:Int, h1:Int, x2:Int, y2:Int, w2:Int, h2:Int)
+	If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False
+	If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False
+	Return True
+End