TheGameCreators - CodeBase - 3rd person physics and collision

Category: Collision

Version: 1.0

Information

Uploaded: 4th Sep 2006 16:39

Modified: 1st Jan 1970 01:00

Author: luke810

Summary

A 3rd person collision and physics example.If you have any suggestion please comment or leave me an email at kosherm@msn.com some the rem statements may be strange because I had to delete portions of the program so you would not need to upload media files.

Full Description

See above

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem ******************************************

rem  3rd Person Game physics and collisions

rem ******************************************

rem             By Lucas Sherman

rem ******************************************

rem this is a more detailed version of the

rem sliding collision example in DB. I am

rem not yet finished with it as i am trying

rem to write it so you can use polygonal

rem collision and walk up ramps. If you have

rem any suggestion email me at kosherm@msn.com

rem ******************************************

rem setup

autocam off : sync rate 60

hide mouse : sync on

rem make walls

make object box 1,10,200,1000 : position object 1,-500,100,0 : color object 1,rgb(155,40,20)

make object box 2,10,200,1000 : position object 2, 500,100,0 : color object 2,rgb(155,40,20)

make object box 3,1000,200,10 : position object 3, 0,100,-500 : color object 3,rgb(155,40,20)

make object box 4,1000,200,10 : position object 4, 0,100, 500 : color object 4,rgb(155,40,20)

rem Make a floor and create texture for it

make object box 5,1000,10,1000 : position object 5,0,-5,0 : color object 5,rgb(0,255,0)

create bitmap 1,32,32 : cls rgb(0,155,0) : ink rgb(0,145,0),0 : box 4,4,12,12

get image 1,0,0,32,32 : delete bitmap 1 : texture object 5,1

scale object texture 5,200,200

rem Make a pedestal steps

for t=0 to 4

make object box 6+t,50,8,50

position object 6+t,0,4+(t*10),100+(t*50)

color object 6+t,rgb(100,200,100)

next t

for t=0 to 4

make object box 12+t,50,8,50

position object 12+t,150,40,100+(t*50)

color object 12+t,rgb(100,200,100)

next t

for t=0 to 4

make object box 17+t,50,8,50

position object 17+t,300,40+(t*10),100+(t*50)

color object 17+t,rgb(100,200,100)

next t

rem Make a player object

make object cylinder 11,10

position object 11,0,0,0

color object 11,rgb(20,100,255)

make object collision box 11,-5,-5,-5,5,5,5,0

rem Make the pedastal use non-rotated box collision

for t=0 to 4

make object collision box 6+t,-25,-4,-25,25,4,25,0

next t

for t=0 to 8

make object collision box 12+t,-25,-4,-25,25,4,25,0

next t

rem make the wall and floor objects into static objects

for t=1 to 5

make static object t

objx#=object position x(t)

objy#=object position y(t)

objz#=object position z(t)

objsx#=object size x(t)/2.0

objsy#=object size y(t)/2.0

objsz#=object size z(t)/2.0

make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#

delete object t

next t

rem make sky black

color backdrop 5

rem initiate calues

jump#=2

playergrav#=2.0

angle#=0

time#=0

time2#=0

rem main loop

rem increment/decrement timers

time#=time#+1

if mouseclick()=0 then timer#=0

rem store old positions

oldposx#=object position x(11)

oldposy#=object position y(11)

oldposz#=object position z(11)

rem control player object

if keystate(42)=1 then strafe#=1 else strafe#=0

if keystate(32)=1 and strafe#=0 then yrotate object 11,wrapvalue(object angle y(11)+3)

if keystate(30)=1 and strafe#=0 then yrotate object 11,wrapvalue(object angle y(11)-3)

if strafe#=1 then yrotate object 11,cya#

if keystate(32)=1 and strafe#=1

posx#=posx#+cos(cya#/-1)

posz#=posz#+sin(cya#/-1)

position object 11,posx#,posy#,posz#

endif

if keystate(30)=1 and strafe#=1

posx#=posx#-cos(cya#/-1)

posz#=posz#-sin(cya#/-1)

position object 11,posx#,posy#,posz#

endif

if keystate(17)=1 then move object 11,1.2

if keystate(31)=1 then move object 11,-1.2

if mouseclick()=1 and jump#=2 and timer#=0

time2#=time#

playergrav#=2

jump#=jump#-1

jump2#=1

timer#=1

endif

if mouseclick()=0 then jump2#=0

if jump2#=1 and mouseclick()=1 and time#>time2#+25 then playergrav#=-.5

if mouseclick()=1 and jump#=1 and time#>time2#+20 and jump2#=0

time2#=time#

playergrav#=1.0

jump#=jump#-1

jump2#=1

timer#=1

endif

rem Get current object position

posx#=object position x(11)

posy#=object position y(11)

posz#=object position z(11)

rem increase gravity

playergrav#=playergrav#-0.08

posy#=posy#+playergrav#

rem handle sliding collision for ratchet object with other objects

position object 11,posx#,posy#,posz#

if object collision(11,0)>0

objnum#=object collision(11,0)

dec posx#,get object collision x()

dec posz#,get object collision z()

if posy#-5>object position y(objnum#)

dec posy#,get object collision y()

playergrav#=0

jump#=2

jump2#=0

endif

if posy#-5<object position y(objnum#)-(object size y(objnum#)/2.0)

playergrav#=-0.1

dec posy#,get object collision y()

endif

rem set a size for the player object (temp)

s#=object size y(11)/2.0

rem check for static collisions x&z

if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1

dec posx#,get static collision x()

dec posz#,get static collision z()

endif

rem check for static collisions down

if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#+2,posy#-s#,posz#-s#+2,posx#+s#-2,posy#,posz#+s#-2)=1

dec posy#,get static collision y()

playergrav#=0

jump#=2

jump2#=0

endif

rem check for static collisions up

if get static collision hit(oldposx#-s#,oldposy#,oldposz#-s#+1,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#+2,posy#,posz#-s#+2,posx#+s#-2,posy#+s#,posz#+s#-2)=1

posy#=posy#+get static collision y()

playergrav#=-2

endif

rem Update with new object position

position object 11,posx#,posy#,posz#

remstart

rem Control Camera

cya#=wrapvalue(cya#+(mousemovex()/3.0))

cxa#=cxa#+(mousemovey()/3.0)

if cxa#<-45.0 then cxa#=-45.0

if cxa#>45.0 then cxa#=45.0

cx#=newxvalue(x#,cya#,sin(cxa#)*10)

cz#=newzvalue(z#,cya#,sin(cxa#)*10)

rotate camera wrapvalue(cxa#),cya#,0

remend

rem control camera

cya#=wrapvalue(cya#-(mousemovex()/3.0))

angle#=wrapvalue(angle#-(mousemovey()/3.0))

if angle#>180 then angle#=0

if angle#>60 and angle#<180 then angle#=60

camdist#=cos(angle#)*45

camhigh#=posy#+5+sin(angle#)*30

camfade#=3.5

point camera posx#,posy#+5,posz#

set camera to follow posx#,posy#+5,posz#,cya#,camdist#,camhigh#,camfade#,1

rem update screen

sync

rem end loop

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	luke810
CodeBase Entries:	2

CodeBase - 3rd person physics and collision

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments