hack/hack.makemon.c

   1 /*
   2  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
   3  */
   4
   5 #ifndef lint
   6 static char rcsid[] = "$NetBSD: hack.makemon.c,v 1.3 1995/03/23 08:30:38 cgd Exp $";
   7 #endif /* not lint */
   8
   9 #include        "hack.h"
  10 extern char fut_geno[];
  11 extern char *index();
  12 extern struct obj *mkobj_at();
  13 struct monst zeromonst;
  14
  15 /*
  16  * called with [x,y] = coordinates;
  17  *      [0,0] means anyplace
  18  *      [u.ux,u.uy] means: call mnexto (if !in_mklev)
  19  *
  20  *      In case we make an Orc or killer bee, we make an entire horde (swarm);
  21  *      note that in this case we return only one of them (the one at [x,y]).
  22  */
  23 struct monst *
  24 makemon(ptr,x,y)
  25 register struct permonst *ptr;
  26 {
  27         register struct monst *mtmp;
  28         register tmp, ct;
  29         boolean anything = (!ptr);
  30         extern boolean in_mklev;
  31
  32         if(x != 0 || y != 0) if(m_at(x,y)) return((struct monst *) 0);
  33         if(ptr){
  34                 if(index(fut_geno, ptr->mlet)) return((struct monst *) 0);
  35         } else {
  36                 ct = CMNUM - strlen(fut_geno);
  37                 if(index(fut_geno, 'm')) ct++;  /* make only 1 minotaur */
  38                 if(index(fut_geno, '@')) ct++;
  39                 if(ct <= 0) return(0);            /* no more monsters! */
  40                 tmp = rn2(ct*dlevel/24 + 7);
  41                 if(tmp < dlevel - 4) tmp = rn2(ct*dlevel/24 + 12);
  42                 if(tmp >= ct) tmp = rn1(ct - ct/2, ct/2);
  43                 for(ct = 0; ct < CMNUM; ct++){
  44                         ptr = &mons[ct];
  45                         if(index(fut_geno, ptr->mlet))
  46                                 continue;
  47                         if(!tmp--) goto gotmon;
  48                 }
  49                 panic("makemon?");
  50         }
  51 gotmon:
  52         mtmp = newmonst(ptr->pxlth);
  53         *mtmp = zeromonst;      /* clear all entries in structure */
  54         for(ct = 0; ct < ptr->pxlth; ct++)
  55                 ((char *) &(mtmp->mextra[0]))[ct] = 0;
  56         mtmp->nmon = fmon;
  57         fmon = mtmp;
  58         mtmp->m_id = flags.ident++;
  59         mtmp->data = ptr;
  60         mtmp->mxlth = ptr->pxlth;
  61         if(ptr->mlet == 'D') mtmp->mhpmax = mtmp->mhp = 80;
  62         else if(!ptr->mlevel) mtmp->mhpmax = mtmp->mhp = rnd(4);
  63         else mtmp->mhpmax = mtmp->mhp = d(ptr->mlevel, 8);
  64         mtmp->mx = x;
  65         mtmp->my = y;
  66         mtmp->mcansee = 1;
  67         if(ptr->mlet == 'M'){
  68                 mtmp->mimic = 1;
  69                 mtmp->mappearance = ']';
  70         }
  71         if(!in_mklev) {
  72                 if(x == u.ux && y == u.uy && ptr->mlet != ' ')
  73                         mnexto(mtmp);
  74                 if(x == 0 && y == 0)
  75                         rloc(mtmp);
  76         }
  77         if(ptr->mlet == 's' || ptr->mlet == 'S') {
  78                 mtmp->mhide = mtmp->mundetected = 1;
  79                 if(in_mklev)
  80                 if(mtmp->mx && mtmp->my)
  81                         (void) mkobj_at(0, mtmp->mx, mtmp->my);
  82         }
  83         if(ptr->mlet == ':') {
  84                 mtmp->cham = 1;
  85                 (void) newcham(mtmp, &mons[dlevel+14+rn2(CMNUM-14-dlevel)]);
  86         }
  87         if(ptr->mlet == 'I' || ptr->mlet == ';')
  88                 mtmp->minvis = 1;
  89         if(ptr->mlet == 'L' || ptr->mlet == 'N'
  90             || (in_mklev && index("&w;", ptr->mlet) && rn2(5))
  91         ) mtmp->msleep = 1;
  92
  93 #ifndef NOWORM
  94         if(ptr->mlet == 'w' && getwn(mtmp))
  95                 initworm(mtmp);
  96 #endif NOWORM
  97
  98         if(anything) if(ptr->mlet == 'O' || ptr->mlet == 'k') {
  99                 coord enexto();
 100                 coord mm;
 101                 register int cnt = rnd(10);
 102                 mm.x = x;
 103                 mm.y = y;
 104                 while(cnt--) {
 105                         mm = enexto(mm.x, mm.y);
 106                         (void) makemon(ptr, mm.x, mm.y);
 107                 }
 108         }
 109
 110         return(mtmp);
 111 }
 112
 113 coord
 114 enexto(xx,yy)
 115 register xchar xx,yy;
 116 {
 117         register xchar x,y;
 118         coord foo[15], *tfoo;
 119         int range;
 120
 121         tfoo = foo;
 122         range = 1;
 123         do {    /* full kludge action. */
 124                 for(x = xx-range; x <= xx+range; x++)
 125                         if(goodpos(x, yy-range)) {
 126                                 tfoo->x = x;
 127                                 tfoo++->y = yy-range;
 128                                 if(tfoo == &foo[15]) goto foofull;
 129                         }
 130                 for(x = xx-range; x <= xx+range; x++)
 131                         if(goodpos(x,yy+range)) {
 132                                 tfoo->x = x;
 133                                 tfoo++->y = yy+range;
 134                                 if(tfoo == &foo[15]) goto foofull;
 135                         }
 136                 for(y = yy+1-range; y < yy+range; y++)
 137                         if(goodpos(xx-range,y)) {
 138                                 tfoo->x = xx-range;
 139                                 tfoo++->y = y;
 140                                 if(tfoo == &foo[15]) goto foofull;
 141                         }
 142                 for(y = yy+1-range; y < yy+range; y++)
 143                         if(goodpos(xx+range,y)) {
 144                                 tfoo->x = xx+range;
 145                                 tfoo++->y = y;
 146                                 if(tfoo == &foo[15]) goto foofull;
 147                         }
 148                 range++;
 149         } while(tfoo == foo);
 150 foofull:
 151         return( foo[rn2(tfoo-foo)] );
 152 }
 153
 154 goodpos(x,y)    /* used only in mnexto and rloc */
 155 {
 156         return(
 157         ! (x < 1 || x > COLNO-2 || y < 1 || y > ROWNO-2 ||
 158            m_at(x,y) || !ACCESSIBLE(levl[x][y].typ)
 159            || (x == u.ux && y == u.uy)
 160            || sobj_at(ENORMOUS_ROCK, x, y)
 161         ));
 162 }
 163
 164 rloc(mtmp)
 165 struct monst *mtmp;
 166 {
 167         register tx,ty;
 168         register char ch = mtmp->data->mlet;
 169
 170 #ifndef NOWORM
 171         if(ch == 'w' && mtmp->mx) return;       /* do not relocate worms */
 172 #endif NOWORM
 173         do {
 174                 tx = rn1(COLNO-3,2);
 175                 ty = rn2(ROWNO);
 176         } while(!goodpos(tx,ty));
 177         mtmp->mx = tx;
 178         mtmp->my = ty;
 179         if(u.ustuck == mtmp){
 180                 if(u.uswallow) {
 181                         u.ux = tx;
 182                         u.uy = ty;
 183                         docrt();
 184                 } else  u.ustuck = 0;
 185         }
 186         pmon(mtmp);
 187 }
 188
 189 struct monst *
 190 mkmon_at(let,x,y)
 191 char let;
 192 register int x,y;
 193 {
 194         register int ct;
 195         register struct permonst *ptr;
 196
 197         for(ct = 0; ct < CMNUM; ct++) {
 198                 ptr = &mons[ct];
 199                 if(ptr->mlet == let)
 200                         return(makemon(ptr,x,y));
 201         }
 202         return(0);
 203 }