Sorry your browser is not supported!

sync on
sync rate 0

wid#=640.0
hei#=480.0
set window on
set window title "Level Editor"
set display mode wid#,hei#,32

color backdrop rgb(80,80,250)
autocam on
position camera 0,0,0
set text font "arial"
set text size 20
ink rgb(255,255,255),0

`Variable Setup
global MapSizeX# as Integer
global MapSizeZ# as Integer
global MapSegmentsX# as Integer
global MapSegmentsZ# as Integer

global CursorSizeX# as Integer
global CursorSizeZ# as Integer
global CursorSegmentsX# as Integer
global CursorSegmentsZ# as Integer

global CamSpeed# as Integer

MapSizeX# = 512
MapSizeZ# = 512
MapSegmentsX# = MapSizeX#/8
MapSegmentsZ# = MapSizeZ#/8

CursorSizeX# = 64
CursorSizeZ# = 64
CursorSegmentsX# = 8
CursorSegmentsZ# = 8

CamSpeed# = 10

`Setup World

create_matrix(1,512,512,64,64)


`************MAIN PROGRAM LOOP START***************

do
Camera(CamSpeed#)
`threeDcursor()
Debug()
sync
loop

`************MAIN PROGRAM LOOP END*****************
remstart
Function threedcursor()

   camx#=camera position x()
   camy#=camera position y()
   camz#=camera position z()

   pick screen mousex(), mousey(), 10

   xv#=get pick vector x()
   yv#=get pick vector y()
   zv#=get pick vector z()

   `this vector is a certain percentage of the camera height
   `so if we take the inverse of that ratio and multiply the
   `original vecotr coordinates by that answer,
   `the vector will reach all the way to y=0
   mult#=abs(camy#/yv#)

   xv#=xv#*mult#
   yv#=yv#*mult#
   zv#=zv#*mult#
   
   `Make array of terrain heightmap
   For x=0 to MapSegmentsX# 
        For y=0 to MapSegmentsZ# 
            ter(x,y) = Get Matrix Height(2,x,y)
        Next y
   next x
        
    `Apply part of array to heightmap
    
        newxv=xv#
        newyv=yv#
        newyz=zv#
        text 100,60, "x:"+str$(newxv)
        text 100,70, "y:"+str$(yv#)
        text 100,80, "y:"+str$(zv#)
        
        
    `position matrix
  ` position matrix 1,camx#+xv#-(CursorSizeX#/2),camy#+yv#+get ground height(2,matrix position x(1), matrix position z(1)),camz#+zv#-(CursorSizeZ#/2)
   
EndFunction
remend
FUNCTION Camera(CamSpeed#)

    cam_x# = CAMERA ANGLE X() + MOUSEMOVEY() * .2
    cam_y# = CAMERA ANGLE Y() + MOUSEMOVEX() * .2
    cam_z# = CAMERA ANGLE Z() + MOUSEMOVEZ() * .2
if mouseclick()=2

    IF CamSpeed# = 0 THEN EXITFUNCTION

    IF upkey() = 1
    polarity=1
    MOVE CAMERA CamSpeed#
    XROTATE CAMERA cam_x#
    ENDIF

    IF downkey() = 1
    polarity=-1
    MOVE CAMERA -CamSpeed#
    XROTATE CAMERA cam_x#
    ENDIF

    IF leftkey() = 1
    ROTATE CAMERA 0, cam_y#-90, 0
    MOVE CAMERA CamSpeed#
    ROTATE CAMERA cam_x#, cam_y#, 0
    ENDIF

    IF rightkey() = 1
    ROTATE CAMERA 0, cam_y#+90, 0
    MOVE CAMERA CamSpeed#
    ROTATE CAMERA cam_x#, cam_y#, 0
    ENDIF

    ROTATE CAMERA cam_x#, cam_y#, cam_z#
endif


ENDFUNCTION

Function Debug()
text 0,30,"Cam Pos X:"+str$(camera position x())
text 0,40,"Cam Pos Y:"+str$(camera position z())
text 0,50, "Cam Pos Z:"+str$(camera position y())
    if object exist(1)
        text 0,60,"Obj Pos X:"+str$(object position x(1))
        text 0,70,"Obj Pos Y:"+str$(object position y(1))
        text 0,80,"Obj Pos Z:"+str$(object position z(1))
    endif
text 0,90,"FPS: "+str$(screen fps())
text 0,100, "Polygons: "+str$(statistic(1))
EndFunction

function create_matrix(mem_numb, width, depth, segx, segz)

fvf = 338
size = 36 

tilesizex# = width/segx
tilesizez# = depth/segz
poly = width * depth * 2
totalsize = (poly * size *3) + 12

make memblock mem_numb, totalsize
write memblock dword mem_numb, 0, fvf
write memblock dword mem_numb, 4, size
write memblock dword mem_numb, 8, poly * 3 

pos=12

for x=1 to segx
for z=1 to segz
writevectordata(mem_numb,pos,(x-1.0)*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(0,255,255),0.000,1.000)
writevectordata(mem_numb,pos+36,x*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,0,255),1.000,0.000)
writevectordata(mem_numb,pos+72,x*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(255,255,0),1.000,1.000)
writevectordata(mem_numb,pos+108,(x-1.0)*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(0,255,255),0.000,1.000)
writevectordata(mem_numb,pos+144,(x-1.0)*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,0,255),0.000,0.000)
writevectordata(mem_numb,pos+180,x*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,255,0),1.000,0.000)
pos=pos+216
next segz
next segx

   make mesh from memblock  1, mem_numb
   make object 1,1,0
   position object 1, camera position x()-(width/2), camera position y()-25, camera position z()-(depth/2)
endfunction

function writevectordata(mem_numb,pos,X# as float,Y# as float,Z# as float,NX# as float,NY# as float,NZ# as float,color as dword,TU# as float,TV# as float)
write memblock float mem_numb,pos,X#
write memblock float mem_numb,pos+4,Y#
write memblock float mem_numb,pos+8,Z#
write memblock float mem_numb,pos+12,NX#
write memblock float mem_numb,pos+16,NY#
write memblock float mem_numb,pos+20,NZ#
write memblock dword mem_numb,pos+24,color
write memblock float mem_numb,pos+28,TU#
write memblock float mem_numb,pos+32,TV#
endfunction

LimbSizeX=Calulated Mesh Width 
LimbSizeZ=Calulated Mesh Depth 
LimbID=0
loop LZ= 0 to LimbsZ-1
  loop LX 0 LimbsX
    if(LimbID==0){
      Make Object From Mesh NewObjID, iMesh
    }else{
      AddLimb(NewObjID, LimbId, iMesh);
      Offset Limb newobjid, limbid, LimbSizeX*lx, 0,LimbSizeZ*lz
    };
    LimbID++; //add one to limb id
  };
};

Function create_limbs(mem_numb)
     limbnum=0
    for x = 1 to 10
        for z = 1 to 10
            limbnum=limbnum+1
            add limb 1,limbnum,mem_numb
            offset limb 1,limbnum,(x-1)*32,0,(z-1)*32 
        next z
    next x
    
    remove limb 1,1 `//Make room for object  
Endfunction

for x = 1 to 10
WeldLimbVertices(1, x)
next x

sync on
sync rate 0

wid#=640.0
hei#=480.0
set window on
set window title "Level Editor"
set display mode wid#,hei#,32

color backdrop rgb(80,80,250)
autocam on
position camera 0,0,0
set text font "arial"
set text size 20
ink rgb(255,255,255),0

`Variable Setup
global MapSizeX# as Integer
global MapSizeZ# as Integer
global MapSegmentsX# as Integer
global MapSegmentsZ# as Integer

global CursorSizeX# as Integer
global CursorSizeZ# as Integer
global CursorSegmentsX# as Integer
global CursorSegmentsZ# as Integer

global CamSpeed# as Integer

MapSizeX# = 32
MapSizeZ# = 32
MapSegmentsX# = MapSizeX#/1
MapSegmentsZ# = MapSizeZ#/1

CursorSizeX# = 64
CursorSizeZ# = 64
CursorSegmentsX# = 8
CursorSegmentsZ# = 8

CamSpeed# = 10

load image "grass.png", 1
`Setup World

create_matrix(1,MapSizeX#,MapSizeZ#,MapSegmentsX#,MapSegmentsZ#)
create_limbs(1)

`Texture()


`************MAIN PROGRAM LOOP START***************

do
Camera(CamSpeed#)
`threeDcursor()
Debug()
   set cursor 0, 0

   lock vertexdata for mesh 1
   print "get vertexdata vertex count() = "; get vertexdata vertex count()
   print "get vertexdata index count() = "; get vertexdata index count()
   unlock vertexdata
   
  ` if mouseclick()=1 then WeldLimbVertices(1, 0)
sync
loop

`************MAIN PROGRAM LOOP END*****************
remstart
Function threedcursor()

   camx#=camera position x()
   camy#=camera position y()
   camz#=camera position z()

   pick screen mousex(), mousey(), 10

   xv#=get pick vector x()
   yv#=get pick vector y()
   zv#=get pick vector z()

   `this vector is a certain percentage of the camera height
   `so if we take the inverse of that ratio and multiply the
   `original vecotr coordinates by that answer,
   `the vector will reach all the way to y=0
   mult#=abs(camy#/yv#)

   xv#=xv#*mult#
   yv#=yv#*mult#
   zv#=zv#*mult#
   
   `Make array of terrain heightmap
   For x=0 to MapSegmentsX# 
        For y=0 to MapSegmentsZ# 
            ter(x,y) = Get Matrix Height(2,x,y)
        Next y
   next x
        
    `Apply part of array to heightmap
    
        newxv=xv#
        newyv=yv#
        newyz=zv#
        text 100,60, "x:"+str$(newxv)
        text 100,70, "y:"+str$(yv#)
        text 100,80, "y:"+str$(zv#)
        
        
    `position matrix
  ` position matrix 1,camx#+xv#-(CursorSizeX#/2),camy#+yv#+get ground height(2,matrix position x(1), matrix position z(1)),camz#+zv#-(CursorSizeZ#/2)
   
EndFunction
remend
FUNCTION Camera(CamSpeed#)

    cam_x# = CAMERA ANGLE X() + MOUSEMOVEY() * .2
    cam_y# = CAMERA ANGLE Y() + MOUSEMOVEX() * .2
    cam_z# = CAMERA ANGLE Z() + MOUSEMOVEZ() * .2
if mouseclick()=2

    IF CamSpeed# = 0 THEN EXITFUNCTION

    IF upkey() = 1
    polarity=1
    MOVE CAMERA CamSpeed#
    XROTATE CAMERA cam_x#
    ENDIF

    IF downkey() = 1
    polarity=-1
    MOVE CAMERA -CamSpeed#
    XROTATE CAMERA cam_x#
    ENDIF

    IF leftkey() = 1
    ROTATE CAMERA 0, cam_y#-90, 0
    MOVE CAMERA CamSpeed#
    ROTATE CAMERA cam_x#, cam_y#, 0
    ENDIF

    IF rightkey() = 1
    ROTATE CAMERA 0, cam_y#+90, 0
    MOVE CAMERA CamSpeed#
    ROTATE CAMERA cam_x#, cam_y#, 0
    ENDIF

    ROTATE CAMERA cam_x#, cam_y#, cam_z#
endif


ENDFUNCTION

Function Debug()
text 0,30,"Cam Pos X:"+str$(camera position x())
text 0,40,"Cam Pos Y:"+str$(camera position z())
text 0,50, "Cam Pos Z:"+str$(camera position y())
    if object exist(1)
        text 0,60,"Obj Pos X:"+str$(object position x(1))
        text 0,70,"Obj Pos Y:"+str$(object position y(1))
        text 0,80,"Obj Pos Z:"+str$(object position z(1))
    endif
text 0,90,"FPS: "+str$(screen fps())
text 0,100, "Polygons: "+str$(statistic(1))
text 0,110, "Mem: "+str$(mem)

EndFunction

function create_matrix(mem_numb, width, depth, segx, segz)

fvf = 338
size = 36 

tilesizex# = width/segx
tilesizez# = depth/segz
poly = width * depth * 2
totalsize = (poly * size *3) + 12

make memblock mem_numb, totalsize
write memblock dword mem_numb, 0, fvf
write memblock dword mem_numb, 4, size
write memblock dword mem_numb, 8, poly * 3 

pos=12

for x=1 to segx
for z=1 to segz
writevectordata(mem_numb,pos,(x-1.0)*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(0,255,255),0.000,1.000)
writevectordata(mem_numb,pos+36,x*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,0,255),1.000,0.000)
writevectordata(mem_numb,pos+72,x*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(255,255,0),1.000,1.000)
writevectordata(mem_numb,pos+108,(x-1.0)*tilesizex#,0.000,(z-1.0)*tilesizez#,0.000,1.000,0.000,rgb(0,255,255),0.000,1.000)
writevectordata(mem_numb,pos+144,(x-1.0)*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,0,255),0.000,0.000)
writevectordata(mem_numb,pos+180,x*tilesizex#,0.000,z*tilesizez#,0.000,1.000,0.000,rgb(255,255,0),1.000,0.000)
pos=pos+216
next segz
next segx

  make mesh from memblock  1, mem_numb
  make object 1,1,0
  WeldLimbVertices(1, 0)
  delete mesh 1
  make mesh from object 1,1
  delete object 1
  Make object triangle 1,1,1,1,1,1,1,1,1,1
  
  `position object 1, camera position x()-(width/2), camera position y()-25, camera position z()-(depth/2)
   `set object wireframe 1,1

global mem
mem = GET MEMBLOCK SIZE(mem_numb)
endfunction

function writevectordata(mem_numb,pos,X# as float,Y# as float,Z# as float,NX# as float,NY# as float,NZ# as float,color as dword,TU# as float,TV# as float)
write memblock float mem_numb,pos,X#
write memblock float mem_numb,pos+4,Y#
write memblock float mem_numb,pos+8,Z#
write memblock float mem_numb,pos+12,NX#
write memblock float mem_numb,pos+16,NY#
write memblock float mem_numb,pos+20,NZ#
write memblock dword mem_numb,pos+24,color
write memblock float mem_numb,pos+28,TU#
write memblock float mem_numb,pos+32,TV#
endfunction

Function create_limbs(mesh_numb)
     limbnum=0
    for x = 1 to 10
        for z = 1 to 10
            limbnum=limbnum+1
            add limb 1,limbnum,mesh_numb
            offset limb 1,limbnum,(x-1)*32,0,(z-1)*32
            `Set Limb Normals 1,limbnum
        next z
    next x
    
   ` remove limb 1,1 `//Make room for object  
Endfunction

Function Texture()

texture object 1,1

EndFunction

type Vertex_t
   x as float
   y as float
   z as float
   u as float
   v as float
   Diffuse as dword

   OriginalPosition as integer
   UsageCount as integer
endtype

type VertexInfo_t
   Vertex as Vertex_t
   OriginalPosition as integer
   Matches as integer
   UsageCount as integer
endtype

global dim Vertex() as VertexInfo_t
global dim Index() as integer

function WeldLimbVertices(Object as integer, Limb as integer)
   local V as Vertex_t
   local VI as VertexInfo_t

   ConvertLimbToTriList(Object, Limb)

   lock vertexdata for limb Object, Limb

   ` Create/recreate arrays needed for manipulation
   undim Vertex()
   global dim Vertex( get vertexdata vertex count() - 1 ) as VertexInfo_t

   undim Index()
   global dim Index( get vertexdata index count() - 1 ) as integer

   ` Copy all vertex data into an array
   for i = 0 to array count( Vertex() )
      V.x = get vertexdata position x(i)
      V.y = get vertexdata position y(i)
      V.z = get vertexdata position z(i)
      V.u = get vertexdata u(i)
      V.v = get vertexdata v(i)
      V.Diffuse = get vertexdata diffuse(i)

      Vertex(i).Vertex = V
      Vertex(i).OriginalPosition = i
      Vertex(i).Matches = i
      Vertex(i).UsageCount = 0
   next

   ` Copy all index data into an array
   for i = 0 to array count( Index() )
      Index(i) = get indexdata(i)
      inc Vertex( Index(i) ).UsageCount
   next

   ` Look for matching vertices
   for i = 1 to array count( Vertex() )
      if Vertex(i).UsageCount > 0
         for j = 0 to i - 1
            if CheckMatchingVertex(i, j) = 1
               ` Update the matching vertex
               Vertex(j).UsageCount = Vertex(j).UsageCount + Vertex(i).UsageCount

               ` Update this duplicate vertex
               Vertex(i).UsageCount = 0
               Vertex(i).Matches = j

               ` Skip on to the next vertex
               exit
            endif
         next
      endif
   next

   ` Sort the vertices so unused ones are at the end
   repeat
      Swap = 0
      for i = 1 to array count( Vertex() )
         if Vertex(i-1).UsageCount < Vertex(i).UsageCount
            Swap = 1
            VI = Vertex(i-1)
            Vertex(i-1) = Vertex(i)
            Vertex(i) = VI
         endif
      next
   until Swap = 0

   ` Update the indices so that duplicates point at the original
   for i = 0 to array count( Index() )
      Index(i) = FindVertexFromIndex( Index(i) )
   next

   ` Update the object index data
   for i = 0 to array count( Index() )
      set indexdata i, Index(i)
   next

   ` Update the object vertex data
   i = 0
   while i <= array count( Vertex() )
      if Vertex(i).UsageCount <= 0 then exit
      set vertexdata position i, Vertex(i).Vertex.x, Vertex(i).Vertex.y, Vertex(i).Vertex.z
      set vertexdata uv i, Vertex(i).Vertex.u, Vertex(i).Vertex.v
      set vertexdata diffuse i, Vertex(i).Vertex.Diffuse
      inc i
   endwhile

   ` Remove unused vertices from the vertex data
   delete mesh from vertexdata i, get vertexdata vertex count(), get vertexdata index count(), get vertexdata index count()

   unlock vertexdata

   GenerateNormalsForLimb(Object, Limb)
endfunction


function CheckMatchingVertex(i as integer, j as integer)
   if Vertex(i).Vertex.x <> Vertex(j).Vertex.x then exitfunction 0
   if Vertex(i).Vertex.y <> Vertex(j).Vertex.y then exitfunction 0
   if Vertex(i).Vertex.z <> Vertex(j).Vertex.z then exitfunction 0
endfunction 1


function FindVertexFromIndex(Ind as integer)
   for i = 0 to array count( Vertex() )
      if Vertex(i).OriginalPosition = Ind
         if Vertex(i).OriginalPosition = Vertex(i).Matches then exitfunction i
         exitfunction FindVertexFromIndex( Vertex(i).Matches )
      endif
   next
endfunction -1







global DBProBasic3DDebug as integer

function LoadDLL_Basic3D()
   for i = 1 to 256
      if dll exist(i) = 0
         DBProBasic3DDebug = i
         load dll "DBProBasic3DDebug.dll", DBProBasic3DDebug
         exitfunction
      endif
   next
   DBProBasic3DDebug_DLL = -1
endfunction

function ConvertLimbToTriList(Object as integer, Limb as integer)
   local Result as integer
   local MeshAddr as dword

   MeshAddr = GetMeshAddress(Object, Limb)
   if MeshAddr
      ` If not a tri list, convert it
      if PeekDword( MeshAddr + 36 ) <> 4
         Result = call dll( DBProBasic3DDebug, "?ConvertLocalMeshToTriList@@YA_NPAUsMesh@@@Z", MeshAddr )
      endif

      ` Really nasty ... if there is no index data, make some up!
      if PeekDword( MeshAddr + 32 ) = 0
         ` Must lock the mesh before manipulating it, else changes won't happen
         lock vertexdata for limb Object, Limb

         ` Get some memory for the index list
         IndexData = make memory( get vertexdata vertex count() * 2 )

         ` Set the index count, and set it to point at the allocated memory
         PokeDword( MeshAddr + 32, get vertexdata vertex count() )
         PokeDword( MeshAddr + 24, IndexData )

         ` Put numbers into the index list
         for i = 0 to get vertexdata vertex count()-1
            set indexdata i, i
         next

         ` Unlock to commit the changes
         unlock vertexdata
      endif
   endif
endfunction Result

function GenerateNormalsForLimb(Object as integer, Limb as integer)
   local Result as integer
   local MeshAddr as dword

   MeshAddr = GetMeshAddress(Object, Limb)
   if MeshAddr
      Result = call dll( DBProBasic3DDebug, "?GenerateNewNormalsForMesh@@YAXPAUsMesh@@@Z", MeshAddr )
   endif
endfunction Result

function GetMeshAddress(Object as integer, Limb as integer)
   local ObjectAddr as dword
   local FrameListAddr as dword
   local FrameAddr as dword
   local MeshAddr as dword

   if DBProBasic3DDebug = 0 then LoadDLL_Basic3D()

   ObjectAddr = call dll( DBProBasic3DDebug, "?GetObjectA@@YAPAUsObject@@H@Z", Object )
   if ObjectAddr
      if PeekDword( ObjectAddr + 4 ) > Limb
         FrameListAddr = PeekDword( ObjectAddr + 12 )
         FrameAddr = PeekDword( FrameListAddr + (Limb * 4) )
         MeshAddr = PeekDword( FrameAddr + 760 )
      endif
   endif
endfunction MeshAddr

function PeekDword(Addr as dword)
   local Value as dword
   Value = *Addr
endfunction Value

function PokeDword(Addr as dword, Value as dword)
   *Addr = Value
endfunction

  // Sample p_UVScale = 1 - Ok? 1= 100% - Full Coverage, no Tiling.
  float uI = (float)this->LimbSizeX * p_UVScale;
  float vI = (float)this->LimbSizeZ * p_UVScale;

  // set uv coordinates to stretch across object
  // loop throught the texture coordinates and determine what percent of total width, height the vertex is at
  dbLockVertexDataForLimb(Obj->ID,iLimb);
  int a = dbGetVertexDataVertexCount();
  for(i=0;i<=a;i++){
    dbSetVertexDataUV(i,dbGetVertexDataPositionX(i)/uI, (vI - dbGetVertexDataPositionZ(i)) / vI);
  };
  dbUnlockVertexData();

REM Project: Matrix 2 Objecty
REM Created: 20.12.2007 08:20:03
REM
REM ***** Main Source File *****
REM
sync on
sync rate 60

global tileXsize
global tileZsize
tileXsize = 1000 / 48
tileZsize = 1000 / 48

make matrix 1, tileXsize * 48 , tileZsize * 48 , 48 , 48
Matrix_to_Object( 1 , 1 , tileXsize * 48, tileZsize * 48 , 48 , 48 , 8 , 8 , 8 , 8 , 0 , 0 )
delete matrix 1
make mesh from object 1,1

`Lagrer noen "basic" matrix size variabler


`Lager "brush'en"
make matrix 1 , tileXsize * 5 , tileZsize * 5 , 5 , 5

make mesh from object 1,1

lock vertexdata for mesh 1
   nrVert = get vertexdata vertex count()
   `Debug bokser, for å vise hver enkelt vertex
   remstart for i=1 to nrVert
      make object cube i+1,2.5
      position object i+1 , get vertexdata position x(i) , get vertexdata position y(i) , get vertexdata position z(i)
   next i remend
unlock vertexdata
delete mesh 1
dim vertices(nrVert,2) as float

load image "sandstone_T.BMP",1

autocam off

global move# as integer
move# = find free object()
make object sphere move#,20 : color object move#,rgb(000,000,255)
set object wireframe move#, 1

global x# as float
global y# as float
global z# as float

global gx# as float
global gy# as float
global gz# as float

global liftDistance# as float
global oldDist# as float
liftDistance# = 20

#constant x_seg 25
#constant z_seg 25

// d# = sqrt((x1# - x2#)^2 + (z1# - z2#)^2)

loopSaveVertices()

do

handleCamera()
handleBrush()
brush()

if controlkey() then terrainControl() : wait 250


text 00,000,"FPS : " + str$(screen fps())
text 00,010,"Polygons : " + str$(statistic(1))
text 00,020,"*** Debuging ***"
text 10,030,"pick : " + str$(pick)
text 10,040,"gx# : " + str$(gx#)
text 10,060,"gy# : " + str$(gy#)
text 10,080,"gz# : " + str$(gz#)
text 10,100,"liftDistance# : " + str$(liftDistance#)

if mousemovez() > 0
   inc liftDistance#, 1
endif

if liftDistance# < 1
   liftDistance# = 1
endif

if oldDist# <> liftDistance#
   size_x = object size x(move#)
   new_x = size_x / (liftDistance# - oldDist#) - liftDistance# - (1 * 250)
   text 0,120,"size_x : " + str$(size_x) + "      |||      new_x : " + str$(new_x)
   scale object move#,new_x,new_x,new_x
endif

sync
loop

function Object_to_Matrix(objectnr as integer , matrixnr as integer , meshnr as integer , sizeX as float , sizeZ as float , segX as integer , segZ as integer)
make mesh from object meshnr , objectnr
lock vertexdata for mesh meshnr

verts = get vertexdata vertex count()
dim h#(verts) as float
for i = 0 to verts-1
   h#(i) = get vertexdata position y(i)
next i
unlock vertexdata

delete mesh meshnr

make matrix matrixnr , sizeX , sizeZ , segX , segZ
a = 0
for i = 0 to segX
   for s = 0 to segZ
      set matrix height matrixnr , i , s , h#(a)
      inc a , 1
   next s
next i
update matrix matrixnr
endfunction

function loopSaveVertices()
make mesh from object 1,1
delete object 1
lock vertexdata for mesh 1
   vertNr = get vertexdata vertex count()
   for i = 1 to vertNr
      vertices(i,0) = get vertexdata position x(i)
      vertices(i,1) = get vertexdata position y(i)
      vertices(i,2) = get vertexdata position z(i)
   next i
unlock vertexdata
make object 1,1,1
delete mesh 1
endfunction

function brush()
position matrix 1 , gx# - (tileXsize * 2.5) , gy# , gz# - (tileZsize * 2.5)
endfunction

function terrainControl()
make mesh from object 1,1
lock vertexdata for mesh 1
vertNr = get vertexdata vertex count()

for i = 1 to vertNr
   d# = sqrt((gx# - vertices(i,0))^2 + (gz# - vertices(i,2))^2)
   if d# < liftDistance#
      text 400,400,"DU LØFTER TING :D"
     `set vertexdata position i,vx#,vy# + ( liftDistance# - d# ),vz#
      inc vertices(i,1) , 1
      set vertexdata position i,vertices(i,0),vertices(i,1),vertices(i,2)
   endif
next i

delete object 1
make object 1,1,1

text 0,50,"d# : " + str$(d#)

unlock vertexdata
delete mesh 1
endfunction

function handleBrush()
pick = pick object (mousex(),mousey(),1,1)

x# = get pick vector x()
y# = get pick vector y()
z# = get pick vector z()

gx# = x# + camera position x(0)
gy# = y# + camera position y(0)
gz# = z# + camera position z(0)

if pick > 0
   position object move# , gx# , gy# , gz#
endif
endfunction

function handleCamera()
if spacekey()
   rotate camera camera angle x()+(mousemovey()/2),camera angle y()+(mousemovex()/2),0
   if camera angle x()>90 then xrotate camera 90
   if camera angle x()<-90 then xrotate camera -90
   cx#=camera angle x() : cy#=camera angle y() : cz#=camera angle z()
endif
if mouseclick()=1 then move camera 0,2
if mouseclick()=2 then move camera 0,-2
endfunction