F.L.E free landscape editing code

jfk.. thats awsome.. thanks! hey pop this function in there and assign a button to it..

whoa! ckob , thanks. looks great!

<code>
Function randterr()
For i=numlayers To 2 Step -1
s=GetSurface(layer(i),1)

If i<6 Then s2=GetSurface(layer(i+1),1) Else s2=GetSurface(layer(i-1),1)
If i<5 Then s3=GetSurface(layer(i+2),1) ElseIf i<5 Then s3=GetSurface(layer(i)-2,1) Else s3=GetSurface(layer(i),1)
If i<4 Then s4=GetSurface(layer(i+3),1) ElseIf i<4 Then s4=GetSurface(layer(i)-3,1) Else s4=GetSurface(layer(i),1)
If i<3 Then s5=GetSurface(layer(i+4),1) ElseIf i<3 Then s5=GetSurface(layer(i)-4,1) Else s5=GetSurface(layer(i),1)
If i<2 Then s6=GetSurface(layer(i+5),1) ElseIf i<2 Then s6=GetSurface(layer(i)-5,1) Else s6=GetSurface(layer(i),1)


v=CountVertices(s)

For ii=1 To 10000
rv=Rand(1,v-1)
a#=Rnd(0,1)

VertexColor s,rv,VertexRed(s,rv),VertexGreen(s,rv),VertexBlue(s,rv),a#

a2#= VertexAlpha (s2,rv)
a3#= VertexAlpha (s3,rv)
a4#= VertexAlpha (s4,rv)
a5#= VertexAlpha (s5,rv)
a6#= VertexAlpha (s6,rv)

DA2=Rand(-1,1)
DA3=Rand(-1,1)
DA4=Rand(-1,1)
DA5=Rand(-1,1)
DA6=Rand(-1,1)

a2#=a3#+(a2# * DA6)
a3#=a4#+(a3# * DA2)
a4#=a5#+(a4 * DA3)
a5#=a6#+(a5# * DA4)
a6#=a#+(a6 * DA5)



VertexColor s2,rv,VertexRed(s2,rv),VertexGreen(s2,rv),VertexBlue(s2,rv),a2
VertexColor s3,rv,VertexRed(s3,rv),VertexGreen(s3,rv),VertexBlue(s3,rv),a3
VertexColor s4,rv,VertexRed(s4,rv),VertexGreen(s4,rv),VertexBlue(s4,rv),a4
VertexColor s5,rv,VertexRed(s5,rv),VertexGreen(s5,rv),VertexBlue(s5,rv),a5
VertexColor s6,rv,VertexRed(s6,rv),VertexGreen(s6,rv),VertexBlue(s6,rv),a6

Next
Next

For l=2 To numlayers
doit=Rand(0,50)
layertexscale(l)=0.01
ScaleTexture layertexture(l),layertexscale(l),layertexscale(l)

If doit<10 Then
layertexscale(l)=Rnd#(0.012,.13)
ScaleTexture layertexture(l),layertexscale(l),layertexscale(l)
EndIf

If doit<4 Then
For lx=2 To lsegments-1
For lz=2 To lsegments-1
s=GetSurface(layer(l),1)
a1#= VertexAlpha (s,l_index(lx+1,lz))
a2#= VertexAlpha (s,l_index(lx-1,lz))
a3#= VertexAlpha (s,l_index(lx,lz+1))
a4#= VertexAlpha (s,l_index(lx-1,lz))
a5#= VertexAlpha (s,l_index(lx,lz))
newa#=(a1+a2+a3+a4)/5
rv=l_index(lx,lz)
VertexColor s,rv,VertexRed(s,rv),VertexGreen(s,rv),VertexBlue(s,rv),newa#
Next
Next
EndIf
Next




End Function
<code>