sound: Allow title music to be replaced

As a demo, this includes an initial demonstration file that changes the
title music.

Makefile.am

@@ -12,7 +12,7 @@ EXTRA_DIST = $(AUX_DIST_GEN) $(DOC_FILES) \
              embuild.sh \
              icon.png \
              maps/README.md maps/original.sop maps/empty.sop \
-             maps/tank_strike.sop maps/triplane.sop
+             maps/tank_strike.sop maps/triplane.sop maps/bogey.sop
 
 MAINTAINERCLEANFILES = $(AUX_DIST_GEN)
 

maps/bogey.sop

@@ -0,0 +1,14 @@
+// Example file that changes the title music to "Colonel Bogey":
+
+sounds {
+	title_tune:
+	"<e4/c+4/r4/r4/r4/c+4/d4/e4/>c+4/r4/c+4/r4/a4/r4/r4/r4/"&
+	"<e4/c+4/r4/r4/r4/c+4/d4/c+4/e4/r4/e4/r4/d4/r4/r4/r4/"&
+	"d4/b4/r4/r4/r4/b4/c+4/d4/e4/c+4/r4/r4/r4/"&
+	"c+4/d+4/c+4/b4/e4/r4/c+4/d+4/b4/r4/f+4/e4/"&
+	"r8/f+8/e4/r8/f+8/e4/d4/c+4/b4/"&
+	"e4/c+4/r4/r4/r4/c+4/d4/e4/>c+4/r4/c+4/r4/a4/r4/r4/r4/"&
+	"<e4/c+4/r4/r4/r4/c+4/d4/c+4/e4/r4/e4/r4/d4/r4/r4/r4/"&
+	"d4/b4/r4/r4/r4/f+4/g+4/f+4/>a4/<e4/r4/r4/r4/"&
+	"e4/d4/c+4/b4/f+4/r4/a4/<g+4/>e4/r4/e4/a4/r2/"
+}

src/swgames.c

@@ -18,6 +18,7 @@
 
 #include "sw.h"
 #include "swgames.h"
+#include "swsound.h"
 #include "video.h"
 #include "yocton.h"
 
@@ -362,6 +363,20 @@ static void process_symbol(const char *name, struct yocton_object *obj)
 	}
 }
 
+static void process_sounds(struct yocton_object *obj)
+{
+	struct yocton_prop *p;
+	char *title_tune = NULL;
+
+	while ((p = yocton_next_prop(obj)) != NULL) {
+		YOCTON_VAR_STRING(p, "title_tune", title_tune);
+	}
+
+	if (title_tune != NULL) {
+		expltune = title_tune;
+	}
+}
+
 static void process_symbols(struct yocton_object *obj)
 {
 	struct yocton_prop *p;
@@ -405,6 +420,9 @@ void load_custom_level(const char *filename)
 		if (!strcmp(name, "symbols")) {
 			process_symbols(yocton_prop_inner(p));
 		}
+		if (!strcmp(name, "sounds")) {
+			process_sounds(yocton_prop_inner(p));
+		}
 	}
 
 	if (yocton_have_error(obj, &lineno, &error_msg)) {

src/swsound.c

@@ -45,7 +45,7 @@ static int exploctv;			/*  Octave                          */
 
 //#define SOPWITH1_TUNE
 
-static char *expltune =
+char *expltune =
 #ifdef SOPWITH1_TUNE
 	">e4./d8/c4/d4/e4/d+4/e4/c4/d4/d4/d4/d1/"
 	"d4./c8/b4/c4/d4/c+4/d4/b4/c4/c4/c4/c1/<g4./g+8/"

src/swsound.h

@@ -27,9 +27,12 @@ extern void sound(int type, int parm, OBJECTS *ob);
 extern void swsound(void);
 extern void initsound(OBJECTS *obp, int type);
 extern void stopsound(OBJECTS *ob);
+extern void swsndupdate(void);
+
 extern OBJECTS *ob;
 extern unsigned freq;
 extern unsigned  modulo;
-extern void swsndupdate(void);
+extern char *expltune;
+
 
 #endif