noisytoot/notnotdnethack
1
0
Fork 0
mirror of https://codeberg.org/noisytoot/notnotdnethack.git synced 2024-11-21 16:55:06 +00:00
Code Issues Activity
notnotdnethack/src/music.c
Ron Nazarov 34aaaf57e1
Replace FDECL, NDECL, VDECL, and E macros with their definitions 
E as in the alias for extern, not the completely different E that's an
alias for EXPLOSION used in objects.c.
2024-05-06 00:28:05 +01:00

2072 lines
63 KiB
C
Raw Permalink Blame History

/* SCCS Id: @(#)music.c 3.4 2003/05/25 */
/* Copyright (c) 1989 by Jean-Christophe Collet */
/* NetHack may be freely redistributed. See license for details. */
/*
* This file contains the different functions designed to manipulate the
* musical instruments and their various effects.
*
* Currently the list of instruments / effects is :
*
* (wooden) flute may calm snakes if player has enough dexterity
* magic flute may put monsters to sleep: area of effect depends
* on player level.
* (tooled) horn Will awaken monsters: area of effect depends on player
* level. May also scare monsters.
* fire horn Acts like a wand of fire.
* frost horn Acts like a wand of cold.
* bugle Will awaken soldiers (if any): area of effect depends
* on player level.
* (wooden) harp May calm nymph if player has enough dexterity.
* magic harp Charm monsters: area of effect depends on player
* level.
* (leather) drum Will awaken monsters like the horn.
* drum of earthquake Will initiate an earthquake whose intensity depends
* on player level. That is, it creates random pits
* called here chasms.
*
* There is a new skill called 'musicalize', referring to the ability
* of 'casting' spells in the form of songs. -- ABA
*/
#include "hack.h"
#include "skills.h"
static void awaken_monsters(int);
static void put_monsters_to_sleep(int);
static void charm_snakes(int);
static void calm_nymphs(int);
static void charm_monsters(int);
static int do_improvisation(struct obj *);
static void tame_song(int);
static void sleep_song(int);
static void scary_song(int);
static void confusion_song(int);
static void cancel_song(int);
static void rally_song(int);
static unsigned char songs_menu(struct obj *);
static int play_song(void);
static void slowness_song(int);
static void haste_song(int);
static void heal_song(int);
static void encourage_pets(int);
struct songspell {
short sp_id;
char *name;
xchar level;
xchar turns;
int instr1; /* this instrument can play this music */
int instr2; /* this one has a bonus to successfully play this song */
};
#define SNG_NONE 0
#define SNG_IMPROVISE 99
#define SNG_NOTES 98
#define SNG_PASSTUNE 97
/* same order and indices as below */
//define SNG_FEAR 1
//define SNG_SLEEP 2
//define SNG_HEAL 3
//define SNG_RLLY 4
//define SNG_CONFUSION 5
//define SNG_HASTE 6
//define SNG_CNCL 7
//define SNG_SLOW 8
//define SNG_TAME 9
//define SNG_COURAGE 10
#define SNG_FIRST SNG_FEAR
#define SNG_LAST SNG_COURAGE
#define SNG_IMPROVISE_CHAR 'x'
#define SNG_NOTES_CHAR 'n'
#define SNG_PASSTUNE_CHAR 'p'
#define is_friendly_song(song) (song == SNG_HEAL || song == SNG_RLLY || song == SNG_HASTE || song == SNG_TAME || song == SNG_COURAGE)
/* songs based on enchantment spells must be the first ones on list, because of
SNG_LAST_ENCHANTMENT */
const struct songspell songs[] = {
/* sp_id name level turns instr1 instr2 */
{ 0, "None", 0, 1, 0, 0 },
{ SPE_CAUSE_FEAR, "Fear", 1, 6, DRUM, TOOLED_HORN },
{ SPE_SLEEP, "Lullaby", 1, 4, HARP, FLUTE },
{ SPE_EXTRA_HEALING,"Meditative Healing",1,4, HARP, FLUTE },
{ SPE_TELEPORT_AWAY,"Rally", 1, 1, TOOLED_HORN, BUGLE },
{ SPE_CONFUSE_MONSTER, "Cacophony", 2, 5, DRUM, TOOLED_HORN },
{ SPE_HASTE_SELF, "Charge", 2, 5, DRUM, BUGLE },
{ SPE_CANCELLATION, "Disruption", 2, 5, BUGLE, TOOLED_HORN },
{ SPE_SLOW_MONSTER, "Lethargy", 2, 5, FLUTE, HARP },
{ SPE_CHARM_MONSTER,"Friendship", 3, 6, FLUTE, HARP },
{ SPE_CAUSE_FEAR, "Inspire Courage", 3, 3, DRUM, BUGLE }
/* random ideas that weren't implemented -- based in spells from other schools
{ SPE_CURE_BLINDNESS, "Cause Blindness"
{ SPE_CURE_SICKNESS, "Cause Sickness"
{ SPE_POLYMORPH, "Change?", poly pets to higher level monster temporarily
{ SPE_FORCE_BOLT, "Shatter", shatter glass/wood/stone objects
not spell based
{ ? "Shout/Sound Burst", area damage
{ ? "Silence", monster spells fail
{ ? "Ventriloquism", makes monster think you're at a given location
{ ? "Rage", pet uses special attack
*/
};
static schar song_delay; /* moves left for this song */
struct obj *song_instr; /* musical instrument being played */
int instr_otyp; /* type of musical instrument being played */
uchar song_played = SNG_NONE; /* song being played (songs[] index)*/
boolean song_penalty; /* instrument penalty (see do_play_instrument) */
static int petsing; /* effect of pets singing with the player */
static int monsing; /* effect of monsters countersinging against the player */
static long petsing_lastcheck = 0L; /* last time pets were checked */
static long monsing_lastcheck = 0L; /* last time monsters were checked */
static char msgbuf[BUFSZ];
/*
* Ugly kludge. Returns the song being played at the moment.
* We cannot check song_played directly because if the song was interrupted,
* we have no means to reset song_played.
*/
static int
song_being_played(void)
{
if (occupation != play_song)
song_played = SNG_NONE;
return song_played;
}
static void
reset_song(void)
{
song_played = SNG_NONE;
song_delay = 0;
song_penalty = 0;
/* song_lastturn = 0L;*/
}
/* music being played is at its last turn? */
#define SNG_FIRST_TURN (song_being_played() == SNG_NONE ? \
FALSE : (song_delay == songs[song_being_played()].turns))
/**
* Checks if this pet can sing, helping the player, returning a bonus
*/
int
pet_can_sing(struct monst *mtmp, boolean domsg)
{
int r = 0;
boolean plural = FALSE;
if (song_being_played() == SNG_NONE) return 0;
if (mtmp->mtemplate == ZOMBIFIED
|| mtmp->mtemplate == CRYSTALFIED
|| mtmp->mtemplate == TOMB_HERD
|| mtmp->mtemplate == YITH
|| mtmp->mtemplate == M_BLACK_WEB
|| mtmp->mtemplate == SLIME_REMNANT
|| mtmp->mtemplate == YELLOW_TEMPLATE
|| mtmp->mtemplate == DREAM_LEECH
|| mtmp->mtemplate == MINDLESS
)
return 0;
if ((mtmp->mcanmove) && (!mtmp->msleeping) && (!Conflict)
&& !mtmp->mberserk && (!mtmp->mconf) && (!mtmp->mflee)
&& (!mtmp->mcan) && (distu(mtmp->mx, mtmp->my) <= 25)) {
/* bards sing */
if(is_bardmon(mtmp->data))
r = rnd(20) + mtmp->m_lev;
/* nymphs and some elves sing along harps */
else if ((instr_otyp == HARP)
&& (mtmp->data->mlet == S_NYMPH || is_elf(mtmp->data)
|| mtmp->data->mlet == S_CHA_ANGEL
|| mtmp->mtyp == PM_ANGEL
|| mtmp->mtyp == PM_ITINERANT_PRIESTESS
|| mtmp->data->mlet == S_NYMPH)
&& !(is_drow(mtmp->data) || mtmp->mtyp == PM_WEEPING_ANGEL || mtmp->mtyp == PM_OONA)
&& (mtmp->mhp*2 > mtmp->mhpmax))
r = max(10,(mtmp->data->mlet == S_NYMPH ? mtmp->m_lev*2 : mtmp->m_lev));
/* parrots (and other birds?) sing along flutes */
else if ((instr_otyp == FLUTE)
&& (mtmp->mtyp == PM_PARROT
|| mtmp->data->mlet == S_CHA_ANGEL
|| mtmp->mtyp == PM_ITINERANT_PRIESTESS
)
&& (mtmp->mhp*2 > mtmp->mhpmax))
r = max(10,(mtmp->data->mlet == S_NYMPH ? mtmp->m_lev*2 : mtmp->m_lev));
/* undeads sing along horns */
else if ((instr_otyp == TOOLED_HORN)
&& (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_MUMMY
|| mtmp->data->mlet == S_VAMPIRE || mtmp->data->mlet == S_WRAITH
|| mtmp->data->mlet == S_DEMON || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_SHADE || mtmp->mtyp == PM_OONA
|| mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN))
r = max(10,(mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
? mtmp->m_lev*2 : mtmp->m_lev));
/* orcs and ogres sing along (shout, actually) drums and bugles */
else if ((instr_otyp == DRUM || instr_otyp == BUGLE)
&& (mtmp->data->mlet == S_ORC
|| mtmp->data->mlet == S_OGRE
|| (mtmp->mtyp == PM_TRUMPET_ARCHON && MON_WEP(mtmp) && !mtmp->mcan)
|| mtmp->data->mlet == S_GIANT))
r = max(10, mtmp->m_lev);
if(has_template(mtmp, MISTWEAVER)){
r += r/5;
plural = TRUE;
}
}
if (domsg && (r > 0)){
if (canseemon(mtmp)) {
if (mtmp->mtyp == PM_LILLEND){
pline("%s's lovely %s your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (is_bardmon(mtmp->data)){
pline("%s skillfully sings along with your song!", Monnam(mtmp));
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
|| mtmp->data->mlet == S_VAMPIRE
){
pline("%s's dreadful %s your song!", Monnam(mtmp), plural ? "voices chant" : "voice chants");
}
else if (mtmp->data->mlet == S_MUMMY || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_WRAITH || mtmp->data->mlet == S_SHADE
|| mtmp->mtyp == PM_OONA
){
pline("%s mourns while you play!", Monnam(mtmp));
}
else if (mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN){
pline("%s caws and croaks while you play!", Monnam(mtmp));
}
else if (mtmp->mtyp == PM_PARROT){
pline("%s whistles while you play!", Monnam(mtmp));
}
else if (mtmp->data->mlet == S_NYMPH){
pline("%s's charming %s along!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (mtmp->data->mlet == S_CENTAUR){
pline("%s's strong %s along!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if ((mtmp->mtyp == PM_TRUMPET_ARCHON && MON_WEP(mtmp) && !mtmp->mcan)){
pline("%s plays along on %s trumpet!", Monnam(mtmp), hisherits(mtmp));
}
else if (mtmp->data->mlet == S_ORC || mtmp->data->mlet == S_OGRE || mtmp->data->mlet == S_GIANT){
if(plural)
pline("%s many mouths shout!", s_suffix(Monnam(mtmp)));
else
pline("%s shouts!", Monnam(mtmp));
}
else {
pline("%s sings while you play!", Monnam(mtmp));
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
} else {
if (mtmp->mtyp == PM_LILLEND)
You_hear("a lovely voice singing your song!");
else if (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
|| mtmp->data->mlet == S_VAMPIRE)
You_hear("a horrible voice chanting your song!");
else if (mtmp->data->mlet == S_MUMMY || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_WRAITH || mtmp->data->mlet == S_SHADE
|| mtmp->mtyp == PM_OONA )
You_hear("someone mourning while you play!");
else if (mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN)
You_hear("something caw and croak while you play!");
else if (mtmp->mtyp == PM_PARROT)
You_hear("something whistle while you play!");
else if (mtmp->data->mlet == S_NYMPH)
You_hear("a charming voice singing along!");
else if (mtmp->data->mlet == S_CENTAUR)
You_hear("a strong voice sing along!");
else if ((mtmp->mtyp == PM_TRUMPET_ARCHON && MON_WEP(mtmp) && !mtmp->mcan))
pline("a trumpet playing along!");
else if (mtmp->data->mlet == S_ORC || mtmp->data->mlet == S_OGRE || mtmp->data->mlet == S_GIANT)
You_hear("a shout!");
else
You_hear("someone singing while you play!");
}
}
return r;
}
int
mon_can_counter_sing(struct monst *mtmp, boolean domsg)
{
int r = 0;
boolean plural = FALSE;
if (song_being_played() == SNG_NONE) return 0;
if (mtmp->mtemplate == ZOMBIFIED
|| mtmp->mtemplate == CRYSTALFIED
|| mtmp->mtemplate == TOMB_HERD
|| mtmp->mtemplate == YITH
|| mtmp->mtemplate == M_BLACK_WEB
|| mtmp->mtemplate == SLIME_REMNANT
|| mtmp->mtemplate == YELLOW_TEMPLATE
|| mtmp->mtemplate == DREAM_LEECH
|| mtmp->mtemplate == MINDLESS
)
return 0;
//Ill-regard specimens are unconscious
// So are prisoners
if(nonthreat(mtmp)){
return 0;
}
if ((mtmp->mcanmove) && (!mtmp->msleeping)
&& (!mtmp->mconf) && (!mtmp->mflee) && (!mtmp->mcan)
&& (distu(mtmp->mx, mtmp->my) <= 25)) {
if(mtmp->mtyp == PM_DREAD_SERAPH)
r = -2*mtmp->m_lev;
else if(mtmp->mtyp == PM_AGLAOPE || mtmp->mtyp == PM_ELVENKING || mtmp->mtyp == PM_BAELNORN)
r = -1*(rnd(20) + mtmp->m_lev/3);
else if(mtmp->mtyp == PM_LILLEND)
r = -1*(rnd(20) + mtmp->m_lev);
else if ((instr_otyp == HARP || instr_otyp == FLUTE)
&& (mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN))
r = -1*(mtmp->m_lev);
else if (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
|| mtmp->data->mlet == S_VAMPIRE)
r = -1*(mtmp->m_lev);
else if (mtmp->data->mlet == S_MUMMY || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_WRAITH || mtmp->data->mlet == S_SHADE
|| mtmp->mtyp == PM_OONA)
r = -2*(mtmp->m_lev);
else if (mtmp->mtyp == PM_PARROT)
r = -1*(mtmp->m_lev);
else if (!(instr_otyp == HARP || instr_otyp == FLUTE)
&& mtmp->data->mlet == S_NYMPH)
r = -3*(mtmp->m_lev);
else if (mtmp->data->mlet == S_CENTAUR)
r = -1*(mtmp->m_lev);
else if (instr_otyp != DRUM
&& (mtmp->data->mlet == S_ORC || mtmp->data->mlet == S_OGRE || mtmp->data->mlet == S_GIANT))
r = (instr_otyp == HARP || instr_otyp == FLUTE) ? -2*(mtmp->m_lev) : -1*(mtmp->m_lev);
if(has_template(mtmp, MISTWEAVER)){
r -= r/5;
plural = TRUE;
}
}
if (domsg && (r < 0)){
if (canseemon(mtmp)) {
if(mtmp->mtyp == PM_DREAD_SERAPH){
pline("%s's terrible %s in opposition to your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
}
else if (mtmp->mtyp == PM_LILLEND){
pline("%s's lovely %s in opposition to your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (mtmp->mtyp == PM_AGLAOPE){
pline("%s's mocking %s in opposition to your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
}
else if (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
|| mtmp->data->mlet == S_VAMPIRE
){
pline("%s's dreadful %s in opposition to your song!", Monnam(mtmp), plural ? "voices chant" : "voice chants");
}
else if (mtmp->data->mlet == S_MUMMY || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_WRAITH || mtmp->data->mlet == S_SHADE
|| mtmp->mtyp == PM_OONA
){
pline("%s wails in opposition to your song!", Monnam(mtmp));
}
else if (mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN){
pline("%s caws and croaks in opposition to your song!", Monnam(mtmp));
}
else if (mtmp->mtyp == PM_PARROT){
pline("%s squawks in opposition to your song!", Monnam(mtmp));
}
else if (mtmp->data->mlet == S_NYMPH){
pline("%s's charming %s in opposition to your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (mtmp->data->mlet == S_CENTAUR && !is_drow(mtmp->data)){
pline("%s's strong %s in opposition to your song!", Monnam(mtmp), plural ? "voices sing" : "voice sings");
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
else if (mtmp->data->mlet == S_ORC || mtmp->data->mlet == S_OGRE || mtmp->data->mlet == S_GIANT){
if(plural)
pline("%s many mouths shout down your song!", s_suffix(Monnam(mtmp)));
else
pline("%s shouts down your song!", Monnam(mtmp));
}
else {
pline("%s sings in opposition to your song!", Monnam(mtmp));
if(plural)
pline("%s many mouths sing in harmony!", HisHerIts(mtmp));
}
} else {
if(mtmp->mtyp == PM_DREAD_SERAPH)
You_hear("a terrible voice singing in opposition to your song!");
else if (mtmp->mtyp == PM_LILLEND)
You_hear("a lovely voice singing in opposition to your song!");
else if (mtmp->mtyp == PM_AGLAOPE)
You_hear("a mocking voice singing in opposition to your song!");
else if (mtmp->data->mlet == S_LICH || mtmp->data->mlet == S_DEMON
|| mtmp->data->mlet == S_VAMPIRE)
You_hear("a horrible voice chanting in opposition to your song!");
else if (mtmp->data->mlet == S_MUMMY || mtmp->data->mlet == S_GHOST
|| mtmp->data->mlet == S_WRAITH || mtmp->data->mlet == S_SHADE
|| mtmp->mtyp == PM_OONA)
You_hear("someone wailing in opposition to your song!");
else if (mtmp->mtyp == PM_CROW || mtmp->mtyp == PM_RAVEN)
You_hear("something caws and croaks in opposition to your song!");
else if (mtmp->mtyp == PM_PARROT)
You_hear("something squak in opposition to your song!");
else if (mtmp->data->mlet == S_NYMPH)
You_hear("a charming voice singing in opposition to your song!");
else if (mtmp->data->mlet == S_CENTAUR && !is_drow(mtmp->data))
You_hear("a strong voice sing in opposition to your song!");
else if (mtmp->data->mlet == S_ORC || mtmp->data->mlet == S_OGRE || mtmp->data->mlet == S_GIANT)
You_hear("something shouting down your song!");
else
You_hear("someone singing in opposition to your song!");
}
}
return r;
}
/** Singing pets bonus for this turn.
* Calculates the bonus of all singing pets (see above), if not yet done
* for this turn
*/
static int
singing_pets_effect(void)
{
register struct monst *mtmp;
if (song_being_played() == SNG_NONE) return 0;
if (monstermoves != petsing_lastcheck) {
petsing_lastcheck = monstermoves;
petsing = 0;
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon){
if(DEADMONSTER(mtmp))
continue;
if (mtmp->mtame)
petsing += pet_can_sing(mtmp, TRUE);
}
}
return petsing;
}
static int
counter_singing_effect(void)
{
register struct monst *mtmp;
if (song_being_played() == SNG_NONE) return 0;
if (monstermoves != monsing_lastcheck) {
monsing_lastcheck = monstermoves;
monsing = 0;
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon){
if(DEADMONSTER(mtmp))
continue;
if (!mtmp->mtame)
monsing += mon_can_counter_sing(mtmp,TRUE);
}
}
return monsing;
}
/** Chance of succesfully playing a song.
* Depends on dexterity, different from the chance of the song actually affecting
* the creature, which depends more on charisma than dexterity.
*/
int
song_success(int song_id, struct obj *instr, int know_spell)
{
int a;
int chance;
//TODO: must check if the spell is still memorized
if (!know_spell)
return 0;
if((instr->otyp == DRUM || instr->otyp == DRUM_OF_EARTHQUAKE) && song_id == SNG_FEAR)
chance = 100;
else if(instr->otyp == DRUM || instr->otyp == DRUM_OF_EARTHQUAKE)
chance = ( ACURR(A_STR) * 2 * (P_SKILL(P_MUSICALIZE)-P_UNSKILLED+1) + u.ulevel)
- (songs[song_id].level * (instr->blessed ? 15 : 20));
else chance = ( ACURR(A_DEX) * 2 * (P_SKILL(P_MUSICALIZE)-P_UNSKILLED+1) + u.ulevel)
- (songs[song_id].level * (instr->blessed ? 15 : 20));
if (instr->oartifact || instr_otyp == songs[song_id].instr2)
chance = (chance*3)/2;
// /* not easy to play 'peaceful' music when badly injured */
// if (u.uhp < u.uhpmax * 0.3 &&
// (song_id == SNG_SLEEP || song_id == SNG_TAME || song_id == SNG_HASTE || song_id == SNG_HEAL)
// ) chance /= 2;
/* actually, when the pressure's on give a bonus to songs. Otherwise you have a glass-cannon type effect */
if (u.uhp < u.uhpmax * 0.3) chance *= 2;
/* it's also difficult to play some instruments while wearing a shield. */
if (uarms && (instr_otyp == HARP || instr_otyp == DRUM))
chance /= 2;
/* but it's easier with the eyes closed */
if (Blind) chance += u.ulevel;
if (instr->oartifact == ART_LYRE_OF_ORPHEUS && (song_id != SNG_RLLY && song_id != SNG_HEAL && song_id != SNG_SLEEP && song_id != SNG_TAME))
chance /= 2;
if (chance > 100) chance = 100;
if (chance < 0) chance = 0;
return chance;
}
/**
* Shows the music menu.
* Returns a SNG_* identifier
*/
static unsigned char
songs_menu(struct obj *instr)
{
char buf[BUFSZ];
winid tmpwin;
anything any;
menu_item *selected;
int a,b;
int song, know_spell;
char hardtoplay;
tmpwin = create_nhwindow(NHW_MENU);
start_menu(tmpwin);
any.a_void = 0; /* zero out all bits */
Sprintf(buf, "(songs marked with # have a bonus with this instrument)");
add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_NONE, buf, MENU_UNSELECTED);
add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_NONE, "", MENU_UNSELECTED);
Sprintf(buf, " Song Level Turns Fail");
add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_BOLD, buf, MENU_UNSELECTED);
/* improvise option */
any.a_int = SNG_IMPROVISE;
add_menu(tmpwin, NO_GLYPH, &any, SNG_IMPROVISE_CHAR, 0, ATR_NONE,
"improvise", MENU_UNSELECTED);
if(instr->otyp != DRUM && instr->otyp != DRUM_OF_EARTHQUAKE){
/* play notes option */
any.a_int = SNG_NOTES;
add_menu(tmpwin, NO_GLYPH, &any, SNG_NOTES_CHAR, 0, ATR_NONE,
"a sequence of notes", MENU_UNSELECTED);
/* play the passtune option */
if (u.uevent.uheard_tune == 2) {
any.a_int = SNG_PASSTUNE;
add_menu(tmpwin, NO_GLYPH, &any, SNG_PASSTUNE_CHAR, 0, ATR_NONE,
"passtune", MENU_UNSELECTED);
}
}
if(mad_turn(MAD_TOO_BIG)){
Sprintf(buf, "It's too big!");
add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_BOLD, buf, MENU_UNSELECTED);
}
else for (a = SNG_FIRST; a <= SNG_LAST; a++) {
/* For a song to be available in the menu:
- Need a suitable instrument (the Lyre of Orpheus can play any song)
- Must know the related spell (Bards already know all songs)
*/
// know_spell = (Role_if(PM_BARD) && a <= SNG_LAST_ENCHANTMENT);
know_spell = (Role_if(PM_BARD) || (u.sealsActive&SEAL_ORTHOS));
if (!know_spell)
for (b = 0; b < MAXSPELL; b++)
if (spl_book[b].sp_id == songs[a].sp_id)
know_spell = TRUE;
if (know_spell && (instr->oartifact == ART_LYRE_OF_ORPHEUS
|| instr_otyp == songs[a].instr1 || instr_otyp == songs[a].instr2)) {
any.a_int = a+1;
if (instr->oartifact == ART_LYRE_OF_ORPHEUS)
hardtoplay = (a == SNG_FEAR || a == SNG_COURAGE || a == SNG_CONFUSION || a == SNG_SLOW || a == SNG_CNCL ? ' ' : '#');
else
hardtoplay = (songs[a].instr1 == instr_otyp ? ' ' : '#');
Sprintf(buf, "%-20s %i %i %c %3i%%", songs[a].name,
songs[a].level, songs[a].turns,
hardtoplay,
100 - song_success(a, instr, know_spell));
add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_NONE,
buf, MENU_UNSELECTED);
}
}
Sprintf(buf, "Play which song with the %s?", xname(instr));
end_menu(tmpwin, buf);
a = select_menu(tmpwin, PICK_ONE, &selected);
if (a > 0)
song = selected[0].item.a_int - (selected[0].item.a_int >= SNG_PASSTUNE ? 0 : 1);
else
song = SNG_NONE;
/* if (song > 0) song--; */
free((void *)selected);
destroy_nhwindow(tmpwin);
return song;
}
/** Returns a positive number if monster is affected by song, or a negative number
* if monster resisted it.
* The number means the difference between the song 'attack' level and the monster
* resistance level against it.
* Charisma weights more than dexterity, different from the chance of
* successfully playing the song, which depends on dexterity.
*/
int
resist_song(struct monst *mtmp, int song, struct obj *instr)
{
/* atack level, defense level, defense level before modifiers */
int alev, dlev, dlev0;
int showmsg;
char *msg;
if(is_deaf(mtmp)) return -100;
showmsg = (song_delay == songs[song_played].level + 3) && canseemon(mtmp);
msg = (void *)0;
/* Attack level */
//alev = min(P_SKILL(P_MUSICALIZE) - songs[song].level + 1, 0);
if(instr->otyp == DOLL_OF_FRIENDSHIP)
alev = ((P_EXPERT*18)+15)/3;
else {
alev = P_SKILL(P_MUSICALIZE) - P_UNSKILLED + 1;
alev = ( (alev * ACURR(A_CHA)) + ACURR(A_DEX) ) / 3;
}
// blessed/cursed instruments make it a little easier/harder to 'cast' the song
alev += bcsign(instr)*5;
// account for pets that can sing with the bard's song
alev += max(0, singing_pets_effect() - song_delay);
// account for monsters that can counter-sing against the bard's song
alev += min(0, counter_singing_effect() + song_delay);
if(alev < 0){
alev = 0;
}
// polymorphed into something that can't sing
if (is_silent(youracedata) && instr->otyp != DOLL_OF_FRIENDSHIP)
alev /= 2;
/* Defense level */
dlev = (int)mtmp->m_lev*2;
if (nonliving(mtmp->data) && mindless_mon(mtmp)) dlev = 100;
dlev0 = dlev;
/* "peaceful" songs */
if (song == SNG_SLEEP || song == SNG_TAME || song == SNG_HASTE || song == SNG_HEAL) {
if (mindless_mon(mtmp)) dlev += dlev0/10;
if (is_animal(mtmp->data)) dlev -= dlev0/10; // music calm the beasts
if (is_domestic(mtmp->data)) dlev -= dlev0/10;
if (likes_magic(mtmp->data)) dlev += dlev0/5;
if (your_race(mtmp->data)) dlev -= dlev0/10;
// undead and demons don't care about 'peaceful' music
if (is_undead(mtmp->data) || is_demon(mtmp->data)) dlev += 50;
if (always_hostile_mon(mtmp)) dlev += dlev0/10;
if (race_peaceful(mtmp->data)) dlev -= dlev0/10;
// rats like music from flutes (The Pied Piper of Hamelin)
if (mtmp->data->mlet == S_RODENT && instr_otyp == FLUTE) {
dlev -= dlev0/5;
if (showmsg) msg = "%s seems to briefly swing with your music.";
}
// angels like the sound of harps
if ((mtmp->mtyp == PM_ANGEL) && (instr_otyp == HARP))
dlev -= dlev0/5;
// snakes (and nagas) also like music from flutes
if (((mtmp->data->mlet == S_SNAKE) || (mtmp->data->mlet == S_NAGA))
&& (instr_otyp == FLUTE)) {
dlev -= dlev0/5;
if (showmsg) msg = "%s briefly dances with your music.";
}
// the Lyre of Orpheus is very good at peaceful music
if (instr->oartifact == ART_LYRE_OF_ORPHEUS)
alev += (P_SKILL(P_MUSICALIZE) - P_UNSKILLED) * 5;
// finally, music will do little effect on monsters if they're badly injured
if (mtmp->mhp < mtmp->mhpmax*0.3) {
dlev *= 5;
if(song == SNG_HEAL) dlev *= -1;
else if (SNG_FIRST_TURN && showmsg)
msg = "%s cares more about surviving than listening to your music!";
} else if (mtmp->mhp < mtmp->mhpmax*0.6) {
dlev *= 2;
if(song == SNG_HEAL) dlev *= -1;
else if (SNG_FIRST_TURN && showmsg)
msg = "%s is too hurt to listen closely to your song.";
}
} else if (song == SNG_FEAR || song == SNG_CONFUSION || song == SNG_CNCL) {
int canseeu;
// the Lyre isn't so good to scare people or to sow confusion
if (instr->oartifact == ART_LYRE_OF_ORPHEUS) alev /= 2;
// undeads and demons like scary music
if (song == SNG_FEAR && is_undead(mtmp->data)) dlev -= dlev0/3;
if (song == SNG_FEAR && is_demon(mtmp->data)) dlev -= dlev0/5;
// monster is scared/confused easily if it can't see you
canseeu = m_canseeu(mtmp);
if (!canseeu) dlev -= dlev0/5;
// but its harder to confuse it if it can see you
if (song == SNG_CONFUSION && canseeu) dlev += dlev0/5;
} else if (song == SNG_COURAGE || song == SNG_RLLY) {
/* when badly injured, it's easier to encourage others */
if (u.uhp < u.uhpmax * 0.6) alev *= 2;
if (u.uhp < u.uhpmax * 0.3) alev *= 3;
/* hostile monsters are easily encouraged */
if (always_hostile_mon(mtmp)) dlev -= dlev0/5;
if (race_hostile(mtmp->data)) dlev -= dlev0/5;
if (is_mercenary(mtmp->data)) dlev -= dlev0/5;
}
if (dlev < 1) dlev = is_mplayer(mtmp->data) ? u.ulevel : 1;
if (song_penalty) alev /= 2;
if(is_friendly_song(song) && dlev < 100) return (alev - 1); //might have been countersung, or you might suck at this
//or your pet might be highly resistant to music, and so you need a choir
alev += rnd(20)-10; /*Almost the same average, more variability*/
// if (wizard)
// pline("[%s:%i/%i]", mon_nam(mtmp), alev, dlev);
if (alev >= dlev && msg != (void *)0)
pline(msg, Monnam(mtmp));
return (alev - dlev);
}
static int
play_song(void)
{
register struct monst *mtmp;
int distance;
distance = ((P_SKILL(P_MUSICALIZE)) + (u.ulevel/10) + 1);
if(P_SKILL(P_MUSICALIZE) > P_BASIC) distance += P_SKILL(P_MUSICALIZE) - P_BASIC;
distance = distance*distance + 1;
if(instr_otyp == DRUM) distance = distance*4/3;
///* songs only have effect after the 1st turn */
//if (song_delay <= songs[song_played].level+2)
switch (song_being_played()) {
case SNG_SLEEP:
sleep_song(distance);
break;
case SNG_CONFUSION:
confusion_song(distance);
break;
case SNG_SLOW:
slowness_song(distance);
break;
case SNG_HASTE:
haste_song(distance);
break;
case SNG_HEAL:
heal_song(distance);
break;
case SNG_FEAR:
scary_song(distance);
break;
case SNG_COURAGE:
encourage_pets(distance);
break;
case SNG_TAME:
tame_song(distance);
break;
case SNG_CNCL:
cancel_song(distance);
break;
case SNG_RLLY:
rally_song(distance*4);
break;
}
song_delay--;
if (song_delay <= 0) {
reset_song();
use_skill(P_MUSICALIZE, 1);
exercise(A_DEX, TRUE);
/*if (songs[song_played].turns > 1)*/
You("finish the song.");
return MOVE_FINISHED_OCCUPATION;
}
return MOVE_STANDARD;
}
/* monster is affected by song if:
- not tamed; or
- if tamed, player's musicalize skill is only basic, AND tamed monster
isn't of any kind that sings with your song (considering peaceful
songs only)
Rationale: a skilled musician must be able to, say, make enemies sleep but
not his/her pets, but a less skilled one will end up affecting pets too.
*/
#define mon_affected_by_peace_song(mtmp) \
(!mtmp->mtame || \
(mtmp->mtame && (P_SKILL(P_MUSICALIZE) < P_BASIC) && \
mtmp->data->mlet != S_NYMPH && !is_elf(mtmp->data)))
#define mon_affected_by_song(mtmp) \
(!mtmp->mtame || \
(mtmp->mtame && (P_SKILL(P_MUSICALIZE) < P_BASIC)))
/** Fear song effects.
* Contributed by Johanna Ploog
*/
void
scary_song(int distance)
{
register struct monst *mtmp, *m = fmon;
register int r;
while(m) {
mtmp = m;
m = m->nmon;
r = resist_song(mtmp, SNG_FEAR, song_instr);
if (!DEADMONSTER(mtmp) && distu(mtmp->mx, mtmp->my) < distance &&
mon_affected_by_song(mtmp) && r >= 0) {
if (is_undead(mtmp->data) || is_demon(mtmp->data)) {
// small chance of side effect
r = r/songs[song_being_played()].turns;
// if (wizard) pline("[%i%% side effect]", r);
}
/* fear song actually can pacify undead */
if (is_undead(mtmp->data)) {
if (rn2(100) < r) {
if (canseemon(mtmp))
pline((Hallucination ? "%s starts to coreograph a dance!"
: (mtmp->data->mlet == S_LICH ?
"%s makes a sinister grin in approval of your music."
: "%s groans in the rhythm of your music.")),
Monnam(mtmp));
mtmp->mpeaceful = 1;
mtmp->mavenge = 0;
} else {
if (canseemon(mtmp) && SNG_FIRST_TURN)
pline("%s stops to %s your music for a moment.", Monnam(mtmp),
(Hallucination ? "smell" : "hear"));
mtmp->movement = 0;
}
} else if (is_demon(mtmp->data)) {
/* but angers demon lords */
if (is_dlord(mtmp->data) || is_dprince(mtmp->data)) {
pline("%s laughs fiendishly!", Monnam(mtmp));
verbalize("Thou playest thy own funeral march, weakling!");
mtmp->mpeaceful = 0;
mtmp->mavenge = 1;
} else if (rn2(100) < r) {
/* and can pacify normal demons */
if (canseemon(mtmp))
pline("%s makes a sinister grin in approval of your music.", Monnam(mtmp));
mtmp->mpeaceful = 1;
mtmp->mavenge = 0;
} else {
if (canseemon(mtmp) && SNG_FIRST_TURN)
pline("%s to %s your music for a moment.", Monnam(mtmp),
(Hallucination ? "smell" : "hear"));
mtmp->movement = 0;
}
} else {
monflee(mtmp,
min(1, P_SKILL(P_MUSICALIZE)-P_UNSKILLED) * 3,
FALSE, TRUE);
if (mtmp->mpeaceful && rn2(10)) {
mtmp->mpeaceful = 0;
}
}
/*
possible additions:
+ aggravate undeads
+ chance to unpacify peaceful (non-deaf) monsters
(humans are not affected by this, they're used to worse... ;-) )
*/
}
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_FEAR;
}
}
static void
slowness_song(int distance)
{
register struct monst *mtmp = fmon;
register int distm;
while(mtmp) {
if (!DEADMONSTER(mtmp) && distu(mtmp->mx, mtmp->my) < distance &&
mon_affected_by_peace_song(mtmp) && mtmp->data->mmove &&
resist_song(mtmp, SNG_SLOW, song_instr) >= 0) {
switch (P_SKILL(P_MUSICALIZE)) {
case P_UNSKILLED:
case P_BASIC:
mtmp->movement -= (NORMAL_SPEED/2);
break;
case P_SKILLED:
mtmp->movement -= (NORMAL_SPEED*3/4);
break;
case P_EXPERT:
mtmp->movement -= (NORMAL_SPEED-1);
break;
}
//mtmp->movement -= NORMAL_SPEED / (5 - max(1,P_SKILL(P_MUSICALIZE)-P_UNSKILLED));
if (SNG_FIRST_TURN && canseemon(mtmp))
pline("%s seems slower.", Monnam(mtmp));
if (u.uswallow && (mtmp == u.ustuck) &&
is_whirly(mtmp->data)) {
You("disrupt %s!", mon_nam(mtmp));
pline("A huge hole opens up...");
expels(mtmp, mtmp->data, TRUE);
}
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_LETHARGY;
}
}
static void
haste_song(int distance)
{
register struct monst *mtmp = fmon;
register int distm;
while(mtmp) {
if (!DEADMONSTER(mtmp) && distu(mtmp->mx, mtmp->my) < distance &&
mtmp->mtame && resist_song(mtmp, SNG_HASTE, song_instr) >= 0
) {
mtmp->movement += max(1,P_SKILL(P_MUSICALIZE))*3;
if (SNG_FIRST_TURN && canseemon(mtmp))
pline("%s moves quickly to attack.", Monnam(mtmp));
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_HASTE;
}
}
static void
heal_song(int distance)
{
register struct monst *mtmp = fmon;
register int distm;
while(mtmp) {
if (!DEADMONSTER(mtmp) && mtmp->mtame && mtmp->mhp < mtmp->mhpmax &&
distu(mtmp->mx, mtmp->my) < distance &&
resist_song(mtmp, SNG_HEAL, song_instr) >= 0
) {
mtmp->mcanmove = 0;
mtmp->mfrozen = 1;
if(song_delay - max(1,P_SKILL(P_MUSICALIZE)) > 0){
mtmp->mhp++;
} else {
mtmp->mhp += mtmp->m_lev;
if (canseemon(mtmp)) pline("%s looks %s!", Monnam(mtmp), Hallucination ? "mellow" : "well rested");
}
if(mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax;
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_HEALING;
}
}
static void
encourage_pets(int distance)
{
register struct monst *mtmp = fmon;
while(mtmp) {
if (!DEADMONSTER(mtmp) && mtmp->mtame && distu(mtmp->mx, mtmp->my) < distance &&
resist_song(mtmp, SNG_COURAGE, song_instr) >= 0) {
if (mtmp->encouraged < BASE_DOG_ENCOURAGED_MAX)
mtmp->encouraged = min(BASE_DOG_ENCOURAGED_MAX, mtmp->encouraged+(P_SKILL(P_MUSICALIZE)-P_UNSKILLED+1));
if (mtmp->mflee) {
switch (P_SKILL(P_MUSICALIZE)) {
case P_UNSKILLED:
case P_BASIC:
mtmp->mfleetim /= 2;
break;
case P_SKILLED:
mtmp->mfleetim /= 4;
break;
case P_EXPERT:
mtmp->mfleetim = 0;
break;
}
}
if (canseemon(mtmp)) {
if (Hallucination) {
pline("%s looks %s!", Monnam(mtmp),
mtmp->encouraged >= BASE_DOG_ENCOURAGED_MAX ? "way cool" :
mtmp->encouraged > (BASE_DOG_ENCOURAGED_MAX/2) ? "cooler" : "cool");
} else {
pline("%s looks %s!", Monnam(mtmp),
mtmp->encouraged >= BASE_DOG_ENCOURAGED_MAX ? "berserk" :
mtmp->encouraged > (BASE_DOG_ENCOURAGED_MAX/2) ? "wilder" : "wild");
}
}
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_COURAGE;
}
}
static void
confusion_song(int distance)
{
register struct monst *mtmp = fmon;
while(mtmp) {
if (!DEADMONSTER(mtmp) && !mtmp->mtame && !mtmp->mconf &&
distu(mtmp->mx, mtmp->my) < distance &&
resist_song(mtmp, SNG_CONFUSION, song_instr) >= 0) {
if (canseemon(mtmp))
pline("%s seems confused.", Monnam(mtmp));
mtmp->mconf = 1;
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_CONFUSE;
}
}
static void
cancel_song(int distance)
{
register struct monst *mtmp = fmon;
while(mtmp) {
if (!DEADMONSTER(mtmp) && !mtmp->mtame &&
distu(mtmp->mx, mtmp->my) < distance &&
resist_song(mtmp, SNG_CNCL, song_instr) >= 0) {
if (canseemon(mtmp))
pline("%s seems unable to focus.", Monnam(mtmp));
mtmp->mspec_used = min(max(1, mtmp->mspec_used + P_SKILL(P_MUSICALIZE)-P_UNSKILLED), 255);
// if(wizard) pline("mspec cooldown: %d", (int)mtmp->mspec_used);
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_CANCEL;
}
}
static void
rally_song(int distance)
{
register struct monst *mtmp = fmon, *nextmon;
while(mtmp) {
nextmon = mtmp->nmon;
if (!DEADMONSTER(mtmp) && mtmp->mtame &&
distu(mtmp->mx, mtmp->my) < distance &&
resist_song(mtmp, SNG_RLLY, song_instr) >= 0) {
if (mtmp->mtrapped) {
/* no longer in previous trap (affects mintrap) */
mtmp->mtrapped = 0;
fill_pit(mtmp->mx, mtmp->my);
}
switch (P_SKILL(P_MUSICALIZE)) {
case P_EXPERT:
set_mcan(mtmp, FALSE);
mtmp->mspec_used = 0;
mtmp->mcrazed = 0;
mtmp->mdisrobe = 0;
if(get_mx(mtmp, MX_EDOG) && EDOG(mtmp)->apport < 10) EDOG(mtmp)->apport++;
if(mtmp->permspeed == 0) mon_adjust_speed(mtmp, 1, (struct obj *) 0, TRUE);
case P_SKILLED:
if(!mtmp->mnotlaugh && mtmp->mlaughing){
mtmp->mnotlaugh = 1;
mtmp->mlaughing = 0;
}
if(!mtmp->mcansee && mtmp->mblinded){
mtmp->mcansee = 1;
mtmp->mblinded = 0;
}
mtmp->mberserk = 0;
mtmp->mdoubt = 0;
if(mtmp->mhp < mtmp->mhpmax && mtmp->mhp < mtmp->m_lev) mtmp->mhp = min(mtmp->m_lev,mtmp->mhpmax);
case P_BASIC:
if(!mtmp->mcanmove && mtmp->mfrozen){
mtmp->mcanmove = 1;
mtmp->mfrozen = 0;
}
if(mtmp->mstdy > 0) mtmp->mstdy = 0;
mtmp->mstun = 0;
mtmp->mconf = 0;
case P_UNSKILLED:
mtmp->msleeping = 0;
mtmp->mflee = 0;
mtmp->mfleetim = 0;
if(mtmp->permspeed == MSLOW) mon_adjust_speed(mtmp, 1, (struct obj *) 0, TRUE);
}
mnexto(mtmp);
if (mintrap(mtmp) == 2) change_luck(-1);
}
mtmp = nextmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_RALLY;
}
}
/*
* Wake every monster in range...
*/
static void
awaken_monsters(int distance)
{
register struct monst *mtmp = fmon;
register int distm;
while(mtmp) {
if (!DEADMONSTER(mtmp) && !is_deaf(mtmp)) {
distm = distu(mtmp->mx, mtmp->my);
if (distm < distance) {
mtmp->msleeping = 0;
if(mtmp->mtyp != PM_GIANT_TURTLE || !(mtmp->mflee)){
mtmp->mcanmove = 1;
mtmp->mfrozen = 0;
if(mtmp->mux == 0 && mtmp->muy == 0){
mtmp->mux = u.ux;
mtmp->muy = u.uy;
}
}
/* May scare or deafen some monsters */
if(sensitive_ears(mtmp->data)){
if (distm < distance/3 &&
!resist(mtmp, TOOL_CLASS, 0, NOTELL)
){
mtmp->mstun = 1;
mtmp->mconf = 1;
mtmp->mcanhear = 0;
mtmp->mdeafened = min(125, distance/3 - distm);
}
} else {
if (distm < distance/3 &&
!resist(mtmp, TOOL_CLASS, 0, NOTELL))
monflee(mtmp, 0, FALSE, TRUE);
}
}
}
mtmp = mtmp->nmon;
}
}
/*
* Wake every monster in range...
*/
void
song_noise(int distance)
{
register struct monst *mtmp = fmon;
register int distm;
while(mtmp) {
if (!DEADMONSTER(mtmp) && !is_deaf(mtmp)) {
distm = distu(mtmp->mx, mtmp->my);
if (distm < distance) {
mtmp->msleeping = 0;
if(mtmp->mux == 0 && mtmp->muy == 0){
mtmp->mux = u.ux;
mtmp->muy = u.uy;
}
/* May scare or deafen some monsters */
if(sensitive_ears(mtmp->data)){
if (distm < distance/3 &&
!resist(mtmp, TOOL_CLASS, 0, NOTELL)
){
mtmp->mstun = 1;
mtmp->mconf = 1;
mtmp->mcanhear = 0;
mtmp->mdeafened = min(125, distance/3 - distm);
}
}
}
}
mtmp = mtmp->nmon;
}
}
/*
* Make monsters fall asleep. Note that they may resist the spell.
*/
static void
sleep_song(int distance)
{
register struct monst *mtmp = fmon;
// to do: peaceful music can aggravate demons
while(mtmp) {
if (!DEADMONSTER(mtmp) && distu(mtmp->mx, mtmp->my) < distance &&
mon_affected_by_peace_song(mtmp) &&
!resists_sleep(mtmp) &&
resist_song(mtmp, SNG_SLEEP, song_instr) >= 0) {
/* pets, if affected, sleep less time */
mtmp->mfrozen = min( mtmp->mfrozen +
max(1, P_SKILL(P_MUSICALIZE)-P_UNSKILLED)
* (mtmp->mtame ? 2 : 3), 127);
// if (wizard)
// pline("[%s:%i turns]", mon_nam(mtmp), mtmp->mfrozen);
if (!mtmp->mcanmove) {
if (canseemon(mtmp) && flags.verbose && !rn2(10))
pline("%s moves while sleeping.", Monnam(mtmp));
} else {
mtmp->mcanmove = 0;
if (canseemon(mtmp) && flags.verbose)
pline("%s sleeps.", Monnam(mtmp));
}
slept_monst(mtmp);
}
mtmp = mtmp->nmon;
}
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_LETHARGY;
}
}
static void
put_monsters_to_sleep(int distance)
{
register struct monst *mtmp = fmon;
while(mtmp) {
if (!DEADMONSTER(mtmp) && distu(mtmp->mx, mtmp->my) < distance &&
sleep_monst(mtmp, d(10,10), TOOL_CLASS)) {
mtmp->msleeping = 1; /* 10d10 turns + wake_nearby to rouse */
slept_monst(mtmp);
}
mtmp = mtmp->nmon;
}
}
/*
* Charm snakes in range. Note that the snakes are NOT tamed.
*/
static void
charm_snakes(int distance)
{
register struct monst *mtmp = fmon;
int could_see_mon, was_peaceful;
while (mtmp) {
if (!DEADMONSTER(mtmp) && mtmp->data->mlet == S_SNAKE && mtmp->mcanmove &&
distu(mtmp->mx, mtmp->my) < distance) {
was_peaceful = mtmp->mpeaceful;
mtmp->mpeaceful = 1;
if(mtmp->mtyp == urole.neminum){
mtmp->mpeacetime = max(mtmp->mpeacetime, ACURR(A_DEX));
if(mtmp->mpeacetime < 1) mtmp->mpeacetime = 1;
}
mtmp->mavenge = 0;
could_see_mon = canseemon(mtmp);
mtmp->mundetected = 0;
newsym(mtmp->mx, mtmp->my);
if (canseemon(mtmp)) {
if (!could_see_mon)
You("notice %s, swaying with the music.",
a_monnam(mtmp));
else
pline("%s freezes, then sways with the music%s.",
Monnam(mtmp),
was_peaceful ? "" : ", and now seems quieter");
}
}
mtmp = mtmp->nmon;
}
}
/*
* Calm nymphs in range.
*/
static void
calm_nymphs(int distance)
{
register struct monst *mtmp = fmon;
while (mtmp) {
if (!DEADMONSTER(mtmp) && mtmp->data->mlet == S_NYMPH && mtmp->mcanmove &&
distu(mtmp->mx, mtmp->my) < distance) {
mtmp->msleeping = 0;
mtmp->mpeaceful = 1;
if(mtmp->mtyp == urole.neminum){
mtmp->mpeacetime = max(mtmp->mpeacetime, ACURR(A_DEX));
if(mtmp->mpeacetime < 1) mtmp->mpeacetime = 1;
}
mtmp->mavenge = 0;
if (canseemon(mtmp))
pline(
"%s listens cheerfully to the music, then seems quieter.",
Monnam(mtmp));
}
mtmp = mtmp->nmon;
}
}
/* Awake only soldiers of the level. */
void
awaken_soldiers(void)
{
register struct monst *mtmp = fmon;
while(mtmp) {
if (!DEADMONSTER(mtmp) &&
is_mercenary(mtmp->data) && mtmp->mtyp != PM_GUARD) {
mtmp->mpeaceful = mtmp->msleeping = mtmp->mfrozen = 0;
mtmp->mcanmove = 1;
if (canseemon(mtmp))
pline("%s is now ready for battle!", Monnam(mtmp));
else
Norep("You hear the rattle of battle gear being readied.");
}
mtmp = mtmp->nmon;
}
}
/* Charm monsters in range. Note that they may resist the spell.
* If swallowed, range is reduced to 0.
*/
static void
tame_song(int distance)
{
struct monst *mtmp=0, *mtmp2;
xchar waspeaceful;
if(SNG_FIRST_TURN){
if (u.uswallow) {
if (resist_song(u.ustuck, SNG_TAME, song_instr) >= 0) {
u.ustuck->moccupation = 1;
u.ustuck->mcanmove = 0;
}
} else if(getdir((char *)0) && (u.dx || u.dy)){
mtmp = m_at(u.ux+u.dx, u.uy+u.dy);
if (mtmp && !DEADMONSTER(mtmp) &&
resist_song(mtmp, SNG_TAME, song_instr) >= 0
) {
mtmp->moccupation = 1;
mtmp->mcanmove = 0;
}
}
}
if(song_delay > 1){
if (u.uswallow) {
if (u.ustuck->moccupation) {
if(!u.ustuck->mpeaceful || u.ustuck->mpeacetime){
u.ustuck->mpeaceful = TRUE;
u.ustuck->mpeacetime = max(u.ustuck->mpeacetime, (P_SKILL(P_MUSICALIZE)-P_UNSKILLED));
if(u.ustuck->mpeacetime < 1) u.ustuck->mpeacetime = 1;
}
}
} else {
mtmp = m_at(u.ux+u.dx, u.uy+u.dy);
if (mtmp && !DEADMONSTER(mtmp) && mtmp->moccupation
&& distu(mtmp->mx, mtmp->my) <= distance
) {
if(!mtmp->mpeaceful || mtmp->mpeacetime){
mtmp->mpeaceful = TRUE;
mtmp->mpeacetime = max(mtmp->mpeacetime, (P_SKILL(P_MUSICALIZE)-P_UNSKILLED));
if(mtmp->mpeacetime < 1) mtmp->mpeacetime = 1;
}
}
}
} else {
if (u.uswallow) {
if (u.ustuck->moccupation
&& resist_song(u.ustuck, SNG_TAME, song_instr) >= 0
) {
waspeaceful = u.ustuck->mpeaceful;
mtmp = tamedog(u.ustuck, (struct obj *) 0);
if(mtmp){
mtmp->mtame = min(max(1, P_SKILL(P_MUSICALIZE)-P_UNSKILLED)*2, 255);
EDOG(mtmp)->waspeaceful = waspeaceful;
if(!waspeaceful || mtmp->mpeacetime){ /*Should it become untame, remain tame peaceful for a short period of time*/
mtmp->mpeacetime = max(mtmp->mpeacetime, (P_SKILL(P_MUSICALIZE)-P_UNSKILLED)*10);
if(mtmp->mpeacetime < 5) mtmp->mpeacetime = 5;
}
}
}
} else {
mtmp = m_at(u.ux+u.dx, u.uy+u.dy);
if (mtmp && !DEADMONSTER(mtmp) && mtmp->moccupation
&& distu(mtmp->mx, mtmp->my) <= distance
&& resist_song(mtmp, SNG_TAME, song_instr) >= 0
) {
if(mtmp->mx == u.ux+u.dx && mtmp->my == u.uy+u.dy && mtmp->moccupation){
mtmp->mflee = 0;
/* no other effect if monster was already tame by other means */
if (get_mx(mtmp, MX_EDOG) && !(EDOG(mtmp)->friend)){
if(mtmp->mtame < P_SKILL(P_MUSICALIZE)*P_SKILL(P_MUSICALIZE)) mtmp->mtame++;
return;
}
waspeaceful = mtmp->mpeaceful;
if (!(mtmp->mtame)) {
mtmp = tamedog(mtmp, song_instr);
if (mtmp){
if (canseemon(mtmp) && flags.verbose && !mtmp->msleeping)
pline("%s seems to like your song.", Monnam(mtmp));
mtmp->mtame = min(mtmp->mtame
+ max(1, P_SKILL(P_MUSICALIZE)-P_UNSKILLED)*2,
255);
EDOG(mtmp)->waspeaceful = TRUE;
if(!waspeaceful || mtmp->mpeacetime){ /*Should it become untame, remain tame peaceful for a short period of time*/
mtmp->mpeacetime = max(mtmp->mpeacetime, (P_SKILL(P_MUSICALIZE)-P_UNSKILLED)*10);
if(mtmp->mpeacetime < 5) mtmp->mpeacetime = 5;
}
}
}
}
}
}
}
}
static void
charm_monsters(int distance)
{
struct monst *mtmp, *mtmp2;
if (u.uswallow) {
if (!resist(u.ustuck, TOOL_CLASS, 0, NOTELL))
(void) tamedog(u.ustuck, (struct obj *) 0);
} else {
for (mtmp = fmon; mtmp; mtmp = mtmp2) {
mtmp2 = mtmp->nmon;
if (DEADMONSTER(mtmp)) continue;
if (distu(mtmp->mx, mtmp->my) <= distance) {
if (!resist(mtmp, TOOL_CLASS, 0, NOTELL))
(void) tamedog(mtmp, (struct obj *) 0);
}
}
}
}
/* Generate earthquake :-) of desired force.
* That is: create random chasms (pits).
* Also a monster wizard spell.
* cursed drums (and spells) unleash monsters
* mon indicates which monster cast the spell
*/
void
do_earthquake(int cntrx, int cntry, int range, int force, boolean cursed, struct monst *mon)
{
register int x,y, horrors = 0;
struct monst *mtmp;
struct obj *otmp;
struct trap *chasm;
int start_x, start_y, end_x, end_y;
boolean yours = (mon == &youmonst);
start_x = cntrx - (range);
start_y = cntry - (range);
end_x = cntrx + (range);
end_y = cntry + (range);
if (start_x < 1) start_x = 1;
if (start_y < 1) start_y = 1;
if (end_x >= COLNO) end_x = COLNO - 1;
if (end_y >= ROWNO) end_y = ROWNO - 1;
for (x=start_x; x<=end_x; x++) for (y=start_y; y<=end_y; y++) {
if ((mtmp = m_at(x,y)) != 0) {
wakeup(mtmp, yours); /* peaceful monster will become hostile */
if (mtmp->mundetected && is_hider(mtmp->data) && is_clinger(mtmp->data)) {
mtmp->mundetected = 0;
if (cansee(x,y))
pline("%s is shaken loose from the ceiling!",
Amonnam(mtmp));
else
You_hear("a thumping sound.");
if (x==u.ux && y==u.uy)
You("easily dodge the falling %s.",
mon_nam(mtmp));
newsym(x,y);
}
}
if (((rn2(10) < force) || (cursed && x == u.ux && y == u.uy)) && !(mon && m_at(x,y) == mon))
switch (levl[x][y].typ) {
case FOUNTAIN : /* Make the fountain disappear */
if (cansee(x,y))
pline_The("fountain falls into a chasm.");
goto do_pit;
case FORGE : /* Make the forge disappear */
if (cansee(x,y))
pline_The("forge falls into a chasm.");
goto do_pit;
case SINK :
if (cansee(x,y))
pline_The("kitchen sink falls into a chasm.");
goto do_pit;
case ALTAR :
//Temple priests cast earthquake.
break;
case GRAVE :
if (cansee(x,y))
pline_The("headstone topples into a chasm.");
goto do_pit;
case HELLISH_SEAL :
if (cansee(x,y))
pline_The("seal is broken by a chasm!");
break_seal(x, y);
break;
case TREE:
if (cansee(x,y))
pline_The("tree topples into a chasm.");
if(!mon && !flags.mon_moving && u.sealsActive&SEAL_EDEN) unbind(SEAL_EDEN,TRUE);
goto do_pit;
case DEADTREE:
if (cansee(x,y))
pline_The("dead tree topples into a chasm.");
goto do_pit;
case THRONE :
if (cansee(x,y))
pline_The("throne falls into a chasm.");
if(!mon && u.sealsActive&SEAL_DANTALION) unbind(SEAL_DANTALION,TRUE);
/* Falls into next case */
case ROOM :
case CORR : /* Try to make a pit */
do_pit: chasm = maketrap(x,y,PIT);
if (!chasm) break; /* no pit if portal at that location */
chasm->tseen = 1;
levl[x][y].doormask = 0;
mtmp = m_at(x,y);
if ((otmp = boulder_at(x, y)) != 0) {
if (cansee(x, y))
pline("KADOOM! The %s falls into a chasm%s!", xname(otmp),
((x == u.ux) && (y == u.uy)) ? " below you" : "");
if (mtmp)
mtmp->mtrapped = 0;
obj_extract_self(otmp);
(void) flooreffects(otmp, x, y, "");
break;
}
/* We have to check whether monsters or player
falls in a chasm... */
if (mtmp) {
if(!mon_resistance(mtmp,FLYING) && !is_clinger(mtmp->data)) {
mtmp->mtrapped = 1;
if(cansee(x,y))
pline("%s falls into a chasm!", Monnam(mtmp));
else if (flags.soundok && humanoid(mtmp->data))
You_hear("a scream!");
mselftouch(mtmp, "Falling, ", TRUE);
if (mtmp->mhp > 0)
if ((mtmp->mhp -= rnd(6)) <= 0) {
if(!cansee(x,y) || mon)
pline("%s is %sed!",
cansee(x,y) ? "It" : Monnam(mtmp),
banish_kill(mtmp->mtyp) ? "banish" : nonliving(mtmp->data) ? "destroy" : "kill");
else {
You("%s %s!", banish_kill(mtmp->mtyp) ? "banish" : nonliving(mtmp->data) ? "destroy" :
"kill", mtmp->mtame ?
x_monnam(mtmp, ARTICLE_THE, "poor",
M_HAS_NAME(mtmp) ? SUPPRESS_SADDLE : 0, FALSE):
mon_nam(mtmp));
}
if (!mon) xkilled(mtmp,0);
else mondied(mtmp);
}
}
} else if (x == u.ux && y == u.uy) {
if (Levitation || Flying ||
is_clinger(youracedata) || u.sealsActive&SEAL_SIMURGH) {
pline("A chasm opens up under you!");
You("don't fall in!");
} else {
You("fall into a chasm!");
u.utrap = rn1(6,2);
u.utraptype = TT_PIT;
losehp(rnd(6),"fell into a chasm",
NO_KILLER_PREFIX);
selftouch("Falling, you");
}
} else if (cursed && !rn2(2)) {
/* make some chthonic nasties */
if(In_quest(&u.uz) && urole.neminum == PM_DARUTH_XAXOX){
switch(rn2(5)) {
case 3:(void) makemon(&mons[PM_DROW_MUMMY], x, y, NO_MM_FLAGS);
case 4:(void) makemon(&mons[PM_DROW_MUMMY],x, y, NO_MM_FLAGS);
default:(void) makemon(&mons[PM_HEDROW_ZOMBIE],x, y, NO_MM_FLAGS);
}
} else if(flags.walky_level){
switch(rn2(7)) {
case 1:(void) makemon(mkclass(S_MUMMY, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 2:(void) makemon(mkclass(S_VAMPIRE, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 3:(void) makemon(mkclass(S_LICH, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 4:(void) makemon(mkclass(S_GHOST, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 5:(void) makemon(mkclass(S_SHADE, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 6:(void) makemon(mkclass(S_WRAITH, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
default:(void) makemon(mkclass(S_ZOMBIE, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
}
} else {
switch(rn2(In_hell(&u.uz) ? 7 : 5)) {
case 2:(void) makemon(&mons[PM_ROCK_MOLE], x, y, NO_MM_FLAGS);
case 3:(void) makemon(&mons[PM_EARTH_ELEMENTAL], x, y, NO_MM_FLAGS);
case 4:(void) makemon(mkclass(S_XORN, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
case 5:(void) makemon(mkclass(S_DEMON, G_NOHELL|G_HELL), x, y, NO_MM_FLAGS);
case 6:(void) makemon(&mons[PM_UMBER_HULK], x, y, NO_MM_FLAGS);
default:(void) makemon(mkclass(S_ZOMBIE, Inhell ? G_HELL : G_NOHELL), x, y, NO_MM_FLAGS);
}
}
mtmp = m_at(x,y);
if (mtmp && canseemon(mtmp)) horrors++;
} else newsym(x,y);
break;
case DOOR : /* Make the door collapse */
/* ALI - artifact doors from Slash'em*/
if (artifact_door(x, y)) break;
if (levl[x][y].doormask == D_NODOOR) goto do_pit;
if (cansee(x,y))
pline_The("door collapses.");
if (*in_rooms(x, y, SHOPBASE))
add_damage(x, y, 0L);
levl[x][y].doormask = D_NODOOR;
unblock_point(x,y);
newsym(x,y);
break;
}
}
if (horrors > 1)
pline("Monsters emerge from the chasms!");
else if (horrors)
pline("A monster emerges from a chasm!");
}
/*
* The player is trying to extract something from his/her instrument.
*/
static int
do_improvisation(struct obj *instr)
{
int damage, do_spec = !Confusion;
if (!do_spec)
pline("What you produce is quite far from music...");
else
You("start playing %s.", the(xname(instr)));
if(instr->oartifact == ART_SILVER_STARLIGHT){
if (do_spec && instr->spe > 0) {
if(instr->age > monstermoves) consume_obj_charge(instr, TRUE);
else instr->age = monstermoves + (long)(rnz(100)*(Role_if(PM_PRIEST) ? .8 : 1));
You("produce soft music.");
put_monsters_to_sleep(u.ulevel * 5);
exercise(A_DEX, TRUE);
} else {
do_spec &= (rn2(ACURR(A_DEX)) + u.ulevel > 25);
pline("%s.", Tobjnam(instr, do_spec ? "trill" : "toot"));
if (do_spec) charm_snakes(u.ulevel * 3);
exercise(A_DEX, TRUE);
}
} else switch (instr->otyp) {
case MAGIC_FLUTE: /* Make monster fall asleep */
if (do_spec && instr->spe > 0) {
consume_obj_charge(instr, TRUE);
You("produce soft music.");
put_monsters_to_sleep(u.ulevel * 5);
exercise(A_DEX, TRUE);
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_LETHARGY;
}
break;
} /* else FALLTHRU */
case FLUTE: /* May charm snakes */
do_spec &= (rn2(ACURR(A_DEX)) + u.ulevel > 25);
pline("%s.", Tobjnam(instr, do_spec ? "trill" : "toot"));
song_noise(u.ulevel * 3);
if (do_spec) charm_snakes(u.ulevel * 3);
exercise(A_DEX, TRUE);
break;
case FROST_HORN: /* Idem wand of cold */
case FIRE_HORN: /* Idem wand of fire */
if (do_spec && instr->spe > 0) {
consume_obj_charge(instr, TRUE);
if (!getdir((char *)0)) {
pline("%s.", Tobjnam(instr, "vibrate"));
break;
} else if (!u.dx && !u.dy && !u.dz) {
if ((damage = zapyourself(instr, TRUE)) != 0) {
char buf[BUFSZ];
Sprintf(buf, "using a magical horn on %sself", uhim());
losehp(damage, buf, KILLED_BY);
}
} else {
zap(&youmonst, u.ux, u.uy, u.dx, u.dy, rn1(7, 7),
basiczap(0, ((instr->otyp == FROST_HORN) ? AD_COLD : AD_FIRE), ZAP_WAND, rn1(6, 6)));
}
makeknown(instr->otyp);
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
if(instr->otyp == FROST_HORN) uwep->ovar1_heard |= OHEARD_FROST;
if(instr->otyp == FIRE_HORN) uwep->ovar1_heard |= OHEARD_FIRE;
}
break;
} /* else FALLTHRU */
case TOOLED_HORN: /* Awaken or scare monsters */
You("produce a frightful, grave sound.");
awaken_monsters(u.ulevel * 30);
exercise(A_WIS, FALSE);
break;
case BUGLE: /* Awaken & attract soldiers */
You("extract a loud noise from %s.", the(xname(instr)));
awaken_monsters(u.ulevel * 30);
awaken_soldiers();
exercise(A_WIS, FALSE);
break;
case MAGIC_HARP: /* Charm monsters */
if (do_spec && instr->spe > 0) {
consume_obj_charge(instr, TRUE);
pline("%s very attractive music.", Tobjnam(instr, "produce"));
charm_monsters((u.ulevel - 1) / 3 + 1);
exercise(A_DEX, TRUE);
break;
} /* else FALLTHRU */
case HARP: /* May calm Nymph */
do_spec &= (rn2(ACURR(A_DEX)) + u.ulevel > 25);
pline("%s %s.", The(xname(instr)),
do_spec ? "produces a lilting melody" : "twangs");
song_noise(u.ulevel * 3);
if (do_spec) calm_nymphs(u.ulevel * 3);
exercise(A_DEX, TRUE);
break;
case DRUM_OF_EARTHQUAKE: /* create several pits */
if (do_spec && instr->spe > 0) {
consume_obj_charge(instr, TRUE);
You("produce a heavy, thunderous rolling!");
pline_The("entire dungeon is shaking around you!");
do_earthquake(u.ux, u.uy, (u.ulevel)*2 / 3 + 1, (u.ulevel) / 5 + 1, instr->cursed, &youmonst);
/* shake up monsters in a much larger radius... */
awaken_monsters(ROWNO * COLNO);
makeknown(DRUM_OF_EARTHQUAKE);
if(uwep && uwep->oartifact == ART_SINGING_SWORD){
uwep->ovar1_heard |= OHEARD_QUAKE;
}
break;
} /* else FALLTHRU */
case DRUM: /* Awaken monsters */
You("beat a deafening row!");
awaken_monsters(u.ulevel * 40);
exercise(A_WIS, FALSE);
break;
default:
impossible("What a weird instrument (%d)!", instr->otyp);
break;
}
nomul(-1,"improvising a tune");
return 1;
}
/*
* So you want music...
*/
int
do_play_instrument(struct obj *instr)
{
char buf[BUFSZ], c = 'y';
char *s;
int x,y;
int a;
unsigned char song = SNG_NONE;
boolean ok;
instr_otyp = instr->otyp;
if(instr->oartifact == ART_SILVER_STARLIGHT) instr_otyp = MAGIC_FLUTE;
if(instr_otyp == MAGIC_HARP) instr_otyp = HARP;
else if(instr_otyp == MAGIC_FLUTE) instr_otyp = FLUTE;
else if(instr_otyp == FIRE_HORN) instr_otyp = TOOLED_HORN;
else if(instr_otyp == FROST_HORN) instr_otyp = TOOLED_HORN;
if (Underwater) {
You_cant("play music underwater!");
return(0);
}
if (nohands(youracedata)) {
You("have no hands!");
return 0;
}
/*
if (uarms) {
You_cant("play music while wearing a shield!");
return(0);
}
*/
if (welded(uwep) || !freehand()) {
You("need free hands to play music!");
return(0);
}
/* also cursed gauntlets should mean your song will go bad */
/* Another possibility would be playing only scary music
while being thus affected. */
if (Confusion > 0 || Stunned || Hallucination) {
You_cant("play music while %s!", Confusion > 0 ? "confused" :
(Stunned ? "stunned" : "stoned"));
return 0;
}
if (uarms && (instr->otyp == HARP || instr->otyp == DRUM)){
You("can't play properly while wearing a shield.");
return 0;
}
if (is_silent(youracedata)){
pline("While in this form, you can't sing along your songs.");
return 0;
}
if (!P_RESTRICTED(P_MUSICALIZE)) {
song = songs_menu(instr);
if (song == SNG_NONE)
return 0;
} else {
if (instr->otyp != DRUM && instr->otyp != DRUM_OF_EARTHQUAKE) {
if (yn("Improvise?") == 'y') song = SNG_IMPROVISE;
else if (u.uevent.uheard_tune == 2 && yn("Play the passtune?") == 'y')
song = SNG_PASSTUNE;
else
song = SNG_NOTES;
} else song = SNG_IMPROVISE;
}
switch (song) {
case SNG_NONE:
return 0;
break;
case SNG_IMPROVISE:
return do_improvisation(instr);
break;
case SNG_NOTES:
getlin("What tune are you playing? [what 5 notes]", buf);
break;
case SNG_PASSTUNE:
Strcpy(buf, tune);
break;
default:
/*
a = songs[song].level * (Role_if(PM_BARD) ? 2 : 5);
if (a > u.uen) {
You("don't have enough energy to play that song.");
return 0;
}
losepw(a);
flags.botl = 1;
*/
if (rnd(100) > song_success(song, instr, 1)) {
pline("What you produce is quite far from music...");
return 1;
}
song_played = song;
song_instr = instr;
instr_otyp = song_instr->otyp;
if(instr_otyp == MAGIC_HARP) instr_otyp = HARP;
else if(instr_otyp == MAGIC_FLUTE) instr_otyp = FLUTE;
else if(instr_otyp == FIRE_HORN) instr_otyp = TOOLED_HORN;
else if(instr_otyp == FROST_HORN) instr_otyp = TOOLED_HORN;
song_delay = songs[song_played].turns;
song_penalty = (songs[song_played].instr1 == instr_otyp);
if (song_played == SNG_TAME && instr->oartifact == ART_LYRE_OF_ORPHEUS)
song_penalty = 0;
Sprintf(msgbuf, "playing %s", the(xname(instr)));
if (instr->oartifact == ART_LYRE_OF_ORPHEUS)
pline("%s the \"%s\" song!", Tobjnam(instr, "sing"), songs[song].name);
else
You("play the \"%s\" song...", songs[song].name);
if(song != SNG_SLEEP){
int distance;
distance = ((P_SKILL(P_MUSICALIZE)) + (u.ulevel/10) + 1);
if(P_SKILL(P_MUSICALIZE) > P_BASIC) distance += P_SKILL(P_MUSICALIZE) - P_BASIC;
if(song == SNG_RLLY) distance *= 2;
distance *= 1.5;
switch(instr_otyp){
case HARP:
distance = distance*distance + 1;
distance /= 10;
song_noise(distance);
break;
case FLUTE:
distance = distance*distance + 1;
distance /= 10;
song_noise(distance);
break;
case TOOLED_HORN:
distance = distance*distance + 1;
song_noise(distance);
break;
case BUGLE:
distance = distance*distance + 1;
song_noise(distance);
break;
case DRUM:
distance = distance*distance + 1;
distance = distance*4/3;
song_noise(distance);
break;
}
}
set_occupation(play_song, msgbuf, 0);
return 0;
}
(void)mungspaces(buf);
/* convert to uppercase and change any "H" to the expected "B" */
for (s = buf; *s; s++) {
*s = highc(*s);
if (*s == 'H') *s = 'B';
}
You("extract a strange sound from %s!", the(xname(instr)));
/* Check if there was the Stronghold drawbridge near
* and if the tune conforms to what we're waiting for.
*/
if(Is_stronghold(&u.uz)) {
exercise(A_WIS, TRUE); /* just for trying */
if(!strcmp(buf,tune)) {
/* Search for the drawbridge */
for(y=u.uy-1; y<=u.uy+1; y++)
for(x=u.ux-1;x<=u.ux+1;x++)
if(isok(x,y))
if(find_drawbridge(&x,&y)) {
u.uevent.uheard_tune = 2; /* tune now fully known */
if(levl[x][y].typ == DRAWBRIDGE_DOWN) close_drawbridge(x,y);
else open_drawbridge(x,y);
nomul(-1,"playing the passtune");
return 1;
}
} else if(flags.soundok) {
if (u.uevent.uheard_tune < 1) u.uevent.uheard_tune = 1;
/* Okay, it wasn't the right tune, but perhaps
* we can give the player some hints like in the
* Mastermind game */
ok = FALSE;
for(y = u.uy-1; y <= u.uy+1 && !ok; y++)
for(x = u.ux-1; x <= u.ux+1 && !ok; x++)
if(isok(x,y))
if(IS_DRAWBRIDGE(levl[x][y].typ) ||
is_drawbridge_wall(x,y) >= 0)
ok = TRUE;
if(ok) { /* There is a drawbridge near */
int tumblers, gears;
boolean matched[5];
tumblers = gears = 0;
for(x=0; x < 5; x++)
matched[x] = FALSE;
for(x=0; x < (int)strlen(buf); x++)
if(x < 5) {
if(buf[x] == tune[x]) {
gears++;
matched[x] = TRUE;
} else
for(y=0; y < 5; y++)
if(!matched[y] &&
buf[x] == tune[y] &&
buf[y] != tune[y]) {
tumblers++;
matched[y] = TRUE;
break;
}
}
if(tumblers)
if(gears)
You_hear("%d tumbler%s click and %d gear%s turn.",
tumblers, plur(tumblers), gears, plur(gears));
else
You_hear("%d tumbler%s click.",
tumblers, plur(tumblers));
else if(gears) {
You_hear("%d gear%s turn.", gears, plur(gears));
/* could only get `gears == 5' by playing five
correct notes followed by excess; otherwise,
tune would have matched above */
if (gears == 5) u.uevent.uheard_tune = 2;
}
}
}
}
nomul(-1,"guessing at the passtune");
return 1;
}
/*music.c*/
View git blame Copy permalink