3D platformer help - GameCreators Forum

Author

Message

Red general

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: United Kingdom

Posted: 14th Apr 2003 22:44

Link

I am working on two platformers. Both will end up being semi-Mario. The first one is a 3D take on "D (side scrolling). At the moment I have this coding:

Rem _________________________________
Rem |||||||||||||||||||||||||||||||||
Rem ||||| 3D platform mark 2 ||||||||
Rem |||||||||||||||||||||||||||||||||
Rem |||||||||||||||||||||||||||||||||

rem Standard Setup Code
sync on 
sync rate 60
autocam off
hide mouse

rem textures
load image "brick07.bmp",1

rem character
	LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
	YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
	LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10
x#=0 : y#=0 : z#=0
	position object 1, x#, y#, z#

rem Switch on collision for the object
set object collision on 1

rem scenery
rem base
	make object box 2,50,50,5000
	position object 2,0,-25,2275
	texture object 2,1
	make static object 2
rem wall 1
	make object box 3,50,250,50
	position object 3,0,125,-200
	texture object 3,1
	make static object 3

rem camera
camerax#=0
position camera 300, -50, 50

point camera object position x(1), object position y(1)+100, object position z(1)

do
gosub display
gosub collision
gosub Input_check
gosub camera
if jmp=1 then gosub Jump_run
if (init_pos + S#)oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

return

rem camera commands
camera:
position camera 300, 0, object position z(1)+50
return

Jump_run:
rem jumping
if jmp=1 then inc time#, (1.0*step#)
S#=(12.0*time#)+(0.5)*(-0.6)*(time#^2.0)
position object 1, object position x(1), init_pos + S#, object position z(1)
return

end_jump:
jmp=0
time#=0.0
return

collision:

if object collision(1,3)>0
	ink 0,rgb(255,255,255)
	z#=oldz#
else
	ink rgb(255,255,255),0
endif
return

+ Code Snippet

Rem _________________________________
Rem |||||||||||||||||||||||||||||||||
Rem ||||| 3D platform mark 2 ||||||||
Rem |||||||||||||||||||||||||||||||||
Rem |||||||||||||||||||||||||||||||||

rem Standard Setup Code
sync on 
sync rate 60
autocam off
hide mouse

rem textures
load image "brick07.bmp",1

rem character
	LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
	YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
	LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10
x#=0 : y#=0 : z#=0
	position object 1, x#, y#, z#

rem Switch on collision for the object
set object collision on 1

rem scenery
rem base
	make object box 2,50,50,5000
	position object 2,0,-25,2275
	texture object 2,1
	make static object 2
rem wall 1
	make object box 3,50,250,50
	position object 3,0,125,-200
	texture object 3,1
	make static object 3


rem camera
camerax#=0
position camera 300, -50, 50


point camera object position x(1), object position y(1)+100, object position z(1)



do
gosub display
gosub collision
gosub Input_check
gosub camera
if jmp=1 then gosub Jump_run
if (init_pos + S#)oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

return


rem camera commands
camera:
position camera 300, 0, object position z(1)+50
return


Jump_run:
rem jumping
if jmp=1 then inc time#, (1.0*step#)
S#=(12.0*time#)+(0.5)*(-0.6)*(time#^2.0)
position object 1, object position x(1), init_pos + S#, object position z(1)
return


end_jump:
jmp=0
time#=0.0
return


collision:

if object collision(1,3)>0
	ink 0,rgb(255,255,255)
	z#=oldz#
else
	ink rgb(255,255,255),0
endif
return

When I run into the wall, the character stops. Unfortunately, he cannot get away - he can jump, but he is still stuck to it like a fly on flypaper. I don't know how to solve this (it is strange)

The other problem is my other 3D platformer (uses same basis but more like mario64).

Rem ***** Main Source File *****

rem Standard Setup Code
sync on : sync rate 60 : autocam off
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent

`set-up a few objects
rem character
	LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
	YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
	LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10
	position object 1, 100, 0, 100
make object plain 2, 500, 500
xrotate object 2, 90

position object 2, 0, -16, 0
position camera 300, 300, 50
point camera 50, 50, 0

`main loop
do
gosub display
gosub Input_check
if jmp=1 then gosub Jump_run
if (init_pos + S#)oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

return

Jump_run:
rem jumping
if jmp=1 then inc time#, (1.0*step#)
S#=(12.0*time#)+(0.5)*(-0.6)*(time#^2.0)
position object 1, object position x(1), init_pos + S#, object position z(1)
return

end_jump:
jmp=0
time#=0.0
return

+ Code Snippet

Rem ***** Main Source File *****

rem Standard Setup Code
sync on : sync rate 60 : autocam off
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent

`set-up a few objects
rem character
	LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
	YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
	LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10
	position object 1, 100, 0, 100
make object plain 2, 500, 500
xrotate object 2, 90

position object 2, 0, -16, 0
position camera 300, 300, 50
point camera 50, 50, 0

`main loop
do
gosub display
gosub Input_check
if jmp=1 then gosub Jump_run
if (init_pos + S#)oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

return

Jump_run:
rem jumping
if jmp=1 then inc time#, (1.0*step#)
S#=(12.0*time#)+(0.5)*(-0.6)*(time#^2.0)
position object 1, object position x(1), init_pos + S#, object position z(1)
return


end_jump:
jmp=0
time#=0.0
return

It probably has a simple answer,but I can't find it. I don't know how to make the camera behind him and follow him round

O
x
|
|
|
The camera (O) should be roughly behind and above the character (marked by x and dashes). Unfortunately it can't following him. So I need help

Thanks
RED GENERAL

My computer melts regulary - perhaps it likes being fondue

Back to top

Profile PM Email

Red general

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: United Kingdom

Posted: 14th Apr 2003 22:47

Link

Sorry about that, The illustration has lost all its spaces
Wierd, try this
O

x
|
|
|

RED GENERAL

My computer melts regulary - perhaps it likes being fondue

Back to top

Profile PM Email

Red general

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: United Kingdom

Posted: 14th Apr 2003 22:48

Link

That didn't work either, so use your imagination (camera should be closer to object).

RED GENERAL

My computer melts regulary - perhaps it likes being fondue

Back to top

Profile PM Email

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 15th Apr 2003 03:32 Edited at: 15th Apr 2003 03:43

Link

Ok, I just finished a collision demo. I think it's pretty revolutionary, since it is EXACT collision instead of just stopping the player from moving if he's within a certain range from an obstacle.

If you can understand it, you may use this as a reference, but be sure to cite me appropriately if so. http://thehobbit.mine.nu/ColTest.zip

Controls:
U,D,L,R = directions.
SPACE = jump.
q = quit (frees up memory too).

Back to top

Profile PM Email Website

freak

23

Years of Service

User Offline

Joined: 20th Jan 2003

Location:

Posted: 15th Apr 2003 03:33

Link

your asci illustration looses all those spaces because its rendered as html (in which multiple spaces are alwayc reduced to one space).
You have to set your illustration between the

+ Code Snippet

tags to keep those spaces.

Back to top

Profile PM

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 15th Apr 2003 03:41 Edited at: 15th Apr 2003 03:41

Link

As for the 2nd question, just check the tank or scorpion/water demo that came with DBC. (or several others)

Back to top

Profile PM Email Website

Danmatsuma

23

Years of Service

User Offline

Joined: 2nd Mar 2003

Location: Australia

Posted: 15th Apr 2003 07:52

Link

set camera to follow works fine for me

ZX Spectrum 48k Issue 3, Radio shack Tape drive, Rank arena 12" T.V. set.

Back to top

Profile PM Email

Red general

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: United Kingdom

Posted: 15th Apr 2003 18:48

Link

Hell IVIonkey, your demo does not work, the map is missing, so I cannot see the effects. Could you put up the map

Thanks
RED GENERAL

Also how do set the amera to follow Danmatsuma?

My computer melts regulary - perhaps it likes being fondue

Back to top

Profile PM Email

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 15th Apr 2003 21:21

Link

The program isn't meant to run on its own. I just included the DBA file so that you could see what it looks like. Just run the executable. If you really want the map, I have it up at http://thehobbit.mine.nu/coltest.lvl , but you will still be missing media, such as the player model and texture, and the objects. Try just playing with the code and making it fit your own situation instead

Back to top

Profile PM Email Website

ReD_eYe

23

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 15th Apr 2003 21:54 Edited at: 15th Apr 2003 22:11

Link

i just use the point camera command to point the camera at the player object and then the position camera command to place the camera up and behind the player

here is some code using these commands and it also has basic collision.

sync on
hide mouse
rem make and place cubes randomly
for c=1 to 5
make object cube c,50
position object c,rnd(2000),0,rnd(2000)
set object collision to boxes c
next c

rem makes a cube
make object sphere 10,50
position object 10,-100,0,-100
set object collision to spheres 10
do

rem stores the y angle of object 1
ay#=object angle y(10)

rem controls movement of cube note wrapvalue command
rem move object moves the object in whichever direction it is facing

if upkey()=1
move object 10,10
endif

if downkey()=1
move object 10,-10
endif

if rightkey()=1
yrotate object 10,wrapvalue(ay#+5)
endif

if leftkey()=1
yrotate object 10,wrapvalue(ay#-5)
endif

rem detects collision
if object collision(10,0)>0 then position object 10,x#,0,z#

rem get player 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#
rem change the last parameter to move the camera further from the player
rem change the 2nd parameter to rotate the camera round the player
cz#=newzvalue(z#,ay#-180,200)
cx#=newxvalue(x#,ay#-180,200)

rem position the camera (x,y,z)
rem change the 100 to make the camera higher above the player
position camera cx#,100,cz#

rem point camera at player
point camera x#,50,z#

sync
loop

+ Code Snippet

sync on
hide mouse
rem make and place cubes randomly
for c=1 to 5
make object cube c,50
position object c,rnd(2000),0,rnd(2000)
set object collision to boxes c
next c

rem makes a cube
make object sphere 10,50
position object 10,-100,0,-100
set object collision to spheres 10
do

rem stores the y angle of object 1
ay#=object angle y(10)

rem controls movement of cube note wrapvalue command
rem move object moves the object in whichever direction it is facing

if upkey()=1
move object 10,10
endif

if downkey()=1
move object 10,-10
endif

if rightkey()=1
yrotate object 10,wrapvalue(ay#+5)
endif

if leftkey()=1
yrotate object 10,wrapvalue(ay#-5)
endif

rem detects collision
if object collision(10,0)>0 then position object 10,x#,0,z#

rem get player 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#
rem change the last parameter to move the camera further from the player
rem change the 2nd parameter to rotate the camera round the player
cz#=newzvalue(z#,ay#-180,200)
cx#=newxvalue(x#,ay#-180,200)

rem position the camera (x,y,z)
rem change the 100 to make the camera higher above the player
position camera cx#,100,cz#

rem point camera at player
point camera x#,50,z#

sync
loop

btw there's no text box for code when you edit a message

'You were born crying while people around you smiled'

Back to top

Profile PM Email Website

Danmatsuma

23

Years of Service

User Offline

Joined: 2nd Mar 2003

Location: Australia

Posted: 16th Apr 2003 07:01 Edited at: 16th Apr 2003 07:08

Link

basically:

+ Code Snippet

x#=object position x([object to follow])
y#=object position y([object to follow])
z#=object position z([object to follow])
angle#=object angle y([object to follow])
camheight#=[how high above target coordinates you want the camera]
camdistance#=[how far away from the target object you want the camera]
camfade#=[smoothing of camera tracking try 5-15 to start with]
set camera to follow x#,y#,z,angle#,camdistance#,camheight#,camfade#,1

The one at the end is a flag, set it to one if you want the camera to avoid static collision boxes automatically.
It's a powerful command and takes a lot of work away from simple camera tracking. If you get creative with what you do with the height, distance, fade and angle variables you can make some pretty smart camera routines

[edit]
Oh yeah and if you set the camheight# significantly high, you might wanna add an

+ Code Snippet

xrotate camera [degrees to point the camera down@target object]

or

+ Code Snippet

point camera x#,y#,z#

ZX Spectrum 48k Issue 3, Radio shack Tape drive, Rank arena 12" T.V. set.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / 3D platformer help