Moving an object set distance - GameCreators Forum

Author

Message

Forest

18

Years of Service

User Offline

Joined: 29th May 2006

Location:

Posted: 19th Jun 2006 21:15

Link

I want to move an object a set distance. So far I can move one but it never stops! What is the code to do this? I want the object to move automatically, not when a key is pressed.
I have seen this question in the archives but the answer didnt explain it properly.
So far I have my loop:
Do
Move object 1,1
sync
Loop

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 19th Jun 2006 23:39 Edited at: 19th Jun 2006 23:40

Link

so you want it to move forward and then stop when it has moved a certain distance forward? Well, to put it simply...

if your object is rotated at an angle of 0 on all axis (This is the default setting) and if it is positioned at 0 on the z axis, you could just say...

Do
If Object Position Z(1)<(Distance Away) then Move object 1,1
sync
Loop

And it would stop moving after it got there.

Change the Distance Away to a number.

That's one possible thing. IF you rotate the object, however, things could change. I'm not exactly sure what the easiest code for this would be off of the top of my head, but it would probably involve the newzvalue() and possibly the newxvalue() commands...

Oh well, that's all I have to say.

I doubt you can draw me/60 by hand, so you REALLY can't draw ME/1, can you?

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 19th Jun 2006 23:41

Link

You could put it in a for...next loop

+ Code Snippet

sync on
distance=10
speed#=1

make object sphere 1,10
while returnkey()=0
sync
text 0,0,"Press Enter to continue"
endwhile
cls

for i=1 to distance/speed#
   sync
   move object 1,speed#
next i

print "The sphere moved "+str$(distance)+" units of space"
sync
wait key

or you could use an if test

+ Code Snippet

sync on
currentdistance#=0
distance=10
speed#=1

make object sphere 1,10
while returnkey()=0
sync
text 0,0,"Press Enter to continue"
endwhile
cls

do
sync
if currentdistance#<distance
   move object 1,speed#
   inc currentdistance#,speed#
else
   text 0,0,"The sphere moved "+str$(distance)+" units of space"
endif
loop

or you could use a while loop

+ Code Snippet

sync on
currentdistance#=0
distance=10
speed#=1

make object sphere 1,10
while returnkey()=0
sync
text 0,0,"Press Enter to continue"
endwhile
cls

while currentdistance#<distance
sync
move object 1,speed#
inc currentdistance#,speed#
endwhile

text 0,0,"The sphere moved "+str$(distance)+" units of space"
sync
wait key

Do...Loop is usually used for when you want something to keep happening for a very long time in a program. It is usually used for the main loop of the program.

Insanity is just a state of mind

Back to top

Profile PM Website

Forest

18

Years of Service

User Offline

Joined: 29th May 2006

Location:

Posted: 20th Jun 2006 20:01

Link

Thanks For your help!!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Moving an object set distance