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