3d object move - GameCreators Forum

Author

Message

redalert1

16

Years of Service

User Offline

Joined: 27th Dec 2008

Location:

Posted: 28th Dec 2008 05:06

Link

Im completely new to DB. Im trying to get started in 3d, prob is I want to create a sphere and control motion back,forth,side with arrow keys. well ive got the sphere but cant move it.. can someone help:::

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 28th Dec 2008 18:00

Link

Try looking at upkey() downkey() leftkey() rightkey()

Then look at move object.

Here is an example:

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem create everything
gosub _init

rem main loop
do

rem position camera at sphere
   position camera x#,y#+10,z#-40

rem get X and Z sphere positions
   x#=object position x(1)
   z#=object position z(1)

rem move sphere with arrow keys
   if upkey()=1 then inc z#,2
   if downkey()=1 then dec z#,2
   if leftkey()=1 then dec x#,2
   if rightkey()=1 then inc x#,2

rem get ground height for sphere
   y#=get ground height(1,x#,z#)+5

rem update sphere positions
   position object 1,x#,y#,z#

rem refresh screen
   sync

rem end of main loop
loop

rem end
end

rem #####--#---#--####---####----###---#---#--#####--#####--#---#--#####--#####--
rem #------#---#--#---#--#---#--#---#--#---#----#------#----##--#--#------#------
rem #####--#---#--####---####---#---#--#---#----#------#----#-#-#--#####--#####--
rem ----#--#---#--#---#--#-#----#---#--#---#----#------#----#--##--#----------#--
rem #####---###---####---#--#----###----###-----#----#####--#---#--#####--#####--

_init:

rem make a texture
   create bitmap 1,128,128
   ink rgb(255,255,255),0
   box 0,0,127,127
   ink rgb(255,0,0),0
   circle 32,40,10
   circle 96,40,10
   line 30,80,98,80
   get image 1,0,0,128,128
   delete bitmap 1

rem create a sphere and texture it
   make object sphere 1,10
   position object 1,0,0,0
   texture object 1,1

rem make a matrix
   make matrix 1,1000,1000,20,20
   randomize matrix 1,20

return

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem create everything
gosub _init

rem main loop
do

   rem position camera at sphere
   position camera x#,y#+10,z#-40

   rem get X and Z sphere positions
   x#=object position x(1)
   z#=object position z(1)

   rem move sphere with arrow keys
   if upkey()=1 then inc z#,2
   if downkey()=1 then dec z#,2
   if leftkey()=1 then dec x#,2
   if rightkey()=1 then inc x#,2

   rem get ground height for sphere
   y#=get ground height(1,x#,z#)+5

   rem update sphere positions
   position object 1,x#,y#,z#

   rem refresh screen
   sync

rem end of main loop
loop

rem end
end


rem #####--#---#--####---####----###---#---#--#####--#####--#---#--#####--#####--
rem #------#---#--#---#--#---#--#---#--#---#----#------#----##--#--#------#------
rem #####--#---#--####---####---#---#--#---#----#------#----#-#-#--#####--#####--
rem ----#--#---#--#---#--#-#----#---#--#---#----#------#----#--##--#----------#--
rem #####---###---####---#--#----###----###-----#----#####--#---#--#####--#####--

_init:

   rem make a texture
   create bitmap 1,128,128
   ink rgb(255,255,255),0
   box 0,0,127,127
   ink rgb(255,0,0),0
   circle 32,40,10
   circle 96,40,10
   line 30,80,98,80
   get image 1,0,0,128,128
   delete bitmap 1

   rem create a sphere and texture it
   make object sphere 1,10
   position object 1,0,0,0
   texture object 1,1

   rem make a matrix
   make matrix 1,1000,1000,20,20
   randomize matrix 1,20

return

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 29th Dec 2008 03:51

Link

Comet:

How would Dec X#,2 move his object left? wait ya it would but only if he isn't going to rotate the object. if he does then he is going to need something like

+ Code Snippet

   x# = newxvalue(x#,Wrapvalue(yang#+90.0),Speed)
   z# = newzvalue(z#,Wrapvalue(yang#+90.0),Speed)

or make the plus 90 to a -90 to turn left. wouldn't that be a bettter way weather he's is rotating it or not?

P.S. I love your Subroutines marker

i think i'm gunna copy that with your permission haha

Back to top

Profile PM Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 29th Dec 2008 11:13

Link

Quote: "P.S. I love your Subroutines marker i think i'm gunna copy that with your permission haha "

Sure, go ahead!

I updated my example using your tip:

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem create everything
gosub _init

rem main loop
do

rem position camera at sphere
   set camera to follow x#,y#,z#,ay#,50,y#+10,10,0
   point camera x#,y#+5,z#

rem get X and Z sphere positions
   x#=object position x(1)
   z#=object position z(1)
   ay#=object angle y(1)

rem rotate sphere
   if leftkey()=1 then ay#=wrapvalue(ay#-2)
   if rightkey()=1 then ay#=wrapvalue(ay#+2)

rem left, right, up, down
   if keystate(17)=1 then x#=newxvalue(x#,ay#,2):z#=newzvalue(z#,ay#,2)
   if keystate(31)=1 then x#=newxvalue(x#,wrapvalue(ay#+180),2):z#=newzvalue(z#,wrapvalue(ay#+180),2)
   if keystate(30)=1 then x#=newxvalue(x#,wrapvalue(ay#+270),2):z#=newzvalue(z#,wrapvalue(ay#+270),2)
   if keystate(32)=1 then x#=newxvalue(x#,wrapvalue(ay#+90),2):z#=newzvalue(z#,wrapvalue(ay#+90),2)

rem get ground height for sphere
   y#=get ground height(1,x#,z#)+5

rem update sphere positions
   position object 1,x#,y#,z#
   yrotate object 1,ay#

rem refresh screen
   sync

rem end of main loop
loop

rem end
end

rem #####--#---#--####---####----###---#---#--#####--#####--#---#--#####--#####--
rem #------#---#--#---#--#---#--#---#--#---#----#------#----##--#--#------#------
rem #####--#---#--####---####---#---#--#---#----#------#----#-#-#--#####--#####--
rem ----#--#---#--#---#--#-#----#---#--#---#----#------#----#--##--#----------#--
rem #####---###---####---#--#----###----###-----#----#####--#---#--#####--#####--

_init:

rem make a texture
   create bitmap 1,128,128
   ink rgb(255,255,255),0
   box 0,0,127,127
   ink rgb(255,0,0),0
   circle 32,40,10
   circle 96,40,10
   line 30,80,98,80
   get image 1,0,0,128,128
   delete bitmap 1

rem create a sphere and texture it
   make object sphere 1,10
   position object 1,0,0,0
   texture object 1,1

rem make a matrix
   make matrix 1,1000,1000,20,20
   randomize matrix 1,20

return

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem create everything
gosub _init

rem main loop
do

   rem position camera at sphere
   set camera to follow x#,y#,z#,ay#,50,y#+10,10,0
   point camera x#,y#+5,z#

   rem get X and Z sphere positions
   x#=object position x(1)
   z#=object position z(1)
   ay#=object angle y(1)

   rem rotate sphere
   if leftkey()=1 then ay#=wrapvalue(ay#-2)
   if rightkey()=1 then ay#=wrapvalue(ay#+2)

   rem left, right, up, down
   if keystate(17)=1 then x#=newxvalue(x#,ay#,2):z#=newzvalue(z#,ay#,2)
   if keystate(31)=1 then x#=newxvalue(x#,wrapvalue(ay#+180),2):z#=newzvalue(z#,wrapvalue(ay#+180),2)
   if keystate(30)=1 then x#=newxvalue(x#,wrapvalue(ay#+270),2):z#=newzvalue(z#,wrapvalue(ay#+270),2)
   if keystate(32)=1 then x#=newxvalue(x#,wrapvalue(ay#+90),2):z#=newzvalue(z#,wrapvalue(ay#+90),2)

   rem get ground height for sphere
   y#=get ground height(1,x#,z#)+5

   rem update sphere positions
   position object 1,x#,y#,z#
   yrotate object 1,ay#

   rem refresh screen
   sync

rem end of main loop
loop

rem end
end


rem #####--#---#--####---####----###---#---#--#####--#####--#---#--#####--#####--
rem #------#---#--#---#--#---#--#---#--#---#----#------#----##--#--#------#------
rem #####--#---#--####---####---#---#--#---#----#------#----#-#-#--#####--#####--
rem ----#--#---#--#---#--#-#----#---#--#---#----#------#----#--##--#----------#--
rem #####---###---####---#--#----###----###-----#----#####--#---#--#####--#####--

_init:

   rem make a texture
   create bitmap 1,128,128
   ink rgb(255,255,255),0
   box 0,0,127,127
   ink rgb(255,0,0),0
   circle 32,40,10
   circle 96,40,10
   line 30,80,98,80
   get image 1,0,0,128,128
   delete bitmap 1

   rem create a sphere and texture it
   make object sphere 1,10
   position object 1,0,0,0
   texture object 1,1

   rem make a matrix
   make matrix 1,1000,1000,20,20
   randomize matrix 1,20

return

Use left and right arrow keys to rotate, use a,d,s,w to move sideways, forwards or backwards.

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 29th Dec 2008 19:18

Link

haha thanks i wanted to do something like that but was to lazy lol

nice example. that should help him

Back to top

Profile PM Website

Bluestar4

19

Years of Service

User Offline

Joined: 19th Dec 2005

Location: USA

Posted: 22nd Jan 2009 22:56 Edited at: 22nd Jan 2009 22:56

Link

oh ya I like that too, its awsome comet !

+ Code Snippet

rem #####--#---#--#---#---###---#####----#-----###---#---#--#####--#####--
rem #------#---#--##--#--#---#----#------#----#---#--##--#--#------#------
rem ###----#---#--#-#-#--#--------#------#----#---#--#-#-#--#####--#####--
rem #------#---#--#--##--#---#----#------#----#---#--#--##--#----------#--
rem #-------###---#---#---###-----#------#-----###---#---#--#####--#####--

here is one for functions

bluestar4~

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 23rd Jan 2009 08:24

Link

Thanks!

I wrote a program that would generate that just by entering the text you want. Should I post it?

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Bluestar4

19

Years of Service

User Offline

Joined: 19th Dec 2005

Location: USA

Posted: 24th Jan 2009 00:17

Link

ya. on a side note, I forgot to remove the "E" so my version of functions looks french lol

bluestar4~

Back to top

Profile PM Email

arbiter chewbacca hybrid

16

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 6th Feb 2009 00:21 Edited at: 20th Feb 2009 01:25

Link

Here is a code snippet
it is 3rd person and moves a cube around

+ Code Snippet

Rem Setup sync
Sync On
Sync Rate 30

Rem Make Cubes and place randomly
For x = 1 to 5
	Make object cube x,100
	Position object x,Rnd(2000),0,Rnd(2000)
Next x

Rem Make sphere
Make object sphere 10,50

Rem Main loop
Do
	Rem Store Object angle Y in aY#
	aY# = Object angle Y(10)
	
	Rem Control input for camera
	If Upkey()=1 then Move object 10,10
	If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
	If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)
	
	Rem get player object position and store in X# and Z#
	X# = Object position x(10)
	Z# = Object position z(10)
	
	Rem get new camera position and store in cZ# and cX#
	cZ# = Newzvalue(Z#,aY#-180,100)
	cX# = Newxvalue(X#,aY#-180,100)
	
	Rem position camera
	Position Camera cX#,100,cZ#
	
	Rem point the camera at the player object
	Point camera X#,50,Z#
	
	Rem Refresh Screen
	Sync
Loop

Back to top

Profile PM

arbiter chewbacca hybrid

16

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 10th Feb 2009 03:32 Edited at: 11th Feb 2009 01:50

Link

How do you create code snippet links?

Edit

Like this

+ Code Snippet

Rem code snippet

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 10th Feb 2009 18:37 Edited at: 10th Feb 2009 18:53

Link

1. put code in
2. Highlight
3. press code button

lol i didn't know for like 3 weeks when i firrst got on here lol

oh and comet yess i would love that program

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / 3d object move