What am I doing wrong? - GameCreators Forum

Author

Message

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 3rd Nov 2010 17:40

Link

I have been trying to code a simple game and I've been having problems bounding the player box within a matrix. I have tried setting up some walls, turning on their collision and hiding them from view as a simple solution but my collision doesn't seem to work. When my player box collides with other objects it works fine, its just the boundary walls that seem to have a problem. What am I doing wrong?

//create the sync setup and that kind of stuff.
sync on
sync rate 30
hide mouse

//make a 3D box and some other 3D stuff

//Make Player
make object box 1,5,5,5
color object 1, RGB(255,255,255)
SET OBJECT COLLISION ON 1

//Make matrix
make matrix 1,500,500,20,20
position matrix 1,-11,-11,-10

//Boundaries
make object box 3, 2,20,300 : position object 3, 490, 0, 240
SET OBJECT COLLISION ON 3
Hide Object 3

make object box 4, 300,20,2 : position object 4, 240, 0, -11
SET OBJECT COLLISION ON 4
Hide Object 4

make object box 5, 300,20,2 : position object 5, 239, 0, 490
SET OBJECT COLLISION ON 5
Hide Object 5

make object box 6, 2,20,300 : position object 6, -12, 0, 240
SET OBJECT COLLISION ON 6
Hide Object 6

//Make collectables
for x= 7 to 80
make object sphere x,5
color object x, RGB(255,0,0)
position object x, RND(480),RND(-11),RND(480)
next x

for x= 81 to 115
make object sphere x,6
color object x, RGB(255,255,0)
position object x, RND(480),RND(-11),RND(480)
next x
//make the timer variable.
Timer#=3600

//Main Loop
do

//This is the timer system
Timer#=Timer#-1
If Timer#=<0 then end

//Print score
set cursor 5,5
Print score#

//Delete collectables as appropriate
For x=7 to 80
   If object exist(x)=1
If object collision(1,x)=1 then delete object x: score#=score#+1

endif
Next x

For x=81 to 115
   If object exist(x)=1
If object collision(1,x)=1 then delete object x: score#=score#-1

endif
Next x

//Matrix Boundaries 
playerX# = OBJECT POSITION X(1)
playerY# = OBJECT POSITION Y(1)
playerZ# = OBJECT POSITION Z(1)

for t = 3 to 6
IF OBJECT COLLISION(1,t) THEN POSITION OBJECT 1, playerX#,playerY#,playerZ#
next t

if score#=>1
color object 1, rgb(0,0,0)
endif

if score#=>10
color object 1, rgb(50,0,0)
endif

if score#=>20
color object 1, rgb(255,0,0)
endif

if score#=>30
color object 1, rgb(0,255,0)
endif

if score#=>40
color object 1, rgb(0,0,255)
endif

if score#=>50
color object 1, rgb(255,255,0)
endif

if score#=>60
color object 1, rgb(255,255,255)
endif

if score#=>70
color object 1, rgb(0,255,255)
endif

if score#=>80
color object 1, rgb(255,20,200)
endif

//Winning Condition
if score#=>80
do
set cursor screen width()/2,screen height()/2
set text size 35
set text font "times new roman"
text 300,250, "WELL DONE"
end#=end#+1
if end#=>100 then end
sync
loop
endif

//Control System
if upkey()= 1 then move object 1,4
if downkey()=1 then move object 1,-4
if leftkey() = 1 then turn object left 1,3
if rightkey() = 1 then turn object right 1,3

//Use camera tracker to follow player object

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 30, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

print Timer#
sync
loop

+ Code Snippet

//create the sync setup and that kind of stuff.
sync on
sync rate 30
hide mouse


//make a 3D box and some other 3D stuff

//Make Player
make object box 1,5,5,5
color object 1, RGB(255,255,255)
SET OBJECT COLLISION ON 1

//Make matrix
make matrix 1,500,500,20,20
position matrix 1,-11,-11,-10

//Boundaries
make object box 3, 2,20,300 : position object 3, 490, 0, 240
SET OBJECT COLLISION ON 3
Hide Object 3

make object box 4, 300,20,2 : position object 4, 240, 0, -11
SET OBJECT COLLISION ON 4
Hide Object 4

make object box 5, 300,20,2 : position object 5, 239, 0, 490
SET OBJECT COLLISION ON 5
Hide Object 5

make object box 6, 2,20,300 : position object 6, -12, 0, 240
SET OBJECT COLLISION ON 6
Hide Object 6

//Make collectables
for x= 7 to 80
make object sphere x,5
color object x, RGB(255,0,0)
position object x, RND(480),RND(-11),RND(480)
next x

for x= 81 to 115
make object sphere x,6
color object x, RGB(255,255,0)
position object x, RND(480),RND(-11),RND(480)
next x
//make the timer variable.
Timer#=3600



//Main Loop
do

//This is the timer system
Timer#=Timer#-1
If Timer#=<0 then end



//Print score
set cursor 5,5
Print score#

//Delete collectables as appropriate
For x=7 to 80
   If object exist(x)=1
If object collision(1,x)=1 then delete object x: score#=score#+1

endif
Next x

For x=81 to 115
   If object exist(x)=1
If object collision(1,x)=1 then delete object x: score#=score#-1

endif
Next x

//Matrix Boundaries 
playerX# = OBJECT POSITION X(1)
playerY# = OBJECT POSITION Y(1)
playerZ# = OBJECT POSITION Z(1)

for t = 3 to 6
IF OBJECT COLLISION(1,t) THEN POSITION OBJECT 1, playerX#,playerY#,playerZ#
next t 

if score#=>1
color object 1, rgb(0,0,0)
endif

if score#=>10
color object 1, rgb(50,0,0)
endif

if score#=>20
color object 1, rgb(255,0,0)
endif

if score#=>30
color object 1, rgb(0,255,0)
endif

if score#=>40
color object 1, rgb(0,0,255)
endif

if score#=>50
color object 1, rgb(255,255,0)
endif

if score#=>60
color object 1, rgb(255,255,255)
endif

if score#=>70
color object 1, rgb(0,255,255)
endif

if score#=>80
color object 1, rgb(255,20,200)
endif

//Winning Condition
if score#=>80
do
set cursor screen width()/2,screen height()/2
set text size 35
set text font "times new roman"
text 300,250, "WELL DONE"
end#=end#+1
if end#=>100 then end
sync
loop
endif


//Control System
if upkey()= 1 then move object 1,4
if downkey()=1 then move object 1,-4
if leftkey() = 1 then turn object left 1,3
if rightkey() = 1 then turn object right 1,3



//Use camera tracker to follow player object

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 30, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)


print Timer#
sync
loop

I am also trying to get the camera to rotate along with the player box orientation, but it doesn't work very well. Anyone got any suggestions for me regarding that? Any help would be much appreciated.

Thanks!

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 3rd Nov 2010 23:53

Link

Hi gormee.

I've had a look at your code and figured out that your boundary collision problem is due to the order in which you're doing things. Your current program goes:

1: save old coordinate
2: check collision (move object back to old coordinates if collision is true)
3: player moves object

The order should go:

1: save old coordinates
2: move object
3: check collions (move object back to old coordinates if collision is true)

I also noticed that your walls are too short (your matrix is 500 x 500 units and your walls are only 300 units long).

The camera following the object I believe is a bug so you need to save the object angle to a variable first and then use that in "set camera to follow" cammand.

I have updated your code below.

//create the sync setup and that kind of stuff.
sync on
sync rate 30
hide mouse

//make a 3D box and some other 3D stuff

//Make Player
make object box 1,5,5,5
color object 1, RGB(255,255,255)
SET OBJECT COLLISION ON 1

//Make matrix
make matrix 1,500,500,20,20
position matrix 1,-11,-11,-10

//Boundaries
make object box 3, 2,20,500 : position object 3, 490, 0, 240
SET OBJECT COLLISION ON 3
Hide Object 3

make object box 4, 500,20,2 : position object 4, 240, 0, -11
SET OBJECT COLLISION ON 4
Hide Object 4

make object box 5, 500,20,2 : position object 5, 239, 0, 490
SET OBJECT COLLISION ON 5
Hide Object 5

make object box 6, 2,20,500 : position object 6, -12, 0, 240
SET OBJECT COLLISION ON 6
Hide Object 6

//Make collectables
for x= 7 to 80
	make object sphere x,5
	color object x, RGB(255,0,0)
	position object x, RND(480),RND(-11),RND(480)
next x

for x= 81 to 115
	make object sphere x,6
	color object x, RGB(255,255,0)
	position object x, RND(480),RND(-11),RND(480)
next x
//make the timer variable.
Timer#=3600

//Main Loop
do
	
	//This is the timer system
	Timer#=Timer#-1
	If Timer#=<0 then end
	
	//Matrix Boundaries 
	playerX# = OBJECT POSITION X(1)
	playerY# = OBJECT POSITION Y(1)
	playerZ# = OBJECT POSITION Z(1)
	
	//Control System
	if upkey()= 1 then move object 1,4
	if downkey()=1 then move object 1,-4
	if leftkey() = 1 then turn object left 1,3
	if rightkey() = 1 then turn object right 1,3

//Print score
	set cursor 5,5
	Print score#
	
	//Delete collectables as appropriate
	For x=7 to 80
   		If object exist(x)=1
			If object collision(1,x)=1 then delete object x: score#=score#+1
		endif
	Next x
	
	For x=81 to 115
   		If object exist(x)=1
			If object collision(1,x)=1 then delete object x: score#=score#-1
		endif
	Next x
	
	
	for t = 3 to 6
		IF OBJECT COLLISION(1,t) = 1 THEN POSITION OBJECT 1, playerX#,playerY#,playerZ#
	next t 
	
	if score#=>1
		color object 1, rgb(0,0,0)
	endif
	
	if score#=>10
		color object 1, rgb(50,0,0)
	endif
	
	if score#=>20
		color object 1, rgb(255,0,0)
	endif
	
	if score#=>30
		color object 1, rgb(0,255,0)
	endif
	
	if score#=>40
		color object 1, rgb(0,0,255)
	endif
	
	if score#=>50
		color object 1, rgb(255,255,0)
	endif
	
	if score#=>60
		color object 1, rgb(255,255,255)
	endif
	
	if score#=>70
		color object 1, rgb(0,255,255)
	endif
	
	if score#=>80
		color object 1, rgb(255,20,200)
	endif
	
	//Winning Condition
	if score#=>80
		do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 300,250, "WELL DONE"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif

//Use camera tracker to follow player object

angle# = object angle y(1)
	
  	set camera to follow object position x(1), object position y(1), object position z(1), angle#, 30, 15, 5, 0
  	point camera object position x(1), object position y(1), object position z(1)
	
	print Timer#
	sync
loop

+ Code Snippet

//create the sync setup and that kind of stuff.
sync on
sync rate 30
hide mouse


//make a 3D box and some other 3D stuff

//Make Player
make object box 1,5,5,5
color object 1, RGB(255,255,255)
SET OBJECT COLLISION ON 1

//Make matrix
make matrix 1,500,500,20,20
position matrix 1,-11,-11,-10

//Boundaries
make object box 3, 2,20,500 : position object 3, 490, 0, 240
SET OBJECT COLLISION ON 3
Hide Object 3

make object box 4, 500,20,2 : position object 4, 240, 0, -11
SET OBJECT COLLISION ON 4
Hide Object 4

make object box 5, 500,20,2 : position object 5, 239, 0, 490
SET OBJECT COLLISION ON 5
Hide Object 5

make object box 6, 2,20,500 : position object 6, -12, 0, 240
SET OBJECT COLLISION ON 6
Hide Object 6

//Make collectables
for x= 7 to 80
	make object sphere x,5
	color object x, RGB(255,0,0)
	position object x, RND(480),RND(-11),RND(480)
next x

for x= 81 to 115
	make object sphere x,6
	color object x, RGB(255,255,0)
	position object x, RND(480),RND(-11),RND(480)
next x
//make the timer variable.
Timer#=3600



//Main Loop
do
	
	//This is the timer system
	Timer#=Timer#-1
	If Timer#=<0 then end
	
	//Matrix Boundaries 
	playerX# = OBJECT POSITION X(1)
	playerY# = OBJECT POSITION Y(1)
	playerZ# = OBJECT POSITION Z(1)
	
	//Control System
	if upkey()= 1 then move object 1,4
	if downkey()=1 then move object 1,-4
	if leftkey() = 1 then turn object left 1,3
	if rightkey() = 1 then turn object right 1,3

	
	//Print score
	set cursor 5,5
	Print score#
	
	//Delete collectables as appropriate
	For x=7 to 80
   		If object exist(x)=1
			If object collision(1,x)=1 then delete object x: score#=score#+1
		endif
	Next x
	
	For x=81 to 115
   		If object exist(x)=1
			If object collision(1,x)=1 then delete object x: score#=score#-1
		endif
	Next x
	
	
	for t = 3 to 6
		IF OBJECT COLLISION(1,t) = 1 THEN POSITION OBJECT 1, playerX#,playerY#,playerZ#
	next t 
	
	if score#=>1
		color object 1, rgb(0,0,0)
	endif
	
	if score#=>10
		color object 1, rgb(50,0,0)
	endif
	
	if score#=>20
		color object 1, rgb(255,0,0)
	endif
	
	if score#=>30
		color object 1, rgb(0,255,0)
	endif
	
	if score#=>40
		color object 1, rgb(0,0,255)
	endif
	
	if score#=>50
		color object 1, rgb(255,255,0)
	endif
	
	if score#=>60
		color object 1, rgb(255,255,255)
	endif
	
	if score#=>70
		color object 1, rgb(0,255,255)
	endif
	
	if score#=>80
		color object 1, rgb(255,20,200)
	endif
	
	//Winning Condition
	if score#=>80
		do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 300,250, "WELL DONE"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif

	
	//Use camera tracker to follow player object

	angle# = object angle y(1)
	
  	set camera to follow object position x(1), object position y(1), object position z(1), angle#, 30, 15, 5, 0
  	point camera object position x(1), object position y(1), object position z(1)
	
	print Timer#
	sync
loop

I've moved the three lines where you saved the old position of the box and the controls to the top of the main loop (line 59), made the walls longer and set a variable for the angle of the object to use in the "set camera to follow" command (line 145). I've also indented your code.

Hope this helps but I bet your next question is how to get the player object to slide against the wall

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 4th Nov 2010 12:08

Link

Thanks for pointing out the error.. much appreciated! I'm not too fussed about sliding collision just yet, I'm actually more interested in getting the camera to work well first before worrying about other stuff.

I have tried the code that you have kindly written up for me, but the camera still behaves weird when i hold down the left or right keys for about 2 secs, the camera doesn't track the player box as it rotates to face the back, it just stays stationary and watches as the player box rotates on its pivot until it the box faces the front again.

Are there better camera solutions than the one I am trying to implement?

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 5th Nov 2010 00:45

Link

Sorry about that, I didn't test the code thoroughly enough.

It's a very odd problem. It seems that the "object angle y()" command is not returning the correct angle of the object. If you look at the this example of a rotating cube:

+ Code Snippet

sync on
sync rate 60
hide mouse
cls 0

ObjectNumber=1

make object cube ObjectNumber, 5

while mouseclick()=0
	set cursor 0,0

	turn object right 1, 0.1

	print "object angle x : "; object angle x(ObjectNumber)
	print "object angle y : "; object angle y(ObjectNumber)
	print "object angle x : "; object angle z(ObjectNumber)

	sync
endwhile

It returns a value for the y angle between 90 and -90 (i.e. when the object rotates through say 95 degrees the "object angle y()" command returns a value of 85 degrees) even though the cube rotates through a full 360 degrees. Also, the object's x and z angles change from 0 to 180 degrees (when it has rotated through 90 degree). Maybe someone with a bit more knowledge than me could explain this, it's just odd to me (maybe there's some update I'm unaware of).

I think this was causing the problem not the "set camera to follow" command.

Anyway, I figured out a work around.

Rather than rotating the object directly, the left and right keys change a "facing#" variable and then the object is y rotated to this value (line 62) and I changed the "set camera to follow" command to use the "object angle y()" command (line 148)