Source:SLASH'EM 0.0.7E7F2/mapglyph.c

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

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

1.   /*	SCCS Id: @(#)mapglyph.c	3.4	2003/01/08	*/ 2.   /* Copyright (c) David Cohrs, 1991				  */ 3.   /* NetHack may be freely redistributed. See license for details. */ 4.     5.    #include "hack.h"  6.    #if defined(TTY_GRAPHICS) 7.   #include "wintty.h"	/* for prototype of has_color only */ 8.   #endif 9.   #include "color.h"  10. #define HI_DOMESTIC CLR_WHITE	/* monst.c */ 11.   12.   int explcolors[] = { 13.  	CLR_BLACK,	/* dark    */ 14.  	CLR_GREEN,	/* noxious */ 15.  	CLR_BROWN,	/* muddy   */ 16.  	CLR_BLUE,	/* wet     */ 17.  	CLR_MAGENTA,	/* magical */ 18.  	CLR_ORANGE,	/* fiery   */ 19.  	CLR_WHITE,	/* frosty  */ 20.  };  21.    22.   #if !defined(TTY_GRAPHICS) 23.  #define has_color(n)  TRUE 24.  #endif 25.   26.   #ifdef TEXTCOLOR 27.  #define zap_color(n)  color = iflags.use_color ? zapcolors[n] : NO_COLOR 28.  #define cmap_color(n) color = iflags.use_color ? defsyms[n].color : NO_COLOR 29.  #define obj_color(n)  color = iflags.use_color ? objects[n].oc_color : NO_COLOR 30.  #define mon_color(n)  color = iflags.use_color ? mons[n].mcolor : NO_COLOR 31.  #define invis_color(n) color = NO_COLOR 32.  #define pet_color(n)  color = iflags.use_color ? mons[n].mcolor : NO_COLOR 33.  #define warn_color(n) color = iflags.use_color ? def_warnsyms[n].color : NO_COLOR 34.  #define explode_color(n) color = iflags.use_color ? explcolors[n] : NO_COLOR 35.  # if defined(REINCARNATION) && defined(ASCIIGRAPH) 36.  #  define ROGUE_COLOR 37.  # endif 38.   39.   #else	/* no text color */ 40.   41.   #define zap_color(n) 42.  #define cmap_color(n) 43.  #define obj_color(n) 44.  #define mon_color(n) 45.  #define invis_color(n) 46.  #define pet_color(c) 47.  #define warn_color(n) 48.  #define explode_color(n) 49.  #endif 50.   51.   #ifdef ROGUE_COLOR 52.  # if defined(USE_TILES) && defined(MSDOS) 53.  #define HAS_ROGUE_IBM_GRAPHICS (iflags.IBMgraphics && !iflags.grmode && \  54.   	Is_rogue_level(&u.uz)) 55.  # else 56.  #define HAS_ROGUE_IBM_GRAPHICS (iflags.IBMgraphics && Is_rogue_level(&u.uz)) 57.  # endif 58.  #endif 59.   60.   /*ARGSUSED*/ 61.  void 62.  mapglyph(glyph, ochar, ocolor, ospecial, x, y)  63. int glyph, *ocolor, x, y; 64. int *ochar; 65.  unsigned *ospecial; 66.  {  67.   	register int offset; 68.  #if defined(TEXTCOLOR) || defined(ROGUE_COLOR) 69.  	int color = NO_COLOR; 70.  #endif 71.  	uchar ch; 72.  	unsigned special = 0; 73.   74.       /*  75.        *  Map the glyph back to a character and color. 76.       *  77.        *  Warning:  For speed, this makes an assumption on the order of  78. *		 offsets. The order is set in display.h. 79. */ 80.       if ((offset = (glyph - GLYPH_WARNING_OFF)) >= 0) {	/* a warning flash */ 81.      	ch = warnsyms[offset]; 82.  # ifdef ROGUE_COLOR 83.  	if (HAS_ROGUE_IBM_GRAPHICS) 84.  	    color = NO_COLOR; 85.  	else 86.  # endif 87.  	    warn_color(offset); 88.      } else if ((offset = (glyph - GLYPH_SWALLOW_OFF)) >= 0) {	/* swallow */ 89.  	/* see swallow_to_glyph in display.c */ 90.  	ch = (uchar) showsyms[S_sw_tl + (offset & 0x7)]; 91.  #ifdef ROGUE_COLOR 92.  	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) 93.  	    color = NO_COLOR; 94.  	else 95.  #endif 96.  	    mon_color(offset >> 3); 97.      } else if ((offset = (glyph - GLYPH_ZAP_OFF)) >= 0) {	/* zap beam */ 98.  	/* see zapdir_to_glyph in display.c */ 99.  	ch = showsyms[S_vbeam + (offset & 0x3)]; 100. #ifdef ROGUE_COLOR 101. 	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) 102. 	    color = NO_COLOR; 103. 	else 104. #endif 105. 	    zap_color((offset >> 2)); 106.     } else if ((offset = (glyph - GLYPH_EXPLODE_OFF)) >= 0) {	/* explosion */ 107. 	ch = showsyms[(offset % MAXEXPCHARS) + S_explode1]; 108. 	explode_color(offset / MAXEXPCHARS); 109.     } else if ((offset = (glyph - GLYPH_CMAP_OFF)) >= 0) {	/* cmap */ 110. 	ch = showsyms[offset]; 111. #ifdef ROGUE_COLOR 112. 	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) { 113. 	    if (offset >= S_vwall && offset <= S_hcdoor) 114. 		color = CLR_BROWN; 115. 	    else if (offset >= S_arrow_trap && offset <= S_polymorph_trap) 116. 		color = CLR_MAGENTA; 117. 	    else if (offset == S_corr || offset == S_litcorr) 118. 		color = CLR_GRAY; 119. 	    else if (offset >= S_room && offset <= S_water) 120. 		color = CLR_GREEN; 121. 	    else 122. 		color = NO_COLOR; 123. 	} else 124. #endif 125. #ifdef TEXTCOLOR 126. 	    /* provide a visible difference if normal and lit corridor 127. 	     * use the same symbol */ 128. 	    if (iflags.use_color &&  129.  		offset == S_litcorr && ch == showsyms[S_corr]) 130. 		color = CLR_WHITE; 131. 	    else 132. #endif 133. 	    cmap_color(offset); 134.     } else if ((offset = (glyph - GLYPH_OBJ_OFF)) >= 0) {	/* object */ 135. 	if (offset == BOULDER && iflags.bouldersym) ch = iflags.bouldersym; 136. 	else ch = oc_syms[(int)objects[offset].oc_class]; 137. #ifdef ROGUE_COLOR 138. 	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) { 139. 	    switch(objects[offset].oc_class) { 140. 		case COIN_CLASS: color = CLR_YELLOW; break; 141. 		case FOOD_CLASS: color = CLR_RED; break; 142. 		default: color = CLR_BRIGHT_BLUE; break; 143. 	    }  144.  	} else 145. #endif 146. 	    obj_color(offset); 147.     } else if ((offset = (glyph - GLYPH_RIDDEN_OFF)) >= 0) {	/* mon ridden */ 148. 	ch = monsyms[(int)mons[offset].mlet]; 149. #ifdef ROGUE_COLOR 150. 	if (HAS_ROGUE_IBM_GRAPHICS) 151. 	    /* This currently implies that the hero is here -- monsters */ 152. 	    /* don't ride (yet...). Should we set it to yellow like in */ 153. 	    /* the monster case below? There is no equivalent in rogue. */ 154.  	    color = NO_COLOR;	/* no need to check iflags.use_color */ 155. 	else 156. #endif 157. 	    mon_color(offset); 158. 	    special |= MG_RIDDEN; 159.     } else if ((offset = (glyph - GLYPH_BODY_OFF)) >= 0) {	/* a corpse */ 160. 	ch = oc_syms[(int)objects[CORPSE].oc_class]; 161. #ifdef ROGUE_COLOR 162. 	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) 163. 	    color = CLR_RED; 164. 	else 165. #endif 166. 	    mon_color(offset); 167. 	    special |= MG_CORPSE; 168.     } else if ((offset = (glyph - GLYPH_DETECT_OFF)) >= 0) {	/* mon detect */ 169. 	ch = monsyms[(int)mons[offset].mlet]; 170. #ifdef ROGUE_COLOR 171. 	if (HAS_ROGUE_IBM_GRAPHICS) 172. 	    color = NO_COLOR;	/* no need to check iflags.use_color */ 173. 	else 174. #endif 175. 	    mon_color(offset); 176. 	/* Disabled for now; anyone want to get reverse video to work? */ 177.  	/* is_reverse = TRUE; */ 178. 	    special |= MG_DETECT; 179.     } else if ((offset = (glyph - GLYPH_INVIS_OFF)) >= 0) {	/* invisible */ 180. 	ch = DEF_INVISIBLE; 181. #ifdef ROGUE_COLOR 182. 	if (HAS_ROGUE_IBM_GRAPHICS) 183. 	    color = NO_COLOR;	/* no need to check iflags.use_color */ 184. 	else 185. #endif 186. 	    invis_color(offset); 187. 	    special |= MG_INVIS; 188.     } else if ((offset = (glyph - GLYPH_PET_OFF)) >= 0) {	/* a pet */ 189. 	ch = monsyms[(int)mons[offset].mlet]; 190. #ifdef ROGUE_COLOR 191. 	if (HAS_ROGUE_IBM_GRAPHICS) 192. 	    color = NO_COLOR;	/* no need to check iflags.use_color */ 193. 	else 194. #endif 195. 	    pet_color(offset); 196. 	    special |= MG_PET; 197.     } else {							/* a monster */ 198. 	ch = monsyms[(int)mons[glyph].mlet]; 199. #ifdef ROGUE_COLOR 200. 	if (HAS_ROGUE_IBM_GRAPHICS && iflags.use_color) { 201. 	    if (x == u.ux && y == u.uy) 202. 		/* actually player should be yellow-on-gray if in a corridor */ 203. 		color = CLR_YELLOW; 204. 	    else 205. 		color = NO_COLOR; 206. 	} else 207. #endif 208. 	{  209.  	    mon_color(glyph); 210. 	    /* special case the hero for `showrace' option */ 211. #ifdef TEXTCOLOR 212. 	    if (iflags.use_color && x == u.ux && y == u.uy &&  213.  		    iflags.showrace && !Upolyd) 214. 		color = HI_DOMESTIC; 215. #endif 216. 	}  217.      }  218.   219.  #ifdef TEXTCOLOR 220.     /* Turn off color if no color defined, or rogue level w/o PC graphics. */ 221.  # ifdef REINCARNATION 222. #  ifdef ASCIIGRAPH 223.     if (!has_color(color) || (Is_rogue_level(&u.uz) && !HAS_ROGUE_IBM_GRAPHICS)) 224. #  else 225.     if (!has_color(color) || Is_rogue_level(&u.uz)) 226. #  endif 227. # else 228.     if (!has_color(color)) 229. # endif 230. 	color = NO_COLOR; 231. #endif 232.  233.      *ochar = (int)ch; 234.     *ospecial = special; 235. #ifdef TEXTCOLOR 236.     *ocolor = color; 237. #endif 238.     return; 239. }  240.   241.  /*mapglyph.c*/