Sorry your browser is not supported!

// Project: Populous Map
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Populous Map" )
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
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
CreateObjectFromHeightMap(1,"map.png",1024,20,1024,1,1)
//setobjectcolor(1,100,255,100,0)
loadimage(1,"colormap.png")
setobjectimage(1,1,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)

for i= 3 to 100
	cloneobject(i,2)
	setobjectposition(i,random(10,1024),0,random(10,1024))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

CreateSprite(LoadImage("frame2.png"))

setcameraposition(1,-60,130,-130)
setcameralookat(1,0,90,0,0)
do
   for i= 2 to 100
	   x#=getobjectx(i)
	   y#=getobjecty(i)
	   z#=getobjectz(i)
	   yy#=GetObjectHeightMapHeight( 1, x#,z# )
	 
	   setobjectposition(i,x#,yy#,z#)
	   MoveObjectLocalZ(i,0.3)
	   g#=g#+0.05
	   setobjectrotation(i,0,g#,0)
	   
	   if getobjectx(i)<10 then setobjectposition(i,10,getobjecty(i),getobjectz(i))
	   if getobjectx(i)>1024 then setobjectposition(i,1024,getobjecty(i),getobjectz(i))	      
	   if getobjectz(i)<10 then setobjectposition(i,getobjectx(i),getobjecty(i),10)
	   if getobjectz(i)>1024 then setobjectposition(i,getobjectx(i),getobjecty(i),1024)
	   
	   `getting new y value in front
	   MoveObjectLocalZ(i,5)
	   x2#=getobjectx(i)
	   z2#=getobjectz(i)
	   y2#=GetObjectHeightMapHeight( 1, x2#,z2# )
	   moveobjectlocalz(i,-5)
	   
	   
	   
	   `getting new y on left side   !!Sensor  N O T  W O R K I N G !! at the moment
	   MoveObjectLocalX(i,-5)
	   x3#=getobjectx(i)
	   z3#=getobjectz(i)
	   y3#=GetObjectHeightMapHeight( 1, x3#,z3# )
	   MoveObjectLocalX(i,5)
	   
	   roll=(y#-y3#)*12
	   setobjectlookat(i,x2#,y2#,z2#,roll)
	
	next

`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
    Print( ScreenFPS() )
    print("Use cursor /mouse to fly")
      Sync()
loop

// Project: Populous Map
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

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

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
global mesh,world

world=CreateObjectFromHeightMap("map.png",4096,40,4096,1,1)


//world = CreateObjectSphere(1000,50,50)
mesh = CreateMemblockFromObjectMesh(world,1)

//setobjectcolor(1,100,255,100,0)
loadimage(1,"colormap.png")

setobjectimage(world,1,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)

for i= 3 to 100
	cloneobject(i,2)
	setobjectposition(i,random(10,1024),0,random(10,1024))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next

//CreateSprite(LoadImage("frame2.png"))
//SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(1) 
    SetSunColor(0x80, 0x80, 0x80)
    

mouse = CreateObjectBox(1,1,1)

setcameralookat(1,0,90,0,0)
startx#=1024/2
starty#=768/2
startv=100
raiseground()

camerax#=95
cameray#=0
cameraz#=140

setcameraposition(1,-60,130,-130)

SetCameraRange(1,.01,1000)

do
	print(camerax#)
	print(cameraz#)
//vertexes
	 print("verexes " + str(GetMemblockInt(mesh,0)))
    if ( GetRawKeyState( 32) ) 
 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
 
    if ( GetRawKeyState( 13) ) 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)-1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
   
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	
	SetCameraPosition(1,camerax#,GetObjectHeightMapHeight( world, camerax#,cameraz# )+5,cameraz#)
	   
`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
    Print( ScreenFPS() )
    print("Use cursor /mouse to walk about")
      Sync()
loop

function raiseground()
	for a=0 to 5
		startv=random(0,2000)
        for v=startv to startv+100
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+10,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(world,1,mesh)
	next
endfunction
	
	
	

// Project: Populous Map
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

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

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
global mesh,world, camerax#, cameraz#, cameray#

type _side
    ID as integer
    bladesID as integer
    imgID as integer
    bladesImgID as integer
    sideType as String
    xDir as float
    zDir as float
    height as float
endtype
global team1 as _side[]


world=CreateObjectFromHeightMap("map.png",4096,40,4096,1,1)


//world = CreateObjectSphere(1000,50,50)
mesh = CreateMemblockFromObjectMesh(world,1)

//setobjectcolor(1,100,255,100,0)
loadimage(1,"colormap.png")

setobjectimage(world,1,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)
/*
for i= 3 to 100
	cloneobject(i,2)
	setobjectposition(i,random(10,1024),0,random(10,1024))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next
*/

//CreateSprite(LoadImage("frame2.png"))
//SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(1) 
    SetSunColor(0x80, 0x80, 0x80)
    

mouse = CreateObjectBox(1,1,1)

setcameralookat(1,0,90,0,0)
startx#=1024/2
starty#=768/2
startv=100
raiseground()

camerax#=95
cameray#=0
cameraz#=140

setupobjects()

setcameraposition(1,-60,130,-130)

SetCameraRange(1,.01,1000)

do
	print(camerax#)
	print(cameraz#)
//vertexes
	 print("verexes " + str(GetMemblockInt(mesh,0)))
    if ( GetRawKeyState( 32) ) 
 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
 
    if ( GetRawKeyState( 13) ) 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)-1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
   
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	
	SetCameraPosition(1,camerax#,GetObjectHeightMapHeight( world, camerax#,cameraz# )+5,cameraz#)
	   
`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
//	MoveCameraLocalY(1,(GetObjectHeightMapHeight(world,camerax#,cameraz#))+5)
	
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
    Print( ScreenFPS() )
    print("Use cursor /mouse to walk about")
      Sync()
loop

function raiseground()
	for a=0 to 5
		startv=random(0,2000)
        for v=startv to startv+100
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+50,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(world,1,mesh)
	next
endfunction
	
	
	
function setupobjects()
    team as _side
       
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
       
       
        
    //frameImg=LoadImage("\media\frame2.png")
    //frameSpr=createSprite(frameImg) 
    //SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    team.ID=LoadObject("chopper.obj")
    team.bladesID=LoadObject("blades.obj")
    team.bladesImgID=LoadImage("blades.png")
    team.imgID=loadImage("chopper.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectImage(team.bladesID,team.bladesImgID,0)
    SetObjectPosition(team.ID,0,5,-10)
    SetObjectScale(team.ID,2,2,2)
    SetObjectPosition(team.bladesID,0,.6,0)
    FixObjectToObject(team.bladesID,team.ID)
    SetObjectScale(team.bladesID,5,5,5)
    SetObjectCastShadow(team.ID,1)
    SetObjectCastShadow(team.bladesID,1)
//    vec=getForwardDirectionVector2(team.ID,.025)
 //   team.xDir=GetVector3X(vec)
  //  zDir=GetVector3Z(vec)
    team.height=10
    team.sideType="Chopper"
    team1.insert(team)
    
    team.ID=LoadObject("leopard2A4.obj")
    team.imgID=loadImage("leopard2A4.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectPosition(team.ID,0,2,-10)
    RotateObjectLocalY(team.ID,-90)
    SetObjectScale(team.ID,1,1,1)
    SetObjectCastShadow(team.ID,1)
   // vec=getForwardDirectionVector2(team.ID,.015)
   // team.xDir=GetVector3X(vec)
    //team.zDir=GetVector3Z(vec)
    team.height=2
    team.sideType="Tank"
    team1.insert(team)
    soldierobj =LoadObject("soldier.obj")    
    soldierImg=LoadImage("soldier.png") 
	
    for num = 0 to 50
        team.ID=CloneObject(soldierobj)
        team.imgID=soldierImg
        SetObjectImage(team.ID,team.imgID,0)
        
        x#=random(camerax#-100,camerax#+100)
        z#=random(cameraz#-100,cameraz#+100)
        
        SetObjectPosition(team.ID,x#,GetObjectHeightMapHeight(world,x#,z#)+5,z#)
        RotateObjectLocalY(team.ID,90)
        SetObjectScale(team.ID,.6,.6,.6)
        SetObjectCastShadow(team.ID,1)
      //  vec=getForwardDirectionVector2(team.ID,.005)
       // team.xDir=GetVector3X(vec)
        //team.zDir=GetVector3Z(vec)
        team.height=7
        team.sideType="Soldier"
        team1.insert(team)
    next num
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)
loadimage(2,"grass.png")
`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,2,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)


loadobject(26,"leopard2a42.obj")
loadimage(26,"leopard2a4.png")
setobjectrotation(26,0,90,0)
setobjectimage(26,26,0)
fixobjectpivot(26)
setobjectposition(26,20,2,20)


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

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

setcameraposition(1,-15,10,30)
SetCameraLookAt(1,0,8,35,0)
do
    oldx#=Getobjectx(26)
    oldy#=Getobjecty(26)
    oldz#=Getobjectz(26)
 
    moveobjectlocalz(26,(GetRawKeyState( 38 )*0.5)-GetRawKeyState( 40 )*0.5)
    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
 
  nx#=getobjectx(27)
 ny#=getobjecty(27)
 nz#=getobjectz(27)
 
 setobjectposition(27,getobjectx(26),getobjecty(27)-0.1,getobjectz(26))
 setobjectrotation(27,GetObjectAngleX(26),GetObjectAngleY(26),GetObjectAngleZ(26))
  
 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 16
		print ("")
		next
    Print("Use cursor to go up the hill" )
    print("Use 1 / 2 to modify terrain")
    print("R to reste position")
       
    if getRawKeyState( 49 )
		 movev(20,60,25,70,-1)
    endif
    if getRawKeyState( 50 )
		 movev(20,60,25,70,1)
		 MoveObjectLocalY(26,1)
		 MoveObjectLocalY(27,1)
    endif
 
    if getRawKeyState( 82 )
		 setobjectposition(26,getobjectx(26),3,getobjectz(26))
		 setobjectposition(27,getobjectx(27),3,getobjectz(27))
    endif
    
    SetCameraLookAt(1,getobjectx(26),getobjecty(26),getobjectz(26),0)
    
    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

// Project: Populous Map
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

#constant maxTerrainHeight# 50
#constant sizex=4096
#constant sizez=4096
// set window properties
SetWindowTitle( "Populous Map" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
global mesh,world, camerax#, cameraz#, cameray#

type _side
    ID as integer
    bladesID as integer
    imgID as integer
    bladesImgID as integer
    sideType as String
    xDir as float
    zDir as float
    height as float
endtype
global team1 as _side[]


world=CreateObjectFromHeightMap("map.png",sizex,maxTerrainHeight#,sizez,1,1)


//world = CreateObjectSphere(1000,50,50)
mesh = CreateMemblockFromObjectMesh(world,1)

//setobjectcolor(1,100,255,100,0)
loadimage(1,"colormap.png")

setobjectimage(world,1,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)
/*
for i= 3 to 100
	cloneobject(i,2)
	setobjectposition(i,random(10,1024),0,random(10,1024))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next
*/

//CreateSprite(LoadImage("frame2.png"))
//SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(1) 
    SetSunColor(0x80, 0x80, 0x80)
    

mouse = CreateObjectBox(1,1,1)

setcameralookat(1,0,90,0,0)
startx#=1024/2
starty#=768/2
startv=100
raiseground()

camerax#=95
cameray#=0
cameraz#=140

setupobjects()

setcameraposition(1,-60,130,-130)

SetCameraRange(1,.01,1000)

do

	moveenemies()

	print(camerax#)
	print(cameraz#)
//vertexes
	 print("verexes " + str(GetMemblockInt(mesh,0)))
    if ( GetRawKeyState( 32) ) 
 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
 
    if ( GetRawKeyState( 13) ) 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)-1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
   
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	
	SetCameraPosition(1,camerax#,GetObjectHeightMapHeight( world, camerax#,cameraz# )+5,cameraz#)
	   
`camera moving	
	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
//	MoveCameraLocalY(1,(GetObjectHeightMapHeight(world,camerax#,cameraz#))+5)
	
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
    Print( ScreenFPS() )
    print("Use cursor /mouse to walk about")
      Sync()
loop

function moveenemies()
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
    for num=0 to team1.length 
        Obj=team1[num].ID
        x#=getobjectx(team1[num].id)
       
        z#=getobjectz(team1[num].id)
		y#=GetObjectHeightMapHeight(world,x#,z#)+5
        SetObjectPosition(team1[num].ID,x#+.01,y#,z#)
        
        //moveObjects(team1[num].ID,getobjectx(team1[num].xDir,team1[num].zDir,team1[num].height)
        if team1[num].sideType="Chopper" then RotateObjectLocalY(team1[num].bladesID,.5)
    next num
endfunction


function raiseground()
	for a=0 to 5
		startv=random(0,2000)
        for v=startv to startv+100
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+50,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(world,1,mesh)
	next
endfunction
	
	
	
function setupobjects()
    team as _side
       
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
       
       
        
    //frameImg=LoadImage("\media\frame2.png")
    //frameSpr=createSprite(frameImg) 
    //SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    team.ID=LoadObject("chopper.obj")
    team.bladesID=LoadObject("blades.obj")
    team.bladesImgID=LoadImage("blades.png")
    team.imgID=loadImage("chopper.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectImage(team.bladesID,team.bladesImgID,0)
    SetObjectPosition(team.ID,0,5,-10)
    SetObjectScale(team.ID,2,2,2)
    SetObjectPosition(team.bladesID,0,.6,0)
    FixObjectToObject(team.bladesID,team.ID)
    SetObjectScale(team.bladesID,5,5,5)
    SetObjectCastShadow(team.ID,1)
    SetObjectCastShadow(team.bladesID,1)
//    vec=getForwardDirectionVector2(team.ID,.025)
 //   team.xDir=GetVector3X(vec)
  //  zDir=GetVector3Z(vec)
    team.height=10
    team.sideType="Chopper"
    team1.insert(team)
    
    team.ID=LoadObject("leopard2A4.obj")
    team.imgID=loadImage("leopard2A4.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectPosition(team.ID,0,2,-10)
    RotateObjectLocalY(team.ID,-90)
    SetObjectScale(team.ID,1,1,1)
    SetObjectCastShadow(team.ID,1)
   // vec=getForwardDirectionVector2(team.ID,.015)
   // team.xDir=GetVector3X(vec)
    //team.zDir=GetVector3Z(vec)
    team.height=2
    team.sideType="Tank"
    team1.insert(team)
    soldierobj =LoadObject("soldier.obj")    
    soldierImg=LoadImage("soldier.png") 
	
    for num = 0 to 50
        team.ID=CloneObject(soldierobj)
        team.imgID=soldierImg
        SetObjectImage(team.ID,team.imgID,0)
        team.xDir=1
        team.zdir=1
        x#=random(camerax#-100,camerax#+100)
        z#=random(cameraz#-100,cameraz#+100)
        
        SetObjectPosition(team.ID,x#,GetObjectHeightMapHeight(world,x#,z#)+5,z#)
        RotateObjectLocalY(team.ID,90)
		
        SetObjectScale(team.ID,.6,.6,.6)
        SetObjectCastShadow(team.ID,1)
  
  // maybe???
  // red enemies
  // green goodies
        
//        SetObjectColor(team.id,255,0,0,255)
        
        
      //  vec=getForwardDirectionVector2(team.ID,.005)
       // team.xDir=GetVector3X(vec)
        //team.zDir=GetVector3Z(vec)
        team.height=7
        team.sideType="Soldier"
        team1.insert(team)
    next num
endfunction
function moveObjects(Obj,x as float,z as float,height as float)
choice=random(1,2)
//use this code for objects to go over terrain
///////////////////////////////////////////////////////////////////////////////////////////////    
/*
if choice=1    
    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
endif 
*/ 
//////////////////////////////////////////////////////    
//use this code for objects to go around terrain    
//////////////////////////////////////////////////////
/*
if choice=2
    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
endif
*/
//////////////////////////////////////////////////////
   
//this code to go over and around
///////////////////////////////////////////////////////////////////////////////////////////////    
   
    SetObjectPosition(Obj,getObjectX(Obj),GetObjectHeightMapHeight(obj,x,z),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
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
  

// Project: Populous Map
// Created: 2019-02-22

// show all errors
SetErrorMode(2)

#constant maxTerrainHeight# 50
#constant sizex=4096
#constant sizez=4096
// set window properties
SetWindowTitle( "Populous Map" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
//getimage(100,0,0,5,5)
//saveimage(100,"raw:D:\AGK2\Aligntoterrain\media\height.png")
global mesh,world, camerax#, cameraz#, cameray#

type _side
    ID as integer
    bladesID as integer
    imgID as integer
    bladesImgID as integer
    sideType as String
    xDir as float
    zDir as float
    height as float
endtype
global team1 as _side[]


world=CreateObjectFromHeightMap("map.png",sizex,maxTerrainHeight#,sizez,1,1)


//world = CreateObjectSphere(1000,50,50)
mesh = CreateMemblockFromObjectMesh(world,1)

//setobjectcolor(1,100,255,100,0)
img = createtexture(700,700,MakeColor(0,200,0),90)
setobjectimage(world,img,0)

createobjectbox(2,5,2,7)
createobjectbox(3,0.5,10,0.5)
setobjectposition(3,0,5,0)
fixobjectpivot(3)

CreateMemblockFromObjectMesh(2,2,1)
CreateMemblockFromObjectMesh(3,3,1)
deleteobject(3)
AddObjectMeshFromMemblock(2,3)
/*
for i= 3 to 100
	cloneobject(i,2)
	setobjectposition(i,random(10,1024),0,random(10,1024))
	setobjectcolor(i,random(0,255),random(0,255),random(0,255),0)
next
*/

CreateSprite(LoadImage("frame2.png"))
//SetSunDirection(sundirection.x, sundirection.y, sundirection.z)
    SetAmbientColor(0x60, 0x60, 0x60)
    SetSkyBoxSkyColor(14,158,194 ) 
    SetSkyBoxHorizonSize(1,-350 ) 
    SetSkyBoxVisible(1) 
    SetSunColor(0x80, 0x80, 0x80)
    

mouse = CreateObjectBox(1,1,1)

setcameralookat(1,0,90,0,0)
startx#=1024/2
starty#=768/2
startv=100
raiseground()

camerax#=95
cameray#=0
cameraz#=140

setupobjects()

setcameraposition(1,-60,130,-130)

SetCameraRange(1,.01,1000)
SetCameraRotation(1,33,49,0)

do

	moveenemies()

	print(camerax#)
	print(cameraz#)
//	print(angx#)
//	print(GetCameraAngleY(1))
//	print(angy#)
//vertexes
	 print("verexes " + str(GetMemblockInt(mesh,0)))
    if ( GetRawKeyState( 32) ) 
 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
 
    if ( GetRawKeyState( 13) ) 
        for v=startv to startv+200
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)-1,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(1,1,mesh)
    endif
   
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	if GetRawKeyState(38) then inc cameraz#,.1
	if GetRawKeyState(40) then dec cameraz#,.1
	
	SetCameraPosition(1,camerax#,GetObjectHeightMapHeight(world,camerax#,cameraz#)+50,cameraz#)
	   
`camera moving	
/*	  movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	  movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
//	MoveCameraLocalY(1,(GetObjectHeightMapHeight(world,camerax#,cameraz#))+5)
	
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
  */
  
    Print( ScreenFPS() )
    print("Use cursor /mouse to walk about")
      Sync()
loop

function moveenemies()
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
    for num=0 to team1.length 
        Obj=team1[num].ID
        x#=getobjectx(team1[num].id)
       
        z#=getobjectz(team1[num].id)
		y#=GetObjectHeightMapHeight(world,x#,z#)+5
        SetObjectPosition(team1[num].ID,x#+.01,y#,z#)
        
        //moveObjects(team1[num].ID,getobjectx(team1[num].xDir,team1[num].zDir,team1[num].height)
        if team1[num].sideType="Chopper" then RotateObjectLocalY(team1[num].bladesID,.5)
    next num
endfunction


function raiseground()
	for a=0 to 5
		startv=random(0,2000)
        for v=startv to startv+100
            SetMeshMemblockVertexPosition(mesh,v,GetMeshMemblockVertexX(mesh,v),GetMeshMemblockVertexY(mesh,v)+50,GetMeshMemblockVertexZ(mesh,v))
        next
        SetObjectMeshFromMemblock(world,1,mesh)
	next
endfunction
	
	
	
function setupobjects()
    team as _side
       
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
       
       
        
    //frameImg=LoadImage("\media\frame2.png")
    //frameSpr=createSprite(frameImg) 
    //SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    team.ID=LoadObject("chopper.obj")
    team.bladesID=LoadObject("blades.obj")
    team.bladesImgID=LoadImage("blades.png")
    team.imgID=loadImage("chopper.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectImage(team.bladesID,team.bladesImgID,0)
    SetObjectPosition(team.ID,0,5,-10)
    SetObjectScale(team.ID,2,2,2)
    SetObjectPosition(team.bladesID,0,.6,0)
    FixObjectToObject(team.bladesID,team.ID)
    SetObjectScale(team.bladesID,5,5,5)
    SetObjectCastShadow(team.ID,1)
    SetObjectCastShadow(team.bladesID,1)
//    vec=getForwardDirectionVector2(team.ID,.025)
 //   team.xDir=GetVector3X(vec)
  //  zDir=GetVector3Z(vec)
    team.height=10
    team.sideType="Chopper"
    team1.insert(team)
    
    team.ID=LoadObject("leopard2A4.obj")
    team.imgID=loadImage("leopard2A4.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectPosition(team.ID,0,2,-10)
    RotateObjectLocalY(team.ID,-90)
    SetObjectScale(team.ID,1,1,1)
    SetObjectCastShadow(team.ID,1)
   // vec=getForwardDirectionVector2(team.ID,.015)
   // team.xDir=GetVector3X(vec)
    //team.zDir=GetVector3Z(vec)
    team.height=2
    team.sideType="Tank"
    team1.insert(team)
    soldierobj =LoadObject("soldier.obj")    
    soldierImg=LoadImage("soldier.png") 
	
    for num = 0 to 50
        team.ID=CloneObject(soldierobj)
        team.imgID=soldierImg
        SetObjectImage(team.ID,team.imgID,0)
        team.xDir=1
        team.zdir=1
        x#=random(camerax#-100,camerax#+100)
        z#=random(cameraz#-100,cameraz#+100)
        
        SetObjectPosition(team.ID,x#,GetObjectHeightMapHeight(world,x#,z#)+5,z#)
        RotateObjectLocalY(team.ID,90)
		
        SetObjectScale(team.ID,.1,.1,.1)
        SetObjectCastShadow(team.ID,1)
  
  // maybe???
  // red enemies
  // green goodies
        
//        SetObjectColor(team.id,255,0,0,255)
        
        
      //  vec=getForwardDirectionVector2(team.ID,.005)
       // team.xDir=GetVector3X(vec)
        //team.zDir=GetVector3Z(vec)
        team.height=7
        team.sideType="Soldier"
        team1.insert(team)
    next num
endfunction
function moveObjects(Obj,x as float,z as float,height as float)
choice=random(1,2)
//use this code for objects to go over terrain
///////////////////////////////////////////////////////////////////////////////////////////////    
/*
if choice=1    
    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
endif 
*/ 
//////////////////////////////////////////////////////    
//use this code for objects to go around terrain    
//////////////////////////////////////////////////////
/*
if choice=2
    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
endif
*/
//////////////////////////////////////////////////////
   
//this code to go over and around
///////////////////////////////////////////////////////////////////////////////////////////////    
   
    SetObjectPosition(Obj,getObjectX(Obj),GetObjectHeightMapHeight(obj,x,z),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
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 createtexture(sizex# as float, sizey# as float, color, density as integer)
      
          
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
          
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
          
          
        size=GetMemblockSize(memblockid)
      
        for offset=12 to size-4 step 4
            
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
                  
              
            strength=random(1,density)
      
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
                   
              
    next
          
    deleteimage (img)
          
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
      
      
endfunction img

// Project: populous
// Created: 2019-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=18 // change this to extend the map
#constant sizez=18 // change this to exend the map
#constant worldsizex=512
#constant worldsizez=512
#constant scale#=5
#constant maxTerrainHeight# 50
////////////////////////////////////////////////////
/// Setup the Globals / Variables
   
global angx#, angy#,startx#,starty#,camerax#,cameray#,cameraz#,framespr
//global heli, tank,heliblades,soldiers as integer[5]
global team1 as _side[]
global vertexnumber, landhitx, landhitz
global textimages as integer[10]
  
      
////////////////////////////////////////////////////
/// Setup the Types
type _worldmap
    heights#
    color
endtype
 
type _side
    ID as integer
    bladesID as integer
    imgID as integer
    bladesImgID as integer
    sideType as String
    xDir as float
    zDir as float
    height as float
endtype
 
global worldmap as _worldmap[worldsizex,worldsizez]
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
  
spr = buildworldsprite()
SetObjectRotation(spr,0,45,0)
 
setupcamera()
     
setupskyandworld()
    
buildworld()
  
prepareheights()
       
setupobjects()       
  
// SetSpriteVisible(framespr,0)
  
 
do
     
    SetObjectPosition(spr,-25,30,-10)
//    SetSpriteActive(frameSpr,0) 
      
    get_land_hit()
      
    checkkeypresses(landhitx,landhitz)
      
    moveenemies()
      
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
  //  SetSpriteActive(frameSpr,1) 
    Sync()
loop
 
function buildworldsprite()
    mapobject = CreateObjectBox(25,.1,25)
    img= LoadImage("\media\map.png")
    SetObjectImage(mapobject,img,0)
    imgmem = CreateMemblockFromImage(img)
    imgwidth = GetMemblockInt(imgmem,0)
    print(imgwidth)
    sync()
    sleep(1)
 
    for x=0 to worldsizex-1
        for z=0 to worldsizez-1
            worldmap[x,z].heights#=random(0,1)
 
    offset = (12+((z * 512) + x) * 4)           
            //offset=12 + ((z * 512) + x) * 4
            r= GetMemblockByte(imgmem,offset)
            g= GetMemblockByte(imgmem,offset+1)
            b= GetMemblockByte(imgmem,offset+2)
             
             
            worldmap[x,z].color=MakeColor(r,g,b)
            h=g/100
            worldmap[x,z].heights#=h
 
 
        next
    next
    DeleteMemblock(imgmem)
             
//  SetSpriteSize(mapsprite,200,200)
//  SetSpriteAngle(mapsprite,70)
//  SetSpriteDepth(mapsprite,99)
endfunction mapobject
 
function moveenemies()
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
    for num=0 to team1.length 
        Obj=team1[num].ID
        moveObjects(team1[num].ID,team1[num].xDir,team1[num].zDir,team1[num].height)
        if team1[num].sideType="Chopper" then RotateObjectLocalY(team1[num].bladesID,.5)
    next num
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 worldmap[x,z].heights#,.01
            SetObjectPosition(map[x,z].id,map[x,z].x#,worldmap[x,z].heights#,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 worldmap[x,z].heights#>0
                dec worldmap[x,z].heights#,.01
                SetObjectPosition(map[x,z].id,map[x,z].x#,worldmap[x,z].heights#,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 worldmap[x,z].heights#,10
                SetObjectPosition(map[x,z].id,map[x,z].x#,worldmap[x,z].heights#,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)
         for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,0)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,0)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0.05,0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(-0.05,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0,-0.05)
        next num    
    endif
    
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(0,0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,-0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,0)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,-0.05)
        next num    
    endif 
endfunction
  
function moveObjectsWithMap(Obj,x as float,z as float)
    SetObjectPosition(Obj,getObjectX(Obj)+x,getobjectY(Obj),getObjectZ(Obj)+z)
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 = CreateObjectBox(5,100,100)
SetObjectRotation(edge1,0,0,0)
SetObjectPosition(edge1,(sizex*scale#)/2,7,0)
FixObjectToObject(edge1,land)
SetObjectColor(edge1,0,0,0,0)
 
edge1 = CreateObjectBox(10,10,100)
SetObjectRotation(edge1,0,0,0)
SetObjectPosition(edge1,-(sizex*scale#)/2,7,0)
FixObjectToObject(edge1,land)
SetObjectColor(edge1,0,0,0,0)
 
 
edge1 = CreateObjectBox(100,100,5)
SetObjectRotation(edge1,0,0,0)
SetObjectPosition(edge1,0,7,(sizex*scale#)/2)
FixObjectToObject(edge1,land)
SetObjectColor(edge1,0,0,0,0)
 
edge1 = CreateObjectBox(100,10,10)
SetObjectRotation(edge1,0,0,0)
SetObjectPosition(edge1,0,7,-(sizex*scale#)/2)
FixObjectToObject(edge1,land)
SetObjectColor(edge1,0,0,0,0)
 
 
  
  
    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].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].colorblue = worldmap[x+sizex/2,z+sizez/2].color >> 16 && 0xff
            map[x+sizex/2,z+sizez/2].colorgreen = worldmap[x+sizex/2,z+sizez/2].color >> 8 && 0xff
            map[x+sizex/2,z+sizez/2].colorred = worldmap[x+sizex/2,z+sizez/2].color && 0xff
             
             
             
            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,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#,worldmap[x+sizex/2,z+sizez/2].heights#,map[x+sizex/2,z+sizez/2].z#)
            FixObjectToObject(map[x+sizex/2,z+sizez/2].id,land)
                     
        next
    next
    addatower(sizex/2, sizez/2) // add a tower in the centre of map just for time being
     
    RotateObjectLocalY(land,0)
//RotateObjectLocalX(land,-70)
endfunction
 
  
function addatower(x,z)
    for xx=x-1 to x+1
        for zz=z-1 to z+1
            worldmap[xx,zz].heights#=5 // high rise it
             
            map[xx,zz].colorred =255 
            map[xx,zz].colorgreen =255
            map[xx,zz].colorblue=255
            SetObjectColor(map[xx,zz].id,map[xx,zz].colorred,map[xx,zz].colorgreen,map[xx,zz].colorblue,255)
            SetObjectPosition(map[x+sizex/2,z+sizez/2].id,map[x+sizex/2,z+sizez/2].x#,worldmap[x+sizex/2,z+sizez/2].heights#,map[x+sizex/2,z+sizez/2].z#)
            changeverts(xx,zz,worldmap[xx,zz].heights#)
            
        next
    next
     
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#,worldmap[x+sizex/2,z+sizez/2].heights#,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,worldmap[x,z].heights#)
        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)
choice=random(1,2)
//use this code for objects to go over terrain
///////////////////////////////////////////////////////////////////////////////////////////////    
/*
if choice=1    
    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
endif 
*/ 
//////////////////////////////////////////////////////    
//use this code for objects to go around terrain    
//////////////////////////////////////////////////////
/*
if choice=2
    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
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
 
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[0]= 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()
    team as _side
       
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
       
       
        
    frameImg=LoadImage("\media\frame2.png")
    frameSpr=createSprite(frameImg) 
    SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    team.ID=LoadObject("chopper.obj")
    team.bladesID=LoadObject("blades.obj")
    team.bladesImgID=LoadImage("blades.png")
    team.imgID=loadImage("chopper.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectImage(team.bladesID,team.bladesImgID,0)
    SetObjectPosition(team.ID,0,5,-10)
    SetObjectScale(team.ID,2,2,2)
    SetObjectPosition(team.bladesID,0,.6,0)
    FixObjectToObject(team.bladesID,team.ID)
    SetObjectScale(team.bladesID,5,5,5)
    SetObjectCastShadow(team.ID,1)
    SetObjectCastShadow(team.bladesID,1)
    vec=getForwardDirectionVector2(team.ID,.025)
    team.xDir=GetVector3X(vec)
    zDir=GetVector3Z(vec)
    team.height=10
    team.sideType="Chopper"
    team1.insert(team)
    
    team.ID=LoadObject("leopard2A4.obj")
    team.imgID=loadImage("leopard2A4.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectPosition(team.ID,0,2,-10)
    RotateObjectLocalY(team.ID,-90)
    SetObjectScale(team.ID,1,1,1)
    SetObjectCastShadow(team.ID,1)
    vec=getForwardDirectionVector2(team.ID,.015)
    team.xDir=GetVector3X(vec)
    team.zDir=GetVector3Z(vec)
    team.height=2
    team.sideType="Tank"
    team1.insert(team)
       
    soldierImg=LoadImage("soldier.png") 
    for num = 0 to 5
        team.ID=LoadObject("soldier.obj")
        team.imgID=soldierImg
        SetObjectImage(team.ID,team.imgID,0)
        SetObjectPosition(team.ID,num*2,6,-(10+num))
        RotateObjectLocalY(team.ID,90)
        SetObjectScale(team.ID,.6,.6,.6)
        SetObjectCastShadow(team.ID,1)
        vec=getForwardDirectionVector2(team.ID,.005)
        team.xDir=GetVector3X(vec)
        team.zDir=GetVector3Z(vec)
        team.height=7
        team.sideType="Soldier"
        team1.insert(team)
    next num
endfunction
 
   
//vec=getForwardDirectionVector2(objId,.005)
//xDir=GetVector3X(vec)
//zDir=GetVector3Z(vec)
function getForwardDirectionVector2(obj as integer,moveAmmount as float)
    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))
    MoveObjectLocalX(DirBox,-moveAmmount)
    DirVec = CreateVector3( GetobjectWorldX(DirBox )-GetVector3X(PositionVec), GetobjectWorldY(DirBox)-GetVector3Y(PositionVec), GetobjectWorldZ(DirBox)-GetVector3Z(PositionVec))    
    DeleteObject(DirBox)
endfunction DirVec
 
function getMoveAmmount(Obj,x as float,z as float)
    x#=GetObjectWorldX(Obj):y#=GetObjectWorldY(Obj):z#=GetObjectWorldZ(Obj)
    xx#=x#+x:zz#=z#+z
    vec1=CreateVector3(x#,y#,z#)
    vec2=CreateVector3(xx#,y#,zz#)
    moveAmmount#=GetVector3Distance(vec1,vec2 ) 
    DeleteVector3(vec1)
    DeleteVector3(vec2)
endfunction moveAmmount#  
 
function moveObjects2(Obj,x as float,z as float,height as float)
    x#=getobjectx(Obj)
    y#=getobjecty(Obj)
    z#=getobjectz(Obj)
    //vec=getForwardDirectionVector2(obj,moveAmmount#)
    moveAmmount#=getMoveAmmount(Obj,x,z)
    hitObj=ObjectRayCast(0,getobjectx(obj),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj))
    if hitObj>0
        yy#=GetObjectY(hitObj)+height
    else
        yy#=getObjectY(obj)
    endif   
    setobjectposition(Obj,x#,yy#,z#)
     
     
    MoveObjectLocalX(Obj,-moveAmmount#)
    setobjectrotation(Obj,0,GetObjectWorldAngleY(obj),0)   
     
    //getting new y value in front  
    MoveObjectLocalX(Obj,-moveAmmount#)
    x2#=getobjectx(Obj)
    z2#=getobjectz(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj))
    if hitObj>0
        y2#=GetObjectY(hitObj)+height
    else
        y2#=getObjecty(obj)
    endif  
    moveobjectlocalX(Obj,moveAmmount#)  
    //setobjectlookat(Obj,GetVector3X(vec),GetVector3Y(vec),GetVector3Z(vec),0)
    moveobjectlocalZ(Obj,moveAmmount#)  
    x3#=getobjectx(Obj)
    z3#=getobjectz(Obj)
    hitObj=ObjectRayCast(0,getobjectx(obj),getobjecty(obj)-(maxTerrainHeight#+50),getobjectz(obj),getobjectx(obj),getobjecty(obj),getobjectz(obj))
    if hitObj>0
        y3#=GetObjectY( hitObj)+height
    else
        y3#=getObjectY(obj)
    endif      
     
    MoveObjectLocalZ(Obj,-moveAmmount#)
     
     
//////////////////////////////////////////////////////
  
    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

    if GetRawKeyState(KEY_NUMPAD_4) 
        movemap(-0.05,0)
         for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,0)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_6) 
        movemap(0.05,0)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,0)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_8) 
        movemap(0,0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_2) 
        movemap(0,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0,-0.05)
        next num    
    endif
    
    if GetRawKeyState(KEY_NUMPAD_7) 
        movemap(-0.05,0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_9) 
        movemap(0.05,0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_3) 
        movemap(0.05,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,0.05,-0.05)
        next num    
    endif
    if GetRawKeyState(KEY_NUMPAD_1) 
        movemap(-0.05,-0.05)
        for num = 0 to team1.length
            moveObjectsWithMap(team1[num].ID,-0.05,-0.05)
        next num    
    endif 

// Project: Load soldat 
// Created: 2019-02-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Load soldat" )
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

LoadObjectWithChildren(1,"soldat.x")
loadimage(1,"soldier.png")
setobjectimage(1,1,0)
PlayObjectAnimation( 1, "", 1, 11, 1, 0 )

setobjectrotation(1,180,0,0)
setcameraposition(1,-10,10,-10)
SetCameraLookAt(1,0,0,0,0)
setobjectcullmode(1,0)
SetObjectAnimationSpeed( 1, 10 )

do
    
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif

    Print( ScreenFPS() )
    Sync()
loop

function setupobjects()
    team as _side
       
    //moveObjects(heli,-.005,0,10):RotateObjectGlobalY(heliBlades,.35)
    //moveObjects(tank,0,-0.005,2)
       
       
   
    frameImg=LoadImage("\media\frame2.png")
    frameSpr=createSprite(frameImg) 
    SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    angle=random(0,360):x=1:z=4 
    team.ID=LoadObject("chopper.obj")
    team.bladesID=LoadObject("blades.obj")
    team.bladesImgID=LoadImage("blades.png")
    team.imgID=loadImage("chopper.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectImage(team.bladesID,team.bladesImgID,0)
    SetObjectPosition(team.ID,0,5,-10)
    SetObjectScale(team.ID,2,2,2)
    SetObjectPosition(team.bladesID,0,.6,0)
    FixObjectToObject(team.bladesID,team.ID)
    SetObjectScale(team.bladesID,5,5,5)
    SetObjectCastShadow(team.ID,1)
    SetObjectCastShadow(team.bladesID,1)
    SetObjectColor(team.id,255,0,0,255)
    SetObjectColor(team.bladesID,255,0,0,255)
    SetObjectPosition(team.ID,x*2,5,-(10+z))
    RotateObjectLocalY(team.ID,angle)
    vec=getForwardDirectionVector2(team.ID,.025)
    team.xDir=GetVector3X(vec)
    team.zDir=GetVector3Z(vec)
    team.height=10
    team.sideType="Chopper"
    team1.insert(team):x=1:z=2
    
    team.ID=LoadObject("leopard2A4.obj")
    team.imgID=loadImage("leopard2A4.png")
    SetObjectImage(team.ID,team.imgID,0)
    SetObjectPosition(team.ID,x*2,2,-(10+z))
    //RotateObjectLocalY(team.ID,-90)
    RotateObjectLocalY(team.ID,angle)
    SetObjectScale(team.ID,1,1,1)
    SetObjectCastShadow(team.ID,1)
    SetObjectColor(team.id,255,0,0,255)
    vec=getForwardDirectionVector2(team.ID,.025)
    team.xDir=GetVector3X(vec)
    team.zDir=GetVector3Z(vec)
    team.height=2
    team.sideType="Tank"
    team1.insert(team)
    soldierImg=LoadImage("soldier.png"):x=0:z=0 
    for num = 0 to 5
        team.ID=LoadObject("soldier.obj")
        team.imgID=soldierImg
        SetObjectImage(team.ID,team.imgID,0)
        SetObjectPosition(team.ID,x*2,6,-(10+z))
        //RotateObjectLocalY(team.ID,90)
        RotateObjectLocalY(team.ID,angle)
        SetObjectScale(team.ID,.6,.6,.6)
        SetObjectCastShadow(team.ID,1)
        SetObjectColor(team.id,255,0,0,255)
        vec=getForwardDirectionVector2(team.ID,.025)
        team.xDir=GetVector3X(vec)
        team.zDir=GetVector3Z(vec)
        team.height=7
        team.sideType="Soldier"
        team1.insert(team)
        inc x
        if x=3 
			x=0:z=2
		endif	
    next num
endfunction

function setupobjects()
    team as _side

    frameImg=LoadImage("\media\frame2.png")
    frameSpr=createSprite(frameImg) 
    SetSpriteShape(frameSPr,3) 
    //SetSpriteVisible(frameSpr,0)
    chopperObj=LoadObject("chopper.obj")
    chopperBladesObj=LoadObject("blades.obj")
    chopperImg=loadImage("chopper.png")
    chopperBladesImg=LoadImage("blades.png")
    tankObj=LoadObject("leopard2A4.obj")
    tankImg=loadImage("leopard2A4.png")
    soldierObj=LoadObject("soldier.obj")
    soldierImg=LoadImage("soldier.png"):xOffset=0:zOffset=0 	
    for teams =1 to 4
		x=random2(-(sizex*3),(sizex*3)):z=random2(-(sizez*3),(sizez*3))  
		angle=random(0,360):xOffset=1:zOffset=4 
		team.ID=CloneObject(chopperObj)
		team.bladesID=CloneObject(chopperBladesObj)
		team.bladesImgID=chopperImg
		team.imgID=chopperImg
		SetObjectImage(team.ID,team.imgID,0)
		SetObjectImage(team.bladesID,team.bladesImgID,0)
		SetObjectPosition(team.ID,0,5,-10)
		SetObjectScale(team.ID,2,2,2)
		SetObjectPosition(team.bladesID,0,.6,0)
		FixObjectToObject(team.bladesID,team.ID)
		SetObjectScale(team.bladesID,5,5,5)
		SetObjectCastShadow(team.ID,1)
		SetObjectCastShadow(team.bladesID,1)
		SetObjectColor(team.id,255,0,0,255)
		SetObjectColor(team.bladesID,255,0,0,255)
		SetObjectPosition(team.ID,x+(xOffset*2),5,z-(10+zOffset))
		RotateObjectLocalY(team.ID,angle)
		vec=getForwardDirectionVector2(team.ID,.025)
		team.xDir=GetVector3X(vec)
		team.zDir=GetVector3Z(vec)
		team.height=10
		team.sideType="Chopper"
		team1.insert(team):xOffset=1:zOffset=2
    
		team.ID=cloneObject(tankObj)
		team.imgID=tankImg
		SetObjectImage(team.ID,team.imgID,0)
		SetObjectPosition(team.ID,x+(xOffset*2),2,z-(10+zOffset))
		//RotateObjectLocalY(team.ID,-90)
		RotateObjectLocalY(team.ID,angle)
		SetObjectScale(team.ID,1,1,1)
		SetObjectCastShadow(team.ID,1)
		SetObjectColor(team.id,255,0,0,255)
		vec=getForwardDirectionVector2(team.ID,.025)
		team.xDir=GetVector3X(vec)
		team.zDir=GetVector3Z(vec)
		team.height=2
		team.sideType="Tank"
		team1.insert(team):xOffset=0:zOffset=0
		for num = 0 to 5
			team.ID=CloneObject(soldierObj)
			team.imgID=soldierImg
			SetObjectImage(team.ID,team.imgID,0)
			SetObjectPosition(team.ID,x+(xOffset*2),6,z-(10+zOffset))
			//RotateObjectLocalY(team.ID,90)
			RotateObjectLocalY(team.ID,angle)
			SetObjectScale(team.ID,.6,.6,.6)
			SetObjectCastShadow(team.ID,1)
			SetObjectColor(team.id,255,0,0,255)
			vec=getForwardDirectionVector2(team.ID,.025)
			team.xDir=GetVector3X(vec)
			team.zDir=GetVector3Z(vec)
			team.height=7
			team.sideType="Soldier"
			team1.insert(team)
			inc xOffset
			if xOffset=3 
				xOffset=0:zOffset=2
			endif	
		next num
	next teams	
	
	//stuck the below in because they are being cloned
	SetObjectVisible(chopperObj,0):SetObjectCollisionMode(chopperObj,0)
	SetObjectVisible(chopperBladesObj,0):SetObjectCollisionMode(chopperBladesObj,0)
	SetObjectVisible(tankObj,0):SetObjectCollisionMode(tankObj,0)
	SetObjectVisible(soldierObj,0):SetObjectCollisionMode(soldierObj,0)
	
endfunction