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