Strafing problem - GameCreators Forum

Author

Message

MechaShadow

21

Years of Service

User Offline

Joined: 25th Oct 2002

Location:

Posted: 29th Jun 2003 03:26 Edited at: 29th Jun 2003 03:27

Link

I followed the tutorial on the main site and when I try and add strafing to my engine it wont move. It does the turn left/right method of movement ok though.

Rem Setup sync
Sync On
Sync Rate 30

Rem Make Cubes and place randomly
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
Next x

Rem Make sphere
Make object sphere 10,50

Rem Main loop
Do

Rem Store Object angle Y in aY#
aY# = Object angle Y(10)

Rem Control input for camera
If Upkey()=1 then Move object 10,10
If Leftkey()=1
XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

If Rightkey()=1
XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)

Rem position camera
Position Camera cX#,100,cZ#

Rem point the camera at the player object
Point camera X#,50,Z#

Rem Refresh Screen

Sync

Loop

+ Code Snippet

Rem Setup sync
Sync On
Sync Rate 30

Rem Make Cubes and place randomly
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
Next x

Rem Make sphere
Make object sphere 10,50

Rem Main loop
Do

Rem Store Object angle Y in aY#
aY# = Object angle Y(10)

Rem Control input for camera
If Upkey()=1 then Move object 10,10
If Leftkey()=1
XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

If Rightkey()=1
XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)

Rem position camera
Position Camera cX#,100,cZ#

Rem point the camera at the player object
Point camera X#,50,Z#

Rem Refresh Screen

Sync

Loop

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 29th Jun 2003 13:17

Link

here you go, this combines 3rd person strafing and mouselook

Rem Setup sync
Sync On
Sync Rate 30
Hide mouse

Rem Make Cubes and place randomly
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
Next x

Rem Make sphere
Make object sphere 10,50

Rem Main loop
Do

Rem Yrotate camera according to mouse nmovement along the X axis 
aY# = aY#+mousemovex()
yrotate camera wrapvalue(aY#)

Rem Controls
If Upkey()=1 
rem find the new x+z values to move to
newx#=newxvalue(x#,wrapvalue(aY#),10)
newz#=newzvalue(z#,wrapvalue(aY#),10)
x#=newx#
z#=newz#
endif

If downkey()=1 
newx#=newxvalue(x#,wrapvalue(aY#-180),10)
newz#=newzvalue(z#,wrapvalue(aY#-180),10)
x#=newx#
z#=newz#
endif

If Leftkey()=1
newx#=newxvalue(x#,wrapvalue(aY#-90),10)
newz#=newzvalue(z#,wrapvalue(aY#-90),10)
x#=newx#
z#=newz#
Endif

If Rightkey()=1
newx#=newxvalue(x#,wrapvalue(aY#+90),10)
newz#=newzvalue(z#,wrapvalue(aY#+90),10)
x#=newx#
z#=newz#
Endif

Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)

Rem position camera
Position Camera cX#,100,cZ#

Rem point the camera at the player object
Point camera X#,50,Z#

rem Position player object
Position object 10,x#,y#,z#

Rem Refresh Screen
Sync

Loop

+ Code Snippet

Rem Setup sync
Sync On
Sync Rate 30
Hide mouse

Rem Make Cubes and place randomly
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
Next x

Rem Make sphere
Make object sphere 10,50

Rem Main loop
Do

Rem Yrotate camera according to mouse nmovement along the X axis 
aY# = aY#+mousemovex()
yrotate camera wrapvalue(aY#)

Rem Controls
If Upkey()=1 
rem find the new x+z values to move to
newx#=newxvalue(x#,wrapvalue(aY#),10)
newz#=newzvalue(z#,wrapvalue(aY#),10)
x#=newx#
z#=newz#
endif

If downkey()=1 
newx#=newxvalue(x#,wrapvalue(aY#-180),10)
newz#=newzvalue(z#,wrapvalue(aY#-180),10)
x#=newx#
z#=newz#
endif


If Leftkey()=1
newx#=newxvalue(x#,wrapvalue(aY#-90),10)
newz#=newzvalue(z#,wrapvalue(aY#-90),10)
x#=newx#
z#=newz#
Endif

If Rightkey()=1
newx#=newxvalue(x#,wrapvalue(aY#+90),10)
newz#=newzvalue(z#,wrapvalue(aY#+90),10)
x#=newx#
z#=newz#
Endif


Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)

Rem position camera
Position Camera cX#,100,cZ#

Rem point the camera at the player object
Point camera X#,50,Z#

rem Position player object
Position object 10,x#,y#,z#

Rem Refresh Screen
Sync

Loop

hi guys

Back to top

Profile PM Email Website

MechaShadow

21

Years of Service

User Offline

Joined: 25th Oct 2002

Location:

Posted: 29th Jun 2003 17:05

Link

Thanks, I will revive this thread if I need any more help unless that is against the rules?

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 29th Jun 2003 20:14

Link

nope just keep asking here, its probably better to ask all your q's in one thread than post lots any way!

hi guys

Back to top

Profile PM Email Website

MechaShadow

21

Years of Service

User Offline

Joined: 25th Oct 2002

Location:

Posted: 29th Jun 2003 22:25

Link

OK, I have read the tutorials on the main site and I don't think thier method of collision detection works with this engine. Do I have to do it differently when I'm using a strafing type of engine

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 29th Jun 2003 22:30

Link

just using the object collision commands should work
at the beginning of your loop you need variables called oldx,oldz these have to equal the current x and z so:

oldx#=x#
oldz#=z#

then nearer the bottom of the loop put

if object collision(10,0)
x#=oldx#
z#=oldz#
endif

hope that helps

hi guys

Back to top

Profile PM Email Website

Sorry your browser is not supported!

3 Dimensional Chat / Strafing problem