Simple movement code that don't wanna work.

Author

Message

Eric T

23

Years of Service

User Offline

Joined: 7th Apr 2003

Location: My location is where I am at this time.

Posted: 19th Jul 2003 11:23 Edited at: 19th Jul 2003 11:29

Link

Well

I got some movement code that i will be using.

If upkey()=1 and leftkey()=0 and rightkey()=0 then a#=wrapvalue(angle#) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if downkey()=1 and leftkey()=0 and rightkey()=0 then a#=wrapvalue(angle#+180) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and upkey()=0 and downkey()=0 then a#=wrapvalue(angle#-90) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and upkey()=0 and downkey()=0 then a#=wrapvalue(angle#+90) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and upkey()=1 then a#=wrapvalue(angle#-45) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and upkey()=1 then a#=wrapvalue(angle#+45) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and downkey()=1 then a#=wrapvalue(angle#+135) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and downkey()=1 then a#=wrapvalue(angle#-135) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
y#=get ground height(1,x#,z#)+50.0
position object 1,x#,y#,z#
yrotate object 1,wrapvalue(a#+90)

if shiftkey()=1 then inc behind#
if shiftkey()=0 then behind#=0
if behind#>0 and behind#<2 then angle#=wrapvalue(object angle y(1)-90)
camdist#=300 : camhigh#=y#+100.0 : camfade#=3.5

set camera to follow x#,y#,z#,angle#,camdist#,camhigh#,camfade#,1
point camera x#,y#,z#

+ Code Snippet

If upkey()=1 and leftkey()=0 and rightkey()=0 then a#=wrapvalue(angle#) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if downkey()=1 and leftkey()=0 and rightkey()=0 then a#=wrapvalue(angle#+180) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and upkey()=0 and downkey()=0 then a#=wrapvalue(angle#-90) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and upkey()=0 and downkey()=0 then a#=wrapvalue(angle#+90) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and upkey()=1 then a#=wrapvalue(angle#-45) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and upkey()=1 then a#=wrapvalue(angle#+45) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if rightkey()=1 and downkey()=1 then a#=wrapvalue(angle#+135) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if leftkey()=1 and downkey()=1 then a#=wrapvalue(angle#-135) : x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
y#=get ground height(1,x#,z#)+50.0
position object 1,x#,y#,z#
yrotate object 1,wrapvalue(a#+90)

if shiftkey()=1 then inc behind#
if shiftkey()=0 then behind#=0
if behind#>0 and behind#<2 then angle#=wrapvalue(object angle y(1)-90)
camdist#=300 : camhigh#=y#+100.0 : camfade#=3.5


set camera to follow x#,y#,z#,angle#,camdist#,camhigh#,camfade#,1
point camera x#,y#,z#

Well when i use this code in project i am programming, whenever i decide to go in a diagnal movement (i have it programmed) my whole program starts to glitch. I'm not sure if this is PC error or DBP error but i would like to know.

Any help apprecieted.

--Eric

Opinions are like a$$holes, Everybody has one.

Back to top

Profile PM Email Website

Fallout

23

Years of Service

User Offline

Joined: 1st Sep 2002

Location: Basingstoke, England

Posted: 19th Jul 2003 15:39

Link

Just a guess, but with the way you've organised your if(whateverkey) statements, it looks like multiple statements could be true at the same time, which means all your statements would go mental, with some being processed twice etc. My advice to you would be to use a number power section and a case statement, so:

keynumber = 0
if leftkey() = 0 then keynumber=keynumber+1
if upkey() = 0 then keynumber=keynumber+2
if rightkey() = 0 then keynumber=keynumber+4
if downkey() = 0 then keynumber=keynumber+8

Doing this will give you an array of codes that is unique for each key combination.

0 = No keys
1 = Left key
2 = Upkey
3 = Upkey + leftkey
4 = Right key
5 = Right key + left key
6 = Rightkey + upkey
7 = Rightkey + upkey + leftkey
8 = Downkey
9 = Downkey + Leftkey
10 = Downkey + Upkey
11 = Downkey + Upkey + Leftkey
12 = downkey + Right key
13 = Downkey + Rightkey + Leftkey
14 = Downkey + Rightkey + Upkey
15 = Downkey + Rightkey + Upkday + Leftkey

Do a nice case statement with keynumber, with entries for which ever of those combinations you want to do something with. That'll prevent all the multiple runnings. Alternatively, just a complex array of if then else statements would do the job.

Machine: P4 2200, 1GB RAM, GeForce4 64MB, Audigy Platinum
http://www.breakbeat-terrorism.co.uk
(It's not all about the coding)

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th Jul 2003 15:47

Link

When I put your code in place to control a small box in 2D, it all works well.

Here's what I was using - just a few small changes to make the step size easier to change.

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th Jul 2003 15:59

Link

Personally, I prefer a more data-driven way of doing this rather than relying on me to get all the right combinations of 'if' statements right.

I'd do something like this.

Back to top

Profile PM Email Website

Eric T

23

Years of Service

User Offline

Joined: 7th Apr 2003

Location: My location is where I am at this time.

Posted: 20th Jul 2003 01:17

Link

i fixed the problem, it wasn't the , movement code but yet the arena i was using it in(learned that when i was looking at ian m's code for a second) so thanks for the help.

Opinions are like a$$holes, Everybody has one.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Simple movement code that don't wanna work.