Computer Science Canada

Music File
Author:  Fukith [ Sat Mar 05, 2005 3:49 pm ]
Post subject:  Music File
Hello, I am doing a Apprentice game, but my aprentice file will not play... its on desktop and it is a .wav file.... any suggestions??
Author:  Flikerator [ Sat Mar 05, 2005 4:01 pm ]
Post subject: 
Music.PlayFileLoop ( ".wav" )
Author:  person [ Sat Mar 05, 2005 4:34 pm ]
Post subject: 
Music.Play ("name.wav")

or

Music.Play ("location.wav")

if u only type the name it will look in the same folder that turing is saved to
Author:  Flikerator [ Sat Mar 05, 2005 5:23 pm ]
Post subject: 
person wrote:
Music.Play ("name.wav")

or

Music.Play ("location.wav")

if u only type the name it will look in the same folder that turing is saved to


But with those you will have to use a process...
Author:  person [ Sat Mar 05, 2005 8:37 pm ]
Post subject: 
so does the command u gave him

wat does ur last post mean??
Author:  Flikerator [ Sat Mar 05, 2005 8:54 pm ]
Post subject: 
person wrote:
so does the command u gave him

wat does ur last post mean??

Music.PlayFileLoop will play music, like Music.PlayFile, except you don't need to fork it.

Try it out and you will see what I mean. Example;

code:

Music.PlayFileLoop("FileName.mid")
put "hi"


code:

Music.PlayFile("FileName.mid")
put "hi"


Make sure to actually play a music file or else it will look the same.
Author:  EvoX [ Sat Mar 05, 2005 9:00 pm ]
Post subject:  no
nop doesnt work
Author:  person [ Sat Mar 05, 2005 9:03 pm ]
Post subject: 
1) maybe u can give us some of ur code?

2) y did u start another thread? obsessed with spamming?? (i was once like u *tear*tear*)
Author:  Flikerator [ Sat Mar 05, 2005 9:13 pm ]
Post subject: 
Nop doesnt work doesnt help you. Say why, the error you got. Probably just giving the wrong location for your program.


C:\Program Files\Turing\Crawling.mid

Thats a wrong directory. You need;

C:/Program Files/Turing/Crawling.mid

Reverse the slashes.
Author:  EvoX [ Sat Mar 05, 2005 9:23 pm ]
Post subject:  yess yess
Ok thanks it works.... music file was corrupt in turing..? o well

Next Question:

I want this in my back ground with the text... How do i do it?

code:

setscreen ("graphic,title: The Apprentice By: Andrew Saggiorato,nobuttonbar")
colourback (black)
cls

process DoMusic
    loop
        Music.PlayFile ("Apprentice.wav")
    end loop
end DoMusic

fork DoMusic

var word : string := " Do You Have What It Takes?"
var cola : int := 30
colorback (black)
for row : 1 .. 25
    for col : 1 .. 80
        put " " ..
    end for
end for
color (white)
for a : 1 .. length (word)
    locate (22, cola)
    cola += 1
    put word (a)
    delay (100)
end for

for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
var hold : int
for i : 1 .. 200
    hold := Rand.Int (0, maxx)
    drawfillbox (hold, 0,hold+Rand.Int (10,20), Rand.Int (0, 100), 7)
end for
Author:  mwachna [ Sat Mar 05, 2005 9:26 pm ]
Post subject: 
i don't mean to be a nay sayer....but the slashes DO go that way

its c:\ (see colen back slash)
and http://

different prompts use different signs...and just so we don't mix the ftp up
it ftp>
not ftp<

and I agree...that was not the brightest thing making a new thread...isn't this kid suppose to be intellegent?!

-matt
-Go T-Cats!-
Author:  mwachna [ Sat Mar 05, 2005 9:27 pm ]
Post subject: 
you want what in the back ground?!
Author:  EvoX [ Sat Mar 05, 2005 9:32 pm ]
Post subject:  .
see how my program starts off by saying "Do you have what it takes?
I want that text and style in the stary building night background how can i do that?
Author:  mike200015 [ Sat Mar 05, 2005 9:40 pm ]
Post subject: 
isnt Music.Play to make your own music... like music notes... just like in the play command Question
Author:  mwachna [ Sat Mar 05, 2005 9:41 pm ]
Post subject: 
code:
colorback (black)
for row : 1 .. 25
    for col : 1 .. 80
        put " " ..
    end for
end for
color (white)


are these suppose to be your "stars"?

you might want to rethink the way you did that...first the colour needs to be set before you try to write black on black...secondly...maybe you might want to try using maxcol and maxrow...its just easier....and thirdly...why are you outputting inviewable spaces?!
Author:  Flikerator [ Sat Mar 05, 2005 9:41 pm ]
Post subject: 
mwachna wrote:
i don't mean to be a nay sayer....but the slashes DO go that way

its c:\ (see colen back slash)
and http://

different prompts use different signs...and just so we don't mix the ftp up
it ftp>
not ftp<

and I agree...that was not the brightest thing making a new thread...isn't this kid suppose to be intellegent?!

-matt
-Go T-Cats!-


code:
put "/"


then try this

code:
put "\"


you will get an error. if you want the backslash you have to do another one.
code:

put "\\"


Whenever you have a backslash in a qoute it means you can use any character. Usually a ".

Example;

code:
put "\""


Actually try it out.

Thats why in Turing you must reverse the slashes to get a file. Or put two of them. If you put two backslashes it donates one to saying "The next character can be used" and so the second backslash is just a regular backslash.
Author:  mwachna [ Sat Mar 05, 2005 9:45 pm ]
Post subject: 
I did not know that. Thanks, I learn something new everyday.

Im tossin ya 4 bits for that one!

Thanks!

-matt
-Go T-Cats!-
Author:  Flikerator [ Sat Mar 05, 2005 9:58 pm ]
Post subject: 
mwachna wrote:
I did not know that. Thanks, I learn something new everyday.

Im tossin ya 4 bits for that one!

Thanks!

-matt
-Go T-Cats!-


Thanks ^^;
Author:  EvoX [ Sat Mar 05, 2005 10:27 pm ]
Post subject: 
Ill Show You

% Intro
setscreen ("graphic,title: The Apprentice By: Andrew Saggiorato,nobuttonbar")
colourback (black)
cls

% Play Music
process DoMusic
loop
Music.PlayFile ("Apprentice.wav")
end loop
end DoMusic

fork DoMusic

% Font Effects
var word : string := " Do You Have What It Takes?"
var cola : int := 30
colorback (black)
for row : 1 .. 25
for col : 1 .. 80
put " " ..
end for
end for
color (white)
for a : 1 .. length (word)
locate (22, cola)
cola += 1
put word (a)
delay (100)
end for

% Desired Star Background, I want this background with the text above..
for decreasing i : maxy .. 0
RGB.SetColour (1, 0, 0, i * (1 / maxy))
Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
var x := Rand.Int (0, maxx)
var y := Rand.Int (150, maxy)
var c := Rand.Int (16, 31)
Draw.Dot (x, y, c)
end for

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
var hold : int
for i : 1 .. 200
hold := Rand.Int (0, maxx)
drawfillbox (hold, 0,hold+Rand.Int (10,20), Rand.Int (0, 100), 7)
end for
Author:  EvoX [ Sat Mar 05, 2005 10:29 pm ]
Post subject: 
o yea and thanks for the music code here ya go... you can have alll my bits:)
Author:  mwachna [ Sat Mar 05, 2005 10:56 pm ]
Post subject: 
That was very generous of ya!...thanks

-matt
-Go T-Cats!-

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy