From cccbfbd627788f2d4f0a5b92b7e3b69222cb9377 Mon Sep 17 00:00:00 2001
From: johns <>
Date: Wed, 26 Apr 2000 00:32:17 +0000
Subject: [PATCH] rescue sounds added
---
sound/script_sound.cpp | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/sound/script_sound.cpp b/sound/script_sound.cpp
index 14463e71a..e54e88499 100644
--- a/sound/script_sound.cpp
+++ b/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;
}
}