Techwizz/Gobligine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rescue sounds added

Browse source
This commit is contained in:
johns 2000-04-25 23:32:17 +00:00
parent 179a776ee0
commit 3f7946c5ec
1 changed files with 6 additions and 2 deletions

8
src/sound/script_sound.cpp
View file

@ -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;
}
}