Source:SLASH'EM 0.0.7E7F2/o init.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to o_init.c from the source code of SLASH'EM 0.0.7E7F2. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/o_init.c#line123]], for example.

The latest source code for vanilla NetHack is at Source code.


The NetHack General Public License applies to screenshots, source code and other content from NetHack.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

1.    /*	SCCS Id: @(#)o_init.c	3.4	1999/12/09	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    #include "lev.h"	/* save & restore info */
7.    
8.    STATIC_DCL void FDECL(setgemprobs, (d_level*));
9.    STATIC_DCL void FDECL(shuffle,(int,int,BOOLEAN_P));
10.   STATIC_DCL void NDECL(shuffle_all);
11.   STATIC_DCL boolean FDECL(interesting_to_discover,(int));
12.   
13.   static NEARDATA short disco[NUM_OBJECTS] = DUMMY;
14.   
15.   #ifdef USE_TILES
16.   STATIC_DCL void NDECL(shuffle_tiles);
17.   extern short glyph2tile[];	/* from tile.c */
18.   
19.   /* Shuffle tile assignments to match descriptions, so a red potion isn't
20.    * displayed with a blue tile and so on.
21.    *
22.    * Tile assignments are not saved, and shouldn't be so that a game can
23.    * be resumed on an otherwise identical non-tile-using binary, so we have
24.    * to reshuffle the assignments from oc_descr_idx information when a game
25.    * is restored.  So might as well do that the first time instead of writing
26.    * another routine.
27.    */
28.   STATIC_OVL void
29.   shuffle_tiles()
30.   {
31.   	int i;
32.   	short tmp_tilemap[NUM_OBJECTS];
33.   
34.   	for (i = 0; i < NUM_OBJECTS; i++)
35.   		tmp_tilemap[i] =
36.   			glyph2tile[objects[i].oc_descr_idx + GLYPH_OBJ_OFF];
37.   
38.   	for (i = 0; i < NUM_OBJECTS; i++)
39.   		glyph2tile[i + GLYPH_OBJ_OFF] = tmp_tilemap[i];
40.   }
41.   #endif	/* USE_TILES */
42.   
43.   #ifdef PROXY_GRAPHICS
44.   STATIC_DCL void NDECL(shuffle_proxy_glyphs);
45.   extern short glyph2proxy[];	/* from glyphmap.c */
46.   
47.   /* Shuffle proxy glyph assignments for the same reason as tiles
48.    * (internal glyphs are based on object numbers, proxy glyphs
49.    * are based on object descriptions).
50.    */
51.   STATIC_OVL void
52.   shuffle_proxy_glyphs()
53.   {
54.   	int i;
55.   	short tmp_glyphmap[NUM_OBJECTS];
56.   
57.   	for (i = 0; i < NUM_OBJECTS; i++)
58.   		tmp_glyphmap[i] =
59.   			glyph2proxy[objects[i].oc_descr_idx + GLYPH_OBJ_OFF];
60.   
61.   	for (i = 0; i < NUM_OBJECTS; i++)
62.   		glyph2proxy[i + GLYPH_OBJ_OFF] = tmp_glyphmap[i];
63.   }
64.   #endif	/* USE_TILES */
65.   
66.   STATIC_OVL void
67.   setgemprobs(dlev)
68.   d_level *dlev;
69.   {
70.   	int j, first, lev;
71.   
72.   	if (dlev)
73.   	    lev = (ledger_no(dlev) > maxledgerno())
74.   				? maxledgerno() : ledger_no(dlev);
75.   	else
76.   	    lev = 0;
77.   	first = bases[GEM_CLASS];
78.   
79.   	for(j = 0; j < 9-lev/3; j++)
80.   		objects[first+j].oc_prob = 0;
81.   	first += j;
82.   	if (first > LAST_GEM || objects[first].oc_class != GEM_CLASS ||
83.   	    OBJ_NAME(objects[first]) == (char *)0) {
84.   		raw_printf("Not enough gems? - first=%d j=%d LAST_GEM=%d",
85.   			first, j, LAST_GEM);
86.   		wait_synch();
87.   	    }
88.   	for (j = first; j <= LAST_GEM; j++)
89.   		/* KMH, balance patch -- valuable gems now sum to 171 */
90.   		objects[j].oc_prob = (171+j-first)/(LAST_GEM+1-first);
91.   }
92.   
93.   /* shuffle descriptions on objects o_low to o_high */
94.   STATIC_OVL void
95.   shuffle(o_low, o_high, domaterial)
96.   	int o_low, o_high;
97.   	boolean domaterial;
98.   {
99.   	int i, j, num_to_shuffle;
100.  	short sw;
101.  	int color;
102.  
103.  	for (num_to_shuffle = 0, j=o_low; j <= o_high; j++)
104.  		if (!objects[j].oc_name_known) num_to_shuffle++;
105.  	if (num_to_shuffle < 2) return;
106.  
107.  	for (j=o_low; j <= o_high; j++) {
108.  		if (objects[j].oc_name_known) continue;
109.  		do
110.  			i = j + rn2(o_high-j+1);
111.  		while (objects[i].oc_name_known);
112.  		sw = objects[j].oc_descr_idx;
113.  		objects[j].oc_descr_idx = objects[i].oc_descr_idx;
114.  		objects[i].oc_descr_idx = sw;
115.  		sw = objects[j].oc_tough;
116.  		objects[j].oc_tough = objects[i].oc_tough;
117.  		objects[i].oc_tough = sw;
118.  		color = objects[j].oc_color;
119.  		objects[j].oc_color = objects[i].oc_color;
120.  		objects[i].oc_color = color;
121.  
122.  		/* shuffle material */
123.  		if (domaterial) {
124.  			sw = objects[j].oc_material;
125.  			objects[j].oc_material = objects[i].oc_material;
126.  			objects[i].oc_material = sw;
127.  		}
128.  	}
129.  }
130.  
131.  void
132.  init_objects()
133.  {
134.  register int i, first, last, sum;
135.  register char oclass;
136.  #ifdef TEXTCOLOR
137.  # define COPY_OBJ_DESCR(o_dst,o_src) \
138.  			o_dst.oc_descr_idx = o_src.oc_descr_idx,\
139.  			o_dst.oc_color = o_src.oc_color
140.  #else
141.  # define COPY_OBJ_DESCR(o_dst,o_src) o_dst.oc_descr_idx = o_src.oc_descr_idx
142.  #endif
143.  
144.  	/* bug fix to prevent "initialization error" abort on Intel Xenix.
145.  	 * reported by mikew@semike
146.  	 */
147.  	for (i = 0; i < MAXOCLASSES; i++)
148.  		bases[i] = 0;
149.  	/* initialize object descriptions */
150.  	for (i = 0; i < NUM_OBJECTS; i++)
151.  		objects[i].oc_name_idx = objects[i].oc_descr_idx = i;
152.  	/* init base; if probs given check that they add up to 1000,
153.  	   otherwise compute probs */
154.  	first = 0;
155.  	while( first < NUM_OBJECTS ) {
156.  		oclass = objects[first].oc_class;
157.  		last = first+1;
158.  		while (last < NUM_OBJECTS && objects[last].oc_class == oclass) last++;
159.  		bases[(int)oclass] = first;
160.  
161.  		if (oclass == GEM_CLASS) {
162.  			setgemprobs((d_level *)0);
163.  
164.  			if (rn2(2)) { /* change turquoise from green to blue? */
165.  			    COPY_OBJ_DESCR(objects[TURQUOISE],objects[SAPPHIRE]);
166.  			}
167.  			if (rn2(2)) { /* change aquamarine from green to blue? */
168.  			    COPY_OBJ_DESCR(objects[AQUAMARINE],objects[SAPPHIRE]);
169.  			}
170.  			switch (rn2(4)) { /* change fluorite from violet? */
171.  			    case 0:  break;
172.  			    case 1:	/* blue */
173.  				COPY_OBJ_DESCR(objects[FLUORITE],objects[SAPPHIRE]);
174.  				break;
175.  			    case 2:	/* white */
176.  				COPY_OBJ_DESCR(objects[FLUORITE],objects[DIAMOND]);
177.  				break;
178.  			    case 3:	/* green */
179.  				COPY_OBJ_DESCR(objects[FLUORITE],objects[EMERALD]);
180.  				break;
181.  			}
182.  		}
183.  	check:
184.  		sum = 0;
185.  		for(i = first; i < last; i++) sum += objects[i].oc_prob;
186.  		if(sum == 0) {
187.  			for(i = first; i < last; i++)
188.  			    objects[i].oc_prob = (1000+i-first)/(last-first);
189.  			goto check;
190.  		}
191.  		if(sum != sum)
192.  			error("init-prob error for class %d (%d%%)", oclass, sum);
193.  		first = last;
194.  	}
195.  	/* shuffle descriptions */
196.  	shuffle_all();
197.  #ifdef USE_TILES
198.  	shuffle_tiles();
199.  #endif
200.  #ifdef PROXY_GRAPHICS
201.  	shuffle_proxy_glyphs();
202.  #endif
203.  }
204.  
205.  STATIC_OVL void
206.  shuffle_all()
207.  {
208.  	int first, last, oclass;
209.  
210.  	for (oclass = 1; oclass < MAXOCLASSES; oclass++) {
211.  		first = bases[oclass];
212.  		last = first+1;
213.  		while (last < NUM_OBJECTS && objects[last].oc_class == oclass)
214.  			last++;
215.  
216.  		if (OBJ_DESCR(objects[first]) != (char *)0 &&
217.  				oclass != TOOL_CLASS &&
218.  				oclass != WEAPON_CLASS &&
219.  				oclass != ARMOR_CLASS &&
220.  				oclass != GEM_CLASS) {
221.  			int j = last-1;
222.  
223.  			if (oclass == POTION_CLASS)
224.  			    /* water and following have fixed descriptions */
225.  			    j = POT_WATER - 1;
226.  			else if (oclass == AMULET_CLASS ||
227.  				 oclass == SCROLL_CLASS ||
228.  				 oclass == SPBOOK_CLASS) {
229.  			    while (!objects[j].oc_magic || objects[j].oc_unique)
230.  				j--;
231.  			}
232.  
233.  			/* non-magical amulets, scrolls, and spellbooks
234.  			 * (ex. imitation Amulets, blank, scrolls of mail)
235.  			 * and one-of-a-kind magical artifacts at the end of
236.  			 * their class in objects[] have fixed descriptions.
237.  			 */
238.  			shuffle(first, j, TRUE);
239.  		}
240.  	}
241.  
242.  	/* shuffle the helmets */
243.  	shuffle(HELMET, HELM_OF_TELEPATHY, FALSE);
244.  
245.  	/* shuffle the gloves */
246.  	shuffle(LEATHER_GLOVES, GAUNTLETS_OF_DEXTERITY, FALSE);
247.  
248.      /* shuffle the robes */
249.      shuffle(ROBE, ROBE_OF_WEAKNESS, FALSE);
250.  
251.  	/* shuffle the cloaks */
252.  	shuffle(CLOAK_OF_PROTECTION, CLOAK_OF_DISPLACEMENT, FALSE);
253.  
254.  	/* shuffle the boots [if they change, update find_skates() below] */
255.  	shuffle(SPEED_BOOTS, LEVITATION_BOOTS, FALSE);
256.  }
257.  
258.  /* find the object index for snow boots; used [once] by slippery ice code */
259.  int
260.  find_skates()
261.  {
262.      register int i;
263.      register const char *s;
264.  
265.      for (i = SPEED_BOOTS; i <= LEVITATION_BOOTS; i++)
266.  	if ((s = OBJ_DESCR(objects[i])) != 0 && !strcmp(s, "snow boots"))
267.  	    return i;
268.  
269.      impossible("snow boots not found?");
270.      return -1;	/* not 0, or caller would try again each move */
271.  }
272.  
273.  void
274.  oinit()			/* level dependent initialization */
275.  {
276.  	setgemprobs(&u.uz);
277.  }
278.  
279.  void
280.  savenames(fd, mode)
281.  int fd, mode;
282.  {
283.  	register int i;
284.  	unsigned int len;
285.  
286.  	if (perform_bwrite(mode)) {
287.  	    bwrite(fd, (genericptr_t)bases, sizeof bases);
288.  	    bwrite(fd, (genericptr_t)disco, sizeof disco);
289.  	    bwrite(fd, (genericptr_t)objects,
290.  		   sizeof(struct objclass) * NUM_OBJECTS);
291.  	}
292.  	/* as long as we use only one version of Hack we
293.  	   need not save oc_name and oc_descr, but we must save
294.  	   oc_uname for all objects */
295.  	for (i = 0; i < NUM_OBJECTS; i++)
296.  	    if (objects[i].oc_uname) {
297.  		if (perform_bwrite(mode)) {
298.  		    len = strlen(objects[i].oc_uname)+1;
299.  		    bwrite(fd, (genericptr_t)&len, sizeof len);
300.  		    bwrite(fd, (genericptr_t)objects[i].oc_uname, len);
301.  		}
302.  		if (release_data(mode)) {
303.  		    free((genericptr_t)objects[i].oc_uname);
304.  		    objects[i].oc_uname = 0;
305.  		}
306.  	    }
307.  }
308.  
309.  void
310.  restnames(fd)
311.  register int fd;
312.  {
313.  	register int i;
314.  	unsigned int len;
315.  
316.  	mread(fd, (genericptr_t) bases, sizeof bases);
317.  	mread(fd, (genericptr_t) disco, sizeof disco);
318.  	mread(fd, (genericptr_t) objects, sizeof(struct objclass) * NUM_OBJECTS);
319.  	for (i = 0; i < NUM_OBJECTS; i++)
320.  	    if (objects[i].oc_uname) {
321.  		mread(fd, (genericptr_t) &len, sizeof len);
322.  		objects[i].oc_uname = (char *) alloc(len);
323.  		mread(fd, (genericptr_t)objects[i].oc_uname, len);
324.  	    }
325.  #ifdef USE_TILES
326.  	shuffle_tiles();
327.  #endif
328.  #ifdef PROXY_GRAPHICS
329.  	shuffle_proxy_glyphs();
330.  #endif
331.  }
332.  
333.  void
334.  discover_object(oindx, mark_as_known, credit_hero)
335.  register int oindx;
336.  boolean mark_as_known;
337.  boolean credit_hero;
338.  {
339.  	/* KMH -- If we are hallucinating, we aren't sure of the object description */
340.  	if (Hallucination) return;
341.  
342.      if (!objects[oindx].oc_name_known) {
343.  	register int dindx, acls = objects[oindx].oc_class;
344.  
345.  	/* Loop thru disco[] 'til we find the target (which may have been
346.  	   uname'd) or the next open slot; one or the other will be found
347.  	   before we reach the next class...
348.  	 */
349.  	for (dindx = bases[acls]; disco[dindx] != 0; dindx++)
350.  	    if (disco[dindx] == oindx) break;
351.  	disco[dindx] = oindx;
352.  
353.  	if (mark_as_known) {
354.  	    objects[oindx].oc_name_known = 1;
355.  	    if (credit_hero) exercise(A_WIS, TRUE);
356.  	}
357.  	if (moves > 1L) update_inventory();
358.      }
359.  }
360.  
361.  /* if a class name has been cleared, we may need to purge it from disco[] */
362.  void
363.  undiscover_object(oindx)
364.  register int oindx;
365.  {
366.      if (!objects[oindx].oc_name_known) {
367.  	register int dindx, acls = objects[oindx].oc_class;
368.  	register boolean found = FALSE;
369.  
370.  	/* find the object; shift those behind it forward one slot */
371.  	for (dindx = bases[acls];
372.  	      dindx < NUM_OBJECTS && disco[dindx] != 0
373.  		&& objects[dindx].oc_class == acls; dindx++)
374.  	    if (found)
375.  		disco[dindx-1] = disco[dindx];
376.  	    else if (disco[dindx] == oindx)
377.  		found = TRUE;
378.  
379.  	/* clear last slot */
380.  	if (found) disco[dindx-1] = 0;
381.  	else impossible("named object not in disco");
382.  	update_inventory();
383.      }
384.  }
385.  
386.  STATIC_OVL boolean
387.  interesting_to_discover(i)
388.  register int i;
389.  {
390.  	/* Pre-discovered objects are now printed with a '*' */
391.      return((boolean)(objects[i].oc_uname != (char *)0 ||
392.  	    (objects[i].oc_name_known && OBJ_DESCR(objects[i]) != (char *)0)));
393.  }
394.  
395.  /* items that should stand out once they're known */
396.  static short uniq_objs[] = {
397.  	AMULET_OF_YENDOR,
398.  	SPE_BOOK_OF_THE_DEAD,
399.  	CANDELABRUM_OF_INVOCATION,
400.  	BELL_OF_OPENING,
401.  };
402.  
403.  int
404.  dodiscovered()				/* free after Robert Viduya */
405.  {
406.      register int i, dis;
407.      int	ct = 0;
408.      char *s, oclass, prev_class, classes[MAXOCLASSES];
409.      char buf[BUFSZ];    /* WAC */
410.      winid tmpwin;
411.      anything any;
412.      menu_item *selected;
413.  
414.      tmpwin = create_nhwindow(NHW_MENU);
415.      /*
416.       * Use the add_menu() interface so that eg., GTK windowing port
417.       * can display the relevant glyphs --ALI
418.       */
419.      start_menu(tmpwin);
420.  
421.      any.a_void = 0;
422.      add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_BOLD, "Discoveries",
423.        MENU_UNSELECTED);
424.      add_menu(tmpwin, NO_GLYPH, &any, 0, 0, ATR_NONE, "",
425.        MENU_UNSELECTED);
426.  
427.      /* gather "unique objects" into a pseudo-class; note that they'll
428.         also be displayed individually within their regular class */
429.      for (i = dis = 0; i < SIZE(uniq_objs); i++)
430.  	if (objects[uniq_objs[i]].oc_name_known) {
431.  	    if (!dis++)
432.  		add_menu(tmpwin, NO_GLYPH, &any, 0, 0, iflags.menu_headings,
433.  		  "Unique Items", MENU_UNSELECTED);
434.  		Sprintf(buf, "  %s", OBJ_NAME(objects[uniq_objs[i]]));
435.  	    add_menu(tmpwin, objnum_to_glyph(uniq_objs[i]), &any,
436.  	      0, 0, ATR_NONE, buf, MENU_UNSELECTED);
437.  	    ++ct;
438.  	}
439.      /* display any known artifacts as another pseudo-class */
440.      ct += disp_artifact_discoveries(tmpwin);
441.  
442.      /* several classes are omitted from packorder; one is of interest here */
443.      Strcpy(classes, flags.inv_order);
444.      if (!index(classes, VENOM_CLASS)) {
445.  	s = eos(classes);
446.  	*s++ = VENOM_CLASS;
447.  	*s = '\0';
448.      }
449.  
450.      for (s = classes; *s; s++) {
451.  	oclass = *s;
452.  	prev_class = oclass + 1;	/* forced different from oclass */
453.  	for (i = bases[(int)oclass];
454.  	     i < NUM_OBJECTS && objects[i].oc_class == oclass; i++) {
455.  	    if ((dis = disco[i]) && interesting_to_discover(dis)) {
456.  		ct++;
457.  		if (oclass != prev_class) {
458.  		    add_menu(tmpwin, NO_GLYPH, &any, 0, 0, iflags.menu_headings,
459.  		      let_to_name(oclass, FALSE), MENU_UNSELECTED);
460.  		    prev_class = oclass;
461.  		}
462.  		Sprintf(buf, "%s %s",(objects[dis].oc_pre_discovered ? "*" : " "),
463.  				obj_typename(dis));
464.  		add_menu(tmpwin, objnum_to_glyph(dis), &any, 0, 0,
465.  		  ATR_NONE, buf, MENU_UNSELECTED);
466.  	    }
467.  	}
468.      }
469.      end_menu(tmpwin, (char *) 0);
470.      if (ct == 0) {
471.  	You("haven't discovered anything yet...");
472.      } else
473.  	(void) select_menu(tmpwin, PICK_NONE, &selected);
474.      destroy_nhwindow(tmpwin);
475.  
476.      return 0;
477.  }
478.  
479.  /*o_init.c*/