Random Terrain's Tetraternarium

Congratulations on losing your sound effects virginity.

Congratulations on losing your sound effects virginity.

I hope I don't get a sound effects STD.

I tried making some sounds recently but it just doesn't work... Could you post the code for your sound so i can take a look at how it's done right?

I tried making some sounds recently but it just doesn't work... Could you post the code for your sound so i can take a look at how it's done right?

I wouldn't consider this to be a great example of what to do. I'm thinking of converting it using the Music Starter using sdata:

 

http://www.atariage.com/forums/index.php?showtopic=134784

 

I don't know which would be best. Anyway, here's the code:

 

  set kernel_options player1colors no_blank_lines
 set smartbranching on

start

 rem  *****************************************************
 rem  *  Create aliases for variables
 rem  *****************************************************
 dim nact=n
 dim nmem=o
 dim ncount=p
 dim nfreq=q
 dim nvol=r
 dim rand16=z

 const noscore=1



 rem  *****************************************************
 rem  *
 rem  *  Main game loop starts here.
 rem  *
 rem  *****************************************************
gameloop

 if joy0fire then nact=nact+1 : if nact=1 then AUDF0 = 30 : nfreq=30 : nvol=12 : nmem = 0

 if nact = 0 then skip_ball_noise
 if nmem = 1 then sb01
 nfreq = nfreq + 1 : temp5=(nfreq&3) : nvol=nvol-temp5
 if nfreq = 32 then nfreq =0
 if nfreq = 14 then nmem = 1 :nvol=3
 AUDC0 = 6
 if nfreq=31 || nfreq =0 then AUDC0 = 14
 AUDV0 = nvol
 AUDF0=nfreq
 goto skip_ball_noise
sb01

 
 nfreq = nfreq - 1 : temp5=(nfreq&3) : if temp5 = 1 then nvol=nvol+1
 if nfreq = 255 then AUDF0 = 31 : nfreq =31
 AUDC0 = 6
 if nfreq=31 || nfreq =0 then AUDC0 = 14
 AUDV0 = nvol
 AUDF0=nfreq
 if nfreq = 30 then AUDV0 = 0 : AUDC0 = 0 : ncount=0 : nact=0
skip_ball_noise


drawscreen

 goto gameloop

...

I don't know which would be best. Anyway, here's the code:

Thanks!