No Media Memblock Tunnel Generation

Author

Message

Tomu

21

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 19th May 2005 15:00 Edited at: 28th May 2005 03:40

Link

Hi all

Tomu here, maker of Blindsight.

Here is the no media tunnel generation code for the tunnels in my game

i hope that it can help understand memblocks a bit more

it also uses a rubbish no media texture generator function!

Feel free to use this code in anything your doing. if you want to mention me then great if not then i wont be pushy lol

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

mousePosX# = mouseX()
   mousePosY# = mouseY()

pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

speed# = curvevalue(target#,speed#,10)

sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 0 to game.tunnelDepth - 1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction

`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

+ Code Snippet

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

   mousePosX# = mouseX()
   mousePosY# = mouseY()

   pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

   if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

   speed# = curvevalue(target#,speed#,10)

   sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 0 to game.tunnelDepth - 1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction


`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

Enjoy!

Tomu

edit:

if you have any version higher than 1.051 then this code will work:

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

mousePosX# = mouseX()
   mousePosY# = mouseY()

pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

speed# = curvevalue(target#,speed#,10)

sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 1 to game.tunnelDepth -1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction

`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

+ Code Snippet

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

   mousePosX# = mouseX()
   mousePosY# = mouseY()

   pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

   if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

   speed# = curvevalue(target#,speed#,10)

   sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 1 to game.tunnelDepth -1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction


`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

Tomu

- 3.4Ghz - 2048MB RAM - RADEON X800SE -

Back to top

Profile PM Email Website

CuCuMBeR

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 19th May 2005 17:28

Link

runtime error 118 - array doesnt exist or subscript out of bounds at line 150

Back to top

Profile PM

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 20th May 2005 04:28 Edited at: 20th May 2005 04:29

Link

Change line 146 to:

+ Code Snippet

   for sectorNum = 1 to game.tunnelDepth -1

Really neat Tomu! I like it.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

dj blackdragon3710

20

Years of Service

User Offline

Joined: 5th Nov 2004

Location: In LaLa land

Posted: 20th May 2005 06:31

Link

Really entertaining

.

It has been said that the body is a slave to the mind. Only the mind knows no freedom.

Back to top

Profile PM Email

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 20th May 2005 07:41

Link

Very nicely done !

Back to top

Profile PM Email

French gui

21

Years of Service

User Offline

Joined: 11th May 2004

Location: France

Posted: 21st May 2005 05:54

Link

Wonderful! (...the tunnel is too short!

)

Sorry for my English...

Back to top

Profile PM Website

Tomu

21

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 23rd May 2005 08:33

Link

Hi Thanks for trying it out

Sorry bout the error it works fine for me cos i have a reeeely old version of DB

so thanks riddeeee for fixing it for all the new versions

remember changing the variables which are mostly commented changes stuff like the length and radius etc

Tomu

- 3.4Ghz - 2048MB RAM - RADEON X800SE -

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 23rd May 2005 09:14

Link

Hey Tomu. Could you make an endless tunnel? Maybe have 10 segments and cycle through, deleting or moving the last and making it the first. Maybe go 5 ahead and 5 behind or something?

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

CuCuMBeR

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 23rd May 2005 20:27

Link

Strange, i still get the same error on line 165 after the change

Back to top

Profile PM

Tomu

21

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 24th May 2005 04:31 Edited at: 28th May 2005 03:40

Link

RiiDii:

yeah you could by copying the memblock over to a second memblock but only copying from the second segment to the last and then filling in the data for the last segment. shouldnt be a problem. ill try and implement it later.

CuCuMBeR:

Hmmm. this is such an odd error not sure why it happens on the later versions of DB... maybe RiiDii can explain

Tomu

- 3.4Ghz - 2048MB RAM - RADEON X800SE -

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 24th May 2005 11:46

Link

@CuCuMBeR: What version are you running? I have 5.8. Tomu is using a very old version that TGC is denying exists - now that's old

.

@TGC: Just kidding around TGC - you know that, right???

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

CuCuMBeR

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 24th May 2005 16:54

Link

i also have 5.8, i think it is nothin to do with versions. it has somethin to do with the arrays.

Back to top

Profile PM

Tomu

21

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 25th May 2005 05:04

Link

hey riidii, do you mind posting your fixed code so that i can see if it works on my version?

Tomu

- 3.4Ghz - 2048MB RAM - RADEON X800SE -

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 25th May 2005 12:24

Link

Sure thing:

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

mousePosX# = mouseX()
   mousePosY# = mouseY()

pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

speed# = curvevalue(target#,speed#,10)

sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 1 to game.tunnelDepth -1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction

`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

+ Code Snippet

screenX = 800
screenY = 600

`SET 3D SCENE

set display mode screenX,screenY,32
set camera range 1,10000
backdrop on : color backdrop rgb(0,0,0) : autocam off
sync on : sync rate 30
ink 0,0
set text size 16
set text font "simsun"

randomize timer()

`INITIALISATION

type vector
   x              as float
   y              as float
   z              as float
endtype

type gameData
   tunnelDepth    as integer
   tunnelSize     as integer
   tunnelRadius   as integer
   tunnelSegments as integer
endtype

game as gameData
   game.tunnelDepth     = 50  `changes the number of sectors in the level : normal = 10 to 300
   game.tunnelSize      = 500 `changes the depth of each segment : normal = 500
   game.tunnelRadius    = 100 `changes the Radius of all segment : normal = 100
   game.tunnelSegments  = 8   `changes the polygon number of sides : normal = 5 to 20

dim vertex(1) as vector
dim pnt(4) as vector
dim tunnelPoints(game.tunnelDepth) as vector
dim tunnelVectors(game.tunnelDepth,game.tunnelSegments) as vector
dim matrix4(1,4,4) as float
dim vector3(1,4) as float

`CONSTRUCTING METHOD CALLS

`make random texture
makeTexture( 2 , 128 , rgb(rnd(255),rnd(255),rnd(255)) , rgb(rnd(255),rnd(255),rnd(255)) , rnd(50) , rnd(4) )
`makes the memblock tunnel
makeMemblockTunnel(2,2,2,2,2)

`MAIN LOOP

position camera tunnelPoints(0).x , tunnelPoints(0).y , tunnelPoints(0).z

do

   mousePosX# = mouseX()
   mousePosY# = mouseY()

   pitch camera down ( mousePosY# - screenY / 2 ) / game.tunnelRadius
   turn camera right ( mousePosX# - screenX / 2 ) / game.tunnelRadius

   if mouseclick() = 1
      target# = 10
      move camera speed#
   else
      if mouseclick() = 2
         target# = -10
         move camera speed#
      endif
   endif

   speed# = curvevalue(target#,speed#,10)

   sync

loop

`--------------------------------- TEXTURE MAKING FUNCTIONS ---------------------------------

`function to make a texture

function makeTexture(imgNum , size , color1 , color2 , percent# , outline)
   if outline > 0
      ink 0 , 0
      for i = 1 to outline
         box 0 , 0 , size - i , size - i
      next i
   endif
   ink color1 , 0
   box 1 , 1 , size - 2 , size - 2
   for i = 0 to int( ( ( ( size - 1 ) ^ 2 ) / 100.0 ) * percent# )
      dot rnd( size - 3 ) + 1 , rnd( size - 3 ) + 1 , color2
   next i
   get image imgNum , 0 , 0 , size - 1 , size - 1
endfunction

`--------------------------------- MEMBLOCK TUNNEL FUNCTIONS ---------------------------------

`function to make a memblock tunnel

function makeMemblockTunnel( objNum , imgNum , memblockNum , meshNum , vectorNum )
   makeTunnelVectors()
   make memblock memblockNum , 12 + ((game.tunnelSegments * 216) * game.tunnelDepth)
      write memblock dword memblockNum , 0 , 338
      write memblock dword memblockNum , 4 , 36
      write memblock dword memblockNum , 8 , (game.tunnelDepth * game.tunnelSegments) * 6
      pos = 12
      for sectorNum = 0 to game.tunnelDepth - 2
         for segmentNum = 0 to game.tunnelSegments - 1
            for polygonNum = 0 to 1
               for vertexNum = 0 to 2
                  if polygonNum = 0 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 1 then getSectorVector(sectorNum , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 0 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum + 1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 0 then getSectorVector(sectorNum , segmentNum , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 1 then getSectorVector(sectorNum + 1 , segmentNum+1 , game.tunnelRadius)
                  if polygonNum = 1 && vertexNum = 2 then getSectorVector(sectorNum + 1 , segmentNum , game.tunnelRadius)
                  write memblock float memblockNum , pos , vertex(1).x
                  write memblock float memblockNum , pos+4 , vertex(1).y
                  write memblock float memblockNum , pos+8 , vertex(1).z
                  null = make vector2(vectorNum)
                     set vector2 vectorNum , vertex(1).x , vertex(1).y
                     divide vector2 vectorNum , length vector2(vectorNum)
                     write memblock float memblockNum , pos+12 , - x vector2(vectorNum)
                     write memblock float memblockNum , pos+16 , - y vector2(vectorNum)
                     write memblock float memblockNum , pos+20 , 0
                  null = delete vector2(vectorNum)
                  write memblock dword memblockNum , pos+24 , rgb(255,255,255)
                  write memblock float memblockNum , pos+28 , ((polygonNum = 0 && (vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1 || vertexNum = 2)))
                  write memblock float memblockNum , pos+32 , ((polygonNum = 0 && (vertexNum = 1 || vertexNum = 2)) || (polygonNum = 1 && (vertexNum = 1)))
                  inc pos,36
               next vertexNum
            next polygonNum
         next segmentNum
      next sectorNum
      make mesh from memblock memblockNum , meshNum
      make object objNum , meshNum , imgNum
`      set object ambient objNum , 0
   delete memblock memblockNum
endfunction

`function to retrieve the tunnel vectors

function makeTunnelVectors()
   for sectorNum = 1 to game.tunnelDepth -1
      height = wrapvalue(height + 50)
      tunnelPoints(sectorNum).x = sin(height) * rnd(200)
      tunnelPoints(sectorNum).y = cos(height) * rnd(200)
      tunnelPoints(sectorNum).z = tunnelPoints(sectorNum - 1).z + game.tunnelSize * (sectorNum > 0)
   next sectorNum
   for sectorNum = 0 to game.tunnelDepth - 1
      for segmentNum = 0 to game.tunnelSegments - 1
            getSectorVector(sectorNum,segmentNum,game.tunnelRadius)
            tunnelVectors(sectorNum , segmentNum).x = vertex(1).x
            tunnelVectors(sectorNum , segmentNum).y = vertex(1).y
            tunnelVectors(sectorNum , segmentNum).z = vertex(1).z
      next segmentNum
   next sectorNum
endfunction

`function to retrieve the sector vector

function getSectorVector(sectorNum , segmentNum , radius)
   angx# = atanfull(tunnelPoints(sectorNum).y - tunnelPoints(sectorNum + 1).y , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angy# = atanfull(tunnelPoints(sectorNum).x - tunnelPoints(sectorNum + 1).x , tunnelPoints(sectorNum).z - tunnelPoints(sectorNum + 1).z)
   angz# = wrapvalue((360.0 / game.tunnelSegments) * (segmentNum))
   rotateVector3(0 , radius , 0 , - angx# , angy# , angz#)
   vertex(1).x = tunnelPoints(sectorNum).x + vector3(0 , 1)
   vertex(1).y = tunnelPoints(sectorNum).y + vector3(0 , 2)
   vertex(1).z = tunnelPoints(sectorNum).z + vector3(0 , 3)
endfunction


`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 4

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

I'm using 5.8 online version to run this. I haven't tried the box version. I'll give it a shot later tonight. Also, it's very hard to try and debug it if it's working for me.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

CuCuMBeR

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 25th May 2005 17:39

Link

cool, it works great now and i liked it.
Tomu: could you rem some lines so i could understand the memblocks please

Back to top

Profile PM

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 27th May 2005 21:42

Link

Thanks RiiDii. I can run it now. That is absolutely amazing Tomu!

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Tomu

21

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 6th Jun 2005 03:22

Link

Thanks alot andrew

feel free to use or learn from or hack up the code to make new things

Thanks ridii for your support in translating to the newer generation of DB

Tomu

- 3.4Ghz - 2048MB RAM - RADEON X800SE -

Back to top

Profile PM Email Website

jasonhtml

21

Years of Service

User Offline

Joined: 20th Mar 2004

Location: OC, California, USA

Posted: 27th Aug 2005 17:37

Link

hey! that was cool! i just dont see the point in it though... but i havent seen ur game.. so, what do i know

Deathquest: 60% (MMORPG)
DD Studios Website: http://www.geocities.com/jasonhtml/
DD Studios Forum: http://s6.invisionfree.com/DD_Studios_Forum

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / No Media Memblock Tunnel Generation