Wikia

Wikihack

Source:NetHack 3.0.0/fountain.c

2,032pages on
this wiki
Talk0

Below is the full text to fountain.c from the source code of NetHack 3.0.0. To link to a particular line, write [[NetHack 3.0.0/fountain.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)fountain.c	3.0	88/12/22
2.    /* Code for drinking from fountains.   */
3.    /* Scott R. Turner, srt@ucla, 10/27/86 */
4.    /* NetHack may be freely redistributed.  See license for details. */
5.    
6.    #include "hack.h"
7.    
8.    #ifdef FOUNTAINS
9.    
10.   static
11.   void
12.   dowatersnakes() /* Fountain of snakes! */ {
13.   	register int num = rnd(6);
14.   	if (!(mons[PM_WATER_MOCCASIN].geno & G_GENOD)) {	/* && chgd to &*/
15.   
16.   		pline("Good Lord!  An endless stream of snakes pours forth!");
17.   		while(num-- > 0) (void) makemon(&mons[PM_WATER_MOCCASIN],u.ux,u.uy);
18.   	} else
19.   		pline("The fountain bubbles furiously for a moment, then calms.");
20.   }
21.   
22.   static
23.   void
24.   dowaterdemon() /* Water demon */ {
25.   register struct monst *mtmp;
26.   
27.   	if((mtmp = makemon(&mons[PM_WATER_DEMON],u.ux,u.uy))) {
28.   	    You("have unleashed %s!", defmonnam(mtmp));
29.   
30.   	/* Give those on low levels a (slightly) better chance of survival */
31.   	    if ( rnd(100) > (80 + dlevel)) {
32.   		pline("Grateful for his release, he grants you a wish!");
33.   		makewish();
34.   		mongone(mtmp);
35.   	    }
36.   	}
37.   }
38.   
39.   static
40.   void
41.   dowaternymph() /* Water Nymph */ {
42.   	register struct monst *mtmp;
43.   	if((mtmp = makemon(&mons[PM_WATER_NYMPH],u.ux,u.uy))) {
44.   
45.   		You("have attracted %s!", defmonnam(mtmp));
46.   		mtmp->msleep = 0;
47.   	} else
48.   		pline("A large bubble rises to the surface and pops.");
49.   }
50.   
51.   
52.   static
53.   void
54.   dogushforth(drinking) /* Gushing forth in this room */
55.   int drinking;
56.   {
57.   register int num = rnd(10);
58.   register xchar mx,my;
59.   register int tryct = 0;
60.   register int uroom = inroom(u.ux, u.uy);
61.   register struct mkroom *croom = &rooms[uroom];
62.   register int madepool = 0;
63.   
64.   	if(croom->hx < 0 || has_upstairs(croom) ||
65.   	   has_dnstairs(croom))  {
66.   		if (drinking) Your("thirst is quenched.");
67.   		else pline("Water sprays all over you.");
68.   		return;
69.   	}
70.   	while(num--) {
71.   	    do {
72.   		if(++tryct > 200)  {
73.   		    if(madepool)
74.   			pline("Water gushes forth from the overflowing fountain!");
75.   		    else if (drinking) Your("thirst is quenched.");
76.   		else pline("Water sprays all over you.");
77.   		    return;
78.   		}
79.   		mx = somex(croom);
80.   		my = somey(croom);
81.   	    } while(nexttodoor(mx,my) || !((mx+my)%2) ||
82.   		    (mx == u.ux && my == u.uy) ||
83.   		    (IS_POOL(levl[mx][my].typ)));
84.   		       
85.   	    /* Put a pool at mx, my */
86.   		     
87.   	    levl[mx][my].typ = POOL;
88.   	    levl[mx][my].doormask = 0;
89.   	    if(!Blind) atl(mx,my,(char) POOL_SYM);
90.   	    madepool = 1;
91.   	}
92.   
93.   	pline("Water gushes forth from the overflowing fountain!");
94.   }
95.   
96.   static
97.   void
98.   dofindgem() /* Find a gem in the sparkling waters. */ {
99.   
100.  	if (!Blind) You("spot a gem in the sparkling waters!");
101.  	(void) mkobj_at(GEM_SYM,u.ux,u.uy);
102.  	levl[u.ux][u.uy].doormask = T_LOOTED;
103.  }
104.  
105.  void
106.  dryup(){
107.  	if (!rn2(3) && (levl[u.ux][u.uy].typ == FOUNTAIN)) {
108.  		pline("The fountain dries up!");
109.  		levl[u.ux][u.uy].typ = ROOM;
110.  		levl[u.ux][u.uy].doormask = 0;
111.  		if(Invisible) newsym(u.ux, u.uy);
112.  		fountsound--;
113.  	}
114.  }
115.  
116.  void
117.  drinkfountain() {
118.  
119.  	/* What happens when you drink from a fountain? */
120.  	register int fate = rnd(30);
121.  
122.  	if(Levitation)	{
123.  		You("are floating high above the fountain.");
124.  		return;
125.  	}
126.  	else if (fate < 10) {
127.  		pline("The cool draught refreshes you.");
128.  		lesshungry(rnd(10));
129.  	} else {
130.  	    switch (fate) {
131.  
132.  		case 19: /* Self-knowledge */
133.  
134.  			You("feel self-knowledgable...");
135.  			more();
136.  			enlightenment();
137.  			pline("The feeling subsides.");
138.  			break;
139.  
140.  		case 20: /* Foul water */
141.  
142.  			pline("The water is foul!  You gag and vomit.");
143.  			morehungry(rnd(20)+10);
144.  			vomit();
145.  			break;
146.  
147.  		case 21: /* Poisonous */
148.  
149.  			pline("The water is contaminated!");
150.  			if (Poison_resistance) {
151.  	   pline("Perhaps it is runoff from the nearby %s farm.", pl_fruit);
152.  			   losehp(rnd(4),"unrefrigerated sip of juice");
153.  			   break;
154.  			}
155.  			losestr(rn1(4,3));
156.  			losehp(rnd(10),"contaminated water");
157.  			break;
158.  	
159.  		case 22: /* Fountain of snakes! */
160.  
161.  			dowatersnakes();
162.  			break;
163.  
164.  		case 23: /* Water demon */
165.  			dowaterdemon();
166.  			break;
167.  
168.  		case 24: /* Curse an item... */ {
169.  			register struct obj *obj;
170.  
171.  			pline("This water's no good!");
172.  			morehungry(rnd(20)+10);
173.  			for(obj = invent; obj ; obj = obj->nobj)
174.  				if (!rn2(5))	curse(obj);
175.  			break;
176.  			}
177.  			 
178.  		case 25: /* See invisible */
179.  
180.  			You("see an image of someone stalking you.");
181.  			pline("But it disappears.");
182.  			HSee_invisible |= INTRINSIC;
183.  			break;
184.  
185.  		case 26: /* See Monsters */
186.  
187.  			(void) monster_detect((struct obj *)0);
188.  			break;
189.  
190.  		case 27: /* Find a gem in the sparkling waters. */
191.  
192.  			if (levl[u.ux][u.uy].doormask == 0) {
193.  				dofindgem();
194.  				break;
195.  			}
196.  
197.  		case 28: /* Water Nymph */
198.  
199.  			dowaternymph();
200.  			break;
201.  
202.  		case 29: /* Scare */ {
203.  			register struct monst *mtmp;
204.  
205.  			pline("This water gives you bad breath!");
206.  			for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) 
207.  				mtmp->mflee = 1;
208.  			}
209.  			break;
210.  
211.  		case 30: /* Gushing forth in this room */
212.  
213.  			dogushforth(TRUE);
214.  			break;
215.  
216.  		default:
217.  
218.  			pline("This tepid water is tasteless.");
219.  			break;
220.  	    }
221.  	}
222.  	dryup();
223.  }
224.  
225.  void
226.  dipfountain(obj)
227.  register struct obj *obj;
228.  {
229.  	register int fate = rnd(30);
230.  
231.  	if(Levitation)	You("are floating high above the fountain.");
232.  	else if(fate<10)
233.  		if(!obj->rustfree && is_sword(obj)) {
234.  			if(obj->spe > -6) {
235.  				Your("sword rusts somewhat.");
236.  				obj->spe--;
237.  			} else Your("sword looks quite rusted.");
238.  		} else pline("Well, it looks wet now.");
239.  	else if(fate<14)
240.  		if(obj->otyp == LONG_SWORD
241.  #ifndef NAMED_ITEMS
242.  		   && !strcmp(ONAME(obj), "Excalibur")
243.  #endif
244.  		   && u.ulevel >= 5
245.  		) {
246.  			/* The lady of the lake acts! - Eric Backus */
247.  			/* Be *REAL* nice to him */
248.  	pline("A murky hand from the depths reaches up to bless the sword.");
249.  	pline("As the hand retreats, the fountain disappears!");
250.  
251.  #ifndef NAMED_ITEMS
252.  			if(obj->spe < 5) obj->spe = 5;
253.  #else
254.  			/* otherwise +rnd(10) / +5 "Super"sword */
255.  			obj = oname(obj, "Excalibur", 1);
256.  #endif
257.  			bless(obj);
258.  			obj->rustfree = 1;
259.  			levl[u.ux][u.uy].typ = ROOM;
260.  			if(Invisible) newsym(u.ux, u.uy);
261.  			fountsound--;
262.  			return;
263.  		} else pline ("Well, it looks wet now.");
264.  	else {
265.  	    switch (fate) {
266.  		case 16: /* Curse the item */
267.  			pline("Well, it looks wet now.");
268.  			curse(obj);
269.  			break;
270.  		case 17:
271.  		case 18:
272.  		case 19:
273.  		case 20: /* Uncurse the item */
274.  			if(obj->cursed) {
275.  			    if (!Blind)
276.  				pline("The water glows for a moment.");
277.  			    obj->cursed = 0;
278.  			} else {
279.  			    pline("A feeling of loss comes over you.");
280.  			}
281.  			break;
282.  		case 21: /* Water Demon */
283.  			dowaterdemon();
284.  			break;
285.  		case 22: /* Water Nymph */
286.  			dowaternymph();
287.  			break;
288.  		case 23: /* An Endless Stream Of Snakes */
289.  			dowatersnakes();
290.  			break;
291.  		case 24: /* Find a gem */
292.  			dofindgem();
293.  			break;
294.  		case 25: /* Water gushes forth */
295.  			dogushforth(FALSE);
296.  			break;
297.  		case 26: /* Strange feeling */
298.  			pline("A strange tingling runs up your %s.",
299.  							body_part(ARM));
300.  			break;
301.  		case 27: /* Strange feeling */
302.  			You("feel a sudden chill.");
303.  			break;
304.  		case 28: /* Strange feeling */
305.  			pline("An urge to take a bath overwhelms you.");
306.  			if (u.ugold > 10) {
307.  			     	u.ugold -= somegold()/10;
308.  			  You("lost some of your gold in the fountain!");
309.  			  levl[u.ux][u.uy].doormask = 0;
310.  	 		}
311.  			break;
312.  		case 29: /* You see coins */
313.  
314.  		/* We make fountains have more coins the closer you are to the
315.  		 * surface.  After all, there will have been more people going
316.  		 * by.  Just like a shopping mall!  Chris Woodbury  */
317.  
318.  			mkgold((long)(rnd((MAXLEVEL-dlevel)*2)+5),u.ux,u.uy);
319.  		pline("Far below you, you see coins glistening in the water.");
320.  			break;
321.  		default:
322.  			break;
323.  	    }
324.  	}
325.  	dryup();
326.  	return;
327.  }
328.  #endif
329.  
330.  #ifdef SINKS
331.  void
332.  drinksink()
333.  {
334.  	if (Levitation) {
335.  		You("are floating high above the sink.");
336.  		return;
337.  	}
338.  	switch(rn2(20)) {
339.  		static struct obj *otmp;
340.  		case 0: You("take a sip of very cold water.");
341.  			break;
342.  		case 1: You("take a sip of very warm water.");
343.  			break;
344.  		case 2: You("take a sip of scalding hot water.");
345.  			if (Fire_resistance)
346.  				pline("It seems quite tasty.");
347.  			else losehp(rnd(6), "sip of boiling water");
348.  			break;
349.  		case 3: if (mons[PM_SEWER_RAT].geno & G_GENOD)
350.  				pline("The sink seems quite dirty.");
351.  			else {
352.  				static struct monst *mtmp;
353.  
354.  				mtmp = makemon(&mons[PM_SEWER_RAT], u.ux, u.uy);
355.  				pline("Eek!  There's %s in the sink!",
356.  					Blind ? "something squirmy" :
357.  					defmonnam(mtmp));
358.  			}
359.  			break;
360.  		case 4: do {
361.  				otmp = mkobj(POTION_SYM,FALSE);
362.  			} while(otmp->otyp == POT_WATER);
363.  			otmp->cursed = otmp->blessed = 0;
364.  			if (Blind)
365.  				pline("The sink emits some odd liquid.");
366.  			else
367.  				pline("The sink emits a stream of %s water.",
368.  				    Hallucination ? hcolor() :
369.  				    objects[otmp->otyp].oc_descr);
370.  			otmp->dknown = !(Blind || Hallucination);
371.  			otmp->quan++; /* Avoid panic upon useup() */
372.  			otmp->corpsenm = 1; /* kludge for docall() */
373.  			(void) dopotion(otmp);
374.  			obfree(otmp, (struct obj *)0);
375.  			break;
376.  		case 5: if (levl[u.ux][u.uy].doormask == 0) {
377.  			    You("find a ring in the sink!");
378.  			    (void) mkobj_at(RING_SYM, u.ux, u.uy);
379.  			    levl[u.ux][u.uy].doormask = T_LOOTED;
380.  			} else pline("Some dirty water backs up in the drain.");
381.  			break;
382.  		case 6: pline("The pipes break!  Water spurts out!");
383.  			sinksound--;
384.  			levl[u.ux][u.uy].doormask = 0;
385.  #ifdef FOUNTAINS
386.  			levl[u.ux][u.uy].typ = FOUNTAIN;
387.  			fountsound++;
388.  #else
389.  			levl[u.ux][u.uy].typ = ROOM;
390.  #endif
391.  			if (Invisible) newsym(u.ux,u.uy);
392.  			break;
393.  		case 7: pline("The water moves as though of its own will!");
394.  			if (!makemon(&mons[PM_WATER_ELEMENTAL], u.ux, u.uy))
395.  				pline("But it quiets down.");
396.  			break;
397.  		case 8: pline("Yuk, this water tastes awful.");
398.  			more_experienced(1,0);
399.  			newexplevel();
400.  			break;
401.  		case 9: pline("Gaggg... this tastes like sewage!  You vomit.");
402.  			morehungry(rnd(30-ACURR(A_CON))+10);
403.  			vomit();
404.  			break;
405.  #ifdef POLYSELF
406.  		case 10: pline("This water contains toxic wastes!");
407.  			You("undergo a freakish metamorphosis!");
408.  			polyself();
409.  			break;
410.  #endif
411.  		/* more odd messages --JJB */
412.  		case 11: You("hear clanking from the pipes....");
413.  			break;
414.  		case 12: You("hear snatches of song from among the sewers...");
415.  			break;
416.  		case 19: if (Hallucination) {
417.  				pline("A murky hand reaches up out of the drain... --oops--");
418.  				break;
419.  			}
420.  		default: You("take a sip of %s water.",
421.  			rn2(3) ? (rn2(2) ? "cold" : "warm") : "hot");
422.  	}
423.  }
424.  #endif /* SINKS /**/

Around Wikia's network

Random Wiki