NetBSD/games/hack/hack.mkshop.c

312 lines
6.9 KiB
C

/* $NetBSD: hack.mkshop.c,v 1.5 1997/10/19 16:58:31 christos Exp $ */
/*
* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
*/
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: hack.mkshop.c,v 1.5 1997/10/19 16:58:31 christos Exp $");
#endif /* not lint */
#include <stdlib.h>
#ifndef QUEST
#include "hack.h"
#include "extern.h"
#include "def.mkroom.h"
#include "def.eshk.h"
#define ESHK ((struct eshk *)(&(shk->mextra[0])))
schar shprobs[] = {3, 3, 5, 5, 10, 10, 14, 50}; /* their probabilities */
void
mkshop()
{
struct mkroom *sroom;
int sh, sx, sy, i = -1;
char let;
int roomno;
struct monst *shk;
#ifdef WIZARD
/* first determine shoptype */
if (wizard) {
char *ep = getenv("SHOPTYPE");
if (ep) {
if (*ep == 'z' || *ep == 'Z') {
mkzoo(ZOO);
return;
}
if (*ep == 'm' || *ep == 'M') {
mkzoo(MORGUE);
return;
}
if (*ep == 'b' || *ep == 'B') {
mkzoo(BEEHIVE);
return;
}
if (*ep == 's' || *ep == 'S') {
mkswamp();
return;
}
for (i = 0; shtypes[i]; i++)
if (*ep == shtypes[i])
break;
goto gottype;
}
}
gottype:
#endif /* WIZARD */
for (sroom = &rooms[0], roomno = 0;; sroom++, roomno++) {
if (sroom->hx < 0)
return;
if (sroom - rooms >= nroom) {
pline("rooms not closed by -1?");
return;
}
if (sroom->rtype)
continue;
if (!sroom->rlit || has_dnstairs(sroom) || has_upstairs(sroom))
continue;
if (
#ifdef WIZARD
(wizard && getenv("SHOPTYPE") && sroom->doorct != 0) ||
#endif /* WIZARD */
(sroom->doorct <= 2 && sroom->doorct > 0))
break;
}
if (i < 0) { /* shoptype not yet determined */
int j;
for (j = rn2(100), i = 0; (j -= shprobs[i]) >= 0; i++)
if (!shtypes[i])
break; /* superfluous */
if (isbig(sroom) && i + SHOPBASE == WANDSHOP)
i = GENERAL - SHOPBASE;
}
sroom->rtype = i + SHOPBASE;
let = shtypes[i];
sh = sroom->fdoor;
sx = doors[sh].x;
sy = doors[sh].y;
if (sx == sroom->lx - 1)
sx++;
else if (sx == sroom->hx + 1)
sx--;
else if (sy == sroom->ly - 1)
sy++;
else if (sy == sroom->hy + 1)
sy--;
else {
#ifdef WIZARD
/* This is said to happen sometimes, but I've never seen it. */
if (wizard) {
int j = sroom->doorct;
pline("Where is shopdoor?");
pline("Room at (%d,%d),(%d,%d).", sroom->lx, sroom->ly,
sroom->hx, sroom->hy);
pline("doormax=%d doorct=%d fdoor=%d",
doorindex, sroom->doorct, sh);
while (j--) {
pline("door [%d,%d]", doors[sh].x, doors[sh].y);
sh++;
}
more();
}
#endif /* WIZARD */
return;
}
if (!(shk = makemon(PM_SHK, sx, sy)))
return;
shk->isshk = shk->mpeaceful = 1;
shk->msleep = 0;
shk->mtrapseen = ~0; /* we know all the traps already */
ESHK->shoproom = roomno;
ESHK->shoplevel = dlevel;
ESHK->shd = doors[sh];
ESHK->shk.x = sx;
ESHK->shk.y = sy;
ESHK->robbed = 0;
ESHK->visitct = 0;
ESHK->following = 0;
shk->mgold = 1000 + 30 * rnd(100); /* initial capital */
ESHK->billct = 0;
findname(ESHK->shknam, let);
for (sx = sroom->lx; sx <= sroom->hx; sx++)
for (sy = sroom->ly; sy <= sroom->hy; sy++) {
struct monst *mtmp;
if ((sx == sroom->lx && doors[sh].x == sx - 1) ||
(sx == sroom->hx && doors[sh].x == sx + 1) ||
(sy == sroom->ly && doors[sh].y == sy - 1) ||
(sy == sroom->hy && doors[sh].y == sy + 1))
continue;
if (rn2(100) < dlevel && !m_at(sx, sy) &&
(mtmp = makemon(PM_MIMIC, sx, sy))) {
mtmp->mimic = 1;
mtmp->mappearance =
(let && rn2(10) < dlevel) ? let : ']';
continue;
}
(void) mkobj_at(let, sx, sy);
}
}
void
mkzoo(type)
int type;
{
struct mkroom *sroom;
struct monst *mon;
int sh, sx, sy, i;
int goldlim = 500 * dlevel;
int moct = 0;
i = nroom;
for (sroom = &rooms[rn2(nroom)];; sroom++) {
if (sroom == &rooms[nroom])
sroom = &rooms[0];
if (!i-- || sroom->hx < 0)
return;
if (sroom->rtype)
continue;
if (type == MORGUE && sroom->rlit)
continue;
if (has_upstairs(sroom) || (has_dnstairs(sroom) && rn2(3)))
continue;
if (sroom->doorct == 1 || !rn2(5))
break;
}
sroom->rtype = type;
sh = sroom->fdoor;
for (sx = sroom->lx; sx <= sroom->hx; sx++)
for (sy = sroom->ly; sy <= sroom->hy; sy++) {
if ((sx == sroom->lx && doors[sh].x == sx - 1) ||
(sx == sroom->hx && doors[sh].x == sx + 1) ||
(sy == sroom->ly && doors[sh].y == sy - 1) ||
(sy == sroom->hy && doors[sh].y == sy + 1))
continue;
mon = makemon(
(type == MORGUE) ? morguemon() :
(type == BEEHIVE) ? PM_KILLER_BEE : (struct permonst *) 0,
sx, sy);
if (mon)
mon->msleep = 1;
switch (type) {
case ZOO:
i = sq(dist2(sx, sy, doors[sh].x, doors[sh].y));
if (i >= goldlim)
i = 5 * dlevel;
goldlim -= i;
mkgold((long) (10 + rn2(i)), sx, sy);
break;
case MORGUE:
/*
* Usually there is one dead body in the
* morgue
*/
if (!moct && rn2(3)) {
mksobj_at(CORPSE, sx, sy);
moct++;
}
break;
case BEEHIVE:
if (!rn2(3))
mksobj_at(LUMP_OF_ROYAL_JELLY, sx, sy);
break;
}
}
}
struct permonst *
morguemon()
{
int i = rn2(100), hd = rn2(dlevel);
if (hd > 10 && i < 10)
return (PM_DEMON);
if (hd > 8 && i > 85)
return (PM_VAMPIRE);
return ((i < 40) ? PM_GHOST : (i < 60) ? PM_WRAITH : PM_ZOMBIE);
}
void
mkswamp()
{ /* Michiel Huisjes & Fred de Wilde */
struct mkroom *sroom;
int sx, sy, i, eelct = 0;
for (i = 0; i < 5; i++) { /* 5 tries */
sroom = &rooms[rn2(nroom)];
if (sroom->hx < 0 || sroom->rtype ||
has_upstairs(sroom) || has_dnstairs(sroom))
continue;
/* satisfied; make a swamp */
sroom->rtype = SWAMP;
for (sx = sroom->lx; sx <= sroom->hx; sx++)
for (sy = sroom->ly; sy <= sroom->hy; sy++)
if ((sx + sy) % 2 && !o_at(sx, sy) && !t_at(sx, sy)
&& !m_at(sx, sy) && !nexttodoor(sx, sy)) {
levl[sx][sy].typ = POOL;
levl[sx][sy].scrsym = POOL_SYM;
if (!eelct || !rn2(4)) {
(void) makemon(PM_EEL, sx, sy);
eelct++;
}
}
}
}
int
nexttodoor(sx, sy)
int sx, sy;
{
int dx, dy;
struct rm *lev;
for (dx = -1; dx <= 1; dx++)
for (dy = -1; dy <= 1; dy++)
if ((lev = &levl[sx + dx][sy + dy])->typ == DOOR ||
lev->typ == SDOOR || lev->typ == LDOOR)
return (1);
return (0);
}
int
has_dnstairs(sroom)
struct mkroom *sroom;
{
return (sroom->lx <= xdnstair && xdnstair <= sroom->hx &&
sroom->ly <= ydnstair && ydnstair <= sroom->hy);
}
int
has_upstairs(sroom)
struct mkroom *sroom;
{
return (sroom->lx <= xupstair && xupstair <= sroom->hx &&
sroom->ly <= yupstair && yupstair <= sroom->hy);
}
int
isbig(sroom)
struct mkroom *sroom;
{
int area = (sroom->hx - sroom->lx) * (sroom->hy - sroom->ly);
return (area > 20);
}
int
dist2(x0, y0, x1, y1)
int x0, y0, x1, y1;
{
return ((x0 - x1) * (x0 - x1) + (y0 - y1) * (y0 - y1));
}
int
sq(a)
int a;
{
return (a * a);
}
#endif /* QUEST */