From 3f7946c5ec9ab57da7ad36a981d9e91a4ab2958d Mon Sep 17 00:00:00 2001
From: johns <>
Date: Tue, 25 Apr 2000 23:32:17 +0000
Subject: [PATCH] rescue sounds added
---
src/sound/script_sound.cpp | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/sound/script_sound.cpp b/src/sound/script_sound.cpp
index 14463e71a..e54e88499 100644
--- a/src/sound/script_sound.cpp
+++ b/src/sound/script_sound.cpp
@@ -275,7 +275,7 @@ local SCM CclDefineGameSounds(SCM list) {
} else if ( gh_eq_p(name,gh_symbol2scm("orc-rescue")) ) {
GameSounds.OrcRescue.Sound=CCL_SOUND_ID(data);
} else {
- fprintf(stderr,"Incorrect symbol\n");
+ fprintf(stderr,"Incorrect symbol %s\n",gh_scm2newstr(name,NULL));
return list;
}
}
@@ -592,8 +592,12 @@ local SCM CclDefineGameSounds(SCM list) {
GameSounds.PlacementSuccess.Sound=CCL_SOUND_ID(data);
DebugLevel3("SoundPlacementSuccess %p\n",
GameSounds.PlacementSuccess.Sound);
+ } else if ( gh_eq_p(name,gh_symbol2scm("human-rescue")) ) {
+ GameSounds.HumanRescue.Sound=CCL_SOUND_ID(data);
+ } else if ( gh_eq_p(name,gh_symbol2scm("orc-rescue")) ) {
+ GameSounds.OrcRescue.Sound=CCL_SOUND_ID(data);
} else {
- fprintf(stderr,"Incorrect symbol\n");
+ fprintf(stderr,"Incorrect symbol %s\n",gh_scm2newstr(name,NULL));
return list;
}
}