1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 2 /* hack.objnam.c - version 1.0.2 */ 3 4 #include "hack.h" 5 #define Sprintf (void) sprintf 6 #define Strcat (void) strcat 7 #define Strcpy (void) strcpy 8 #define PREFIX 15 9 extern char *eos(); 10 extern int bases[]; 11 12 char * 13 strprepend(s,pref) register char *s, *pref; { 14 register int i = strlen(pref); 15 if(i > PREFIX) { 16 pline("WARNING: prefix too short."); 17 return(s); 18 } 19 s -= i; 20 (void) strncpy(s, pref, i); /* do not copy trailing 0 */ 21 return(s); 22 } 23 24 char * 25 sitoa(a) int a; { 26 static char buf[13]; 27 Sprintf(buf, (a < 0) ? "%d" : "+%d", a); 28 return(buf); 29 } 30 31 char * 32 typename(otyp) 33 register int otyp; 34 { 35 static char buf[BUFSZ]; 36 register struct objclass *ocl = &objects[otyp]; 37 register char *an = ocl->oc_name; 38 register char *dn = ocl->oc_descr; 39 register char *un = ocl->oc_uname; 40 register int nn = ocl->oc_name_known; 41 switch(ocl->oc_olet) { 42 case POTION_SYM: 43 Strcpy(buf, "potion"); 44 break; 45 case SCROLL_SYM: 46 Strcpy(buf, "scroll"); 47 break; 48 case WAND_SYM: 49 Strcpy(buf, "wand"); 50 break; 51 case RING_SYM: 52 Strcpy(buf, "ring"); 53 break; 54 default: 55 if(nn) { 56 Strcpy(buf, an); 57 if(otyp >= TURQUOISE && otyp <= JADE) 58 Strcat(buf, " stone"); 59 if(un) 60 Sprintf(eos(buf), " called %s", un); 61 if(dn) 62 Sprintf(eos(buf), " (%s)", dn); 63 } else { 64 Strcpy(buf, dn ? dn : an); 65 if(ocl->oc_olet == GEM_SYM) 66 Strcat(buf, " gem"); 67 if(un) 68 Sprintf(eos(buf), " called %s", un); 69 } 70 return(buf); 71 } 72 /* here for ring/scroll/potion/wand */ 73 if(nn) 74 Sprintf(eos(buf), " of %s", an); 75 if(un) 76 Sprintf(eos(buf), " called %s", un); 77 if(dn) 78 Sprintf(eos(buf), " (%s)", dn); 79 return(buf); 80 } 81 82 char * 83 xname(obj) 84 register struct obj *obj; 85 { 86 static char bufr[BUFSZ]; 87 register char *buf = &(bufr[PREFIX]); /* leave room for "17 -3 " */ 88 register int nn = objects[obj->otyp].oc_name_known; 89 register char *an = objects[obj->otyp].oc_name; 90 register char *dn = objects[obj->otyp].oc_descr; 91 register char *un = objects[obj->otyp].oc_uname; 92 register int pl = (obj->quan != 1); 93 if(!obj->dknown && !Blind) obj->dknown = 1; /* %% doesnt belong here */ 94 switch(obj->olet) { 95 case AMULET_SYM: 96 Strcpy(buf, (obj->spe < 0 && obj->known) 97 ? "cheap plastic imitation of the " : ""); 98 Strcat(buf,"Amulet of Yendor"); 99 break; 100 case TOOL_SYM: 101 if(!nn) { 102 Strcpy(buf, dn); 103 break; 104 } 105 Strcpy(buf,an); 106 break; 107 case FOOD_SYM: 108 if(obj->otyp == DEAD_HOMUNCULUS && pl) { 109 pl = 0; 110 Strcpy(buf, "dead homunculi"); 111 break; 112 } 113 /* fungis ? */ 114 /* fall into next case */ 115 case WEAPON_SYM: 116 if(obj->otyp == WORM_TOOTH && pl) { 117 pl = 0; 118 Strcpy(buf, "worm teeth"); 119 break; 120 } 121 if(obj->otyp == CRYSKNIFE && pl) { 122 pl = 0; 123 Strcpy(buf, "crysknives"); 124 break; 125 } 126 /* fall into next case */ 127 case ARMOR_SYM: 128 case CHAIN_SYM: 129 case ROCK_SYM: 130 Strcpy(buf,an); 131 break; 132 case BALL_SYM: 133 Sprintf(buf, "%sheavy iron ball", 134 (obj->owt > objects[obj->otyp].oc_weight) ? "very " : ""); 135 break; 136 case POTION_SYM: 137 if(nn || un || !obj->dknown) { 138 Strcpy(buf, "potion"); 139 if(pl) { 140 pl = 0; 141 Strcat(buf, "s"); 142 } 143 if(!obj->dknown) break; 144 if(un) { 145 Strcat(buf, " called "); 146 Strcat(buf, un); 147 } else { 148 Strcat(buf, " of "); 149 Strcat(buf, an); 150 } 151 } else { 152 Strcpy(buf, dn); 153 Strcat(buf, " potion"); 154 } 155 break; 156 case SCROLL_SYM: 157 Strcpy(buf, "scroll"); 158 if(pl) { 159 pl = 0; 160 Strcat(buf, "s"); 161 } 162 if(!obj->dknown) break; 163 if(nn) { 164 Strcat(buf, " of "); 165 Strcat(buf, an); 166 } else if(un) { 167 Strcat(buf, " called "); 168 Strcat(buf, un); 169 } else { 170 Strcat(buf, " labeled "); 171 Strcat(buf, dn); 172 } 173 break; 174 case WAND_SYM: 175 if(!obj->dknown) 176 Sprintf(buf, "wand"); 177 else if(nn) 178 Sprintf(buf, "wand of %s", an); 179 else if(un) 180 Sprintf(buf, "wand called %s", un); 181 else 182 Sprintf(buf, "%s wand", dn); 183 break; 184 case RING_SYM: 185 if(!obj->dknown) 186 Sprintf(buf, "ring"); 187 else if(nn) 188 Sprintf(buf, "ring of %s", an); 189 else if(un) 190 Sprintf(buf, "ring called %s", un); 191 else 192 Sprintf(buf, "%s ring", dn); 193 break; 194 case GEM_SYM: 195 if(!obj->dknown) { 196 Strcpy(buf, "gem"); 197 break; 198 } 199 if(!nn) { 200 Sprintf(buf, "%s gem", dn); 201 break; 202 } 203 Strcpy(buf, an); 204 if(obj->otyp >= TURQUOISE && obj->otyp <= JADE) 205 Strcat(buf, " stone"); 206 break; 207 default: 208 Sprintf(buf,"glorkum %c (0%o) %u %d", 209 obj->olet,obj->olet,obj->otyp,obj->spe); 210 } 211 if(pl) { 212 register char *p; 213 214 for(p = buf; *p; p++) { 215 if(!strncmp(" of ", p, 4)) { 216 /* pieces of, cloves of, lumps of */ 217 register int c1, c2 = 's'; 218 219 do { 220 c1 = c2; c2 = *p; *p++ = c1; 221 } while(c1); 222 goto nopl; 223 } 224 } 225 p = eos(buf)-1; 226 if(*p == 's' || *p == 'z' || *p == 'x' || 227 (*p == 'h' && p[-1] == 's')) 228 Strcat(buf, "es"); /* boxes */ 229 else if(*p == 'y' && !index(vowels, p[-1])) 230 Strcpy(p, "ies"); /* rubies, zruties */ 231 else 232 Strcat(buf, "s"); 233 } 234 nopl: 235 if(obj->onamelth) { 236 Strcat(buf, " named "); 237 Strcat(buf, ONAME(obj)); 238 } 239 return(buf); 240 } 241 242 char * 243 doname(obj) 244 register struct obj *obj; 245 { 246 char prefix[PREFIX]; 247 register char *bp = xname(obj); 248 if(obj->quan != 1) 249 Sprintf(prefix, "%u ", obj->quan); 250 else 251 Strcpy(prefix, "a "); 252 switch(obj->olet) { 253 case AMULET_SYM: 254 if(strncmp(bp, "cheap ", 6)) 255 Strcpy(prefix, "the "); 256 break; 257 case ARMOR_SYM: 258 if(obj->owornmask & W_ARMOR) 259 Strcat(bp, " (being worn)"); 260 /* fall into next case */ 261 case WEAPON_SYM: 262 if(obj->known) { 263 Strcat(prefix, sitoa(obj->spe)); 264 Strcat(prefix, " "); 265 } 266 break; 267 case WAND_SYM: 268 if(obj->known) 269 Sprintf(eos(bp), " (%d)", obj->spe); 270 break; 271 case RING_SYM: 272 if(obj->owornmask & W_RINGR) Strcat(bp, " (on right hand)"); 273 if(obj->owornmask & W_RINGL) Strcat(bp, " (on left hand)"); 274 if(obj->known && (objects[obj->otyp].bits & SPEC)) { 275 Strcat(prefix, sitoa(obj->spe)); 276 Strcat(prefix, " "); 277 } 278 break; 279 } 280 if(obj->owornmask & W_WEP) 281 Strcat(bp, " (weapon in hand)"); 282 if(obj->unpaid) 283 Strcat(bp, " (unpaid)"); 284 if(!strcmp(prefix, "a ") && index(vowels, *bp)) 285 Strcpy(prefix, "an "); 286 bp = strprepend(bp, prefix); 287 return(bp); 288 } 289 290 /* used only in hack.fight.c (thitu) */ 291 setan(str,buf) 292 register char *str,*buf; 293 { 294 if(index(vowels,*str)) 295 Sprintf(buf, "an %s", str); 296 else 297 Sprintf(buf, "a %s", str); 298 } 299 300 char * 301 aobjnam(otmp,verb) register struct obj *otmp; register char *verb; { 302 register char *bp = xname(otmp); 303 char prefix[PREFIX]; 304 if(otmp->quan != 1) { 305 Sprintf(prefix, "%u ", otmp->quan); 306 bp = strprepend(bp, prefix); 307 } 308 309 if(verb) { 310 /* verb is given in plural (i.e., without trailing s) */ 311 Strcat(bp, " "); 312 if(otmp->quan != 1) 313 Strcat(bp, verb); 314 else if(!strcmp(verb, "are")) 315 Strcat(bp, "is"); 316 else { 317 Strcat(bp, verb); 318 Strcat(bp, "s"); 319 } 320 } 321 return(bp); 322 } 323 324 char * 325 Doname(obj) 326 register struct obj *obj; 327 { 328 register char *s = doname(obj); 329 330 if('a' <= *s && *s <= 'z') *s -= ('a' - 'A'); 331 return(s); 332 } 333 334 char *wrp[] = { "wand", "ring", "potion", "scroll", "gem" }; 335 char wrpsym[] = { WAND_SYM, RING_SYM, POTION_SYM, SCROLL_SYM, GEM_SYM }; 336 337 struct obj * 338 readobjnam(bp) register char *bp; { 339 register char *p; 340 register int i; 341 int cnt, spe, spesgn, typ, heavy; 342 char let; 343 char *un, *dn, *an; 344 /* int the = 0; char *oname = 0; */ 345 cnt = spe = spesgn = typ = heavy = 0; 346 let = 0; 347 an = dn = un = 0; 348 for(p = bp; *p; p++) 349 if('A' <= *p && *p <= 'Z') *p += 'a'-'A'; 350 if(!strncmp(bp, "the ", 4)){ 351 /* the = 1; */ 352 bp += 4; 353 } else if(!strncmp(bp, "an ", 3)){ 354 cnt = 1; 355 bp += 3; 356 } else if(!strncmp(bp, "a ", 2)){ 357 cnt = 1; 358 bp += 2; 359 } 360 if(!cnt && digit(*bp)){ 361 cnt = atoi(bp); 362 while(digit(*bp)) bp++; 363 while(*bp == ' ') bp++; 364 } 365 if(!cnt) cnt = 1; /* %% what with "gems" etc. ? */ 366 367 if(*bp == '+' || *bp == '-'){ 368 spesgn = (*bp++ == '+') ? 1 : -1; 369 spe = atoi(bp); 370 while(digit(*bp)) bp++; 371 while(*bp == ' ') bp++; 372 } else { 373 p = rindex(bp, '('); 374 if(p) { 375 if(p > bp && p[-1] == ' ') p[-1] = 0; 376 else *p = 0; 377 p++; 378 spe = atoi(p); 379 while(digit(*p)) p++; 380 if(strcmp(p, ")")) spe = 0; 381 else spesgn = 1; 382 } 383 } 384 /* now we have the actual name, as delivered by xname, say 385 green potions called whisky 386 scrolls labeled "QWERTY" 387 egg 388 dead zruties 389 fortune cookies 390 very heavy iron ball named hoei 391 wand of wishing 392 elven cloak 393 */ 394 for(p = bp; *p; p++) if(!strncmp(p, " named ", 7)) { 395 *p = 0; 396 /* oname = p+7; */ 397 } 398 for(p = bp; *p; p++) if(!strncmp(p, " called ", 8)) { 399 *p = 0; 400 un = p+8; 401 } 402 for(p = bp; *p; p++) if(!strncmp(p, " labeled ", 9)) { 403 *p = 0; 404 dn = p+9; 405 } 406 407 /* first change to singular if necessary */ 408 if(cnt != 1) { 409 /* find "cloves of garlic", "worthless pieces of blue glass" */ 410 for(p = bp; *p; p++) if(!strncmp(p, "s of ", 5)){ 411 while(*p = p[1]) p++; 412 goto sing; 413 } 414 /* remove -s or -es (boxes) or -ies (rubies, zruties) */ 415 p = eos(bp); 416 if(p[-1] == 's') { 417 if(p[-2] == 'e') { 418 if(p[-3] == 'i') { 419 if(!strcmp(p-7, "cookies")) 420 goto mins; 421 Strcpy(p-3, "y"); 422 goto sing; 423 } 424 425 /* note: cloves / knives from clove / knife */ 426 if(!strcmp(p-6, "knives")) { 427 Strcpy(p-3, "fe"); 428 goto sing; 429 } 430 431 /* note: nurses, axes but boxes */ 432 if(!strcmp(p-5, "boxes")) { 433 p[-2] = 0; 434 goto sing; 435 } 436 } 437 mins: 438 p[-1] = 0; 439 } else { 440 if(!strcmp(p-9, "homunculi")) { 441 Strcpy(p-1, "us"); /* !! makes string longer */ 442 goto sing; 443 } 444 if(!strcmp(p-5, "teeth")) { 445 Strcpy(p-5, "tooth"); 446 goto sing; 447 } 448 /* here we cannot find the plural suffix */ 449 } 450 } 451 sing: 452 if(!strcmp(bp, "amulet of yendor")) { 453 typ = AMULET_OF_YENDOR; 454 goto typfnd; 455 } 456 p = eos(bp); 457 if(!strcmp(p-5, " mail")){ /* Note: ring mail is not a ring ! */ 458 let = ARMOR_SYM; 459 an = bp; 460 goto srch; 461 } 462 for(i = 0; i < sizeof(wrpsym); i++) { 463 register int j = strlen(wrp[i]); 464 if(!strncmp(bp, wrp[i], j)){ 465 let = wrpsym[i]; 466 bp += j; 467 if(!strncmp(bp, " of ", 4)) an = bp+4; 468 /* else if(*bp) ?? */ 469 goto srch; 470 } 471 if(!strcmp(p-j, wrp[i])){ 472 let = wrpsym[i]; 473 p -= j; 474 *p = 0; 475 if(p[-1] == ' ') p[-1] = 0; 476 dn = bp; 477 goto srch; 478 } 479 } 480 if(!strcmp(p-6, " stone")){ 481 p[-6] = 0; 482 let = GEM_SYM; 483 an = bp; 484 goto srch; 485 } 486 if(!strcmp(bp, "very heavy iron ball")){ 487 heavy = 1; 488 typ = HEAVY_IRON_BALL; 489 goto typfnd; 490 } 491 an = bp; 492 srch: 493 if(!an && !dn && !un) 494 goto any; 495 i = 1; 496 if(let) i = bases[letindex(let)]; 497 while(i <= NROFOBJECTS && (!let || objects[i].oc_olet == let)){ 498 register char *zn = objects[i].oc_name; 499 500 if(!zn) goto nxti; 501 if(an && strcmp(an, zn)) 502 goto nxti; 503 if(dn && (!(zn = objects[i].oc_descr) || strcmp(dn, zn))) 504 goto nxti; 505 if(un && (!(zn = objects[i].oc_uname) || strcmp(un, zn))) 506 goto nxti; 507 typ = i; 508 goto typfnd; 509 nxti: 510 i++; 511 } 512 any: 513 if(!let) let = wrpsym[rn2(sizeof(wrpsym))]; 514 typ = probtype(let); 515 typfnd: 516 { register struct obj *otmp; 517 extern struct obj *mksobj(); 518 let = objects[typ].oc_olet; 519 otmp = mksobj(typ); 520 if(heavy) 521 otmp->owt += 15; 522 if(cnt > 0 && index("%?!*)", let) && 523 (cnt < 4 || (let == WEAPON_SYM && typ <= ROCK && cnt < 20))) 524 otmp->quan = cnt; 525 526 if(spe > 3 && spe > otmp->spe) 527 spe = 0; 528 else if(let == WAND_SYM) 529 spe = otmp->spe; 530 if(spe == 3 && u.uluck < 0) 531 spesgn = -1; 532 if(let != WAND_SYM && spesgn == -1) 533 spe = -spe; 534 if(let == BALL_SYM) 535 spe = 0; 536 else if(let == AMULET_SYM) 537 spe = -1; 538 else if(typ == WAN_WISHING && rn2(10)) 539 spe = (rn2(10) ? -1 : 0); 540 otmp->spe = spe; 541 542 if(spesgn == -1) 543 otmp->cursed = 1; 544 545 return(otmp); 546 } 547 } 548