| abstract
| - Below is the full text to do_name.c from the source code of NetHack 1.4f. To link to a particular line, write [[NetHack 1.4f/do_name.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 1. /* SCCS Id: @(#)do_name.c 1.4 87/08/08 2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 3. /* do_name.c - version 1.0.3 */ 4. 5. #include 6. #include "hack.h" 7. extern char plname[]; 8. extern char *rndmonnam(); 9. 10. getpos(cc,force,goal) 11. coord *cc; 12. int force; char *goal; 13. { 14. register cx,cy,i,c; 15. extern char sdir[]; /* defined in hack.c */ 16. extern schar xdir[], ydir[]; /* idem */ 17. extern char *visctrl(); /* see below */ 18. pline("(For instructions type a ?)"); 19. cx = u.ux; 20. cy = u.uy; 21. curs(cx,cy+2); 22. while((c = readchar()) != '.'){ 23. for(i=0; i<8; i++) if(sdir[i] == c){ 24. if(1 <= cx + xdir[i] && cx + xdir[i] <= COLNO) 25. cx += xdir[i]; 26. if(0 <= cy + ydir[i] && cy + ydir[i] <= ROWNO-1) 27. cy += ydir[i]; 28. goto nxtc; 29. } 30. if(c == '?'){ 31. pline("Use [hjkl] to move the cursor to %s.", goal); 32. pline("Type a . when you are at the right place."); 33. } else { 34. pline("Unknown direction: '%s' (%s).", 35. visctrl(c), 36. force ? "use hjkl or ." : "aborted"); 37. if(force) goto nxtc; 38. cc->x = -1; 39. cc->y = 0; 40. return(0); 41. } 42. nxtc: ; 43. curs(cx,cy+2); 44. } 45. cc->x = cx; 46. cc->y = cy; 47. return(0); 48. } 49. 50. do_mname(){ 51. char buf[BUFSZ]; 52. coord cc; 53. register int cx,cy,lth,i; 54. register struct monst *mtmp, *mtmp2; 55. extern char *lmonnam(); 56. getpos(&cc, 0, "the monster you want to name"); 57. cx = cc.x; 58. cy = cc.y; 59. if(cx < 0) return(0); 60. #ifdef DGKMOD 61. if (cx == u.ux && cy == u.uy) { 62. pline("This ugly monster is called %s and cannot be renamed.", 63. plname); 64. return(1); 65. } 66. if (!cansee(cx, cy) || !(mtmp = m_at(cx, cy)) || mtmp->mimic) { 67. pline("I see no monster there."); 68. return(1); 69. } 70. #else 71. mtmp = m_at(cx,cy); 72. if(!mtmp){ 73. if(cx == u.ux && cy == u.uy) 74. pline("This ugly monster is called %s and cannot be renamed.", 75. plname); 76. else 77. pline("There is no monster there."); 78. return(1); 79. } 80. if(mtmp->mimic){ 81. pline("I see no monster there."); 82. return(1); 83. } 84. if(!cansee(cx,cy)) { 85. pline("I cannot see a monster there."); 86. return(1); 87. } 88. #endif 89. pline("What do you want to call %s? ", lmonnam(mtmp)); 90. getlin(buf); 91. clrlin(); 92. if(!*buf || *buf == '\033') 93. return(1); 94. lth = strlen(buf)+1; 95. if(lth > 63){ 96. buf[62] = 0; 97. lth = 63; 98. } 99. mtmp2 = newmonst(mtmp->mxlth + lth); 100. *mtmp2 = *mtmp; 101. for(i=0; imxlth; i++) 102. ((char *) mtmp2->mextra)[i] = ((char *) mtmp->mextra)[i]; 103. mtmp2->mnamelth = lth; 104. (void) strcpy(NAME(mtmp2), buf); 105. replmon(mtmp,mtmp2); 106. return(1); 107. } 108. 109. /* 110. * This routine changes the address of obj . Be careful not to call it 111. * when there might be pointers around in unknown places. For now: only 112. * when obj is in the inventory. 113. */ 114. do_oname(obj) register struct obj *obj; { 115. register struct obj *otmp, *otmp2; 116. register lth; 117. char buf[BUFSZ]; 118. pline("What do you want to name %s? ", doname(obj)); 119. getlin(buf); 120. clrlin(); 121. if(!*buf || *buf == '\033') 122. return; 123. lth = strlen(buf)+1; 124. if(lth > 63){ 125. buf[62] = 0; 126. lth = 63; 127. } 128. otmp2 = newobj(lth); 129. *otmp2 = *obj; 130. otmp2->onamelth = lth; 131. (void) strcpy(ONAME(otmp2), buf); 132. 133. setworn((struct obj *) 0, obj->owornmask); 134. setworn(otmp2, otmp2->owornmask); 135. 136. /* do freeinv(obj); etc. by hand in order to preserve 137. the position of this object in the inventory */ 138. if(obj == invent) invent = otmp2; 139. else for(otmp = invent; ; otmp = otmp->nobj){ 140. if(!otmp) 141. panic("Do_oname: cannot find obj."); 142. if(otmp->nobj == obj){ 143. otmp->nobj = otmp2; 144. break; 145. } 146. } 147. /* obfree(obj, otmp2); /* now unnecessary: no pointers on bill */ 148. free((char *) obj); /* let us hope nobody else saved a pointer */ 149. } 150. 151. ddocall() 152. { 153. register struct obj *obj; 154. char ch; 155. 156. #ifdef REDO 157. if (!in_doagain) 158. #endif 159. pline("Do you want to name an individual object? [ny] "); 160. switch(ch = readchar()) { 161. case '\033': 162. break; 163. case 'y': 164. #ifdef REDO 165. savech(ch); 166. #endif 167. obj = getobj("#", "name"); 168. if(obj) do_oname(obj); 169. break; 170. default: 171. #ifdef REDO 172. savech(ch); 173. #endif 174. #ifdef KAA 175. obj = getobj("?!=/*", "call"); 176. #else 177. obj = getobj("?!=/", "call"); 178. #endif 179. if(obj) docall(obj); 180. } 181. return(0); 182. } 183. 184. docall(obj) 185. register struct obj *obj; 186. { 187. char buf[BUFSZ]; 188. struct obj otemp; 189. register char **str1; 190. extern char *xname(); 191. register char *str; 192. 193. otemp = *obj; 194. otemp.quan = 1; 195. otemp.onamelth = 0; 196. str = xname(&otemp); 197. pline("Call %s %s: ", index(vowels,*str) ? "an" : "a", str); 198. getlin(buf); 199. clrlin(); 200. if(!*buf || *buf == '\033') 201. return; 202. str = newstring(strlen(buf)+1); 203. (void) strcpy(str,buf); 204. str1 = &(objects[obj->otyp].oc_uname); 205. if(*str1) free(*str1); 206. *str1 = str; 207. } 208. 209. char *ghostnames[] = { /* these names should have length < PL_NSIZ */ 210. /* Capitalize the names for asthetics -dgk 211. */ 212. "Adri", "Andries", "Andreas", "Bert", "David", "Dirk", "Emile", 213. "Frans", "Fred", "Greg", "Hether", "Jay", "John", "Jon", "Karnov", 214. "Kay", "Kenny", "Maud", "Michiel", "Mike", "Peter", "Robert", 215. "Ron", "Tom", "Wilmar", "Nick Danger", "Phoenix", "Miracleman", 216. "Stephan" 217. }; 218. 219. char * 220. xmonnam(mtmp, vb) register struct monst *mtmp; int vb; { 221. static char buf[BUFSZ]; /* %% */ 222. extern char *shkname(); 223. if(mtmp->mnamelth && !vb) { 224. (void) strcpy(buf, NAME(mtmp)); 225. return(buf); 226. } 227. switch(mtmp->data->mlet) { 228. case ' ': 229. { register char *gn = (char *) mtmp->mextra; 230. if(!*gn) { /* might also look in scorefile */ 231. gn = ghostnames[rn2(SIZE(ghostnames))]; 232. if(!rn2(2)) (void) 233. strcpy((char *) mtmp->mextra, !rn2(5) ? plname : gn); 234. } 235. (void) sprintf(buf, "%s's ghost", gn); 236. } 237. break; 238. case '@': 239. if(mtmp->isshk) { 240. (void) strcpy(buf, shkname(mtmp)); 241. break; 242. } 243. /* fall into next case */ 244. default: 245. (void) sprintf(buf, "the %s%s", 246. mtmp->minvis ? "invisible " : "", 247. (Hallucination ? rndmonnam() : mtmp->data->mname)); 248. } 249. if(vb && mtmp->mnamelth) { 250. (void) strcat(buf, " called "); 251. (void) strcat(buf, NAME(mtmp)); 252. } 253. return(buf); 254. } 255. 256. char * 257. lmonnam(mtmp) register struct monst *mtmp; { 258. return(xmonnam(mtmp, 1)); 259. } 260. 261. char * 262. monnam(mtmp) register struct monst *mtmp; { 263. return(xmonnam(mtmp, 0)); 264. } 265. 266. char * 267. Monnam(mtmp) register struct monst *mtmp; { 268. register char *bp = monnam(mtmp); 269. if('a' <= *bp && *bp <= 'z') *bp += ('A' - 'a'); 270. return(bp); 271. } 272. 273. char * 274. amonnam(mtmp,adj) 275. register struct monst *mtmp; 276. register char *adj; 277. { 278. register char *bp = monnam(mtmp); 279. static char buf[BUFSZ]; /* %% */ 280. 281. if(!strncmp(bp, "the ", 4)) bp += 4; 282. (void) sprintf(buf, "the %s %s", adj, bp); 283. return(buf); 284. } 285. 286. char * 287. Amonnam(mtmp, adj) 288. register struct monst *mtmp; 289. register char *adj; 290. { 291. register char *bp = amonnam(mtmp,adj); 292. 293. *bp = 'T'; 294. return(bp); 295. } 296. 297. char * 298. Xmonnam(mtmp) register struct monst *mtmp; { 299. register char *bp = Monnam(mtmp); 300. if(!strncmp(bp, "The ", 4)) { 301. #ifdef KAA 302. if(index("AEIOUaeio",*(bp+4))) { 303. bp += 1; *(bp+1) = 'n'; 304. } else 305. #endif 306. bp += 2; 307. *bp = 'A'; 308. } 309. return(bp); 310. } 311. 312. char * 313. defmonnam(mtmp) register struct monst *mtmp; { 314. register char *bp = Xmonnam(mtmp); 315. if (!strncmp(bp,"A ",2) || !strncmp(bp,"An ",3)) 316. *bp = 'a'; 317. return(bp); 318. } 319. 320. char * 321. rndmonnam() { /* Random name of monster type, if hallucinating */ 322. int x; 323. if ((x=rn2(CMNUM+2)) != CMNUM+1) return (&mons[x])->mname; 324. return("giant eel"); 325. } 326. 327. char * 328. visctrl(c) 329. char c; 330. { 331. static char ccc[3]; 332. if(c < 040) { 333. ccc[0] = '^'; 334. ccc[1] = c + 0100; 335. ccc[2] = 0; 336. } else { 337. ccc[0] = c; 338. ccc[1] = 0; 339. } 340. return(ccc); 341. }
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)