games/hack/hack.makemon.c

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