1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 2 /* hack.worm.c - version 1.0.2 */ 3 /* $FreeBSD: src/games/hack/hack.worm.c,v 1.4 1999/11/16 10:26:38 marcel Exp $ */ 4 /* $DragonFly: src/games/hack/hack.worm.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */ 5 6 #include "hack.h" 7 #ifndef NOWORM 8 9 struct wseg *wsegs[32]; /* linked list, tail first */ 10 struct wseg *wheads[32]; 11 long wgrowtime[32]; 12 13 static void remseg(struct wseg *); 14 15 bool 16 getwn(struct monst *mtmp) 17 { 18 int tmp; 19 for(tmp=1; tmp<32; tmp++) if(!wsegs[tmp]) { 20 mtmp->wormno = tmp; 21 return(1); 22 } 23 return(0); /* level infested with worms */ 24 } 25 26 /* called to initialize a worm unless cut in half */ 27 void 28 initworm(struct monst *mtmp) 29 { 30 struct wseg *wtmp; 31 int tmp = mtmp->wormno; 32 if(!tmp) return; 33 wheads[tmp] = wsegs[tmp] = wtmp = newseg(); 34 wgrowtime[tmp] = 0; 35 wtmp->wx = mtmp->mx; 36 wtmp->wy = mtmp->my; 37 wtmp->nseg = 0; 38 } 39 40 void 41 worm_move(struct monst *mtmp) 42 { 43 struct wseg *wtmp, *whd; 44 int tmp = mtmp->wormno; 45 wtmp = newseg(); 46 wtmp->wx = mtmp->mx; 47 wtmp->wy = mtmp->my; 48 wtmp->nseg = 0; 49 (whd = wheads[tmp])->nseg = wtmp; 50 wheads[tmp] = wtmp; 51 if(cansee(whd->wx,whd->wy)){ 52 unpmon(mtmp); 53 atl(whd->wx, whd->wy, '~'); 54 whd->wdispl = 1; 55 } else whd->wdispl = 0; 56 if(wgrowtime[tmp] <= moves) { 57 if(!wgrowtime[tmp]) wgrowtime[tmp] = moves + rnd(5); 58 else wgrowtime[tmp] += 2+rnd(15); 59 mtmp->mhpmax += 3; 60 mtmp->mhp += 3; 61 return; 62 } 63 whd = wsegs[tmp]; 64 wsegs[tmp] = whd->nseg; 65 remseg(whd); 66 } 67 68 void 69 worm_nomove(struct monst *mtmp) 70 { 71 int tmp; 72 struct wseg *wtmp; 73 tmp = mtmp->wormno; 74 wtmp = wsegs[tmp]; 75 if(wtmp == wheads[tmp]) return; 76 if(wtmp == 0 || wtmp->nseg == 0) panic("worm_nomove?"); 77 wsegs[tmp] = wtmp->nseg; 78 remseg(wtmp); 79 mtmp->mhp -= 3; /* mhpmax not changed ! */ 80 } 81 82 void 83 wormdead(struct monst *mtmp) 84 { 85 int tmp = mtmp->wormno; 86 struct wseg *wtmp, *wtmp2; 87 if(!tmp) return; 88 mtmp->wormno = 0; 89 for(wtmp = wsegs[tmp]; wtmp; wtmp = wtmp2){ 90 wtmp2 = wtmp->nseg; 91 remseg(wtmp); 92 } 93 wsegs[tmp] = 0; 94 } 95 96 void 97 wormhit(struct monst *mtmp) 98 { 99 int tmp = mtmp->wormno; 100 struct wseg *wtmp; 101 if(!tmp) return; /* worm without tail */ 102 for(wtmp = wsegs[tmp]; wtmp; wtmp = wtmp->nseg) 103 hitu(mtmp,1); 104 } 105 106 void 107 wormsee(unsigned int tmp) 108 { 109 struct wseg *wtmp = wsegs[tmp]; 110 if(!wtmp) panic("wormsee: wtmp==0"); 111 for(; wtmp->nseg; wtmp = wtmp->nseg) 112 if(!cansee(wtmp->wx,wtmp->wy) && wtmp->wdispl){ 113 newsym(wtmp->wx, wtmp->wy); 114 wtmp->wdispl = 0; 115 } 116 } 117 118 void 119 pwseg(struct wseg *wtmp) 120 { 121 if(!wtmp->wdispl){ 122 atl(wtmp->wx, wtmp->wy, '~'); 123 wtmp->wdispl = 1; 124 } 125 } 126 127 void 128 cutworm(struct monst *mtmp, xchar x, xchar y, uchar weptyp) 129 /* weptyp: uwep->otyp or 0 */ 130 { 131 struct wseg *wtmp, *wtmp2; 132 struct monst *mtmp2; 133 int tmp,tmp2; 134 if(mtmp->mx == x && mtmp->my == y) return; /* hit headon */ 135 136 /* cutting goes best with axe or sword */ 137 tmp = rnd(20); 138 if(weptyp == LONG_SWORD || weptyp == TWO_HANDED_SWORD || 139 weptyp == AXE) tmp += 5; 140 if(tmp < 12) return; 141 142 /* if tail then worm just loses a tail segment */ 143 tmp = mtmp->wormno; 144 wtmp = wsegs[tmp]; 145 if(wtmp->wx == x && wtmp->wy == y){ 146 wsegs[tmp] = wtmp->nseg; 147 remseg(wtmp); 148 return; 149 } 150 151 /* cut the worm in two halves */ 152 mtmp2 = newmonst(0); 153 *mtmp2 = *mtmp; 154 mtmp2->mxlth = mtmp2->mnamelth = 0; 155 156 /* sometimes the tail end dies */ 157 if(rn2(3) || !getwn(mtmp2)){ 158 monfree(mtmp2); 159 tmp2 = 0; 160 } else { 161 tmp2 = mtmp2->wormno; 162 wsegs[tmp2] = wsegs[tmp]; 163 wgrowtime[tmp2] = 0; 164 } 165 do { 166 if(wtmp->nseg->wx == x && wtmp->nseg->wy == y){ 167 if(tmp2) wheads[tmp2] = wtmp; 168 wsegs[tmp] = wtmp->nseg->nseg; 169 remseg(wtmp->nseg); 170 wtmp->nseg = 0; 171 if(tmp2){ 172 pline("You cut the worm in half."); 173 mtmp2->mhpmax = mtmp2->mhp = 174 d(mtmp2->data->mlevel, 8); 175 mtmp2->mx = wtmp->wx; 176 mtmp2->my = wtmp->wy; 177 mtmp2->nmon = fmon; 178 fmon = mtmp2; 179 pmon(mtmp2); 180 } else { 181 pline("You cut off part of the worm's tail."); 182 remseg(wtmp); 183 } 184 mtmp->mhp /= 2; 185 return; 186 } 187 wtmp2 = wtmp->nseg; 188 if(!tmp2) remseg(wtmp); 189 wtmp = wtmp2; 190 } while(wtmp->nseg); 191 panic("Cannot find worm segment"); 192 } 193 194 static void 195 remseg(struct wseg *wtmp) 196 { 197 if(wtmp->wdispl) 198 newsym(wtmp->wx, wtmp->wy); 199 free((char *) wtmp); 200 } 201 #endif /* NOWORM */ 202