MoonBase2 - Any sound experts out there?

[LordVaderUK]

I am just about to publish (makes it sound very grand) the new version of my MoonBase adventure, with an expanded map and new puzzles. I'll be looking for testers so if that sounds interesting please keep an eye out here

One suggestion from a previous tester was to add some sound. I haven't got a clue how to programme sounds and the ones I want are very simple, so I wonder if anyone has already got these...

I need...

• a happy sort of computer 'bing' noise
• a sad sort of computer 'bong' noise DONE
• a 'whoosh' noise
• a 'rocket' noise DONE
• a sort of beepitidy boop robot noise
• a noise that can be used as a warning or alarm DONE

That's about it. Any suggestions?!

[lurkio]

My understanding of sound on the Beeb is terrible, but have a look at these, from a magazine article, I think:

Code: Select all

   10REM Crash landing
   20ENVELOPE 1,3,-17,61,9,4,0,0,126,0,0,-126,126,126
   30SOUND 4,1,157,129
   40SOUND 4,-15,245,45
   50END
   60REM Boing    
   70ENVELOPE1,1,10,25,10,5,5,5,126,0,0,-126,126,126
   80FORI%=1TO10
   90SOUND1,1,80,5
  100TIME=0:REPEATUNTILTIME>25
  110NEXT
  120END
  130REM Music of the spheres
  140ENVELOPE 3,6,16,9,-5,2,2,2,126,0,0,-126,126,126
  150SOUND3,3,169,47
  160END
  170REM Wasp
  180ENVELOPE 2,1,1,-2,1,7,5,12,126,0,0,-126,126,126
  190SOUND 1,2,60,100
  200GOTO180
  210REM Singing alien
  220FORJ%=540TO190STEP-15
  230SOUND1,-15,J%,1
  240FORH=2TO35
  250NEXT
  260NEXT
  270END
  280REM High dive
  290FORX=150TO1STEP-1
  300IF X=1 GOTO350
  310SOUND1,-15,X,1
  320NEXT X
  330FORY=1TO1000
  340NEXT Y
  350TIME=0:REPEATUNTILTIME>25
  360SOUND0,-15,4,20
  370END
  380REM Piano scale
  390SOUND1,-15,0,60
  400FOR P=8TO200STEP4
  410SOUND1,-15,P,2
  420NEXT P
  430END

[lurkio]

Try these too:

Code: Select all

ENVELOPE 2,3,2,-4,4,50,50,50,127,0,0,0,126,0
SOUND 1,2,1,10
SOUND 2,2,100,1
SOUND 3,2,200,1

ENVELOPE 1,1,-26,-36,-45,255,255,255,127,0,0,0,126,0 
SOUND 1,1,1,1

10 ENVELOPE 2,1,2,-2,2,10,20,10,1,0,0,-1,100,100 
20 SOUND 1,2,100,100

10 ENVELOPE 3,25,16,12,8,1,1,1,10,-10,0,-10,100,50
20 SOUND 1,3,100,100

10 ENVELOPE 1,1,0,0,0,0,0,0,2,0,-10,-5,120,0
20 SOUND 1,1,100,100

10 ENVELOPE 2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120
20 SOUND 1,2,100,100

10 ENVELOPE 3,7,2,1,1,1,1,1,121,-10,-5,-2,120,120
20 SOUND 1,3,100,100

10 ENVELOPE 4,1,0,0,0,0,0,0,61,0,-10,-120,120,0
20 SOUND 1,4,100,100

10 ENVELOPE 1,8,1,-1,1,1,1,1,121,-10,-5,-2,120,1
20 SOUND 1,1,100,100

ENVELOPE 1,1,0,0,0,0,0,0,50,0,0,-50,126,126
SOUND 1,1,1,20

100 ENVELOPE1,1,1,-1,1,1,2,1,30,0,0,-30,126,126 
110 FOR N=100 TO 180 STEP 4
120 SOUND1,1,N,10
130 SOUND1,0,0,2
140 NEXT N 
150 END

ENVELOPE 1,1,-4,127,10,131,101,141,126,0,0,-126,126,126
SOUND &11,1,0,100

ENVELOPE 2,1,2,-2, 2, 10, 20, 10, 1, 0, 0,-1, 100, 100
SOUND 1,2,100,100

   10REM >CREEPY
   30REM From P.132 of Creative Sound.
   40L%=3:D%=20 
   50ENVELOPE 1,6,-1,1,-1,1,1,1,126,-1,0,-10,126,0
   70SOUND2,0,0,L%
   80SOUND3,0,0,L%*2
   90FORI%=0TO4:IFI%=4D%=D%+50
  100P%=RND(24)*4
  110SOUND1,1,P%,D%
  120SOUND2,1,P%-1,D%
  130SOUND3,1,P%+1,D%
  140NEXT
  

Each sound effect is separated from the next by a blank line. Press Break in BeebEm after trying each one.

[LordVaderUK]

Helpful, thanks. I've also done a fair bit of googling to look for example programs and have turned up a couple of examples which I can use.

Still looking for a few more though (see original post). If only there was some sort of sound archive out there for BBC BASIC...!

[lurkio]

Still looking for a few more though (see original post). If only there was some sort of sound archive out there for BBC BASIC...!

More possibilities:

• viewtopic.php?t=4802#p43883

[iamaran]

Is this of any use? BBC Micro Graphics and Sound by Steve Money.

http://8bs.com/othrdnld/manuals/publica ... _Money.zip