Extra Songs:

To add extra songs in the game just put this simple code in the input part (in this case a song 3): add a line: music3={0};

Just switch {0} to {1} to activate the new song. And of course add a code to the song as follows (example):

Just replace "music3" with the music code, this can be done on the line where the other songs are in the code or even at the end of the game code. It works the same.

• music3 example (more elaborate song):

Below is the code of a song a little more elaborate to be the music3, where there are several instruments (4 – guitar, panflute, bass, synthdrum) with a musical base, the main instrument is still random but more harmonized with the sound in general:

If[FromDigits[music3] == 1, 
 mma = {-20, -19, -17, -15, -13, -12, -10, -8, -7, -5, -3, -1, 0, 2, 
   4};
 mma1 = Partition[
   If[Count[mma, _]/2 \[Element] Integers, mma, 
    Join[mma, {RandomChoice[Take[mma, -1]]}]], {2}];
 mma2 = Partition[
   If[Count[mma, _]/3 \[Element] Integers, mma, 
    Join[mma, {RandomChoice[Take[mma, {-2, -1}]]}]], {3}];
 mma3 = Partition[
   If[Count[mma, _]/4 \[Element] Integers, mma, 
    Join[mma, {RandomChoice[Take[mma, {-3, -1}]]}]], {4}];
 mma4 = Partition[
   If[Count[mma, _]/5 \[Element] Integers, mma, 
    Join[mma, {RandomChoice[Take[mma, {-4, -1}]]}]], {5}];
 mmaa1 = Sound[
   Table[SoundNote[i1, SoundVolume -> 1/2], {i1, 
     Flatten[Table[
       RandomSample[
        Table[RandomSample[
          FromDigits[
           Take[Join[mma1, mma2, mma2, mma3, mma3, mma3, 
             mma4], {i}]]], {i, 1, 
          Count[Join[mma1, mma2, mma2, mma3, mma3, mma3, mma4], _]}]],
        22]]}], {0, 600}];
 mmaa2 = Sound[
   Table[SoundNote[i2, SoundVolume -> 1/2], {i2, 
     Flatten[
      Table[{-8, -8, -5, -5, -10, -10, -3, -3, -8, -8, -7, -7, -12, \
-12}, 64]]}], {0, 600}];
 mmaa3 = Sound[
   Table[SoundNote[i3, SoundVolume -> 7/12], {i3, 
     Flatten[Table[{-8, -8, -8, -3, -3, -3, -5, -5, -1, -1}, 
       80]]}], {0, 600}];
 mmaa4 = Sound[
   Table[SoundNote[i4, SoundVolume -> 1/3], {i4, 
     Flatten[Table[{-8, -5, -8, -5, -3, -5, -3, -5, -10, -10, 4, 4}, 
       100]]}], {0, 600}];
 Sound[{"Guitar", mmaa1, "PanFlute", mmaa2, "Bass", mmaa3, 
   "SynthDrum", mmaa4}], Null]

( just add this code to the game code and enjoy a new and a little more elaborate sample music )

Thanks.