TheGameCreators - CodeBase - RPG/RTS Starter Code

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 28th Jun 2005 12:05

Modified: 1st Jan 1970 01:00

Author: Cyril Grey

Summary

A fairly complete (but rough) game frame design with animated media.

Full Description

Walk around from overhead 3d on a stone matrix surrounded by a solid brick wall. Swing your sword, jump over tree and wall, fire your arrow, stand still and watch the hero idle. Collision slides well. Some minor bugs, but overall a good base from which to start or add on (I'll update as I have time to do so. I created this program with intentions for a RPG/RTS game. All basics are here, including animated media for player. All models and textures were created by me using milkshape and photoshop (I am more into the programming, so the models aren't the greatest). PULL THE MOUSE DOWN WHEN YOU FIRST LOAD UP!!! OR YOU'LL LOSE THE PLAYER IN THE BOTTOM OF THE SCREEN (I'll fix this soon). Please leave feedback. If there are any modelers who want to participate in the project, please email me (email on the game screen). Have fun!!! Cyril

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`BASIC MOVEMENT, COLLISION, AND ANIMATION

`BY JASON KEYES

`THANK YOU TO THE FORUM MEMBERS WHOSE ADVICE HAS HELPED IN THIS DEVELOPMENT

`POSTING THIS IS MY WAY OF GIVING BACK TO THE DB/DBP COMMUNITY

`WRITTEN IN DBP

`known bugs: jump in end of idle animation loop; collision boxes/radii

`a little too large; if mouse moved up on outset player lost in screen

`bottom (so move it down when matrix loads); no duck animation;

`projectile y needs to be lifted as it's set on the camera

set display mode 800,600,32

load image "rockwall_01.jpg",5

make matrix 1000,1024.0,1024.0,10,10

randomize matrix 1000,10

prepare matrix texture 1000,5,1,1

`Make player: create a box or load your .x file model

load object "buff_guy_01.x",1

scale object 1,150,150,150

make object collision box 1,-10,-10,-10,10,10,10,0

load object "brick_wall_X_02.x",2

scale object 2,100,200,100

make object collision box 2,-32,-20,-20,32,20,20,0

position object 2,32,0,0

show object 2

load object "sword_01.x",7

glue object to limb 7,1,18

`create brick wall along matric perimeter

for l=10 to 40

instance object l,2

scale object l,100,200,100

make object collision box l,-20,-20,-20,20,20,20,0

position object l,(32*(l-8)),0,0

show object l

next l

for l=10 to 41

instance object l+41,2

scale object l+41,100,200,100

make object collision box l+41,-20,-20,-20,20,20,20,0

position object l+41,(32*(l-9)),0,1024

show object l+41

instance object l+73,2

scale object l+73,100,200,100

make object collision box l+73,-32,-20,-20,32,20,20,0

rotate object l+73,0,90,0

position object l+73,-16,0,(32*(l-10))

show object l+73

instance object l+115,2

scale object l+115,100,200,100

make object collision box l+115,-32,-20,-20,32,20,20,0

rotate object l+115,0,90,0

position object l+115,1024,0,(32*(l-10))

show object l+115

next l

`place an animated tree

load object "movingtree_1f.x",300

scale object 300,200,200,200

set object speed 300,10

play object 300

loop object 300

set object radius 300,20

objground#=get ground height(1000,300,200)

position object 300,300,objground#+30,200

show object 300

`load projectile

load object "arrow_01.x",3

make object collision box 3,-2,-2,-2,2,2,2,0

hide object 3

`position player

posx#=500.0

posz#=500.0

sync on

`Begin main loop

`check FPS to keep movement flowing: this isn't necessary with recent updates

if screen fps()<=10 then speed#=8

if screen fps()>10 and screen fps()<=20 then speed#=6

if screen fps()>20 and screen fps()<=30 then speed#=5

if screen fps()>30 then speed#=3

`attack flag

if inkey$()="a" or inkey$()="A" and att=0

att=1

attpause=0

endif

if att=1 and attpause<30 then attpause=attpause+1

if attpause=>30

att=0

attpause=0

endif

`Control Player with the cursor keys

if upkey()=1

posx#=newxvalue(posx#, angle#, speed#)

posz#=newzvalue(posz#, angle#, speed#)

endif

if downkey()=1

posx#=newxvalue(posx#, angle#, 0-speed#)

posz#=newzvalue(posz#, angle#, 0-speed#)

endif

if leftkey()=1 then angle#=wrapvalue(angle#-speed#)

if rightkey()=1 then angle#=wrapvalue(angle#+speed#)

`rotate camera left and right with mouse

mm=MouseMoveX()

if mm<>0 then angle#=Wrapvalue(Camera angle y()+1*mm)

`if the mouse moved forward/back, look down/up

mm=MouseMoveY()

if mm<>0 and camera angle x()>12 or mm<>0 and camera angle x()>=66 then xrotate Camera Wrapvalue(Camera angle X()-.1*mm)

if mm<>0 and camera angle x()<=12 and camera angle x()<66 or mm<>0 and camera angle x()>66 and camera angle x()>5 then xrotate Camera Wrapvalue(Camera angle X()+.1*mm)

`move forward mouseclick=1 / move backward mouseclick=2

if mouseclick()=1

posx#=newxvalue(posx#, angle#, speed#)

posz#=newzvalue(posz#, angle#, speed#)

endif

if mouseclick()=2

posx#=newxvalue(posx#, angle#, 0-speed#)

posz#=newzvalue(posz#, angle#, 0-speed#)

endif

`determine animation for player

if mouseclick()<>0 or upkey()=1 or downkey()=1

if att=0

set object speed 1,50

loop object 1,1,30

endif

if att=1

set object speed 1,50

loop object 1,54,74

endif

`idle pose

if mouseclick()=0 and upkey()=0 and downkey()=0

if att=0

set object speed 1,10

loop object 1,32,52

endif

if att=1

set object speed 1,50

loop object 1,54,74

endif

`get matrix ground height for player to walk on

ground#=get ground height(1000,posx#,posz#)+10

`Fire Projectile: this needs some tweeking on the y axis

if inkey$()="F" or inkey$()="f" and projfire=0

projx#=posx#

projz#=posz#

`projy#=ground#+25

initprojfire#=projx#

projmove=0

position object 3,projx#+10,ground#+30,projz#+10

rotate object 3,camera angle x(0),camera angle y(0),0

show object 3

projfire=1

endif

if projfire=1

move object 3,5

projx#=object position x(3)

projz#=object position z(3)

projy#=object position y(3)

projground#=get ground height(1000,projx#,projz#)

projmove=projmove+5

endif

if object collision(3,0)>0

projfire=0

endif

`halt projectile if it hits the ground

if projfire=1 and projy#<=projground# then projfire=0

`halt the projectile if it has traveled 1000 units

if projmove>=1000 then projfire=0

`JUMP: 0=jump has not started: 1=going up: 2=coming down

if inkey$()=chr$(32) and jump=0

jump=1

jground#=get ground height(1000,posx#,posz#)+10

beginjump#=jground#

endif

inkey$()="?"

`check to see if the player has jumped to 75 units.  If so, set flag

`to descent mode.

if jump=1 and jground#=>beginjump#+75 then jump=2

if jump=1 then jground#=jground#+2.75

if jump=2 then jground#=jground#-2.75

`check to see if player has returned to the ground

if jump=2 and jground#<=get ground height(1000,posx#,posz#)+10 then jump=0

if jump=1 or jump=2 then ground#=jground#

if jump=0 then ground#=get ground height(1000,posx#,posz#)+10

`LIMB CHECK

if inkey$()="L" or inkey$()="l"

perform checklist for object limbs 1

for c=1 to checklist quantity()

print (c)

print checklist string$(c)

next c

inkey$()="?"

endif

`DUCK: 0=duck off: 1=duck on

if inkey$()="D" or inkey$()="d" and duck=0

duck=1

inkey$()="?"

endif

if duck=1 then ground#=ground#-5

if inkey$()="D" or inkey$()="d" and duck=1

duck=0

inkey$()="?"

endif

`update the object with these new values

position object 1,posx#,ground#,posz#

`rotate player

yrotate object 1,angle#+180

`level collision

position object 1,posx#,ground#+8,posz#

if object collision(1,0)>0

dec posx#,get object collision x()

dec posz#,get object collision z()

`dec posy#,get object collision y()

text 480,353,"COLLISION!!! "+"x= "+str$(get object collision x())+" y= "+str$(get object collision y())+" z= "+str$(get object collision z())

`if posy#<=ground# then posy#=ground#

endif

if object collision(1,0)<=0 then text 480,353,"NO COLLISION!!!"

`camera follow player

camground#=get ground height(1000,camera position x(),camera position z())+10

camdist#=150.0 : camhigh#=ground#+150.0 : camfade#=3.5

if camhigh#<=posy# then camhigh#=camground#

set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1

ShowText()

text 480,143,"player posx#"+str$(posx#)

text 480,158,"player posz#"+str$(posz#)

text 480,173,"player ground#"+str$(ground#)

text 480,188,"attact= "+str$(att)

text 480,203,"attack pause= "+str$(attpause)

text 480,338,"FPS= "+str$(screen fps())+"__"

text 480,368,"speed= "+str$(speed#)

sync

loop

function ShowText()

Set Text Size 20

Ink RGB(250,245,116),RGB(0,0,0)

text 480,1,"Basic movement, collision, animation"

text 480,18,"    email: jkeyes99@msn.com"

Ink RGB(250,245,116),RGB(0,0,0)

text 480,38,"Camera Position:"

text 480,53,"  X= "+str$(camera position x())

text 480,68,"  Y= "+str$(camera position y())

text 480,83,"  Z= "+str$(camera position z())

text 480,98,"Camera Angle:"

text 480,113,"  X= "+str$(camera angle x())

text 480,128,"  Y= "+str$(camera angle y())

text 1,388,"A=Attack - Space=Jump - D=Duck - F=Fire Arrow - L=Check Limbs"

text 1,408,"Mouse Button 1=forward; Mouse Button 2=backward; Arrow Keys: Enabled"

CodeBase - RPG/RTS Starter Code - with media

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Cyril Grey
CodeBase Entries:	1