Free Flight Command Problems - GameCreators Forum

Author

Message

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 14th Apr 2005 09:54

Link

I have no idea what is wrong. When I use TURN OBJECT LEFT 1,10 or TURN OBJECT RIGHT 1,10, the object only turns 10 degrees left or right of 0 and then doesn't move any more. Here's the code (it's a long code because I'm not sure where the problem is. The place where I'm having problems should be bold.)

`=================
`  MATRIX EDITOR
`=================
`By The SITHSPAWN
`-----------------

`BEGINNING STUFF
SYNC ON
AUTOCAM OFF

`CAMERA STUFF
POSITION CAMERA 0,30,0
SET CAMERA VIEW 0,0,320,240

`SET UP OBJECT TO BASE CAMERA OFF OF
MAKE OBJECT SPHERE 1,0
POSITION OBJECT 1,0,30,0

`MAKE MATRIX
MAKE MATRIX 1,1000,1000,50,50

`DEFINED VARIABLES
CAMVIEWX=320
CAMVIEWY=240

`MAIN LOOP

DO
	
`  MOVING 3D WINDOW
	IF MOUSECLICK()=1 AND MOUSEX()>CAMVIEWX-5 AND MOUSEX()<CAMVIEWX+5 AND MOUSEY()>CAMVIEWY-5 and MOUSEY()<CAMVIEWY+5
		CAMVIEW=1
	ENDIF

IF MOUSECLICK()=1 AND CAMVIEW=1
		CAMVIEWX=MOUSEX()
		CAMVIEWY=MOUSEY()
		IF CAMVIEWX=0 THEN CAMVIEWX=1
		IF CAMVIEWY=0 THEN CAMVIEWY=1
		SET CAMERA VIEW 0,0,CAMVIEWX,CAMVIEWY
	ELSE
		CAMVIEW=0
	ENDIF

`	CAMERA MOVEMENT
	IF MOUSECLICK()=2
		XROTATE OBJECT 1,CAMERA ANGLE X()
		HIDE MOUSE
		GOSUB MLOOK
		CAMAX#=OBJECT ANGLE X(1)
		MOUSESHOW=0
	ELSE
		XROTATE OBJECT 1,0
		CAMAX#=CAMERA ANGLE X()
		IF MOUSESHOW=0
			SHOW MOUSE
			MOUSESHOW=1
		ENDIF
	ENDIF

IF UPKEY()=1 THEN MOVE OBJECT 1,10.0
	IF DOWNKEY()=1 THEN MOVE OBJECT 1,-10.0

IF MOUSESHOW=1
		[b]IF LEFTKEY()=1 THEN TURN OBJECT LEFT 1,10
		IF RIGHTKEY()=1 THEN TURN OBJECT RIGHT 1,10[/b]
	ENDIF

POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
	ROTATE CAMERA CAMAX#,OBJECT ANGLE Y(1), OBJECT ANGLE Z(1)
	
	SET CURSOR 0,0
	PRINT "OBJECT ANGLE X: ",OBJECT ANGLE X(1)
	PRINT "OBJECT ANGLE Y: ",OBJECT ANGLE Y(1)
	PRINT "OBJECT ANGLE Z: ",OBJECT ANGLE Z(1)
	PRINT "CAMERA ANGLE X: ",CAMERA ANGLE X()

SYNC
LOOP

`FREELOOK WHEN RIGHT MOUSE CLICKED
MLOOK:

POSITION MOUSE CAMVIEWX/2,CAMVIEWY/2

MLOOKX#=WRAPVALUE(MLOOKX#+MOUSEMOVEY())
MLOOKY#=WRAPVALUE(MLOOKY#+MOUSEMOVEX())
MLOOKZ#=WRAPVALUE(MLOOKZ#+MOUSEMOVEZ())

IF MLOOKX#>180 AND MLOOKX#<270 THEN MLOOKX#=270
IF MLOOKX#<180 AND MLOOKX#>90 THEN MLOOKX#=90

ROTATE OBJECT 1,MLOOKX#,MLOOKY#,MLOOKZ#

RETURN

+ Code Snippet

`=================
`  MATRIX EDITOR
`=================
`By The SITHSPAWN
`-----------------

`BEGINNING STUFF
SYNC ON
AUTOCAM OFF

`CAMERA STUFF
POSITION CAMERA 0,30,0
SET CAMERA VIEW 0,0,320,240

`SET UP OBJECT TO BASE CAMERA OFF OF
MAKE OBJECT SPHERE 1,0
POSITION OBJECT 1,0,30,0

`MAKE MATRIX
MAKE MATRIX 1,1000,1000,50,50

`DEFINED VARIABLES
CAMVIEWX=320
CAMVIEWY=240

`MAIN LOOP

DO
	
`  MOVING 3D WINDOW
	IF MOUSECLICK()=1 AND MOUSEX()>CAMVIEWX-5 AND MOUSEX()<CAMVIEWX+5 AND MOUSEY()>CAMVIEWY-5 and MOUSEY()<CAMVIEWY+5
		CAMVIEW=1
	ENDIF

	IF MOUSECLICK()=1 AND CAMVIEW=1
		CAMVIEWX=MOUSEX()
		CAMVIEWY=MOUSEY()
		IF CAMVIEWX=0 THEN CAMVIEWX=1
		IF CAMVIEWY=0 THEN CAMVIEWY=1
		SET CAMERA VIEW 0,0,CAMVIEWX,CAMVIEWY
	ELSE
		CAMVIEW=0
	ENDIF

`	CAMERA MOVEMENT
	IF MOUSECLICK()=2
		XROTATE OBJECT 1,CAMERA ANGLE X()
		HIDE MOUSE
		GOSUB MLOOK
		CAMAX#=OBJECT ANGLE X(1)
		MOUSESHOW=0
	ELSE
		XROTATE OBJECT 1,0
		CAMAX#=CAMERA ANGLE X()
		IF MOUSESHOW=0
			SHOW MOUSE
			MOUSESHOW=1
		ENDIF
	ENDIF

	IF UPKEY()=1 THEN MOVE OBJECT 1,10.0
	IF DOWNKEY()=1 THEN MOVE OBJECT 1,-10.0

	IF MOUSESHOW=1
		[b]IF LEFTKEY()=1 THEN TURN OBJECT LEFT 1,10
		IF RIGHTKEY()=1 THEN TURN OBJECT RIGHT 1,10[/b]
	ENDIF

	POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
	ROTATE CAMERA CAMAX#,OBJECT ANGLE Y(1), OBJECT ANGLE Z(1)
	
	SET CURSOR 0,0
	PRINT "OBJECT ANGLE X: ",OBJECT ANGLE X(1)
	PRINT "OBJECT ANGLE Y: ",OBJECT ANGLE Y(1)
	PRINT "OBJECT ANGLE Z: ",OBJECT ANGLE Z(1)
	PRINT "CAMERA ANGLE X: ",CAMERA ANGLE X()

	SYNC
LOOP

`FREELOOK WHEN RIGHT MOUSE CLICKED
MLOOK:

POSITION MOUSE CAMVIEWX/2,CAMVIEWY/2

MLOOKX#=WRAPVALUE(MLOOKX#+MOUSEMOVEY())
MLOOKY#=WRAPVALUE(MLOOKY#+MOUSEMOVEX())
MLOOKZ#=WRAPVALUE(MLOOKZ#+MOUSEMOVEZ())

IF MLOOKX#>180 AND MLOOKX#<270 THEN MLOOKX#=270
IF MLOOKX#<180 AND MLOOKX#>90 THEN MLOOKX#=90

ROTATE OBJECT 1,MLOOKX#,MLOOKY#,MLOOKZ#

RETURN

I would like to have it so it will move left or right ten degrees repetitively from the angle it is at as long as the left arrow or right arrow is pressed down. Any ideas what is causing this problem?

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Robot

20

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 14th Apr 2005 15:53

Link

the turn object left command only turns the object by the number and not any more so once it is turned 10 degrees it won't turn more then 10 degrees.
You probably want something like

+ Code Snippet

IF LEFTKEY()=1
A=A+10
TURN OBJECT LEFT 1,A
B=B+10
IF RIGHTKEY()=1 THEN TURN OBJECT RIGHT 1,B

i could be wrong

The happenings of tommorow are behind us now

Back to top

Profile PM

Relativity

20

Years of Service

User Offline

Joined: 29th Mar 2005

Location: Position is relative.

Posted: 14th Apr 2005 23:14

Link

But I used the same system in this program:

`=================
`   WAVE SPHERE
`=================
`By The SITHSPAWN
`-----------------
HIDE MOUSE
SYNC ON

POSITION CAMERA 0,0,-100
AUTOCAM OFF

FOR Y=1 TO 20
	FOR SPHERE=1 TO 20
		MAKE OBJECT SPHERE (Y*20+SPHERE),15
		POSITION OBJECT (Y*20+SPHERE),0,Y*20,0
		YROTATE OBJECT (Y*20+SPHERE),(SPHERE*360/20)
	NEXT SPHERE
NEXT Y

MAKE OBJECT SPHERE 1000,1

R=RND(255)
G=RND(255)
B=RND(255)
R1=10
B1=10
G1=10

SPEED=1
T=1
SHOT=1
SPEEDF=0
SPEEDS=0
SPEEDU=0
DISTANCE=0

DIM HIT(20,20)
FOR Y=1 TO 20
	FOR SPHERE=1 TO 20
		HIT(Y,SPHERE)=0
	NEXT SPHERE
NEXT Y

DO
	IF R>245 OR B<10 THEN R1=0-R1
	R=R+R1
	IF G>245 OR G<10 THEN G1=0-G1
	G=G+G1
	IF B>245 OR B<10 THEN B1=0-B1
	B=B+B1

FOR Y=1 TO 20
		FOR SPHERE=1 TO 20
			IF HIT(Y,SPHERE)=1 THEN GOTO B
			MOVE OBJECT (Y*20+SPHERE),SPEED
			COLOR OBJECT (Y*20+SPHERE),RGB(R,G,B)
			B:
		NEXT SPHERE
	NEXT Y

IF T=1
		SPEED=SPEED+1
		IF SPEED=10 THEN T=2
		GOTO A
	ENDIF

IF T=2
		SPEED=SPEED-1
		IF SPEED=-10 THEN T=1
		GOTO A
	ENDIF

A:

IF KEYSTATE(17)=1
		SPEEDF=SPEEDF+1
		IF SPEEDF>10 THEN SPEEDF=10
`		MOVE OBJECT 1000,10.0
	ENDIF
	IF KEYSTATE(31)=1
		SPEEDF=SPEEDF-1
		IF SPEEDF<-10 THEN SPEEDF=-10
`		MOVE OBJECT 1000,-10.0
	ENDIF

IF KEYSTATE(72)=1
		PITCH OBJECT UP 1000,5
	ENDIF
	IF KEYSTATE(80)=1
		PITCH OBJECT DOWN 1000,5
	ENDIF

`	IF KEYSTATE(75)=1
	IF LEFTKEY()=1
		TURN OBJECT LEFT 1000,5
	ENDIF
	IF KEYSTATE(77)=1
		TURN OBJECT RIGHT 1000,5
	ENDIF

IF KEYSTATE(71)=1 OR KEYSTATE(16)=1
		ROLL OBJECT LEFT 1000,5
	ENDIF
	IF KEYSTATE(73)=1 OR KEYSTATE(18)=1
		ROLL OBJECT RIGHT 1000,5
	ENDIF

IF KEYSTATE(30)=1
		SPEEDS=SPEEDS+1
		IF SPEEDS>10 THEN SPEEDS=10
`		TURN OBJECT LEFT 1000,90
`		MOVE OBJECT 1000,10
`		TURN OBJECT RIGHT 1000,90
	ENDIF
	IF KEYSTATE(32)=1
		SPEEDS=SPEEDS-1
		IF SPEEDS<-10 THEN SPEEDS=-10
`		TURN OBJECT RIGHT 1000,90
`		MOVE OBJECT 1000,10
`		TURN OBJECT LEFT 1000,90
	ENDIF

IF KEYSTATE(42)=1
		SPEEDU=SPEEDU+1
		IF SPEEDU>10 THEN SPEEDU=10
`		PITCH OBJECT UP 1000,90
`		MOVE OBJECT 1000,10
`		PITCH OBJECT DOWN 1000,90
	ENDIF
	IF KEYSTATE(29)=1
		SPEEDU=SPEEDU-1
		IF SPEEDU<-10 THEN SPEEDU=-10
`		PITCH OBJECT DOWN 1000,90
`		MOVE OBJECT 1000,10
`		PITCH OBJECT UP 1000,90
	ENDIF

MOVE OBJECT 1000,SPEEDF

TURN OBJECT LEFT 1000,90
	MOVE OBJECT 1000,SPEEDS
	TURN OBJECT RIGHT 1000,90

PITCH OBJECT UP 1000,90
	MOVE OBJECT 1000,SPEEDU
	PITCH OBJECT DOWN 1000,90

PITCH OBJECT UP 1000,0-MOUSEMOVEY()
	TURN OBJECT RIGHT 1000,MOUSEMOVEX()

ROTATE CAMERA OBJECT ANGLE X(1000),OBJECT ANGLE Y(1000),OBJECT ANGLE Z(1000)
	POSITION CAMERA OBJECT POSITION X(1000),OBJECT POSITION Y(1000),OBJECT POSITION Z(1000)

SET CURSOR 0,0
	PRINT "CAMERA POSITION X: ",CAMERA POSITION X()
	PRINT "CAMERA POSITION Y: ",CAMERA POSITION Y()
	PRINT "CAMERA POSITION Z: ",CAMERA POSITION Z()
	PRINT "CAMERA ANGLE X: ",CAMERA ANGLE X()
	PRINT "CAMERA ANGLE Y: ",CAMERA ANGLE Y()
	PRINT "CAMERA ANGLE Z: ",CAMERA ANGLE Z()
`	PRINT "OBJECT ANGLE X: ",OBJECT ANGLE X(1000)
`	PRINT "OBJECT ANGLE Y: ",OBJECT ANGLE Y(1000)
`	PRINT "OBJECT ANGLE Z: ",OBJECT ANGLE Z(1000)
	PRINT "FORWARD MOTION: ",SPEEDF	
	PRINT "LATERAL MOTION: ",SPEEDS
	PRINT "VERTICAL MOTION: ",SPEEDU
	PRINT OBJECT EXIST(1001)
	PRINT MOUSECLICK()

OLDMX#=MX#
	OLDMY#=MY#

SYNC
LOOP

+ Code Snippet

`=================
`   WAVE SPHERE
`=================
`By The SITHSPAWN
`-----------------
HIDE MOUSE
SYNC ON

POSITION CAMERA 0,0,-100
AUTOCAM OFF

FOR Y=1 TO 20
	FOR SPHERE=1 TO 20
		MAKE OBJECT SPHERE (Y*20+SPHERE),15
		POSITION OBJECT (Y*20+SPHERE),0,Y*20,0
		YROTATE OBJECT (Y*20+SPHERE),(SPHERE*360/20)
	NEXT SPHERE
NEXT Y

MAKE OBJECT SPHERE 1000,1

R=RND(255)
G=RND(255)
B=RND(255)
R1=10
B1=10
G1=10

SPEED=1
T=1
SHOT=1
SPEEDF=0
SPEEDS=0
SPEEDU=0
DISTANCE=0

DIM HIT(20,20)
FOR Y=1 TO 20
	FOR SPHERE=1 TO 20
		HIT(Y,SPHERE)=0
	NEXT SPHERE
NEXT Y

DO
	IF R>245 OR B<10 THEN R1=0-R1
	R=R+R1
	IF G>245 OR G<10 THEN G1=0-G1
	G=G+G1
	IF B>245 OR B<10 THEN B1=0-B1
	B=B+B1

	FOR Y=1 TO 20
		FOR SPHERE=1 TO 20
			IF HIT(Y,SPHERE)=1 THEN GOTO B
			MOVE OBJECT (Y*20+SPHERE),SPEED
			COLOR OBJECT (Y*20+SPHERE),RGB(R,G,B)
			B:
		NEXT SPHERE
	NEXT Y

	IF T=1
		SPEED=SPEED+1
		IF SPEED=10 THEN T=2
		GOTO A
	ENDIF

	IF T=2
		SPEED=SPEED-1
		IF SPEED=-10 THEN T=1
		GOTO A
	ENDIF

	A:

	IF KEYSTATE(17)=1
		SPEEDF=SPEEDF+1
		IF SPEEDF>10 THEN SPEEDF=10
`		MOVE OBJECT 1000,10.0
	ENDIF
	IF KEYSTATE(31)=1
		SPEEDF=SPEEDF-1
		IF SPEEDF<-10 THEN SPEEDF=-10
`		MOVE OBJECT 1000,-10.0
	ENDIF	

	IF KEYSTATE(72)=1
		PITCH OBJECT UP 1000,5
	ENDIF
	IF KEYSTATE(80)=1
		PITCH OBJECT DOWN 1000,5
	ENDIF

`	IF KEYSTATE(75)=1
	IF LEFTKEY()=1
		TURN OBJECT LEFT 1000,5
	ENDIF
	IF KEYSTATE(77)=1
		TURN OBJECT RIGHT 1000,5
	ENDIF

	IF KEYSTATE(71)=1 OR KEYSTATE(16)=1
		ROLL OBJECT LEFT 1000,5
	ENDIF
	IF KEYSTATE(73)=1 OR KEYSTATE(18)=1
		ROLL OBJECT RIGHT 1000,5
	ENDIF		

	IF KEYSTATE(30)=1
		SPEEDS=SPEEDS+1
		IF SPEEDS>10 THEN SPEEDS=10
`		TURN OBJECT LEFT 1000,90
`		MOVE OBJECT 1000,10
`		TURN OBJECT RIGHT 1000,90
	ENDIF
	IF KEYSTATE(32)=1
		SPEEDS=SPEEDS-1
		IF SPEEDS<-10 THEN SPEEDS=-10
`		TURN OBJECT RIGHT 1000,90
`		MOVE OBJECT 1000,10
`		TURN OBJECT LEFT 1000,90
	ENDIF

	IF KEYSTATE(42)=1
		SPEEDU=SPEEDU+1
		IF SPEEDU>10 THEN SPEEDU=10
`		PITCH OBJECT UP 1000,90
`		MOVE OBJECT 1000,10
`		PITCH OBJECT DOWN 1000,90
	ENDIF
	IF KEYSTATE(29)=1
		SPEEDU=SPEEDU-1
		IF SPEEDU<-10 THEN SPEEDU=-10
`		PITCH OBJECT DOWN 1000,90
`		MOVE OBJECT 1000,10
`		PITCH OBJECT UP 1000,90
	ENDIF

	MOVE OBJECT 1000,SPEEDF

	TURN OBJECT LEFT 1000,90
	MOVE OBJECT 1000,SPEEDS
	TURN OBJECT RIGHT 1000,90

	PITCH OBJECT UP 1000,90
	MOVE OBJECT 1000,SPEEDU
	PITCH OBJECT DOWN 1000,90

	PITCH OBJECT UP 1000,0-MOUSEMOVEY()
	TURN OBJECT RIGHT 1000,MOUSEMOVEX()

	ROTATE CAMERA OBJECT ANGLE X(1000),OBJECT ANGLE Y(1000),OBJECT ANGLE Z(1000)
	POSITION CAMERA OBJECT POSITION X(1000),OBJECT POSITION Y(1000),OBJECT POSITION Z(1000)

	SET CURSOR 0,0
	PRINT "CAMERA POSITION X: ",CAMERA POSITION X()
	PRINT "CAMERA POSITION Y: ",CAMERA POSITION Y()
	PRINT "CAMERA POSITION Z: ",CAMERA POSITION Z()
	PRINT "CAMERA ANGLE X: ",CAMERA ANGLE X()
	PRINT "CAMERA ANGLE Y: ",CAMERA ANGLE Y()
	PRINT "CAMERA ANGLE Z: ",CAMERA ANGLE Z()
`	PRINT "OBJECT ANGLE X: ",OBJECT ANGLE X(1000)
`	PRINT "OBJECT ANGLE Y: ",OBJECT ANGLE Y(1000)
`	PRINT "OBJECT ANGLE Z: ",OBJECT ANGLE Z(1000)
	PRINT "FORWARD MOTION: ",SPEEDF	
	PRINT "LATERAL MOTION: ",SPEEDS
	PRINT "VERTICAL MOTION: ",SPEEDU
	PRINT OBJECT EXIST(1001)
	PRINT MOUSECLICK()

	OLDMX#=MX#
	OLDMY#=MY#

	SYNC
LOOP

And it works fine. What's the difference in the two programs?

"It's against my programming to impersonate a deity!"~C-3P0

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Free Flight Command Problems