A musical thingy. You'll need a sound for this. The one i used is from the DBP media folder.
numsounds=58 `this is the most notes you can have with the lowest as 700, since the highest sound speed you can set is 100000
load sound "Hit bath.wav",1 `this sound can be found in the DBP media folder, under "impacts"
for n=2 to numsounds:clone sound n,1:next n `Make as many sounds as have notes
base_frequency#=700:note_up#=2.0^(0.125):frequency#=base_frequency# `the lowest frequency you can set is 100
for n=1 to numsounds:set sound speed n,frequency#:frequency#=frequency#*note_up#:next n `an increase of 1 octave is eight notes and a factor 2 in frequency
dim key(numsounds):dim lastpress(numsounds) `something so note doesn't keep starting whilst key is pressed
for n=1 to numsounds:key(n)=n:next n
`keys are ordered as the scancodes go
`this means that qwerty... is a line of notes, as is 123456, asdfg... etc, but some wierd ones are dotted around the keyboard
`do a google image search for "scancodes" and you should be able to get up a diagram of the keyboard
do
for n=1 to numsounds
press=keystate(key(n))
if press>lastpress(n):play sound n:endif
lastpress(n)=press
next n
loop
You'll be able to click on this someday.
