TheGameCreators - CodeBase

Category: Sound / Music

Version: 1.0

Information

Uploaded: 2nd Sep 2006 12:21

Modified: 1st Jan 1970 01:00

Author: Darkhorse 186

Summary

I made this in about an hour. I cant get the music to play when it is an exe file though. if you know y it wasnt working please comment.

Full Description

DarkBASIC 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 0

buttonselected=0

if makebutton(530,315,"Load and play music")>0 then buttonselected=1

if makebutton(320,240,"Stop")>0 then buttonselected=2

if makebutton(530,240,"Pause")>0 then buttonselected=3

if makebutton(320,315,"Resume")>0 then buttonselected=4

if makebutton(320,165,"Play")>0 then buttonselected=5

if makebutton(530,165,"Loop")>0 then buttonselected=6

if buttonselected=1

input "Enter track number->" ,1

Load cdmusic 1,1 : play music 1

endif

if buttonselected=2

Stop music 1

endif

if buttonselected=3

Pause music 1

endif

if buttonselected=4

resume music 1

endif

if buttonselected=5

Play music 1

endif

if buttonselected=6

loop music 1

endif

if spacekey()=1 then buttonpressed=3

sync

loop

function makebutton(x,y,desc$)

buttonpressed=0

ink rgb(10,3,235),0 : box x-102,y-34,x+102,y+34

ink rgb(210,30,30),0 : box x-100,y-32,x+100,y+32

ink rgb(64,190,69),0

myx=mousex() : myy=mousey()

if myx>x-100 and myx<x+100

if myy>y-32 and myy<y+32

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

set text size 18 : center text x,y-8,desc$

if mouseclick()=0 then buttonpressed=0

endfunction buttonpressed

Download

Please login to download

Comments

No comments yet.

CodeBase - CD Player

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Darkhorse 186
CodeBase Entries:	1