Preset Camera Move- help please!

Author

Message

stevkay

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location:

Posted: 25th Sep 2003 15:48

Link

I'm looking to find out how to make the camera move about a matrix in a preset path, like a panning demo of a landscape. I've got the landscape fine, and everything is peachy apart from all i can do is push the camera about with the direction keys and mouse- how do i let it fly about by itslef for a set time, then end the program?

Any help? Thankyou.

Stevkay

If you gaze into the abyss long enough, the abyss starts staring back.

Back to top

Profile PM

Kelebrindae

21

Years of Service

User Offline

Joined: 15th Sep 2003

Location: Where cheeses are scarier than dragons.

Posted: 25th Sep 2003 19:04

Link

Just an idea (I'm at work; can't test...

)

- Establish the x,y,z coords of a list of waypoints (= key points of your path, where the camera's trajectory changes). I'm afraid this must be done manually...
- Store these values in an array.
- Make an invisible object and move it from one waypoint to the next, using "CURVEVALUE" to obtain smooth movements.
- Use the "SET CAMERA TO FOLLOW" command to follow the invisible object.

Otherwise, take a look at the Binary Moon Tutorial ( http://developer.thegamecreators.com/?f=t02/bm_tutorial_45 ) ; I think the way he moves the camera when you win or loose may interest you...

Ideas: memories of things which did not occur yet...

Back to top

Profile PM Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 26th Sep 2003 06:28

Link

This code is taken straight from a DBC help v1.10 file... i THINK it needs the enhancement pack, but you can try without it...

all that i changed in the code was the timer wich only allows 30 seconds of flight as you required.

Rem * Title  : Free Flight Example
Rem * Author : DBS-LB
Rem * Date   : 25th June 2000
rem ==========================================
rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement
rem ------------------------------------------
autocam off
hide mouse
sync on

rem Make wire sky sphere
make object sphere 1,5000
set object 1,0,0,0

rem Make flying object
make object box 2,150,5,20
make mesh from object 2,2
delete object 2
make object box 2,25,15,100
add limb 2,1,2
position object 2,0,0,500

rem Make drone to mark a back position
make object sphere 3,10

rem Set camera range
set camera range 1,10000

rem Set text font
set text font "Arial"
ink rgb(255,255,0),0
set text size 30

b = timer()

rem Main loop
do

a = (timer() - b)
set cursor 0,450
print "Time left: "; (30 - a/1000); "seconds...";
if a >= 30000
   end
endif

rem User prompt
   center text 320,5,"FREE FLIGHT ORIENTATION"
   center text 320,35,"Use ARROW KEYS to Turn and Pitch"
   center text 320,60,"Use [<] and [>] to Roll"
   center text 320,85,"Use LMB to Move"
   center text 320,110,"Use SPACE to Reset"

rem Control free flight object
   if downkey()=1 then pitch object up 2,5
   if upkey()=1 then pitch object down 2,5
   if leftkey()=1 then turn object left 2,5
   if rightkey()=1 then turn object right 2,5
   if inkey$()="," then roll object left 2,5
   if inkey$()="." then roll object right 2,5
   if mouseclick()=1 then move camera 20 : move object 2,20
   if spacekey()=1 then rotate object 2,0,0,0

rem Get back position of object for camera
   pitch object down 2,11
   move object 2,-150
   position object 3,object position x(2),object position y(2),object position z(2)
   move object 2,150
   pitch object up 2,11

rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 2

rem Update screen
   sync

loop

+ Code Snippet

Rem * Title  : Free Flight Example
Rem * Author : DBS-LB
Rem * Date   : 25th June 2000
rem ==========================================
rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement
rem ------------------------------------------
autocam off
hide mouse
sync on

rem Make wire sky sphere
make object sphere 1,5000
set object 1,0,0,0

rem Make flying object
make object box 2,150,5,20
make mesh from object 2,2
delete object 2
make object box 2,25,15,100
add limb 2,1,2
position object 2,0,0,500

rem Make drone to mark a back position
make object sphere 3,10

rem Set camera range
set camera range 1,10000

rem Set text font
set text font "Arial"
ink rgb(255,255,0),0
set text size 30

b = timer()

rem Main loop
do

a = (timer() - b)
set cursor 0,450
print "Time left: "; (30 - a/1000); "seconds...";
if a >= 30000
   end
endif

   rem User prompt
   center text 320,5,"FREE FLIGHT ORIENTATION"
   center text 320,35,"Use ARROW KEYS to Turn and Pitch"
   center text 320,60,"Use [<] and [>] to Roll"
   center text 320,85,"Use LMB to Move"
   center text 320,110,"Use SPACE to Reset"

   rem Control free flight object
   if downkey()=1 then pitch object up 2,5
   if upkey()=1 then pitch object down 2,5
   if leftkey()=1 then turn object left 2,5
   if rightkey()=1 then turn object right 2,5
   if inkey$()="," then roll object left 2,5
   if inkey$()="." then roll object right 2,5
   if mouseclick()=1 then move camera 20 : move object 2,20
   if spacekey()=1 then rotate object 2,0,0,0

   rem Get back position of object for camera
   pitch object down 2,11
   move object 2,-150
   position object 3,object position x(2),object position y(2),object position z(2)
   move object 2,150
   pitch object up 2,11

   rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation 2

   rem Update screen
   sync

loop

If Quizz's Are Quizzical, Then What Are Test's?

Back to top

Profile PM Email Website

koshi

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Cyberspace

Posted: 28th Sep 2003 09:13

Link

hide mouse
spd=3 : o_vertica=-5
vertica#=o_vertica : gravity#=(vertica#*-1)/20.0

rem stuff not in a game
rem rain set
most=500 : seen=750 : dist=1000
dim rain(most,3)

rem make and randomize a matrix
make matrix 1,1000,1000,20,20
randomize matrix 1,50
update matrix 1
autocam off
sync on
rem main loop
do
gosub move
sync : loop

move:
   rem mouselook
   cay=wrapvalue(camera angle y()+mousemovex())
   cax=wrapvalue(camera angle x()+mousemovey())

rem no looking around
   if cax>090 and cax<270 then cax=o_cax1
   o_cax1=cax

rem if jumping is on then disable movement keys
   if jump=0
      rem stops from jumping up forever
      if high=1 then high=0

rem ctrl/crouching
      if keystate(29)=1 and crouch=0 then crouch=1 : spd=2
      if keystate(29)=0 and crouch=1 then crouch=0 : spd=3

rem crouching
      if crouch=0 and height<10 then inc height,1
      if crouch=1 and height>05 then dec height,1

rem spacebar/jump so jump only happens once per click
      if keystate(57)=1 and stopjump=0 then stopjump=1 : jump=1 : o_cay2=cay
      if keystate(57)=0 and stopjump=1 then stopjump=0

if keystate(17)=1 or keystate(30)=1 or keystate(31)=1 or keystate(32)=1
         rem w/up a/right s/down d/left movement key input
         if keystate(17)=1 then dif=0 : x#=newxvalue(x#,cay,spd) : z#=newzvalue(z#,cay,spd) : angle=0
         if keystate(30)=1 then dif=1 : x#=newxvalue(x#,cay-090,spd-1) : z#=newzvalue(z#,cay-090,spd-1): angle=90
         if keystate(31)=1 then dif=2 : x#=newxvalue(x#,cay-180,spd-2) : z#=newzvalue(z#,cay-180,spd-2): angle=180
         if keystate(32)=1 then dif=1 : x#=newxvalue(x#,cay-270,spd-1) : z#=newzvalue(z#,cay-270,spd-1): angle=270
         moving=1
      else
         rem check if the camera is moving for jump
         if moving=1 then moving=0
      endif
   else

rem jump
      rem if the camera is moving continue movement on jump
      if moving=1
         if high=0 then high=1 : vertica#=o_vertica+dif
         rem find direction
         x#=newxvalue(x#,o_cay2-angle,spd-dif)
         z#=newzvalue(z#,o_cay2-angle,spd-dif)
      else
         if crouch=1 and high=0 then vertica#=o_vertica-1 : high=1
      endif
      vertica#=vertica#+gravity#
      y#=y#-vertica#
      if y#<=get ground height(1,x#,z#)+height then jump=0 : vertica#=o_vertica
   endif
   rem set up ycord keep off when jump is on
   if jump=0 then y#=get ground height(1,x#,z#)+height

rem position camera
   yrotate camera cay
   xrotate camera cax
   position camera x#,y#,z#
return

+ Code Snippet

hide mouse
spd=3 : o_vertica=-5
vertica#=o_vertica : gravity#=(vertica#*-1)/20.0

rem stuff not in a game
rem rain set
most=500 : seen=750 : dist=1000
dim rain(most,3)

rem make and randomize a matrix
make matrix 1,1000,1000,20,20
randomize matrix 1,50
update matrix 1
autocam off
sync on
rem main loop
do
gosub move
sync : loop

move:
   rem mouselook
   cay=wrapvalue(camera angle y()+mousemovex())
   cax=wrapvalue(camera angle x()+mousemovey())

   rem no looking around
   if cax>090 and cax<270 then cax=o_cax1
   o_cax1=cax

   rem if jumping is on then disable movement keys
   if jump=0
      rem stops from jumping up forever
      if high=1 then high=0

      rem ctrl/crouching
      if keystate(29)=1 and crouch=0 then crouch=1 : spd=2
      if keystate(29)=0 and crouch=1 then crouch=0 : spd=3

      rem crouching
      if crouch=0 and height<10 then inc height,1
      if crouch=1 and height>05 then dec height,1

      rem spacebar/jump so jump only happens once per click
      if keystate(57)=1 and stopjump=0 then stopjump=1 : jump=1 : o_cay2=cay
      if keystate(57)=0 and stopjump=1 then stopjump=0

      if keystate(17)=1 or keystate(30)=1 or keystate(31)=1 or keystate(32)=1
         rem w/up a/right s/down d/left movement key input
         if keystate(17)=1 then dif=0 : x#=newxvalue(x#,cay,spd) : z#=newzvalue(z#,cay,spd) : angle=0
         if keystate(30)=1 then dif=1 : x#=newxvalue(x#,cay-090,spd-1) : z#=newzvalue(z#,cay-090,spd-1): angle=90
         if keystate(31)=1 then dif=2 : x#=newxvalue(x#,cay-180,spd-2) : z#=newzvalue(z#,cay-180,spd-2): angle=180
         if keystate(32)=1 then dif=1 : x#=newxvalue(x#,cay-270,spd-1) : z#=newzvalue(z#,cay-270,spd-1): angle=270
         moving=1
      else
         rem check if the camera is moving for jump
         if moving=1 then moving=0
      endif
   else

      rem jump
      rem if the camera is moving continue movement on jump
      if moving=1
         if high=0 then high=1 : vertica#=o_vertica+dif
         rem find direction
         x#=newxvalue(x#,o_cay2-angle,spd-dif)
         z#=newzvalue(z#,o_cay2-angle,spd-dif)
      else
         if crouch=1 and high=0 then vertica#=o_vertica-1 : high=1
      endif
      vertica#=vertica#+gravity#
      y#=y#-vertica#
      if y#<=get ground height(1,x#,z#)+height then jump=0 : vertica#=o_vertica
   endif
   rem set up ycord keep off when jump is on
   if jump=0 then y#=get ground height(1,x#,z#)+height

   rem position camera
   yrotate camera cay
   xrotate camera cax
   position camera x#,y#,z#
return

A.W.S.D is to move
Space is to jump
Ctrl is to crouch
=)

Famous last words -
Pull the pin and count to what?

Back to top

Profile PM

ReD_eYe

22

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 28th Sep 2003 12:39

Link

i think i've got what your looking for, its bascically what kelebrindae said but with code!

Rem Camera Waypoints
Rem By ReD_eYe

sync on
sync rate 50

rem set up matrix
make matrix 1,1000,1000,10,10
randomize matrix 1,100

rem camera position array
dim camera_pos(29)

rem populate the array with random values
rem you can set these manually so you can plan the route
rem the format is x/y/z/x1/y1/z1/x2/y2/z2

for t=0 to 29
camera_pos(t)=rnd(1000)
next t

rem make camera object
make object sphere 1,1

rem position camera at starting position
position camera 0,200,0

rem set var variable
var=1

rem main loop
do
center text 320,0,"Camera Movement Using Array Based Waypoints"

rem sets the target waypoint
nx=camera_pos(var-1)
ny=camera_pos(var)
nz=camera_pos(var+1)

rem checks to see if camera+object are near the target waypoint
if object position x(1)<nx+5 and object position x(1)>nx-5
if object position z(1)<nz+5 and object position z(1)>nz-5
if object position y(1)<ny+5 and object position y(1)>ny-5
inc var,3
endif
endif
endif

rem points object towards the target waypoint
point object 1,nx,ny,nz

rem moves the object towards the target waypoint
move object 1,5

rem positions the camera at the objects coords
position camera object position x(1),object position y(1),object position z(1)

rem points camera at middle of matrix, use this to focus on want you want
point camera 500,0,500

rem make sure var stays within limit/swap this for an end command and it will
rem stop at the end of the path
if var=28 then var=1

sync
loop

+ Code Snippet

Rem Camera Waypoints
Rem By ReD_eYe

sync on
sync rate 50

rem set up matrix
make matrix 1,1000,1000,10,10
randomize matrix 1,100

rem camera position array
dim camera_pos(29)

rem populate the array with random values
rem you can set these manually so you can plan the route
rem the format is x/y/z/x1/y1/z1/x2/y2/z2

for t=0 to 29
camera_pos(t)=rnd(1000)
next t

rem make camera object
make object sphere 1,1

rem position camera at starting position
position camera 0,200,0

rem set var variable
var=1

rem main loop
do
center text 320,0,"Camera Movement Using Array Based Waypoints"

rem sets the target waypoint
nx=camera_pos(var-1)
ny=camera_pos(var)
nz=camera_pos(var+1)

rem checks to see if camera+object are near the target waypoint
if object position x(1)<nx+5 and object position x(1)>nx-5
if object position z(1)<nz+5 and object position z(1)>nz-5
if object position y(1)<ny+5 and object position y(1)>ny-5
inc var,3
endif
endif
endif

rem points object towards the target waypoint
point object 1,nx,ny,nz

rem moves the object towards the target waypoint
move object 1,5

rem positions the camera at the objects coords
position camera object position x(1),object position y(1),object position z(1)

rem points camera at middle of matrix, use this to focus on want you want
point camera 500,0,500

rem make sure var stays within limit/swap this for an end command and it will
rem stop at the end of the path
if var=28 then var=1

sync
loop

hope it helps, any questions just ask

Back to top

Profile PM Email Website

koshi

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Cyberspace

Posted: 29th Sep 2003 03:21

Link

oic cool

"Hello this is the suicide hotline, please hold..."
http://www.rovokaa.tk/ -

Back to top

Profile PM

stevkay

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location:

Posted: 1st Oct 2003 15:46

Link

Thanks. Red_eye, and Kelebrindae, your ideas seem to be the kind i'm after, so as the program runs without any user input. I'll give it a go this afternoon and let you know...

Thanks.

If you gaze into the abyss long enough, the abyss starts staring back.

Back to top

Profile PM

stevkay

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location:

Posted: 1st Oct 2003 18:16

Link

I tried to put your script into my program (its using magic world to create the matrix), and every way i try to put it in, i always end up with an "object already exists at line 84" or similair. wondering if any of you can help- heres my initial code, looking at the matrix from a predefined point:

+ Code Snippet


#include "magicload1-1.dba"

set display mode 640,480,16
autocam off
sync on
print screen fps()
sync rate 0
set camera view 0,0,640,480



`load world
MagicLoad("4th",1,1,1)



rem Position camera
position camera 0,400,-400: rotate camera 15,0,0
set camera range 1,5000

hide mouse

rem Begin loop
do



rem screen fps
Set Cursor 10,10

print screen fps()
sync

loop

And this is the "magicload" dba file that is needed to run the already created mwdb matrix file from magic world. I'm not sure if the objects are clashing here, and there is some editing to be done.

function MagicLoad(terrain$,firstimage,firstmatrix,firstobject)

path$=get dir$()

if right$(terrain$,5)<>".mwdb" then terrain$=terrain$+".mwdb"

if file exist(terrain$)

`get rid of previous matrices, objects, lights,
`images and objects before calling the function

open to read 1,terrain$

`number of matrices
read word 1,mat

`number of texture images
read word 1,textures

`texture filenames
for a=firstimage to (firstimage+textures)-1
   read string 1,tex$
   read string 1,tex2$
   if path exist(tex2$)=0 then tex2$=path$
   if file exist(tex2$+"\"+tex$)
      cd tex2$
      load image tex$,a
   else
      get image a,0,0,16,16
   endif
next a
cd path$

`for each matrix, twelve dimensions
for a=firstmatrix to (firstmatrix+mat)-1

read word 1,m1
   read word 1,m2
   read word 1,m3
   read word 1,m4
   read byte 1,sgn
   read word 1,m5
      if sgn=1 then m5=0-m5
   read byte 1,sgn
   read word 1,m6
      if sgn=1 then m6=0-m6
   read word 1,m7
   read word 1,m8
   read word 1,m9
   read byte 1,m10
   read byte 1,m11
   read byte 1,m12

`create each matrix not filtered out
   if matrix exist(a) then delete matrix a
   make matrix a,m1,m2,m3,m4
   position matrix a,m5,0,m6
   if m9>0 then prepare matrix texture a,(m9-101)+firstimage,m7,m8

`for each grid point in each matrix, a height and tile number
   for b=0 to m3
      for c=0 to m4
         read float 1,height#
         set matrix height a,b,c,height#
         if b<m3 and c<m4
            read word 1,tile
            if m9>0 then set matrix tile a,b,c,tile
         endif
      next c
   next b
   update matrix a
   for c=0 to m4
      for b=0 to m3
         `no normals
         if m12=0
            set matrix normal a,b,c,0,1,0
         endif
         `floor or roof normals
         if m12>0
            `Get matrix heights
            h#=get matrix height(a,b,c)
            h2#=get matrix height(a,b,c)
            if c=0 then h8#=get matrix height(a,b,c+1) else h8#=get matrix height(a,b,c-1)
            if b=0 then h4#=get matrix height(a,b+1,c) else h4#=get matrix height(a,b-1,c)
            `Calculate projected angle X using heights
            x1#=(b-1)*25.0 : y1#=h#
            x2#=(b+0)*25.0 : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)
            `Calculate projected angle Z using heights
            z1#=(c-1)*25.0 : y1#=h2#
            z2#=(c+0)*25.0 : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)
            `Make normal from projected angle
            if b=0 then nx#=sin(0-ax#) else nx#=sin(ax#)
            ny#=cos(ax#)
            if c=0 then nz#=sin(0-az#) else nz#=sin(az#)
            `Setting matrix normal for smoothness
            if m12=1
               set matrix normal a,b,c,nx#,ny#,nz#
            endif
            if m12=2
               set matrix normal a,b,c,0-nx#,0-ny#,0-nz#
            endif
         endif
      next b
   next c
   update matrix a
   if m10=1 then set matrix wireframe off a else set matrix wireframe on a
   if m11=1 then ghost matrix off a else ghost matrix on a
next a

`OBJECTS
read word 1,numobj
for a=firstobject to (firstobject+numobj)-1
   if object exist(a) then delete object a
   read byte 1,OBJECT
   read string 1,OBJFILE$
   read string 1,OBJFILE2$
   read float 1,ox#
   read float 1,oy#
   read float 1,oz#
   read float 1,oxa#
   read float 1,oya#
   read float 1,oza#
      if OBJECT=1 then make object cube a,100
      if OBJECT=2 then make object sphere a,100
      if OBJECT=3 then make object cylinder a,100
      if OBJECT=4 then make object cone a,100
      if OBJECT=5 then make object plain a,100,100
      if OBJECT=6
         if path exist(objfile2$)=0 then objfile2$=PATH$
         if file exist(objfile$) then objfile2$=PATH$
         if file exist(objfile2$+"\"+objfile$)
            cd objfile2$
            load object OBJFILE$,a
         else
          ```substitute a cube!!!
            make object cube a,100
         endif
         cd PATH$
      endif

position object a,ox#,oy#,oz#
   rotate object a,oxa#,oya#,oza#
   read float 1,scx#
   read float 1,scy#
   read float 1,scz#
   scale object a,scx#,scy#,scz#
   `object texture or color
   read byte 1,red
   read byte 1,green
   read byte 1,blue
   read byte 1,op1
   read byte 1,op2
   read byte 1,op3
   read byte 1,op4
   read byte 1,op5
   read byte 1,op6
   read byte 1,op7
   read byte 1,op8
   read word 1,objtex
   for b=1 to 4
      read float 1,redundant#
   next b
   if op1=0 then ghost object on a else ghost object off a
   set object a,op2,op3,op4,op5,op6,op7,op8
   if OBJTEX=0
      color object a,rgb(red,green,blue)
   endif
   if OBJTEX>100
      texture object a,(objtex-101)+firstimage
   endif
   read byte 1,OBJHISTCOUNT
   for b=1 to OBJHISTCOUNT
      read float 1,objhist#
      read float 1,objhistU#
      read float 1,objhistV#
      if objhist#=1.0
         scroll object texture a,objhistU#,objhistV#
      else
         scale object texture a,objhistU#,objhistV#
      endif
   next b
next a

`STATIC OBJECTS
static=firstobject+numobj
if object exist(static) then delete object static
read word 1,numstat
for a=1 to numstat
   read byte 1,STATOBJ
   read string 1,STATFILE$
   read string 1,STATFILE2$
      if STATOBJ=1 or STATOBJ=7 then make object cube static,100
      if STATOBJ=2 or STATOBJ=8 then make object sphere static,100
      if STATOBJ=3 or STATOBJ=9 then make object cylinder static,100
      if STATOBJ=4 or STATOBJ=10 then make object cone static,100
      if STATOBJ=5 or STATOBJ=11 then make object plain static,100,100
      if STATOBJ=6 or STATOBJ=12
         if path exist(statfile2$)=0 then statfile2$=PATH$
         if file exist(statfile$) then statfile2$=PATH$
         if file exist(statfile2$+"\"+statfile$)
            cd statfile2$
            load object statFILE$,static
         else
            ```substitute a cube!!!
            make object cube static,100
         endif
         cd PATH$
      endif
   read float 1,sx#
   read float 1,sy#
   read float 1,sz#
      position object static,sx#,sy#,sz#
   read float 1,asx#
   read float 1,asy#
   read float 1,asz#
      rotate object static,asx#,asy#,asz#
   read float 1,sxsc#
   read float 1,sysc#
   read float 1,szsc#
      scale object static,sxsc#,sysc#,szsc#
   read byte 1,sred
   read byte 1,sgreen
   read byte 1,sblue
   read word 1,stattex
   if stattex=0
      color object static,rgb(sred,sgreen,sblue)
   endif
   if stattex>100
      `textures
      texture object static,(stattex-101)+firstimage
   endif
   read byte 1,stathistcount
   for b=1 to stathistcount
      read float 1,stathist#
      read float 1,stathistU#
      read float 1,stathistV#
      if stathist#=1.0
         scroll object texture static,stathistU#,stathistV#
      else
         scale object texture static,stathistU#,stathistV#
      endif
   next b
   `make static
   if statobj<=6
      make static object static
   else
      make static object static,1
   endif
   delete object static
next a

`LIGHTS
read word 1,numlight
for a=0 to numlight-1
   read byte 1,light
   read byte 1,showhide
   read float 1,lightposX#
   read float 1,lightposY#
   read float 1,lightposZ#
   read float 1,lightposAX#
   read float 1,lightposAY#
   read float 1,lightposAZ#
   read float 1,lightposI#
   read float 1,lightposO#
   read byte 1,lred
   read byte 1,lgreen
   read byte 1,lblue
   `make the light
   if a>0 then make light a else show light 0
   if light=1
      set point light a,lightposX#,lightposY#,lightposZ#
   endif
   if light=2
      set spot light a,lightposI#,lightposO#
      position light a,lightposX#,lightposY#,lightposZ#
      rotate light a,lightposAX#,lightposAY#,lightposAZ#
   endif
   if light=3
      dix#=newxvalue(0,lightposAY#,100)*cos(lightposAX#)
      diy#=newyvalue(0,lightposAX#,100)
      diz#=newzvalue(0,lightposAY#,100)*cos(lightposAX#)
      set directional light a,dix#,diy#,diz#
   endif
   `color
   color light a,lred,lgreen,lblue
next a

`camera details
read float 1,CAMX#
read float 1,CAMY#
read float 1,CAMZ#
read float 1,CAMDX#
read float 1,CAMDY#
read float 1,CAMDZ#
position camera CAMX#,CAMY#,CAMZ#
rotate camera wrapvalue(CAMDX#),wrapvalue(CAMDY#),wrapvalue(CAMDZ#)

`redundant
read byte 1,WIRE

`fog and backdrop
read byte 1,fog
   if fog=1 then fog on else fog off
read float 1,fogdist#
   fog distance fogdist#
read byte 1,fred
read byte 1,fgreen
read byte 1,fblue
   fog color rgb(fred,fgreen,fblue)
read word 1,back
read byte 1,backX
read byte 1,backY
read byte 1,bred
read byte 1,bgreen
read byte 1,bblue
if back=0
   color backdrop rgb(bred,bgreen,bblue)
else
   `backdrop texture
   texture backdrop (back-101)+firstimage
   scroll backdrop backX,backY
endif
read byte 1,ambient
   set ambient light AMBIENT
`redundant
read byte 1,seas
read float 1,world#

close file 1

endif

endfunction

+ Code Snippet

function MagicLoad(terrain$,firstimage,firstmatrix,firstobject)

path$=get dir$()

if right$(terrain$,5)<>".mwdb" then terrain$=terrain$+".mwdb"

if file exist(terrain$)

`get rid of previous matrices, objects, lights,
`images and objects before calling the function

open to read 1,terrain$

`number of matrices
read word 1,mat

`number of texture images
read word 1,textures

`texture filenames
for a=firstimage to (firstimage+textures)-1
   read string 1,tex$
   read string 1,tex2$
   if path exist(tex2$)=0 then tex2$=path$
   if file exist(tex2$+"\"+tex$)
      cd tex2$
      load image tex$,a
   else
      get image a,0,0,16,16
   endif
next a
cd path$

`for each matrix, twelve dimensions
for a=firstmatrix to (firstmatrix+mat)-1

   read word 1,m1
   read word 1,m2
   read word 1,m3
   read word 1,m4
   read byte 1,sgn
   read word 1,m5
      if sgn=1 then m5=0-m5
   read byte 1,sgn
   read word 1,m6
      if sgn=1 then m6=0-m6
   read word 1,m7
   read word 1,m8
   read word 1,m9
   read byte 1,m10
   read byte 1,m11
   read byte 1,m12

   `create each matrix not filtered out
   if matrix exist(a) then delete matrix a
   make matrix a,m1,m2,m3,m4
   position matrix a,m5,0,m6
   if m9>0 then prepare matrix texture a,(m9-101)+firstimage,m7,m8

   `for each grid point in each matrix, a height and tile number
   for b=0 to m3
      for c=0 to m4
         read float 1,height#
         set matrix height a,b,c,height#
         if b<m3 and c<m4
            read word 1,tile
            if m9>0 then set matrix tile a,b,c,tile
         endif
      next c
   next b
   update matrix a
   for c=0 to m4
      for b=0 to m3
         `no normals
         if m12=0
            set matrix normal a,b,c,0,1,0
         endif
         `floor or roof normals
         if m12>0
            `Get matrix heights
            h#=get matrix height(a,b,c)
            h2#=get matrix height(a,b,c)
            if c=0 then h8#=get matrix height(a,b,c+1) else h8#=get matrix height(a,b,c-1)
            if b=0 then h4#=get matrix height(a,b+1,c) else h4#=get matrix height(a,b-1,c)
            `Calculate projected angle X using heights
            x1#=(b-1)*25.0 : y1#=h#
            x2#=(b+0)*25.0 : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)
            `Calculate projected angle Z using heights
            z1#=(c-1)*25.0 : y1#=h2#
            z2#=(c+0)*25.0 : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)
            `Make normal from projected angle
            if b=0 then nx#=sin(0-ax#) else nx#=sin(ax#)
            ny#=cos(ax#)
            if c=0 then nz#=sin(0-az#) else nz#=sin(az#)
            `Setting matrix normal for smoothness
            if m12=1
               set matrix normal a,b,c,nx#,ny#,nz#
            endif
            if m12=2
               set matrix normal a,b,c,0-nx#,0-ny#,0-nz#
            endif
         endif
      next b
   next c
   update matrix a
   if m10=1 then set matrix wireframe off a else set matrix wireframe on a
   if m11=1 then ghost matrix off a else ghost matrix on a
next a



`OBJECTS
read word 1,numobj
for a=firstobject to (firstobject+numobj)-1
   if object exist(a) then delete object a
   read byte 1,OBJECT
   read string 1,OBJFILE$
   read string 1,OBJFILE2$
   read float 1,ox#
   read float 1,oy#
   read float 1,oz#
   read float 1,oxa#
   read float 1,oya#
   read float 1,oza#
      if OBJECT=1 then make object cube a,100
      if OBJECT=2 then make object sphere a,100
      if OBJECT=3 then make object cylinder a,100
      if OBJECT=4 then make object cone a,100
      if OBJECT=5 then make object plain a,100,100
      if OBJECT=6
         if path exist(objfile2$)=0 then objfile2$=PATH$
         if file exist(objfile$) then objfile2$=PATH$
         if file exist(objfile2$+"\"+objfile$)
            cd objfile2$
            load object OBJFILE$,a
         else
          ```substitute a cube!!!
            make object cube a,100
         endif
         cd PATH$
      endif

   position object a,ox#,oy#,oz#
   rotate object a,oxa#,oya#,oza#
   read float 1,scx#
   read float 1,scy#
   read float 1,scz#
   scale object a,scx#,scy#,scz#
   `object texture or color
   read byte 1,red
   read byte 1,green
   read byte 1,blue
   read byte 1,op1
   read byte 1,op2
   read byte 1,op3
   read byte 1,op4
   read byte 1,op5
   read byte 1,op6
   read byte 1,op7
   read byte 1,op8
   read word 1,objtex
   for b=1 to 4
      read float 1,redundant#
   next b
   if op1=0 then ghost object on a else ghost object off a
   set object a,op2,op3,op4,op5,op6,op7,op8
   if OBJTEX=0
      color object a,rgb(red,green,blue)
   endif
   if OBJTEX>100
      texture object a,(objtex-101)+firstimage
   endif
   read byte 1,OBJHISTCOUNT
   for b=1 to OBJHISTCOUNT
      read float 1,objhist#
      read float 1,objhistU#
      read float 1,objhistV#
      if objhist#=1.0
         scroll object texture a,objhistU#,objhistV#
      else
         scale object texture a,objhistU#,objhistV#
      endif
   next b
next a



`STATIC OBJECTS
static=firstobject+numobj
if object exist(static) then delete object static
read word 1,numstat
for a=1 to numstat
   read byte 1,STATOBJ
   read string 1,STATFILE$
   read string 1,STATFILE2$
      if STATOBJ=1 or STATOBJ=7 then make object cube static,100
      if STATOBJ=2 or STATOBJ=8 then make object sphere static,100
      if STATOBJ=3 or STATOBJ=9 then make object cylinder static,100
      if STATOBJ=4 or STATOBJ=10 then make object cone static,100
      if STATOBJ=5 or STATOBJ=11 then make object plain static,100,100
      if STATOBJ=6 or STATOBJ=12
         if path exist(statfile2$)=0 then statfile2$=PATH$
         if file exist(statfile$) then statfile2$=PATH$
         if file exist(statfile2$+"\"+statfile$)
            cd statfile2$
            load object statFILE$,static
         else
            ```substitute a cube!!!
            make object cube static,100
         endif
         cd PATH$
      endif
   read float 1,sx#
   read float 1,sy#
   read float 1,sz#
      position object static,sx#,sy#,sz#
   read float 1,asx#
   read float 1,asy#
   read float 1,asz#
      rotate object static,asx#,asy#,asz#
   read float 1,sxsc#
   read float 1,sysc#
   read float 1,szsc#
      scale object static,sxsc#,sysc#,szsc#
   read byte 1,sred
   read byte 1,sgreen
   read byte 1,sblue
   read word 1,stattex
   if stattex=0
      color object static,rgb(sred,sgreen,sblue)
   endif
   if stattex>100
      `textures
      texture object static,(stattex-101)+firstimage
   endif
   read byte 1,stathistcount
   for b=1 to stathistcount
      read float 1,stathist#
      read float 1,stathistU#
      read float 1,stathistV#
      if stathist#=1.0
         scroll object texture static,stathistU#,stathistV#
      else
         scale object texture static,stathistU#,stathistV#
      endif
   next b
   `make static
   if statobj<=6
      make static object static
   else
      make static object static,1
   endif
   delete object static
next a



`LIGHTS
read word 1,numlight
for a=0 to numlight-1
   read byte 1,light
   read byte 1,showhide
   read float 1,lightposX#
   read float 1,lightposY#
   read float 1,lightposZ#
   read float 1,lightposAX#
   read float 1,lightposAY#
   read float 1,lightposAZ#
   read float 1,lightposI#
   read float 1,lightposO#
   read byte 1,lred
   read byte 1,lgreen
   read byte 1,lblue
   `make the light
   if a>0 then make light a else show light 0
   if light=1
      set point light a,lightposX#,lightposY#,lightposZ#
   endif
   if light=2
      set spot light a,lightposI#,lightposO#
      position light a,lightposX#,lightposY#,lightposZ#
      rotate light a,lightposAX#,lightposAY#,lightposAZ#
   endif
   if light=3
      dix#=newxvalue(0,lightposAY#,100)*cos(lightposAX#)
      diy#=newyvalue(0,lightposAX#,100)
      diz#=newzvalue(0,lightposAY#,100)*cos(lightposAX#)
      set directional light a,dix#,diy#,diz#
   endif
   `color
   color light a,lred,lgreen,lblue
next a



`camera details
read float 1,CAMX#
read float 1,CAMY#
read float 1,CAMZ#
read float 1,CAMDX#
read float 1,CAMDY#
read float 1,CAMDZ#
position camera CAMX#,CAMY#,CAMZ#
rotate camera wrapvalue(CAMDX#),wrapvalue(CAMDY#),wrapvalue(CAMDZ#)

`redundant
read byte 1,WIRE

`fog and backdrop
read byte 1,fog
   if fog=1 then fog on else fog off
read float 1,fogdist#
   fog distance fogdist#
read byte 1,fred
read byte 1,fgreen
read byte 1,fblue
   fog color rgb(fred,fgreen,fblue)
read word 1,back
read byte 1,backX
read byte 1,backY
read byte 1,bred
read byte 1,bgreen
read byte 1,bblue
if back=0
   color backdrop rgb(bred,bgreen,bblue)
else
   `backdrop texture
   texture backdrop (back-101)+firstimage
   scroll backdrop backX,backY
endif
read byte 1,ambient
   set ambient light AMBIENT
`redundant
read byte 1,seas
read float 1,world#

close file 1

endif

endfunction

Thanks for any help.

/Steve.

[/quote]

If you gaze into the abyss long enough, the abyss starts staring back.

Back to top

Profile PM

ReD_eYe

22

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 1st Oct 2003 21:47 Edited at: 1st Oct 2003 21:48

Link

ah, just delete everything below the load magicload() function and then copy all my code below the randomize matrix command and then paste it beneath you magicload() function

+ Code Snippet

include "magicload1-1.dba"

set display mode 640,480,16
autocam off
sync on
print screen fps()
sync rate 0
set camera view 0,0,640,480



`load world
MagicLoad("4th",1,1,1)

<my code(from below randomize matrix 1,100>

also change the line
make object sphere 1,1
to
make object sphere 5000,1
or a bigger number if you still get object already exists errors

hope that helps

Back to top

Profile PM Email Website

stevkay

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location:

Posted: 2nd Oct 2003 15:51

Link

Thanks- everything is working perfectly now; my eternal gratitude.

If you gaze into the abyss long enough, the abyss starts staring back.

Back to top

Profile PM

ReD_eYe

22

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 2nd Oct 2003 20:55

Link

no probs, i've never done something like that before so it was kinda interesting to have a go.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Preset Camera Move- help please!