Object pointing at camera - GameCreators Forum

Author

Message

kamac

15

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 25th Dec 2010 22:00

Link

Okay, so i have a basic loaded space ship, a planet in my view, and i can move it by pressing w,a,d,s. But what i really want, is to delete a and d buttons and replace them by making object rotate to the mouse. So i can let it go up/right/down/left. Here's the code.

Rem Project: Space
Rem Created: Saturday, December 25, 2010

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

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
Load Object "spaceship2.x",1
load image "planet.jpg",1
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,0
texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0

// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

Do
	if InKey$()="d" then angle = wrapvalue(angle + 0.02)// okay, so this would be removed xP
    if Inkey$()="a" then angle = wrapvalue(angle - 0.02)
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    zrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
loop

+ Code Snippet

Rem Project: Space
Rem Created: Saturday, December 25, 2010

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

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
Load Object "spaceship2.x",1
load image "planet.jpg",1
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,0
texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0


// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

Do
	if InKey$()="d" then angle = wrapvalue(angle + 0.02)// okay, so this would be removed xP
    if Inkey$()="a" then angle = wrapvalue(angle - 0.02)
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    zrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
loop

If anyone can give me instructions or better - implement the needed code in mine, then i would be very greateful

. I just badly need it for my 1st 3d space game

.

Cheers!

~Kamac

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 25th Dec 2010 22:18 Edited at: 25th Dec 2010 22:23

Link

What about something like this

Rem Project: Space
Rem Created: Saturday, December 25, 2010

Rem ***** Main Source File *****
set display mode desktop width(),desktop height(),32
sync on
sync rate 60

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
`Load Object "spaceship2.x",1
`load image "planet.jpg",1
make object box 1,1,1,1
color object 1,rgb(255,0,0)
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,-100
`texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0

// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

`put mouse in middle of screen - moving mouse left and right will rotate object
`you can always hide the mouse if you want to
position mouse desktop width()/2,desktop height()/2
mx=mousex()
my=mousey()
oldmx=mx
oldmy=my

Do
   mx=mousex()
   my=mousey()
   if mx<>oldmx
      incangle#=(mx-oldmx)/1000.0
      angle = wrapvalue(angle + incangle#)// okay, so this would be removed xP
   endif
`   if InKey$()="d" then angle = wrapvalue(angle + 0.02)// okay, so this would be removed xP
    if Inkey$()="a" then angle = wrapvalue(angle - 0.02)
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    zrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
    
    sync
loop

+ Code Snippet

Rem Project: Space
Rem Created: Saturday, December 25, 2010

Rem ***** Main Source File *****
set display mode desktop width(),desktop height(),32
sync on
sync rate 60

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
`Load Object "spaceship2.x",1
`load image "planet.jpg",1
make object box 1,1,1,1
color object 1,rgb(255,0,0)
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,-100
`texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0


// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

`put mouse in middle of screen - moving mouse left and right will rotate object
`you can always hide the mouse if you want to
position mouse desktop width()/2,desktop height()/2
mx=mousex()
my=mousey()
oldmx=mx
oldmy=my

Do
   mx=mousex()
   my=mousey()
   if mx<>oldmx
      incangle#=(mx-oldmx)/1000.0
      angle = wrapvalue(angle + incangle#)// okay, so this would be removed xP
   endif
`   if InKey$()="d" then angle = wrapvalue(angle + 0.02)// okay, so this would be removed xP
    if Inkey$()="a" then angle = wrapvalue(angle - 0.02)
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    zrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
    
    sync
loop

Back to top

Profile PM Email

kamac

15

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 25th Dec 2010 22:25

Link

Hm, that's not really what i am up to. I mean, it should rotate also when i point upwards, so i can steer the space ship as i wish.

Cheers!

~Kamac

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 25th Dec 2010 22:34 Edited at: 25th Dec 2010 22:35

Link

Don't be so quick to dismiss what I was showing you.
So change the code to add the mouse-Y direction to change the
pitch (up and down direction) of your ship object, or adapt it anyway you want to.
Give it a try, if you get stuck, post your updated code here.

Back to top

Profile PM Email

kamac

15

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 26th Dec 2010 12:46 Edited at: 26th Dec 2010 13:06

Link

well, i tried to implement for now only rotating by left&right

But i can rotate it only by left

Rem Project: Space
Rem Created: Saturday, December 25, 2010

Rem ***** Main Source File *****
set display mode desktop width(),desktop height(),32
sync rate 60
sync on

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
Load Object "spaceship2.x",1
load image "planet.jpg",1
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,0
texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0

// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

position mouse desktop width()/2,desktop height()/2
mx=mousex()
my=mousey()
oldmx=mx
oldmy=my

Do
	mx=mousex()
   	my=mousey()
   	if mx<>oldmx
   		incangle# = (mx-oldmx)/1000
   		angle = wrapvalue(angle + incangle#)
   	endif
	`if InKey$()="d" then angle = wrapvalue(angle + 0.02): add = add + 1: roll object right 1,5// okay, so this would be removed xP
    `if Inkey$()="a" then angle = wrapvalue(angle - 0.02): add = add - 1: roll object left 1,5
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
    
    sync
loop

+ Code Snippet

Rem Project: Space
Rem Created: Saturday, December 25, 2010

Rem ***** Main Source File *****
set display mode desktop width(),desktop height(),32
sync rate 60
sync on

ink RGB(0,0,0),RGB(0,0,0)
color backdrop RGB(0,0,0)
Load Object "spaceship2.x",1
load image "planet.jpg",1
make light 1
position light 1,0,1,0
make object sphere 2,70
position object 2,0,0,70
position camera 0,1,0
texture object 2,1

camx as float = 0.0
camy as float = 3.0
camz as float = 2.0

// distance between object and camera
distance as float = 8.0


// the angle of the object
angle as float = 0.0

friction as float = 0.0

height as float = 0.0

add = 0

set global collision on

position mouse desktop width()/2,desktop height()/2
mx=mousex()
my=mousey()
oldmx=mx
oldmy=my

Do
	mx=mousex()
   	my=mousey()
   	if mx<>oldmx
   		incangle# = (mx-oldmx)/1000
   		angle = wrapvalue(angle + incangle#)
   	endif
	`if InKey$()="d" then angle = wrapvalue(angle + 0.02): add = add + 1: roll object right 1,5// okay, so this would be removed xP
    `if Inkey$()="a" then angle = wrapvalue(angle - 0.02): add = add - 1: roll object left 1,5
    If InKey$()="w" and friction < 0.004 Then friction = friction + 0.00001
    If UpKey()=1 Then height = height + 0.01
    If DownKey()=1 Then height = height - 0.01
    move object 1,friction
    If InKey$()="s" Then friction = 0.0008
    If friction < 0 Then friction = 0
    yrotate object 1, angle
    camx = (-sin(angle)*distance)+object position x(1)
    camz = (-cos(angle)*distance)+object position z(1)
    camy = object position y(1)+3.0
    position camera camx, camy, camz
    point camera object position x(1), object position y(1)+height, object position z(1)
    
    if object collision(1,2) Then end
    
    sync
loop

Oh. lol. I forgot to add .0 in (mx-oldmx)/1000