diff options
Diffstat (limited to 'stone_soup/crawl-ref/source/itemname.cc')
-rw-r--r-- | stone_soup/crawl-ref/source/itemname.cc | 2421 |
1 files changed, 2421 insertions, 0 deletions
diff --git a/stone_soup/crawl-ref/source/itemname.cc b/stone_soup/crawl-ref/source/itemname.cc new file mode 100644 index 0000000000..89c7441b45 --- /dev/null +++ b/stone_soup/crawl-ref/source/itemname.cc @@ -0,0 +1,2421 @@ +/* + * File: itemname.cc + * Summary: Misc functions. + * Written by: Linley Henzell + * + * Modified for Crawl Reference by $Author$ on $Date$ + * + * Change History (most recent first): + * + * <4> 9/09/99 BWR Added hands_required function + * <3> 6/13/99 BWR Upped the base AC for heavy armour + * <2> 5/20/99 BWR Extended screen lines support + * <1> -/--/-- LRH Created + */ + +#include "AppHdr.h" +#include "itemname.h" + +#include <ctype.h> +#include <string.h> +#include <stdlib.h> +#include <stdio.h> + +#ifdef DOS +#include <conio.h> +#endif + +#include "externs.h" + +#include "invent.h" +#include "itemprop.h" +#include "macro.h" +#include "mon-util.h" +#include "randart.h" +#include "skills2.h" +#include "stuff.h" +#include "wpn-misc.h" +#include "view.h" + + +char id[NUM_IDTYPE][MAX_SUBTYPES]; + +static bool is_random_name_space( char let ); +static bool is_random_name_vowel( char let); +static char item_name_2( const item_def &item, char buff[ ITEMNAME_SIZE ], bool terse ); + +static char retvow(int sed); +static char retlet(int sed ); + +bool is_vowel( const char chr ) +{ + const char low = tolower( chr ); + + return (low == 'a' || low == 'e' || low == 'i' || low == 'o' || low == 'u'); +} + +bool item_type_known( const item_def &item ) +{ + return item_ident(item, ISFLAG_KNOW_TYPE) + || (item.base_type == OBJ_JEWELLERY + && id[IDTYPE_JEWELLERY][item.sub_type] == ID_KNOWN_TYPE); +} + +// it_name() and in_name() are now somewhat obsolete now that itemname +// takes item_def, so consider them depricated. +void it_name( int itn, char des, char buff[ ITEMNAME_SIZE ], bool terse ) +{ + item_name( mitm[itn], des, buff, terse ); +} // end it_name() + + +void in_name( int inn, char des, char buff[ ITEMNAME_SIZE ], bool terse ) +{ + item_name( you.inv[inn], des, buff, terse ); +} // end in_name() + +// quant_name is usful since it prints out a different number of items +// than the item actually contains. +void quant_name( const item_def &item, int quant, char des, + char buff[ ITEMNAME_SIZE ], bool terse ) +{ + // item_name now requires a "real" item, so we'll mangle a tmp + item_def tmp = item; + tmp.quantity = quant; + + item_name( tmp, des, buff, terse ); +} // end quant_name() + +char item_name( const item_def &item, char descrip, char buff[ ITEMNAME_SIZE ], + bool terse ) +{ + const int item_clas = item.base_type; + const int item_typ = item.sub_type; + const int it_quant = item.quantity; + + char tmp_quant[20]; + char itm_name[ ITEMNAME_SIZE ] = ""; + + item_name_2( item, itm_name, terse ); + + buff[0] = '\0'; + + if (descrip == DESC_INVENTORY_EQUIP || descrip == DESC_INVENTORY) + { + if (in_inventory(item)) // actually in inventory + snprintf( buff, ITEMNAME_SIZE, (terse) ? "%c) " : "%c - ", + index_to_letter( item.link ) ); + else + descrip = DESC_CAP_A; + } + + if (terse) + descrip = DESC_PLAIN; + + if (item_clas == OBJ_ORBS + || (item_ident( item, ISFLAG_KNOW_TYPE ) + && ((item_clas == OBJ_MISCELLANY + && item_typ == MISC_HORN_OF_GERYON) + || (is_fixed_artefact( item ) + || (is_random_artefact( item )))))) + { + // artefacts always get "the" unless we just want the plain name + switch (descrip) + { + case DESC_CAP_A: + case DESC_CAP_YOUR: + case DESC_CAP_THE: + strncat(buff, "The ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_A: + case DESC_NOCAP_YOUR: + case DESC_NOCAP_THE: + case DESC_NOCAP_ITS: + case DESC_INVENTORY_EQUIP: + case DESC_INVENTORY: + strncat(buff, "the ", ITEMNAME_SIZE ); + break; + default: + case DESC_PLAIN: + break; + } + } + else if (it_quant > 1) + { + switch (descrip) + { + case DESC_CAP_THE: + strncat(buff, "The ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_THE: + strncat(buff, "the ", ITEMNAME_SIZE ); + break; + case DESC_CAP_A: + case DESC_NOCAP_A: + case DESC_INVENTORY_EQUIP: + case DESC_INVENTORY: + break; + case DESC_CAP_YOUR: + strncat(buff, "Your ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_YOUR: + strncat(buff, "your ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_ITS: + strncat(buff, "its ", ITEMNAME_SIZE ); + break; + case DESC_PLAIN: + default: + break; + } + + itoa(it_quant, tmp_quant, 10); + strncat(buff, tmp_quant, ITEMNAME_SIZE ); + strncat(buff, " ", ITEMNAME_SIZE ); + } + else + { + switch (descrip) + { + case DESC_CAP_THE: + strncat(buff, "The ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_THE: + strncat(buff, "the ", ITEMNAME_SIZE ); + break; + case DESC_CAP_A: + strncat(buff, "A", ITEMNAME_SIZE ); + + if (itm_name[0] == 'a' || itm_name[0] == 'e' || itm_name[0] == 'i' + || itm_name[0] == 'o' || itm_name[0] == 'u') + { + strncat(buff, "n", ITEMNAME_SIZE ); + } + + strncat(buff, " ", ITEMNAME_SIZE ); + break; // A/An + + case DESC_NOCAP_A: + case DESC_INVENTORY_EQUIP: + case DESC_INVENTORY: + strncat(buff, "a", ITEMNAME_SIZE ); + + if (itm_name[0] == 'a' || itm_name[0] == 'e' || itm_name[0] == 'i' + || itm_name[0] == 'o' || itm_name[0] == 'u') + { + strncat(buff, "n", ITEMNAME_SIZE ); + } + + strncat(buff, " ", ITEMNAME_SIZE ); + break; // a/an + + case DESC_CAP_YOUR: + strncat(buff, "Your ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_YOUR: + strncat(buff, "your ", ITEMNAME_SIZE ); + break; + case DESC_NOCAP_ITS: + strncat(buff, "its ", ITEMNAME_SIZE ); + break; + case DESC_PLAIN: + default: + break; + } + } // end of else + + strncat(buff, itm_name, ITEMNAME_SIZE ); + + if (descrip == DESC_INVENTORY_EQUIP && item.x == -1 && item.y == -1) + { + ASSERT( item.link != -1 ); + + if (item.link == you.equip[EQ_WEAPON]) + { + if (you.inv[ you.equip[EQ_WEAPON] ].base_type == OBJ_WEAPONS + || item_is_staff( you.inv[ you.equip[EQ_WEAPON] ] )) + { + strncat( buff, " (weapon)", ITEMNAME_SIZE ); + } + else + { + strncat( buff, " (in hand)", ITEMNAME_SIZE ); + } + } + else if (item.link == you.equip[EQ_CLOAK] + || item.link == you.equip[EQ_HELMET] + || item.link == you.equip[EQ_GLOVES] + || item.link == you.equip[EQ_BOOTS] + || item.link == you.equip[EQ_SHIELD] + || item.link == you.equip[EQ_BODY_ARMOUR]) + { + strncat( buff, " (worn)", ITEMNAME_SIZE ); + } + else if (item.link == you.equip[EQ_LEFT_RING]) + { + strncat( buff, " (left hand)", ITEMNAME_SIZE ); + } + else if (item.link == you.equip[EQ_RIGHT_RING]) + { + strncat( buff, " (right hand)", ITEMNAME_SIZE ); + } + else if (item.link == you.equip[EQ_AMULET]) + { + strncat( buff, " (around neck)", ITEMNAME_SIZE ); + } + } + + return (1); +} // end item_name() + + +// Note that "terse" is only currently used for the "in hand" listing on +// the game screen. +static char item_name_2( const item_def &item, char buff[ITEMNAME_SIZE], + bool terse ) +{ + const int item_clas = item.base_type; + const int item_typ = item.sub_type; + const int it_plus = item.plus; + const int item_plus2 = item.plus2; + const int it_quant = item.quantity; + + char tmp_quant[20]; + char tmp_buff[ITEMNAME_SIZE]; + int brand; + unsigned char sparm; + + buff[0] = '\0'; + + switch (item_clas) + { + case OBJ_WEAPONS: + if (item_ident( item, ISFLAG_KNOW_CURSE ) && !terse) + { + // We don't bother printing "uncursed" if the item is identified + // for pluses (it's state should be obvious), this is so that + // the weapon name is kept short (there isn't a lot of room + // for the name on the main screen). If you're going to change + // this behaviour, *please* make it so that there is an option + // that maintains this behaviour. -- bwr + if (item_cursed( item )) + strncat(buff, "cursed ", ITEMNAME_SIZE ); + else if (Options.show_uncursed + && !item_ident( item, ISFLAG_KNOW_PLUSES )) + { + strncat(buff, "uncursed ", ITEMNAME_SIZE ); + } + } + + if (item_ident( item, ISFLAG_KNOW_PLUSES )) + { + if (it_plus == 0 && item_plus2 == 0) + strncat(buff, "+0 ", ITEMNAME_SIZE ); + else + { + if (it_plus >= 0) + strncat( buff, "+" , ITEMNAME_SIZE ); + + itoa( it_plus, tmp_quant, 10 ); + strncat( buff, tmp_quant , ITEMNAME_SIZE ); + + if (it_plus != item_plus2 || !terse) + { + strncat( buff, "," , ITEMNAME_SIZE ); + + if (item_plus2 >= 0) + strncat(buff, "+", ITEMNAME_SIZE ); + + itoa( item_plus2, tmp_quant, 10 ); + strncat( buff, tmp_quant , ITEMNAME_SIZE ); + } + + strncat( buff, " " , ITEMNAME_SIZE ); + } + } + + if (is_random_artefact( item )) + { + strncat( buff, randart_name(item), ITEMNAME_SIZE ); + break; + } + + if (is_fixed_artefact( item )) + { + if (item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, + (item.special == SPWPN_SINGING_SWORD) ? "Singing Sword" : + (item.special == SPWPN_WRATH_OF_TROG) ? "Wrath of Trog" : + (item.special == SPWPN_SCYTHE_OF_CURSES) ? "Scythe of Curses" : + (item.special == SPWPN_MACE_OF_VARIABILITY) ? "Mace of Variability" : + (item.special == SPWPN_GLAIVE_OF_PRUNE) ? "Glaive of Prune" : + (item.special == SPWPN_SCEPTRE_OF_TORMENT) ? "Sceptre of Torment" : + (item.special == SPWPN_SWORD_OF_ZONGULDROK) ? "Sword of Zonguldrok" : + (item.special == SPWPN_SWORD_OF_CEREBOV) ? "Sword of Cerebov" : + (item.special == SPWPN_STAFF_OF_DISPATER) ? "Staff of Dispater" : + (item.special == SPWPN_SCEPTRE_OF_ASMODEUS) ? "Sceptre of Asmodeus" : + (item.special == SPWPN_SWORD_OF_POWER) ? "Sword of Power" : + (item.special == SPWPN_KNIFE_OF_ACCURACY) ? "Knife of Accuracy" : + (item.special == SPWPN_STAFF_OF_OLGREB) ? "Staff of Olgreb" : + (item.special == SPWPN_VAMPIRES_TOOTH) ? "Vampire's Tooth" : + (item.special == SPWPN_STAFF_OF_WUCAD_MU) ? "Staff of Wucad Mu" + : "Brodale's Buggy Bola", + ITEMNAME_SIZE ); + } + else + { + strncat(buff, + (item.special == SPWPN_SINGING_SWORD) ? "golden long sword" : + (item.special == SPWPN_WRATH_OF_TROG) ? "bloodstained battleaxe" : + (item.special == SPWPN_SCYTHE_OF_CURSES) ? "warped scythe" : + (item.special == SPWPN_MACE_OF_VARIABILITY) ? "shimmering mace" : + (item.special == SPWPN_GLAIVE_OF_PRUNE) ? "purple glaive" : + (item.special == SPWPN_SCEPTRE_OF_TORMENT) ? "jeweled golden mace" : + (item.special == SPWPN_SWORD_OF_ZONGULDROK) ? "bone long sword" : + (item.special == SPWPN_SWORD_OF_CEREBOV) ? "great serpentine sword" : + (item.special == SPWPN_STAFF_OF_DISPATER) ? "golden staff" : + (item.special == SPWPN_SCEPTRE_OF_ASMODEUS) ? "ruby sceptre" : + (item.special == SPWPN_SWORD_OF_POWER) ? "chunky great sword" : + (item.special == SPWPN_KNIFE_OF_ACCURACY) ? "thin dagger" : + (item.special == SPWPN_STAFF_OF_OLGREB) ? "green glowing staff" : + (item.special == SPWPN_VAMPIRES_TOOTH) ? "ivory dagger" : + (item.special == SPWPN_STAFF_OF_WUCAD_MU) ? "ephemeral quarterstaff" + : "buggy bola", + ITEMNAME_SIZE ); + } + break; + } + + // Now that we can have "glowing elven" weapons, it's + // probably a good idea to cut out the descriptive + // term once it's become obsolete. -- bwr + if (!item_ident( item, ISFLAG_KNOW_PLUSES ) && !terse) + { + switch (get_equip_desc( item )) + { + case ISFLAG_RUNED: + strncat(buff, "runed ", ITEMNAME_SIZE ); + break; + case ISFLAG_GLOWING: + strncat(buff, "glowing ", ITEMNAME_SIZE ); + break; + } + } + + // always give racial type (it does have game effects) + + switch (get_equip_race( item )) + { + case ISFLAG_ORCISH: + strncat( buff, (terse) ? "orc " : "orcish ", ITEMNAME_SIZE ); + break; + case ISFLAG_ELVEN: + strncat( buff, (terse) ? "elf " : "elven ", ITEMNAME_SIZE ); + break; + case ISFLAG_DWARVEN: + strncat( buff, (terse) ? "dwarf " : "dwarven ", ITEMNAME_SIZE ); + break; + } + + brand = get_weapon_brand( item ); + + if (item_ident( item, ISFLAG_KNOW_TYPE ) && !terse) + { + if (brand == SPWPN_VAMPIRICISM) + strncat(buff, "vampiric ", ITEMNAME_SIZE ); + } // end if + + standard_name_weap( item_typ, tmp_buff ); + strncat( buff, tmp_buff, ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + { + switch (brand) + { + case SPWPN_NORMAL: + break; + case SPWPN_FLAMING: + strncat(buff, (terse) ? " (flame)" : " of flaming", ITEMNAME_SIZE ); + break; + case SPWPN_FREEZING: + strncat(buff, (terse) ? " (freeze)" : " of freezing", ITEMNAME_SIZE ); + break; + case SPWPN_HOLY_WRATH: + strncat(buff, (terse) ? " (holy)" : " of holy wrath", ITEMNAME_SIZE ); + break; + case SPWPN_ELECTROCUTION: + strncat(buff, (terse) ? " (elec)" : " of electrocution", ITEMNAME_SIZE ); + break; + case SPWPN_ORC_SLAYING: + strncat(buff, (terse) ? " (slay orc)" : " of orc slaying", ITEMNAME_SIZE ); + break; + case SPWPN_VENOM: + strncat(buff, (terse) ? " (venom)" : " of venom", ITEMNAME_SIZE ); + break; + case SPWPN_PROTECTION: + strncat(buff, (terse) ? " (protect)" : " of protection", ITEMNAME_SIZE ); + break; + case SPWPN_DRAINING: + strncat(buff, (terse) ? " (drain)" : " of draining", ITEMNAME_SIZE ); + break; + case SPWPN_SPEED: + strncat(buff, (terse) ? " (speed)" : " of speed", ITEMNAME_SIZE ); + break; + case SPWPN_VORPAL: + if (is_range_weapon( item )) + { + strncat(buff, (terse) ? " (velocity)" : " of velocity", + ITEMNAME_SIZE ); + break; + } + + switch (get_vorpal_type(item)) + { + case DVORP_CRUSHING: + strncat(buff, (terse) ? " (crush)" : " of crushing", ITEMNAME_SIZE ); + break; + case DVORP_SLICING: + strncat(buff, (terse) ? " (slice)" : " of slicing", ITEMNAME_SIZE ); + break; + case DVORP_PIERCING: + strncat(buff, (terse) ? " (pierce)" : " of piercing", ITEMNAME_SIZE ); + break; + case DVORP_CHOPPING: + strncat(buff, (terse) ? " (chop)" : " of chopping", ITEMNAME_SIZE ); + break; + case DVORP_SLASHING: + strncat(buff, (terse) ? " (slash)" : " of slashing", ITEMNAME_SIZE ); + break; + case DVORP_STABBING: + strncat(buff, (terse) ? " (stab)" : " of stabbing", ITEMNAME_SIZE ); + break; + } + break; + + case SPWPN_FLAME: + strncat(buff, (terse) ? " (flame)" : " of flame", ITEMNAME_SIZE ); + break; // bows/xbows + + case SPWPN_FROST: + strncat(buff, (terse) ? " (frost)" : " of frost", ITEMNAME_SIZE ); + break; // bows/xbows + + case SPWPN_VAMPIRICISM: + if (terse) + strncat( buff, " (vamp)", ITEMNAME_SIZE ); + break; + + case SPWPN_DISRUPTION: + strncat(buff, (terse) ? " (disrupt)" : " of disruption", ITEMNAME_SIZE ); + break; + case SPWPN_PAIN: + strncat(buff, (terse) ? " (pain)" : " of pain", ITEMNAME_SIZE ); + break; + case SPWPN_DISTORTION: + strncat(buff, (terse) ? " (distort)" : " of distortion", ITEMNAME_SIZE ); + break; + + case SPWPN_REACHING: + strncat(buff, (terse) ? " (reach)" : " of reaching", ITEMNAME_SIZE ); + break; + + /* 25 - 29 are randarts */ + } + } + + if (item_ident(item, ISFLAG_KNOW_CURSE) && item_cursed(item) && terse) + strncat( buff, " (curse)", ITEMNAME_SIZE ); + break; + + case OBJ_MISSILES: + brand = get_ammo_brand( item ); + + if (brand == SPMSL_POISONED || brand == SPMSL_POISONED_II) + { + strncat( buff, (terse) ? "poison " : "poisoned ", ITEMNAME_SIZE ); + } + + if (brand == SPMSL_CURARE) + { + strncat( buff, (terse) ? "curare " : "curare-tipped ", ITEMNAME_SIZE); + } + + if (item_ident( item, ISFLAG_KNOW_PLUSES )) + { + if (it_plus >= 0) + strncat(buff, "+", ITEMNAME_SIZE ); + + itoa( it_plus, tmp_quant, 10 ); + + strncat(buff, tmp_quant, ITEMNAME_SIZE ); + strncat(buff, " ", ITEMNAME_SIZE ); + } + + if (get_equip_race( item )) + { + int dwpn = get_equip_race( item ); + + strncat(buff, + (dwpn == ISFLAG_ORCISH) ? ((terse) ? "orc " : "orcish ") : + (dwpn == ISFLAG_ELVEN) ? ((terse) ? "elf " : "elven ") : + (dwpn == ISFLAG_DWARVEN) ? ((terse) ? "dwarf " : "dwarven ") + : "buggy ", + ITEMNAME_SIZE); + } + + strncat(buff, (item_typ == MI_STONE) ? "stone" : + (item_typ == MI_ARROW) ? "arrow" : + (item_typ == MI_BOLT) ? "bolt" : + (item_typ == MI_DART) ? "dart" : + (item_typ == MI_NEEDLE) ? "needle" : + (item_typ == MI_LARGE_ROCK) ? "large rock" : + "hysterical raisin", ITEMNAME_SIZE); + // this should probably be "" {dlb} + + if (it_quant > 1) + strncat(buff, "s", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat( buff, + (brand == SPMSL_FLAME) ? ((terse) ? " (flame)" : " of flame") : + (brand == SPMSL_ICE) ? ((terse) ? " (ice)" : " of ice") : + (brand == SPMSL_NORMAL) ? "" : + (brand == SPMSL_POISONED) ? "" : + (brand == SPMSL_POISONED_II) ? "" : + (brand == SPMSL_CURARE) ? "" : + " (buggy)", ITEMNAME_SIZE ); + } + break; + + case OBJ_ARMOUR: + if (item_ident( item, ISFLAG_KNOW_CURSE ) && !terse) + { + if (item_cursed( item )) + strncat(buff, "cursed ", ITEMNAME_SIZE ); + else if (Options.show_uncursed + && !item_ident( item, ISFLAG_KNOW_PLUSES )) + { + strncat(buff, "uncursed ", ITEMNAME_SIZE ); + } + } + + if (item_ident( item, ISFLAG_KNOW_PLUSES )) + { + if (it_plus >= 0) + strncat(buff, "+", ITEMNAME_SIZE ); + + itoa( it_plus, tmp_quant, 10 ); + + strncat(buff, tmp_quant, ITEMNAME_SIZE ); + strncat(buff, " ", ITEMNAME_SIZE ); + } + + if (item_typ == ARM_GLOVES || item_typ == ARM_BOOTS) + { + strncat( buff, "pair of ", ITEMNAME_SIZE ); + } + + if (is_random_artefact( item )) + { + strncat(buff, randart_armour_name(item), ITEMNAME_SIZE); + break; + } + + // Now that we can have "glowing elven" armour, it's + // probably a good idea to cut out the descriptive + // term once it's become obsolete. -- bwr + if (!item_ident( item, ISFLAG_KNOW_PLUSES ) && !terse) + { + switch (get_equip_desc( item )) + { + case ISFLAG_EMBROIDERED_SHINY: + if (item_typ == ARM_ROBE || item_typ == ARM_CLOAK + || item_typ == ARM_GLOVES || item_typ == ARM_BOOTS) + { + strncat(buff, "embroidered ", ITEMNAME_SIZE ); + } + else if (item_typ != ARM_LEATHER_ARMOUR + && item_typ != ARM_ANIMAL_SKIN) + { + strncat(buff, "shiny ", ITEMNAME_SIZE ); + } + break; + + case ISFLAG_RUNED: + strncat(buff, "runed ", ITEMNAME_SIZE ); + break; + + case ISFLAG_GLOWING: + strncat(buff, "glowing ", ITEMNAME_SIZE ); + break; + } + } + + // always give racial description (has game effects) + switch (get_equip_race( item )) + { + case ISFLAG_ELVEN: + strncat(buff, (terse) ? "elf " :"elven ", ITEMNAME_SIZE ); + break; + case ISFLAG_DWARVEN: + strncat(buff, (terse) ? "dwarf " : "dwarven ", ITEMNAME_SIZE ); + break; + case ISFLAG_ORCISH: + strncat(buff, (terse) ? "orc " : "orcish ", ITEMNAME_SIZE ); + break; + } // end switch + + standard_name_armour( item, tmp_buff ); // in randart.cc + strncat( buff, tmp_buff, ITEMNAME_SIZE ); + + sparm = get_armour_ego_type( item ); + + if (item_ident( item, ISFLAG_KNOW_TYPE ) && sparm != SPARM_NORMAL) + { + if (!terse) + { + strncat(buff, " of ", ITEMNAME_SIZE ); + + strncat(buff, (sparm == SPARM_RUNNING) ? "running" : + (sparm == SPARM_FIRE_RESISTANCE) ? "fire resistance" : + (sparm == SPARM_COLD_RESISTANCE) ? "cold resistance" : + (sparm == SPARM_POISON_RESISTANCE) ? "poison resistance" : + (sparm == SPARM_SEE_INVISIBLE) ? "see invisible" : + (sparm == SPARM_DARKNESS) ? "darkness" : + (sparm == SPARM_STRENGTH) ? "strength" : + (sparm == SPARM_DEXTERITY) ? "dexterity" : + (sparm == SPARM_INTELLIGENCE) ? "intelligence" : + (sparm == SPARM_PONDEROUSNESS) ? "ponderousness" : + (sparm == SPARM_LEVITATION) ? "levitation" : + (sparm == SPARM_MAGIC_RESISTANCE) ? "magic resistance" : + (sparm == SPARM_PROTECTION) ? "protection" : + (sparm == SPARM_STEALTH) ? "stealth" : + (sparm == SPARM_RESISTANCE) ? "resistance" : + (sparm == SPARM_POSITIVE_ENERGY) ? "positive energy" : + (sparm == SPARM_ARCHMAGI) ? "the Archmagi" : + (sparm == SPARM_PRESERVATION) ? "preservation" + : "bugginess", + ITEMNAME_SIZE); + } + else + { + strncat(buff, (sparm == SPARM_RUNNING) ? " (run)" : + (sparm == SPARM_FIRE_RESISTANCE) ? " (R-fire)" : + (sparm == SPARM_COLD_RESISTANCE) ? " (R-cold)" : + (sparm == SPARM_POISON_RESISTANCE) ? " (R-poison)" : + (sparm == SPARM_SEE_INVISIBLE) ? " (see invis)" : + (sparm == SPARM_DARKNESS) ? " (darkness)" : + (sparm == SPARM_STRENGTH) ? " (str)" : + (sparm == SPARM_DEXTERITY) ? " (dex)" : + (sparm == SPARM_INTELLIGENCE) ? " (int)" : + (sparm == SPARM_PONDEROUSNESS) ? " (ponderous)" : + (sparm == SPARM_LEVITATION) ? " (levitate)" : + (sparm == SPARM_MAGIC_RESISTANCE) ? " (R-magic)" : + (sparm == SPARM_PROTECTION) ? " (protect)" : + (sparm == SPARM_STEALTH) ? " (stealth)" : + (sparm == SPARM_RESISTANCE) ? " (resist)" : + (sparm == SPARM_POSITIVE_ENERGY) ? " (R-neg)" : // ha ha + (sparm == SPARM_ARCHMAGI) ? " (Archmagi)" : + (sparm == SPARM_PRESERVATION) ? " (preserve)" + : " (buggy)", + ITEMNAME_SIZE); + } + } + + if (item_ident(item, ISFLAG_KNOW_CURSE) && item_cursed(item) && terse) + strncat( buff, " (curse)", ITEMNAME_SIZE ); + break; + + // compacted 15 Apr 2000 {dlb}: + case OBJ_WANDS: + if (id[ IDTYPE_WANDS ][item_typ] == ID_KNOWN_TYPE + || item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, "wand of ", ITEMNAME_SIZE ); + strncat(buff, (item_typ == WAND_FLAME) ? "flame" : + (item_typ == WAND_FROST) ? "frost" : + (item_typ == WAND_SLOWING) ? "slowing" : + (item_typ == WAND_HASTING) ? "hasting" : + (item_typ == WAND_MAGIC_DARTS) ? "magic darts" : + (item_typ == WAND_HEALING) ? "healing" : + (item_typ == WAND_PARALYSIS) ? "paralysis" : + (item_typ == WAND_FIRE) ? "fire" : + (item_typ == WAND_COLD) ? "cold" : + (item_typ == WAND_CONFUSION) ? "confusion" : + (item_typ == WAND_INVISIBILITY) ? "invisibility" : + (item_typ == WAND_DIGGING) ? "digging" : + (item_typ == WAND_FIREBALL) ? "fireball" : + (item_typ == WAND_TELEPORTATION) ? "teleportation" : + (item_typ == WAND_LIGHTNING) ? "lightning" : + (item_typ == WAND_POLYMORPH_OTHER) ? "polymorph other" : + (item_typ == WAND_ENSLAVEMENT) ? "enslavement" : + (item_typ == WAND_DRAINING) ? "draining" : + (item_typ == WAND_RANDOM_EFFECTS) ? "random effects" : + (item_typ == WAND_DISINTEGRATION) ? "disintegration" + : "bugginess", + ITEMNAME_SIZE ); + } + else + { + char primary = (item.special % 12); + char secondary = (item.special / 12); + + strncat(buff,(secondary == 0) ? "" : // hope this works {dlb} + (secondary == 1) ? "jeweled" : + (secondary == 2) ? "curved" : + (secondary == 3) ? "long" : + (secondary == 4) ? "short" : + (secondary == 5) ? "twisted" : + (secondary == 6) ? "crooked" : + (secondary == 7) ? "forked" : + (secondary == 8) ? "shiny" : + (secondary == 9) ? "blackened" : + (secondary == 10) ? "tapered" : + (secondary == 11) ? "glowing" : + (secondary == 12) ? "worn" : + (secondary == 13) ? "encrusted" : + (secondary == 14) ? "runed" : + (secondary == 15) ? "sharpened" : "buggily", ITEMNAME_SIZE); + + if (secondary != 0) + strncat(buff, " ", ITEMNAME_SIZE ); + + strncat(buff, (primary == 0) ? "iron" : + (primary == 1) ? "brass" : + (primary == 2) ? "bone" : + (primary == 3) ? "wooden" : + (primary == 4) ? "copper" : + (primary == 5) ? "gold" : + (primary == 6) ? "silver" : + (primary == 7) ? "bronze" : + (primary == 8) ? "ivory" : + (primary == 9) ? "glass" : + (primary == 10) ? "lead" : + (primary == 11) ? "plastic" : "buggy", ITEMNAME_SIZE); + + strncat(buff, " wand", ITEMNAME_SIZE ); + + if (id[ IDTYPE_WANDS ][item_typ] == ID_TRIED_TYPE) + { + strncat( buff, " {tried}" , ITEMNAME_SIZE ); + } + } + + if (item_ident( item, ISFLAG_KNOW_PLUSES )) + { + strncat(buff, " (", ITEMNAME_SIZE ); + itoa( it_plus, tmp_quant, 10 ); + strncat(buff, tmp_quant, ITEMNAME_SIZE ); + strncat(buff, ")", ITEMNAME_SIZE); + } + break; + + // NB: potions, food, and scrolls stack on the basis of class and + // type ONLY !!! + + // compacted 15 Apr 2000 {dlb}: + case OBJ_POTIONS: + if (id[ IDTYPE_POTIONS ][item_typ] == ID_KNOWN_TYPE + || item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, "potion", ITEMNAME_SIZE ); + strncat(buff, (it_quant == 1) ? " " : "s ", ITEMNAME_SIZE); + strncat(buff, "of ", ITEMNAME_SIZE ); + strncat(buff, (item_typ == POT_HEALING) ? "healing" : + (item_typ == POT_HEAL_WOUNDS) ? "heal wounds" : + (item_typ == POT_SPEED) ? "speed" : + (item_typ == POT_MIGHT) ? "might" : + (item_typ == POT_GAIN_STRENGTH) ? "gain strength" : + (item_typ == POT_GAIN_DEXTERITY) ? "gain dexterity" : + (item_typ == POT_GAIN_INTELLIGENCE) ? "gain intelligence" : + (item_typ == POT_LEVITATION) ? "levitation" : + (item_typ == POT_POISON) ? "poison" : + (item_typ == POT_SLOWING) ? "slowing" : + (item_typ == POT_PARALYSIS) ? "paralysis" : + (item_typ == POT_CONFUSION) ? "confusion" : + (item_typ == POT_INVISIBILITY) ? "invisibility" : + (item_typ == POT_PORRIDGE) ? "porridge" : + (item_typ == POT_DEGENERATION) ? "degeneration" : + (item_typ == POT_DECAY) ? "decay" : + (item_typ == POT_WATER) ? "water" : + (item_typ == POT_EXPERIENCE) ? "experience" : + (item_typ == POT_MAGIC) ? "magic" : + (item_typ == POT_RESTORE_ABILITIES) ? "restore abilities" : + (item_typ == POT_STRONG_POISON) ? "strong poison" : + (item_typ == POT_BERSERK_RAGE) ? "berserk rage" : + (item_typ == POT_CURE_MUTATION) ? "cure mutation" : + (item_typ == POT_MUTATION) ? "mutation" : "bugginess", + ITEMNAME_SIZE); + } + else + { + char primary = item.special / 14; + char secondary = item.special % 14; + + strncat(buff, + (primary == 0) ? "" : + (primary == 1) ? "bubbling " : + (primary == 2) ? "lumpy " : + (primary == 3) ? "fuming " : + (primary == 4) ? "smoky " : + (primary == 5) ? "fizzy " : + (primary == 6) ? "glowing " : + (primary == 7) ? "sedimented " : + (primary == 8) ? "metallic " : + (primary == 9) ? "murky " : + (primary == 10) ? "gluggy " : + (primary == 11) ? "viscous " : + (primary == 12) ? "oily " : + (primary == 13) ? "slimy " : + (primary == 14) ? "emulsified " : "buggy ", ITEMNAME_SIZE); + + strncat(buff, + (secondary == 0) ? "clear" : + (secondary == 1) ? "blue" : + (secondary == 2) ? "black" : + (secondary == 3) ? "silvery" : + (secondary == 4) ? "cyan" : + (secondary == 5) ? "purple" : + (secondary == 6) ? "orange" : + (secondary == 7) ? "inky" : + (secondary == 8) ? "red" : + (secondary == 9) ? "yellow" : + (secondary == 10) ? "green" : + (secondary == 11) ? "brown" : + (secondary == 12) ? "pink" : + (secondary == 13) ? "white" : "buggy", ITEMNAME_SIZE); + + strncat(buff, " potion", ITEMNAME_SIZE ); + + if (it_quant > 1) + strncat(buff, "s", ITEMNAME_SIZE ); + + if (id[ IDTYPE_POTIONS ][item_typ] == ID_TRIED_TYPE) + { + strncat( buff, " {tried}" , ITEMNAME_SIZE ); + } + } + break; + + // NB: adding another food type == must set for carnivorous chars + // (Kobolds and mutants) + case OBJ_FOOD: + switch (item_typ) + { + case FOOD_MEAT_RATION: + strncat(buff, "meat ration", ITEMNAME_SIZE ); + break; + case FOOD_BREAD_RATION: + strncat(buff, "bread ration", ITEMNAME_SIZE ); + break; + case FOOD_PEAR: + strncat(buff, "pear", ITEMNAME_SIZE ); + break; + case FOOD_APPLE: // make this less common + strncat(buff, "apple", ITEMNAME_SIZE ); + break; + case FOOD_CHOKO: + strncat(buff, "choko", ITEMNAME_SIZE ); + break; + case FOOD_HONEYCOMB: + strncat(buff, "honeycomb", ITEMNAME_SIZE ); + break; + case FOOD_ROYAL_JELLY: + strncat(buff, "royal jell", ITEMNAME_SIZE ); + break; + case FOOD_SNOZZCUMBER: + strncat(buff, "snozzcumber", ITEMNAME_SIZE ); + break; + case FOOD_PIZZA: + strncat(buff, "slice of pizza", ITEMNAME_SIZE ); + break; + case FOOD_APRICOT: + strncat(buff, "apricot", ITEMNAME_SIZE ); + break; + case FOOD_ORANGE: + strncat(buff, "orange", ITEMNAME_SIZE ); + break; + case FOOD_BANANA: + strncat(buff, "banana", ITEMNAME_SIZE ); + break; + case FOOD_STRAWBERRY: + strncat(buff, "strawberr", ITEMNAME_SIZE ); + break; + case FOOD_RAMBUTAN: + strncat(buff, "rambutan", ITEMNAME_SIZE ); + break; + case FOOD_LEMON: + strncat(buff, "lemon", ITEMNAME_SIZE ); + break; + case FOOD_GRAPE: + strncat(buff, "grape", ITEMNAME_SIZE ); + break; + case FOOD_SULTANA: + strncat(buff, "sultana", ITEMNAME_SIZE ); + break; + case FOOD_LYCHEE: + strncat(buff, "lychee", ITEMNAME_SIZE ); + break; + case FOOD_BEEF_JERKY: + strncat(buff, "beef jerk", ITEMNAME_SIZE ); + break; + case FOOD_CHEESE: + strncat(buff, "cheese", ITEMNAME_SIZE ); + break; + case FOOD_SAUSAGE: + strncat(buff, "sausage", ITEMNAME_SIZE ); + break; + case FOOD_CHUNK: + moname( it_plus, true, DESC_PLAIN, tmp_buff ); + + if (item.special < 100) + strncat(buff, "rotting ", ITEMNAME_SIZE ); + + strncat(buff, "chunk", ITEMNAME_SIZE ); + + if (it_quant > 1) + strncat(buff, "s", ITEMNAME_SIZE ); + + strncat(buff, " of ", ITEMNAME_SIZE ); + strncat(buff, tmp_buff, ITEMNAME_SIZE ); + strncat(buff, " flesh", ITEMNAME_SIZE ); + break; + + } + + if (item_typ == FOOD_ROYAL_JELLY || item_typ == FOOD_STRAWBERRY + || item_typ == FOOD_BEEF_JERKY) + strncat(buff, (it_quant > 1) ? "ie" : "y", ITEMNAME_SIZE ); + break; + + // compacted 15 Apr 2000 {dlb}: + case OBJ_SCROLLS: + strncat(buff, "scroll", ITEMNAME_SIZE ); + strncat(buff, (it_quant == 1) ? " " : "s ", ITEMNAME_SIZE); + + if (id[ IDTYPE_SCROLLS ][item_typ] == ID_KNOWN_TYPE + || item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, "of ", ITEMNAME_SIZE ); + strncat(buff, (item_typ == SCR_IDENTIFY) ? "identify" : + (item_typ == SCR_TELEPORTATION) ? "teleportation" : + (item_typ == SCR_FEAR) ? "fear" : + (item_typ == SCR_NOISE) ? "noise" : + (item_typ == SCR_REMOVE_CURSE) ? "remove curse" : + (item_typ == SCR_DETECT_CURSE) ? "detect curse" : + (item_typ == SCR_SUMMONING) ? "summoning" : + (item_typ == SCR_ENCHANT_WEAPON_I) ? "enchant weapon I" : + (item_typ == SCR_ENCHANT_ARMOUR) ? "enchant armour" : + (item_typ == SCR_TORMENT) ? "torment" : + (item_typ == SCR_RANDOM_USELESSNESS) ? "random uselessness" : + (item_typ == SCR_CURSE_WEAPON) ? "curse weapon" : + (item_typ == SCR_CURSE_ARMOUR) ? "curse armour" : + (item_typ == SCR_IMMOLATION) ? "immolation" : + (item_typ == SCR_BLINKING) ? "blinking" : + (item_typ == SCR_PAPER) ? "paper" : + (item_typ == SCR_MAGIC_MAPPING) ? "magic mapping" : + (item_typ == SCR_FORGETFULNESS) ? "forgetfulness" : + (item_typ == SCR_ACQUIREMENT) ? "acquirement" : + (item_typ == SCR_ENCHANT_WEAPON_II) ? "enchant weapon II" : + (item_typ == SCR_VORPALISE_WEAPON) ? "vorpalise weapon" : + (item_typ == SCR_RECHARGING) ? "recharging" : + //(item_typ == 23) ? "portal travel" : + (item_typ == SCR_ENCHANT_WEAPON_III) ? "enchant weapon III" + : "bugginess", + ITEMNAME_SIZE); + } + else + { + strncat(buff, "labeled ", ITEMNAME_SIZE ); + char buff3[ ITEMNAME_SIZE ]; + + const unsigned long sseed = + item.special + + static_cast<unsigned long>(it_plus) + + (static_cast<unsigned long>(item_clas) << 16); + make_name( sseed, true, buff3 ); + strncat( buff, buff3 , ITEMNAME_SIZE ); + + if (id[ IDTYPE_SCROLLS ][item_typ] == ID_TRIED_TYPE) + { + strncat( buff, " {tried}" , ITEMNAME_SIZE ); + } + } + break; + + // compacted 15 Apr 2000 {dlb}: -- on hold ... what a mess! + case OBJ_JEWELLERY: + // not using {tried} here because there are some confusing + // issues to work out with how we want to handle jewellery + // artefacts and base type id. -- bwr + if (item_ident( item, ISFLAG_KNOW_CURSE )) + { + if (item_cursed( item )) + strncat(buff, "cursed ", ITEMNAME_SIZE ); + else if (Options.show_uncursed + && !item_ident( item, ISFLAG_KNOW_PLUSES )) + { + strncat(buff, "uncursed ", ITEMNAME_SIZE ); + } + } + + if (is_random_artefact( item )) + { + strncat(buff, randart_ring_name(item), ITEMNAME_SIZE); + break; + } + + if (id[ IDTYPE_JEWELLERY ][item_typ] == ID_KNOWN_TYPE + || item_ident( item, ISFLAG_KNOW_TYPE )) + { + + if (item_ident( item, ISFLAG_KNOW_PLUSES ) + && (item_typ == RING_PROTECTION || item_typ == RING_STRENGTH + || item_typ == RING_SLAYING || item_typ == RING_EVASION + || item_typ == RING_DEXTERITY + || item_typ == RING_INTELLIGENCE)) + { + char gokh = it_plus; + + if (gokh >= 0) + strncat( buff, "+" , ITEMNAME_SIZE ); + + itoa( gokh, tmp_quant, 10 ); + strncat( buff, tmp_quant , ITEMNAME_SIZE ); + + if (item_typ == RING_SLAYING) + { + strncat( buff, "," , ITEMNAME_SIZE ); + + if (item_plus2 >= 0) + strncat(buff, "+", ITEMNAME_SIZE ); + + itoa( item_plus2, tmp_quant, 10 ); + strncat( buff, tmp_quant , ITEMNAME_SIZE ); + } + + strncat(buff, " ", ITEMNAME_SIZE ); + } + + switch (item_typ) + { + case RING_REGENERATION: + strncat(buff, "ring of regeneration", ITEMNAME_SIZE ); + break; + case RING_PROTECTION: + strncat(buff, "ring of protection", ITEMNAME_SIZE ); + break; + case RING_PROTECTION_FROM_FIRE: + strncat(buff, "ring of protection from fire", ITEMNAME_SIZE ); + break; + case RING_POISON_RESISTANCE: + strncat(buff, "ring of poison resistance", ITEMNAME_SIZE ); + break; + case RING_PROTECTION_FROM_COLD: + strncat(buff, "ring of protection from cold", ITEMNAME_SIZE ); + break; + case RING_STRENGTH: + strncat(buff, "ring of strength", ITEMNAME_SIZE ); + break; + case RING_SLAYING: + strncat(buff, "ring of slaying", ITEMNAME_SIZE ); + break; + case RING_SEE_INVISIBLE: + strncat(buff, "ring of see invisible", ITEMNAME_SIZE ); + break; + case RING_INVISIBILITY: + strncat(buff, "ring of invisibility", ITEMNAME_SIZE ); + break; + case RING_HUNGER: + strncat(buff, "ring of hunger", ITEMNAME_SIZE ); + break; + case RING_TELEPORTATION: + strncat(buff, "ring of teleportation", ITEMNAME_SIZE ); + break; + case RING_EVASION: + strncat(buff, "ring of evasion", ITEMNAME_SIZE ); + break; + case RING_SUSTAIN_ABILITIES: + strncat(buff, "ring of sustain abilities", ITEMNAME_SIZE ); + break; + case RING_SUSTENANCE: + strncat(buff, "ring of sustenance", ITEMNAME_SIZE ); + break; + case RING_DEXTERITY: + strncat(buff, "ring of dexterity", ITEMNAME_SIZE ); + break; + case RING_INTELLIGENCE: + strncat(buff, "ring of intelligence", ITEMNAME_SIZE ); + break; + case RING_WIZARDRY: + strncat(buff, "ring of wizardry", ITEMNAME_SIZE ); + break; + case RING_MAGICAL_POWER: + strncat(buff, "ring of magical power", ITEMNAME_SIZE ); + break; + case RING_LEVITATION: + strncat(buff, "ring of levitation", ITEMNAME_SIZE ); + break; + case RING_LIFE_PROTECTION: + strncat(buff, "ring of life protection", ITEMNAME_SIZE ); + break; + case RING_PROTECTION_FROM_MAGIC: + strncat(buff, "ring of protection from magic", ITEMNAME_SIZE ); + break; + case RING_FIRE: + strncat(buff, "ring of fire", ITEMNAME_SIZE ); + break; + case RING_ICE: + strncat(buff, "ring of ice", ITEMNAME_SIZE ); + break; + case RING_TELEPORT_CONTROL: + strncat(buff, "ring of teleport control", ITEMNAME_SIZE ); + break; + case AMU_RAGE: + strncat(buff, "amulet of rage", ITEMNAME_SIZE ); + break; + case AMU_RESIST_SLOW: + strncat(buff, "amulet of resist slowing", ITEMNAME_SIZE ); + break; + case AMU_CLARITY: + strncat(buff, "amulet of clarity", ITEMNAME_SIZE ); + break; + case AMU_WARDING: + strncat(buff, "amulet of warding", ITEMNAME_SIZE ); + break; + case AMU_RESIST_CORROSION: + strncat(buff, "amulet of resist corrosion", ITEMNAME_SIZE ); + break; + case AMU_THE_GOURMAND: + strncat(buff, "amulet of the gourmand", ITEMNAME_SIZE ); + break; + case AMU_CONSERVATION: + strncat(buff, "amulet of conservation", ITEMNAME_SIZE ); + break; + case AMU_CONTROLLED_FLIGHT: + strncat(buff, "amulet of controlled flight", ITEMNAME_SIZE ); + break; + case AMU_INACCURACY: + strncat(buff, "amulet of inaccuracy", ITEMNAME_SIZE ); + break; + case AMU_RESIST_MUTATION: + strncat(buff, "amulet of resist mutation", ITEMNAME_SIZE ); + break; + } + /* ? of imputed learning - 100% exp from tames/summoned kills */ + break; + } + + if (item_typ < AMU_RAGE) // rings + { + if (is_random_artefact( item )) + { + strncat(buff, randart_ring_name(item), ITEMNAME_SIZE); + break; + } + + switch (item.special / 13) // secondary characteristic of ring + { + case 1: + strncat(buff, "encrusted ", ITEMNAME_SIZE ); + break; + case 2: + strncat(buff, "glowing ", ITEMNAME_SIZE ); + break; + case 3: + strncat(buff, "tubular ", ITEMNAME_SIZE ); + break; + case 4: + strncat(buff, "runed ", ITEMNAME_SIZE ); + break; + case 5: + strncat(buff, "blackened ", ITEMNAME_SIZE ); + break; + case 6: + strncat(buff, "scratched ", ITEMNAME_SIZE ); + break; + case 7: + strncat(buff, "small ", ITEMNAME_SIZE ); + break; + case 8: + strncat(buff, "large ", ITEMNAME_SIZE ); + break; + case 9: + strncat(buff, "twisted ", ITEMNAME_SIZE ); + break; + case 10: + strncat(buff, "shiny ", ITEMNAME_SIZE ); + break; + case 11: + strncat(buff, "notched ", ITEMNAME_SIZE ); + break; + case 12: + strncat(buff, "knobbly ", ITEMNAME_SIZE ); + break; + } + + switch (item.special % 13) + { + case 0: + strncat(buff, "wooden ring", ITEMNAME_SIZE ); + break; + case 1: + strncat(buff, "silver ring", ITEMNAME_SIZE ); + break; + case 2: + strncat(buff, "golden ring", ITEMNAME_SIZE ); + break; + case 3: + strncat(buff, "iron ring", ITEMNAME_SIZE ); + break; + case 4: + strncat(buff, "steel ring", ITEMNAME_SIZE ); + break; + case 5: + strncat(buff, "bronze ring", ITEMNAME_SIZE ); + break; + case 6: + strncat(buff, "brass ring", ITEMNAME_SIZE ); + break; + case 7: + strncat(buff, "copper ring", ITEMNAME_SIZE ); + break; + case 8: + strncat(buff, "granite ring", ITEMNAME_SIZE ); + break; + case 9: + strncat(buff, "ivory ring", ITEMNAME_SIZE ); + break; + case 10: + strncat(buff, "bone ring", ITEMNAME_SIZE ); + break; + case 11: + strncat(buff, "marble ring", ITEMNAME_SIZE ); + break; + case 12: + strncat(buff, "jade ring", ITEMNAME_SIZE ); + break; + case 13: + strncat(buff, "glass ring", ITEMNAME_SIZE ); + break; + } + } // end of rings + else // ie is an amulet + { + if (is_random_artefact( item )) + { + strncat(buff, randart_ring_name(item), ITEMNAME_SIZE); + break; + } + + if (item.special > 13) + { + switch (item.special / 13) // secondary characteristic of amulet + { + case 0: + strncat(buff, "dented ", ITEMNAME_SIZE ); + break; + case 1: + strncat(buff, "square ", ITEMNAME_SIZE ); + break; + case 2: + strncat(buff, "thick ", ITEMNAME_SIZE ); + break; + case 3: + strncat(buff, "thin ", ITEMNAME_SIZE ); + break; + case 4: + strncat(buff, "runed ", ITEMNAME_SIZE ); + break; + case 5: + strncat(buff, "blackened ", ITEMNAME_SIZE ); + break; + case 6: + strncat(buff, "glowing ", ITEMNAME_SIZE ); + break; + case 7: + strncat(buff, "small ", ITEMNAME_SIZE ); + break; + case 8: + strncat(buff, "large ", ITEMNAME_SIZE ); + break; + case 9: + strncat(buff, "twisted ", ITEMNAME_SIZE ); + break; + case 10: + strncat(buff, "tiny ", ITEMNAME_SIZE ); + break; + case 11: + strncat(buff, "triangular ", ITEMNAME_SIZE ); + break; + case 12: + strncat(buff, "lumpy ", ITEMNAME_SIZE ); + break; + } + } + + switch (item.special % 13) + { + case 0: + strncat(buff, "zirconium amulet", ITEMNAME_SIZE ); + break; + case 1: + strncat(buff, "sapphire amulet", ITEMNAME_SIZE ); + break; + case 2: + strncat(buff, "golden amulet", ITEMNAME_SIZE ); + break; + case 3: + strncat(buff, "emerald amulet", ITEMNAME_SIZE ); + break; + case 4: + strncat(buff, "garnet amulet", ITEMNAME_SIZE ); + break; + case 5: + strncat(buff, "bronze amulet", ITEMNAME_SIZE ); + break; + case 6: + strncat(buff, "brass amulet", ITEMNAME_SIZE ); + break; + case 7: + strncat(buff, "copper amulet", ITEMNAME_SIZE ); + break; + case 8: + strncat(buff, "ruby amulet", ITEMNAME_SIZE ); + break; + case 9: + strncat(buff, "ivory amulet", ITEMNAME_SIZE ); + break; + case 10: + strncat(buff, "bone amulet", ITEMNAME_SIZE ); + break; + case 11: + strncat(buff, "platinum amulet", ITEMNAME_SIZE ); + break; + case 12: + strncat(buff, "jade amulet", ITEMNAME_SIZE ); + break; + case 13: + strncat(buff, "plastic amulet", ITEMNAME_SIZE ); + break; + } + } // end of amulets + break; + + // compacted 15 Apr 2000 {dlb}: + case OBJ_MISCELLANY: + switch (item_typ) + { + case MISC_RUNE_OF_ZOT: + strncat( buff, (it_plus == RUNE_DIS) ? "iron" : + (it_plus == RUNE_GEHENNA) ? "obsidian" : + (it_plus == RUNE_COCYTUS) ? "icy" : + (it_plus == RUNE_TARTARUS) ? "bone" : + (it_plus == RUNE_SLIME_PITS) ? "slimy" : + (it_plus == RUNE_VAULTS) ? "silver" : + (it_plus == RUNE_SNAKE_PIT) ? "serpentine" : + (it_plus == RUNE_ELVEN_HALLS) ? "elven" : + (it_plus == RUNE_TOMB) ? "golden" : + (it_plus == RUNE_SWAMP) ? "decaying" : + + // pandemonium and abyss runes: + (it_plus == RUNE_DEMONIC) ? "demonic" : + (it_plus == RUNE_ABYSSAL) ? "abyssal" : + + // special pandemonium runes: + (it_plus == RUNE_MNOLEG) ? "glowing" : + (it_plus == RUNE_LOM_LOBON) ? "magical" : + (it_plus == RUNE_CEREBOV) ? "fiery" : + (it_plus == RUNE_GLOORX_VLOQ) ? "dark" + : "buggy", + ITEMNAME_SIZE); + + strncat(buff, " ", ITEMNAME_SIZE ); + strncat(buff, "rune", ITEMNAME_SIZE ); + + if (it_quant > 1) + strncat(buff, "s", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of Zot", ITEMNAME_SIZE ); + break; + + case MISC_DECK_OF_POWER: + case MISC_DECK_OF_SUMMONINGS: + case MISC_DECK_OF_TRICKS: + case MISC_DECK_OF_WONDERS: + strncat(buff, "deck of ", ITEMNAME_SIZE ); + strncat(buff, !item_ident( item, ISFLAG_KNOW_TYPE ) ? "cards" : + (item_typ == MISC_DECK_OF_WONDERS) ? "wonders" : + (item_typ == MISC_DECK_OF_SUMMONINGS) ? "summonings" : + (item_typ == MISC_DECK_OF_TRICKS) ? "tricks" : + (item_typ == MISC_DECK_OF_POWER) ? "power" + : "bugginess", + ITEMNAME_SIZE); + break; + + case MISC_CRYSTAL_BALL_OF_ENERGY: + case MISC_CRYSTAL_BALL_OF_FIXATION: + case MISC_CRYSTAL_BALL_OF_SEEING: + strncat(buff, "crystal ball", ITEMNAME_SIZE ); + if (item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, " of ", ITEMNAME_SIZE ); + strncat(buff, + (item_typ == MISC_CRYSTAL_BALL_OF_SEEING) ? "seeing" : + (item_typ == MISC_CRYSTAL_BALL_OF_ENERGY) ? "energy" : + (item_typ == MISC_CRYSTAL_BALL_OF_FIXATION) ? "fixation" + : "bugginess", + ITEMNAME_SIZE); + } + break; + + case MISC_BOX_OF_BEASTS: + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "box of beasts", ITEMNAME_SIZE ); + else + strncat(buff, "small ebony casket", ITEMNAME_SIZE ); + break; + + case MISC_EMPTY_EBONY_CASKET: + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "empty ebony casket", ITEMNAME_SIZE ); + else + strncat(buff, "small ebony casket", ITEMNAME_SIZE ); + break; + + case MISC_AIR_ELEMENTAL_FAN: + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "air elemental ", ITEMNAME_SIZE ); + strncat(buff, "fan", ITEMNAME_SIZE ); + break; + + case MISC_LAMP_OF_FIRE: + strncat(buff, "lamp", ITEMNAME_SIZE ); + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of fire", ITEMNAME_SIZE ); + break; + + case MISC_LANTERN_OF_SHADOWS: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "bone ", ITEMNAME_SIZE ); + strncat(buff, "lantern", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of shadows", ITEMNAME_SIZE ); + break; + + case MISC_HORN_OF_GERYON: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "silver ", ITEMNAME_SIZE ); + strncat(buff, "horn", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of Geryon", ITEMNAME_SIZE ); + break; + + case MISC_DISC_OF_STORMS: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "grey ", ITEMNAME_SIZE ); + strncat(buff, "disc", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of storms", ITEMNAME_SIZE ); + break; + + case MISC_STONE_OF_EARTH_ELEMENTALS: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, "nondescript ", ITEMNAME_SIZE ); + strncat(buff, "stone", ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + strncat(buff, " of earth elementals", ITEMNAME_SIZE ); + break; + + case MISC_BOTTLED_EFREET: + strncat(buff, (!item_ident( item, ISFLAG_KNOW_TYPE )) + ? "sealed bronze flask" : "bottled efreet", + ITEMNAME_SIZE ); + break; + + case MISC_PORTABLE_ALTAR_OF_NEMELEX: + strncat(buff, "portable altar of Nemelex", ITEMNAME_SIZE ); + break; + + default: + strncat(buff, "buggy miscellaneous item", ITEMNAME_SIZE ); + break; + } + break; + + // compacted 15 Apr 2000 {dlb}: + case OBJ_BOOKS: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + { + char primary = (item.special / 10); + char secondary = (item.special % 10); + + strncat(buff, (primary == 0) ? "" : + (primary == 1) ? "chunky " : + (primary == 2) ? "thick " : + (primary == 3) ? "thin " : + (primary == 4) ? "wide " : + (primary == 5) ? "glowing " : + (primary == 6) ? "dog-eared " : + (primary == 7) ? "oblong " : + (primary == 8) ? "runed " : + + // these last three were single spaces {dlb} + (primary == 9) ? "" : + (primary == 10) ? "" : (primary == 11) ? "" : "buggily ", + ITEMNAME_SIZE); + + strncat(buff, (secondary == 0) ? "paperback " : + (secondary == 1) ? "hardcover " : + (secondary == 2) ? "leatherbound " : + (secondary == 3) ? "metal-bound " : + (secondary == 4) ? "papyrus " : + // these two were single spaces, too {dlb} + (secondary == 5) ? "" : + (secondary == 6) ? "" : "buggy ", ITEMNAME_SIZE); + + strncat(buff, "book", ITEMNAME_SIZE ); + } + else if (item_typ == BOOK_MANUAL) + { + strncat(buff, "manual of ", ITEMNAME_SIZE ); + strncat(buff, skill_name(it_plus), ITEMNAME_SIZE ); + } + else if (item_typ == BOOK_NECRONOMICON) + strncat(buff, "Necronomicon", ITEMNAME_SIZE ); + else if (item_typ == BOOK_DESTRUCTION) + strncat(buff, "tome of Destruction", ITEMNAME_SIZE ); + else if (item_typ == BOOK_YOUNG_POISONERS) + strncat(buff, "Young Poisoner's Handbook", ITEMNAME_SIZE ); + else if (item_typ == BOOK_BEASTS) + strncat(buff, "Monster Manual", ITEMNAME_SIZE ); + else + { + strncat(buff, "book of ", ITEMNAME_SIZE ); + strncat(buff, (item_typ == BOOK_MINOR_MAGIC_I + || item_typ == BOOK_MINOR_MAGIC_II + || item_typ == BOOK_MINOR_MAGIC_III) ? "Minor Magic" : + (item_typ == BOOK_CONJURATIONS_I + || item_typ == BOOK_CONJURATIONS_II) ? "Conjurations" : + (item_typ == BOOK_FLAMES) ? "Flames" : + (item_typ == BOOK_FROST) ? "Frost" : + (item_typ == BOOK_SUMMONINGS) ? "Summonings" : + (item_typ == BOOK_FIRE) ? "Fire" : + (item_typ == BOOK_ICE) ? "Ice" : + (item_typ == BOOK_SURVEYANCES) ? "Surveyances" : + (item_typ == BOOK_SPATIAL_TRANSLOCATIONS) ? "Spatial Translocations" : + (item_typ == BOOK_ENCHANTMENTS) ? "Enchantments" : + (item_typ == BOOK_TEMPESTS) ? "the Tempests" : + (item_typ == BOOK_DEATH) ? "Death" : + (item_typ == BOOK_HINDERANCE) ? "Hinderance" : + (item_typ == BOOK_CHANGES) ? "Changes" : + (item_typ == BOOK_TRANSFIGURATIONS) ? "Transfigurations" : + (item_typ == BOOK_PRACTICAL_MAGIC) ? "Practical Magic" : + (item_typ == BOOK_WAR_CHANTS) ? "War Chants" : + (item_typ == BOOK_CLOUDS) ? "Clouds" : + (item_typ == BOOK_HEALING) ? "Healing" : + (item_typ == BOOK_NECROMANCY) ? "Necromancy" : + (item_typ == BOOK_CALLINGS) ? "Callings" : + (item_typ == BOOK_CHARMS) ? "Charms" : + (item_typ == BOOK_DEMONOLOGY) ? "Demonology" : + (item_typ == BOOK_AIR) ? "Air" : + (item_typ == BOOK_SKY) ? "the Sky" : + (item_typ == BOOK_DIVINATIONS) ? "Divinations" : + (item_typ == BOOK_WARP) ? "the Warp" : + (item_typ == BOOK_ENVENOMATIONS) ? "Envenomations" : + (item_typ == BOOK_ANNIHILATIONS) ? "Annihilations" : + (item_typ == BOOK_UNLIFE) ? "Unlife" : + (item_typ == BOOK_CONTROL) ? "Control" : + (item_typ == BOOK_MUTATIONS) ? "Morphology" : + (item_typ == BOOK_TUKIMA) ? "Tukima" : + (item_typ == BOOK_GEOMANCY) ? "Geomancy" : + (item_typ == BOOK_EARTH) ? "the Earth" : + (item_typ == BOOK_WIZARDRY) ? "Wizardry" : + (item_typ == BOOK_POWER) ? "Power" : + (item_typ == BOOK_CANTRIPS) ? "Cantrips" : + (item_typ == BOOK_PARTY_TRICKS) ? "Party Tricks" : + (item_typ == BOOK_STALKING) ? "Stalking" + : "Bugginess", + ITEMNAME_SIZE ); + } + break; + + // compacted 15 Apr 2000 {dlb}: + case OBJ_STAVES: + if (!item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, (item.special == 0) ? "curved" : + (item.special == 1) ? "glowing" : + (item.special == 2) ? "thick" : + (item.special == 3) ? "thin" : + (item.special == 4) ? "long" : + (item.special == 5) ? "twisted" : + (item.special == 6) ? "jeweled" : + (item.special == 7) ? "runed" : + (item.special == 8) ? "smoking" : + (item.special == 9) ? "gnarled" : // was "" {dlb} + (item.special == 10) ? "" : + (item.special == 11) ? "" : + (item.special == 12) ? "" : + (item.special == 13) ? "" : + (item.special == 14) ? "" : + (item.special == 15) ? "" : + (item.special == 16) ? "" : + (item.special == 17) ? "" : + (item.special == 18) ? "" : + (item.special == 19) ? "" : + (item.special == 20) ? "" : + (item.special == 21) ? "" : + (item.special == 22) ? "" : + (item.special == 23) ? "" : + (item.special == 24) ? "" : + (item.special == 25) ? "" : + (item.special == 26) ? "" : + (item.special == 27) ? "" : + (item.special == 28) ? "" : + (item.special == 29) ? "" : "buggy", ITEMNAME_SIZE); + strncat(buff, " ", ITEMNAME_SIZE ); + } + + strncat( buff, (item_is_rod( item ) ? "rod" : "staff"), ITEMNAME_SIZE ); + + if (item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat(buff, " of ", ITEMNAME_SIZE ); + + strncat(buff, (item_typ == STAFF_WIZARDRY) ? "wizardry" : + (item_typ == STAFF_POWER) ? "power" : + (item_typ == STAFF_FIRE) ? "fire" : + (item_typ == STAFF_COLD) ? "cold" : + (item_typ == STAFF_POISON) ? "poison" : + (item_typ == STAFF_ENERGY) ? "energy" : + (item_typ == STAFF_DEATH) ? "death" : + (item_typ == STAFF_CONJURATION) ? "conjuration" : + (item_typ == STAFF_ENCHANTMENT) ? "enchantment" : + (item_typ == STAFF_SMITING) ? "smiting" : + (item_typ == STAFF_STRIKING) ? "striking" : + (item_typ == STAFF_WARDING) ? "warding" : + (item_typ == STAFF_DISCOVERY) ? "discovery" : + (item_typ == STAFF_DEMONOLOGY) ? "demonology" : + (item_typ == STAFF_AIR) ? "air" : + (item_typ == STAFF_EARTH) ? "earth" : + (item_typ == STAFF_SUMMONING + || item_typ == STAFF_SPELL_SUMMONING) ? "summoning" : + (item_typ == STAFF_DESTRUCTION_I + || item_typ == STAFF_DESTRUCTION_II + || item_typ == STAFF_DESTRUCTION_III + || item_typ == STAFF_DESTRUCTION_IV) ? "destruction" : + (item_typ == STAFF_CHANNELING) ? "channeling" + : "bugginess", ITEMNAME_SIZE ); + } + + if (item_is_rod( item ) && item.sub_type != STAFF_STRIKING + && item_ident( item, ISFLAG_KNOW_TYPE )) + { + strncat( buff, " (", ITEMNAME_SIZE ); + itoa( item.plus / ROD_CHARGE_MULT, tmp_quant, 10 ); + strncat( buff, tmp_quant, ITEMNAME_SIZE ); + strncat( buff, "/", ITEMNAME_SIZE ); + itoa( item.plus2 / ROD_CHARGE_MULT, tmp_quant, 10 ); + strncat( buff, tmp_quant, ITEMNAME_SIZE ); + strncat( buff, ")", ITEMNAME_SIZE ); + } + + break; + + + // rearranged 15 Apr 2000 {dlb}: + case OBJ_ORBS: + strncpy( buff, "Orb of ", ITEMNAME_SIZE ); + strncat( buff, (item_typ == ORB_ZOT) ? "Zot" : +/* ****************************************************************** + (item_typ == 1) ? "Zug" : + (item_typ == 2) ? "Xob" : + (item_typ == 3) ? "Ix" : + (item_typ == 4) ? "Xug" : + (item_typ == 5) ? "Zob" : + (item_typ == 6) ? "Ik" : + (item_typ == 7) ? "Grolp" : + (item_typ == 8) ? "fo brO ehT" : + (item_typ == 9) ? "Plob" : + (item_typ == 10) ? "Zuggle-Glob" : + (item_typ == 11) ? "Zin" : + (item_typ == 12) ? "Qexigok" : + (item_typ == 13) ? "Bujuk" : + (item_typ == 14) ? "Uhen Tiquritu" : + (item_typ == 15) ? "Idohoxom Sovuf" : + (item_typ == 16) ? "Voc Vocilicoso" : + (item_typ == 17) ? "Chanuaxydiviha" : + (item_typ == 18) ? "Ihexodox" : + (item_typ == 19) ? "Rynok Pol" : + (item_typ == 20) ? "Nemelex" : + (item_typ == 21) ? "Sif Muna" : + (item_typ == 22) ? "Okawaru" : + (item_typ == 23) ? "Kikubaaqudgha" : +****************************************************************** */ + "Bugginess", ITEMNAME_SIZE ); // change back to "Zot" if source of problems cannot be found {dlb} + break; + + case OBJ_GOLD: + strncat(buff, "gold piece", ITEMNAME_SIZE ); + break; + + // still not implemented, yet: + case OBJ_GEMSTONES: + break; + + // rearranged 15 Apr 2000 {dlb}: + case OBJ_CORPSES: + if (item_typ == CORPSE_BODY && item.special < 100) + strncat(buff, "rotting ", ITEMNAME_SIZE ); + + moname( it_plus, true, DESC_PLAIN, tmp_buff ); + + strncat(buff, tmp_buff, ITEMNAME_SIZE ); + strncat(buff, " ", ITEMNAME_SIZE ); + strncat(buff, (item_typ == CORPSE_BODY) ? "corpse" : + (item_typ == CORPSE_SKELETON) ? "skeleton" : "corpse bug", + ITEMNAME_SIZE ); + break; + + default: + strncat(buff, "!", ITEMNAME_SIZE ); + } // end of switch? + + // Disambiguation + if (!terse && item_ident(item, ISFLAG_KNOW_TYPE)) + { +#define name_append(x) strncat(buff, x, ITEMNAME_SIZE) + switch (item_clas) + { + case OBJ_STAVES: + switch (item_typ) + { + case STAFF_DESTRUCTION_I: + name_append(" [fire]"); + break; + case STAFF_DESTRUCTION_II: + name_append(" [ice]"); + break; + case STAFF_DESTRUCTION_III: + name_append(" [iron,fireball,lightning]"); + break; + case STAFF_DESTRUCTION_IV: + name_append(" [inacc,magma,cold]"); + break; + } + break; + case OBJ_BOOKS: + switch (item_typ) + { + case BOOK_MINOR_MAGIC_I: + name_append(" [flame]"); + break; + case BOOK_MINOR_MAGIC_II: + name_append(" [frost]"); + break; + case BOOK_MINOR_MAGIC_III: + name_append(" [summ]"); + break; + case BOOK_CONJURATIONS_I: + name_append(" [fire]"); + break; + case BOOK_CONJURATIONS_II: + name_append(" [ice]"); + break; + } + } +#undef name_append + } + + // debugging output -- oops, I probably block it above ... dang! {dlb} + if (strlen(buff) < 3) + { + char ugug[20]; + + strncat(buff, "bad item (cl:", ITEMNAME_SIZE ); + itoa(item_clas, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ",ty:", ITEMNAME_SIZE ); + itoa(item_typ, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ",pl:", ITEMNAME_SIZE ); + itoa(it_plus, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ",pl2:", ITEMNAME_SIZE ); + itoa(item_plus2, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ",sp:", ITEMNAME_SIZE ); + itoa(item.special, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ",qu:", ITEMNAME_SIZE ); + itoa(it_quant, ugug, 10); + strncat(buff, ugug, ITEMNAME_SIZE ); + strncat(buff, ")", ITEMNAME_SIZE ); + } + + // hackish {dlb} + if (it_quant > 1 + && item_clas != OBJ_MISSILES + && item_clas != OBJ_SCROLLS + && item_clas != OBJ_POTIONS + && item_clas != OBJ_MISCELLANY + && (item_clas != OBJ_FOOD || item_typ != FOOD_CHUNK)) + { + strncat(buff, "s", ITEMNAME_SIZE ); + } + + return 1; +} // end item_name_2() + +void save_id(char identy[4][50]) +{ + int x = 0, jx = 0; + + for (x = 0; x < 4; x++) + { + for (jx = 0; jx < 50; jx++) + { + identy[x][jx] = id[x][jx]; + } + } +} // end save_id() + +void clear_ids(void) +{ + + int i = 0, j = 0; + + for (i = 0; i < 4; i++) + { + for (j = 0; j < 50; j++) + { + id[i][j] = ID_UNKNOWN_TYPE; + } + } + +} // end clear_ids() + + +void set_ident_type( char cla, int ty, char setting, bool force ) +{ + // Don't allow overwriting of known type with tried unless forced. + if (!force + && setting == ID_TRIED_TYPE + && get_ident_type( cla, ty ) == ID_KNOWN_TYPE) + { + return; + } + + switch (cla) + { + case OBJ_WANDS: + id[ IDTYPE_WANDS ][ty] = setting; + break; + + case OBJ_SCROLLS: + id[ IDTYPE_SCROLLS ][ty] = setting; + break; + + case OBJ_JEWELLERY: + id[ IDTYPE_JEWELLERY ][ty] = setting; + break; + + case OBJ_POTIONS: + id[ IDTYPE_POTIONS ][ty] = setting; + break; + + default: + break; + } +} // end set_ident_type() + +char get_ident_type(char cla, int ty) +{ + switch (cla) + { + case OBJ_WANDS: + return id[ IDTYPE_WANDS ][ty]; + + case OBJ_SCROLLS: + return id[ IDTYPE_SCROLLS ][ty]; + + case OBJ_JEWELLERY: + return id[ IDTYPE_JEWELLERY ][ty]; + + case OBJ_POTIONS: + return id[ IDTYPE_POTIONS ][ty]; + + default: + return (ID_UNKNOWN_TYPE); + } +} // end get_ident_type() + +unsigned char check_item_knowledge(void) +{ + char st_pass[ITEMNAME_SIZE] = ""; + int i, j; + char lines = 0; + unsigned char anything = 0; + int ft = 0; + int max = 0; + int yps = 0; + int inv_count = 0; + unsigned char ki = 0; + + const int num_lines = get_number_of_lines(); + +#ifdef DOS_TERM + char buffer[2400]; + + gettext(35, 1, 80, 25, buffer); +#endif + +#ifdef DOS_TERM + window(35, 1, 80, 25); +#endif + + clrscr(); + + for (i = 0; i < 4; i++) + { + for (j = 0; j < 30; j++) + { + if (id[i][j] == ID_KNOWN_TYPE) + inv_count++; + } + } + + if (inv_count == 0) + { + cprintf("You don't recognise anything yet!"); + if (getch() == 0) + getch(); + goto putty; + } + + textcolor(BLUE); + cprintf(" You recognise:"); + textcolor(LIGHTGREY); + lines++; + + for (i = 0; i < 4; i++) + { + switch (i) + { + case IDTYPE_WANDS: + ft = OBJ_WANDS; + max = NUM_WANDS; + break; + case IDTYPE_SCROLLS: + ft = OBJ_SCROLLS; + max = NUM_SCROLLS; + break; + case IDTYPE_JEWELLERY: + ft = OBJ_JEWELLERY; + max = NUM_JEWELLERY; + break; + case IDTYPE_POTIONS: + ft = OBJ_POTIONS; + max = NUM_POTIONS; + break; + } + + for (j = 0; j < max; j++) + { + if (lines > num_lines - 2 && inv_count > 0) + { + gotoxy(1, num_lines); + cprintf("-more-"); + + ki = getch(); + + if (ki == ESCAPE) + { +#ifdef DOS_TERM + puttext(35, 1, 80, 25, buffer); +#endif + return ESCAPE; + } + if (ki >= 'A' && ki <= 'z') + { +#ifdef DOS_TERM + puttext(35, 1, 80, 25, buffer); +#endif + return ki; + } + + if (ki == 0) + ki = getch(); + + lines = 0; + clrscr(); + gotoxy(1, 1); + anything = 0; + } + + int ident_level = get_ident_type( ft, j ); + + if (ident_level == ID_KNOWN_TYPE) + { + anything++; + + if (lines > 0) + cprintf(EOL); + lines++; + cprintf(" "); + + yps = wherey(); + + // item_name now requires a "real" item, so we'll create a tmp + item_def tmp;// = { ft, j, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 }; + tmp.base_type = ft; + tmp.sub_type = j; + tmp.colour = 1; + + item_name( tmp, DESC_PLAIN, st_pass ); + + cprintf(st_pass); + + inv_count--; + + if (wherey() != yps) + lines++; + } + } // end of j loop + } + + if (anything > 0) + { + ki = getch(); + //ki = getch(); + //ki = anything; + + if (ki >= 'A' && ki <= 'z') + { +#ifdef DOS_TERM + puttext(35, 1, 80, 25, buffer); +#endif + return ki; + } + + if (ki == 0) + ki = getch(); +#ifdef DOS_TERM + puttext(35, 1, 80, 25, buffer); +#endif + return anything; + } + + putty: +#ifdef DOS_TERM + puttext(35, 1, 80, 25, buffer); +#endif + + return ki; +} // end check_item_knowledge() + + +// Used for: Pandemonium demonlords, shopkeepers, scrolls, random artefacts +int make_name( unsigned long seed, bool all_cap, char buff[ ITEMNAME_SIZE ] ) +{ + char name[ITEMNAME_SIZE]; + int numb[17]; + + int i = 0; + bool want_vowel = false; + bool has_space = false; + + for (i = 0; i < ITEMNAME_SIZE; i++) + name[i] = '\0'; + + const int var1 = (seed & 0xFF); + const int var2 = ((seed >> 8) & 0xFF); + const int var3 = ((seed >> 16) & 0xFF); + const int var4 = ((seed >> 24) & 0xFF); + + numb[0] = 373 * var1 + 409 * var2 + 281 * var3; + numb[1] = 163 * var4 + 277 * var2 + 317 * var3; + numb[2] = 257 * var1 + 179 * var4 + 83 * var3; + numb[3] = 61 * var1 + 229 * var2 + 241 * var4; + numb[4] = 79 * var1 + 263 * var2 + 149 * var3; + numb[5] = 233 * var4 + 383 * var2 + 311 * var3; + numb[6] = 199 * var1 + 211 * var4 + 103 * var3; + numb[7] = 139 * var1 + 109 * var2 + 349 * var4; + numb[8] = 43 * var1 + 389 * var2 + 359 * var3; + numb[9] = 367 * var4 + 101 * var2 + 251 * var3; + numb[10] = 293 * var1 + 59 * var4 + 151 * var3; + numb[11] = 331 * var1 + 107 * var2 + 307 * var4; + numb[12] = 73 * var1 + 157 * var2 + 347 * var3; + numb[13] = 379 * var4 + 353 * var2 + 227 * var3; + numb[14] = 181 * var1 + 173 * var4 + 193 * var3; + numb[15] = 131 * var1 + 167 * var2 + 53 * var4; + numb[16] = 313 * var1 + 127 * var2 + 401 * var3 + 337 * var4; + + int len = 3 + numb[0] % 5 + ((numb[1] % 5 == 0) ? numb[2] % 6 : 1); + + if (all_cap) + len += 6; + + int j = numb[3] % 17; + const int k = numb[4] % 17; + int count = 0; + + for (i = 0; i < len; i++) + { + j = (j + 1) % 17; + if (j == 0) + { + count++; + if (count > 9) + break; + } + + if (!has_space && i > 5 && i < len - 4 + && (numb[(k + 10 * j) % 17] % 5) != 3) + { + want_vowel = true; + name[i] = ' '; + } + else if (i > 0 + && (want_vowel + || (i > 1 + && is_random_name_vowel( name[i - 1] ) + && !is_random_name_vowel( name[i - 2] ) + && (numb[(k + 4 * j) % 17] % 5) <= 1 ))) + { + want_vowel = true; + name[i] = retvow( numb[(k + 7 * j) % 17] ); + + if (is_random_name_space( name[i] )) + { + if (i == 0) + { + want_vowel = false; + name[i] = retlet( numb[(k + 14 * j) % 17] ); + } + else if (len < 7 + || i <= 2 || i >= len - 3 + || is_random_name_space( name[i - 1] ) + || (i > 1 && is_random_name_space( name[i - 2] )) + || (i > 2 + && !is_random_name_vowel( name[i - 1] ) + && !is_random_name_vowel( name[i - 2] ))) + { + i--; + continue; + } + } + else if (i > 1 + && name[i] == name[i - 1] + && (name[i] == 'y' || name[i] == 'i' + || (numb[(k + 12 * j) % 17] % 5) <= 1)) + { + i--; + continue; + } + } + else + { + if ((len > 3 || i != 0) + && (numb[(k + 13 * j) % 17] % 7) <= 1 + && (i < len - 2 || (i > 0 && !is_random_name_space(name[i - 1])))) + { + const bool beg = ((i < 1) || is_random_name_space(name[i - 1])); + const bool end = (i >= len - 2); + + const int first = (beg ? 0 : (end ? 14 : 0)); + const int last = (beg ? 27 : (end ? 56 : 67)); + + const int num = last - first; + + i++; + + switch (numb[(k + 11 * j) % 17] % num + first) + { + // start, middle + case 0: strcat(name, "kl"); break; + case 1: strcat(name, "gr"); break; + case 2: strcat(name, "cl"); break; + case 3: strcat(name, "cr"); break; + case 4: strcat(name, "fr"); break; + case 5: strcat(name, "pr"); break; + case 6: strcat(name, "tr"); break; + case 7: strcat(name, "tw"); break; + case 8: strcat(name, "br"); break; + case 9: strcat(name, "pl"); break; + case 10: strcat(name, "bl"); break; + case 11: strcat(name, "str"); i++; len++; break; + case 12: strcat(name, "shr"); i++; len++; break; + case 13: strcat(name, "thr"); i++; len++; break; + // start, middle, end + case 14: strcat(name, "sm"); break; + case 15: strcat(name, "sh"); break; + case 16: strcat(name, "ch"); break; + case 17: strcat(name, "th"); break; + case 18: strcat(name, "ph"); break; + case 19: strcat(name, "pn"); break; + case 20: strcat(name, "kh"); break; + case 21: strcat(name, "gh"); break; + case 22: strcat(name, "mn"); break; + case 23: strcat(name, "ps"); break; + case 24: strcat(name, "st"); break; + case 25: strcat(name, "sk"); break; + case 26: strcat(name, "sch"); i++; len++; break; + // middle, end + case 27: strcat(name, "ts"); break; + case 28: strcat(name, "cs"); break; + case 29: strcat(name, "xt"); break; + case 30: strcat(name, "nt"); break; + case 31: strcat(name, "ll"); break; + case 32: strcat(name, "rr"); break; + case 33: strcat(name, "ss"); break; + case 34: strcat(name, "wk"); break; + case 35: strcat(name, "wn"); break; + case 36: strcat(name, "ng"); break; + case 37: strcat(name, "cw"); break; + case 38: strcat(name, "mp"); break; + case 39: strcat(name, "ck"); break; + case 40: strcat(name, "nk"); break; + case 41: strcat(name, "dd"); break; + case 42: strcat(name, "tt"); break; + case 43: strcat(name, "bb"); break; + case 44: strcat(name, "pp"); break; + case 45: strcat(name, "nn"); break; + case 46: strcat(name, "mm"); break; + case 47: strcat(name, "kk"); break; + case 48: strcat(name, "gg"); break; + case 49: strcat(name, "ff"); break; + case 50: strcat(name, "pt"); break; + case 51: strcat(name, "tz"); break; + case 52: strcat(name, "dgh"); i++; len++; break; + case 53: strcat(name, "rgh"); i++; len++; break; + case 54: strcat(name, "rph"); i++; len++; break; + case 55: strcat(name, "rch"); i++; len++; break; + // middle only + case 56: strcat(name, "cz"); break; + case 57: strcat(name, "xk"); break; + case 58: strcat(name, "zx"); break; + case 59: strcat(name, "xz"); break; + case 60: strcat(name, "cv"); break; + case 61: strcat(name, "vv"); break; + case 62: strcat(name, "nl"); break; + case 63: strcat(name, "rh"); break; + case 64: strcat(name, "dw"); break; + case 65: strcat(name, "nw"); break; + case 66: strcat(name, "khl"); i++; len++; break; + default: + i--; + break; + } + } + else + { + if (i == 0) + { + name[i] = 'a' + (numb[(k + 8 * j) % 17] % 26); + want_vowel = is_random_name_vowel( name[i] ); + } + else + { + name[i] = retlet( numb[(k + 3 * j) % 17] ); + } + } + } + + if (name[i] == '\0') + { + i--; + continue; + } + + if (want_vowel && !is_random_name_vowel( name[i] ) + || (!want_vowel && is_random_name_vowel( name[i] ))) + { + i--; + continue; + } + + if (is_random_name_space( name[i] )) + has_space = true; + + if (!is_random_name_vowel( name[i] )) + want_vowel = true; + else + want_vowel = false; + } + + // catch break and try to give a final letter + if (i > 0 + && !is_random_name_space( name[i - 1] ) + && name[i - 1] != 'y' + && is_random_name_vowel( name[i - 1] ) + && (count > 9 || (i < 8 && numb[16] % 3))) + { + name[i] = retlet( numb[j] ); + } + + len = strlen( name ); + + if (len) + { + for (i = len - 1; i > 0; i--) + { + if (!isspace( name[i] )) + break; + else + { + name[i] = '\0'; + len--; + } + } + } + + if (len >= 3) + strncpy( buff, name, ITEMNAME_SIZE ); + else + { + strncpy( buff, "plog", ITEMNAME_SIZE ); + len = 4; + } + + buff[ ITEMNAME_SIZE - 1 ] = '\0'; + + for (i = 0; i < len; i++) + { + if (all_cap || i == 0 || buff[i - 1] == ' ') + buff[i] = toupper( buff[i] ); + } + + return (len); +} // end make_name() + +bool is_random_name_space(char let) +{ + return (let == ' '); +} + +static bool is_random_name_vowel( char let ) +{ + return (let == 'a' || let == 'e' || let == 'i' || let == 'o' || let == 'u' + || let == 'y' || let == ' '); +} // end is_random_name_vowel() + +static char retvow( int sed ) +{ + static const char vowels[] = "aeiouaeiouaeiouy "; + return (vowels[ sed % (sizeof(vowels) - 1) ]); +} // end retvow() + +static char retlet( int sed ) +{ + static const char consonants[] = "bcdfghjklmnpqrstvwxzcdfghlmnrstlmnrst"; + return (consonants[ sed % (sizeof(consonants) - 1) ]); +} |