another Point Object question - GameCreators Forum

Author

Message

eek

21

Years of Service

User Offline

Joined: 26th Dec 2004

Location:

Posted: 6th Jul 2006 10:27

Link

First off, sorry, I know similar topics have been posted but I couldn't get what I needed out of the posts I found.

I am making a plain and pointing trying to point it at the camera. It has a plant image on it. I am making the classic 2d plant that rotates based on the camera. The problem is I can't get it to rotate. Sorry about the redundance of the post again, and thanks for any help.

source and media attached
source:

+ Code Snippet

Sync On
sync rate 30

load image "plant.bmp",1
set ambient light 80

For x=1 to 100
   make object plain x,5,5
   texture object x,1
   fade object x,200
   position object x,RND(2000),0,RND(2000)
   set object x,1,0,0
   POINT OBJECT x,X#,0,Z#
Next x

Do

   Rem  Store Object angle
   CameraAngleY# = Camera angle Y()

   Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,20)
      ZTest# = Newzvalue(Z#,CameraAngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move camera 1
      Endif
   Endif

   If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-5)
   If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+5)

   X# = Camera position X()
   Z# = Camera position Z()
   Position Camera X#,0,Z#

sync
Loop

Back to top

Profile PM

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 6th Jul 2006 14:01 Edited at: 6th Jul 2006 14:01

Link

+ Code Snippet

POINT OBJECT x,X#,0,Z#

This line has to be written IN your game loop. (between do and loop).

If you do it before the loop, the action will only be done once: when it starts.

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

eek

21

Years of Service

User Offline

Joined: 26th Dec 2004

Location:

Posted: 6th Jul 2006 23:13

Link

I think I have tried that before, here is the modified code:

+ Code Snippet

Sync On
sync rate 30

load image "plant.bmp",1
set ambient light 80

For x=1 to 100
   make object plain x,5,5
   texture object x,1
   fade object x,200
   position object x,RND(2000),0,RND(2000)
   set object x,1,0,0
Next x

Do

   POINT OBJECT x,X#,0,Z#

   Rem  Store Object angle
   CameraAngleY# = Camera angle Y()

   Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,20)
      ZTest# = Newzvalue(Z#,CameraAngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move camera 10
      Endif
   Endif

   If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-5)
   If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+5)

   X# = Camera position X()
   Z# = Camera position Z()
   Position Camera X#,0,Z#

sync
Loop

The problem is once I do that it says that the object doesn't exist. I don't know why it would cause that problem, because the x object should exist. Any ideas?

Back to top

Profile PM

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 7th Jul 2006 01:41

Link

You need to put it in another for/next loop. Notice that x is only between "For x=1 to 100" and "Next x", well where you have it now is not between these two lines.

Back to top

Profile PM Email

eek

21

Years of Service

User Offline

Joined: 26th Dec 2004

Location:

Posted: 7th Jul 2006 03:21 Edited at: 7th Jul 2006 03:22

Link

Well thanks - I get no error now!

BUT!

The plants still do not point at the camera...

Updated Code:

+ Code Snippet

Sync On
sync rate 30

load image "plant.bmp",1
set ambient light 80

For x=1 to 100
   make object plain x,5,5
   texture object x,1
   fade object x,200
   position object x,RND(2000),0,RND(2000)
   set object x,1,0,0
   POINT OBJECT x,X#,0,Z#
Next x

Do

For x=1 to 100
   Rem  Store Object angle
   CameraAngleY# = Camera angle Y()
Next x

   Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,20)
      ZTest# = Newzvalue(Z#,CameraAngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move camera 1
      Endif
   Endif

   If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-5)
   If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+5)

   X# = Camera position X()
   Z# = Camera position Z()
   Position Camera X#,0,Z#

sync
Loop

I don't know if it has something to do with the control of the camera or what. Hmmm. And if you want the media is at the top with the old source code, if you want to actually run it. Remember though, it's the old code.

Back to top

Profile PM

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 7th Jul 2006 12:22

Link

Hmm, you're not using 'Point Object' in the main loop. Try that, or, Set the Y angle of the objects as Wrapvalue(CameraAngleY#+180) (within the For/Next loop), that would be best in my opinion.

Back to top

Profile PM Email

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 7th Jul 2006 14:27

Link

Quote: "Set the Y angle of the objects as Wrapvalue(CameraAngleY#+180)"

Sorry but I doubt that'll work. If the plant is standing left from you, then that would mean the plant is pointing to the opposite way of your rotation.

I meant this:

In your game loop

+ Code Snippet

for x = 1 to 100
   point object x, X#, 0, Z#
next x

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 7th Jul 2006 15:52

Link

Yeah that works too lol.

Back to top

Profile PM Email

eek

21

Years of Service

User Offline

Joined: 26th Dec 2004

Location:

Posted: 10th Jul 2006 00:56

Link

Aha it works! Thanks Sven and Zotoaster for the help very much.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / another Point Object question