- DBPro Coding Challenges - - GameCreators Forum

Author

Message

RiiDii

21

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 12th Feb 2009 13:36 Edited at: 12th Feb 2009 13:44

Link

To morph an advance terrain, you can manipulate the vertex data from the terrain object. Something like this:

+ Code Snippet

   For l = 0 to Limbs-1
      Lock VertexData for Limb TerrainID,l
      VIC=Get Vertexdata Index Count()
      For i = 0 to VIC
            tx=Get VertexData Position X(Get IndexData(i))
            tz=Get VertexData Position Z(Get IndexData(i))
            SET VERTEXDATA POSITION Get IndexData(i), tx, newY(tx,tz), tz
      Next i
      Unlock VertexData
      Update Terrain TerrainID
  Next l

Here is an example of that snippet in action with this old entry I had for a Star Wars trench run.

Rem Project: Star Wars Trench Run
Rem Created: 11/2/2005 11:14:01 PM
Rem Created by: RiiDii

Rem ***** Main Source File *****

Sync On: Sync Rate 60:Autocam Off
Set Camera Range .01,100
Color Backdrop 0,rgb(0,0,0)
`Fog On
`Fog Distance 5,50
`Fog Color 0

Dim m(64,64) as Float

`Lock Pixels
Create BitMap 1,256,256
Set Current Bitmap 1
Ink 0,0
Box 0,0,64,64
`Unlock Pixels
Get Image 1,0,0,64,64,1
If File Exist("base 64x64.bmp") Then Delete File "base 64x64.bmp"
Save Image "base 64x64.bmp",1
`Lock Pixels
Ink Rgb(20,20,20),0
Box 0,0,256,256
For i = 1 to 60
   Ink Rgb(230-i*3,230-i*3,220-i*3),0
   Line 0,128-i,256,128-i
   Line 0,127+i,256,127+i
Next i
`Unlock Pixels
Get Image 1,0,0,256,256,1
`Lock Pixels
Ink Rgb(128,128,128),0
Box 0,0,256,256
For i = 1 to 10+rnd(10)
   Ink Rgb(10,10,10),0
   x=rnd(256):y=rnd(256)
   Line 0,y,256,y
   Line x,0,x,256
   s=rnd(20)+30
   c=rnd(50)+150
   ink rgb(c,c,c),0
   x=rnd(256):y=rnd(256)
   Box x,y,x+s,y+s
Next i
`Unlock Pixels
Get Image 2,0,0,256,256
Delete Bitmap 1
Set Current Bitmap 0

Global Limbs as DWord
Dim Trench(5000) as Byte
boxobj=100
Make Object Box boxobj,15,1,1
Texture Object boxobj,2
Scale Object Texture boxobj,15,1
Set Object Fog boxobj,1
t=32
For i = 0 to Array Count(Trench())
   Trench(i)=t
   moveit=rnd(19)
   t=t-(moveit=0)+(moveit=19)
   if t<7 then t=7
   if t>57 then t=57
   if rnd(20)=4 and flag=0
      Position Object boxobj,t-32,rnd(30.0)/10.0+124,i-1
      inc boxobj
      Instance Object boxobj,100
      flag=1
   Else
      flag=0
   endif
Next i

Make Object Terrain 1
Set Terrain Heightmap 1,"base 64x64.bmp"
Set Terrain Texture 1,1,2
Set Terrain Tiling 1,1
Set Terrain Scale 1,1,1,1
Set Terrain Split 1,1
Build Terrain 1

Perform Checklist for Object Limbs 1
Limbs=Checklist Quantity()
Set Object Cull 1,0

Position Camera Trench(65)-32.0,200,65

lx=0
lz=0
os=1
elevation#=.5
delay=100
Do
   Move Camera .2
   Move Camera (Mouseclick()=1)*.2
   Turn Camera Right mousemovex()*.1
   elevation#=elevation#-mousemovey()*.02
   if elevation#<.2 then elevation#=.2
   if elevation#>3.0 then elevation#=3.0
   Limit_Camera()
   x=int(camera Position X()):z=Int(Camera Position Z())
   if lx<>x or lz<>z
      Morph_Terrain(1,x,z,64)
      Update Terrain
      Position Object 1,x,0,Int(z)
   Endif
   x#=x
   `Scroll Object Texture 1,x#/10.0,0
   lx=x:lz=z
   y#=Get_Ground_Height(1,Camera Position X(),Camera Position Z())
   Position Camera Camera Position X(),y#+elevation#,Camera Position Z()
   Set Cursor 0,0
   Print Screen FPS()
   Print Camera Position X()
   Print Camera Position Y()
   Print Camera Position Z()
   Sync
Loop

Function Limit_Camera()
   cx#=Camera Position X(0):cy#=Camera Position Y(0):cz#=Camera Position Z(0)
   If cz#<65
      Position Camera cx#,cy#,65
   Endif
   If cz#>4999-64
      Position Camera cx#,cy#,4999-64
   Endif
   cz#=Camera Position Z(0)
   z=cz#
   if cx#>100 or cy#<10.0 then cx#=0.0
   Position Camera cx#,cy#,cz#
   If cx#<-31
      Position Camera -31,cy#,cz#
   Endif
   If cx#>31
      Position Camera 31,cy#,cz#
   Endif
Endfunction

Function Get_Ground_Height(TerrainID,x#,z#)
   d#=Intersect Object(TerrainID,x#,500.0,z#,x#,0.0,z#)
   if d#>0 Then d#=500.0-d#
Endfunction d#

Function Morph_Terrain(TerrainID,PosX,PosZ,size)
   For y=0 to Size
      For x=0 to Size
         m(x,y)=128
         if x=Trench(PosZ+y)
            for i =-4 to 4
               m(x+i,y)=124
            next i
         Endif
      Next x
   Next y

For l = 0 to Limbs-1
      Lock VertexData for Limb TerrainID,l
      VIC=Get Vertexdata Index Count()
      For i = 0 to VIC
            tx=Get VertexData Position X(Get IndexData(i))
            tz=Get VertexData Position Z(Get IndexData(i))
            SET VERTEXDATA POSITION Get IndexData(i), tx, m(tx,tz), tz
      Next i
      Unlock VertexData
   offset limb TerrainID,l,-Size/2-PosX,0,-Size/2,1
   Next l
   Set Current Bitmap 0
   Set Cursor 50,0
Endfunction tempobj

+ Code Snippet

Rem Project: Star Wars Trench Run
Rem Created: 11/2/2005 11:14:01 PM
Rem Created by: RiiDii

Rem ***** Main Source File *****


Sync On: Sync Rate 60:Autocam Off
Set Camera Range .01,100
Color Backdrop 0,rgb(0,0,0)
`Fog On
`Fog Distance 5,50
`Fog Color 0

Dim m(64,64) as Float

`Lock Pixels
Create BitMap 1,256,256
Set Current Bitmap 1
Ink 0,0
Box 0,0,64,64
`Unlock Pixels
Get Image 1,0,0,64,64,1
If File Exist("base 64x64.bmp") Then Delete File "base 64x64.bmp"
Save Image "base 64x64.bmp",1
`Lock Pixels
Ink Rgb(20,20,20),0
Box 0,0,256,256
For i = 1 to 60
   Ink Rgb(230-i*3,230-i*3,220-i*3),0
   Line 0,128-i,256,128-i
   Line 0,127+i,256,127+i
Next i
`Unlock Pixels
Get Image 1,0,0,256,256,1
`Lock Pixels
Ink Rgb(128,128,128),0
Box 0,0,256,256
For i = 1 to 10+rnd(10)
   Ink Rgb(10,10,10),0
   x=rnd(256):y=rnd(256)
   Line 0,y,256,y
   Line x,0,x,256
   s=rnd(20)+30
   c=rnd(50)+150
   ink rgb(c,c,c),0
   x=rnd(256):y=rnd(256)
   Box x,y,x+s,y+s
Next i
`Unlock Pixels
Get Image 2,0,0,256,256
Delete Bitmap 1
Set Current Bitmap 0

Global Limbs as DWord
Dim Trench(5000) as Byte
boxobj=100
Make Object Box boxobj,15,1,1
Texture Object boxobj,2
Scale Object Texture boxobj,15,1
Set Object Fog boxobj,1
t=32
For i = 0 to Array Count(Trench())
   Trench(i)=t
   moveit=rnd(19)
   t=t-(moveit=0)+(moveit=19)
   if t<7 then t=7
   if t>57 then t=57
   if rnd(20)=4 and flag=0
      Position Object boxobj,t-32,rnd(30.0)/10.0+124,i-1
      inc boxobj
      Instance Object boxobj,100
      flag=1
   Else
      flag=0
   endif
Next i


Make Object Terrain 1
Set Terrain Heightmap 1,"base 64x64.bmp"
Set Terrain Texture 1,1,2
Set Terrain Tiling 1,1
Set Terrain Scale 1,1,1,1
Set Terrain Split 1,1
Build Terrain 1



Perform Checklist for Object Limbs 1
Limbs=Checklist Quantity()
Set Object Cull 1,0


Position Camera Trench(65)-32.0,200,65

lx=0
lz=0
os=1
elevation#=.5
delay=100
Do
   Move Camera .2
   Move Camera (Mouseclick()=1)*.2
   Turn Camera Right mousemovex()*.1
   elevation#=elevation#-mousemovey()*.02
   if elevation#<.2 then elevation#=.2
   if elevation#>3.0 then elevation#=3.0
   Limit_Camera()
   x=int(camera Position X()):z=Int(Camera Position Z())
   if lx<>x or lz<>z
      Morph_Terrain(1,x,z,64)
      Update Terrain
      Position Object 1,x,0,Int(z)
   Endif
   x#=x
   `Scroll Object Texture 1,x#/10.0,0
   lx=x:lz=z
   y#=Get_Ground_Height(1,Camera Position X(),Camera Position Z())
   Position Camera Camera Position X(),y#+elevation#,Camera Position Z()
   Set Cursor 0,0
   Print Screen FPS()
   Print Camera Position X()
   Print Camera Position Y()
   Print Camera Position Z()
   Sync
Loop

Function Limit_Camera()
   cx#=Camera Position X(0):cy#=Camera Position Y(0):cz#=Camera Position Z(0)
   If cz#<65
      Position Camera cx#,cy#,65
   Endif
   If cz#>4999-64
      Position Camera cx#,cy#,4999-64
   Endif
   cz#=Camera Position Z(0)
   z=cz#
   if cx#>100 or cy#<10.0 then cx#=0.0
   Position Camera cx#,cy#,cz#
   If cx#<-31
      Position Camera -31,cy#,cz#
   Endif
   If cx#>31
      Position Camera 31,cy#,cz#
   Endif
Endfunction


Function Get_Ground_Height(TerrainID,x#,z#)
   d#=Intersect Object(TerrainID,x#,500.0,z#,x#,0.0,z#)
   if d#>0 Then d#=500.0-d#
Endfunction d#



Function Morph_Terrain(TerrainID,PosX,PosZ,size)
   For y=0 to Size
      For x=0 to Size
         m(x,y)=128
         if x=Trench(PosZ+y)
            for i =-4 to 4
               m(x+i,y)=124
            next i
         Endif
      Next x
   Next y

   For l = 0 to Limbs-1
      Lock VertexData for Limb TerrainID,l
      VIC=Get Vertexdata Index Count()
      For i = 0 to VIC
            tx=Get VertexData Position X(Get IndexData(i))
            tz=Get VertexData Position Z(Get IndexData(i))
            SET VERTEXDATA POSITION Get IndexData(i), tx, m(tx,tz), tz
      Next i
      Unlock VertexData
   offset limb TerrainID,l,-Size/2-PosX,0,-Size/2,1
   Next l
   Set Current Bitmap 0
   Set Cursor 50,0
Endfunction tempobj

Open MMORPG: It's your game!

Back to top

Profile PM Email

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 14th Feb 2009 18:30

Link

Infinite scrolling landscape...
does that include ones that are repetitive because they just repostion themselvesa round you? If so good, if not, whoops
=)
Oh yeah, and does it matter if my code is a bit of an amalgramation (think thats not made up) of my own code, plus a bit of stuff from the code base / forums... A bit of its mine, and i successfully put it together, so does that make it mine enough?

Back to top

Profile PM

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 15th Feb 2009 04:18

Link

@Monk,
The idea of these challenges is to learn from others. So, for sure, you can put together code into your own creation.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

aarrowh

18

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 15th Feb 2009 04:44

Link

I would really like to enter this challenge, but I have absolutely no clue how to use the Advanced Terrain commands in DBP, the help files didn't really 'help' that much... Could somebody post some code of some basic terrain that I could tear apart please...

Image thanks goes to AndrewT

Back to top

Profile PM Email

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 15th Feb 2009 11:38 Edited at: 15th Feb 2009 11:40

Link

Browse this..
I cant remember where i got this code from, but its a good example, but not hugely commented. If you want it commented more, or dont understand a part of it, just say

@Acelepage,
Goood otherwise im pretty screwed

P.s Aarrowh,
im not sure that Advanced Terrains can be used in a media free competition because they require heightmaps... Ive stuck with matrices and am working around with that..

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 18th Feb 2009 13:23 Edited at: 18th Feb 2009 13:24

Link

Acelepage, i have you to thank for finally getting me to do this project ive been meaning and trying to do for a while now...
Heres what ive done so far, and in the 3 and a half days left i shall try to fine tune it a bit more...

`Infinite scrolling landscape
`Made up of lots of small memblock matrices
`starts as one large matrix
`gets split up
`then converted to memblock matrices by making large memblocks and setting the heights...
`Gaussian Function adapted from code by The Comet
`Memblock matrix code adapted from code by Kevil

rem setup screen
sync on
sync rate 30
autocam off
if check display mode(1024,768,32) = 0
   set display mode 800,600,16
else set display mode 1024,768,32
endif
`set window on
randomize 100`timer()

`for mesh
dim tilex(128)
dim tilez(128)
dim tilesizex#(128)
dim tilesizez#(128)
dim texture(128)
dim xpart#(128)
dim ypart#(128)
dim object(128)
time=timer()
fase#=0.00

splitx = 5
splity = 5
oldsizex = 3000
oldsizey = 3000
oldnox = 250
oldnoy = 250
newnox = (oldsizex/splitx)/12
newnoy = (oldsizey/splity)/12
midrow = 3
midcol = 3

dim mat(splitx*splity+1,4)
dim oldheight#(oldnox,oldnoy)
dim midpoint(splitx*splity+1,2)
dim lodheight#(splitx*splity+1,newnox,newnoy)
dim move(5)

mat = 1
makenorm(mat,oldsizex,oldsizey,oldnox,oldnoy,25,100)
splitmatrix(mat,splitx,splity,oldsizex,oldsizey,oldnox,oldnoy)
`texturenorm(3,3)
memblock(600,600,5,5)
waves(30,0)

set camera range 0,1,10000
position camera 0,1500,200,1500

position mouse 512,384

do
text 0,0,str$(screen fps())
gosub movematrices
`movematrices(5,5)
`text 0,10,str$(position)
remstart
`waves etc
dt#=(timer()-time)/1000.0
time=timer()
positionmatrix(25,0,5+(sin(fase#)),0)
fase#=fase#+(45*dt#)
remend

elapsedtime#=(timer()-start)/1000.0
start=timer()

xrot#=camera angle x(0)
if mouseclick() = 1
    inc speed#,1000*elapsedtime#
    if speed#>500.0 then speed#=500.0
endif
if mouseclick() = 2
    inc speed#,-1000*elapsedtime#
    if speed#<-500.0 then speed#=-500.0
endif

if mouseclick()=0
    if speed#>0
        inc speed#,-1000*elapsedtime#
        if speed#<0.0 then speed#=0.0
    else
        inc speed#,1000*elapsedtime#
        if speed#>0.0 then speed#=0.0
    endif
endif

rotate camera maincam,xrot#+mousemovey()/6.0,camera angle y()+mousemovex()/6.0,0

move camera 0,speed#*elapsedtime#

sync
loop
end

function gaussian_function(x as float,z as float,centerx as float,centerz as float,spread as float,intensity as float)

xterm#=((x-centerx)/spread)^2
zterm#=((z-centerz)/spread)^2
height#=intensity*EXP(0-(xterm#+zterm#)) ` # signs added as well

endfunction height#

function makenorm(matno,matx,matz,sizex,sizez,spread,intensity)

rem make a matrix
make matrix matno,matx,matz,sizex,sizez
`position matrix matno, matx*matno,0,matz

hillno = 40
dim hill(hillno,3) `0 = cntx 1= cntz 2= sprd 3 = int
dim height#(hillno)

for h = 1 to hillno
   ni = 0
   hill(h,0) = rnd(sizex)
   hill(h,1) = rnd(sizez)
   hill(h,2) = rnd(spread-10)+10
   hill(h,3) = rnd(intensity/3) + intensity/2
next h

cumulheight# = 0
rem make the gaussian hill
for x=0 to sizex `maximum matrix width
   for z=0 to sizez `maximum matrix height
      cumulheight# = 0
      x# = x
      z# = z
      for hill = 1 to hillno
         height#(hill) = gaussian_function(x#,z#,hill(hill,0),hill(hill,1),hill(hill,2),hill(hill,3))
         cumulheight# = cumulheight# + height#(hill)
      next hill
      set matrix height matno,x,z,cumulheight#`height#(1) + height#(2) + height#(3) + height#(4) + height#(5) + height#(6) + height#(7) + height#(8) + height#(9) + height#(10)
   next y
next x

update matrix matno

endfunction

function splitmatrix(mat,splitx,splity,oldsizex,oldsizey,oldnox,oldnoy) `split value is how many new smaller matrices you want

newsizex = oldsizex / splitx
newsizey = oldsizey / splity
newnox = newsizex / 12
newnoy = newsizey / 12

for x = 0 to oldnox
   for y = 0 to oldnoy
      oldheight#(x,y) = get matrix height(mat,x,y)
   next y
next x

x = 0
y = 0
for m = 2 to splitx*splity+1
   make matrix m, newsizex,newsizey,newnox,newnoy
   position matrix m, x*newsizex,0,y*newsizey
   mat(m,1) = matrix position x(m)
   mat(m,2) = matrix position z(m)
   mat(m,3) = newsizex
   mat(m,4) = newsizey

for hx = 0 to newnox
      for hy = 0 to newnoy
          newheight# = oldheight#((x*newnox)+hx,(y*newnoy)+hy)
          set matrix height m, hx,hy,newheight#
      next hy
   next hx

inc y
   if y = splity
      x = x + 1
      y = 0
   endif

update matrix m
next m

`12345^
`67890^
`12345^
`67890^
`12345^
`>>>>>

`setlodmatrices(2,5,5,mat(2,3),mat(2,4))

delete matrix 1

endfunction 1

function texturenorm(splitx,splity)

create bitmap 1, 400,400
set current bitmap 1
ink rgb(rnd(100),rnd(100)+100,rnd(100)),0
box 0,0,400,400
ink rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100),0
for l = 1 to 100
   line rnd(400),rnd(400),rnd(400),rnd(400)
next l
get image 1,0,0,400,400
set current bitmap 0
delete bitmap 1
paste image 1,0,0
ink rgb(255,255,255),0

for mat = 2 to splitx*splity+1
   prepare matrix texture mat,1,1,1
   `set matrix wireframe on mat
   update matrix mat
next mat

endfunction

`_________________Memblock_______________________________________________________________

function memblock(nsx,nsy,splitx,splity)

dim matrixheight#(9,nsx,nsy)

for mem = 2 to splitx*splity+1
   makematrix(mem,600,600,50,50)
   texturematrix(mem,1,32,32)
   for x = 0 to tilex(mem)
      for z = 0 to tilez(mem)
         matrixheight#(mem,x,z) = get matrix height(mem,x,z)
         setmatrixheight(mem,x,z,matrixheight#(mem,x,z))
         if matrixheight#(mem,x,z)>=3 and matrixheight#(mem,x,z)<6 then color=rgb(int(200-((matrixheight#(mem,x,z)-200)*1.50)),int(150+((matrixheight#(mem,x,z)-200)*1.00)),50)
         if matrixheight#(mem,x,z)>=6 and matrixheight#(mem,x,z)<80 then color=rgb(int(50+((matrixheight#(mem,x,z)-3)*1.00)),int(250-((matrixheight#(mem,x,z)-3)*1.00)),int(50+((matrixheight#(mem,x,z)-3)*1.00)))
         if matrixheight#(mem,x,z)>=80 then color=rgb(250,250,250)
         if matrixheight#(mem,x,z)<3 then color=rgb(0,0,255)
         setmatrixcolor(mem,x,z,color)
      next z
   next
   normalizematrix(mem,0,0,tilex(1),tilez(1))
   positionmatrix(mem,matrix position x(mem),matrix position y(mem),matrix position z(mem))
   updatematrix(mem)
   delete matrix mem
next mem

endfunction

function makematrix(mem,x#,z#,tilex,tilez)
tilex(mem)=tilex
tilez(mem)=tilez
tilesizex#(mem)=x#/tilex(mem)
tilesizez#(mem)=z#/tilez(mem)
polys=2*tilex*tilez
size=(polys*36*3)+12
make memblock mem,size
write memblock dword mem,0,338
write memblock dword mem,4,36
write memblock dword mem,8,polys*3

pos=12

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

object(mem)=mem+50`000
make mesh from memblock object(mem),mem
make object object(mem),object(mem),0

endfunction

function writevectordata(mem,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,pos,X#
write memblock float mem,pos+4,Y#
write memblock float mem,pos+8,Z#
write memblock float mem,pos+12,NX#
write memblock float mem,pos+16,NY#
write memblock float mem,pos+20,NZ#
write memblock dword mem,pos+24,color
write memblock float mem,pos+28,TU#
write memblock float mem,pos+32,TV#

endfunction

function setmatrixheight(mem,x,z,y#)

if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40,y#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+184,y#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+76,y#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+148,y#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+4,y#
write memblock float mem,12+(216*((x*tilez(mem))+z))+112,y#
endif

endfunction

function setmatrixcolor(mem,x,z,color)
if x-1>=0 and z-1>=0

write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+60,color
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+204,color
endif

if x-1>=0 and z<tilez(mem)
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+z))+96,color
endif

if x<tilex(mem) and z-1>=0
write memblock dword mem,12+(216*((x*tilez(mem))+(z-1)))+168,color
endif

if x<tilex(mem) and z<tilez(mem)
write memblock dword mem,12+(216*((x*tilez(mem))+z))+24,color
write memblock dword mem,12+(216*((x*tilez(mem))+z))+132,color
endif

endfunction

function setmatrixnormal(mem,x,z,nx#,ny#,nz#)
if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+48,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+52,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+56,nz#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+192,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+196,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+200,nz#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+84,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+88,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+92,nz#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+156,nx#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+160,ny#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+164,nz#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+12,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+16,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+20,nz#
write memblock float mem,12+(216*((x*tilez(mem))+z))+120,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+124,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+128,nz#
endif
endfunction

function getmatrixheight(mem,x,z)

if x-1>=0 and z-1>=0
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40)
else
if x<tilex(mem) and z<tilez(mem)
height#=memblock float(mem,12+(216*((x*tilez(mem))+z))+4)
else
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+z))+76)
endif
endif

endfunction height#

function randomizematrix(mem,bx,bz,ex,ez,value#)
for x=bx to ex
for z=bz to ez
setmatrixheight(mem,x,z,(rnd(int(value#*100))/100.0)-(0.5*value#))
next z
next x
endfunction

function normalizematrix(mem,bx,bz,ex,ez)

if bx<=0 then bx=1
if bz<=0 then bz=1
if ex>=tilex(mem) then ex=tilex(mem)-1
if ez>=tilez(mem) then ez=tilez(mem)-1

rem Use matrix normals to make it smooth
for z=bz to ez
   for x=bx to ex

rem Get matrix heights
      h8#=getmatrixheight(mem,x,z-1)
      h4#=getmatrixheight(mem,x-1,z)
      h#=getmatrixheight(mem,x,z)
      h2#=getmatrixheight(mem,x,z)

rem Calculate projected angle X using heights
      x1#=(x-1)*25.0 : y1#=h#
      x2#=(x+0)*25.0 : y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)

rem Calculate projected angle Z using heights
      z1#=(z-1)*25.0 : y1#=h2#
      z2#=(z+0)*25.0 : y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)

rem Make normal from projected angle
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)

rem Setting matrix normal for smoothness
      setmatrixnormal(1,x,z,nx#,ny#,nz#)

next x
next z

endfunction

function updatematrix(mem)

change mesh from memblock object(mem),mem
change mesh object(mem),0,object(mem)
texture object object(mem),texture(mem)

endfunction

function getgroundheight(mem,x#,z#)

if x#>=0 and z#>=0 and x#<tilex(mem)*tilesizex#(mem) and z#<tilez(mem)*tilesizez#(mem)
xt=int(x#/tilesizex#(mem))
zt=int(z#/tilesizez#(mem))
if (((xt+1)*tilesizex#(mem))-x#)+(z#-(zt*tilesizez#(mem)))<=tilesizex#(mem)
dx#=getmatrixheight(mem,xt+1,zt)-getmatrixheight(mem,xt,zt)
dz#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt+1,zt)
else
dx#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt,zt+1)
dz#=getmatrixheight(mem,xt,zt+1)-getmatrixheight(mem,xt,zt)
endif
height#=(((x#-(xt*tilesizex#(mem)))/tilesizex#(mem))*dx#)+(((z#-(zt*tilesizez#(mem)))/tilesizez#(mem))*dz#)+getmatrixheight(mem,xt,zt)
endif

endfunction height#

function preparematrixtexture(mem,image,xsplit,ysplit)

texture(mem)=image
xpart#(mem)=1.000/xsplit
ypart#(mem)=1.000/ysplit
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
setmatrixtile(mem,x,z,1,1)
next z
next x

endfunction

function setmatrixtile(mem,x,z,xtex,ytex)

write memblock float mem,12+(216*((x*tilez(mem))+z))+28,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+32,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+64,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+68,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+100,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+104,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+136,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+140,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+172,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+176,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+208,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+212,(ytex-1)*ypart#(mem)

endfunction

function texturematrix(mem,image,xtile#,ztile#)

texture(mem)=image
texx#=xtile#/tilex(mem)
texz#=ztile#/tilez(mem)
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
z2=(tilez(mem)-z)-1
write memblock float mem,12+(216*((x*tilez(mem))+z2))+28,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+32,value#
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+64,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+68,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+100,value#
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+104,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+136,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+140,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+172,(x*texx#)
write memblock float mem,12+(216*((x*tilez(mem))+z2))+176,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+208,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+212,(z*texz#)
next z
next x

endfunction

function positionmatrix(mem,x#,y#,z#)

position object object(mem),x#,y#,z#

endfunction

function ghostmatrix(mem,ghost)

ghost object on object(mem),ghost

endfunction

function waves(mem,state)

if state = 1
   for w = mem to mem + 1
      makematrix(w,64*60,64*60,8,8)
      texturematrix(w,2,1,1)
      updatematrix(w)
      positionmatrix(w,0,0,0)
   ghostmatrix(w,w-1)
   next w
   `set object cull 50002,0
else
   make object box mem, 3000,0,3000
   color object mem,255
   position object mem,1500,3,1500
   ghost object on mem
endif
ink rgb(255,255,255),0

endfunction

`_________________________LOD____________________________________________________________

function setlodmatrices(mat,splitx,splity,newsizex,newsizey)

`start ratio = 12
newnox = newsizex / 12`ratio#
newnoy = newsizey / 12`ratio#

`find midpoints of matrices
ratio2 = 4
for mat = 2 to splitx*splity+1
   midpoint(mat,1) = matrix position x(mat) + 0.5*newsizey
   midpoint(mat,2) = matrix position z(mat) + 0.5*newsizey
   dist# = sqrt(((midpoint(mat,1) - camera position x(0))*(midpoint(mat,1) - camera position x(0))) + ((midpoint(mat,2) - camera position z(0))*(midpoint(mat,2) - camera position z(0))))
   `ratio1# = (1000/dist#) + 1
   if dist# >= 500 and dist# < 1000 then ratio2 = 8
   if dist# >= 1000 and dist# < 1500 then ratio2 = 16
   if dist# >= 1500 then ratio2 = 32
   `lodmatrix1(mat,splitx,splity,newsizex,newsizey,newnox,newnoy,ratio1#)
   lodmatrix2(mat,splitx,splity,newsizex,newsizey,newnox,newnoy,ratio2)
next mat

`find which matrix camera is on
`for mat = 2 to splitx*splity+1
   `if camera position x(0) > matrix position x(mat) and camera position x(0) < matrix position x(mat) + newsizex
      `if camera position z(0) > matrix position z(mat) and camera position z(0) < matrix position z(mat) + newsizey
         `position = mat
      `endif
   `endif
`next mat

`find dist between camera and midpoints of other matrices and set lod
`for mat = 2 to splitx*splity+1
`next mat

endfunction

function lodmatrix1(mat,splitx,splity,matsizex,matsizey,newnox,newnoy,ratio#)

matnox = matsizex / ratio#
matnoy = matsizey / ratio#
posx = matrix position x(mat)
posz = matrix position z(mat)

for x = 0 to newnox
   for z = 0 to newnoy
       lodheight#(mat,x,z) = get matrix height(mat,x,z)
   next z
next x

delete matrix mat

make matrix mat,matsizex,matsizey,matnox,matnoy
`i need to average the heights across the different tiles in order to make this work
for x = 0 to matnox
   for z = 0 to matnoz
      set matrix height mat,x,z,lodheight#(mat,x,z)
   next z
next x

position matrix mat, posx,0,posz

endfunction

function lodmatrix2(mat,splitx,splity,matsizex,matsizey,newnox,newnoy,ratio)
oldmatnox = matnox
oldmatnoy = matnoy
matnox = matsizex / ratio
matnoy = matsizey / ratio
posx = matrix position x(mat)
posz = matrix position z(mat)

if done = 0
   rangex = newnox
   rangey = newnoy
else if done = 1
   rangex = matnox
   rangey = matnoy
endif
endif

for x = 0 to rangex
   for z = 0 to rangey
      lodheight#(mat,x,z) = get matrix height(mat,x,z)
   next z
next x
done = 1

delete matrix mat

make matrix mat,matsizex,matsizey,matnox,matnoy

difference = 12/ratio

for x = 0 to matnox step difference
   for z = 0 to matnoz step difference
      set matrix height mat,x,z,lodheight#(mat,x,z)
   next z
next x

position matrix mat, posx,0,posz

endfunction

`____________________Move_____________________________________

movematrices:

`find which matrix camera is on
for mat = 2 to splitx*splity+1
   size = object size z(mat+50)
   if camera position x(0) > object position x(mat+50) and camera position x(0) < object position x(mat+50) + size
      if camera position z(0) > object position z(mat+50) and camera position z(0) < object position z(mat+50) + size
         position = mat
      endif
   endif
next mat

if position >= 2 and position <= 6 then col = 5
if position >= 7 and position <= 11 then col = 4
if position >= 12 and position <= 16 then col = 3
if position >= 17 and position <= 21 then col = 2
if position >= 22 and position <= 26 then col = 1

row = position - ((5-col)*splitx)-1

if col < midcol and col > midcol - 2 or col = midcol + 4 then state$ = "left"
if col > midcol and col < midcol + 2 or col = midcol - 4 then state$ = "right"
if row > midrow and row < midrow + 2 or row = midrow - 4 then state$ = "up"
if row < midrow and row > midrow - 2 or row = midrow + 4 then state$ = "down"

if state$ = "up"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,-2,"r",obj)
      position object move+50, object position x(move+50), object position y(move+50), object position z(move+50) + splitx*(size+1)
   next obj
endif

if state$ = "down"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,2,"r",obj)
      position object move+50, object position x(move+50), object position y(move+50), object position z(move+50) - splitx*(size+1)
   next obj
endif

if state$ = "left"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,2,"c",obj)
      position object move+50, object position x(move+50) + splitx*(size+1), object position y(move+50), object position z(move+50)
   next obj
endif

if state$ = "right"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,-2,"c",obj)
      position object move+50, object position x(move+50) - splitx*(size+1), object position y(move+50), object position z(move+50)
   next obj
endif

midcol = col
midrow = row

state$ = "set"

return

function findobj(midrow,midcol,offset,find$,no)

`row 1 = 2,7,12,17,22
`row 2 = 3,8,13,18,23
`row 3 = 4,9,14,19,24
`row 4 = 5,10,15,20,25
`row 5 = 6,11,16,21,26
`col 1 = 2 to 6
`col 2 = 7 to 11
`col 3 = 12 to 16
`col 4 = 17 to 21
`col 5 = 21 to 26

`row = position - ((col-1)*splitx)-1

if find$ = "r"
`find all obj in row = midrow -2
   r = midrow + offset
   if r <=0 then r = 5+r
   if r >5 then r = r-5
   position = ((no-1)*5) + r + 1

endif

if find$ = "c"
   c = midcol + offset
   if c<=0 then c = 5+c
   if c > 5 then c = c-5
   position = ((5-c)*5) + no + 1
endif

endfunction position

+ Code Snippet

`Infinite scrolling landscape
`Made up of lots of small memblock matrices
`starts as one large matrix
`gets split up
`then converted to memblock matrices by making large memblocks and setting the heights...
`Gaussian Function adapted from code by The Comet
`Memblock matrix code adapted from code by Kevil

rem setup screen
sync on
sync rate 30
autocam off
if check display mode(1024,768,32) = 0
   set display mode 800,600,16
else set display mode 1024,768,32
endif
`set window on
randomize 100`timer()

`for mesh
dim tilex(128)
dim tilez(128)
dim tilesizex#(128)
dim tilesizez#(128)
dim texture(128)
dim xpart#(128)
dim ypart#(128)
dim object(128)
time=timer()
fase#=0.00

splitx = 5
splity = 5
oldsizex = 3000
oldsizey = 3000
oldnox = 250
oldnoy = 250
newnox = (oldsizex/splitx)/12
newnoy = (oldsizey/splity)/12
midrow = 3
midcol = 3

dim mat(splitx*splity+1,4)
dim oldheight#(oldnox,oldnoy)
dim midpoint(splitx*splity+1,2)
dim lodheight#(splitx*splity+1,newnox,newnoy)
dim move(5)

mat = 1
makenorm(mat,oldsizex,oldsizey,oldnox,oldnoy,25,100)
splitmatrix(mat,splitx,splity,oldsizex,oldsizey,oldnox,oldnoy)
`texturenorm(3,3)
memblock(600,600,5,5)
waves(30,0)

set camera range 0,1,10000
position camera 0,1500,200,1500

position mouse 512,384

do
text 0,0,str$(screen fps())
gosub movematrices
`movematrices(5,5)
`text 0,10,str$(position)
remstart
`waves etc
dt#=(timer()-time)/1000.0
time=timer()
positionmatrix(25,0,5+(sin(fase#)),0)
fase#=fase#+(45*dt#)
remend

elapsedtime#=(timer()-start)/1000.0
start=timer()


xrot#=camera angle x(0)
if mouseclick() = 1
    inc speed#,1000*elapsedtime#
    if speed#>500.0 then speed#=500.0
endif
if mouseclick() = 2
    inc speed#,-1000*elapsedtime#
    if speed#<-500.0 then speed#=-500.0
endif

if mouseclick()=0
    if speed#>0
        inc speed#,-1000*elapsedtime#
        if speed#<0.0 then speed#=0.0
    else
        inc speed#,1000*elapsedtime#
        if speed#>0.0 then speed#=0.0
    endif
endif

rotate camera maincam,xrot#+mousemovey()/6.0,camera angle y()+mousemovex()/6.0,0

move camera 0,speed#*elapsedtime#

sync
loop
end


function gaussian_function(x as float,z as float,centerx as float,centerz as float,spread as float,intensity as float)

xterm#=((x-centerx)/spread)^2
zterm#=((z-centerz)/spread)^2
height#=intensity*EXP(0-(xterm#+zterm#)) ` # signs added as well

endfunction height#


function makenorm(matno,matx,matz,sizex,sizez,spread,intensity)

rem make a matrix
make matrix matno,matx,matz,sizex,sizez
`position matrix matno, matx*matno,0,matz

hillno = 40
dim hill(hillno,3) `0 = cntx 1= cntz 2= sprd 3 = int
dim height#(hillno)

for h = 1 to hillno
   ni = 0
   hill(h,0) = rnd(sizex)
   hill(h,1) = rnd(sizez)
   hill(h,2) = rnd(spread-10)+10
   hill(h,3) = rnd(intensity/3) + intensity/2
next h

cumulheight# = 0
rem make the gaussian hill
for x=0 to sizex `maximum matrix width
   for z=0 to sizez `maximum matrix height
      cumulheight# = 0
      x# = x
      z# = z
      for hill = 1 to hillno
         height#(hill) = gaussian_function(x#,z#,hill(hill,0),hill(hill,1),hill(hill,2),hill(hill,3))
         cumulheight# = cumulheight# + height#(hill)
      next hill
      set matrix height matno,x,z,cumulheight#`height#(1) + height#(2) + height#(3) + height#(4) + height#(5) + height#(6) + height#(7) + height#(8) + height#(9) + height#(10)
   next y
next x

update matrix matno

endfunction


function splitmatrix(mat,splitx,splity,oldsizex,oldsizey,oldnox,oldnoy) `split value is how many new smaller matrices you want

newsizex = oldsizex / splitx
newsizey = oldsizey / splity
newnox = newsizex / 12
newnoy = newsizey / 12

for x = 0 to oldnox
   for y = 0 to oldnoy
      oldheight#(x,y) = get matrix height(mat,x,y)
   next y
next x

x = 0
y = 0
for m = 2 to splitx*splity+1
   make matrix m, newsizex,newsizey,newnox,newnoy
   position matrix m, x*newsizex,0,y*newsizey
   mat(m,1) = matrix position x(m)
   mat(m,2) = matrix position z(m)
   mat(m,3) = newsizex
   mat(m,4) = newsizey

   for hx = 0 to newnox
      for hy = 0 to newnoy
          newheight# = oldheight#((x*newnox)+hx,(y*newnoy)+hy)
          set matrix height m, hx,hy,newheight#
      next hy
   next hx

   inc y
   if y = splity
      x = x + 1
      y = 0
   endif

update matrix m
next m

`12345^
`67890^
`12345^
`67890^
`12345^
`>>>>>

`setlodmatrices(2,5,5,mat(2,3),mat(2,4))

delete matrix 1

endfunction 1


function texturenorm(splitx,splity)

create bitmap 1, 400,400
set current bitmap 1
ink rgb(rnd(100),rnd(100)+100,rnd(100)),0
box 0,0,400,400
ink rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100),0
for l = 1 to 100
   line rnd(400),rnd(400),rnd(400),rnd(400)
next l
get image 1,0,0,400,400
set current bitmap 0
delete bitmap 1
paste image 1,0,0
ink rgb(255,255,255),0

for mat = 2 to splitx*splity+1
   prepare matrix texture mat,1,1,1
   `set matrix wireframe on mat
   update matrix mat
next mat

endfunction

`_________________Memblock_______________________________________________________________

function memblock(nsx,nsy,splitx,splity)

dim matrixheight#(9,nsx,nsy)

for mem = 2 to splitx*splity+1
   makematrix(mem,600,600,50,50)
   texturematrix(mem,1,32,32)
   for x = 0 to tilex(mem)
      for z = 0 to tilez(mem)
         matrixheight#(mem,x,z) = get matrix height(mem,x,z)
         setmatrixheight(mem,x,z,matrixheight#(mem,x,z))
         if matrixheight#(mem,x,z)>=3 and matrixheight#(mem,x,z)<6 then color=rgb(int(200-((matrixheight#(mem,x,z)-200)*1.50)),int(150+((matrixheight#(mem,x,z)-200)*1.00)),50)
         if matrixheight#(mem,x,z)>=6 and matrixheight#(mem,x,z)<80 then color=rgb(int(50+((matrixheight#(mem,x,z)-3)*1.00)),int(250-((matrixheight#(mem,x,z)-3)*1.00)),int(50+((matrixheight#(mem,x,z)-3)*1.00)))
         if matrixheight#(mem,x,z)>=80 then color=rgb(250,250,250)
         if matrixheight#(mem,x,z)<3 then color=rgb(0,0,255)
         setmatrixcolor(mem,x,z,color)
      next z
   next
   normalizematrix(mem,0,0,tilex(1),tilez(1))
   positionmatrix(mem,matrix position x(mem),matrix position y(mem),matrix position z(mem))
   updatematrix(mem)
   delete matrix mem
next mem

endfunction


function makematrix(mem,x#,z#,tilex,tilez)
tilex(mem)=tilex
tilez(mem)=tilez
tilesizex#(mem)=x#/tilex(mem)
tilesizez#(mem)=z#/tilez(mem)
polys=2*tilex*tilez
size=(polys*36*3)+12
make memblock mem,size
write memblock dword mem,0,338
write memblock dword mem,4,36
write memblock dword mem,8,polys*3

pos=12

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

object(mem)=mem+50`000
make mesh from memblock object(mem),mem
make object object(mem),object(mem),0


endfunction


function writevectordata(mem,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,pos,X#
write memblock float mem,pos+4,Y#
write memblock float mem,pos+8,Z#
write memblock float mem,pos+12,NX#
write memblock float mem,pos+16,NY#
write memblock float mem,pos+20,NZ#
write memblock dword mem,pos+24,color
write memblock float mem,pos+28,TU#
write memblock float mem,pos+32,TV#

endfunction


function setmatrixheight(mem,x,z,y#)

if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40,y#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+184,y#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+76,y#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+148,y#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+4,y#
write memblock float mem,12+(216*((x*tilez(mem))+z))+112,y#
endif

endfunction


function setmatrixcolor(mem,x,z,color)
if x-1>=0 and z-1>=0

write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+60,color
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+204,color
endif

if x-1>=0 and z<tilez(mem)
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+z))+96,color
endif

if x<tilex(mem) and z-1>=0
write memblock dword mem,12+(216*((x*tilez(mem))+(z-1)))+168,color
endif

if x<tilex(mem) and z<tilez(mem)
write memblock dword mem,12+(216*((x*tilez(mem))+z))+24,color
write memblock dword mem,12+(216*((x*tilez(mem))+z))+132,color
endif

endfunction


function setmatrixnormal(mem,x,z,nx#,ny#,nz#)
if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+48,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+52,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+56,nz#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+192,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+196,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+200,nz#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+84,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+88,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+92,nz#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+156,nx#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+160,ny#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+164,nz#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+12,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+16,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+20,nz#
write memblock float mem,12+(216*((x*tilez(mem))+z))+120,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+124,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+128,nz#
endif
endfunction


function getmatrixheight(mem,x,z)

if x-1>=0 and z-1>=0
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40)
else
if x<tilex(mem) and z<tilez(mem)
height#=memblock float(mem,12+(216*((x*tilez(mem))+z))+4)
else
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+z))+76)
endif
endif

endfunction height#


function randomizematrix(mem,bx,bz,ex,ez,value#)
for x=bx to ex
for z=bz to ez
setmatrixheight(mem,x,z,(rnd(int(value#*100))/100.0)-(0.5*value#))
next z
next x
endfunction


function normalizematrix(mem,bx,bz,ex,ez)

if bx<=0 then bx=1
if bz<=0 then bz=1
if ex>=tilex(mem) then ex=tilex(mem)-1
if ez>=tilez(mem) then ez=tilez(mem)-1

rem Use matrix normals to make it smooth
for z=bz to ez
   for x=bx to ex

      rem Get matrix heights
      h8#=getmatrixheight(mem,x,z-1)
      h4#=getmatrixheight(mem,x-1,z)
      h#=getmatrixheight(mem,x,z)
      h2#=getmatrixheight(mem,x,z)

      rem Calculate projected angle X using heights
      x1#=(x-1)*25.0 : y1#=h#
      x2#=(x+0)*25.0 : y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)

      rem Calculate projected angle Z using heights
      z1#=(z-1)*25.0 : y1#=h2#
      z2#=(z+0)*25.0 : y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)

      rem Make normal from projected angle
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)

      rem Setting matrix normal for smoothness
      setmatrixnormal(1,x,z,nx#,ny#,nz#)

   next x
next z

endfunction


function updatematrix(mem)

change mesh from memblock object(mem),mem
change mesh object(mem),0,object(mem)
texture object object(mem),texture(mem)

endfunction


function getgroundheight(mem,x#,z#)

if x#>=0 and z#>=0 and x#<tilex(mem)*tilesizex#(mem) and z#<tilez(mem)*tilesizez#(mem)
xt=int(x#/tilesizex#(mem))
zt=int(z#/tilesizez#(mem))
if (((xt+1)*tilesizex#(mem))-x#)+(z#-(zt*tilesizez#(mem)))<=tilesizex#(mem)
dx#=getmatrixheight(mem,xt+1,zt)-getmatrixheight(mem,xt,zt)
dz#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt+1,zt)
else
dx#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt,zt+1)
dz#=getmatrixheight(mem,xt,zt+1)-getmatrixheight(mem,xt,zt)
endif
height#=(((x#-(xt*tilesizex#(mem)))/tilesizex#(mem))*dx#)+(((z#-(zt*tilesizez#(mem)))/tilesizez#(mem))*dz#)+getmatrixheight(mem,xt,zt)
endif

endfunction height#


function preparematrixtexture(mem,image,xsplit,ysplit)

texture(mem)=image
xpart#(mem)=1.000/xsplit
ypart#(mem)=1.000/ysplit
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
setmatrixtile(mem,x,z,1,1)
next z
next x

endfunction


function setmatrixtile(mem,x,z,xtex,ytex)

write memblock float mem,12+(216*((x*tilez(mem))+z))+28,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+32,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+64,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+68,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+100,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+104,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+136,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+140,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+172,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+176,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+208,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+212,(ytex-1)*ypart#(mem)

endfunction


function texturematrix(mem,image,xtile#,ztile#)

texture(mem)=image
texx#=xtile#/tilex(mem)
texz#=ztile#/tilez(mem)
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
z2=(tilez(mem)-z)-1
write memblock float mem,12+(216*((x*tilez(mem))+z2))+28,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+32,value#
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+64,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+68,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+100,value#
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+104,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+136,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+140,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+172,(x*texx#)
write memblock float mem,12+(216*((x*tilez(mem))+z2))+176,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+208,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+212,(z*texz#)
next z
next x

endfunction


function positionmatrix(mem,x#,y#,z#)

position object object(mem),x#,y#,z#

endfunction


function ghostmatrix(mem,ghost)

ghost object on object(mem),ghost

endfunction


function waves(mem,state)

if state = 1
   for w = mem to mem + 1
      makematrix(w,64*60,64*60,8,8)
      texturematrix(w,2,1,1)
      updatematrix(w)
      positionmatrix(w,0,0,0)
   ghostmatrix(w,w-1)
   next w
   `set object cull 50002,0
else
   make object box mem, 3000,0,3000
   color object mem,255
   position object mem,1500,3,1500
   ghost object on mem
endif
ink rgb(255,255,255),0

endfunction

`_________________________LOD____________________________________________________________

function setlodmatrices(mat,splitx,splity,newsizex,newsizey)

`start ratio = 12
newnox = newsizex / 12`ratio#
newnoy = newsizey / 12`ratio#

`find midpoints of matrices
ratio2 = 4
for mat = 2 to splitx*splity+1
   midpoint(mat,1) = matrix position x(mat) + 0.5*newsizey
   midpoint(mat,2) = matrix position z(mat) + 0.5*newsizey
   dist# = sqrt(((midpoint(mat,1) - camera position x(0))*(midpoint(mat,1) - camera position x(0))) + ((midpoint(mat,2) - camera position z(0))*(midpoint(mat,2) - camera position z(0))))
   `ratio1# = (1000/dist#) + 1
   if dist# >= 500 and dist# < 1000 then ratio2 = 8
   if dist# >= 1000 and dist# < 1500 then ratio2 = 16
   if dist# >= 1500 then ratio2 = 32
   `lodmatrix1(mat,splitx,splity,newsizex,newsizey,newnox,newnoy,ratio1#)
   lodmatrix2(mat,splitx,splity,newsizex,newsizey,newnox,newnoy,ratio2)
next mat

`find which matrix camera is on
`for mat = 2 to splitx*splity+1
   `if camera position x(0) > matrix position x(mat) and camera position x(0) < matrix position x(mat) + newsizex
      `if camera position z(0) > matrix position z(mat) and camera position z(0) < matrix position z(mat) + newsizey
         `position = mat
      `endif
   `endif
`next mat

`find dist between camera and midpoints of other matrices and set lod
`for mat = 2 to splitx*splity+1
`next mat


endfunction


function lodmatrix1(mat,splitx,splity,matsizex,matsizey,newnox,newnoy,ratio#)

matnox = matsizex / ratio#
matnoy = matsizey / ratio#
posx = matrix position x(mat)
posz = matrix position z(mat)

for x = 0 to newnox
   for z = 0 to newnoy
       lodheight#(mat,x,z) = get matrix height(mat,x,z)
   next z
next x

delete matrix mat

make matrix mat,matsizex,matsizey,matnox,matnoy
`i need to average the heights across the different tiles in order to make this work
for x = 0 to matnox
   for z = 0 to matnoz
      set matrix height mat,x,z,lodheight#(mat,x,z)
   next z
next x

position matrix mat, posx,0,posz

endfunction


function lodmatrix2(mat,splitx,splity,matsizex,matsizey,newnox,newnoy,ratio)
oldmatnox = matnox
oldmatnoy = matnoy
matnox = matsizex / ratio
matnoy = matsizey / ratio
posx = matrix position x(mat)
posz = matrix position z(mat)

if done = 0
   rangex = newnox
   rangey = newnoy
else if done = 1
   rangex = matnox
   rangey = matnoy
endif
endif

for x = 0 to rangex
   for z = 0 to rangey
      lodheight#(mat,x,z) = get matrix height(mat,x,z)
   next z
next x
done = 1


delete matrix mat

make matrix mat,matsizex,matsizey,matnox,matnoy

difference = 12/ratio

for x = 0 to matnox step difference
   for z = 0 to matnoz step difference
      set matrix height mat,x,z,lodheight#(mat,x,z)
   next z
next x

position matrix mat, posx,0,posz

endfunction

`____________________Move_____________________________________

movematrices:

`find which matrix camera is on
for mat = 2 to splitx*splity+1
   size = object size z(mat+50)
   if camera position x(0) > object position x(mat+50) and camera position x(0) < object position x(mat+50) + size
      if camera position z(0) > object position z(mat+50) and camera position z(0) < object position z(mat+50) + size
         position = mat
      endif
   endif
next mat

if position >= 2 and position <= 6 then col = 5
if position >= 7 and position <= 11 then col = 4
if position >= 12 and position <= 16 then col = 3
if position >= 17 and position <= 21 then col = 2
if position >= 22 and position <= 26 then col = 1

row = position - ((5-col)*splitx)-1

if col < midcol and col > midcol - 2 or col = midcol + 4 then state$ = "left"
if col > midcol and col < midcol + 2 or col = midcol - 4 then state$ = "right"
if row > midrow and row < midrow + 2 or row = midrow - 4 then state$ = "up"
if row < midrow and row > midrow - 2 or row = midrow + 4 then state$ = "down"


if state$ = "up"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,-2,"r",obj)
      position object move+50, object position x(move+50), object position y(move+50), object position z(move+50) + splitx*(size+1)
   next obj
endif

if state$ = "down"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,2,"r",obj)
      position object move+50, object position x(move+50), object position y(move+50), object position z(move+50) - splitx*(size+1)
   next obj
endif

if state$ = "left"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,2,"c",obj)
      position object move+50, object position x(move+50) + splitx*(size+1), object position y(move+50), object position z(move+50)
   next obj
endif

if state$ = "right"
   for obj = 1 to splitx
      move = findobj(midrow,midcol,-2,"c",obj)
      position object move+50, object position x(move+50) - splitx*(size+1), object position y(move+50), object position z(move+50)
   next obj
endif

midcol = col
midrow = row

state$ = "set"

return


function findobj(midrow,midcol,offset,find$,no)

`row 1 = 2,7,12,17,22
`row 2 = 3,8,13,18,23
`row 3 = 4,9,14,19,24
`row 4 = 5,10,15,20,25
`row 5 = 6,11,16,21,26
`col 1 = 2 to 6
`col 2 = 7 to 11
`col 3 = 12 to 16
`col 4 = 17 to 21
`col 5 = 21 to 26

`row = position - ((col-1)*splitx)-1

if find$ = "r"
`find all obj in row = midrow -2
   r = midrow + offset
   if r <=0 then r = 5+r
   if r >5 then r = r-5
   position = ((no-1)*5) + r + 1

endif

if find$ = "c"
   c = midcol + offset
   if c<=0 then c = 5+c
   if c > 5 then c = c-5
   position = ((5-c)*5) + no + 1
endif

endfunction position

If anyone tries this, please say what fps you get, because i think its fairly pc intensive at the mo, i only get 33. =)

P.s at the start of the next challenge, im gonna post something in the forum to get some attention.

Back to top

Profile PM

Siddy

17

Years of Service

User Offline

Joined: 16th Dec 2008

Location:

Posted: 18th Feb 2009 13:38

Link

sorry if its against the rules, im not participating in the challenge, just bored and running your guys code.

Monk, that code runs at 33FPS on my craptop and my blitzbox, seems to be locked somehow.

Acelepage, do you need DarkPhysics to run your winning code?

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 18th Feb 2009 13:51 Edited at: 18th Feb 2009 13:53

Link

No i dont think you need Dark Physics, i dont have it and i could run his code...
What rules do you think could prevent you from trying the code??

Oh, and i just realised why the code runs at 33, i capped it at sync rate 30...

I get 440 fps after removing the 30!
thanks for trying it !

Back to top

Profile PM

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 18th Feb 2009 14:59

Link

@Siddy,
The coding challenge rules require that the code run on DBP with no additional media or plug-ins required. So, the physics had to be coded with straight DBP.
The function move_balls takes care of applying gravity to the balls.
The function ground_hit checks for a ball hitting the ground, and then calls the function bounce to calculate the new direction of the ball. What I did is rotate the ball vector and ground angle so that mathematically, the ground was flat. This makes the bounce angle easy to calculate because you just rotate the current angle around the perpendicular. Then I add the ground angle back to the new angle to get the bounce.
The command object_hit checks for 2 balls hitting each other, and calls the function collide_bounce to calculate the new direction of the ball. This is more involved than the simple bounce because both balls have a velocity, and I exchange velocities between the 2 colliding balls. But it has a nice simple equation for calculating the bounce angle x=180-a+angle*2. This equation can be derived from the same process as the bounce function, which rotates the angle of collision so mathematically, the perpendicular to the bounce is 90 degrees, and the new bounce angle is rotated around this perpendicular to obtain the new angle.

For anyone just looking for a function to calculate bounce angles, the code is commented pretty well so you should be able to cut and paste it into your project.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 18th Feb 2009 15:04

Link

@Monk,
Without the sync rate command, I was able to get 60 FPS on the terrain. Once I left the terrain, is jumped to over 200 FPS because it stopped drawing terrain. Must be a bug there somewhere. I will try it again later and see if I can reproduce it to see why it happened.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 18th Feb 2009 15:35

Link

Nah no bug its the same with me.
Its because the terrain is made of 25 objects so once there off screen the fps rockets. =)

Back to top

Profile PM

aarrowh

18

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 19th Feb 2009 16:41

Link

Oh, Ok, I might Don't exactly know when the deadline is, so I might sit out on this one.

School is pretty hectic right now..

Image thanks goes to AndrewT

Back to top

Profile PM Email

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 12:16

Link

Considering the fact that its now the 21st, and theres only one entry

, i think i win...
Its a shallow victory, especially as twice ive won now its because ive been the only one the enter...

Any suggestions for challenges.?

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Feb 2009 12:39

Link

show ingenious the ways to use CSG commands set?

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 21st Feb 2009 16:05

Link

Looks like there is not much interest in the challenges right now. It may be a very busy time for most. Just so there is an official record, I'll post this.

+ Code Snippet

Winner: Monk

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 17:04 Edited at: 21st Feb 2009 17:23

Link

i've been busy with family stuff lately and real life work, but ive been itching to get back into the challenges.

the csg idea sounds cool, but doesnt the built in objects such as cubes, planes, and spheres have difficulties with csg? ive only toyed with it a little bit, but from what i remember i had to use models with uv assignments... i think i used x format.

any idea how to use the built in shapes for csg that way we can adhere to the source only rule?

hmm... maybe i can generate a texture at load time... i think ill give that a try and see if that works...

EDIT:

just gave it a try, but it doesn't seem to work.

i made an array of planes and applied a white texture to them and the cube i use for a cutting brush, but it still doesn't seem to generate the appropriate data thats needed to cut... either that or i am missing something

anyways i figured id toss up my little test:

+ Code Snippet

set display mode 800,600,32
set window off
autocam off


create bitmap 1,32,32
set current bitmap 1
cls rgb(255,255,255)
get image 1,0,0,31,31
set current bitmap 0
make object cube 1,20
texture object 1,1
offset=2
for y = 0 to 29
   for x = 0 to 39
      make object plane offset,20,20,1
      texture object offset,1
      position object offset,x*20,y*20,0
      inc offset
   next x
next y
for hole = 1 to 100
   xpos = rnd(800)
   ypos = rnd(600)
   position object 1,xpos,ypos,0
   for target = 0 to 1199
      perform csg clip target+2,1
   next target
next hole

position camera 390,290,-512
do
loop
end

on another note... i should wait to see what the next challenge actually is

i cant help it though... i am in an ambitious mood

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Feb 2009 18:19

Link

same here, will await the next challenge, however just some code for those who my be interested.

This bit of code will make a disc or hole.

+ Code Snippet

Rem ***** Main Source File *****

sync on
sync rate 60

rem cut out hole
rem -10 a disc
rem 10 a hole
make object cylinder 20,-10
scale object 20,620,100,620
rotate object 20,90,0,0
make mesh from object 20,20
if file exist("cymesh.x")=1 then delete file "cymesh.x"
save mesh "cymesh.x",20
delete object 20
load object "cymesh.x",20
make object box 21,66,65,7
perform csg difference 21,20
delete object 20
do
xrotate object 21,wrapvalue(object angle x(21)+1)
sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 18:38

Link

lol, i figured it would be something simple. Thanks HowDo

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Feb 2009 18:41

Link

Coldfire try all shapes and you'll see what happens.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 19:37

Link

Csg sounds interesting but i dont know what it is...
My current train of thought is to wait a day, spread the message about the challenges and ill post a challenge late tomorrow if thats ok
For the challenge, im thinking something fairly simple that anyone, from newbie to advanced coder can do to a good level. Something thats limited by creativity not skill.Any ideas?

Back to top

Profile PM

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 19:47 Edited at: 21st Feb 2009 19:56

Link

@HowDo

oops i was using clip instead of difference. for some reason it doesnt seem as though i can cut out of a plane but as soon as i switched it to a cube, it worked. well, sort of. i seem to be able to cut cubes out of cubes efficiently but when it comes to spheres, i get strange problems, for example:

if i make a cube and apply the difference of a sphere, it only leaves the cut edge instead of a cube with an inset corner...

im gonna keep playing with it, im sure ill figure it out eventually.

@Monk

hmm... how about a simple top-down shooter game?

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 20:08

Link

Any examples ??
I think thats already been done before but its plausible to be done again...
I mean, what were the first games people wanted to make when they started programming for your own experience??

Back to top

Profile PM

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 21st Feb 2009 20:17

Link

Quote: "I mean, what were the first games people wanted to make when they started programming for your own experience??"

First those cheap Char Cell Games - then tile games and shoot-em-ups

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 20:18

Link

i was thinking of something on the lines of War Angels from moonpod or counterstrike 2d, of course without the media. and just something simple like a splitscreen deathmatch or maybe single player with simple ai, which can also be easily found on the forums

i was thinking it may have been done but didnt wanna wade through the 160 pages lol.

as for your last question, mmorpgs of course

just kidding of course. my first project was a simple fps(very doom-ish), which im sure many ppl have started with, but once again im sure that has been done as well lol.

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 20:32 Edited at: 21st Feb 2009 20:34

Link

Yeah the top down idea might work, but for a new coder would it be too hard?
@jason, forgice me in my youthful ignorance, but what char cell games?
P.s anyone think theres any chance we could get a mention of the coding challenge in the newsletter seeming as were low on people...
Or is that a silly idea specially considering the competitions are starting again next week.

Back to top

Profile PM

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 21st Feb 2009 20:33

Link

First games? You mean in DBP or just on a computer?

One of the first games I tried on a computer was blockout, where you bounce a ball off a paddle at the bottom of the screen and hit the blocks at the top. I also tried making a block building program, where you had a manipulator arm, and you picked up blocks and stacked them to make a tower (2D of course). The main issue with these programs was animation speed, because it was a 1MHz CPU, no graphics hardware.
I also remember a kind of DigDug game, but using ASCII characters instead of pixel graphics (again for animation speed).

I suppose I am dating myself here. The CPU was a Motorola 6809.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 20:36 Edited at: 21st Feb 2009 20:37

Link

Both, but i was intending the first game you tried to make in dbpro.
Maybe retro games, dig dug, pacman space invaders wouldnt be such a bad idea...

Lol first good discussion on this thread in a while, with a few people joining in, is between challenges =) Does this say something?

Back to top

Profile PM

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 20:42 Edited at: 21st Feb 2009 20:51

Link

i wouldnt think so... maybe the ai part... other than that its pretty much just a character controller, projectile physics, and simple collision. you could use the mouse for aiming and just convert it to 3d then use POINT OBJECT to orient your character. after that, you could use MOVE OBJECT to approach that point or retreat.

the more i think about it... it could range from something as simple as asteroids and upwards...

Edit:

@acelepage

i can sorta relate... my first computer was a Hyundai 286 w/o a hard drive or math coprocessor. infact, the operating system, stored on a 5 1/2" floppy was BASIC

if you wanted your computer to do something, you had to teach it, lol. Ah, the days of the text based adventure game, lol. i always wanted to try an amiga tho

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 21st Feb 2009 20:47 Edited at: 21st Feb 2009 20:50

Link

Well.. Imagine a Windows Console (Command Window, Text Window, shell etc.) that was always full screen.

The first's I'd make were like space invaders or little dungeon "text-ty" looking games - on 40x25 consoles. Eventually 80x25 then 80x43 resolution consoles (Still a favorite video mode of mine to this day - because for business apps, even though every uses windows GUI's.. The truth is, text windows are less demanding on video memory, faster than gui from an overhead perspective... etc... But I digress...

You'd usually have 16 colors - 8 though for "foreground" and 7 for Background... I made some neat things even in fairly recent years in CHAR CELL

Here are some samples of programs I wrote using Char Cell Mode using my own windowing system - not TrueVision or other - home grown like most of my stuff.

There you have it - Char Cell - Yes - you definately can make fun games in CHAR CELL - there was and still are some site that have it still - something called ANSI art. Often labeled "A.C.I.D" LOL.. There was some amazing artwork created solely with the IBM character sets and 16 colors..

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Feb 2009 20:56

Link

most of the time when I pop in and look to see what going on, most of the challenges are to far above what I know to being to join in.

So I would say if you would like more members to join in bring it down a bit, or have it the veterans have to do it in shortest possible way and the newcomers can do it the long way.

well that my 2 cents.

cheers.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 21:03

Link

Looks quite good Jason. Dunno if many other people could though, or whether thats just me...

Howdo, thats pretty much what im trying to do this time. Do you have any challenge ideas that youd like to do?

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Feb 2009 21:17

Link

Monk now you've made me think all the ones I come up with are on the difficult side.

these two might be easy what do you think.

1. one or two line way of writing AWSD key input.
2. controlling lights and placement.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 21st Feb 2009 23:16

Link

Hmm... theyre definitely thought provoking,
There not really games though are they...
A text based challenge?

Back to top

Profile PM

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 21st Feb 2009 23:27

Link

that would be cool, and if you actually wanted to do a text based adventure, i see theres a lot of info in the forums

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

Azunaki

17

Years of Service

User Offline

Joined: 11th Feb 2009

Location:

Posted: 22nd Feb 2009 02:29

Link

a 3D/2D performer would be kinda cool.

Back to top

Profile PM Website

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 22nd Feb 2009 04:23

Link

Quote: "1. one or two line way of writing AWSD key input.
"

The accepted acronym is WASD - They have gaming keybaords out that tout having special WASD keys... thats what they mean.

Text Based Games - choose your adventure type - are not rocket science programming wise - however you do need to code ok. I for one think that Choose Your adventure style ones are the kind of program where the hated GOTO might make sense.

Anyway - The cool thing with a text game challenge is that creativity becomes a HUGE player in that sort of game - story writing etc. These are the very first games I made.

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 22nd Feb 2009 06:31

Link

I want to see some one on these challenges make at LEAST a 2D Fighting Game like mortal combat...only add some combos. AND........
I want to see how the character animations are done without a paint program. Or at least make a small, simple Paint Editor that will allow you do draw the head, two arms, upper body, lower body, and two legs. and each image is animated and rotated to simulate combos, and grabs even...If someone would set that as the next challenge, I would try to post something even if it's not finished, knowing that the ONLY two games I've finished was 2D Breakout...what I call ATOMIC BLOCKS, modified Darkenoid from the DBPRO Game Programming Second Edition, and Pong!

I'd love to advance a little more, with out complications.

I know I've made suggestions before and backed out, but ever since I got three books from Barnes & Noble, Beginning Direct X 10 Game Programming with C++, Shader X3, and Game Audio Programming for my Birthday on Feb. 6, 2009...I'm 19...YAAAAYYYY!!! I've been a little more motivated to work up one step at a time from 2D pong to an intermediate FPS game...Probabley one with a randomly generated 3D dungeon...Like the Huge Dungeons Tutorial.

Anyway, in short, I need all the help I can get starting here with a 2D, platform Fighting Game with Combos and Grabs so that I can learn how to better my self in art, which sucks for me at the moment, and learn animation techniques. This way, when I get to making that HUGE DUNGEON FPS GAME, I can animate a simplified character with running, running/aiming/shooting, throwing a grenade, plus I have Dark Physics, etc...Even though I have Dark AI, I don't like it, so I won't EVER use it.

If you don't like the Idea of a 2D Fighting game, I will post somewhere else with some of my own code, complete/incomplete or working/malfunctioning.

Thanks,

Mickey III

Back to top

Profile PM Email Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 22nd Feb 2009 12:52

Link

Mickey,
its an interesting idea but for many people, i think it would be difficult and they may give up, and i think im gonna make this challenge aimed at simpler games rewarding creativity not coding prowess...

If you post your code onto the dbpro forum im sure many people would be happy to help, and maybe if you get far enough, you could make a WIP and that would be cool.

Im thinking a text based game, adventure or mystery or whatever but ill post the deadline etc in a few hours or so...

Back to top

Profile PM

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 22nd Feb 2009 14:18 Edited at: 22nd Feb 2009 15:02

Link

if anyone wants to go the Rougelike route, theres tons of resources just by searching google... i liked this one in particular:http://roguebasin.roguelikedevelopment.org/index.php?title=Articles

that entire site is very useful for rougelikes

Edit:
btw, i noticed that the default font, as expected, was missing alot of the old ibm style ascii characters... while it doesnt seem too accurate, the oem font seems alot closer then the default.

This will change your font to the oem font(which id assume is different from computer to computer)

set text font "",255

might wanna play with the other sets too

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 22nd Feb 2009 14:57

Link

Right,

Text based game

Any type of text based game, be it adventure, mystery, any thing as long as its text based.

Let your imagination run wild as the entries will be judged on creativity and storyline, though if any one produces good graphics, they may get bonuses...

Deadline = Sunday 8th March 00:00 server time.

Keep posting updates as you make the game, that way we can all help each other =)

Good luck!

Back to top

Profile PM

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 22nd Feb 2009 15:11

Link

ITs funny how this challenge evolved. The Text Shots I showed above weren't of a game but show the type of characters and colors that were at our disposal making Char-cell video games.

Now - Text adventures and the like - though text - and if even char cell - I wouldn't call a video game myself.

I do like the spirit of the challenge though - to get more people evolved - I think a Text Adventure is swell.

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 22nd Feb 2009 15:18

Link

Cheers, hope a few people enter.

Back to top

Profile PM

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 22nd Feb 2009 15:30

Link

Thank you Monk. I think I will come up with some code and post it in my own thread in the DBPro forum...then, as you suggested, if it works out I can post as my FIRST WIP!

Thanks for continuing the challenge thread, as I learned a lot from the example code entries.

Thank you to all for being an inspiration to, not only to me, but to probably several newcomers and others who are like me and started out too big when they got their copy of DBPro and are now having trouble calming down and taking it step by step from the begging, SIMPLE GAMES/DEMOS, to their full potential. I never really took time to learn the fundamentals, PONG, or more specific,
SIMPLE, and I mean SIMPLE Collision, movement/timer-based movement, etc... and I am probably forgetting the MOST important part...GAME DESIGN!

I tend to go straight to coding, and never really take time with pencil and paper, and Microsoft Word for Story Boarding and Brainstorming, to actually make a layout of say, the general looks of a Map for a Tile Based RPG, or the layout of a level in an FPS game, or even things like a flow chart of the game loop, or a list of things to get done, things already finished, things that might/might not go into the game, and things that won't go into the game/not really work concept wise.

So again, thank you for not only posting code examples, but for explaining what goes on with it in general.

Thanks,

Mickey III

Back to top

Profile PM Email Website

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 22nd Feb 2009 16:29

Link

Mickey, you are not alone in taking shortcuts. Ive only made one proper game and ive never planned one. I prefer making them on the fly making stuff up as i go along. But i blame that on youth =)

Back to top

Profile PM

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 22nd Feb 2009 22:43

Link

Quote: "I prefer making them on the fly making stuff up as i go along. But i blame that on youth =)"

Interesting. I used to write things down - and never do. All my design is done with a text editor.

1: Think Up (plausible/doable) concept

2: Figure out various code bits I might need and the data structures to support the idea

3: Design the Data Structures - this can take awhile.

This is definately important because once you start writing tons of code - you should already have this pretty well figured out - not each line of code - but how things will work together in general.

4: Top Down Design Model e.g. : Init Program, Main Loop, Clean shutdown.

And work it from there like modeling clay.

Now - if this seems a sparse way to do things - take into account I've written thousands of programs in my 27 years coding.

however even starting out - I spent more time doing various trial and error - and iterative learning approach - this works thins doesn't. Over time I built my mental inventory of how to go about getting various "needs" or "design architectures" working decently.

This definately helps - and there is no better teaching than doing

I have found that 100% complete on paper first design processes are good to see your concept's pieces and get a feeling of what to do. also no replacement for using paper to sketch out screen designs or game play "desired look/mechanics) ...
but...

Modular programming I think is the key - because as you know the "stuff" you are going to need, you can add each modular bit - and over time "glue them together"

good luck

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Coldfire

17

Years of Service

User Offline

Joined: 22nd Oct 2008

Location: Indiana

Posted: 22nd Feb 2009 23:05

Link

id agree 100 percent with Jason.

i have a tendency to reuse code myself, and while in the design phase, i try to stick away from real code and just write puesdocode(or use python for prototyping

). after im happy with it i then try implementing it in whichever language/engine im working with.

"They say beer will make me dumb / It are go good with pizza" - Psychostick

Back to top

Profile PM Website

Siddy

17

Years of Service

User Offline

Joined: 16th Dec 2008

Location:

Posted: 23rd Feb 2009 12:10

Link

@ acelepage, any idea why i cant run your bouncing balls code?
Using U7.2, this is the error:

Compilation Failed. Variable 'max' name is not valid at line 509.

Oh, and line 509 is simply "max=5".

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 23rd Feb 2009 13:05

Link

Siddy sound like you have the matrix1 plugin installed thats a key word so add a letter Tmax or Amax to all the max is the code.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Monk

17

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 23rd Feb 2009 18:28

Link

Coldfire and jason,
I think the reason i havent done any planning for any of my games is that im still trying to get to grips with dbpro, (having only been using it for a couple of months) so i just wanna get hands on straight away...

However, since im thinking of starting a fairly big project, im gonna start planning my work, and ive found an empty notepad that suits the job perfect.. =)

Back to top

Profile PM

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 24th Feb 2009 00:22

Link

@Monk - Hey Brother - that makes total sense too.

In other threads, I've watched discusions morph into this: Whatever works for you

I myself, regardless of how much I just whip open a text editor when coming up with stuff, also find drawing pictures helps me understand math issues, plan screen and model designs I might go after and sometimes just to see a picture of the various "modules" I plan to code and how they might interact.

Sometimes I'll have a bunch of code written, break out the paper to help me solve something and sure enough I see the problem in a different light and then scrap the paper and get right back into code with a new found vigor!

So do what you're doing, have fun... and if time permits - Crank out some challenges!

--Jason

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / - DBPro Coding Challenges -