Const GRASS = 1

Graphics3D 800, 600

SetBuffer BackBuffer()

camera = CreateCamera()

light = CreateLight()

Global imgcursor = LoadImage("cursor.bmp")
MaskImage(imgcursor, 255, 0, 255)
Function mouse()
	DrawImage(imgcursor, MouseX(), MouseY())
End Function
HidePointer()

Global depth = 4
Global length = 4
Global squarelength = 1
Global groundlevel = 0



Dim floorstyle(length, depth)
Dim floorxcoords(length, depth)
Dim floorzcoords(length, depth)

floorstyle(0, 0) = LoadMesh("grassblock.3ds")
floorstyle(0, 1) = LoadMesh("grassblock.3ds")
floorstyle(0, 2) = LoadMesh("grassblock.3ds")
floorstyle(0, 3) = LoadMesh("grassblock.3ds")
floorstyle(0, 4) = LoadMesh("grassblock.3ds")

floorstyle(1, 0) = LoadMesh("grassblock.3ds")
floorstyle(1, 1) = LoadMesh("grassblock.3ds")
floorstyle(1, 2) = LoadMesh("grassblock.3ds")
floorstyle(1, 3) = LoadMesh("grassblock.3ds")
floorstyle(1, 4) = LoadMesh("grassblock.3ds")

floorstyle(2, 0) = LoadMesh("grassblock.3ds")
floorstyle(2, 1) = LoadMesh("grassblock.3ds")
floorstyle(2, 2) = LoadMesh("grassblock.3ds")
floorstyle(2, 3) = LoadMesh("grassblock.3ds")
floorstyle(2, 4) = LoadMesh("grassblock.3ds")

floorstyle(3, 0) = LoadMesh("grassblock.3ds")
floorstyle(3, 1) = LoadMesh("grassblock.3ds")
floorstyle(3, 2) = LoadMesh("grassblock.3ds")
floorstyle(3, 3) = LoadMesh("grassblock.3ds")
floorstyle(3, 4) = LoadMesh("grassblock.3ds")

floorstyle(4, 0) = LoadMesh("grassblock.3ds")
floorstyle(4, 1) = LoadMesh("grassblock.3ds")
floorstyle(4, 2) = LoadMesh("grassblock.3ds")
floorstyle(4, 3) = LoadMesh("grassblock.3ds")
floorstyle(4, 4) = LoadMesh("grassblock.3ds")


floorxcoords(0, 0) = 0 * squarelength
floorxcoords(0, 1) = 0 * squarelength
floorxcoords(0, 2) = 0 * squarelength
floorxcoords(0, 3) = 0 * squarelength
floorxcoords(0, 4) = 0 * squarelength

floorxcoords(1, 0) = 1 * squarelength
floorxcoords(1, 1) = 1 * squarelength
floorxcoords(1, 2) = 1 * squarelength
floorxcoords(1, 3) = 1 * squarelength
floorxcoords(1, 4) = 1 * squarelength

floorxcoords(2, 0) = 2 * squarelength
floorxcoords(2, 1) = 2 * squarelength
floorxcoords(2, 2) = 2 * squarelength
floorxcoords(2, 3) = 2 * squarelength
floorxcoords(2, 4) = 2 * squarelength

floorxcoords(3, 0) = 3 * squarelength
floorxcoords(3, 1) = 3 * squarelength
floorxcoords(3, 2) = 3 * squarelength
floorxcoords(3, 3) = 3 * squarelength
floorxcoords(3, 4) = 3 * squarelength

floorxcoords(4, 0) = 4 * squarelength
floorxcoords(4, 1) = 4 * squarelength
floorxcoords(4, 2) = 4 * squarelength
floorxcoords(4, 3) = 4 * squarelength
floorxcoords(4, 4) = 4 * squarelength


floorzcoords(0, 0) = 0 * squarelength
floorzcoords(1, 0) = 0 * squarelength
floorzcoords(2, 0) = 0 * squarelength
floorzcoords(3, 0) = 0 * squarelength
floorzcoords(4, 0) = 0 * squarelength

floorzcoords(0, 1) = 1 * squarelength
floorzcoords(1, 1) = 1 * squarelength
floorzcoords(2, 1) = 1 * squarelength
floorzcoords(3, 1) = 1 * squarelength
floorzcoords(4, 1) = 1 * squarelength

floorzcoords(0, 2) = 2 * squarelength
floorzcoords(1, 2) = 2 * squarelength
floorzcoords(2, 2) = 2 * squarelength
floorzcoords(3, 2) = 2 * squarelength
floorzcoords(4, 2) = 2 * squarelength

floorzcoords(0, 3) = 3 * squarelength
floorzcoords(1, 3) = 3 * squarelength
floorzcoords(2, 3) = 3 * squarelength
floorzcoords(3, 3) = 3 * squarelength
floorzcoords(4, 3) = 3 * squarelength

floorzcoords(0, 4) = 4 * squarelength
floorzcoords(1, 4) = 4 * squarelength
floorzcoords(2, 4) = 4 * squarelength
floorzcoords(3, 4) = 4 * squarelength
floorzcoords(4, 4) = 4 * squarelength

PositionEntity camera, x, 5, -5, True
RotateEntity camera, 30, 0, 0

a = 0
b = 0

While a<(length+1)
	While b<(depth+1)
		PositionEntity floorstyle(a, b), floorxcoords(a, b), groundlevel, floorzcoords(a, b)
		b = b+1
	Wend
	a = a+1
Wend


While Not KeyDown(1)
	UpdateWorld
	RenderWorld
	mouse()
	Flip
Wend

End