This is nextsound.c in view mode; [Download] [Up]
/* nextsound.c 3/94 */
/* NEXTSTEP version modified file ! */
/* NetHack may be freely redistributed. See license for details. */
/* Copyright (c) 1989 Janet Walz, Mike Threepoint */
#define ONAMES_H /* comment line for pre-compiled headers */
/* block some unused #defines to avoid overloading some cpp's */
#include "edog.h"
static int FDECL(domonnoise,(struct monst *));
#ifdef OVLB
void
verbalize(str)
register const char *str;
{
if(flags.soundok) pline("\"%s\"", str);
}
#endif /* OVLB */
#ifdef SOUNDS
#ifdef OVL0
void
dosounds()
{
register xchar hallu;
register struct mkroom *sroom;
register xchar roomtype;
register int croomno;
boolean gold_in_vault, u_in_room;
register int vx, vy;
#ifdef __GNULINT__
gold_in_vault = u_in_room = FALSE;
#endif
hallu = Hallucination ? 1 : 0;
if(!flags.soundok || u.uswallow) return;
if (fountsound && !rn2(400))
switch (rn2(3)+hallu) {
case 0:
You("hear bubbling water.");
WindowSound("Water");
break;
case 1:
You("hear water falling on coins...");
WindowSound("Water");
break;
case 2:
You("hear the splashing of a naiad.");
WindowSound("Water");
break;
case 3:
You("seem to hear a soda fountain!");
WindowSound("Water");
break;
}
if (sinksound && !rn2(300))
switch (rn2(2)+hallu) {
case 0:
You("hear a slow drip.");
WindowSound("Water");
break;
case 1:
You("hear a gurgling noise.");
WindowSound("Water");
break;
case 2:
You("seem to hear dishes being washed!");
WindowSound("Water");
break;
}
if (!rn2(200)) {
roomtype = OROOM;
for (sroom = &rooms[0]; ; sroom++) { /* find any special room */
if (sroom->hx < 0) break; /* no more rooms */
if (sroom->rtype != OROOM) {
croomno = inroom(u.ux,u.uy);
u_in_room = croomno >= 0 && sroom == &rooms[croomno];
if (sroom->rtype < SHOPBASE)
roomtype = sroom->rtype;
else if (!u_in_room) {
/* player not presently in shop */
/* NOTE: other special room types disappear when player
enters (except VAULT) */
roomtype = SHOPBASE;
}
break;
}
}
if (roomtype == VAULT) {
gold_in_vault = FALSE;
for (vx = sroom->lx; vx <= sroom->hx && !gold_in_vault; vx++)
for (vy = sroom->ly; vy <= sroom->hy; vy++)
if (g_at(vx, vy)) {
gold_in_vault = TRUE;
break;
}
}
switch (roomtype) {
#ifdef THRONES
case COURT:
switch (rn2(3)+hallu) {
case 0:
You("hear the tones of courtly conversation.");
WindowSound("Speech");
break;
case 1:
You("hear a sceptre being pounded in judgement.");
break;
case 2:
pline("Someone just shouted \"Off with %s head!\"",
flags.female ? "her" : "his");
WindowSound("Shouting");
break;
case 3:
You("seem to hear Queen Beruthiel's cats!");
break;
}
break;
#endif
case SWAMP:
switch (rn2(2)+hallu) {
case 0:
You("hear mosquitoes!");
WindowSound("Buzzing");
break;
case 1:
You("smell marsh gas!"); /* so it's a smell...*/
break;
case 2:
You("seem to hear Donald Duck.");
break;
}
break;
case VAULT:
if(gd_sound())
switch (rn2(2)+hallu) {
case 0:
if (gold_in_vault && !u_in_room)
You("hear someone counting money.");
else
You("hear someone searching.");
break;
case 1:
You("hear the footsteps of a guard on patrol.");
break;
case 2:
You("seem to hear Ebenezer Scrooge!");
break;
}
break;
case BEEHIVE:
switch (rn2(2)+hallu) {
case 0:
You("hear a low buzzing.");
WindowSound("Buzzing");
break;
case 1:
You("hear an angry drone.");
WindowSound("Buzzing");
break;
case 2:
You("seem to hear bees in your %shelmet!",
uarmh ? "" : "(nonexistent) ");
WindowSound("Buzzing");
break;
}
break;
case MORGUE:
switch (rn2(2)+hallu) {
case 0:
You("suddenly realize it is unnaturally quiet.");
break;
case 1:
pline("The hair on the back of your %s stands up.",
body_part(NECK));
break;
case 2:
pline("The hair on your %s seems to stand up.",
body_part(HEAD));
break;
}
break;
case BARRACKS:
switch (rn2(3)+hallu) {
case 0:
You("hear dice being thrown.");
break;
case 1:
You("hear blades being honed.");
break;
case 2:
You("hear loud snoring.");
WindowSound("Shouting");
break;
case 3:
You("seem to hear General MacArthur!");
break;
}
break;
case ZOO:
switch (rn2(2)+hallu) {
case 0:
You("hear a sound reminding you of an elephant stepping on a peanut.");
break;
case 1:
You("hear a sound reminding you of a trained seal.");
break;
case 2:
You("seem to hear Doctor Doolittle!");
break;
}
break;
case SHOPBASE:
if(tended_shop(sroom))
switch (rn2(2)+hallu) {
case 0:
You("hear the chime of a cash register.");
WindowSound("Chime");
break;
case 1:
You("hear someone cursing shoplifters.");
WindowSound("Curse");
break;
case 2:
You("seem to hear Neiman and Marcus arguing!");
WindowSound("Speech");
break;
}
break;
default:
break;
}
}
}
#endif /* OVL0 */
#ifdef OVLB
#include "eshk.h"
#define NOTANGRY(mon) mon->mpeaceful
#define ANGRY(mon) !NOTANGRY(mon)
void
growl(mtmp)
register struct monst *mtmp;
{
/* presumably nearness and soundok checks have already been made */
switch (mtmp->data->msound) {
case MS_SILENT:
break;
case MS_MEW:
case MS_HISS:
pline("%s hisses!", Monnam(mtmp));
break;
case MS_BARK:
case MS_GROWL:
pline("%s growls!", Monnam(mtmp));
break;
case MS_ROAR:
pline("%s roars!", Monnam(mtmp));
break;
case MS_BUZZ:
kludge("%s buzzes!", Monnam(mtmp));
break;
case MS_SQEEK:
kludge("%s squeals!", Monnam(mtmp));
break;
case MS_SQAWK:
kludge("%s screeches!", Monnam(mtmp));
break;
case MS_NEIGH:
kludge("%s neighs!", Monnam(mtmp));
break;
}
}
void
yelp(mtmp)
register struct monst *mtmp;
/* the sounds of mistreated pets */
{
/* presumably nearness and soundok checks have already been made */
switch (mtmp->data->msound) {
case MS_MEW:
pline("%s yowls!", Monnam(mtmp));
break;
case MS_BARK:
case MS_GROWL:
pline("%s yelps!", Monnam(mtmp));
break;
case MS_ROAR:
kludge("%s snarls!", Monnam(mtmp));
break;
case MS_SQEEK:
kludge("%s squeals!", Monnam(mtmp));
break;
case MS_SQAWK:
kludge("%s screaks!", Monnam(mtmp));
break;
}
}
void
whimper(mtmp)
register struct monst *mtmp;
/* the sounds of distressed pets */
{
/* presumably nearness and soundok checks have already been made */
switch (mtmp->data->msound) {
case MS_MEW:
case MS_GROWL:
pline("%s whimpers.", Monnam(mtmp));
break;
case MS_BARK:
pline("%s whines.", Monnam(mtmp));
break;
case MS_SQEEK:
kludge("%s squeals.", Monnam(mtmp));
break;
}
}
#endif /* OVLB */
#endif /* SOUNDS */
#ifdef OVLB
/* for the connoisseurs ... */
static const char *Qmen[] = {
"Max", /* Born */
"Wolfgang", /* Pauli */
"Louis", /* de Broglie */
"Erwin", /* Schroedinger */
"Werner", /* Heisenberg */
"Niels", /* Bohr */
"Paul", /* Dirac */
"Pascual", /* Jordan */
"Dick", /* Feynman */
"Sam" }; /* Beckett ("Oh, boy." :-) */
struct monst *
qname(mtmp)
struct monst *mtmp;
{
return(christen_monst(mtmp, Qmen[rn2(SIZE(Qmen))]));
}
static int
domonnoise(mtmp)
register struct monst *mtmp;
{
/* presumably nearness checks have already been made */
if (!flags.soundok) return(0);
switch (mtmp->data->msound) {
#ifdef ORACLE
case MS_ORACLE:
return doconsult(mtmp);
#endif
#if defined(ALTARS) && defined(THEOLOGY)
case MS_PRIEST:
priest_talk(mtmp);
break;
#endif
#ifdef SOUNDS
case MS_SILENT:
break;
case MS_SQEEK:
kludge("%s squeaks.", Monnam(mtmp));
break;
case MS_SQAWK:
kludge("%s squawks.", Monnam(mtmp));
break;
case MS_MEW:
if (mtmp->mtame) {
if (mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
moves > EDOG(mtmp)->hungrytime || mtmp->mtame < 5)
kludge("%s yowls.", Monnam(mtmp));
else if (EDOG(mtmp)->hungrytime > moves + 1000)
kludge("%s purrs.", Monnam(mtmp));
else
kludge("%s mews.", Monnam(mtmp));
}
case MS_HISS:
if (!mtmp->mpeaceful && !mtmp->mtame)
kludge("%s hisses!", Monnam(mtmp));
break;
case MS_BUZZ:
if (!mtmp->mpeaceful && !mtmp->mtame)
kludge("%s buzzes angrily.", Monnam(mtmp));
break;
case MS_GRUNT:
kludge("%s grunts.", Monnam(mtmp));
break;
case MS_BARK:
if (flags.moonphase == FULL_MOON && night()) {
kludge("%s howls.", Monnam(mtmp));
break;
} else if (mtmp->mtame || mtmp->mpeaceful) {
if (mtmp->mtame &&
(mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
moves > EDOG(mtmp)->hungrytime || mtmp->mtame < 5))
kludge("%s whines.", Monnam(mtmp));
else if (EDOG(mtmp)->hungrytime > moves + 1000)
kludge("%s yips.", Monnam(mtmp));
else
kludge("%s barks.", Monnam(mtmp));
break;
}
case MS_GROWL:
if (!mtmp->mpeaceful && !mtmp->mtame)
kludge("%s growls!", Monnam(mtmp));
break;
case MS_ROAR:
if (!mtmp->mpeaceful && !mtmp->mtame)
kludge("%s roars!", Monnam(mtmp));
break;
case MS_NEIGH:
kludge("%s neighs.", Monnam(mtmp));
break;
case MS_WAIL:
kludge("%s wails mournfully.", Monnam(mtmp));
break;
case MS_GURGLE:
kludge("%s gurgles.", Monnam(mtmp));
break;
case MS_BURBLE:
kludge("%s burbles.", Monnam(mtmp));
break;
case MS_SHRIEK:
kludge("%s shrieks.", Monnam(mtmp));
aggravate();
break;
case MS_IMITATE:
kludge("%s imitates you.", Monnam(mtmp));
break;
case MS_DJINNI:
if (mtmp->mtame) verbalize("Thank you for freeing me!");
else if (mtmp->mpeaceful) verbalize("I'm free!");
else verbalize("This will teach you not to disturb me!");
break;
case MS_MUMBLE:
kludge("%s mumbles incomprehensibly.", Monnam(mtmp));
break;
case MS_HUMANOID:
/* Generic humanoid behaviour. */
if (!mtmp->mpeaceful && !mtmp->mtame) break;
if (mtmp->mflee)
kludge("%s wants nothing to do with you.", Monnam(mtmp));
else if (mtmp->mhp < mtmp->mhpmax/4)
kludge("%s moans.", Monnam(mtmp));
else if (mtmp->mconf || mtmp->mstun)
verbalize(!rn2(3) ? "Huh?" : rn2(2) ? "What?" : "Eh?");
else if (!mtmp->mcansee)
verbalize("I can't see!");
else if (mtmp->mtrapped)
verbalize("I'm trapped!");
else if (mtmp->mhp < mtmp->mhpmax/2)
kludge("%s asks for a potion of healing.", Monnam(mtmp));
/* Specific monster's interests */
else if (is_elf(mtmp->data))
kludge("%s complains about orcs.", Monnam(mtmp));
else if (is_dwarf(mtmp->data))
kludge("%s talks about mining.", Monnam(mtmp));
else if (likes_magic(mtmp->data))
kludge("%s talks about spellcraft.", Monnam(mtmp));
else if (carnivorous(mtmp->data))
kludge("%s discusses what kinds of meat are safe to eat.", Monnam(mtmp));
else switch (monsndx(mtmp->data)){
# ifdef TOLKIEN
case PM_HOBBIT:
if (mtmp->mhpmax - mtmp->mhp >= 10)
kludge("%s complains about unpleasant dungeon conditions.", Monnam(mtmp));
else
kludge("%s asks you about the One Ring.", Monnam(mtmp));
break;
# endif
case PM_ARCHEOLOGIST:
kludge("%s describes a recent article in \"Spelunker Today\" magazine.", Monnam(mtmp));
break;
case PM_QUANTUM_MECHANIC:
/* a trademark line for other Quantum Leap cultists -3. */
if (mtmp->mnamelth && strcmp(NAME(mtmp), "Sam") == 0)
verbalize("Oh, boy.");
else {
const char *Qman;
do Qman = Qmen[rn2(SIZE(Qmen))];
while (mtmp->mnamelth && strcmp(NAME(mtmp), Qman) == 0);
kludge("%s asks if you've seen %s anywhere around.",
Monnam(mtmp), Qman);
}
break;
default:
kludge("%s discusses dungeon exploration.", Monnam(mtmp));
}
break;
case MS_SEDUCE:
# ifdef SEDUCE
if (mtmp->data->mlet != S_NYMPH &&
could_seduce(mtmp, &youmonst, (struct attack *)0) == 1) {
(void) doseduce(mtmp);
break;
}
switch ((poly_gender() != is_female(mtmp)) ? rn2(3) : 0) {
# else
switch ((poly_gender() == 0) ? rn2(3) : 0) {
# endif
case 2:
verbalize("Hello, sailor.");
break;
case 1:
kludge("%s comes on to you.", Monnam(mtmp));
break;
default:
kludge("%s cajoles you.", Monnam(mtmp));
}
break;
# ifdef KOPS
case MS_ARREST:
if (mtmp->mpeaceful)
pline("\"Just the facts, %s.\"",
flags.female ? "Ma'am" : "Sir");
else switch (rn2(3)) {
case 1:
verbalize("Anything you say can be used against you.");
break;
case 2:
verbalize("You're under arrest!");
break;
default:
verbalize("Stop in the name of the Law!");
}
break;
# endif
case MS_LAUGH:
switch (rn2(4)) {
case 1:
kludge("%s giggles.", Monnam(mtmp));
break;
case 2:
kludge("%s chuckles.", Monnam(mtmp));
break;
case 3:
kludge("%s snickers.", Monnam(mtmp));
break;
default:
kludge("%s laughs.", Monnam(mtmp));
}
break;
# ifdef INFERNO
case MS_BRIBE:
if (mtmp->mpeaceful && !mtmp->mtame) {
(void) demon_talk(mtmp);
break;
}
/* fall through */
# endif
case MS_CUSS:
if (!mtmp->mpeaceful && !mtmp->mtame)
cuss(mtmp);
break;
case MS_GUARD:
if (u.ugold)
verbalize("Please drop that gold and follow me.");
else
verbalize("Please follow me.");
break;
case MS_NURSE:
if (uwep)
verbalize("Put that weapon away before you hurt someone!");
else if (uarmc || uarm || uarmh || uarms || uarmg || uarmf)
if (pl_character[0] == 'H')
verbalize("Doc, I can't help you unless you cooperate.");
else
verbalize("Please undress so I can examine you.");
# ifdef SHIRT
else if (uarmu)
verbalize("Take off your shirt, please.");
# endif
else verbalize("Relax, this won't hurt a bit.");
break;
case MS_SELL: /* pitch, pay, total */
if (ANGRY(mtmp))
kludge("%s mentions how much %s dislikes %s customers.",
ESHK(mtmp)->shknam,
ESHK(mtmp)->ismale ? "he" : "she",
ESHK(mtmp)->robbed ? "non-paying" : "rude");
else if (ESHK(mtmp)->following)
if (strncmp(ESHK(mtmp)->customer, plname, PL_NSIZ)) {
pline("\"Hello %s! I was looking for %s.\"",
plname, ESHK(mtmp)->customer);
ESHK(mtmp)->following = 0;
} else {
pline("\"Hello %s! Didn't you forget to pay?\"",
plname);
}
else if (ESHK(mtmp)->robbed)
kludge("%s complains about a recent robbery.", ESHK(mtmp)->shknam);
else if (ESHK(mtmp)->billct)
kludge("%s reminds you that you haven't paid yet.", ESHK(mtmp)->shknam);
else if (mtmp->mgold < 50)
kludge("%s complains that business is bad.", ESHK(mtmp)->shknam);
else if (mtmp->mgold > 4000)
kludge("%s says that business is good.", ESHK(mtmp)->shknam);
else
kludge("%s talks about the problem of shoplifters.", ESHK(mtmp)->shknam);
break;
# ifdef ARMY
case MS_SOLDIER:
if (!mtmp->mpeaceful)
switch (rn2(3)) {
case 2:
verbalize("Resistance is useless!");
break;
case 1:
verbalize("You're dog meat!");
break;
default:
verbalize("Surrender!");
}
break;
# endif
#endif /* SOUNDS */
}
return(1);
}
int
dotalk()
{
register struct monst *mtmp;
register int tx,ty;
if (u.uswallow) {
pline("They won't hear you out there.");
return(0);
}
pline("Talk to whom? [in what direction] ");
(void) getdir(0);
if (u.dz) {
pline("They won't hear you %s there.", u.dz < 0 ? "up" : "down");
return(0);
}
if (u.dx == 0 && u.dy == 0) {
/*
* Let's not include this. It raises all sorts of questions: can you wear
* 2 helmets, 2 amulets, 3 pairs of gloves or 6 rings as a marilith,
* etc... --KAA
#ifdef POLYSELF
if (u.umonnum == PM_ETTIN) {
You("discover that your other head makes boring conversation.");
return(1);
}
#endif
*/
pline("Talking to yourself is a bad habit for a dungeoneer.");
return(0);
}
tx = u.ux+u.dx; ty = u.uy+u.dy;
if ((Blind && !Telepat) || !MON_AT(tx, ty) ||
(mtmp = m_at(tx, ty))->mimic || mtmp->mundetected) {
pline("I see nobody there.");
return(0);
}
if (!mtmp->mcanmove || mtmp->msleep) {
kludge("%s seems not to notice you.", Monnam(mtmp));
return 0;
}
return domonnoise(mtmp);
}
#endif /* OVLB */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.