TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Music

Version: 1.0

Information

Uploaded: 20th Jul 2004 00:40

Modified: 1st Jan 1970 01:00

Author: dj BlackDragon

Summary

A cool little juke box.Give me credit if you use it.

Full Description

A cool little juke box. Give me credit if you use it.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Dragon Jukebox

`Author: Ian Calvert(aka dj BlackDragon)

`7/19/04

`main start screen:

cls

start$ = "Lets get Jammin! Press s to start"

start2$ = "Dragon JukeBox"

fade = 0

repeat

set text size 40

set text to bold

ink rgb(055,055,255),0

center text 300,200,start2$

set text size 15

set text to normal

if fade = 0 then fadedir = 1

if fade = 255 then fadedir = 0

if fadedir = 1 then fade = fade + 5

if fadedir = 0 then fade = fade - 5

ink rgb(fade,fade,fade),0

center text 300,350,start$

sync

until scancode() = 31

`music menu(type the name of the song you want in there in all spots)

cls

ink rgb(255,255,255),0

text 20,120,"Rampatrouille"

text 20,160,"(I just wanna be a) Drummer"

text 20,200,"satisfaction"

repeat

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(255,255,0),0 : text 20,120,"Rampatrouille"

if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"Rampatrouille"

if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto play_song

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(255,255,0),0 : text 20,160,"(I just wanna be a) Drummer"

if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"(I just wanna be a) Drummer"

if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then goto play_song2

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(255,255,0),0 : text 20,200,"satisfaction"

if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"satisfaction"

if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then goto play_song3

until false

`Play the song selected

play_song:

CLS

LOAD CDMUSIC 11,2

PLAY MUSIC 2

goto graphics

play_song2:

CLS

LOAD CDMUSIC 1,3

PLAY MUSIC 3

goto graphics_2

play_song3:

cls

load cdmusic 3,5

play music 5

goto graphics_3

`lets add graphics! matrix beat thingy this could also be a screen saver

graphics:

ink rgb(055,055,255), rgb(0,0,0) : set text opaque : hide mouse

sync on : sync rate 0

this:

waitup=200 : oldx=mousex() : oldy=mousey()

cls

while scancode()<1 and mouseclick()<1

x=rnd(640) : y=rnd(400)

set cursor x,y : a=rnd(1) : wait 5 : print a

set cursor x,y+15 : a=rnd(1) : wait 5 : print a

set cursor x,y+30 : a=rnd(1) : wait 5 : print a

set cursor x,y+45 : a=rnd(1) : wait 5 : print a

set cursor x,y+60 : a=rnd(1) : wait 5 : print a

set cursor 0, 460

print " "

dec waitup,1

if waitup<0 then goto this

sync

endwhile

`graphics 2 the second color matrix style beat thingy

graphics_2:

ink rgb(0,255,0), rgb(0,0,0) : set text opaque : hide mouse

sync on : sync rate 0

here2:

waitup=200 : oldx=mousex() : oldy=mousey()

cls

while scancode()<1 and mouseclick()<1

x=rnd(640) : y=rnd(400)

set cursor x,y : a=rnd(1) : wait 5 : print a

set cursor x,y+15 : a=rnd(1) : wait 5 : print a

set cursor x,y+30 : a=rnd(1) : wait 5 : print a

set cursor x,y+45 : a=rnd(1) : wait 5 : print a

set cursor x,y+60 : a=rnd(1) : wait 5 : print a

set cursor 0, 460

print " "

dec waitup,1

if waitup<0 then goto here2

sync

endwhile

`graphics 3 which is 3d bouncing boxes

graphics_3:

rem set sync rate

sync on : sync rate 20

hide mouse

rem number of cubes to see

numobjects=4

rem red/blue only flag

redblueonly=0

rem size of cubes

size=100/numobjects

rem red/blue separation factor

sep#=0.055

rem z offset of world

zoffset=200

rem x,y,z point of a cube

dim x(numobjects)

dim y(numobjects)

dim z(numobjects)

rem x,y,z direction forward or back of each axis

dim xdir(numobjects)

dim ydir(numobjects)

dim zdir(numobjects)

rem speed of each axis

dim xspd(numobjects)

dim yspd(numobjects)

dim zspd(numobjects)

rem spin

dim spinspd(numobjects)

dim spin(numobjects)

for i=0 to numobjects-1

rem start each object in a random direction

xdir(i)=rnd(1)

ydir(i)=rnd(1)

zdir(i)=rnd(1)

rem start each object at a random position

x(i)=rnd(300)-150

y(i)=rnd(300)-150

z(i)=rnd(300)-150

rem start each object at a random speed

xspd(i)=rnd(5)+2

yspd(i)=rnd(5)+2

zspd(i)=rnd(5)+2

rem start spin

spinspd(i)=rnd(5)

spin(i)=rnd(360)

next i

rem create the objects

for i=0 to numobjects-1

rem make objects

make object cube i*2+1, size

make object cube i*2+2, size

rem color objects

color object i*2+1, rgb(255, 0, 0)

color object i*2+2, rgb(0, 0, 255)

rem make object transparent

ghost object on i*2+1

ghost object on i*2+2

next i

rem set background to black

color backdrop rgb(0,0,0)

sync

if escapekey() then break

rem move each object a little bit

for i=0 to numobjects-1

rem calculate a new position for object

if xdir(i)=1 then x(i)=x(i)+xspd(i) else x(i)=x(i)-xspd(i)

if ydir(i)=1 then y(i)=y(i)+yspd(i) else y(i)=y(i)-yspd(i)

if zdir(i)=1 then z(i)=z(i)+zspd(i) else z(i)=z(i)-zspd(i)

rem bounds check (bounce if out of bounds)

bounce=0

if x(i)>100 then x(i)=100 : xdir(i)=0 : xspd(i)=rnd(5)+2 : bounce=1

if x(i)<-100 then x(i)=-100 : xdir(i)=1 : xspd(i)=rnd(5)+2 : bounce=1

if y(i)>75 then y(i)=75 : ydir(i)=0 : yspd(i)=rnd(5)+2 : bounce=1

if y(i)<-50 then y(i)=-50 : ydir(i)=1 : yspd(i)=rnd(5)+2 : bounce=1

if z(i)>250 then z(i)=250 : zdir(i)=0 : zspd(i)=rnd(5)+2 : bounce=1

if z(i)<-125 then z(i)=-125 : zdir(i)=1 : zspd(i)=rnd(5)+2 : bounce=1

rem if bounce change color

if bounce

`color

r=210+rnd(255-210)

b=rnd(255-128)+128

if (b+g)<200 then b=200-g

rem color objects

if redblueonly

color object i*2+1, rgb(r, 0, 0)

color object i*2+2, rgb(0,055, b)

else

color object i*2+1, rgb(r, 0, 0)

color object i*2+2, rgb(0, g, b)

endif

rem if bounce change spin speed

spinspd(i)=rnd(5)

endif

rem set object to new calculated position

position object i*2+1, (0-z(i))*sep#+x(i),y(i),z(i)+zoffset

position object i*2+2, x(i),y(i),z(i)+zoffset

rem spin the object a little bit

spin(i)=wrapvalue(spin(i)+spinspd(i))

rem make object spin every direction

rotate object i*2+1, spin(i), spin(i), spin(i)

rotate object i*2+2, spin(i), spin(i), spin(i)

next i

rem update screen

sync

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Dragon JukeBox

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	dj BlackDragon
CodeBase Entries:	3