Camera code not working? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 15:22

Hi. I seem to be having a problem with the camera. it's not positioning the camera on the correct object. The 2nd thing is if you hit the z key, it should reposition the camera to the object of choice.

Can someone please help me?

sync on : sync rate 60
autocam off

Dim __ObjTaken(0) as boolean     ` Global array
Dim __CamTaken(0) as boolean     ` Global array

global objnum

objnum = FreeObj()

make object cube objnum,1

objnum = FreeObj()

make object sphere objnum,1

position object objnum,4,1,4

oldcamnum = FreeCam()

do
if camnum=1
setcamtofollow(1)
else
if keystate(44)
if camnum>1
setcamtofollow(camnum)
endif
endif
endif
sync
loop

function setcamtofollow(obj as integer)
set camera to follow object position x(obj),object position y(obj),object position z(obj),0,9,2,40,1
ENDFUNCTION

function FreeObj()

array insert at bottom __ObjTaken()
   count = array count( __ObjTaken() )

if object exist(count) = 0 and __ObjTaken(count) = 0

__ObjTaken(count) = 1
      exitfunction count

endif

endfunction 0

function FreeCam()

array insert at bottom __CamTaken()
   count = array count( __CamTaken() )

if camera exist(count) = 0 and __CamTaken(count) = 0

__CamTaken(count) = 1
      exitfunction count

endif

endfunction 0

+ Code Snippet

sync on : sync rate 60
autocam off

Dim __ObjTaken(0) as boolean     ` Global array
Dim __CamTaken(0) as boolean     ` Global array

global objnum

objnum = FreeObj()

make object cube objnum,1

objnum = FreeObj()

make object sphere objnum,1

position object objnum,4,1,4

oldcamnum = FreeCam()

do
if camnum=1
setcamtofollow(1)
else
if keystate(44)
if camnum>1
setcamtofollow(camnum)
endif
endif
endif
sync
loop

function setcamtofollow(obj as integer)
set camera to follow object position x(obj),object position y(obj),object position z(obj),0,9,2,40,1
ENDFUNCTION

function FreeObj()

   array insert at bottom __ObjTaken()
   count = array count( __ObjTaken() )

   if object exist(count) = 0 and __ObjTaken(count) = 0

      __ObjTaken(count) = 1
      exitfunction count

   endif

endfunction 0

function FreeCam()

   array insert at bottom __CamTaken()
   count = array count( __CamTaken() )

   if camera exist(count) = 0 and __CamTaken(count) = 0

      __CamTaken(count) = 1
      exitfunction count

   endif

endfunction 0

Thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 19th Jul 2010 15:52

Link

You never set the value of camnum, so it equals 0. You have nothing that tells it what to follow if it is 0.

So many games to code.......so little time.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 15:54 Edited at: 19th Jul 2010 15:56

Link

ok, thanks, now its following.

the problem now is if you hit the z key, nothing happens.

if you hit the z key, the camera should follow the specified object

sync on : sync rate 60
autocam off

Dim __ObjTaken(0) as boolean     ` Global array
Dim __CamTaken(0) as boolean     ` Global array

global objnum

objnum = FreeObj()

make object cube objnum,1

objnum = FreeObj()

make object sphere objnum,1

position object objnum,4,1,4

oldcamnum = FreeCam()

global camnum=1

do
if camnum=1
setcamtofollow(1)
else
if keystate(44)
if camnum>1
setcamtofollow(camnum)
endif
endif
endif
sync
loop

function setcamtofollow(obj as integer)
set camera to follow object position x(obj),object position y(obj),object position z(obj),0,9,2,40,1
ENDFUNCTION

function FreeObj()

array insert at bottom __ObjTaken()
   count = array count( __ObjTaken() )

if object exist(count) = 0 and __ObjTaken(count) = 0

__ObjTaken(count) = 1
      exitfunction count

endif

endfunction 0

function FreeCam()

array insert at bottom __CamTaken()
   count = array count( __CamTaken() )

if camera exist(count) = 0 and __CamTaken(count) = 0

__CamTaken(count) = 1
      exitfunction count

endif

endfunction 0

+ Code Snippet

sync on : sync rate 60
autocam off

Dim __ObjTaken(0) as boolean     ` Global array
Dim __CamTaken(0) as boolean     ` Global array

global objnum

objnum = FreeObj()

make object cube objnum,1

objnum = FreeObj()

make object sphere objnum,1

position object objnum,4,1,4

oldcamnum = FreeCam()

global camnum=1

do
if camnum=1
setcamtofollow(1)
else
if keystate(44)
if camnum>1
setcamtofollow(camnum)
endif
endif
endif
sync
loop

function setcamtofollow(obj as integer)
set camera to follow object position x(obj),object position y(obj),object position z(obj),0,9,2,40,1
ENDFUNCTION

function FreeObj()

   array insert at bottom __ObjTaken()
   count = array count( __ObjTaken() )

   if object exist(count) = 0 and __ObjTaken(count) = 0

      __ObjTaken(count) = 1
      exitfunction count

   endif

endfunction 0

function FreeCam()

   array insert at bottom __CamTaken()
   count = array count( __CamTaken() )

   if camera exist(count) = 0 and __CamTaken(count) = 0

      __CamTaken(count) = 1
      exitfunction count

   endif

endfunction 0

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 19th Jul 2010 16:01

Link

You could make your do-loop like this....should work:

+ Code Snippet

do
  if scancode() = 0 then KeyPressed = 0
  if keystate(44) = 1 and KeyPressed = 0
    inc camnum
    if camnum > 2 then camnum = 1
    KeyPressed = 1
  endif
  setcamtofollow(camnum)
  sync
loop

So many games to code.......so little time.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 16:04 Edited at: 19th Jul 2010 16:06

Link

EDIT:

It doesn't work for more than 2 objects

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 19th Jul 2010 16:08 Edited at: 19th Jul 2010 16:14

Link

You're welcome.

Quote: "It doesn't work for more than 2 objects"

You only created two objects. It would be better to create a global variable for the total number of objects that you want to follow and plug that in at this

+ Code Snippet

if camnum > 2 then camnum = 1

line, so that it reads

+ Code Snippet

if camnum > TotalObj then camnum = 1

(this assumes that you make TotalObj equal to the total number of objects that you want to follow. They will have to be created consecutively since you are getting the next free object from a function.

So many games to code.......so little time.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 16:09

Link

It doesn't work for more than 2 objects

i also need it so that when it reaches the last object, it goes back to the 2nd to last object, then the 1st, etc..

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 16:14

Link

Sorry for the double post but:

PROBLEM SOLVED!

Here it is for all the people that wish to use this code with their games!

+ Code Snippet

do
if object exist(camnum)
  if scancode() = 0 then KeyPressed = 0
  if keystate(44) = 1 and KeyPressed = 0
    inc camnum
    if camnum > objnum
    camnum = 1
    endif
    KeyPressed = 1
  endif
  setcamtofollow(camnum)
endif
text 10,10,"camnum:"+str$(camnum)
  sync
loop

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 19th Jul 2010 16:18

Link

Quote: "PROBLEM SOLVED!"

It does work, however, you would need to create any additional objects (that you want to follow) all at the same time before you create/load any other objects in the game.

So many games to code.......so little time.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 16:24

Link

i made it so only if the object exists, will it activate the camera code.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 19th Jul 2010 16:27

Link

small fix:

+ Code Snippet

global maxnum = 200

do
if object exist(camnum)
if objnum > maxnum
objnum = 1
ENDIF
  if scancode() = 0 then KeyPressed = 0
  if keystate(44) = 1 and KeyPressed = 0
    inc camnum
    if camnum > objnum
    camnum=1
    endif
    KeyPressed = 1
  endif
  setcamtofollow(camnum)
  setcontrols(camnum,upkey(),downkey(),leftkey(),rightkey())
endif
  sync
loop

i made it so if the objnum is > maxnum then reset to 1.

correct?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Camera code not working?