Sorry your browser is not supported!

// Project: Populous 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant mapsize=50
type _map
	x#
	z#
	id#
	heightvertex1# // bottom left
	heightvertex2# // top left
	heightvertex3# // top right
	heightvertex4# // bottom right
endtype
global map as _map[mapsize,mapsize]



land = CreateObjectBox(.1,.1,.1)
border1 = CreateObjectCylinder(9,.1,20)
SetObjectPosition(border1,-4.5,0,0)
SetObjectRotation(border1,90,0,0)
FixObjectToObject(border1,land)

border2 = CreateObjectCylinder(9,.1,20)
SetObjectPosition(border2,4.5,0,0)
SetObjectRotation(border2,90,0,0)
FixObjectToObject(border2,land)

border3 = CreateObjectCylinder(9,.1,20)
SetObjectPosition(border3,0,0,-4.5)
SetObjectRotation(border3,0,0,90)
FixObjectToObject(border3,land)

border4 = CreateObjectCylinder(9,.1,20)
SetObjectPosition(border4,0,0,4.5)
SetObjectRotation(border4,0,0,90)
FixObjectToObject(border4,land)

plane = CreateObjectPlane(100,100)
SetObjectRotation(plane,90,0,0)
SetObjectColor(plane,100,100,100,255)
SetObjectPosition(plane,0,-.01,0)

for x=-mapsize/2 to mapsize/2
	for z=-mapsize/2 to mapsize/2
		
		map[x+mapsize/2,z+mapsize/2].id# = CreateObjectPlane(1,1)
		SetObjectRotation(map[x+mapsize/2,z+mapsize/2].id#,90,0,0)
		SetObjectColor(map[x+mapsize/2,z+mapsize/2].id#,0,random(200,255),0,255)
		FixObjectToObject(map[x+mapsize/2,z+mapsize/2].id#,land)
		
/*	heightvertex1# // bottom left
	heightvertex2# // top left
	heightvertex3# // top right
	heightvertex4# // bottom right
	*/	
		
		map[x+mapsize/2,z+mapsize/2].heightvertex1#=random(0,1)
		map[x+mapsize/2,z+mapsize/2].heightvertex2#=random(0,1)
		map[x+mapsize/2,z+mapsize/2].heightvertex3#=random(0,1)
		map[x+mapsize/2,z+mapsize/2].heightvertex4#=random(0,1)

	//	setmapvertices(land,map[x+mapsize/2,z+mapsize/2].id#,x+mapsize/2,z+mapsize/2)


	next
next



planex#=0
planez#=0

do
	
	if GetRawKeyState(37)
		dec planex#,.01
endif
	if GetRawKeyState(39) then inc planex#,.01
	if GetRawKeyState(38) then dec planez#,.01
	if GetRawKeyState(40) then inc planez#,.01
	
	
	repositionmap(planex#,planez#)
	
    Print( ScreenFPS() )
    Sync()
loop

function repositionmap(offsetx#,offsetz#)

	for x=-mapsize/2 to mapsize/2
		for z=-mapsize/2 to mapsize/2
			xx# = getobjectx	(map[x+mapsize/2,z+mapsize/2].id#)
			zz# = getobjectz	(map[x+mapsize/2,z+mapsize/2].id#)
			
			
			if xx#>=-4.5 and xx#<=4.5 and zz#>=-4.5 and zz#<=4.5
				SetObjectVisible(map[ 		x+mapsize/2,z+mapsize/2].id#,1)
			else
				SetObjectVisible(map[ 		x+mapsize/2,z+mapsize/2].id#,0)
			endif

			SetObjectPosition(map[x+mapsize/2,z+mapsize/2].id#,offsetx#+x*1,0,offsetz#+z*1)
			
			

		next
	next
endfunction

function setmapvertices(land,id,mapx,mapy)

	mem = CreateMemblockFromObjectMesh(id,1)
	SetMeshMemblockVertexPosition(mem,1,GetMeshMemblockVertexX(mem,1),GetMeshMemblockVertexY(mem,1)+map[mapx,mapy].heightvertex1#,GetMeshMemblockVertexY(mem,1))
	SetMeshMemblockVertexPosition(mem,2,GetMeshMemblockVertexX(mem,2),GetMeshMemblockVertexY(mem,2)+map[mapx,mapy].heightvertex1#,GetMeshMemblockVertexY(mem,2))
	SetMeshMemblockVertexPosition(mem,3,GetMeshMemblockVertexX(mem,3),GetMeshMemblockVertexY(mem,3)+map[mapx,mapy].heightvertex1#,GetMeshMemblockVertexY(mem,3))
	SetMeshMemblockVertexPosition(mem,4,GetMeshMemblockVertexX(mem,4),GetMeshMemblockVertexY(mem,4)+map[mapx,mapy].heightvertex1#,GetMeshMemblockVertexY(mem,4))

	DeleteObject(land)
	CreateObjectFromMeshMemblock(land,mem)
//	RotateObjectLocalY(land,45)

endfunction	

// Project: Populous 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous" )
SetWindowSize( screenwidth, screenheight, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
#constant 	KEY_ENTER        13
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40
type _map
	ID as integer
	imageID as integer
	x as integer
	y as integer
	offset as integer
endtype
global map as _map[]

mapPiece as _map 
mapPiece.imageID=loadimage("ground.png") //220 * 379
for y= 100 to 500 step 50
	for x =400 to 1120 step 180
		mapPiece.ID=CreateSprite(mapPiece.imageID)
		mapPiece.x=x+offset:mapPiece.y=y:mapPiece.offset=offset
		SetSpritePositionByOffset(mapPiece.ID,mapPiece.x,mapPiece.y)
		map.insert(mapPiece)		
	next x
	if offset=0 
		offset=90
	else
		offset=0
	endif	
next y
Do
	if GetRawKeyState(KEY_UP)
		moveMap(map,0,-1)
	endif
	if GetRawKeyState(KEY_DOWN)
		moveMap(map,0,1)
	endif
	if GetRawKeyState(KEY_LEFT)
		moveMap(map,-1,0)
	endif
	if GetRawKeyState(KEY_RIGHT)
		moveMap(map,1,0)
	endif
	print(map[0].x)
	print(map[0].y)
	print(map[map.length].x)
	print(map[map.length].y)
	
	
	
	sync()
loop	

function moveMap(map ref as _map[],x,y)
	for num=0 to map.length
		map[num].x=map[num].x+x
		map[num].y=map[num].y+y
		if map[num].x<400 then map[num].x=1120+180 //(+180)
		if map[num].x>1120+180 then	map[num].x=400
		/*
		//still have to work out why this section dont work
		if map[num].y<100 
			map[num].y=550
			if map[num].offset=0 
				map[num].offset=90
			else
				map[num].offset=0
			endif
			map[num].x=map[num].x+map[num].offset
			if map[num].x<400 then map[num].x=1120+180 //(+180)
			if map[num].x>1120+180 then	map[num].x=400
		endif			
		if map[num].y>550 
			map[num].y=100
			if map[num].offset=0 
				map[num].offset=90
			else
				map[num].offset=0
			endif
			map[num].x=map[num].x+map[num].offset
			if map[num].x<400 then map[num].x=1120+180 //(+180)
			if map[num].x>1120+180 then	map[num].x=400
		endif			
		*/
		
		SetSpritePositionByOffset(map[num].ID,map[num].x,map[num].y)
	next num	
endfunction	

// Project: codingtrain-terrain 
// Created: 2018-08-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global perlinheight=20
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, numberofcubes, inventorycubecount
 
 
global landsizex#=32
global landsizez#=32
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
 
 
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=1
cameraz#=landsizez#/2
 
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,.1
        inc offsety#,.1
    endif
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyPressed(38) then dec camerax#,.1
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    print (GetMemblockSize(memblock))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function buildlandscape(offsetx#, offsety#)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
    noiseterrain#=12.0 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for x#=1 to landsizex#
        for y#=1 to landsizez#
 
            //noise = 255.0*noise2d(x/120.0,y/120.0)
            colvertice1 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice2 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice3 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,(y#+offsety#)/noiseterrain#)*col)
            colvertice4 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice5 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice6 = checkcolorlevels(Noise2D(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
         
         
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0,   0,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,  ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice2)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0,   0,0, colvertice3)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0,   0,0, colvertice4)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice5)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice6)
 
     
        next
    next
 
 
    DeleteObject(meshobject)
meshobject = CreateObjectFromMeshTest(meshID)
 
     
endfunction meshobject
function checkcolorlevels(formula)
        //formula = abs(formula)
        if (formula<=0) then colvertice1=MakeColor(46,139,87)
        if (formula>-50) then colvertice1=MakeColor(100,100,0) // sand
        if (formula<-100) then colvertice1=MakeColor(0,0,70) // water
 
        if (formula>0) then colvertice1=MakeColor(0,100,0) //
        if (formula>100) then colvertice1=MakeColor(0,200,0)
        if (formula>200) then colvertice1=MakeColor(255,255,255)
 
endfunction colvertice1
 
function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction
 
 
function setupskyandfog()
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshTest(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
    //  SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
    //  SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
    //  SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    //next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
     
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
     
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
     
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
     
     
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
     
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
     
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
     
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
     
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
     
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
         
    s = (xin + yin) * PN3DF2
    xs = xin + s
     
    i = floor(xs)
    ys = yin + s
     
    j = floor(ys)
    t = (i + j) * PN3DG2
     
    x0 = xin - (i - t)
    y0 = yin - (j - t)
     
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
     
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
     
    i = i && 255
    j = j && 255
     
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
     
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
     
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
     
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
     
endfunction  70.0 * (n0 + n1 + n2)
/*
        AddVertex(meshID,x# *scale#     ,noise2d(x#,y#)*randomheight        ,y# *scale#         ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,(x#+scale#)*scale# ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#)*randomheight     ,y# *scale#             ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#)*col,0))
         
         
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#)*randomheight        ,y# * scale#                ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#-1)*randomheight      ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,Noise2D(x#+1,y#-1)*col,0))
*/

// Project: Populous 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous" )
SetWindowSize( screenwidth, screenheight, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
#constant 	KEY_ENTER        13
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40
type _map
	ID as integer
	imageID as integer
	imageNum as integer
	x as integer
	y as integer
	offset as integer
endtype
global map as _map[]
frameImg=LoadImage("frame.png")
FrameSpr=createSprite(frameImg)

SetSpriteDepth(frameSpr,0)
images as integer[3]
Images[0]=LoadImage("ground0.png")
Images[1]=LoadImage("ground1.png")
Images[2]=LoadImage("ground2.png")
Images[3]=LoadImage("ground3.png")

mapPiece as _map 
mapPiece.imageID=images[0]
mapPiece.imageNum=0 
for y= 200 to 850 step 32
	for x =100 to 1120 step 132
		mapPiece.ID=CreateSprite(mapPiece.imageID)
		mapPiece.x=x+offset:mapPiece.y=y:mapPiece.offset=offset
		SetSpritePositionByOffset(mapPiece.ID,mapPiece.x,mapPiece.y)
		map.insert(mapPiece)		
	next x
	if offset=0 
		offset=132/2
	else
		offset=0
	endif	
next y
Do
	SetSpriteDepth(frameSpr,100)
	if GetRawKeyState(KEY_UP)
		moveMap(map,0,-1)
	endif
	if GetRawKeyState(KEY_DOWN)
		moveMap(map,0,1)
	endif
	if GetRawKeyState(KEY_LEFT)
		moveMap(map,-1,0)
	endif
	if GetRawKeyState(KEY_RIGHT)
		moveMap(map,1,0)
	endif
	
	if ( GetPointerPressed ( ) = 1 )
		hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
        for num=0 to map.length
			if hit=map[num].ID 
				if map[num].imageNum <3 
					inc map[num].imageNum 
				else
					map[num].imageNum=0
				endif	
				setSpriteImage(map[num].ID,images[map[num].imageNum])
				SetSpriteSize(map[num].ID,GetImageWidth(images[map[num].imageNum]),GetImageHeight(images[map[num].imageNum]))
				//map[num].y=map[num].y-5
				//SetSpritePositionByOffset(map[num].ID,map[num].x,map[num].y)
			endif	
		next num
    endif
    
    
    
    print(map[0].x)
	print(map[0].y)
	print(map[map.length].x)
	print(map[map.length].y)
	
	
	SetSpriteDepth(frameSpr,0)
	
	sync()
loop	

function moveMap(map ref as _map[],x,y)
	for num=0 to map.length
		map[num].x=map[num].x+x
		map[num].y=map[num].y+y
		if map[num].x<100 then map[num].x=1120 +32 //(+132)
		if map[num].x>1120+32 then	map[num].x=100
		
		//still have to work out why this section dont work
		if map[num].y<200 then map[num].y=872
		if map[num].y>872 then map[num].y=200		
		SetSpritePositionByOffset(map[num].ID,map[num].x,map[num].y)
	next num	
endfunction	

// Project: Populous 
// Created: 2019-02-13

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous" )
SetWindowSize( screenwidth, screenheight, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
#constant 	KEY_ENTER        13
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40
type _map
	ID as integer
	imageID as integer
	imageNum as integer
	depth as integer
	x as integer
	y as integer
	offset as integer
endtype
global map as _map[]
frameImg=LoadImage("frame.png")
FrameSpr=createSprite(frameImg)

SetSpriteDepth(frameSpr,0)
images as integer[3]
Images[0]=LoadImage("ground0.png")
Images[1]=LoadImage("ground1.png")
Images[2]=LoadImage("ground2.png")
Images[3]=LoadImage("ground3.png")

mapPiece as _map 
mapPiece.imageID=images[0]
mapPiece.imageNum=0 
mapPiece.depth=30

for y= 200 to 850 step 32
	for x =100 to 1120 step 132
		mapPiece.ID=CreateSprite(mapPiece.imageID)
		mapPiece.x=x+offset:mapPiece.y=y:mapPiece.offset=offset
		SetSpritePositionByOffset(mapPiece.ID,mapPiece.x,mapPiece.y)
		SetSpriteDepth(mapPiece.ID,mapPiece.depth)
		map.insert(mapPiece)		
	next x
	mapPiece.depth=mapPiece.depth-1	
	if offset=0 
		offset=132/2
	else
		offset=0
	endif
next y
	
	
Do
	SetSpriteDepth(frameSpr,31)
	if GetRawKeyState(KEY_UP)
		moveMap(map,0,-1)
	endif
	if GetRawKeyState(KEY_DOWN)
		moveMap(map,0,1)
	endif
	if GetRawKeyState(KEY_LEFT)
		moveMap(map,-1,0)
	endif
	if GetRawKeyState(KEY_RIGHT)
		moveMap(map,1,0)
	endif

	
	if ( GetPointerPressed ( ) = 1 )
		hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
        for num=0 to map.length
			if hit=map[num].ID 
				if map[num].imageNum <3 
					inc map[num].imageNum 
				else
					map[num].imageNum=0
				endif	
				setSpriteImage(map[num].ID,images[map[num].imageNum])
				SetSpriteSize(map[num].ID,GetImageWidth(images[map[num].imageNum]),GetImageHeight(images[map[num].imageNum]))
				//map[num].y=map[num].y-5
				//SetSpritePositionByOffset(map[num].ID,map[num].x,map[num].y)
			endif	
		next num
    endif
	
	SetSpriteDepth(frameSpr,0)
	
	sync()
loop	

function moveMap(map ref as _map[],x,y)
	for num=0 to map.length
		map[num].x=map[num].x+x
		map[num].y=map[num].y+y
		if map[num].x<100 then map[num].x=1120 +32 //(+132)
		if map[num].x>1120+32 then	map[num].x=100
		
		//still have to work out why this section dont work
		if map[num].y<200 then map[num].y=872-32
		if map[num].y>872-32 then map[num].y=200	
		
		if map[Num].y <232 and map[Num].y>=200 
		elseif	map[Num].y <264 and map[Num].y >=232 
			map[num].depth=30
		elseif	map[Num].y <296 and map[Num].y >=264 
			map[num].depth=29
		elseif	map[Num].y <328 and map[Num].y >=296 
			map[num].depth=28
		elseif	map[Num].y <360 and map[Num].y >=328 
			map[num].depth=27
		elseif	map[Num].y <392 and map[Num].y >=360 
			map[num].depth=26
		elseif	map[Num].y <424 and map[Num].y >=392 
			map[num].depth=25
		elseif	map[Num].y <456 and map[Num].y >=424 
			map[num].depth=24
		elseif	map[Num].y <488 and map[Num].y >=456 
			map[num].depth=23
		elseif	map[Num].y <520 and map[Num].y >=488 
			map[num].depth=22
		elseif	map[Num].y <552 and map[Num].y >=520 
			map[num].depth=21
		elseif	map[Num].y <584 and map[Num].y >=552 
			map[num].depth=20
		elseif	map[Num].y <616 and map[Num].y >=584 
			map[num].depth=19
		elseif	map[Num].y <648 and map[Num].y >=616 
			map[num].depth=18
		elseif	map[Num].y <680 and map[Num].y >=648 
			map[num].depth=17
		elseif	map[Num].y <712 and map[Num].y >=680 
			map[num].depth=16
		elseif	map[Num].y <744 and map[Num].y >=712 
			map[num].depth=15
		elseif	map[Num].y <776 and map[Num].y >=744 
			map[num].depth=14
		elseif	map[Num].y <808 and map[Num].y >=776 
			map[num].depth=13
		elseif	map[Num].y <840 and map[Num].y >=808 
			map[num].depth=12
		else
			map[num].depth=11	
		endif
	
		
		SetSpritePositionByOffset(map[num].ID,map[num].x,map[num].y)
		SetSpriteDepth(map[num].ID,map[num].depth)
	next num
	
endfunction	

	if GetRawKeyState(KEY_UP)
		moveMap(map,-1,-1)
	endif
	if GetRawKeyState(KEY_DOWN)
		moveMap(map,1,1)
	endif
	if GetRawKeyState(KEY_LEFT)
		moveMap(map,-1,1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		moveMap(map,1,-1)
	endif

// Project: Populous v1 
// Created: 2019-02-16

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous v1" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant sizex=100
#constant sizez=100

global images as integer[4]



images[0] = LoadImage("\media\ground0.png")
images[1] = LoadImage("\media\north.png")
images[2] = LoadImage("\media\east.png")
images[3] = LoadImage("\media\south.png")
images[4] = LoadImage("\media\west.png")

land = CreateSprite(0)
SetSpriteSize(land,.01,.01)

SetSpriteSize(land,132,100)
type _map
	spr
	x
	z
	h
endtype
global map as _map[sizex,sizez]

// to help with a collision hit
global spritehitfirst as _map[]
shf as _map

// build
	for z=1 to sizex
		for x=1 to sizez
			map[x,z].spr = CloneSprite(land)
			map[x,z].x= x*GetSpriteWidth(map[x,z].spr)
			map[x,z].z= z* GetSpriteHeight(map[x,z].spr)
			map[x,z].h = -5 * GetSpriteHeight(map[x,z].spr)
			SetSpriteImage(map[x,z].spr,images[0])
		next
	next
DeleteSprite(land)

// create a mouse for collisiotn with tiles
mouse = CreateSprite(0)
SetSpriteSize(mouse,.1,.1)

size#=.32
// centre  the camera to the centre of the field
offsetx#=-sizex * 15
offsetz#=-sizez * 15

do
	SetSpritePosition(mouse,getpointerx(),getpointery())
	spritehitfirst.length=-1
			
	for z=1 to sizex
		for x=1 to sizez
			if mod(z,2)=0
				SetSpritePosition(map[x,z].spr,map[x,z].x + offsetx#,(map[x,z].z*size#-map[x,z].h)+offsetz#)
				if GetSpriteCollision(mouse,map[x,z].spr)=1
					SetSpritePosition(map[x,z].spr,map[x,z].x + offsetx#,(map[x,z].z)*size#-map[x,z].h-5+offsetz#)

					shf.x = x
					shf.z = z
					spritehitfirst.insert(shf)
				endif
			else
				
				SetSpritePosition(map[x,z].spr,(map[x,z].x+GetSpriteWidth(map[x,z].spr)/2)+offsetx#,(z* GetSpriteHeight(map[x,z].spr)*size#)-map[x,z].h+offsetz#)
				if GetSpriteCollision(mouse,map[x,z].spr)=1
					SetSpritePosition(map[x,z].spr,(map[x,z].x+GetSpriteWidth(map[x,z].spr)/2)+offsetx#,(z* GetSpriteHeight(map[x,z].spr)*size#)-map[x,z].h-5+offsetz#)
					shf.x = x
					shf.z = z
					spritehitfirst.insert(shf)
				endif
			endif
		next
	next
	
	// which tile is hit by the collision
	if GetRawMouseLeftPressed() then lifttile(spritehitfirst[spritehitfirst.length].x,spritehitfirst[spritehitfirst.length].z)
	if GetRawMouseRightPressed() then lowertile(spritehitfirst[spritehitfirst.length].x,spritehitfirst[spritehitfirst.length].z)
	
	if GetRawKeyState(37)  then dec offsetx#,1
	if GetRawKeyState(39) then inc offsetx#,1
	if GetRawKeyState(38) then dec offsetz#,1
	if GetRawKeyState(40) then inc offsetz#,1
    
    print ("Use cursors to move around the map")
    print (" Press Left to raise -- NOT finished yet, long way to go")
    

    Print( ScreenFPS() )
    Sync()
loop

function lifttile(x,z)
	inc map[x,z].h,16
	checkandsetboroughs(x,z)
endfunction

function lowertile(x,z)
	dec map[x,z].h,20

endfunction

function checkandsetboroughs(x,z)
	// check and change surrounding areas
	SetSpriteImage(map[x-1,z+1].spr,images[3]) //south
	inc map[x-1,z+1].h,16

	SetSpriteImage(map[x,z+1].spr,images[2]) //east
	inc map[x,z+1].h,16

	SetSpriteImage(map[x-1,z-1].spr,images[4]) //west
	inc map[x-1,z-1].h,8

	SetSpriteImage(map[x,z-1].spr,images[1]) // north
	inc map[x,z-1].h,8



endfunction

// Project: Populous Tile Checker 
// Created: 2019-02-16

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous Tile Checker" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


w = CreateSprite(LoadImage("\media\landscapeTiles_091.png"))
s = CreateSprite(LoadImage("\media\landscapeTiles_098.png"))
n = CreateSprite(LoadImage("\media\landscapeTiles_099.png"))
e = CreateSprite(LoadImage("\media\landscapeTiles_106.png"))
g = CreateSprite(LoadImage("\media\ground0.png"))
SetSpriteDepth(g,102)
SetSpriteDepth(w,103)
SetSpriteDepth(n,104)
SetSpriteDepth(e,101)

SetSpriteDepth(s,100)


wx#=0
wz#=0
sx#=0
sz#=0
nx#=0
nz#=0
ex#=0
ez#=0
gx#=0
gz#=0


do
	SetSpritePosition(s,sx#,sz#)
	SetSpritePosition(n,nx#,nz#)
	SetSpritePosition(w,wx#,wz#)
	SetSpritePosition(e,ex#,ez#)
	SetSpritePosition(g,gx#,gz#)
	
	
	if GetRawKeyState(87) // W
	west=0
	south=0
	north=0
	east=0
	ground=0
		west=1
	endif
	if GetRawKeyState(83) // S
	west=0
	south=0
	north=0
	east=0
	ground=0
		south=1
	endif

	if GetRawKeyState(78) // N
	west=0
	south=0
	north=0
	east=0
	ground=0
		north=1
	endif
	
	if GetRawKeyState(69) // E
	west=0
	south=0
	north=0
	east=0
	ground=0
		east=1
	endif


	if GetRawKeyState(71) // G
	west=0
	south=0
	north=0
	east=0
		
		ground=1
	endif
	
	
	
	if GetRawKeyState(37)
		if west=1 then dec wx#,.1
		if south=1 then dec sx#,.1
		if north=1 then dec nx#,.1
		if east=1 then dec ex#,.1
		if ground=1 then dec gx#,.1
	endif

	if GetRawKeyState(39)
		if west=1 then inc wx#,.1
		if south=1 then inc sx#,.1
		if north=1 then inc nx#,.1
		if east=1 then inc ex#,.1
		if ground=1 then inc gx#,.1
	endif

	
	if GetRawKeyState(38)
		if west=1 then dec wz#,.1
		if south=1 then dec sz#,.1
		if north=1 then dec nz#,.1
		if east=1 then dec ez#,.1
	if ground=1 then dec gz#,.1
	endif
	

	if GetRawKeyState(40)
		if west=1 then inc wz#,.1
		if south=1 then inc sz#,.1
		if north=1 then inc nz#,.1
		if east=1 then inc ez#,.1
		if ground=1 then inc gz#,.1
	endif



	
	
	Print ("Press W for West tile, N for North Tile, S for South, E for East, G for Ground Tile")
	print ("Then press cursors to move that tile into position")
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: Populous Tile Checker 
// Created: 2019-02-16

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "Populous Tile Checker" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


w = CreateSprite(LoadImage("\media\landscapeTiles_091.png"))
s = CreateSprite(LoadImage("\media\landscapeTiles_098.png"))
n = CreateSprite(LoadImage("\media\landscapeTiles_099.png"))
e = CreateSprite(LoadImage("\media\landscapeTiles_106.png"))
nw = CreateSprite(LoadImage("\media\landscapeTiles_021.png"))
sw = CreateSprite(LoadImage("\media\landscapeTiles_028.png"))
se = CreateSprite(LoadImage("\media\landscapeTiles_036.png"))
ne = CreateSprite(LoadImage("\media\landscapeTiles_029.png"))
g = CreateSprite(LoadImage("\media\ground0.png"))
SetSpriteDepth(g,102)
SetSpriteDepth(w,103)
SetSpriteDepth(n,104)
SetSpriteDepth(e,101)

SetSpriteDepth(sw,101)
SetSpriteDepth(s,100)
SetSpriteDepth(se,99)


SetSpriteDepth(ne,102)
SetSpriteDepth(nw,110)





global west=0
	global south=0
	global north=0
	global east=0
	global neast=0
	global nwest=0
	global seast=0
	global swest=0
global ground=0

wx#=0
wz#=0
sx#=0
sz#=0
nx#=0
nz#=0
ex#=0
ez#=0
gx#=0
gz#=0

nnwx#=0
nnex#=0
ssex#=0
sswx#=0

nnwz#=0
nnez#=0
ssez#=0
sswz#=0

do
	SetSpritePosition(s,sx#,sz#)
	SetSpritePosition(n,nx#,nz#)
	SetSpritePosition(w,wx#,wz#)
	SetSpritePosition(e,ex#,ez#)
	SetSpritePosition(g,gx#,gz#)
	
	SetSpritePosition(ne,nnex#,nnez#)
	SetSpritePosition(nw,nnwx#,nnwz#)
	SetSpritePosition(se,ssex#,ssez#)
	SetSpritePosition(sw,sswx#,sswz#)
	
	
	if GetRawKeyState(87) // W
		reset()
		west=1
	endif
	if GetRawKeyState(83) // S
	reset()
		south=1
	endif

	if GetRawKeyState(78) // N
		reset()
		north=1
	endif
	
	if GetRawKeyState(69) // E
reset()
		east=1
	endif


	if GetRawKeyState(71) // G
		reset()
		ground=1
	endif
	
	if GetRawKeyPressed(49)
		reset()
		neast=1
	endif
	
	if GetRawKeyPressed(50)
reset()
		seast=1
	endif

if GetRawKeyPressed(51)
		
		reset()
		swest=1
	endif
	if GetRawKeyPressed(52)
		reset()
		nwest=1
	endif
	
		
	
	print(GetRawLastKey())
	if GetRawKeyState(37)
		if west=1 then dec wx#,.1
		if south=1 then dec sx#,.1
		if north=1 then dec nx#,.1
		if east=1 then dec ex#,.1
		if ground=1 then dec gx#,.1
		if neast=1 then dec nnex#,.1
		if seast=1 then dec ssex#,.1
		if swest=1 then dec sswx#,.1
		if nwest=1 then dec nnwx#,.1
		
	endif

	if GetRawKeyState(39)
		if west=1 then inc wx#,.1
		if south=1 then inc sx#,.1
		if north=1 then inc nx#,.1
		if east=1 then inc ex#,.1
		if ground=1 then inc gx#,.1
		if neast=1 then inc nnex#,.1
		if seast=1 then inc ssex#,.1
		if swest=1 then inc sswx#,.1
		if nwest=1 then inc nnwx#,.1

	endif

	
	if GetRawKeyState(38)
		if west=1 then dec wz#,.1
		if south=1 then dec sz#,.1
		if north=1 then dec nz#,.1
		if east=1 then dec ez#,.1
	if ground=1 then dec gz#,.1
		if neast=1 then dec nnez#,.1
		if seast=1 then dec ssez#,.1
		if swest=1 then dec sswz#,.1
		if nwest=1 then dec nnwz#,.1

	endif
	

	if GetRawKeyState(40)
		if west=1 then inc wz#,.1
		if south=1 then inc sz#,.1
		if north=1 then inc nz#,.1
		if east=1 then inc ez#,.1
		if ground=1 then inc gz#,.1
		if neast=1 then inc nnez#,.1
		if seast=1 then inc ssez#,.1
		if swest=1 then inc sswz#,.1
		if nwest=1 then inc nnwz#,.1

	endif



	
	
	Print ("Press W for West tile, N for North Tile, S for South, E for East, G for Ground Tile")
	print ("Then press cursors to move that tile into position")
	

    Print( ScreenFPS() )
    Sync()
loop

function reset()
	west=0
	south=0
	north=0
	east=0
	neast=0
	nwest=0
	seast=0
	swest=0
	ground=0
endfunction