problems with implenting spookys timed movement?

Author

Message

Cliff 3degs network

21

Years of Service

User Offline

Joined: 23rd May 2003

Location: Sweden

Posted: 8th Jun 2005 02:25

Link

i have bin struggeling with this as i dont want an locked sync rate in my game anymore.

but iam getting nowhere so please help me out on this.

the on helping me will get credits for it in the game later on.

this is spookys code sample.

Rem ***** Main Source File *****
sync on : sync rate 0 : autocam off

` make some objects
make matrix 1,1000,1000,50,50
make object sphere 1,50 : position object 1,500,0,600 : set object wireframe 1,1
make object cube 2,40
make object cube 3,10 : position object 3,400,5,700

position camera 500,20,400
x#=0

gosub init_timer

do
   gosub timer_stuff

` player moves 40 units in 1 second and rotates 90 degrees in one second
   control camera using arrowkeys 0,40.0*move#,90.0*move#

` rotate sphere so it rotates 180 degrees in 1 second
   turn object left 1,180.0*move#

` bob cube up and down so it takes 1 second
   x#=wrapvalue(x#+(360.0*move#))
   position object 2,550,50.0*sin(x#),600

` make object chase you at rate of 20 units per second
   point object 3,camera position x(),camera position y(),camera position z()
   xrotate object 3,0
   move object 3,20.0*move#

text 0,20,get time$()
   text 0,0,str$(screen fps())
   sync
loop

init_timer:
` t9 is how often to change speed (in milliseconds)
t1=timer() : t9=1000
return

timer_stuff:
` don't change any of this!
t2=timer() : inc t3
if t2-t1 >= t9
   move#=((t2-t1)/1000.0)/t3 : t1=t2 : t3=0 : t4=1
else
   if t4=0 then move#=((t2-t1)/1000.0)/t3
endif
return

+ Code Snippet

Rem ***** Main Source File *****
sync on : sync rate 0 : autocam off

` make some objects
make matrix 1,1000,1000,50,50
make object sphere 1,50 : position object 1,500,0,600 : set object wireframe 1,1
make object cube 2,40
make object cube 3,10 : position object 3,400,5,700

position camera 500,20,400
x#=0

gosub init_timer

do
   gosub timer_stuff

   ` player moves 40 units in 1 second and rotates 90 degrees in one second
   control camera using arrowkeys 0,40.0*move#,90.0*move#

   ` rotate sphere so it rotates 180 degrees in 1 second
   turn object left 1,180.0*move#

   ` bob cube up and down so it takes 1 second
   x#=wrapvalue(x#+(360.0*move#))
   position object 2,550,50.0*sin(x#),600

   ` make object chase you at rate of 20 units per second
   point object 3,camera position x(),camera position y(),camera position z()
   xrotate object 3,0
   move object 3,20.0*move#

   text 0,20,get time$()
   text 0,0,str$(screen fps())
   sync
loop

init_timer:
` t9 is how often to change speed (in milliseconds)
t1=timer() : t9=1000
return

timer_stuff:
` don't change any of this!
t2=timer() : inc t3
if t2-t1 >= t9
   move#=((t2-t1)/1000.0)/t3 : t1=t2 : t3=0 : t4=1
else
   if t4=0 then move#=((t2-t1)/1000.0)/t3
endif
return

the problem aint in his code its when iam trying to implennt it to my collision code the player figure dosent move at all when using 20.0*move# instead of wspd=4.5 that simply means iam moving him in steps of 4.5 in all directions.

my collision code or rather jopie dopies.

function move_coll(objectnr,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#
`height off walkable object
hgc=14
`walk speed
wspd=4.5
`gravity strength
grs=6
`max jump height
mjh=50.0
`jump duration smaller value longer jump higher value shorter
jdur=8
`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)
mocoll=0
`if 'w' is pressed
if keystate(17)=1
`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,wspd)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
      position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
position object objectnr,x#,y#,z#
mocoll=1
     endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,wspd)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
    position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
 position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
        position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
  position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
 position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
      if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)
`if you are not jumping
if jumping(objectnr) = 0
`gravity
   start_y#(objectnr) = y# - grs
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
play sound 20
`set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + jdur
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object (jump height)
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*mjh,z#
  `if hit..
  if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
if jump_angle#(objectnr)>0 then play sound 21:land=1500
`restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
if spacekey()=0 then jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
`fix weird collison bugg
if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
position object objectnr,x#,y#+0.0000000000000001,z#
if keystate(17)=1 then move object objectnr,-wspd
if keystate(31)=1 then move object objectnr,wspd
if keystate(30)=1 then move object right objectnr,wspd
if keystate(32)=1 then move object left objectnr,wspd
 endif
endfunction

+ Code Snippet

function move_coll(objectnr,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#
`height off walkable object
hgc=14
`walk speed
wspd=4.5
`gravity strength
grs=6
`max jump height
mjh=50.0
`jump duration smaller value longer jump higher value shorter
jdur=8
`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)
mocoll=0
`if 'w' is pressed
if keystate(17)=1
`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,wspd)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
      position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
position object objectnr,x#,y#,z#
mocoll=1
     endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,wspd)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
    position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
 position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
        position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
  position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
 position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
      if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,wspd)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,wspd)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
 position object objectnr,newx#,newy#+hgc,newz#
mocoll=1
       if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
       `put the object back
        position object objectnr,x#,y#,z#
mocoll=1
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)
`if you are not jumping
if jumping(objectnr) = 0
`gravity
   start_y#(objectnr) = y# - grs
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
play sound 20
`set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + jdur
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object (jump height)
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*mjh,z#
  `if hit..
  if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
if jump_angle#(objectnr)>0 then play sound 21:land=1500
`restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
if spacekey()=0 then jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
`fix weird collison bugg
if object collision(objectnr,coll)>0 and object collision(objectnr,coll)<415
position object objectnr,x#,y#+0.0000000000000001,z#
if keystate(17)=1 then move object objectnr,-wspd
if keystate(31)=1 then move object objectnr,wspd
if keystate(30)=1 then move object right objectnr,wspd
if keystate(32)=1 then move object left objectnr,wspd
 endif
endfunction

i yust dont know where the problem is?

AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).

Back to top

Profile PM Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 8th Jun 2005 07:11

Link

First off, wspd looks like an integer variable to me, so it can't hold fractional values, unless you have defined it as a float variable somewhere else. If not change it to wspd#

also, as all your collision stuff is in a function, it can not know about move# and will default to 0, and so either pass it as a parameter with your other two variables, or define it as a global variable.

Back to top

Profile PM Website

Cliff 3degs network

21

Years of Service

User Offline

Joined: 23rd May 2003

Location: Sweden

Posted: 9th Jun 2005 05:24

Link

thanks spooky it worked only crappy thing is to go thru 2500 lines of code to adjust the speed for every object ingame.

i set move# to gloabal but have one question is it neaded to terminate that command somehow and when?
i did t know this?

---------------------------
First off, wspd looks like an integer variable to me, so it can't hold fractional values, unless you have defined it as a float variable somewhere else. If not change it to wspd#
--------------------------
but heck iam not really an programmer yust an happy wannabe.

the game currently runs betwen 45 and 56 fps thats really good compared to have it locked at 30 before.

screenie included but sadly when i snatched it it lowered to only 40 fps.

AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).

Attachments

Login to view attachments

Back to top

Profile PM Website

Cliff 3degs network

21

Years of Service

User Offline

Joined: 23rd May 2003

Location: Sweden

Posted: 9th Jun 2005 05:48

Link

yust one more thing spooky do you know how i could use this time stuff when decreasing an value to with the dec command?
i want the value aan to lower it self acording to the movement speed iam using this when animating my player objects plain so that it looks like he walks.

dec aan

AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).

Back to top

Profile PM Website

Cliff 3degs network

21

Years of Service

User Offline

Joined: 23rd May 2003

Location: Sweden

Posted: 9th Jun 2005 06:56

Link

i fixed it now it was this simple task again you spoke about float or integer values.

i dont know crapp about anything like this but i have an book called c and c++ for dummies and found some explanations about everything as i noticed that dbp uses some of the same symbols and stuff.

this is what happens when an gfx artist decides to start programming and dosent now jack of it.
and i have bin using dbp now for over a year

thsi solved it

-------------------------------------------
dec aan#,50.0*move#
if aan#=0 or aan#<0 then aan#=28`--------walk animation
if aan#>21 and aan#<28 then ania=411
if aan#>14 and aan#<21 then ania=412
if aan#>7 and aan#<14 then ania=413
if aan#>0 and aan#<7 then ania=414

AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).

Back to top

Profile PM Website

Cliff 3degs network

21

Years of Service

User Offline

Joined: 23rd May 2003

Location: Sweden

Posted: 9th Jun 2005 06:57

Link

do you know a good place to get simple explaining about stuff like this.

AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).

Back to top

Profile PM Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 9th Jun 2005 09:07

Link

Nope.

Simple really.

Integers are whole numbers, like 1, 2, 456, etc and are denoted in db as simple named variables like a, b, c

Floats are fractional value, like 1.2, 678.543 and are denoted in db as variables followed by #, like a#, b#, c#

The thing to be careful of is doing things like:

a=123.456

because a can only hold integer values it will lose the .456 bit and just hold 123

The other thing to look out for is assigning integers to float variables, like:

a=1
b=2
c#=a/b

you would thing a# would then hold 0.5 but you would be wrong. Because all arguments are integers then result is also an integer, so answer is 0 - to gget around this problem you have to introduce a float into equation, like c#=(a+0.00)/b or c#=a*1.0/b

Hope that lot confused you!

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / problems with implenting spookys timed movement?

Attachments