TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 15th Feb 2004 20:31

Modified: 15th Feb 2004 20:41

Author: Rasdini

Summary

now this is 3-D breakout with movement in two planes

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: 3-DBreakout

Rem Created: 2/7/04 7:00:10 PM

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

hide mouse

cls

make camera 2

startover:

score=0:balls=5:pdx=150:pdz=-120

bx=130+rnd(20):bz=50+rnd(20):dx=3:dz=-3

p=rnd(2)

if p=1 then dx=dx*-1

mainloop:

obj=40

sync on

stx=100:stz=80

for x=21 to 60

make object box x,10,6,5

color object x,rgb(rnd(255),rnd(255),rnd(255))

position object x,stx,-40,stz

stx=stx+10:if stx>195 then stx=100:stz=stz+30

next x

make object sphere 1,4:color object 1,rgb(0,255,0)

make object box 2,10,75,400:color object 2,rgb(0,100,255)

make object box 3,10,75,400:color object 3,rgb(0,100,255)

make object box 4,126,75,10:color object 4,rgb(0,100,255)

position object 2,89,-10,0

position object 3,205,-10,0

position object 4,148,-10,200

make object box 5,16,3,3:color object 5,rgb(255,75,50)

position object 5,pdx,-40,pdz

color backdrop rgb(rnd(255),rnd(255),rnd(255))

color backdrop 2,rgb(rnd(255),rnd(255),rnd(255))

if light exist(1)=0 then make light 1

set light range 1,500

color light 1,rgb(255,255,255)

show light 1

color ambient light rgb(100,100,100)

set ambient light 10

if light exist(2)=0 then make light 2

color light 2,rgb(255,255,255)

set spot light 2,5,10

set light range 2,5000

show light 2

set camera view 2,450,50,600,200

wait 20

position camera pdx,100,pdz-180

point camera 142,0,100

position camera 2,bx,100,bz-30

point camera 2,bx,-40,bz

if score=500 then balls=balls+1:score=score+20

if score=800 then balls=balls+1:score=score+20

if score=1000 then balls=balls+1:score=score+20

if score=1300 then balls=balls+1:score=score+20

if score=1500 then balls=balls+1:score=score+20

if score=1800 then balls=balls+1:score=score+20

if score=2500 then balls=balls+10:score=score+20

set cursor 0,0

print "Score ";score;"   Balls";balls;"  "

set cursor (screen width()/2)-70,0:Print "3-D BREAKOUT       Written by: Richard Sardini"

set cursor 0,50:Print "Use arrow keys or joystick to control your paddle."

if inkey$()="p"

print "PAUSED"

wait 1000

wait key

endif

position light 2,pdx,-36,pdz+3

point light 2,pdx,-40,pdx-10

set point light 1,bx,-30,bz

if dx<-4 or dx>4 then color object 1,rgb(rnd(255),rnd(255),rnd(255)) else color object 1,rgb(0,255,0)

position object 1,bx,-40,bz

bx=bx+dx:bz=bz+dz

t1=object collision(1,0)

if t1=2 or t1=3 then dx=dx*-1:bx=bx+dx*3

if t1=4 then dz=dz*-1:bz=bz+dz*3

if t1>20 then delete object t1:score=score+20:dz=dz*-1:bz=bz+dz*3:obj=obj-1

if obj=0

for x=1 to 5:if object exist(x)=1 then delete object x

next x

for x=21 to 60:if object exist(x)=1 then delete object x

next x

goto mainloop

endif

if t1=5

dz=dz*-1:bz=bz+dz*3

if leftkey()=1 or joystick left()=1

dx=dx-1:if dx<-6 then dx=-6

endif

if rightkey()=1 or joystick right()=1

dx=dx+1:if dx>6 then dx=6

endif

if leftkey()=0 and rightkey()=0 or joystick left()=0 and joystick right()=0

if bx>pdx+10 and dx<0

dx=dx*-1:bx=bx+dx*2

endif

if bx<pdx+3 and dx>0

dx=dx*-1:bx=bx+dx*2

endif

if bz<-240

balls=balls-1

if balls=0 then goto gameover

wait 200

bx=130+rnd(20):bz=50+rnd(20):dx=3

p=rnd(2)

if p=1 then dx=dx*-1

endif

if leftkey()=1 or joystick left()=1

if pdx>105

pdx=pdx-6

position object 5,pdx,-40,pdz

endif

if rightkey()=1 or joystick right()=1

if pdx<190

pdx=pdx+6

position object 5,pdx,-40,pdz

endif

if upkey()=1 or joystick up()=1

if pdz<50

pdz=pdz+5

position object 5,pdx,-40,pdz

endif

if downkey()=1 or joystick down()=1

if pdz>-205

pdz=pdz-5

position object 5,pdx,-40,pdz

endif

sync

loop

gameover:

sync off

ink rgb(255,255,255),0

cls

backdrop off

set cursor 0,0

ink rgb(rnd(255),rnd(255),rnd(255)),0

print "Game over"

print "Your score was ";score

print "Press space key to play again"

print "Press escape key to exit"

waiting:

if inkey$()=" "

for x=21 to 60

if object exist(x)=1 then delete object x

next x

for x=1 to 5:if object exist(x)=1 then delete object x

next x

delete light 1

ink rgb(255,255,255),0

backdrop on

goto startover

endif

if escapekey()=1 then end

goto waiting

Download

Please login to download

Comments

No comments yet.

CodeBase - 3-D breakout

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Rasdini
CodeBase Entries:	13