Problem; cube wont move - GameCreators Forum

Author

Message

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 31st May 2004 00:37

Link

I decided to try add friction to my game. The cube is supposed to move but doesnt. It works in the way that i take the speed and ad the acceleration, takes the result and multiplie it with the friction value. I dont know where to error lies but this is the entire move subroutine:

move:
   rem store player heading
   playerA#=object angle Y(1)

rem sort out movement and check for falloff
   if upkey()=1 or downkey()=1
      testX#=newxvalue(playerX#, playerA#, 30)
      testZ#=newzvalue(playerZ#, playerA#, 30)
      if testX#<worldsize and testX#>0 and testZ#<worldsize and testZ#>0
         if upkey()=1 then speed#=(speed#+acc#)*friction
         if downkey()=1 then speed#=(speed#-acc#)*friction
         else speed#=speed#*friction
      endif
   endif

rem move it with the calculated speed
   move object 1,speed#

rem turn it
   if rightkey()=1 then playerA#=playerA#+turnspeed#
   if leftkey()=1 then playerA#=playerA#-turnspeed#

rem get the new position
   playerX#=object position x(1)
   playerZ#=object position z(1)
   playerY#=get ground height(1,playerX#,playerZ#)

rem and place it there, increase the Y coord so it isnt half burried
   position object 1,playerX#,playerY#+5.0,playerZ#

rem place the camera according to the players position
   camX#=newxvalue(playerX#,playerA#-180,100)
   camZ#=newzvalue(playerZ#,playerA#-180,100)
   camY#=get ground height(1,camX#,camZ#)

rem do the actual placement
   position camera camX#,camY#+50,camZ#
   point camera playerX#,playerY#+25,playerZ#
return

+ Code Snippet

move:
   rem store player heading
   playerA#=object angle Y(1)

   rem sort out movement and check for falloff
   if upkey()=1 or downkey()=1
      testX#=newxvalue(playerX#, playerA#, 30)
      testZ#=newzvalue(playerZ#, playerA#, 30)
      if testX#<worldsize and testX#>0 and testZ#<worldsize and testZ#>0
         if upkey()=1 then speed#=(speed#+acc#)*friction
         if downkey()=1 then speed#=(speed#-acc#)*friction
         else speed#=speed#*friction
      endif
   endif

   rem move it with the calculated speed
   move object 1,speed#

   rem turn it
   if rightkey()=1 then playerA#=playerA#+turnspeed#
   if leftkey()=1 then playerA#=playerA#-turnspeed#

   rem get the new position
   playerX#=object position x(1)
   playerZ#=object position z(1)
   playerY#=get ground height(1,playerX#,playerZ#)

   rem and place it there, increase the Y coord so it isnt half burried
   position object 1,playerX#,playerY#+5.0,playerZ#

   rem place the camera according to the players position
   camX#=newxvalue(playerX#,playerA#-180,100)
   camZ#=newzvalue(playerZ#,playerA#-180,100)
   camY#=get ground height(1,camX#,camZ#)

   rem do the actual placement
   position camera camX#,camY#+50,camZ#
   point camera playerX#,playerY#+25,playerZ#
return

The entire source is attached as well if you want to try it out yourself.

Thanks in advance
Mizi

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 31st May 2004 00:45

Link

Hehe ok... Im silly

but i figured it out, i simply forgot to add the # behind the friction variable name.

However, another problem arose. Once the cube starts to move it doesnt stop... i got no friction whatsoever! I dont know what Ive missed this time. Please help out.

Anyways... heres the new source with the acceleration and friction i use:

Rem Project: hydralisk
Rem Created: 2004-05-30 00:47:47

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

rem setup
sync on
sync rate 30
rem set window on
rem set window position 150,75
autocam off

rem variables
worldsize=5000
turnspeed#=3.0
speed#=0.0
friction#=0.85
acc#=0.20

rem make matrix
make matrix 1,worldsize,worldsize,50,50

load image "grass.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

randomize matrix 1,100
update matrix 1

rem make fog
fog on
backdrop on
set camera range 1,2500
fog distance 1500
fog color RGB(192,192,192)
color backdrop RGB(0,128,255)

rem make temp player character
make object cube 1,10
position object 1,2500,100,2500

remstart
load object "rhino.3ds",2
position object 2,2600,100,2600
size=30
scale object 2,size,size,size
glue object to limb 2,1,0
remend

playerX#=object position x(1)
playerZ#=object position z(1)
playerY#=get ground height(1,playerX#,playerZ#)

rem MAIN LOOP
DO

gosub move
   gosub tilt

rem refresh screen
   sync

LOOP

move:
   rem store player heading
   playerA#=object angle Y(1)

rem sort out movement and check for falloff
   if upkey()=1 or downkey()=1
      testX#=newxvalue(playerX#, playerA#, 30)
      testZ#=newzvalue(playerZ#, playerA#, 30)
      if testX#<worldsize and testX#>0 and testZ#<worldsize and testZ#>0
         if upkey()=1 then speed#=(speed#+acc#)*friction#
         if downkey()=1 then speed#=(speed#-acc#)*friction#
         else speed#=speed#*friction
      endif
   endif

rem move it with the calculated speed
   move object 1,speed#

rem turn it
   if rightkey()=1 then playerA#=playerA#+turnspeed#
   if leftkey()=1 then playerA#=playerA#-turnspeed#

rem get the new position
   playerX#=object position x(1)
   playerZ#=object position z(1)
   playerY#=get ground height(1,playerX#,playerZ#)

rem and place it there, increase the Y coord so it isnt half burried
   position object 1,playerX#,playerY#+5.0,playerZ#

rem place the camera according to the players position
   camX#=newxvalue(playerX#,playerA#-180,100)
   camZ#=newzvalue(playerZ#,playerA#-180,100)
   camY#=get ground height(1,camX#,camZ#)

rem do the actual placement
   position camera camX#,camY#+50,camZ#
   point camera playerX#,playerY#+25,playerZ#
return

tilt:
   rem how for around the vehicle to check
   checkrange=1

rem check the height in a square around the vehicle
   a#=playerA#
      frontX#=newxvalue(playerX#,a#,checkrange)
      frontZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#+180
      backX#=newxvalue(playerX#,a#,checkrange)
      backZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#+90
      leftX#=newxvalue(playerX#,a#,checkrange)
      leftZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#-90
      rightX#=newxvalue(playerX#,a#,checkrange)
      rightZ#=newzvalue(playerZ#,a#,checkrange)

rem work out the tilt value based on the heights gotten above
   frontheight#=get ground height(1,frontX#,frontZ#)
   backheight#=get ground height(1,backX#,backZ#)
   leftheight#=get ground height(1,leftX#,leftZ#)
   rightheight#=get ground height(1,rightX#,rightZ#)

rem work out how much to tilt the vehicle
   xA#=wrapvalue((backHeight#-frontHeight#)*20)
   zA#=wrapvalue((leftHeight#-rightHeight#)*20)

rem smooth it a bit
   xA#=curveangle((backHeight#-frontHeight#)*30,object angle x(1),5)
   zA#=curveangle((leftHeight#-rightHeight#)*30,object angle z(1),5)

rem ...and tilt it!
   rotate object 1,xA#,playerA#,zA#
return

+ Code Snippet

Rem Project: hydralisk
Rem Created: 2004-05-30 00:47:47

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

rem setup
sync on
sync rate 30
rem set window on
rem set window position 150,75
autocam off

rem variables
worldsize=5000
turnspeed#=3.0
speed#=0.0
friction#=0.85
acc#=0.20

rem make matrix
make matrix 1,worldsize,worldsize,50,50

load image "grass.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

randomize matrix 1,100
update matrix 1

rem make fog
fog on
backdrop on
set camera range 1,2500
fog distance 1500
fog color RGB(192,192,192)
color backdrop RGB(0,128,255)


rem make temp player character
make object cube 1,10
position object 1,2500,100,2500

remstart
load object "rhino.3ds",2
position object 2,2600,100,2600
size=30
scale object 2,size,size,size
glue object to limb 2,1,0
remend

playerX#=object position x(1)
playerZ#=object position z(1)
playerY#=get ground height(1,playerX#,playerZ#)

rem MAIN LOOP
DO

   gosub move
   gosub tilt

   rem refresh screen
   sync

LOOP

move:
   rem store player heading
   playerA#=object angle Y(1)

   rem sort out movement and check for falloff
   if upkey()=1 or downkey()=1
      testX#=newxvalue(playerX#, playerA#, 30)
      testZ#=newzvalue(playerZ#, playerA#, 30)
      if testX#<worldsize and testX#>0 and testZ#<worldsize and testZ#>0
         if upkey()=1 then speed#=(speed#+acc#)*friction#
         if downkey()=1 then speed#=(speed#-acc#)*friction#
         else speed#=speed#*friction
      endif
   endif

   rem move it with the calculated speed
   move object 1,speed#

   rem turn it
   if rightkey()=1 then playerA#=playerA#+turnspeed#
   if leftkey()=1 then playerA#=playerA#-turnspeed#

   rem get the new position
   playerX#=object position x(1)
   playerZ#=object position z(1)
   playerY#=get ground height(1,playerX#,playerZ#)

   rem and place it there, increase the Y coord so it isnt half burried
   position object 1,playerX#,playerY#+5.0,playerZ#

   rem place the camera according to the players position
   camX#=newxvalue(playerX#,playerA#-180,100)
   camZ#=newzvalue(playerZ#,playerA#-180,100)
   camY#=get ground height(1,camX#,camZ#)

   rem do the actual placement
   position camera camX#,camY#+50,camZ#
   point camera playerX#,playerY#+25,playerZ#
return

tilt:
   rem how for around the vehicle to check
   checkrange=1

   rem check the height in a square around the vehicle
   a#=playerA#
      frontX#=newxvalue(playerX#,a#,checkrange)
      frontZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#+180
      backX#=newxvalue(playerX#,a#,checkrange)
      backZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#+90
      leftX#=newxvalue(playerX#,a#,checkrange)
      leftZ#=newzvalue(playerZ#,a#,checkrange)
   a#=playerA#-90
      rightX#=newxvalue(playerX#,a#,checkrange)
      rightZ#=newzvalue(playerZ#,a#,checkrange)

   rem work out the tilt value based on the heights gotten above
   frontheight#=get ground height(1,frontX#,frontZ#)
   backheight#=get ground height(1,backX#,backZ#)
   leftheight#=get ground height(1,leftX#,leftZ#)
   rightheight#=get ground height(1,rightX#,rightZ#)

   rem work out how much to tilt the vehicle
   xA#=wrapvalue((backHeight#-frontHeight#)*20)
   zA#=wrapvalue((leftHeight#-rightHeight#)*20)

   rem smooth it a bit
   xA#=curveangle((backHeight#-frontHeight#)*30,object angle x(1),5)
   zA#=curveangle((leftHeight#-rightHeight#)*30,object angle z(1),5)

   rem ...and tilt it!
   rotate object 1,xA#,playerA#,zA#
return

Thanks in advance

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

GameKit

21

Years of Service

User Offline

Joined: 6th Mar 2003

Location: USA, Staring Blankly at a Computer

Posted: 31st May 2004 08:44 Edited at: 31st May 2004 08:47

Link

I only skimmed over your code, but this was the only thing I noticed...

rem sort out movement and check for falloff
if upkey()=1 or downkey()=1
if upkey()=1 then speed#=(speed#+acc#)*friction#
if downkey()=1 then speed#=(speed#-acc#)*friction#
else speed#=speed#*friction
endif
endif

Add the "#" after friction in this line of code also... Right now you are telling the program to set speed# to 0...

[edit]
oh, and also move that code down a line so it reads...

if upkey()=1 or downkey()=1
....
if upkey()=1 then speed#=(speed#+acc#)*friction#
if downkey()=1 then speed#=(speed#-acc#)*friction#
endif
else speed#=speed#*friction#
endif

Well... I hope I helped...

Previously known as "Game_Creator".
The question is, why am I talking to myself? ...... And more importantly, why am I waiting for a reply?

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 31st May 2004 09:33 Edited at: 31st May 2004 09:34

Link

Thanks... the # is added now but the cube behave a bit strange. Once you press the upkey it starts moving forward at a certain speed. It doesnt slow down to a halt if you realese the upkey, as intended by the friction. And you cant go faster by holding down to upkey, as intended by the acceleration value.

Heres the code as it is now, run it yourself and youll see what i mean.

Rem Project: hydralisk
Rem Created: 2004-05-30 00:47:47

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

rem setup
sync on
sync rate 60
rem un-rem to have window mode
rem set window on
rem set window position 150,75
autocam off

rem variables
worldsize=5000
turnspeed#=3.0
speed#=0.0
friction#=0.85
acc#=0.20

rem make matrix
make matrix 1,worldsize,worldsize,50,50

load image "grass.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

randomize matrix 1,100
update matrix 1

rem make fog
fog on
backdrop on
set camera range 1,2500
fog distance 1500
fog color RGB(192,192,192)
color backdrop RGB(0,128,255)

rem make temp player character
make object cube 1,10
position object 1,2500,100,2500

remstart ...problem: it wont load :(
load object "rhino.3ds",2
position object 2,2600,100,2600
size=30
scale object 2,size,size,size
glue object to limb 2,1,0
remend

playerX#=object position x(1)
playerZ#=object position z(1)
playerY#=get ground height(1,playerX#,playerZ#)

rem MAIN LOOP
DO

gosub move
   gosub tilt

rem refresh screen
   sync

LOOP

move:
   rem store player heading
   playerA#=object angle Y(1)

rem sort out movement and check for falloff
   if upkey()=1 or downkey()=1
      testX#=newxvalue(playerX#, playerA#, 30)
      testZ#=newzvalue(playerZ#, playerA#, 30)
      if testX#<worldsize and testX#>0 and testZ#<worldsize and testZ#>0
         if upkey()=1 then speed#=(speed#+acc#)*friction#
         if downkey()=1 then speed#=(speed#-acc#)*friction#
         rem if upkey()=0 and downkey()=0 then speed#=speed#*friction#
         else speed#=speed#*friction#
      endif
   endif