275 lines
6.6 KiB
C
275 lines
6.6 KiB
C
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/* hack.mkshop.c - version 1.0.3 */
|
|
|
|
#ifndef QUEST
|
|
#include "hack.h"
|
|
#include "def.mkroom.h"
|
|
#include "def.eshk.h"
|
|
#define ESHK ((struct eshk *)(&(shk->mextra[0])))
|
|
extern struct monst *makemon();
|
|
extern struct obj *mkobj_at();
|
|
extern int nroom;
|
|
extern char shtypes[]; /* = "=/)%?!["; 8 types: 7 specialized, 1 mixed */
|
|
schar shprobs[] = { 3,3,5,5,10,10,14,50 }; /* their probabilities */
|
|
|
|
mkshop(){
|
|
register struct mkroom *sroom;
|
|
register int sh,sx,sy,i = -1;
|
|
register char let;
|
|
int roomno;
|
|
register struct monst *shk;
|
|
#ifdef WIZARD
|
|
/* first determine shoptype */
|
|
if(wizard){
|
|
extern char *getenv();
|
|
register 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 */
|
|
register 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) {
|
|
register int j = sroom->doorct;
|
|
extern int doorindex;
|
|
|
|
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++){
|
|
register 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);
|
|
}
|
|
}
|
|
|
|
mkzoo(type)
|
|
int type;
|
|
{
|
|
register struct mkroom *sroom;
|
|
register struct monst *mon;
|
|
register int sh,sx,sy,i;
|
|
int goldlim = 500 * dlevel;
|
|
int moct = 0;
|
|
struct permonst *morguemon();
|
|
|
|
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()
|
|
{
|
|
extern struct permonst pm_ghost;
|
|
register 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);
|
|
}
|
|
|
|
mkswamp() /* Michiel Huisjes & Fred de Wilde */
|
|
{
|
|
register struct mkroom *sroom;
|
|
register int sx,sy,i,eelct = 0;
|
|
extern struct permonst pm_eel;
|
|
|
|
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++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
nexttodoor(sx,sy)
|
|
register sx,sy;
|
|
{
|
|
register dx,dy;
|
|
register 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);
|
|
}
|
|
|
|
has_dnstairs(sroom)
|
|
register struct mkroom *sroom;
|
|
{
|
|
return(sroom->lx <= xdnstair && xdnstair <= sroom->hx &&
|
|
sroom->ly <= ydnstair && ydnstair <= sroom->hy);
|
|
}
|
|
|
|
has_upstairs(sroom)
|
|
register struct mkroom *sroom;
|
|
{
|
|
return(sroom->lx <= xupstair && xupstair <= sroom->hx &&
|
|
sroom->ly <= yupstair && yupstair <= sroom->hy);
|
|
}
|
|
|
|
isbig(sroom)
|
|
register struct mkroom *sroom;
|
|
{
|
|
register int area = (sroom->hx - sroom->lx) * (sroom->hy - sroom->ly);
|
|
return( area > 20 );
|
|
}
|
|
|
|
dist2(x0,y0,x1,y1){
|
|
return((x0-x1)*(x0-x1) + (y0-y1)*(y0-y1));
|
|
}
|
|
|
|
sq(a) int a; {
|
|
return(a*a);
|
|
}
|
|
#endif QUEST
|