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

// Project: populous 
// 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( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
     
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
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

type point
	x 			as float
	y 			as float
	z 			as float
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)
*/
sundirection	as point
sundirection = CreatePoint(0.2, -1, 0.2)									/// Setup Sun and lighting
SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
SetAmbientColor(0x60, 0x60, 0x60)
SetSkyBoxSkyColor(14,158,194 ) 
SetSkyBoxHorizonSize(1,-350 ) 
SetSkyBoxVisible(0) 
SetSunColor(0x80, 0x80, 0x80)
	//SetSkyBoxSunVisible(1)

shadowmode as integer
shadowMode = 3 // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 1 ) // random sampling
SetShadowMapSize( 1024,1024 )
SetShadowRange( -1 ) // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
 
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)
        SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
        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")
heliBlades=LoadObject("blades.obj")
heliBladesImg=LoadImage("blades.png")
heliImg=loadImage("chopper.png")
SetObjectImage(heli,heliImg,0)
SetObjectImage(heliBlades,heliBladesImg,0)
SetObjectPosition(heli,0,5,-10)
SetObjectScale(heli,2,2,2)
SetObjectPosition(heliBlades,0,.6,0)
FixObjectToObject(heliBlades,heli)
SetObjectScale(heliBlades,5,5,5)
SetObjectCastShadow(heli,1)
SetObjectCastShadow(heliBlades,1)


tank=LoadObject("leopard2A4.obj")
tankImg=loadImage("leopard2A4.png")
SetObjectImage(tank,tankImg,0)
SetObjectPosition(tank,0,2,-10)
SetObjectScale(tank,1,1,1)

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) 
		movemap(-0.05,0.05)
		moveObjects(heli,-0.05,0):moveObjects(tank,-0.05,0)
	endif
	if GetRawKeyState(KEY_NUMPAD_6) 
		movemap(0.05,-0.05)
		moveObjects(heli,0.05,0):moveObjects(tank,0.05,0)
	endif	
	if GetRawKeyState(KEY_NUMPAD_8) 
		movemap(0.05,0.05)
		moveObjects(heli,0,0.05):moveObjects(tank,0,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_2) 
		movemap(-0.05,-0.05)
		moveObjects(heli,0,-0.05):moveObjects(tank,0,-0.05)
	endif	

	if GetRawKeyState(KEY_NUMPAD_7) 
		movemap(0,0.05)
		moveObjects(heli,-0.05,0.05):moveObjects(tank,-0.05,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_9) 
		movemap(0.05,0)
		moveObjects(heli,0.05,0.05):moveObjects(tank,0.05,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_3) 
		movemap(0,-0.05)
		moveObjects(heli,0.05,-0.05):moveObjects(tank,0.05,-0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_1) 
		movemap(-0.05,0)
		moveObjects(heli,-0.05,-0.05):moveObjects(tank,-0.05,-0.05)
	endif	

	moveObjects(heli,-.005,0):RotateObjectGlobalY(heliBlades,.35)
    moveObjects(tank,0,-0.005)
    


   
/*    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 moveObjects(Obj,x as float,z as float)

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

function	CreatePoint(x as float, y as float, z as float)
	p	as point
	
	p.x = x
	p.y = y
	p.z = z
endfunction p

if GetRawKeyState(KEY_NUMPAD_4) 
		movemap(-0.05,0.05)
		moveObjects(heli,-0.05,0):moveObjects(tank,-0.05,0)
	endif
	if GetRawKeyState(KEY_NUMPAD_6) 
		movemap(0.05,-0.05)
		moveObjects(heli,0.05,0):moveObjects(tank,0.05,0)
	endif	
	if GetRawKeyState(KEY_NUMPAD_8) 
		movemap(0.05,0.05)
		moveObjects(heli,0,0.05):moveObjects(tank,0,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_2) 
		movemap(-0.05,-0.05)
		moveObjects(heli,0,-0.05):moveObjects(tank,0,-0.05)
	endif	

	if GetRawKeyState(KEY_NUMPAD_7) 
		movemap(0,0.05)
		moveObjects(heli,-0.05,0.05):moveObjects(tank,-0.05,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_9) 
		movemap(0.05,0)
		moveObjects(heli,0.05,0.05):moveObjects(tank,0.05,0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_3) 
		movemap(0,-0.05)
		moveObjects(heli,0.05,-0.05):moveObjects(tank,0.05,-0.05)
	endif	
	if GetRawKeyState(KEY_NUMPAD_1) 
		movemap(-0.05,0)
		moveObjects(heli,-0.05,-0.05):moveObjects(tank,-0.05,-0.05)
	endif	

	moveObjects(heli,-.005,0):RotateObjectGlobalY(heliBlades,.35)
    moveObjects(tank,0,-0.005)

// Project: populous 
// 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( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
     
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
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

type point
	x 			as float
	y 			as float
	z 			as float
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)
*/
sundirection	as point
sundirection = CreatePoint(0.2, -1, 0.2)									/// Setup Sun and lighting
SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
SetAmbientColor(0x60, 0x60, 0x60)
SetSkyBoxSkyColor(14,158,194 ) 
SetSkyBoxHorizonSize(1,-350 ) 
SetSkyBoxVisible(0) 
SetSunColor(0x80, 0x80, 0x80)
	//SetSkyBoxSunVisible(1)

shadowmode as integer
shadowMode = 3 // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 1 ) // random sampling
SetShadowMapSize( 1024,1024 )
SetShadowRange( -1 ) // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
 
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)
        SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
        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")
heliBlades=LoadObject("blades.obj")
heliBladesImg=LoadImage("blades.png")
heliImg=loadImage("chopper.png")
SetObjectImage(heli,heliImg,0)
SetObjectImage(heliBlades,heliBladesImg,0)
SetObjectPosition(heli,0,5,-10)
SetObjectScale(heli,2,2,2)
SetObjectPosition(heliBlades,0,.6,0)
FixObjectToObject(heliBlades,heli)
SetObjectScale(heliBlades,5,5,5)
SetObjectCastShadow(heli,1)
SetObjectCastShadow(heliBlades,1)


tank=LoadObject("leopard2A4.obj")
tankImg=loadImage("leopard2A4.png")
SetObjectImage(tank,tankImg,0)
SetObjectPosition(tank,0,2,-10)
SetObjectScale(tank,1,1,1)


	  
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) 
		movemap(-0.05,0.05)
		moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
	endif
	if GetRawKeyState(KEY_NUMPAD_6) 
		movemap(0.05,-0.05)
		moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
	endif	
	if GetRawKeyState(KEY_NUMPAD_8) 
		movemap(0.05,0.05)
		moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
	endif	
	if GetRawKeyState(KEY_NUMPAD_2) 
		movemap(-0.05,-0.05)
		moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
	endif	

	if GetRawKeyState(KEY_NUMPAD_7) 
		movemap(0,0.05)
		moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
	endif	
	if GetRawKeyState(KEY_NUMPAD_9) 
		movemap(0.05,0)
		moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
	endif	
	if GetRawKeyState(KEY_NUMPAD_3) 
		movemap(0,-0.05)
		moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
	endif	
	if GetRawKeyState(KEY_NUMPAD_1) 
		movemap(-0.05,0)
		moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
	endif	

	moveObjects(heli,-.005,0,5):RotateObjectGlobalY(heliBlades,.35)

	
    moveObjects(tank,0,-0.005,2)
    //MoveObjectLocalZ(tank,-0.005)

  /*
     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 moveObjects(Obj,x as float,z as float,height as float)
	hitObj=ObjectRayCast(0,getobjectx(obj),getobjecty(obj)-150,getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj))
	if hitObj>0
		SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
	else
		SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(Obj),getObjectZ(Obj)+z)		
	endif	
	if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
	if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
	if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
	if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction	

function	CreatePoint(x as float, y as float, z as float)
	p	as point
	
	p.x = x
	p.y = y
	p.z = z
endfunction p

hitObj=ObjectRayCast(0,getobjectx(obj),getobjecty(obj)-150,getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj))

function getForwardDirectionVector(obj as integer)
	PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
	DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleY(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
	MoveObjectLocalZ(DirBox, 1.0 )
	DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
endfunction	DirVec

function moveObjects(Obj,x as float,z as float,height as float)
	DirVec=getForwardDirectionVector(Obj)
	hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-150,getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
	if hitObj>0
		SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
	else
		SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(Obj),getObjectZ(Obj)+z)		
	endif	
	if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
	if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
	if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
	if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction	

function getForwardDirectionVector(obj as integer)
	PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
	DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
	MoveObjectLocalZ(DirBox,-0.05)
	DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
	DeleteObject(DirBox)
endfunction	DirVec

moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
moveObjects(tank,0,-0.005,5)

// Project: populous 
// Created: 2019-01-01
      
// show all errors
SetErrorMode(2)
      
// set window properties
SetWindowTitle( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
      
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Create3DPhysicsWorld()  


////////////////////////////////////////////////////
/// Setup the Constants      
#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
#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

////////////////////////////////////////////////////
/// Setup the Globals / Variables
 
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
global heli, tank,heliblades
global vertexnumber, landhitx, landhitz
global textimages as integer[10]

    
////////////////////////////////////////////////////
/// Setup the Types
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
 
type point
    x           as float
    y           as float
    z           as float
endtype
     
global map as _map[sizex,sizez]
 

////////////////////////////////////////////////////
/// Initialise and Build the worlds
startx#=screenwidth/2
starty#=screenheight/2

setupcamera()
   
setupskyandworld()
  
buildworld()

prepareheights()
     
setupobjects()       




do
    SetSpriteActive(frameSpr,0) 
    
    get_land_hit()
    
	checkkeypresses(landhitx,landhitz)
	
	moveenemies()
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop

function moveenemies()
	moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
	moveObjects(tank,0,-0.005,5)
endfunction

function checkkeypresses(x,z)
	    //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) 
        movemap(-0.05,0.05)
        moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
    endif  
 
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
    endif  
endfunction


function get_land_hit()
	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
                        landhitx=xx+sizex/2
                        landhitz=zz+sizez/2
                         
                    endif 
                next zz
            next xx 
        endif
 endfunction

function buildworld()
	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)
			SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
			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)
endfunction


 
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 moveObjects(Obj,x as float,z as float,height as float)
    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-150,getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(Obj),getObjectZ(Obj)+z)      
    endif  
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction

function getForwardDirectionVector(obj as integer)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,-0.05)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec


function    CreatePoint(x as float, y as float, z as float)
    p   as point
     
    p.x = x
    p.y = y
    p.z = z
endfunction p

function setupskyandworld()
	
	textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
	textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)

	sundirection    as point
	sundirection = CreatePoint(0.2, -1, 0.2)                                    /// Setup Sun and lighting
	SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
	SetAmbientColor(0x60, 0x60, 0x60)
	SetSkyBoxSkyColor(14,158,194 ) 
	SetSkyBoxHorizonSize(1,-350 ) 
	SetSkyBoxVisible(0) 
	SetSunColor(0x80, 0x80, 0x80)
    //SetSkyBoxSunVisible(1)
 
	shadowmode as integer
	shadowMode = 3 // start with cascade shadow mapping which gives the best quality
	SetShadowMappingMode( shadowMode )
	SetShadowSmoothing( 1 ) // random sampling
	SetShadowMapSize( 1024,1024 )
	SetShadowRange( -1 ) // use the full camera range
	SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
endfunction

function setupcamera()
	camerax#=0
	cameray#=50
	cameraz#=-70
 
	SetCameraRotation(1,26,0,0)
endfunction

function setupobjects()
     
	frameImg=LoadImage("\media\frame2.png")
	frameSpr=createSprite(frameImg) 
	SetSpriteShape(frameSPr,3) 
	//SetSpriteVisible(frameSpr,0)
	heli=LoadObject("chopper.obj")
	heliBlades=LoadObject("blades.obj")
	heliBladesImg=LoadImage("blades.png")
	heliImg=loadImage("chopper.png")
	SetObjectImage(heli,heliImg,0)
	SetObjectImage(heliBlades,heliBladesImg,0)
	SetObjectPosition(heli,0,5,-10)
	SetObjectScale(heli,2,2,2)
	SetObjectPosition(heliBlades,0,.6,0)
	FixObjectToObject(heliBlades,heli)
	SetObjectScale(heliBlades,5,5,5)
	SetObjectCastShadow(heli,1)
	SetObjectCastShadow(heliBlades,1)
	
 
	tank=LoadObject("leopard2A4.obj")
	tankImg=loadImage("leopard2A4.png")
	SetObjectImage(tank,tankImg,0)
	SetObjectPosition(tank,0,2,-10)
	SetObjectScale(tank,1,1,1)
 
 
endfunction

rem TEXTURE ))))))))))))))))))))))))))))))))))))))))))))
ink rgb(100,200,100),0
box 0,0,100,100
ink rgb(100,100+rnd(155),100),0
for i= 1 to 2000
dot rnd(100),rnd(100)
next i
get image 1,0,0,100,100,1
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))
autocam off
sync on
set ambient light 30
position light 0,100,60,100
make light 1:position light 1,100,60,100
make matrix 1, 200,200,3,3
prepare matrix texture 1,1,1,1

make object box 100,0.3,10,0.3
offset limb 100,0,0,5,0
make mesh from object 1,100:delete object 100
for i= 1 to 30
make object box i,5,3,5:color object i,rgb(rnd(255),rnd(255),rnd(255))
add limb i,1,1
position object i,25+rnd(150),0,25+rnd(150)
yrotate object i,rnd(180)
set shadow shading on i,0,100,1
next i
position camera -110,110,-110
point camera 0,0,0

new:
randomize matrix 1,40
update matrix 1

do
for i= 1 to 30
    yy#=get ground height(1,object position x(i),object position z(i))
    y#=object position y(i)         rem object position y()
    position object i,object position x(i),yy#,object position z(i)
    `getting new x,y,z in front of every object
    move object i,5
    y2#=get ground height(1,object position x(i),object position z(i))
    x2#=object position x(i)
    z2#=object position z(i)
    `reseting position
    move object i,-5
    `getting new side height of every object
    move object left i,5
    y3#=get ground height(1,object position x(i),object position z(i))
    `reseting position
    move object right i,5
    `pointing and rolling every object
    point object i,x2#,y2#,z2#
    roll object left i,(y#-y3#)*12       `(actual_y - side_y)*12    I need a better solution...

    rem object movements
    turn object left i,0.2
    move object i,0.03
    if object collision(i,0) then turn object right i,0.5
next i

if spacekey() then goto new

control camera using arrowkeys 0,0.3,0.3
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.3
if rightkey() then move camera right 0.3
set cursor 0,0
print "Press space to change land"
sync
loop

// Project: populous 
// Created: 2019-01-01
      
// show all errors
SetErrorMode(2)
      
// set window properties
SetWindowTitle( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
      
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Create3DPhysicsWorld()  


////////////////////////////////////////////////////
/// Setup the Constants      
#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
#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
#constant maxTerrainHeight# 50
////////////////////////////////////////////////////
/// Setup the Globals / Variables
 
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
global heli, tank,heliblades
global vertexnumber, landhitx, landhitz
global textimages as integer[10]

    
////////////////////////////////////////////////////
/// Setup the Types
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
 
type point
    x           as float
    y           as float
    z           as float
endtype
     
global map as _map[sizex,sizez]
 

////////////////////////////////////////////////////
/// Initialise and Build the worlds
startx#=screenwidth/2
starty#=screenheight/2

setupcamera()
   
setupskyandworld()
  
buildworld()

prepareheights()
     
setupobjects()       




do
    SetSpriteActive(frameSpr,0) 
    
    get_land_hit()
    
	checkkeypresses(landhitx,landhitz)
	
	moveenemies()
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop

function moveenemies()
	moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
	moveObjects(tank,0,-0.005,4)
endfunction

function checkkeypresses(x,z)
	    //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) 
        movemap(-0.05,0.05)
        moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
    endif  
 
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
    endif  
endfunction


function get_land_hit()
	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
                        landhitx=xx+sizex/2
                        landhitz=zz+sizez/2
                         
                    endif 
                next zz
            next xx 
        endif
 endfunction

function buildworld()
	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)
			SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
			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)
endfunction


 
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 moveObjects(Obj,x as float,z as float,height as float)
    SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
        SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)      
    endif  
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction

function getForwardDirectionVector(obj as integer)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,-0.5)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec


function    CreatePoint(x as float, y as float, z as float)
    p   as point
     
    p.x = x
    p.y = y
    p.z = z
endfunction p

function setupskyandworld()
	
	textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
	textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)

	sundirection    as point
	sundirection = CreatePoint(0.2, -1, 0.2)                                    /// Setup Sun and lighting
	SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
	SetAmbientColor(0x60, 0x60, 0x60)
	SetSkyBoxSkyColor(14,158,194 ) 
	SetSkyBoxHorizonSize(1,-350 ) 
	SetSkyBoxVisible(0) 
	SetSunColor(0x80, 0x80, 0x80)
    //SetSkyBoxSunVisible(1)
 
	shadowmode as integer
	shadowMode = 3 // start with cascade shadow mapping which gives the best quality
	SetShadowMappingMode( shadowMode )
	SetShadowSmoothing( 1 ) // random sampling
	SetShadowMapSize( 1024,1024 )
	SetShadowRange( -1 ) // use the full camera range
	SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
endfunction

function setupcamera()
	camerax#=0
	cameray#=50
	cameraz#=-70
 
	SetCameraRotation(1,26,0,0)
endfunction

function setupobjects()
     
	frameImg=LoadImage("\media\frame2.png")
	frameSpr=createSprite(frameImg) 
	SetSpriteShape(frameSPr,3) 
	//SetSpriteVisible(frameSpr,0)
	heli=LoadObject("chopper.obj")
	heliBlades=LoadObject("blades.obj")
	heliBladesImg=LoadImage("blades.png")
	heliImg=loadImage("chopper.png")
	SetObjectImage(heli,heliImg,0)
	SetObjectImage(heliBlades,heliBladesImg,0)
	SetObjectPosition(heli,0,5,-10)
	SetObjectScale(heli,2,2,2)
	SetObjectPosition(heliBlades,0,.6,0)
	FixObjectToObject(heliBlades,heli)
	SetObjectScale(heliBlades,5,5,5)
	SetObjectCastShadow(heli,1)
	SetObjectCastShadow(heliBlades,1)
	
 
	tank=LoadObject("leopard2A4.obj")
	tankImg=loadImage("leopard2A4.png")
	SetObjectImage(tank,tankImg,0)
	SetObjectPosition(tank,0,2,-10)
	SetObjectScale(tank,1,1,1)
 
 
endfunction

// Project: populous 
// Created: 2019-01-01
      
// show all errors
SetErrorMode(2)
      
// set window properties
SetWindowTitle( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
      
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Create3DPhysicsWorld()  


////////////////////////////////////////////////////
/// Setup the Constants      
#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
#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
#constant maxTerrainHeight# 50
////////////////////////////////////////////////////
/// Setup the Globals / Variables
 
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
global heli, tank,heliblades
global vertexnumber, landhitx, landhitz
global textimages as integer[10]

    
////////////////////////////////////////////////////
/// Setup the Types
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
 
type point
    x           as float
    y           as float
    z           as float
endtype
     
global map as _map[sizex,sizez]
 

////////////////////////////////////////////////////
/// Initialise and Build the worlds
startx#=screenwidth/2
starty#=screenheight/2

setupcamera()
   
setupskyandworld()
  
buildworld()

prepareheights()
     
setupobjects()       




do
    SetSpriteActive(frameSpr,0) 
    
    get_land_hit()
    
	checkkeypresses(landhitx,landhitz)
	
	moveenemies()
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop

function moveenemies()
	moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
	moveObjects(tank,0,-0.005,4)
endfunction

function checkkeypresses(x,z)
	    //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) 
        movemap(-0.05,0.05)
        moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
    endif  
 
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
    endif  
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
    endif  
endfunction


function get_land_hit()
	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
                        landhitx=xx+sizex/2
                        landhitz=zz+sizez/2
                         
                    endif 
                next zz
            next xx 
        endif
 endfunction

function buildworld()
	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)
			SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
			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)
endfunction


 
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 moveObjects(Obj,x as float,z as float,height as float)
    SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
        SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)      
    endif  
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction

function getForwardDirectionVector(obj as integer)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,-0.005)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec


function    CreatePoint(x as float, y as float, z as float)
    p   as point
     
    p.x = x
    p.y = y
    p.z = z
endfunction p

function setupskyandworld()
	
	textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
	textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)

	sundirection    as point
	sundirection = CreatePoint(0.2, -1, 0.2)                                    /// Setup Sun and lighting
	SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
	SetAmbientColor(0x60, 0x60, 0x60)
	SetSkyBoxSkyColor(14,158,194 ) 
	SetSkyBoxHorizonSize(1,-350 ) 
	SetSkyBoxVisible(0) 
	SetSunColor(0x80, 0x80, 0x80)
    //SetSkyBoxSunVisible(1)
 
	shadowmode as integer
	shadowMode = 3 // start with cascade shadow mapping which gives the best quality
	SetShadowMappingMode( shadowMode )
	SetShadowSmoothing( 1 ) // random sampling
	SetShadowMapSize( 1024,1024 )
	SetShadowRange( -1 ) // use the full camera range
	SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
endfunction

function setupcamera()
	camerax#=0
	cameray#=50
	cameraz#=-70
 
	SetCameraRotation(1,26,0,0)
endfunction

function setupobjects()
     
	frameImg=LoadImage("\media\frame2.png")
	frameSpr=createSprite(frameImg) 
	SetSpriteShape(frameSPr,3) 
	//SetSpriteVisible(frameSpr,0)
	heli=LoadObject("chopper.obj")
	heliBlades=LoadObject("blades.obj")
	heliBladesImg=LoadImage("blades.png")
	heliImg=loadImage("chopper.png")
	SetObjectImage(heli,heliImg,0)
	SetObjectImage(heliBlades,heliBladesImg,0)
	SetObjectPosition(heli,0,5,-10)
	SetObjectScale(heli,2,2,2)
	SetObjectPosition(heliBlades,0,.6,0)
	FixObjectToObject(heliBlades,heli)
	SetObjectScale(heliBlades,5,5,5)
	SetObjectCastShadow(heli,1)
	SetObjectCastShadow(heliBlades,1)
	
 
	tank=LoadObject("leopard2A42.obj")
	tankImg=loadImage("leopard2A4.png")
	SetObjectImage(tank,tankImg,0)
	SetObjectPosition(tank,0,2,-10)
	RotateObjectLocalY(tank,-90)
	SetObjectScale(tank,1,1,1)
endfunction

// Project: Tilt 
// Created: 2019-02-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Tilt" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

b=makecolor(100,255,100)
drawbox(0,0,100,100,b,b,b,b,1)
b=makecolor(80,100,80)
drawbox(10,10,90,90,b,b,b,b,1)
getimage(1,0,0,100,100)
ClearScreen()
createobjectplane(25,0,0)
setcameraposition(1,-20,20,-20)
SetCameraLookAt(1,0,10,0,0)

`Creating  Terrain of Planes
CreateMemblockFromObjectMesh(25,25,1) 
pl=0
for i= 1 to 4
	for a= 1 to 4
		inc pl
		createobjectplane(pl,5,5)
		setobjectvisible(pl,0)
		setobjectrotation(pl,90,0,0)
		setobjectposition(pl,i*5,0,a*5)
		fixobjectpivot(pl)
		CreateMemblockFromObjectMesh(pl,pl,1) 
        deleteobject( pl )
        AddObjectMeshFromMemblock(25,pl) 	
        setobjectimage(25,1,0)
        sync()
       // sleep(300)
        DeleteMemblock( pl )
	next
next
global can
can = GetObjectNumMeshes(25)

movev(8,20,5,10,2)
movev(6,10,15,20,2)
movev(15,21,16,21,3)
sleep(300)
setobjectscale(25,4,4,4)
fixobjectpivot(25)

`Car
createobjectbox(26,2,0.5,3)
setobjectposition(26,20,2,20)
createobjectcylinder(40,1,2,10)
FixObjectToObject(40,26)
setobjectposition(40,0,0.3,0)
createobjectbox(41,0.3,0.3,2)
FixObjectToObject(41,40)
setobjectposition(41,0,0.5,1)
SetObjectCollisionMode(41,0)
SetObjectCollisionMode(40,0)


`Front sensor for the car
createobjectsphere(27,1,5,5)
setobjectcolor(27,255,0,0,0)

createobjectsphere(1000,1000,10,10)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)

do
    oldx#=Getobjectx(26)
    oldy#=Getobjecty(26)
    oldz#=Getobjectz(26)
 
    moveobjectlocalz(26,(GetRawKeyState( 38 )*0.3)-GetRawKeyState( 40 )*0.3)
    if getRawKeyState( 37 ) then r#=r#-5
    if getRawKeyState( 39 ) then r#=r#+5
    setobjectrotation(26,0,r#,0)
    SetobjectPosition(26,getobjectx(26),getobjecty(26)-0.1,getobjectz(26))
    
    newx#=GetobjectX(26)
    newy#=GetobjectY(26)
    newz#=GetobjectZ(26)
 
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)>0
  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  Setobjectposition(26,newx#,newy#,newz#)
 endif
 setobjectposition(27,getobjectx(26),getobjecty(26),getobjectz(26))
 setobjectrotation(27,GetObjectAngleX(26),GetObjectAngleY(26),GetObjectAngleZ(26))
 
 nx#=getobjectx(27)
 ny#=getobjecty(27)
 nz#=getobjectz(27)
 
 MoveObjectLocalZ(27,3)
 
 nx2#=getobjectx(27)
 ny2#=getobjecty(27)
 nz2#=getobjectz(27)
 
  if ObjectSphereSlide(0,nx#,ny#,nz#,nx2#,ny2#,nz2#,0)>0
  newx2#=GetObjectRayCastSlideX(0)
  newy2#=GetObjectRayCastSlideY(0)
  newz2#=GetObjectRayCastSlideZ(0)
  Setobjectposition(27,newx2#,newy2#,newz2#)
 endif
 
 setobjectlookat(26,newx2#,newy2#,newz2#,0)
    for i= 1 to 20
		print ("")
		next
    Print("Use cursor to go up the hill" )
    
    Sync()
loop



function movev(mix,max,may,miy,y)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(25,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to 5
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if x#>mix and x#<max and z#<miy and z#>may then SetMeshMemblockVertexPosition(mesh,i, x#,y#+y,z#)
next
SetObjectMeshFromMemblock(25,t,mesh)
next
deletememblock(1)
endfunction

function moveObjects(Obj,x as float,z as float,height as float)
    //SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    //DirVec=getForwardDirectionVector(Obj)
    //hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    //if hitObj>0
    //    SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    //else
    //    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
        
    //endif 
    oldx#=getObjectX(obj):oldy#=getObjecty(obj):oldz#=getObjectz(obj)
    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
     
    /* 
    oldx#=GetObjectRayCastSlideX(Obj)
	oldy#=GetObjectRayCastSlideY(Obj)
	oldz#=GetObjectRayCastSlideZ(Obj)
	SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
    newx#=GetobjectX(Obj)
    newy#=GetobjectY(Obj)
    newz#=GetobjectZ(Obj)
    */    
    
    
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,getobjectx(obj),getobjecty(obj),getobjectz(obj),.005)>0
	    newx2#=GetObjectRayCastSlideX(0)
		newy2#=GetObjectRayCastSlideY(0)
		newz2#=GetObjectRayCastSlideZ(0)
		Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction

// Project: populous 
// Created: 2019-01-01
       
// show all errors
SetErrorMode(2)
       
// set window properties
SetWindowTitle( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
       
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Create3DPhysicsWorld()  
 
 
////////////////////////////////////////////////////
/// Setup the Constants      
#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
#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
#constant maxTerrainHeight# 50
////////////////////////////////////////////////////
/// Setup the Globals / Variables
  
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
global heli, tank,heliblades
global vertexnumber, landhitx, landhitz
global textimages as integer[10]
 
     
////////////////////////////////////////////////////
/// Setup the Types
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
  
type point
    x           as float
    y           as float
    z           as float
endtype
      
global map as _map[sizex,sizez]
  
 
////////////////////////////////////////////////////
/// Initialise and Build the worlds
startx#=screenwidth/2
starty#=screenheight/2
 
setupcamera()
    
setupskyandworld()
   
buildworld()
 
prepareheights()
      
setupobjects()       
 
 
animatex#=0
animatez#=0
 
do
    SetSpriteActive(frameSpr,0) 
     
    get_land_hit()
     
    checkkeypresses(landhitx,landhitz)
     
    moveenemies()

    for x=-sizex/2 to sizex/2 step 1.0
        for z=-sizez/2 to sizez/2 step 1.0
			SetObjectUVOffset(map[x+sizex/2,z+sizez/2].id,0,animatex#/100,animatez#/100)
		next
	next

	inc animatex#
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop
 
function moveenemies()
    moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
    moveObjects(tank,0,-0.005,4)
endfunction
 
function checkkeypresses(x,z)
        //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) 
        movemap(-0.05,0.05)
        moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
    endif 
  
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
    endif 
endfunction
 
 
function get_land_hit()
    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
                        landhitx=xx+sizex/2
                        landhitz=zz+sizez/2
                          
                    endif
                next zz
            next xx 
        endif
 endfunction
 
function buildworld()
    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)
		colorred=255
		colorblue=255
            if colorgreen=150
                colorgreen=200
            else
                colorgreen=150
            endif
                    
            map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
            map[x+sizex/2,z+sizez/2].colorred = colorred
			map[x+sizex/2,z+sizez/2].colorblue =colorblue
        
            SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
            SetImageWrapU(map[x+sizex/2,z+sizez/2].id,1)
            SetImageWrapV(map[x+sizex/2,z+sizez/2].id,1)
            
            SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
            Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
            SetObjectColor(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].colorred,map[x+sizex/2,z+sizez/2].colorgreen,map[x+sizex/2,z+sizez/2].colorblue,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)
endfunction
 
 
  
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 moveObjects(Obj,x as float,z as float,height as float)
	
    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
     
    if ObjectSphereSlide(0,getobjectx(obj),getobjecty(obj),getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj),.05)>0
        newx2#=getobjectx(obj)
        newy2#=GetObjectRayCastSlideY(0)+0.01
        newz2#=getobjectz(obj)
        Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
     
endfunction 
function getForwardDirectionVector(obj as integer)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,-0.005)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec
 
 
function    CreatePoint(x as float, y as float, z as float)
    p   as point
      
    p.x = x
    p.y = y
    p.z = z
endfunction p
 
function setupskyandworld()
     
    textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
    textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
    textimages[0]= createtexture(64,64,MakeColor(0,0,255),255)
 
    sundirection    as point
    sundirection = CreatePoint(0.2, -1, 0.2)                                    /// Setup Sun and lighting
    SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(0) 
    SetSunColor(0x80, 0x80, 0x80)
    //SetSkyBoxSunVisible(1)
  
    shadowmode as integer
    shadowMode = 3 // start with cascade shadow mapping which gives the best quality
    SetShadowMappingMode( shadowMode )
    SetShadowSmoothing( 1 ) // random sampling
    SetShadowMapSize( 1024,1024 )
    SetShadowRange( -1 ) // use the full camera range
    SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
endfunction
 
function setupcamera()
    camerax#=0
    cameray#=50
    cameraz#=-70
  
    SetCameraRotation(1,26,0,0)
endfunction
 
function setupobjects()
      
    frameImg=LoadImage("\media\frame2.png")
    frameSpr=createSprite(frameImg) 
    SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    heli=LoadObject("chopper.obj")
    heliBlades=LoadObject("blades.obj")
    heliBladesImg=LoadImage("blades.png")
    heliImg=loadImage("chopper.png")
    SetObjectImage(heli,heliImg,0)
    SetObjectImage(heliBlades,heliBladesImg,0)
    SetObjectPosition(heli,0,5,-10)
    SetObjectScale(heli,2,2,2)
    SetObjectPosition(heliBlades,0,.6,0)
    FixObjectToObject(heliBlades,heli)
    SetObjectScale(heliBlades,5,5,5)
    SetObjectCastShadow(heli,1)
    SetObjectCastShadow(heliBlades,1)
     
  
    tank=LoadObject("leopard2A42.obj")
    tankImg=loadImage("leopard2A4.png")
    SetObjectImage(tank,tankImg,0)
    SetObjectPosition(tank,0,2,-10)
    RotateObjectLocalY(tank,-90)
    SetObjectScale(tank,1,1,1)
endfunction

// Project: populous 
// Created: 2019-01-01
       
// show all errors
SetErrorMode(2)
       
// set window properties
SetWindowTitle( "populous" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
       
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Create3DPhysicsWorld()  
 
 
////////////////////////////////////////////////////
/// Setup the Constants      
#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
#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
#constant maxTerrainHeight# 50
////////////////////////////////////////////////////
/// Setup the Globals / Variables
  
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
global heli, tank,heliblades
global vertexnumber, landhitx, landhitz
global textimages as integer[10]
 
     
////////////////////////////////////////////////////
/// Setup the Types
type _map
    id
    x#
    height#
    z#
    colorred
    colorgreen
    colorblue
    texture
endtype
  
type point
    x           as float
    y           as float
    z           as float
endtype
      
global map as _map[sizex,sizez]
  
 
////////////////////////////////////////////////////
/// Initialise and Build the worlds
startx#=screenwidth/2
starty#=screenheight/2
 
setupcamera()
    
setupskyandworld()
   
buildworld()
 
prepareheights()
      
setupobjects()       
 
 
animatex#=0
animatez#=0
angle#=0 
do
    SetSpriteActive(frameSpr,0) 
     
    get_land_hit()
     
    checkkeypresses(landhitx,landhitz)
     
    moveenemies()

//waterfall
    for x=-sizex/2 to sizex/2 step 1.0
        for z=-sizez/2 to sizez/2 step 1.0
			SetObjectUVOffset(map[x+sizex/2,z+sizez/2].id,0,animatex#/100,animatez#/100)
		next
	next

	animatex# = 100 * sin(angle#)
	animatez# = 100 * cos(angle#)
	inc angle#,.01
    
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    SetSpriteActive(frameSpr,1) 
    Sync()
loop
 
function moveenemies()
    moveObjects(heli,-.005,0,7):RotateObjectGlobalY(heliBlades,.35)
    moveObjects(tank,0,-0.005,4)
endfunction
 
function checkkeypresses(x,z)
        //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) 
        movemap(-0.05,0.05)
        moveObjects(heli,-0.05,0,5):moveObjects(tank,-0.05,0,2)
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        moveObjects(heli,0.05,0,5):moveObjects(tank,0.05,0,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        moveObjects(heli,0,0.05,5):moveObjects(tank,0,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        moveObjects(heli,0,-0.05,5):moveObjects(tank,0,-0.05,2)
    endif 
  
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        moveObjects(heli,-0.05,0.05,5):moveObjects(tank,-0.05,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        moveObjects(heli,0.05,0.05,5):moveObjects(tank,0.05,0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        moveObjects(heli,0.05,-0.05,5):moveObjects(tank,0.05,-0.05,2)
    endif 
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        moveObjects(heli,-0.05,-0.05,5):moveObjects(tank,-0.05,-0.05,2)
    endif 
endfunction
 
 
function get_land_hit()
    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
                        landhitx=xx+sizex/2
                        landhitz=zz+sizez/2
                          
                    endif
                next zz
            next xx 
        endif
 endfunction
 
function buildworld()
    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)
		colorred=255
		colorblue=255
            if colorgreen=150
                colorgreen=200
            else
                colorgreen=150
            endif
                    
            map[x+sizex/2,z+sizez/2].colorgreen =colorGreen 
            map[x+sizex/2,z+sizez/2].colorred = colorred
			map[x+sizex/2,z+sizez/2].colorblue =colorblue
        
            SetObjectImage(map[x+sizex/2,z+sizez/2].id,textimages[0],0)
            SetImageWrapU(map[x+sizex/2,z+sizez/2].id,1)
            SetImageWrapV(map[x+sizex/2,z+sizez/2].id,1)
            
            SetObjectReceiveShadow(map[x+sizex/2,z+sizez/2].id,3) 
            Create3DPhysicsStaticBody(map[x+sizex/2,z+sizez/2].id)   
            SetObjectColor(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].colorred,map[x+sizex/2,z+sizez/2].colorgreen,map[x+sizex/2,z+sizez/2].colorblue,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)
endfunction
 
 
  
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 moveObjects(Obj,x as float,z as float,height as float)
	
    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
     
    if ObjectSphereSlide(0,getobjectx(obj),getobjecty(obj),getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj),.05)>0
        newx2#=getobjectx(obj)
        newy2#=GetObjectRayCastSlideY(0)+0.01
        newz2#=getobjectz(obj)
        Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
     
endfunction 
function getForwardDirectionVector(obj as integer)
    PositionVec= CreateVector3(GetObjectWorldX(obj),GetObjectWorldY(obj),GetObjectWorldZ(obj))
    DirBox as integer
    DirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( DirBox, GetVector3X( PositionVec ), GetVector3Y( PositionVec ), GetVector3Z( PositionVec ) ) 
    setobjectrotation(Dirbox,GetObjectWorldAngleX(obj),GetObjectWorldAngleY(obj),GetObjectWorldAngleZ(obj))
    MoveObjectLocalZ(DirBox,-0.005)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec
 
 
function    CreatePoint(x as float, y as float, z as float)
    p   as point
      
    p.x = x
    p.y = y
    p.z = z
endfunction p
 
function setupskyandworld()
     
    textimages[0]= createtexture(64,64,MakeColor(0,255,0),255)
    textimages[1]= createtexture(64,64,MakeColor(255,255,255),255)
    textimages[0]= createtexture(64,64,MakeColor(0,0,255),255)
 
    sundirection    as point
    sundirection = CreatePoint(0.2, -1, 0.2)                                    /// Setup Sun and lighting
    SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(0) 
    SetSunColor(0x80, 0x80, 0x80)
    //SetSkyBoxSunVisible(1)
  
    shadowmode as integer
    shadowMode = 3 // start with cascade shadow mapping which gives the best quality
    SetShadowMappingMode( shadowMode )
    SetShadowSmoothing( 1 ) // random sampling
    SetShadowMapSize( 1024,1024 )
    SetShadowRange( -1 ) // use the full camera range
    SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
endfunction
 
function setupcamera()
    camerax#=0
    cameray#=50
    cameraz#=-70
  
    SetCameraRotation(1,26,0,0)
endfunction
 
function setupobjects()
      
    frameImg=LoadImage("\media\frame2.png")
    frameSpr=createSprite(frameImg) 
    SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    heli=LoadObject("chopper.obj")
    heliBlades=LoadObject("blades.obj")
    heliBladesImg=LoadImage("blades.png")
    heliImg=loadImage("chopper.png")
    SetObjectImage(heli,heliImg,0)
    SetObjectImage(heliBlades,heliBladesImg,0)
    SetObjectPosition(heli,0,5,-10)
    SetObjectScale(heli,2,2,2)
    SetObjectPosition(heliBlades,0,.6,0)
    FixObjectToObject(heliBlades,heli)
    SetObjectScale(heliBlades,5,5,5)
    SetObjectCastShadow(heli,1)
    SetObjectCastShadow(heliBlades,1)
     
  
    tank=LoadObject("leopard2A42.obj")
    tankImg=loadImage("leopard2A4.png")
    SetObjectImage(tank,tankImg,0)
    SetObjectPosition(tank,0,2,-10)
    RotateObjectLocalY(tank,-90)
    SetObjectScale(tank,1,1,1)
endfunction

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)
            
            if random(0,10)=10
				r=255
				g=255
				b=255
				strength=0
			endif
      
            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 moveObjects(Obj,x as float,z as float,height as float)
//use this code for objects to go over terrain
///////////////////////////////////////////////////////////////////////////////////////////////    
    SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
        SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
        
    endif 
//////////////////////////////////////////////////////    
//use this code for objects to go around terrain    
//////////////////////////////////////////////////////
/*    oldx#=getObjectX(obj):oldy#=getObjecty(obj):oldz#=getObjectz(obj)
    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
        
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,getobjectx(obj),getobjecty(obj),getobjectz(obj),.005)>0
	    newx2#=GetObjectRayCastSlideX(0)
		newy2#=GetObjectRayCastSlideY(0)
		newz2#=GetObjectRayCastSlideZ(0)
		Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
*/
//////////////////////////////////////////////////////
    if getObjectX(Obj)<-(sizex*3) then SetObjectPosition(Obj,(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectX(Obj)>(sizex*3) then SetObjectPosition(Obj,-(sizex*3),getObjectY(Obj),getObjectZ(Obj))
    if getObjectZ(Obj)<-(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),(sizez*3))
    if getObjectZ(Obj)>(sizez*3) then SetObjectPosition(Obj,getObjectX(Obj),getObjectY(Obj),-(sizez*3))
endfunction

function moveObjects(Obj,x as float,z as float,height as float)
//use this code for objects to go over terrain
///////////////////////////////////////////////////////////////////////////////////////////////    
    /*
    SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
        SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
        
    endif
    */ 
//////////////////////////////////////////////////////    
//use this code for objects to go around terrain    
//////////////////////////////////////////////////////
    /*
    oldx#=getObjectX(obj):oldy#=getObjecty(obj):oldz#=getObjectz(obj)
    SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)
        
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,getobjectx(obj),getobjecty(obj),getobjectz(obj),.005)>0
	    newx2#=GetObjectRayCastSlideX(0)
		newy2#=GetObjectRayCastSlideY(0)
		newz2#=GetObjectRayCastSlideZ(0)
		Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
*/
//////////////////////////////////////////////////////

//this code to go over and around
///////////////////////////////////////////////////////////////////////////////////////////////    
    SetObjectPosition(Obj,getObjectX(Obj),getobjectY(Obj)+maxTerrainHeight#,getObjectZ(Obj))

    DirVec=getForwardDirectionVector(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj)+GetVector3X(DirVec),getobjectx(obj)+GetVector3X(DirVec),getobjecty(obj),getobjectz(obj)+GetVector3Z(DirVec))
    if hitObj>0
        oldx#=getObjectX(obj):oldy#=getObjecty(obj):oldz#=getObjectz(obj)
        SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(hitObj)+height,getObjectZ(Obj)+z)
    else
		oldx#=getObjectX(obj):oldy#=getObjecty(obj):oldz#=getObjectz(obj)
        SetObjectPosition(Obj,getObjectX(Obj)+x,height,getObjectZ(Obj)+z)    
    endif 
        
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,getobjectx(obj),getobjecty(obj),getobjectz(obj),.005)>0
	    newx2#=GetObjectRayCastSlideX(0)
		newy2#=GetObjectRayCastSlideY(0)
		newz2#=GetObjectRayCastSlideZ(0)
		Setobjectposition(obj,newx2#,newy2#,newz2#)
    endif
//////////////////////////////////////////////////////

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