TheGameCreators - CodeBase - My "RPG" strickly used in DBP. SIMPLE codes!!

Category: Complete Applications

Version: 1.0

Information

Uploaded: 24th May 2008 11:14

Modified: 24th May 2008 11:28

Author: steel gollum

Summary

This is just something I have been doing, not knowing WTF i was doing!!! (BTW this is the first thing i have ever made on here...)

Full Description

Well, as I just enjoyed messing with DBP I have felt posting my progress as a very simple way to code. Considering the codes in here are nearly the most simplistic and mabey YOU can fix the code and add onto it. I don't care either way so yea, mess with the code and make it better!<br /> <br /> (I would like notice if ANYONE, likely no one, is going to improve this base of a DBP project.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 60

make light 400

position light 400,400,300,-30

make object sphere 1,20

color object 1,rgb(255,169,117)

position object 1,262,10,-400

make object box 987,2,10,2

make object sphere 1928,20

color object 1928, rgb(255,255,255)

position object 1928,250,10,-200

xrotate object 987,30

make object sphere 100000,30

color object 100000,rgb(000,000,168)

position object 100000,0,15,0

make object sphere 9999,10

make mesh from object 1,9999

delete object 9999

add limb 1,1,1

offset limb 1,1,object size x(1),object size y(1),object size z(1)

hide limb 1,1

add limb 1,2,1

offset limb 1,2,0,0,object size z(1)/2

hide limb 1,2

add limb 1,3,1

offset limb 1,3,0,0,-object size z(1)/2

hide limb 1,3

add limb 1,4,1

offset limb 1,4,object size x(1)/2,0,0

hide limb 1,4

add limb 1,5,1

offset limb 1,5,-object size x(1)/2,0,0

hide limb 1,5

add limb 1,6,1

offset limb 1,6,0,-10,0

hide limb 1,6

add limb 1,7,1

offset limb 1,7,object position x(1),200,-300

hide limb 1,7

add limb 1,8,1

offset limb 1,8,0,0,10

hide limb 1,8

add limb 1,9,1

offset limb 1,9,10,0,0

hide limb 1,9

add limb 1,10,1

offset limb 1,10,object position x(1),object position y(1),object position z(1)

hide limb 1,10

make object box 3,100,40,5

color object 3, rgb(157,070,017)

position object 3,200,20,-30

make object box 4,5,40,100

color object 4,rgb(157,070,017)

position object 4,150,20,17.5

make object box 5,30,10,5

color object 5,rgb(157,070,017)

position object 5,259,35,-30

make object box 6,50,40,5

color object 6,rgb(157,070,017)

position object 6,299,20,-30

make object box 7,5,40,100

color object 7,rgb(157,070,017)

position object 7,323,20,17.5

make object box 8,177,40,5

color object 8,rgb(157,070,017)

position object 8,236,20,65

make object box 15,24,30,2

color object 15,rgb(066,000,000)

position object 15,262,15,-32

make object sphere 16,4

color object 16,rgb(173,148,058)

position object 16,270,15,-33

make object box 200,172,0,5

color object 200,rgb(085,040,000)

position object 200,234,.5,60

make object box 201,172,0,5

color object 201,rgb(080,047,000)

position object 201,234,.5,55

make object box 202,172,0,5

color object 202,rgb(085,049,000)

position object 202,234,.5,50

make object box 203,172,0,5

color object 203,rgb(080,045,000)

position object 203,234,.5,45

make object box 204,172,0,5

color object 204,rgb(085,042,000)

position object 204,234,.5,40

make object box 205,172,0,5

color object 205,rgb(080,049,000)

position object 205,234,.5,35

make object box 206,172,0,5

color object 206,rgb(089,040,000)

position object 206,234,.5,30

make object box 207,172,0,5

color object 207,rgb(080,049,000)

position object 207,234,.5,25

make object box 208,172,0,5

color object 208,rgb(089,041,000)

position object 208,234,.5,20

make object box 209,172,0,5

color object 209,rgb(080,047,000)

position object 209,234,.5,15

make object box 210,172,0,5

color object 210,rgb(089,049,000)

position object 210,234,.5,10

make object box 211,172,0,5

color object 211,rgb(080,044,000)

position object 211,234,.5,5

make object box 212,172,0,5

color object 212,rgb(089,048,000)

position object 212,234,.5,0

make object box 213,172,0,5

color object 213,rgb(069,044,000)

position object 213,234,.5,-5

make object box 214,172,0,5

color object 214,rgb(080,049,000)

position object 214,234,.5,-10

make object box 215,172,0,5

color object 215,rgb(089,042,000)

position object 215,234,.5,-15

make object box 216,172,0,5

color object 216,rgb(080,043,000)

position object 216,234,.5,-20

make object box 217,172,0,5

color object 217,rgb(089,045,000)

position object 217,234,.5,-25

make object box 218,172,0,5

color object 218,rgb(085,047,000)

position object 218,234,.5,-30

make object box 300,24,0,1000

color object 300,rgb(100,030,000)

position object 300,262,.5,-534

make object cylinder 11,6

color object 11,rgb(134,000,000)

position object 11,130,3,-30

make object cone 13,30

color object 13,rgb(099,198,000)

position object 13,130,18,-30

make object cylinder 12,6

color object 12,rgb(134,000,000)

position object 12,342,3,-30

make object cone 14,30

color object 14,rgb(099,198,000)

position object 14,342,18,-30

make object cylinder 17,10

color object 17,rgb(134,000,000)

position object 17,230,5,-100

make object cylinder 18,10

color object 18,rgb(134,000,000)

position object 18,230,10,-100

make object cylinder 19,10

color object 19,rgb(134,000,000)

position object 19,230,15,-100

make object cylinder 20,10

color object 20,rgb(134,000,000)

position object 20,230,20,-100

make object cylinder 21,10

color object 21,rgb(134,000,000)

position object 21,230,25,-100

make object sphere 22,50

color object 22,rgb(099,198,000)

position object 22,230,40,-100

make object cylinder 100,10

color object 100,rgb(134,000,000)

position object 100,300,5,-170

make object cylinder 101,10

color object 101,rgb(134,000,000)

position object 101,300,10,-170

make object cylinder 102,10

color object 102,rgb(134,000,000)

position object 102,300,15,-170

make object cylinder 103,10

color object 103,rgb(134,000,000)

position object 103,300,20,-170

make object cylinder 104,10

color object 104,rgb(134,000,000)

position object 104,300,25,-170

make object sphere 105,50

color object 105,rgb(099,198,000)

position object 105,300,40,-170

make object cylinder 106,10

color object 106,rgb(134,000,000)

position object 106,224,5,-220

make object cylinder 107,10

color object 107,rgb(134,000,000)

position object 107,224,10,-220

make object cylinder 108,10

color object 108,rgb(134,000,000)

position object 108,224,15,-220

make object cylinder 109,10

color object 109,rgb(134,000,000)

position object 109,224,20,-220

make object cylinder 111,10

color object 111,rgb(134,000,000)

position object 111,224,25,-220

make object sphere 112,50

color object 112,rgb(099,198,000)

position object 112,224,40,-220

make camera 9

make object plain 10,5000,5000

xrotate object 10,-90

color object 10,rgb(068,184,012)

EnemyHP#=100

make object cube 321,2.5

color object 321,rgb(000,000,000)

hide object 321

position object 987,limb position x(1,9),limb position y(1,9),limb position z(1,9)

position camera 9,limb position x(1,7),limb position y(1,7),limb position z(1,7)

point camera 9,object position x(1),object position y(1),object position z(1)

if object exist(1)=1

if object exist(100000)=1

if intersect object(100000,object position x(1), object position y(1),object position z(1),x#,y#,z#)

if mouseclick()=1

endif

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

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

if keystate(30)=1 then turn object left 1,1

if keystate(32)=1 then turn object right 1,1

if object exist(1)=1

if button(20,450,"Run")=1

if keystate(17)=1 then move object 1,1.3

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

if keystate(30)=1 then turn object left 1,1

if keystate(32)=1 then turn object right 1,1

endif

if object exist(1)=1

if Tab(20,400,"Inventory")=1

print "I'm working on this still!"

endif

if object exist(1928)=1

if intersect object (1928,object position x(1), object position y(1),object position z(1),x#,y#,z#)

if button(20,35,"Take Armour")=1

delete object 1928

color object 1,rgb (255,255,255)

endif

if object exist(15)=1

if object exist(16)=1

if intersect object (15,limb position x(1,8),limb position y(1,8),limb position z(1,8),x#,y#,z#)

If Button(20,35,"Open Door")=1

yrotate object 15,90

yrotate object 16,90

position object 15,251,14.95,-20.5

position object 16,251,14.95,-15

endif

if object exist(15)=1

if object exist(16)=1

if intersect object (15,limb position x(1,8),limb position y(1,8),limb position z(1,8),x#,y#,z#)

If Button(20,135,"Close Door")=1

yrotate object 15,0

yrotate object 16,0

position object 15,262,15,-31.55

position object 16,270,15,-31.55

endif

if intersect object (10,limb position x(1,6),limb position y(1,6),limb position z(1,6),object position x(1),object position y(1),object position z(1))>0

move object up 1,1

endif

if intersect object (3,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (3,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (3,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (3,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (4,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (4,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (4,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (4,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (5,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (5,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (5,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (5,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (6,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (6,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (6,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (6,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (7,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (7,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (7,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (7,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (8,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (8,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (8,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (8,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (11,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (11,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (11,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (11,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (12,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (12,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (12,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (12,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (13,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (13,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (13,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (13,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (14,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (14,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (14,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (14,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

if intersect object (15,limb position x(1,2),limb position y(1,2),limb position z(1,2),object position x(1),object position y(1),object position z(1))>0

move object 1,-1

endif

if intersect object (15,limb position x(1,3),limb position y(1,3),limb position z(1,3),object position x(1),object position y(1),object position z(1))>0

move object 1,1

endif

if intersect object (15,limb position x(1,4),limb position y(1,4),limb position z(1,4),object position x(1),object position y(1),object position z(1))>0

move object left 1,1

endif

if intersect object (15,limb position x(1,5),limb position y(1,5),limb position z(1,5),object position x(1),object position y(1),object position z(1))>0

move object right 1,1

endif

sync

loop

function button(x1,y1,WORDS$)

Pressed=0

x2=Text Width(WORDS$)

y2=Text Height(WORDS$)

if mousex()>x1 and mousex()<x1+x2

if mousey()>y1-y2 and mousey()<y1+y2

Pressed=1

endif

if pressed=1 then ink rgb(255,255,255),0 else ink rgb(000,000,000),0

if pressed=1

Pressed=Mouseclick()

else

pressed = 0

endif

text x1,y1,WORDS$

endfunction pressed

function Tab(x1,y1,WORDS$)

Pressed=0

x2=Text Width(WORDS$)

y2=Text Height(WORDS$)

if mousex()>x1 and mousex()<x1+x2

if mousey()>y1-y2 and mousey()<y1+y2

Pressed=1

endif

if pressed=1 then ink rgb(255,255,255),0 else ink rgb(000,000,000),0

if pressed=1

Pressed=Mouseclick()

else

pressed = 0

endif

text x1,y1,WORDS$

endfunction pressed

Download

Please login to download

Comments

No comments yet.

Author Name:	steel gollum
CodeBase Entries:	1

CodeBase - My &quot;RPG&quot; strickly used in DBP. SIMPLE codes!!

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

CodeBase - My "RPG" strickly used in DBP. SIMPLE codes!!