Some old piece of code i had hidden in my projects folder, i decided to downsize it abit and post it here
Here's what it does:
it records whatever is said in the mic, and then keeps looping it!
(oh and the single record deleting doesnt work 100%)
bug note: keep R pressed longer then a second or it might give a sound not found error
sec=20 : if path exist("save")=0 : make directory "save" : endif : set dir "save" : maindir$=get dir$() : sync on : dim length(10) : number=1 : do : cls : if inkey$()="r" and recording=0 : recording=1 : record sound number,sec*1000 : time=timer() : endif : if inkey$()="" and recording=1 and timer()-time>1000 : stop recording sound : length(number)=timer()-time : recording=0 : loop sound number : inc number : endif
print "S to save, L to load, E to clear all, and D delete one, R to record" : Print "Name: "+soundname$ : for x=1 to number-1 : print "Playing sound: "; x; " | "; length(x)/1000; "s | " : next x : x=0 : if inkey$()="s" : gosub wheresave : endif : if inkey$()="l" : input "Number?: ", lnum : gosub load : endif : if inkey$()="e" : gosub clear : endif : if inkey$()="d" : input "Number?: ", dnum : delete(dnum) : endif : sync : loop
wheresave::repeat : a=a+1 : name$=str$(a) : until path exist(name$)=0 : a=0 : make directory name$ : set dir name$ : for z=1 to number-1 : save sound "sound"+str$(z)+".wav",z : next z : z=0 : soundname$=name$ : repeat : until scancode()=0 : set dir maindir$ : return
load::gosub clear : set dir str$(lnum) : z=0 : repeat : inc z : load sound "sound"+str$(z)+".wav",z : until file exist("sound"+str$(z+1)+".wav")=0 : number=z+1 : soundname$=str$(lnum) : for e=1 to number-1 : loop sound e : next e : e=0 : repeat : until scancode()=0 : set dir maindir$ : return
clear::for y=1 to number-1 : stop sound y : delete sound y : next y : y=0 : number=1 : return
function delete(dnum) : if sound exist(dnum) : stop sound dnum : delete sound dnum : endif : endfunction
(too bad it only works for people with a microphone)
