Sorry your browser is not supported!

// Project: heights 
// Created: 2019-01-01
    
// show all errors
SetErrorMode(2)
    
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

    
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=9 // change this to extend the map
#constant sizez=9 // change this to exeend the map
#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
  
size=5
  
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
   
global map as _map[sizex,sizez]
  
global vertexnumber
 
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
 
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)

edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)

edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)


edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)

edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)


colorgreen=150
for x=1 to sizex
    for z=1 to sizez
        map[x,z].id = CreateObjectBox(scale#,scale#,scale#)
        map[x,z].x# = x * GetObjectSizeMaxX(map[x,z].id)*2 // Remove the * 2 to join the cubes together
        map[x,z].height#=random(0,0)
        map[x,z].z# = z * GetObjectSizeMaxZ(map[x,z].id)*2 // Remove the * 2 to join the cubes together
 
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                 
        map[x,z].colorgreen =colorGreen 
        SetObjectImage(map[x,z].id,textimages[0],0)
         
        Create3DPhysicsStaticBody(map[x,z].id)   
        SetObjectColor(map[x,z].id,0,map[x,z].colorgreen,0,255)
        SetObjectPosition(map[x,z].id,map[x,z].x#,0,map[x,z].z#)
        FixObjectToObject(map[x,z].id,land)
                 
    next
next
  
RotateObjectLocalY(land,316)
prepareheights()
   
camerax#=0
cameray#=30
cameraz#=-20
SetCameraRotation(1,26,0,0)
  
   
// frameImg=LoadImage("\media\frame2.png")
//FrameSpr=createSprite(frameImg) 
do
  /* 
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))

   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
*/

//    SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
  
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + camerax#
        start_y# = unit_y# + cameray#
        start_z# = unit_z# - cameraz#
  
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 800*unit_x# + camerax#
        end_y# = 800*unit_y# + cameray#
        end_z# = 800*unit_z# - cameraz#
  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
  
        // if an object has been hit then turn it red
  
        
        if object_hit <> 0
		
            x=getobjectx(object_hit)/scale#
            z=getobjectz(object_hit)/scale#
              
        else
        endif
  
  
      
    if GetRawKeyState(13)
        RotateObjectLocalY(land,.05)
    endif
    if GetRawMouseLeftState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
  
  
    if GetRawMouseRightState()
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 and map[x,z].height#>0
            dec map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,-.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
      
    if GetRawkeypressed	(27) 
        flag=1
        if x<2 or x>sizex-1 then flag=0
        if z<2 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
             
        endif
         
    endif 
  
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
       
         movecamera()
  
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop
  
function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
    
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
    
function changeverts(x,z,slope#)
       
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
     
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
   
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
   
               
    for i=0 to 23
           
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
   
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
   
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
    
   
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
   
   
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
   
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
          
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
   
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
   
    next
       
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
   
   
   
   
   
   
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
    
    
endfunction
 
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
   
function createtexture(sizex# as float, sizey# as float, color, density as integer)
   
       
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
       
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
       
       
        size=GetMemblockSize(memblockid)
   
        for offset=12 to size-4 step 4
         
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
               
           
            strength=random(1,density)
   
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                
           
    next
       
    deleteimage (img)
       
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
   
   
endfunction img

// 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


#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105


type _tower
	SpriteID as integer
	x as float
	y as float
	Height as integer
	imageNum as integer
endtype	

type _SprBlock
    OldID as integer
    ID as integer       //the id of the object
    imgID as integer
    xPos as integer
    yPos as integer
    xDirection as float
    yDirection as float
    timer as float
endtype

type _Shatter
	ID as integer
	flag as integer
endtype	
	
//setup you need to create 3D isometric graphics
SetCameraFOV(1,0) //Orthographic View
SetCameraRotation(1,35.264,45,0)
SetCameraPosition(1,-10,10,-10)
SetCameraRange(1,1,99999)

//images as integer[7]
//Images[0]=LoadImage("ground0.png")
//Images[1]=LoadImage("ground1.png")
//Images[2]=LoadImage("ground1b.png")

//Images[3]=LoadImage("ground2.png")
//Images[4]=LoadImage("ground3.png")
//Images[5]=LoadImage("ground4.png")
//Images[6]=LoadImage("ground5.png")
//Images[7]=LoadImage("ground6.png")

//images as integer[127]
//for num = 0 to 127 step 1
//	Images[num]=LoadImage("landscapeTiles_"+str(num)+".png")
//next num

images as integer[7]
for num = 0 to 6 step 1
	Images[num]=LoadImage("ground"+str(num)+".png")
next num


global Tower as _tower[20,20]
for y= 0 to 19 step 1
	for x =0 to 19 step 1
		
		Tower[x,y].SpriteID=createSprite(images[0])
		//Tower[x,y].x=GetIsometricX(x,y,GetImageWidth(images[0]))
		//Tower[x,y].y=GetIsometricY(x,y,GetImageHeight(images[0]))
		Tower[x,y].x=x*132+(50+offset)
		Tower[x,y].y=y*32+200
		SetIsometricHeight(x,y,1)
		SetSpritePositionByOffset(Tower[x,y].SpriteID,Tower[x,y].x,Tower[x,y].y)
		SetSpriteShape(Tower[x,y].SpriteID,3) 
		
	next x
	if offset=0 
		offset=132/2
	else
		offset=0
	endif
next y	


shattering as _shatter
shattering.ID=0:shattering.flag=0
frameImg=LoadImage("frame2.png")
FrameSpr=createSprite(frameImg)	
SprBlocks as _SprBlock[]
do
//The Screen to Tile position takes the pointer position (I think you need to convert it to world position before) and gives you the tiles x and z Index of the Grid array.
//TileX=(PointerX#/(TileSizeX*0.5)+(PointerY#/(TileSizeY/3)))*0.5
//TileY=(PointerY#/(TileSizeY/3)-(PointerX#/(TileSizeX*0.5)))*0.5

	SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work

	
	if GetRawKeyState(KEY_NUMPAD_8)
		moveMap(0,-1)
	endif
	if GetRawKeyState(KEY_NUMPAD_2)
		moveMap(0,1)
	endif
	if GetRawKeyState(KEY_NUMPAD_4)
		moveMap(-1,0)
	endif
	if GetRawKeyState(KEY_NUMPAD_6)
		moveMap(1,0)
	endif
	
	if GetRawKeyState(KEY_NUMPAD_7)
		moveMap(-1,-0.5)
	endif
	if GetRawKeyState(KEY_NUMPAD_9)
		moveMap(1,-0.5)
	endif
	if GetRawKeyState(KEY_NUMPAD_1)
		moveMap(-1,0.5)
	endif
	if GetRawKeyState(KEY_NUMPAD_3)
		moveMap(1,0.5)
	endif
	

	if GetRawMouseLeftPressed() 
		hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
        for y= 0 to 19 step 1
			for x =0 to 19 step 1
				if hit=Tower[x,y].SpriteID
					if Tower[x,y].imageNum <images.length 
						inc Tower[x,y].imageNum 
					else
						Tower[x,y].imageNum=0
					endif	
					setSpriteImage(Tower[x,y].SpriteID,images[Tower[x,y].imageNum])
					SetSpriteSize(Tower[x,y].SpriteID,GetImageWidth(images[Tower[x,y].imageNum]),GetImageHeight(images[Tower[x,y].imageNum]))
					SetIsometricHeight(x,y,1)
					SetSpritePositionByOffset(Tower[x,y].SpriteID,Tower[x,y].x,Tower[x,y].y)
				endif	
			next x
		next y	
    endif
	
	if GetRawMouseRightPressed() 
		hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
        for y= 0 to 19 step 1
			for x =0 to 19 step 1
				if hit=Tower[x,y].SpriteID
					if Tower[x,y].imageNum >0 
						dec Tower[x,y].imageNum 
					else
						Tower[x,y].imageNum=images.length 
					endif	
					setSpriteImage(Tower[x,y].SpriteID,images[Tower[x,y].imageNum])
					SetSpriteSize(Tower[x,y].SpriteID,GetImageWidth(images[Tower[x,y].imageNum]),GetImageHeight(images[Tower[x,y].imageNum]))
					SetIsometricHeight(x,y,1)
					SetSpritePositionByOffset(Tower[x,y].SpriteID,Tower[x,y].x,Tower[x,y].y)
				endif	
			next x
		next y	
    endif
    
    if GetRawMouseMiddlePressed() 
		hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
        for y= 0 to 19 step 1
			for x =0 to 19 step 1
				if hit=Tower[x,y].SpriteID and shattering.flag=0
					SetSpriteVisible(frameSpr,0)
					ShatterInit(Tower[x,y].SpriteID,images[Tower[x,y].imageNum],SprBlocks)
					shattering.ID=Tower[x,y].SpriteID:shattering.flag=1
					SetSpriteVisible(frameSpr,1)
				endif
			next x
		next y			
	endif
    
    if shattering.flag=1 then ShatterSprite(shattering,SprBlocks)
	SetSpriteDepth(frameSpr,0)
sync()
loop
function moveMap(xx as float,yy as float)
	for y= 0 to 19 step 1
		for x =0 to 19 step 1
			Tower[x,y].x=Tower[x,y].x+xx
			Tower[x,y].y=Tower[x,y].y+yy
			
			if Tower[x,y].x<50 then Tower[x,y].x=2690
			if Tower[x,y].x>2690 then Tower[x,y].x=50
		
			if Tower[x,y].y<200 then Tower[x,y].y=840
			if Tower[x,y].y>840 then Tower[x,y].y=200	
			//SetIsometricHeight(x,y,1)
			SetSpritePositionByOffset(Tower[x,y].SpriteID,Tower[x,y].x,Tower[x,y].y)
			
			//not the best of methods to calculate drawing depths but it works
			if Tower[x,y].y <232 and Tower[x,y].y>=200 
				SetSpriteDepth(Tower[x,y].SpriteID,99)
			elseif	Tower[x,y].y <264 and Tower[x,y].y >=232 
				SetSpriteDepth(Tower[x,y].SpriteID,98)
			elseif	Tower[x,y].y <296 and Tower[x,y].y >=264 
				SetSpriteDepth(Tower[x,y].SpriteID,97)
			elseif	Tower[x,y].y <328 and Tower[x,y].y >=296 
				SetSpriteDepth(Tower[x,y].SpriteID,96)
			elseif	Tower[x,y].y <360 and Tower[x,y].y >=328 
				SetSpriteDepth(Tower[x,y].SpriteID,95)
			elseif	Tower[x,y].y <392 and Tower[x,y].y >=360 
				SetSpriteDepth(Tower[x,y].SpriteID,94)
			elseif	Tower[x,y].y <424 and Tower[x,y].y >=392 
				SetSpriteDepth(Tower[x,y].SpriteID,93)
			elseif	Tower[x,y].y <456 and Tower[x,y].y >=424 
				SetSpriteDepth(Tower[x,y].SpriteID,92)
			elseif	Tower[x,y].y <488 and Tower[x,y].y >=456 
				SetSpriteDepth(Tower[x,y].SpriteID,91)
			elseif	Tower[x,y].y <520 and Tower[x,y].y >=488 
				SetSpriteDepth(Tower[x,y].SpriteID,90)
			elseif	Tower[x,y].y <552 and Tower[x,y].y >=520 
				SetSpriteDepth(Tower[x,y].SpriteID,89)
			elseif	Tower[x,y].y <584 and Tower[x,y].y >=552 
				SetSpriteDepth(Tower[x,y].SpriteID,88)
			elseif	Tower[x,y].y <616 and Tower[x,y].y >=584 
				SetSpriteDepth(Tower[x,y].SpriteID,87)
			elseif	Tower[x,y].y <648 and Tower[x,y].y >=616 
				SetSpriteDepth(Tower[x,y].SpriteID,86)
			elseif	Tower[x,y].y <680 and Tower[x,y].y >=648 
				SetSpriteDepth(Tower[x,y].SpriteID,85)
			elseif	Tower[x,y].y <712 and Tower[x,y].y >=680 
				SetSpriteDepth(Tower[x,y].SpriteID,84)
			elseif	Tower[x,y].y <744 and Tower[x,y].y >=712 
				SetSpriteDepth(Tower[x,y].SpriteID,83)
			elseif	Tower[x,y].y <776 and Tower[x,y].y >=744 
				SetSpriteDepth(Tower[x,y].SpriteID,82)
			elseif	Tower[x,y].y <808 and Tower[x,y].y >=776 
				SetSpriteDepth(Tower[x,y].SpriteID,81)
			elseif	Tower[x,y].y <840 and Tower[x,y].y >=808 
				SetSpriteDepth(Tower[x,y].SpriteID,80)
			else
				SetSpriteDepth(Tower[x,y].SpriteID,79)	
			endif
			
		next x
	next y	
	
endfunction	
/////////////////////////////////////////////////////////////
//jambos Genius functions
//calculate the position 
function GetIsometricX(TileX,TileY,TileSizeX)
	TileX=(TileX-TileY)*TileSizeX*0.5
endfunction TileX

function GetIsometricY(TileX,TileY,TileSizeY)
	TileY=(TileX+TileY)*(TileSizeY/3.0)
endfunction TileY

//The Height 
function SetIsometricHeight(TileX,TileY,Height)
	Tower[TileX,TileY].Height=Height
	SetSpriteOffset(Tower[TileX,TileY].SpriteID,GetSpriteWidth(Tower[TileX,TileY].SpriteID)*0.5,(GetSpriteHeight(Tower[TileX,TileY].SpriteID)-33)-Tower[TileX,TileY].Height*8.25)
endfunction
////////////////////////////////////////////////////////////////////

function ShatterInit(spr as integer,img as integer,SprBlocks ref as _SprBlock[])
    tempBlock as _SprBlock
    x#=GetSpriteX(spr):y#=getSpriteY(spr)
    maxX=GetImageWidth(img):maxY=GetImageHeight(img)
    ClearScreen()
    SetSpritePosition(spr,0,0)
    DrawSprite(spr) 
    render()
    for y=0 to maxY step MaxY/8
        for x=0 to maxX step maxX/8
            tempBlock.imgID=GetImage(x,y,x+(maxX/16),y+(maxY/16))
            SetImageTransparentColor(tempBlock.imgID,0,0,0)
            tempBlock.OldID=Spr
            tempBlock.ID=createSprite(tempBlock.imgID)
            SetSpriteVisible(tempBlock.ID,0)
            tempBlock.xPos=x+x#
            tempBlock.yPos=y+y#
            tempBlock.xDirection=random2(-2,2)
            tempBlock.yDirection=random2(-2,2)
            tempBlock.timer=timer()
            SprBlocks.insert(tempBlock)
        next x
    next y
    SetSpritePosition(spr,x#,y#)
endfunction
 
function ShatterSprite(shattering ref as _shatter,SprBlocks ref as _SprBlock[])
    SetSpriteVisible(shattering.ID,0)
    for num=0 to SprBlocks.length
        if SprBlocks[num].OldID=shattering.ID
            SprBlocks[num].xPos=SprBlocks[num].xPos+SprBlocks[num].xDirection
            SprBlocks[num].yPos=SprBlocks[num].yPos+SprBlocks[num].yDirection
            SetSpritePosition(SprBlocks[num].ID,SprBlocks[num].xPos,SprBlocks[num].yPos)    
            SetSpriteVisible(SprBlocks[num].ID,1)
        endif
    next num
     
    for num=SprBlocks.length to 0 step -1
        if SprBlocks[num].OldID=shattering.ID
            if SprBlocks[num].timer+1<timer()
                DeleteSprite(SprBlocks[num].ID)
                DeleteImage(SprBlocks[num].imgID)
                SprBlocks.remove(num)
            endif   
        endif  
    next num
    if SprBlocks.length <=0 then shattering.flag=0
endfunction

colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
	for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
 
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                 
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
         
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                 
    next
next

#constant sizex=10 // change this to extend the map
#constant sizez=10 // change this to exend the map

for xx=-sizex/2 to sizex/2 step 1
			for zz=-sizez/2 to sizez/2 step 1.0
				if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
					x=xx
					z=zz
				endif	
			next zz
		next xx

// Project: heights 
// Created: 2019-01-01
    
// show all errors
SetErrorMode(2)
    
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_ENTER        13
    
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=10 // change this to extend the map
#constant sizez=10 // change this to exend the map
#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
  
size=5
  
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
   
global map as _map[sizex,sizez]
  
global vertexnumber
 
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
 
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)
/*
edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)

edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)


edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)

edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)
*/

colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
	for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
 
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                 
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
         
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                 
    next
next
  
RotateObjectLocalY(land,316)
prepareheights()
   
camerax#=0
cameray#=30
cameraz#=-20
SetCameraRotation(1,26,0,0)
   
//frameImg=LoadImage("\media\frame2.png")
//frameSpr=createSprite(frameImg) 
//SetSpriteShape(frameSPr,3) 
do
  /* 
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))

   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
*/

//    SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
  
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
  
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)
  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
  
        //if object_hit <> 0
		//	x=GetObjectX(object_hit)/scale#
		//	z=GetObjectZ(object_hit)/scale#
		//endif		
        if object_hit <> 0
			for xx=-sizex/2 to sizex/2 step 1
				for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx
						z=zz
					endif	
				next zz
			next xx	
        endif
  
  
      
    if GetRawKeyState(13)
        RotateObjectLocalY(land,.05)
    endif
    if GetRawMouseLeftState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
  
  
    if GetRawMouseRightState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
			if map[x,z].height#>0
				dec map[x,z].height#,.01
				SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
				changeverts(x,z,-.01)
				Delete3DPhysicsBody(map[x,z].id) 
				Create3DPhysicsStaticBody(map[x,z].id)
            endif    
        endif
    endif
      
    if GetRawkeypressed	(KEY_ENTER) and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
             
        endif
         
    endif 
  
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
       
         movecamera()
  
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop
  
function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
    
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
    
function changeverts(x,z,slope#)
       
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
     
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
   
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
   
               
    for i=0 to 23
           
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
   
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
   
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
    
   
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
   
   
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
   
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
          
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
   
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
   
    next
       
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
   
   
   
   
   
   
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
    
    
endfunction
 
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
   
function createtexture(sizex# as float, sizey# as float, color, density as integer)
   
       
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
       
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
       
       
        size=GetMemblockSize(memblockid)
   
        for offset=12 to size-4 step 4
         
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
               
           
            strength=random(1,density)
   
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                
           
    next
       
    deleteimage (img)
       
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
   
   
endfunction img

CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
      
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
    
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges

    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# - GetCameraZ(1)
   
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# - GetCameraZ(1)
   
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
   
        if object_hit <> 0
          x=GetObjectX(object_hit)/scale#
          z=GetObjectZ(object_hit)/scale#
        endif     
        
        // added by Fubarpk
        if object_hit <> 0
            for xx=-sizex/2 to sizex/2 step 1
                for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx
                        z=zz
                        
                    endif  
                next zz
            next xx 
        endif

CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
       
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
     
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges

	if GetRawKeyState(37) then movemap(-.01,0)
	if GetRawKeyState(39) then movemap(.01,0)
	if GetRawKeyState(38) then movemap(0,.01)
	if GetRawKeyState(40) then movemap(0,-.01)


function movemap(xdir#,zdir#)
	for x=-sizex/2 to sizex/2 step 1.0
		for z=-sizez/2 to sizez/2 step 1.0
			inc map[x+sizex/2,z+sizez/2].x#, xdir# 
			inc map[x+sizex/2,z+sizez/2].z#, zdir#
  
  // roll
			if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = (sizex+GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)) * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id) - sizex/2
			//if map[x+sizex/2,z+sizez/2].z#<-sizez*2 then map[x+sizex/2,z+sizez/2].z# = -sizez * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)


  
			SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next

        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# + GetCameraZ(1)
           
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# + GetCameraZ(1)  

// Project: heights 
// Created: 2019-01-01
     
// show all errors
SetErrorMode(2)
     
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_ENTER        13
     
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=12 // change this to extend the map
#constant sizez=12 // change this to exend the map

#constant worldsizex=100
#constant worldsizez=100

#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
   
size=5
   
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
    
global map as _map[sizex,sizez]

global vertexnumber
  
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
  
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)
/*
edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)
 
edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)
 
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)
*/
 
colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
    for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
  
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                  
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
          
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                  
    next
next
   
RotateObjectLocalY(land,316)
prepareheights()
    
camerax#=0
cameray#=30
cameraz#=0

SetCameraRotation(1,26,0,0)
    
//frameImg=LoadImage("\media\frame2.png")
//frameSpr=createSprite(frameImg) 
//SetSpriteShape(frameSPr,3) 
do
  
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))
 
   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
	print(GetRawLastKey())

 
//    SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
   
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# + GetCameraZ(1)
           
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# + GetCameraZ(1)  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
   
        
        // added by Fubarpk 
        if object_hit <> 0
            for xx=-sizex/2 to sizex/2 step 1
                for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx+sizex/2
                        z=zz+sizez/2
                        
                    endif  
                next zz
            next xx 
        endif
  
   
       
    if GetRawKeyState(49) // Press 1 to rotate
        RotateObjectLocalY(land,.05)
    endif
    
    
    
    if GetRawMouseLeftState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
   
   
    if GetRawMouseRightState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            if map[x,z].height#>0
                dec map[x,z].height#,.01
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            endif   
        endif
    endif
       
    if GetRawkeypressed (KEY_ENTER) and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
              
        endif
          
    endif
   
   
	if GetRawKeyState(37) then movemap(-.01,0)
	if GetRawKeyState(39) then movemap(.01,0)
	if GetRawKeyState(38) then movemap(0,.01)
	if GetRawKeyState(40) then movemap(0,-.01)

   
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
        
         movecamera()
   
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop

function movemap(xdir#,zdir#)
	for x=-sizex/2 to sizex/2 step 1.0
		for z=-sizez/2 to sizez/2 step 1.0
			inc map[x+sizex/2,z+sizez/2].x#, xdir# 
			inc map[x+sizex/2,z+sizez/2].z#, zdir#
  
  // roll
			if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = (sizex+GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)) * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id) - sizex/2
			//if map[x+sizex/2,z+sizez/2].z#<-sizez*2 then map[x+sizex/2,z+sizez/2].z# = -sizez * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)


  
			SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next
	
endfunction

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
     
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
     
function changeverts(x,z,slope#)
        
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
      
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
    
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
    
                
    for i=0 to 23
            
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
    
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
    
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
     
    
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
    
    
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
    
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
           
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
    
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
    
    next
        
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
    
    
    
    
    
    
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
     
     
endfunction
  
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    
        
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
        
        size=GetMemblockSize(memblockid)
    
        for offset=12 to size-4 step 4
          
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
                
            
            strength=random(1,density)
    
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                 
            
    next
        
    deleteimage (img)
        
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
    
    
endfunction img

// Project: heights 
// Created: 2019-01-01
     
// show all errors
SetErrorMode(2)
     
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_ENTER        13
     
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=12 // change this to extend the map
#constant sizez=12 // change this to exend the map

#constant worldsizex=100
#constant worldsizez=100

#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
   
size=5
   
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
    
global map as _map[sizex,sizez]

global vertexnumber
  
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
  
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)
/*
edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)
 
edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)
 
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)
*/
 
colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
    for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
  
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                  
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
          
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                  
    next
next
   
RotateObjectLocalY(land,316)
prepareheights()
    
camerax#=0
cameray#=30
cameraz#=-70

SetCameraRotation(1,26,0,0)
    
//frameImg=LoadImage("\media\frame2.png")
//frameSpr=createSprite(frameImg) 
//SetSpriteShape(frameSPr,3) 
do
  /*
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))
 
   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
	print(GetRawLastKey())
*/
 
//    SetSpriteDepth(frameSpr,100) //set the frame to behind all tiles to allow clicking to work
   
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# + GetCameraZ(1)
           
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# + GetCameraZ(1)  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
   
        
        // added by Fubarpk 
        if object_hit <> 0
            for xx=-sizex/2 to sizex/2 step 1
                for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx+sizex/2
                        z=zz+sizez/2
                        
                    endif  
                next zz
            next xx 
        endif
  
   
       
    if GetRawKeyState(49) // Press 1 to rotate
        RotateObjectLocalY(land,.05)
    endif
    
    
    
    if GetRawMouseLeftState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
   
   
    if GetRawMouseRightState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            if map[x,z].height#>0
                dec map[x,z].height#,.01
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            endif   
        endif
    endif
       
    if GetRawkeypressed (KEY_ENTER) and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
              
        endif
          
    endif
   
   
	if GetRawKeyState(37) then movemap(-.05,0)
	if GetRawKeyState(39) then movemap(.05,0)
	if GetRawKeyState(38) then movemap(0,.05)
	if GetRawKeyState(40) then movemap(0,-.05)

   
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
        
         movecamera()
   
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Sync()
loop

function movemap(xdir#,zdir#)
	for x=-sizex/2 to sizex/2 step 1.0
		for z=-sizez/2 to sizez/2 step 1.0
			inc map[x+sizex/2,z+sizez/2].x#, xdir# 
			inc map[x+sizex/2,z+sizez/2].z#, zdir#
  
  // roll
			if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = sizex/2 * scale#
			if map[x+sizex/2,z+sizez/2].x#>sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = -sizex/2 * scale#


			if map[x+sizex/2,z+sizez/2].z#<-sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = sizez/2 * scale#
			if map[x+sizex/2,z+sizez/2].z#>sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = -sizez/2 * scale#



  
			SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next
	
endfunction

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
     
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
     
function changeverts(x,z,slope#)
        
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
      
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
    
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
    
                
    for i=0 to 23
            
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
    
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
    
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
     
    
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
    
    
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
    
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
           
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
    
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
    
    next
        
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
    
    
    
    
    
    
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
     
     
endfunction
  
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    
        
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
        
        size=GetMemblockSize(memblockid)
    
        for offset=12 to size-4 step 4
          
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
                
            
            strength=random(1,density)
    
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                 
            
    next
        
    deleteimage (img)
        
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
    
    
endfunction img

function movemap(xdir#,zdir#)
    for x=-sizex/2 to sizex/2 step 1.0
        for z=-sizez/2 to sizez/2 step 1.0
            inc map[x+sizex/2,z+sizez/2].x#, xdir# 
            inc map[x+sizex/2,z+sizez/2].z#, zdir#
   
  // roll
            if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = sizex/2 * scale#
            if map[x+sizex/2,z+sizez/2].x#>sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = -sizex/2 * scale#
 
 
            if map[x+sizex/2,z+sizez/2].z#<-sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = sizez/2 * scale#
            if map[x+sizex/2,z+sizez/2].z#>sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = -sizez/2 * scale#
 
 
 
   
            SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next
     
endfunction

// Project: heights 
// Created: 2019-01-01
     
// show all errors
SetErrorMode(2)
     
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_ENTER        13
#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105
     
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=14 // change this to extend the map
#constant sizez=14 // change this to exend the map

#constant worldsizex=100
#constant worldsizez=100

#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
   
size=5
   
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
    
global map as _map[sizex,sizez]

global vertexnumber
  
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
  
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)
/*
edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)
 
edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)
 
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)
*/
 
colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
    for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
  
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                  
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
          
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                  
    next
next
   
RotateObjectLocalY(land,316)
//RotateObjectLocalX(land,-70)
prepareheights()
    
camerax#=0
//cameray#=30
cameray#=50
cameraz#=-70

SetCameraRotation(1,26,0,0)
    
frameImg=LoadImage("\media\frame2.png")
frameSpr=createSprite(frameImg) 
SetSpriteShape(frameSPr,3) 

do
  /*
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))
 
   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
	print(GetRawLastKey())
*/
 
    SetSpriteActive(frameSpr,0) 
   
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# + GetCameraZ(1)
           
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# + GetCameraZ(1)  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
   
        
        // added by Fubarpk 
        if object_hit <> 0
            for xx=-sizex/2 to sizex/2 step 1
                for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx+sizex/2
                        z=zz+sizez/2
                        
                    endif  
                next zz
            next xx 
        endif
  
   
       
    //if GetRawKeyState(49) // Press 1 to rotate
        //RotateObjectLocalY(land,.05)
    //endif
    
    
    
    if GetRawMouseLeftState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
   
   
    if GetRawMouseRightState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            if map[x,z].height#>0
                dec map[x,z].height#,.01
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            endif   
        endif
    endif
       
    if GetRawkeypressed (KEY_ENTER) 
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
              
        endif
          
    endif
   
/*   
	if GetRawKeyState(KEY_NUMPAD_4) then movemap(-0.05,0)
	if GetRawKeyState(KEY_NUMPAD_6) then movemap(0.05,0)
	if GetRawKeyState(KEY_NUMPAD_8) then movemap(0,0.05)
	if GetRawKeyState(KEY_NUMPAD_2) then movemap(0,-0.05)

	if GetRawKeyState(KEY_NUMPAD_7) then movemap(-0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_9) then movemap(0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_3) then movemap(0.05,-0.05)
	if GetRawKeyState(KEY_NUMPAD_1) then movemap(-0.05,-0.05)

*/

	if GetRawKeyState(KEY_NUMPAD_4) then movemap(-0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_6) then movemap(0.05,-0.05)
	if GetRawKeyState(KEY_NUMPAD_8) then movemap(0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_2) then movemap(-0.05,-0.05)

	if GetRawKeyState(KEY_NUMPAD_7) then movemap(0,0.05)
	if GetRawKeyState(KEY_NUMPAD_9) then movemap(0.05,0)
	if GetRawKeyState(KEY_NUMPAD_3) then movemap(0,-0.05)
	if GetRawKeyState(KEY_NUMPAD_1) then movemap(-0.05,0)




   
    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
        
         movecamera()
   
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop

function movemap(xdir#,zdir#)
	for x=-sizex/2 to sizex/2 step 1.0
		for z=-sizez/2 to sizez/2 step 1.0
			inc map[x+sizex/2,z+sizez/2].x#, xdir# 
			inc map[x+sizex/2,z+sizez/2].z#, zdir#
  
  // roll
			if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = sizex/2 * scale#
			if map[x+sizex/2,z+sizez/2].x#>sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = -sizex/2 * scale#


			if map[x+sizex/2,z+sizez/2].z#<-sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = sizez/2 * scale#
			if map[x+sizex/2,z+sizez/2].z#>sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = -sizez/2 * scale#



  
			SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next
	
endfunction

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
     
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
     
function changeverts(x,z,slope#)
        
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
      
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
    
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
    
                
    for i=0 to 23
            
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
    
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
    
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
     
    
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
    
    
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
    
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
           
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
    
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
    
    next
        
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
    
    
    
    
    
    
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
     
     
endfunction
  
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    
        
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
        
        size=GetMemblockSize(memblockid)
    
        for offset=12 to size-4 step 4
          
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
                
            
            strength=random(1,density)
    
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                 
            
    next
        
    deleteimage (img)
        
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
    
    
endfunction img

// Project: heights 
// Created: 2019-01-01
     
// show all errors
SetErrorMode(2)
     
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_ENTER        13
#constant KEY_NUMPAD_0     96
#constant KEY_NUMPAD_1     97
#constant KEY_NUMPAD_2     98
#constant KEY_NUMPAD_3     99
#constant KEY_NUMPAD_4     100
#constant KEY_NUMPAD_5     101
#constant KEY_NUMPAD_6     102
#constant KEY_NUMPAD_7     103
#constant KEY_NUMPAD_8     104
#constant KEY_NUMPAD_9     105
     
// set window properties
SetWindowTitle( "heights" )
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
Create3DPhysicsWorld()  
#constant sizex=14 // change this to extend the map
#constant sizez=14 // change this to exend the map

#constant worldsizex=100
#constant worldsizez=100

#constant scale#=5
global angx#, angy#,startx#,starty#
startx#=screenwidth/2
starty#=screenheight/2
   
size=5
   
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
    
global map as _map[sizex,sizez]

global vertexnumber
  
//textimages as integer[10]
//for loops=0 to 10
//   textimages[loops]= createtexture(64,64,MakeColor(0,255,0),255)
//next
textimages as integer[10]
textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
  
land = CreateObjectBox(.01,.01,.01)
SetObjectVisible(land,0)
/*
edge1 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge1,90,0,0)
SetObjectPosition(edge1,2,4,(sizez*scale#)/2)
FixObjectToObject(edge1,land)
 
edge2 = CreateObjectCylinder(scale#*sizex,1,10)
SetObjectRotation(edge2,90,0,0)
SetObjectPosition(edge2,sizex*scale#-1,4,(sizez*scale#)/2)
FixObjectToObject(edge2,land)
 
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,(sizez*scale#))
FixObjectToObject(edge3,land)
 
edge3 = CreateObjectCylinder(scale#*sizex-2,1,10)
SetObjectRotation(edge3,0,0,90)
SetObjectPosition(edge3,sizex*scale#/2,4,0)
FixObjectToObject(edge3,land)
*/
 
colorgreen=150
for x=-sizex/2 to sizex/2 step 1.0
    for z=-sizez/2 to sizez/2 step 1.0
        map[x+sizex/2,z+sizez/2].id = CreateObjectBox(scale#,scale#,scale#)
        map[x+sizex/2,z+sizez/2].x# = x * GetObjectSizeMaxX(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
        map[x+sizex/2,z+sizez/2].height#=random(0,0)
        map[x+sizex/2,z+sizez/2].z# = z * GetObjectSizeMaxZ(map[x+sizex/2,z+sizez/2].id)*2 // Remove the * 2 to join the cubes together
  
        //map[x,z].colorgreen = random(150,200)
        //SetObjectImage(map[x,z].id,textimages[0],0)
        if colorgreen=150
            colorgreen=200
        else
            colorgreen=150
        endif
                  
        map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
        SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
          
        Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
        SetObjectColor(map[x+sizex/2,z+sizez/2].id,0,map[x+sizex/2,z+sizez/2].colorgreen,0,255)
        SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
        FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                  
    next
next
   
RotateObjectLocalY(land,316)
//RotateObjectLocalX(land,-70)
prepareheights()
    
camerax#=0
//cameray#=30
cameray#=50
cameraz#=-70

SetCameraRotation(1,26,0,0)
    
frameImg=LoadImage("\media\frame2.png")
frameSpr=createSprite(frameImg) 
SetSpriteShape(frameSPr,3) 
//SetSpriteVisible(frameSpr,0)
heli=LoadObject("chopper.obj")
heliImg=loadImage("chopper.png")
SetObjectImage(heli,heliImg,0)
SetObjectPosition(heli,0,10,-10)
SetObjectScale(heli,2,2,2)
do
  /*
   print("Camera Pos X " + str(getcamerax(1)))
   print("Camera Pos Y " + str(getcameray(1)))
   print("Camera Pos Z " + str(GetCameraz(1)))
   print("Camera Angle X " + str(GetCameraAngleX(1)))
   print("Camera angle X " + str(GetCameraAngleY(1)))
   print("Camera angle X " + str(GetCameraAngleZ(1)))
 
   print("Land Angle X " + str(GetObjectAngleX(land)))
   print("Land angle X " + str(GetObjectAngleY(land)))
   print("Land angle X " + str(GetObjectAngleZ(land)))
	print(GetRawLastKey())
*/
 
    moveHeli(heli,-.005,0)
    SetSpriteActive(frameSpr,0) 
   
    unit_x#=Get3DVectorXFromScreen(getpointerx(),getpointery())
    unit_y#=Get3DVectorYFromScreen(getpointerx(),getpointery())
    unit_z#=Get3DVectorZFromScreen(getpointerx(),getpointery()) 
    // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1)
        start_y# = unit_y# + GetCameraY(1)
        start_z# = unit_z# + GetCameraZ(1)
           
        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 1000*unit_x# + GetCameraX(1)
        end_y# = 1000*unit_y# + GetCameraY(1)
        end_z# = 1000*unit_z# + GetCameraZ(1)  
        // determine which object has been hit
        object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
   
        
        // added by Fubarpk 
        if object_hit <> 0
            for xx=-sizex/2 to sizex/2 step 1
                for zz=-sizez/2 to sizez/2 step 1.0
					if object_hit=map[xx+(sizex/2),zz+(sizez/2)].id
						x=xx+sizex/2
                        z=zz+sizez/2
                        
                    endif  
                next zz
            next xx 
        endif
  
   
       
    //if GetRawKeyState(49) // Press 1 to rotate
        //RotateObjectLocalY(land,.05)
    //endif
    
    
    
    if GetRawMouseLeftState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1
            inc map[x,z].height#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
            changeverts(x,z,.01)
            Delete3DPhysicsBody(map[x,z].id) 
            Create3DPhysicsStaticBody(map[x,z].id)   
        endif
    endif
   
   
    if GetRawMouseRightState() //and GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )=0
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            if map[x,z].height#>0
                dec map[x,z].height#,.01
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            endif   
        endif
    endif
       
    if GetRawkeypressed (KEY_ENTER) 
        flag=1
        if x<1 or x>sizex-1 then flag=0
        if z<1 or z>sizez-1 then flag=0
        if flag=1 
            //if map[x,z].height#>0
                dec map[x,z].height#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,map[x,z].height#,map[x,z].z#)
                changeverts(x,z,-10.01)
                Delete3DPhysicsBody(map[x,z].id) 
                Create3DPhysicsStaticBody(map[x,z].id)
            //endif   
            //SetObjectColor(map[x,z].id,GetObjectColorRed(map[x,z].id)-50,GetObjectColorGreen(map[x,z].id)-50,GetObjectColorBlue(map[x,z].id)-50,255)  
            //SetObjectColor(map[x+1,z+1].id,GetObjectColorRed(map[x+1,z+1].id)-50,GetObjectColorGreen(map[x+1,z+1].id)-50,GetObjectColorBlue(map[x+1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z+1].id,GetObjectColorRed(map[x-1,z+1].id)-50,GetObjectColorGreen(map[x-1,z+1].id)-50,GetObjectColorBlue(map[x-1,z+1].id)-50,255)  
            //SetObjectColor(map[x-1,z-1].id,GetObjectColorRed(map[x-1,z-1].id)-50,GetObjectColorGreen(map[x-1,z-1].id)-50,GetObjectColorBlue(map[x-1,z-1].id)-50,255)  
            //SetObjectColor(map[x+1,z].id,GetObjectColorRed(map[x+1,z].id)-50,GetObjectColorGreen(map[x+1,z].id)-50,GetObjectColorBlue(map[x+1,z].id)-50,255)  
            //SetObjectColor(map[x-1,z].id,GetObjectColorRed(map[x-1,z].id)-50,GetObjectColorGreen(map[x-1,z].id)-50,GetObjectColorBlue(map[x-1,z].id)-50,255)  
            //SetObjectColor(map[x,z+1].id,GetObjectColorRed(map[x,z+1].id)-50,GetObjectColorGreen(map[x,z+1].id)-50,GetObjectColorBlue(map[x,z+1].id)-50,255)  
            //SetObjectColor(map[x,z-1].id,GetObjectColorRed(map[x,z-1].id)-50,GetObjectColorGreen(map[x,z-1].id)-50,GetObjectColorBlue(map[x,z-1].id)-50,255)  
            SetObjectColor(map[x,z].id,100,100,100,255):SetObjectImage(map[x,z].id,textImages[1],0)  
            SetObjectColor(map[x+1,z+1].id,100,100,100,255):SetObjectImage(map[x+1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z+1].id,100,100,100,255):SetObjectImage(map[x-1,z+1].id,textImages[1],0) 
            SetObjectColor(map[x-1,z-1].id,100,100,100,255):SetObjectImage(map[x-1,z-1].id,textImages[1],0) 
            SetObjectColor(map[x+1,z].id,100,100,100,255):SetObjectImage(map[x+1,z].id,textImages[1],0) 
            SetObjectColor(map[x-1,z].id,100,100,100,255):SetObjectImage(map[x-1,z].id,textImages[1],0) 
            SetObjectColor(map[x,z+1].id,100,100,100,255):SetObjectImage(map[x,z+1].id,textImages[1],0) 
            SetObjectColor(map[x,z-1].id,100,100,100,255):SetObjectImage(map[x,z-1].id,textImages[1],0) 
              
        endif
          
    endif
   
/*   
	if GetRawKeyState(KEY_NUMPAD_4) then movemap(-0.05,0)
	if GetRawKeyState(KEY_NUMPAD_6) then movemap(0.05,0)
	if GetRawKeyState(KEY_NUMPAD_8) then movemap(0,0.05)
	if GetRawKeyState(KEY_NUMPAD_2) then movemap(0,-0.05)

	if GetRawKeyState(KEY_NUMPAD_7) then movemap(-0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_9) then movemap(0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_3) then movemap(0.05,-0.05)
	if GetRawKeyState(KEY_NUMPAD_1) then movemap(-0.05,-0.05)

*/

	if GetRawKeyState(KEY_NUMPAD_4) then movemap(-0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_6) then movemap(0.05,-0.05)
	if GetRawKeyState(KEY_NUMPAD_8) then movemap(0.05,0.05)
	if GetRawKeyState(KEY_NUMPAD_2) then movemap(-0.05,-0.05)

	if GetRawKeyState(KEY_NUMPAD_7) then movemap(0,0.05)
	if GetRawKeyState(KEY_NUMPAD_9) then movemap(0.05,0)
	if GetRawKeyState(KEY_NUMPAD_3) then movemap(0,-0.05)
	if GetRawKeyState(KEY_NUMPAD_1) then movemap(-0.05,0)




   
/*    if GetRawKeyState(68) then inc camerax#,.1
    if GetRawKeyState(65) then dec camerax#,.1
    if GetRawKeyState(83) then inc cameraz#,.1
    if GetRawKeyState(87) then dec cameraz#,.1
        
         movecamera()
  */ 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop

function movemap(xdir#,zdir#)
	for x=-sizex/2 to sizex/2 step 1.0
		for z=-sizez/2 to sizez/2 step 1.0
			inc map[x+sizex/2,z+sizez/2].x#, xdir# 
			inc map[x+sizex/2,z+sizez/2].z#, zdir#
  
  // roll
			if map[x+sizex/2,z+sizez/2].x#<-sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = sizex/2 * scale#
			if map[x+sizex/2,z+sizez/2].x#>sizex*2.5 then map[x+sizex/2,z+sizez/2].x# = -sizex/2 * scale#


			if map[x+sizex/2,z+sizez/2].z#<-sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = sizez/2 * scale#
			if map[x+sizex/2,z+sizez/2].z#>sizez*2.5 then map[x+sizex/2,z+sizez/2].z# = -sizez/2 * scale#



  
			SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,0,map[x+sizex/2,z+sizez/2].z#)
    next
next
	
endfunction

function movecamera()
    if GetRawKeyState(32)
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction
     
function prepareheights()
    for x=2 to sizex-1
        for z=2 to sizez-1
            changeverts(x,z,map[x,z].height#)
        next
    next
endfunction
     
function changeverts(x,z,slope#)
        
            CreateMemblockFromObjectMesh(2,map[x+1,z-1].id,1) // bottom right corner
            CreateMemblockFromObjectMesh(4,map[x+1,z+1].id,1) // top right corner
            CreateMemblockFromObjectMesh(5,map[x-1,z+1].id,1) // top left corner
            CreateMemblockFromObjectMesh(6,map[x-1,z-1].id,1) // bottom left corner
      
            CreateMemblockFromObjectMesh(3,map[x+1,z].id,1) // right edges
    
            CreateMemblockFromObjectMesh(7,map[x-1,z].id,1) // left cube edges
           CreateMemblockFromObjectMesh(8,map[x,z-1].id,1) // bottom cube edges
           CreateMemblockFromObjectMesh(9,map[x,z+1].id,1) // top cube edges
    
                
    for i=0 to 23
            
// bottom rightcorner
        if i=8 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=16 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
        if i=14 then SetMeshMemblockVertexPosition(2,i,GetMeshMemblockVertexX(2,i),GetMeshMemblockVertexY(2,i)+slope#,GetMeshMemblockVertexZ(2,i))
    
// top rightcorner
        if i=9 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=0 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
        if i=18 then SetMeshMemblockVertexPosition(4,i,GetMeshMemblockVertexX(4,i),GetMeshMemblockVertexY(4,i)+slope#,GetMeshMemblockVertexZ(4,i))
    
// top leftcorner
        if i=11 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
        if i=2 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
       if i=4 then SetMeshMemblockVertexPosition(5,i,GetMeshMemblockVertexX(5,i),GetMeshMemblockVertexY(5,i)+slope#,GetMeshMemblockVertexZ(5,i))
     
    
// tbottom leftcorner
        if i=10 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=6 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
        if i=12 then SetMeshMemblockVertexPosition(6,i,GetMeshMemblockVertexX(6,i),GetMeshMemblockVertexY(6,i)+slope#,GetMeshMemblockVertexZ(6,i))
    
    
// right cube
        if i=8 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=9 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=16 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=18 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=0 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
        if i=14 then SetMeshMemblockVertexPosition(3,i,GetMeshMemblockVertexX(3,i),GetMeshMemblockVertexY(3,i)+slope#,GetMeshMemblockVertexZ(3,i))
    
// left cube
        if i=10 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=11 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=4 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=6 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=2 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
        if i=12 then SetMeshMemblockVertexPosition(7,i,GetMeshMemblockVertexX(7,i),GetMeshMemblockVertexY(7,i)+slope#,GetMeshMemblockVertexZ(7,i))
           
// bottom cube
        if i=8 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=10 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=6 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=12 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=14 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
        if i=16 then SetMeshMemblockVertexPosition(8,i,GetMeshMemblockVertexX(8,i),GetMeshMemblockVertexY(8,i)+slope#,GetMeshMemblockVertexZ(8,i))
    
// top cube
        if i=9 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=11 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=0 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=2 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=4 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
        if i=18 then SetMeshMemblockVertexPosition(9,i,GetMeshMemblockVertexX(9,i),GetMeshMemblockVertexY(9,i)+slope#,GetMeshMemblockVertexZ(9,i))
    
    next
        
    SetObjectMeshFromMemblock(map[x+1,z-1].id,1,2)   
    SetObjectMeshFromMemblock(map[x+1,z].id,1,3)   
    SetObjectMeshFromMemblock(map[x+1,z+1].id,1,4)   
    SetObjectMeshFromMemblock(map[x-1,z+1].id,1,5)   
    SetObjectMeshFromMemblock(map[x-1,z-1].id,1,6)   
    SetObjectMeshFromMemblock(map[x-1,z].id,1,7)   
    SetObjectMeshFromMemblock(map[x,z-1].id,1,8)   
    SetObjectMeshFromMemblock(map[x,z+1].id,1,9)   
    
    
    
    
    
    
    DeleteMemblock(2)
    DeleteMemblock(3)
    DeleteMemblock(4)
    DeleteMemblock(5)
    DeleteMemblock(6)
    DeleteMemblock(7)
    DeleteMemblock(8)
    DeleteMemblock(9)
     
     
endfunction
  
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float, color, density as integer)
    
        
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
        
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
        
        
        size=GetMemblockSize(memblockid)
    
        for offset=12 to size-4 step 4
          
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
                
            
            strength=random(1,density)
    
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                 
            
    next
        
    deleteimage (img)
        
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
    
    
endfunction img

function moveHeli(heliObj,x as float,z as float)

	SetObjectPosition(heliObj,getObjectX(heliObj)+x,getObjectY(heliObj),getObjectZ(heliObj))
	if getObjectX(heliObj)<-(sizex*3) then SetObjectPosition(heliObj,(sizex*3),getObjectY(heliObj),getObjectZ(heliObj))
	if getObjectX(heliObj)>(sizex*3) then SetObjectPosition(heliObj,-(sizex*3),getObjectY(heliObj),getObjectZ(heliObj))
	if getObjectZ(heliObj)<-(sizez*3) then SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),(sizez*3))
	if getObjectZ(heliObj)>(sizez*3) then SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),-(sizez*3))
endfunction