/*
* Extract a textual representation of an attribute
*/
-static cptr attr_to_text(byte a)
+static cptr attr_to_text(monster_race *r_ptr)
{
- switch (a)
- {
#ifdef JP000
-case TERM_DARK: return ("XXX¤¤");
-case TERM_WHITE: return ("Çò¤¤");
-case TERM_SLATE: return ("Àij¥¿§¤Î");
-case TERM_ORANGE: return ("¥ª¥ì¥ó¥¸¤Î");
-case TERM_RED: return ("ÀÖ¤¤");
-case TERM_GREEN: return ("ÎФÎ");
-case TERM_BLUE: return ("ÀĤ¤");
-case TERM_UMBER: return ("àèàῧ¤Î");
-case TERM_L_DARK: return ("³¥¿§¤Î");
-case TERM_L_WHITE: return ("ÌÀÀij¥¿§¤Î");
-case TERM_VIOLET: return ("»ç¤Î");
-case TERM_YELLOW: return ("²«¿§¤¤");
-case TERM_L_RED: return ("ÌÀ¤¤ÀÖ¤Î");
-case TERM_L_GREEN: return ("ÌÀ¤¤ÎФÎ");
-case TERM_L_BLUE: return ("ÌÀ¤¤ÀĤÎ");
-case TERM_L_UMBER: return ("ÌÀ¤¤àèàῧ¤Î");
+ if (r_ptr->flags1 & RF1_ATTR_CLEAR) return "Æ©ÌÀ¤Ê";
+ if (r_ptr->flags1 & RF1_ATTR_MULTI) return "Ëü¿§¤Î";
+ if (r_ptr->flags1 & RF1_ATTR_SEMIRAND) return "½à¥é¥ó¥À¥à¤Ê";
#else
- case TERM_DARK: return ("xxx");
- case TERM_WHITE: return ("White");
- case TERM_SLATE: return ("Slate");
- case TERM_ORANGE: return ("Orange");
- case TERM_RED: return ("Red");
- case TERM_GREEN: return ("Green");
- case TERM_BLUE: return ("Blue");
- case TERM_UMBER: return ("Umber");
- case TERM_L_DARK: return ("L.Dark");
- case TERM_L_WHITE: return ("L.Slate");
- case TERM_VIOLET: return ("Violet");
- case TERM_YELLOW: return ("Yellow");
- case TERM_L_RED: return ("L.Red");
- case TERM_L_GREEN: return ("L.Green");
- case TERM_L_BLUE: return ("L.Blue");
- case TERM_L_UMBER: return ("L.Umber");
+ if (r_ptr->flags1 & RF1_ATTR_CLEAR) return "Clear";
+ if (r_ptr->flags1 & RF1_ATTR_MULTI) return "Multi";
+ if (r_ptr->flags1 & RF1_ATTR_SEMIRAND) return "S.Rand";
#endif
+ switch (r_ptr->d_attr)
+ {
+#ifdef JP000
+ case TERM_DARK: return "XXX¤¤";
+ case TERM_WHITE: return "Çò¤¤";
+ case TERM_SLATE: return "Àij¥¿§¤Î";
+ case TERM_ORANGE: return "¥ª¥ì¥ó¥¸¤Î";
+ case TERM_RED: return "ÀÖ¤¤";
+ case TERM_GREEN: return "ÎФÎ";
+ case TERM_BLUE: return "ÀĤ¤";
+ case TERM_UMBER: return "àèàῧ¤Î";
+ case TERM_L_DARK: return "³¥¿§¤Î";
+ case TERM_L_WHITE: return "ÌÀÀij¥¿§¤Î";
+ case TERM_VIOLET: return "»ç¤Î";
+ case TERM_YELLOW: return "²«¿§¤¤";
+ case TERM_L_RED: return "ÌÀ¤¤ÀÖ¤Î";
+ case TERM_L_GREEN: return "ÌÀ¤¤ÎФÎ";
+ case TERM_L_BLUE: return "ÌÀ¤¤ÀĤÎ";
+ case TERM_L_UMBER: return "ÌÀ¤¤àèàῧ¤Î";
+#else
+ case TERM_DARK: return "xxx";
+ case TERM_WHITE: return "White";
+ case TERM_SLATE: return "Slate";
+ case TERM_ORANGE: return "Orange";
+ case TERM_RED: return "Red";
+ case TERM_GREEN: return "Green";
+ case TERM_BLUE: return "Blue";
+ case TERM_UMBER: return "Umber";
+ case TERM_L_DARK: return "L.Dark";
+ case TERM_L_WHITE: return "L.Slate";
+ case TERM_VIOLET: return "Violet";
+ case TERM_YELLOW: return "Yellow";
+ case TERM_L_RED: return "L.Red";
+ case TERM_L_GREEN: return "L.Green";
+ case TERM_L_BLUE: return "L.Blue";
+ case TERM_L_UMBER: return "L.Umber";
+#endif
}
/* Oops */
#ifdef JP000
-return ("ÊѤÊ");
+ return "ÊѤÊ";
#else
- return ("Icky");
+ return "Icky";
#endif
-
}
static grouper group_item[] =
{
#ifdef JP
-{ TV_SHOT, "¼Í·âʪ" },
+ { TV_SHOT, "¼Í·âʪ" },
#else
{ TV_SHOT, "Ammo" },
#endif
{ TV_BOLT, NULL },
#ifdef JP
-{ TV_BOW, "µÝ" },
+ { TV_BOW, "µÝ" },
#else
{ TV_BOW, "Bows" },
#endif
-
#ifdef JP
-{ TV_SWORD, "Éð´ï" },
+ { TV_DIGGING, "Éð´ï" },
#else
- { TV_SWORD, "Weapons" },
+ { TV_DIGGING, "Weapons" },
#endif
{ TV_POLEARM, NULL },
{ TV_HAFTED, NULL },
- { TV_DIGGING, NULL },
+ { TV_SWORD, NULL },
#ifdef JP
-{ TV_SOFT_ARMOR, "Ëɶñ¡ÊÂΡË" },
+ { TV_SOFT_ARMOR, "Ëɶñ (ÂÎ)" },
#else
{ TV_SOFT_ARMOR, "Armour (Body)" },
#endif
{ TV_DRAG_ARMOR, NULL },
#ifdef JP
-{ TV_CLOAK, "Ëɶñ¡Ê¤½¤Î¾¡Ë" },
+ { TV_BOOTS, "Ëɶñ (¤½¤Î¾)" },
#else
- { TV_CLOAK, "Armour (Misc)" },
+ { TV_BOOTS, "Armour (Misc)" },
#endif
- { TV_SHIELD, NULL },
+ { TV_GLOVES, NULL },
{ TV_HELM, NULL },
{ TV_CROWN, NULL },
- { TV_GLOVES, NULL },
- { TV_BOOTS, NULL },
+ { TV_SHIELD, NULL },
+ { TV_CLOAK, NULL },
#ifdef JP
-{ TV_AMULET, "¥¢¥ß¥å¥ì¥Ã¥È" },
-{ TV_RING, "»ØÎØ" },
+ { TV_LITE, "¸÷¸»" },
+ { TV_AMULET, "¥¢¥ß¥å¥ì¥Ã¥È" },
+ { TV_RING, "»ØÎØ" },
#else
+ { TV_LITE, "Light Sources" },
{ TV_AMULET, "Amulets" },
{ TV_RING, "Rings" },
#endif
-
#ifdef JP
-{ TV_SCROLL, "´¬Êª" },
-{ TV_POTION, "Ìô" },
-{ TV_FOOD, "¿©ÎÁ" },
+ { TV_STAFF, "¾ó" },
+ { TV_WAND, "ËâË¡ËÀ" },
+ { TV_ROD, "¥í¥Ã¥É" },
#else
- { TV_SCROLL, "Scrolls" },
- { TV_POTION, "Potions" },
- { TV_FOOD, "Food" },
+ { TV_STAFF, "Staffs" },
+ { TV_WAND, "Wands" },
+ { TV_ROD, "Rods" },
#endif
-
#ifdef JP
-{ TV_ROD, "¥í¥Ã¥É" },
-{ TV_WAND, "ËâË¡ËÀ" },
-{ TV_STAFF, "¾ó" },
+ { TV_SCROLL, "´¬Êª" },
+ { TV_POTION, "Ìô" },
+ { TV_FOOD, "¿©ÎÁ" },
#else
- { TV_ROD, "Rods" },
- { TV_WAND, "Wands" },
- { TV_STAFF, "Staffs" },
+ { TV_SCROLL, "Scrolls" },
+ { TV_POTION, "Potions" },
+ { TV_FOOD, "Food" },
#endif
-
#ifdef JP
-{ TV_LIFE_BOOK, "ËâË¡½ñ¡ÊÀ¸Ì¿¡Ë" },
-{ TV_SORCERY_BOOK, "ËâË¡½ñ¡ÊÀç½Ñ¡Ë" },
-{ TV_NATURE_BOOK, "ËâË¡½ñ¡Ê¼«Á³¡Ë" },
-{ TV_CHAOS_BOOK, "ËâË¡½ñ¡Ê¥«¥ª¥¹¡Ë" },
-{ TV_DEATH_BOOK, "ËâË¡½ñ¡Ê°Å¹õ¡Ë" },
-{ TV_TRUMP_BOOK, "ËâË¡½ñ¡Ê¥È¥é¥ó¥×¡Ë" },
-{ TV_ARCANE_BOOK, "ËâË¡½ñ¡ÊÈë½Ñ¡Ë" },
-{ TV_ENCHANT_BOOK, "ËâË¡½ñ¡Ê¾¢¡Ë" },
-{ TV_DAEMON_BOOK, "ËâË¡½ñ¡Ê°Ëâ¡Ë" },
-{ TV_CRUSADE_BOOK, "ËâË¡½ñ¡ÊÇ˼١Ë" },
-{ TV_MUSIC_BOOK, "²Î½¸" },
-{ TV_HISSATSU_BOOK, "Éð·Ý¤Î½ñ" },
+ { TV_LIFE_BOOK, "ËâË¡½ñ (À¸Ì¿)" },
+ { TV_SORCERY_BOOK, "ËâË¡½ñ (Àç½Ñ)" },
+ { TV_NATURE_BOOK, "ËâË¡½ñ (¼«Á³)" },
+ { TV_CHAOS_BOOK, "ËâË¡½ñ (¥«¥ª¥¹)" },
+ { TV_DEATH_BOOK, "ËâË¡½ñ (°Å¹õ)" },
+ { TV_TRUMP_BOOK, "ËâË¡½ñ (¥È¥é¥ó¥×)" },
+ { TV_ARCANE_BOOK, "ËâË¡½ñ (Èë½Ñ)" },
+ { TV_CRAFT_BOOK, "ËâË¡½ñ (¾¢)" },
+ { TV_DAEMON_BOOK, "ËâË¡½ñ (°Ëâ)" },
+ { TV_CRUSADE_BOOK, "ËâË¡½ñ (Ç˼Ù)" },
+ { TV_MUSIC_BOOK, "²Î½¸" },
+ { TV_HISSATSU_BOOK, "Éð·Ý¤Î½ñ" },
#else
{ TV_LIFE_BOOK, "Books (Life)" },
{ TV_SORCERY_BOOK, "Books (Sorcery)" },
{ TV_DEATH_BOOK, "Books (Death)" },
{ TV_TRUMP_BOOK, "Books (Trump)" },
{ TV_ARCANE_BOOK, "Books (Arcane)" },
- { TV_ENCHANT_BOOK, "Books (Craft)" },
+ { TV_CRAFT_BOOK, "Books (Craft)" },
{ TV_DAEMON_BOOK, "Books (Daemon)" },
- { TV_CRUSADE_BOOK, "Books (Crusade)" },
+ { TV_CRUSADE_BOOK, "Books (Crusade)" },
{ TV_MUSIC_BOOK, "Song Books" },
{ TV_HISSATSU_BOOK, "Books (Kendo)" },
#endif
#ifdef JP
-{ TV_PARCHEMENT, "ÍÓÈé»æ" },
+ { TV_WHISTLE, "ū" },
+ { TV_CAPTURE, "¥¥ã¥×¥Á¥ã¡¼¡¦¥Ü¡¼¥ë" },
+ { TV_CARD, "¥¨¥¯¥¹¥×¥ì¥¹¥«¡¼¥É" },
#else
-{ TV_PARCHEMENT, "Parchement" },
+ { TV_WHISTLE, "Whistle" },
+ { TV_CAPTURE, "Capture Ball" },
+ { TV_CARD, "Express Card" },
#endif
#ifdef JP
-{ TV_CHEST, "Ȣ" },
+ { TV_CHEST, "Ȣ" },
#else
{ TV_CHEST, "Chests" },
#endif
#ifdef JP
-{ TV_CAPTURE, "¥¥ã¥×¥Á¥ã¡¼¡¦¥Ü¡¼¥ë" },
-#else
- { TV_CAPTURE, "Capture Ball" },
-#endif
-
-#ifdef JP
-{ TV_CARD, "¥¨¥¯¥¹¥×¥ì¥¹¥«¡¼¥É" },
+ { TV_FIGURINE, "¿Í·Á" },
+ { TV_STATUE, "Áü" },
+ { TV_CORPSE, "»àÂÎ" },
#else
- { TV_CARD, "Express Card" },
-#endif
-
{ TV_FIGURINE, "Magical Figurines" },
{ TV_STATUE, "Statues" },
{ TV_CORPSE, "Corpses" },
-
-#ifdef JP
-{ TV_WHISTLE, "ū" },
-#else
- { TV_WHISTLE, "Whistle" },
#endif
#ifdef JP
-{ TV_SPIKE, "¤¯¤µ¤Ó" },
+ { TV_SKELETON, "¤½¤Î¾" },
#else
- { TV_SPIKE, "Spike" },
+ { TV_SKELETON, "Misc" },
#endif
- { TV_LITE, NULL },
- { TV_FLASK, NULL },
- { TV_JUNK, NULL },
{ TV_BOTTLE, NULL },
- { TV_SKELETON, NULL },
+ { TV_JUNK, NULL },
+ { TV_SPIKE, NULL },
+ { TV_FLASK, NULL },
+ { TV_PARCHMENT, NULL },
{ 0, "" }
};
/* Level */
- (*lev) = get_object_level(q_ptr);
+ (*lev) = k_info[q_ptr->k_idx].level;
/* Value */
(*val) = object_value(q_ptr);
/* Description (too brief) */
- object_desc_store(buf, q_ptr, FALSE, 0);
+ object_desc(buf, q_ptr, (OD_NAME_ONLY | OD_STORE));
/* Misc info */
*/
static void spoil_obj_desc(cptr fname)
{
- int i, k, s, t, n = 0;
+ int i, k, s, t, n = 0, group_start = 0;
u16b who[200];
/* Write out the group title */
if (group_item[i].name)
{
- /* Hack -- bubble-sort by cost and then level */
- for (s = 0; s < n - 1; s++)
+ if (n)
{
- for (t = 0; t < n - 1; t++)
+ /* Hack -- bubble-sort by cost and then level */
+ for (s = 0; s < n - 1; s++)
{
- int i1 = t;
- int i2 = t + 1;
+ for (t = 0; t < n - 1; t++)
+ {
+ int i1 = t;
+ int i2 = t + 1;
- int e1;
- int e2;
+ int e1;
+ int e2;
- s32b t1;
- s32b t2;
+ s32b t1;
+ s32b t2;
- kind_info(NULL, NULL, NULL, &e1, &t1, who[i1]);
- kind_info(NULL, NULL, NULL, &e2, &t2, who[i2]);
+ kind_info(NULL, NULL, NULL, &e1, &t1, who[i1]);
+ kind_info(NULL, NULL, NULL, &e2, &t2, who[i2]);
- if ((t1 > t2) || ((t1 == t2) && (e1 > e2)))
- {
- int tmp = who[i1];
- who[i1] = who[i2];
- who[i2] = tmp;
+ if ((t1 > t2) || ((t1 == t2) && (e1 > e2)))
+ {
+ int tmp = who[i1];
+ who[i1] = who[i2];
+ who[i2] = tmp;
+ }
}
}
- }
- /* Spoil each item */
- for (s = 0; s < n; s++)
- {
- int e;
- s32b v;
+ fprintf(fff, "\n\n%s\n\n", group_item[group_start].name);
- /* Describe the kind */
- kind_info(buf, dam, wgt, &e, &v, who[s]);
+ /* Spoil each item */
+ for (s = 0; s < n; s++)
+ {
+ int e;
+ s32b v;
- /* Dump it */
- fprintf(fff, " %-45s%8s%7s%5d%9ld\n",
- buf, dam, wgt, e, (long)(v));
- }
+ /* Describe the kind */
+ kind_info(buf, dam, wgt, &e, &v, who[s]);
- /* Start a new set */
- n = 0;
+ /* Dump it */
+ fprintf(fff, " %-45s%8s%7s%5d%9ld\n",
+ buf, dam, wgt, e, (long)(v));
+ }
+
+ /* Start a new set */
+ n = 0;
+ }
/* Notice the end */
if (!group_item[i].tval) break;
/* Start a new set */
- fprintf(fff, "\n\n%s\n\n", group_item[i].name);
+ group_start = i;
}
/* Acquire legal item types */
{ TR_SH_COLD, "Î䵤¥ª¡¼¥é" },
{ TR_NO_TELE, "È¿¥Æ¥ì¥Ý¡¼¥È" },
{ TR_NO_MAGIC, "È¿ËâË¡" },
- { TR_FEATHER, "ÉâÍ·" },
+ { TR_LEVITATION, "ÉâÍ·" },
{ TR_SEE_INVIS, "²Ä»ëÆ©ÌÀ" },
{ TR_TELEPATHY, "¥Æ¥ì¥Ñ¥·¡¼" },
{ TR_ESP_ANIMAL, "ưʪ´¶ÃÎ" },
{ TR_SH_COLD, "Coldly Aura" },
{ TR_NO_TELE, "Prevent Teleportation" },
{ TR_NO_MAGIC, "Anti-Magic" },
- { TR_FEATHER, "Levitation" },
+ { TR_LEVITATION, "Levitation" },
{ TR_SEE_INVIS, "See Invisible" },
{ TR_TELEPATHY, "ESP" },
{ TR_SLOW_DIGEST, "Slow Digestion" },
static void analyze_general(object_type *o_ptr, char *desc_ptr)
{
/* Get a "useful" description of the object */
- object_desc_store(desc_ptr, o_ptr, TRUE, 1);
+ object_desc(desc_ptr, o_ptr, (OD_NAME_AND_ENCHANT | OD_STORE));
}
/*
* Artifact lights -- large radius light.
*/
- if ((o_ptr->tval == TV_LITE) && artifact_p(o_ptr))
+ if ((o_ptr->tval == TV_LITE) && object_is_fixed_artifact(o_ptr))
{
#ifdef JP
*misc_list++ = "±Êµ×¸÷¸»(Ⱦ·Â3)";
* being "lightly cursed".
*/
-/* if (cursed_p(o_ptr)) */
+/* if (object_is_cursed(o_ptr)) */
{
if (have_flag(flgs, TR_TY_CURSE))
{
sprintf(exp, "%ld", (long)(r_ptr->mexp));
/* Hack -- use visual instead */
- sprintf(exp, "%s '%c'", attr_to_text(r_ptr->d_attr), r_ptr->d_char);
+ sprintf(exp, "%s '%c'", attr_to_text(r_ptr), r_ptr->d_char);
/* Dump the info */
fprintf(fff, "%-42.42s%4s%4s%4s%7s%5s %11.11s\n",
/* Line buffer */
static char roff_buf[256];
+ /* Delay buffer */
+ static char roff_waiting_buf[256];
+
#ifdef JP
- char iskanji2=0;
+ bool iskanji_flag = FALSE;
#endif
/* Current pointer into line roff_buf */
static char *roff_p = roff_buf;
/* Last space saved into roff_buf */
static char *roff_s = NULL;
+ /* Mega-Hack -- Delayed output */
+ static bool waiting_output = FALSE;
+
/* Special handling for "new sequence" */
if (!str)
{
+ if (waiting_output)
+ {
+ fputs(roff_waiting_buf, fff);
+ waiting_output = FALSE;
+ }
+
if (roff_p != roff_buf) roff_p--;
while (*roff_p == ' ' && roff_p != roff_buf) roff_p--;
+
if (roff_p == roff_buf) fprintf(fff, "\n");
else
{
*(roff_p + 1) = '\0';
fprintf(fff, "%s\n\n", roff_buf);
}
+
roff_p = roff_buf;
roff_s = NULL;
roff_buf[0] = '\0';
{
#ifdef JP
char cbak;
- int k_flag = iskanji((unsigned char)(*str));
+ bool k_flag = iskanji((unsigned char)(*str));
#endif
char ch = *str;
- int wrap = (ch == '\n');
+ bool wrap = (ch == '\n');
#ifdef JP
- if (!isprint(ch) && !k_flag && !iskanji2) ch = ' ';
- if(k_flag && !iskanji2)iskanji2=1;else iskanji2=0;
+ if (!isprint(ch) && !k_flag && !iskanji_flag) ch = ' ';
+ iskanji_flag = k_flag && !iskanji_flag;
#else
if (!isprint(ch)) ch = ' ';
#endif
+ if (waiting_output)
+ {
+ fputs(roff_waiting_buf, fff);
+ if (!wrap) fputc('\n', fff);
+ waiting_output = FALSE;
+ }
+
+ if (!wrap)
+ {
+#ifdef JP
+ if (roff_p >= roff_buf + (k_flag ? 74 : 75)) wrap = TRUE;
+ else if ((ch == ' ') && (roff_p >= roff_buf + (k_flag ? 72 : 73))) wrap = TRUE;
+#else
+ if (roff_p >= roff_buf + 75) wrap = TRUE;
+ else if ((ch == ' ') && (roff_p >= roff_buf + 73)) wrap = TRUE;
+#endif
+
+ if (wrap)
+ {
#ifdef JP
- if ( roff_p >= roff_buf+( (k_flag) ? 74 : 75) ) wrap=1;
- if ((ch == ' ') && (roff_p + 2 >= roff_buf + ((k_flag) ? 74 : 75))) wrap = 1;
+ bool k_flag_local;
+ bool iskanji_flag_local = FALSE;
+ cptr tail = str + (k_flag ? 2 : 1);
#else
- if (roff_p >= roff_buf + 75) wrap = 1;
- if ((ch == ' ') && (roff_p + 2 >= roff_buf + 75)) wrap = 1;
+ cptr tail = str + 1;
#endif
+ for (; *tail; tail++)
+ {
+ if (*tail == ' ') continue;
+
+#ifdef JP
+ k_flag_local = iskanji((unsigned char)(*tail));
+ if (isprint(*tail) || k_flag_local || iskanji_flag_local) break;
+ iskanji_flag_local = k_flag_local && !iskanji_flag_local;
+#else
+ if (isprint(*tail)) break;
+#endif
+ }
+
+ if (!*tail) waiting_output = TRUE;
+ }
+ }
/* Handle line-wrap */
if (wrap)
*roff_p = '\0';
r = roff_p;
#ifdef JP
- cbak=' ';
+ cbak = ' ';
#endif
if (roff_s && (ch != ' '))
{
#ifdef JP
- cbak=*roff_s;
+ cbak = *roff_s;
#endif
*roff_s = '\0';
r = roff_s + 1;
}
- fprintf(fff, "%s\n", roff_buf);
+ if (!waiting_output) fprintf(fff, "%s\n", roff_buf);
+ else strcpy(roff_waiting_buf, roff_buf);
roff_s = NULL;
roff_p = roff_buf;
#ifdef JP
- if(cbak != ' ') *roff_p++ = cbak;
+ if (cbak != ' ') *roff_p++ = cbak;
#endif
while (*r) *roff_p++ = *r++;
}
if ((roff_p > roff_buf) || (ch != ' '))
{
#ifdef JP
- if( !k_flag ){
- if (ch == ' ' || ch == '(' ) roff_s = roff_p;
- }
- else{
- if( iskanji2 &&
- strncmp(str, "¡£", 2) != 0 &&
- strncmp(str, "¡¢", 2) != 0 &&
- strncmp(str, "¥£", 2) != 0 &&
- strncmp(str, "¡¼", 2) != 0) roff_s = roff_p;
- }
+ if (!k_flag)
+ {
+ if ((ch == ' ') || (ch == '(')) roff_s = roff_p;
+ }
+ else
+ {
+ if (iskanji_flag &&
+ strncmp(str, "¡£", 2) != 0 &&
+ strncmp(str, "¡¢", 2) != 0 &&
+ strncmp(str, "¥£", 2) != 0 &&
+ strncmp(str, "¡¼", 2) != 0) roff_s = roff_p;
+ }
#else
if (ch == ' ') roff_s = roff_p;
#endif
flags1 = r_ptr->flags1;
/* Prefix */
+ /*
if (flags1 & (RF1_QUESTOR))
{
spoil_out("[Q] ");
}
- else if (flags1 & (RF1_UNIQUE))
+ else
+ */
+ if (flags1 & (RF1_UNIQUE))
{
spoil_out("[U] ");
}
spoil_out(buf);
/* Color */
- spoil_out(attr_to_text(r_ptr->d_attr));
+ spoil_out(attr_to_text(r_ptr));
/* Symbol --(-- */
sprintf(buf, " '%c')\n", r_ptr->d_char);
+#define MAX_EVOL_DEPTH 64
+
+
+/*
+ * Compare two int-type array like strncmp() and return TRUE if equals
+ */
+static bool int_n_cmp(int *a, int *b, int length)
+{
+ /* Null-string comparation is always TRUE */
+ if (!length) return TRUE;
+
+ do
+ {
+ if (*a != *(b++)) return FALSE;
+ if (!(*(a++))) break;
+ }
+ while (--length);
+
+ return TRUE;
+}
+
+
+/*
+ * Returns TRUE if an evolution tree is "partial tree"
+ */
+static bool is_partial_tree(int *tree, int *partial_tree)
+{
+ int pt_head = *(partial_tree++);
+ int pt_len = 0;
+
+ while (partial_tree[pt_len]) pt_len++;
+
+ while (*tree)
+ {
+ if (*(tree++) == pt_head)
+ {
+ if (int_n_cmp(tree, partial_tree, pt_len)) return TRUE;
+ }
+ }
+
+ return FALSE;
+}
+
+
+/*
+ * Sorting hook -- Comp function
+ */
+static bool ang_sort_comp_evol_tree(vptr u, vptr v, int a, int b)
+{
+ int **evol_tree = (int **)u;
+
+ int w1 = evol_tree[a][0];
+ int w2 = evol_tree[b][0];
+ monster_race *r1_ptr = &r_info[w1];
+ monster_race *r2_ptr = &r_info[w2];
+
+ /* Unused */
+ (void)v;
+
+ /* Used tree first */
+ if (w1 && !w2) return TRUE;
+ if (!w1 && w2) return FALSE;
+
+ /* Sort by monster level */
+ if (r1_ptr->level < r2_ptr->level) return TRUE;
+ if (r1_ptr->level > r2_ptr->level) return FALSE;
+
+ /* Sort by monster experience */
+ if (r1_ptr->mexp < r2_ptr->mexp) return TRUE;
+ if (r1_ptr->mexp > r2_ptr->mexp) return FALSE;
+
+ /* Compare indexes */
+ return w1 <= w2;
+}
+
+
+/*
+ * Sorting hook -- Swap function
+ */
+static void ang_sort_swap_evol_tree(vptr u, vptr v, int a, int b)
+{
+ int **evol_tree = (int **)u;
+ int *holder;
+
+ /* Unused */
+ (void)v;
+
+ /* Swap */
+ holder = evol_tree[a];
+ evol_tree[a] = evol_tree[b];
+ evol_tree[b] = holder;
+}
+
+
+/*
+ * Print monsters' evolution information to file
+ */
+static void spoil_mon_evol(cptr fname)
+{
+ char buf[1024];
+ monster_race *r_ptr;
+ int **evol_tree, i, j, n, r_idx;
+ int *evol_tree_zero; /* For C_KILL() */
+
+ /* Build the filename */
+ path_build(buf, sizeof buf, ANGBAND_DIR_USER, fname);
+
+ /* File type is "TEXT" */
+ FILE_TYPE(FILE_TYPE_TEXT);
+
+ /* Open the file */
+ fff = my_fopen(buf, "w");
+
+ /* Oops */
+ if (!fff)
+ {
+ msg_print("Cannot create spoiler file.");
+ return;
+ }
+
+ /* Dump the header */
+ sprintf(buf, "Monster Spoilers for Hengband Version %d.%d.%d\n",
+ FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
+
+ spoil_out(buf);
+ spoil_out("------------------------------------------\n\n");
+
+ /* Allocate the "evol_tree" array (2-dimension) */
+ C_MAKE(evol_tree, max_r_idx, int *);
+ C_MAKE(*evol_tree, max_r_idx * (MAX_EVOL_DEPTH + 1), int);
+ for (i = 1; i < max_r_idx; i++) evol_tree[i] = *evol_tree + i * (MAX_EVOL_DEPTH + 1);
+ evol_tree_zero = *evol_tree;
+
+ /* Step 1: Build the evolution tree */
+ for (i = 1; i < max_r_idx; i++)
+ {
+ r_ptr = &r_info[i];
+
+ /* No evolution */
+ if (!r_ptr->next_exp) continue;
+
+ /* Trace evolution */
+ n = 0;
+ evol_tree[i][n++] = i;
+ do
+ {
+ evol_tree[i][n++] = r_ptr->next_r_idx;
+ r_ptr = &r_info[r_ptr->next_r_idx];
+ }
+ while (r_ptr->next_exp && (n < MAX_EVOL_DEPTH));
+ }
+
+ /* Step 2: Scan the evolution trees and remove "partial tree" */
+ for (i = 1; i < max_r_idx; i++)
+ {
+ /* Not evolution tree */
+ if (!evol_tree[i][0]) continue;
+
+ for (j = 1; j < max_r_idx; j++)
+ {
+ /* Same tree */
+ if (i == j) continue;
+
+ /* Not evolution tree */
+ if (!evol_tree[j][0]) continue;
+
+ /* Is evolution tree[i] is part of [j]? */
+ if (is_partial_tree(evol_tree[j], evol_tree[i]))
+ {
+ /* Remove this evolution tree */
+ evol_tree[i][0] = 0;
+ break;
+ }
+ }
+ }
+
+ /* Step 3: Sort the evolution trees */
+
+ /* Select the sort method */
+ ang_sort_comp = ang_sort_comp_evol_tree;
+ ang_sort_swap = ang_sort_swap_evol_tree;
+
+ /* Sort the array */
+ ang_sort(evol_tree, NULL, max_r_idx);
+
+ /* Step 4: Print the evolution trees */
+ for (i = 0; i < max_r_idx; i++)
+ {
+ r_idx = evol_tree[i][0];
+
+ /* No evolution or removed evolution tree */
+ if (!r_idx) continue;
+
+ /* Trace the evolution tree */
+ r_ptr = &r_info[r_idx];
+#ifdef JP
+ fprintf(fff, "[%d]: %s (¥ì¥Ù¥ë%d, '%c')\n", r_idx,
+ r_name + r_ptr->name, r_ptr->level, r_ptr->d_char);
+#else
+ fprintf(fff, "[%d]: %s (Level %d, '%c')\n", r_idx,
+ r_name + r_ptr->name, r_ptr->level, r_ptr->d_char);
+#endif
+ for (n = 1; r_ptr->next_exp; n++)
+ {
+ fprintf(fff, "%*s-(%ld)-> ", n * 2, "", r_ptr->next_exp);
+ fprintf(fff, "[%d]: ", r_ptr->next_r_idx);
+ r_ptr = &r_info[r_ptr->next_r_idx];
+#ifdef JP
+ fprintf(fff, "%s (¥ì¥Ù¥ë%d, '%c')\n",
+ r_name + r_ptr->name, r_ptr->level, r_ptr->d_char);
+#else
+ fprintf(fff, "%s (Level %d, '%c')\n",
+ r_name + r_ptr->name, r_ptr->level, r_ptr->d_char);
+#endif
+ }
+
+ /* End of evolution tree */
+ fputc('\n', fff);
+ }
+
+ /* Free the "evol_tree" array (2-dimension) */
+ C_KILL(evol_tree_zero, max_r_idx * (MAX_EVOL_DEPTH + 1), int);
+ C_KILL(evol_tree, max_r_idx, int *);
+
+ /* Check for errors */
+ if (ferror(fff) || my_fclose(fff))
+ {
+ msg_print("Cannot close spoiler file.");
+ return;
+ }
+
+ /* Message */
+ msg_print("Successfully created a spoiler file.");
+}
+
+
+
/*
* Forward declare
*/
*/
void do_cmd_spoilers(void)
{
- int i;
-
-
/* Save the screen */
screen_save();
-
/* Interact */
while (1)
{
prt("(2) Brief Artifact Info (artifact.spo)", 6, 5);
prt("(3) Brief Monster Info (mon-desc.spo)", 7, 5);
prt("(4) Full Monster Info (mon-info.spo)", 8, 5);
+ prt("(5) Monster Evolution Info (mon-evol.spo)", 9, 5);
/* Prompt */
#ifdef JP
-prt("¥³¥Þ¥ó¥É:", 18, 0);
+ prt("¥³¥Þ¥ó¥É:", 18, 0);
#else
prt("Command: ", 12, 0);
#endif
-
/* Get a choice */
- i = inkey();
-
- /* Escape */
- if (i == ESCAPE)
+ switch (inkey())
{
- break;
- }
+ /* Escape */
+ case ESCAPE:
+ /* Restore the screen */
+ screen_load();
+ return;
/* Option (1) */
- else if (i == '1')
- {
+ case '1':
spoil_obj_desc("obj-desc.spo");
- }
+ break;
/* Option (2) */
- else if (i == '2')
- {
+ case '2':
spoil_artifact("artifact.spo");
- }
+ break;
/* Option (3) */
- else if (i == '3')
- {
+ case '3':
spoil_mon_desc("mon-desc.spo");
- }
+ break;
/* Option (4) */
- else if (i == '4')
- {
+ case '4':
spoil_mon_info("mon-info.spo");
- }
+ break;
+
+ /* Option (5) */
+ case '5':
+ spoil_mon_evol("mon-evol.spo");
+ break;
/* Oops */
- else
- {
+ default:
bell();
+ break;
}
/* Flush messages */
msg_print(NULL);
}
-
-
- /* Restore the screen */
- screen_load();
}
/*
{
obj_desc_list artifact;
- if (!object_known_p(o_ptr) || !o_ptr->art_name
+ if (!object_is_known(o_ptr) || !o_ptr->art_name
|| o_ptr->tval != group_artifact[i].tval)
return;