Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / Simple .Wav Player

Author

Message

TheMaster

Years of Service

User Offline

Joined: 14th Mar 2003

Location: United States

Posted: 28th Apr 2003 21:53 Edited at: 28th Apr 2003 21:54

Link

This is just a simple, very quick, sound player! Enjoy!

+ Code Snippet


rem Creator: Joe Smith
rem Set the cursor to type Sound Blaster and change ink
wav:
cls
ink 3443489988,0
set cursor 210,0:print "Sound Blaster"
rem Input a wav format sound
input ".Wav?",wav$
wav2$=".wav"
wav3$=wav$+wav2$
if file exist(wav3$) then load sound 1,wav3$:play sound 1:suspend for key: goto wav else cls:ink 3443489988,0:print ".Wav does not exist!":suspend for key:goto wav
end

Destroyer's are not killers they are programmers!

Profile PM Email Website

Pal

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 4th May 2003 06:30

Link

its cool

I am da man! Beware of my LAZER EYES!

Profile PM

Server time is: 2024-04-26 23:34:41
Your offset time is: 2024-04-26 23:34:41