Jiggy Jitter, Problem. - GameCreators Forum

Author

Message

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 29th Apr 2004 17:22 Edited at: 29th Apr 2004 17:23

Link

ok i decided to post this in the newcomers forum becuase even though i consider myself in-between beginner and intermediate this is a "beginner" question

ok i have this code for a FPS that i'm making. this is not all the code just the part that makes it jitter(but it WILL run by it's self)...

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:Program FilesDark Basic SoftwareDark Basic ProfessionalMediaTexturesconcrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1

`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10

global cameray
global camerax

do
update_player(1)
sync
loop

rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20

inc cameray,mousemovex()
   inc camerax,mousemovey()
   yrotate camera 0,cameray
   xrotate camera 0,camerax

if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)

yrotate object id,camera angle y()
   position camera posx,posy+8,posz

endfunction

+ Code Snippet

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:Program FilesDark Basic SoftwareDark Basic ProfessionalMediaTexturesconcrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1



`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10



global cameray
global camerax



do
update_player(1)
sync
loop











rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20

   inc cameray,mousemovex()
   inc camerax,mousemovey()
   yrotate camera 0,cameray
   xrotate camera 0,camerax


   if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

   posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)


   yrotate object id,camera angle y()
   position camera posx,posy+8,posz


endfunction

and when you walk around (WASD+mouse) it "jitters"

BTW this code does the same "jittering" when it's used with a .x level and the "Nuclear Glory.DLL"

note: only media required is a texture for the matrix.

Thanks in advance!

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

zircher

21

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 29th Apr 2004 18:55 Edited at: 29th Apr 2004 18:56

Link

Here's an idea, if you're not hitting a key or moving the mouse, why are you positioning and rotating the camera? Perhaps you have some annoying floating point precision error.

Try this, set a flag to zero and only set it to one when there is mouse movement or a key press. When the flag is set to one, perform your normal camera commands.

No idea if this will cure your problem, but it could not hurt to try.
--
TAZ

Game Beavers

Back to top

Profile PM Email Website

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 29th Apr 2004 19:44

Link

try making the variables posx,posy,posz floats

change:

posx=object position x(id)
posy=object position y(id)
posz=object position z(id)

yrotate object id,camera angle y()
position camera posx,posy+8,posz

to:

posx#=object position x(id)
posy#=object position y(id)
posz#=object position z(id)

yrotate object id,camera angle y()
position camera posx#,posy#+8,posz#

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 29th Apr 2004 20:29

Link

Thanks for the Input!

ok if i do this...(using floats and check)

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1

`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10

global cameray#
global camerax#
global updateneeded

do
update_player(1)
sync
loop

rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20
   updateneeded=0

if mousemovex()>0 or mousemovey()>0 or scancode()=17 or scancode()=30 or scancode()=31 or scancode()=32
      updateneeded=1
   endif

inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#

if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)

yrotate object id,camera angle y()
   position camera posx,posy+8,posz

endfunction

+ Code Snippet

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1



`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10



global cameray#
global camerax#
global updateneeded



do
update_player(1)
sync
loop











rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20
   updateneeded=0

   if mousemovex()>0 or mousemovey()>0 or scancode()=17 or scancode()=30 or scancode()=31 or scancode()=32
      updateneeded=1
   endif


   inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#


   if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

   posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)


   yrotate object id,camera angle y()
   position camera posx,posy+8,posz


endfunction

then the mouse doesn't work...

and if i do this...(floats and different check)

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1

`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10

global cameray#
global camerax#
global updateneeded

do
update_player(1)
sync
loop

rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20
   updateneeded=0

if mousex()>0 or mousey()>0 or scancode()=17 or scancode()=30 or scancode()=31 or scancode()=32
      updateneeded=1
   endif

inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#

if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)

yrotate object id,camera angle y()
   position camera posx,posy+8,posz

endfunction

+ Code Snippet

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1



`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10



global cameray#
global camerax#
global updateneeded



do
update_player(1)
sync
loop











rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20
   updateneeded=0

   if mousex()>0 or mousey()>0 or scancode()=17 or scancode()=30 or scancode()=31 or scancode()=32
      updateneeded=1
   endif


   inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#


   if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

   posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)


   yrotate object id,camera angle y()
   position camera posx,posy+8,posz


endfunction

it runs but still "jitters"

if i do this...(floats and NO check)

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1

`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10

global cameray#
global camerax#

do
update_player(1)
sync
loop

rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20

inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#

if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)

yrotate object id,camera angle y()
   position camera posx,posy+8,posz

endfunction

+ Code Snippet

hide mouse
sync on
sync rate 60

center text screen width()/2,screen height()/2,"Loading..."
sync

load image "C:/Program Files/Dark Basic Software/Dark Basic Professional/Media/Textures/concrete_T.BMP",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1



`make "colission box" for the FPS camera
player=1
make object box player,7,20,7
hide object player
position object player,10,5,10



global cameray#
global camerax#




do
update_player(1)
sync
loop











rem Free-Flight Camera handling function
function Update_player(ID)
   speed=3
   length=20

   inc cameray#,mousemovex()
   inc camerax#,mousemovey()
   yrotate camera 0,cameray#
   xrotate camera 0,camerax#


   if scancode()=17 then move object id,1
   if scancode()=31 then move object id,-1
   if scancode()=30
      oldx=object angle y(id)
      newx=wrapvalue(oldx-90)
      yrotate object id,newx
      move object id,1
      yrotate object id,oldx
   endif
   if scancode()=32
      oldy=object angle y(id)
      newy=wrapvalue(oldy+90)
      yrotate object id,newy
      move object id,1
      yrotate object id,oldy
   endif

   posx=object position x(id)
   posy=object position y(id)
   posz=object position z(id)


   yrotate object id,camera angle y()
   position camera posx,posy+8,posz


endfunction

it does the same as the last one

so it seems that i need either a) a better way to check for the mouse moving... or B) something else

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 29th Apr 2004 21:12

Link

source attatched:

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 29th Apr 2004 22:02

Link

oh...THAT position camera

Thanks Alot!

...(it also works in my .x level

)

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Jiggy Jitter, Problem.