bool all = FALSE;
bool uniq = FALSE;
bool norm = FALSE;
+ bool ride = FALSE;
char temp[80] = "";
bool recall = FALSE;
/* Get a character, or abort */
#ifdef JP
- if (!get_com("ÃΤꤿ¤¤Ê¸»ú¤òÆþÎϤ·¤Æ²¼¤µ¤¤(µ¹æ or ^AÁ´,^U¥æ,^NÈó¥æ,^M̾Á°): ", &sym, FALSE)) return;
+ if (!get_com("ÃΤꤿ¤¤Ê¸»ú¤òÆþÎϤ·¤Æ²¼¤µ¤¤(µ¹æ or ^AÁ´,^U¥æ,^NÈó¥æ,^R¾èÇÏ,^M̾Á°): ", &sym, FALSE)) return;
#else
if (!get_com("Enter character to be identified(^A:All,^U:Uniqs,^N:Non uniqs,^M:Name): ", &sym, FALSE)) return;
#endif
-
/* Find that character info, and describe it */
for (i = 0; ident_info[i]; ++i)
{
#else
strcpy(buf, "Full monster list.");
#endif
-
}
else if (sym == KTRL('U'))
{
#else
strcpy(buf, "Unique monster list.");
#endif
-
}
else if (sym == KTRL('N'))
{
#else
strcpy(buf, "Non-unique monster list.");
#endif
-
+ }
+ else if (sym == KTRL('R'))
+ {
+ all = ride = TRUE;
+#ifdef JP
+ strcpy(buf, "¾èÇϲÄǽ¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
+#else
+ strcpy(buf, "Ridable monster list.");
+#endif
}
/* XTRA HACK WHATSEARCH */
else if (sym == KTRL('M'))
#else
sprintf(buf, "%c - %s.", sym, "Unknown Symbol");
#endif
-
}
/* Display the result */
/* Require unique monsters if needed */
if (uniq && !(r_ptr->flags1 & (RF1_UNIQUE))) continue;
+ /* Require ridable monsters if needed */
+ if (ride && !(r_ptr->flags7 & (RF7_RIDING))) continue;
+
/* XTRA HACK WHATSEARCH */
- if (temp[0]){
+ if (temp[0])
+ {
int xx;
char temp2[80];
- for (xx=0; temp[xx] && xx<80; xx++){
+ for (xx=0; temp[xx] && xx<80; xx++)
+ {
#ifdef JP
if (iskanji( temp[xx])) { xx++; continue; }
#endif
if (strstr(temp2, temp))
#endif
who[n++]=i;
- }else
+ }
+
/* Collect "appropriate" monsters */
- if (all || (r_ptr->d_char == sym)) who[n++] = i;
+ else if (all || (r_ptr->d_char == sym)) who[n++] = i;
}
/* Nothing to recall */