2 #include "system/angband.h"
8 * @brief 英単語、句、説を複数形を変換する / Pluralize a monster name
9 * @param Name 変換したい文字列の参照ポインタ
12 void plural_aux(char *Name)
14 int NameLen = strlen(Name);
16 if (angband_strstr(Name, "Disembodied hand"))
18 strcpy(Name, "Disembodied hands that strangled people");
20 else if (angband_strstr(Name, "Colour out of space"))
22 strcpy(Name, "Colours out of space");
24 else if (angband_strstr(Name, "stairway to hell"))
26 strcpy(Name, "stairways to hell");
28 else if (angband_strstr(Name, "Dweller on the threshold"))
30 strcpy(Name, "Dwellers on the threshold");
32 else if (angband_strstr(Name, " of "))
34 concptr aider = angband_strstr(Name, " of ");
45 if (dummy[i - 1] == 's')
47 strcpy(&(dummy[i]), "es");
52 strcpy(&(dummy[i]), "s");
55 strcpy(&(dummy[i + 1]), aider);
58 else if (angband_strstr(Name, "coins"))
61 strcpy(dummy, "piles of ");
66 else if (angband_strstr(Name, "Manes"))
70 else if (streq(&(Name[NameLen - 2]), "ey"))
72 strcpy(&(Name[NameLen - 2]), "eys");
74 else if (Name[NameLen - 1] == 'y')
76 strcpy(&(Name[NameLen - 1]), "ies");
78 else if (streq(&(Name[NameLen - 4]), "ouse"))
80 strcpy(&(Name[NameLen - 4]), "ice");
82 else if (streq(&(Name[NameLen - 2]), "us"))
84 strcpy(&(Name[NameLen - 2]), "i");
86 else if (streq(&(Name[NameLen - 6]), "kelman"))
88 strcpy(&(Name[NameLen - 6]), "kelmen");
90 else if (streq(&(Name[NameLen - 8]), "wordsman"))
92 strcpy(&(Name[NameLen - 8]), "wordsmen");
94 else if (streq(&(Name[NameLen - 7]), "oodsman"))
96 strcpy(&(Name[NameLen - 7]), "oodsmen");
98 else if (streq(&(Name[NameLen - 7]), "eastman"))
100 strcpy(&(Name[NameLen - 7]), "eastmen");
102 else if (streq(&(Name[NameLen - 8]), "izardman"))
104 strcpy(&(Name[NameLen - 8]), "izardmen");
106 else if (streq(&(Name[NameLen - 5]), "geist"))
108 strcpy(&(Name[NameLen - 5]), "geister");
110 else if (streq(&(Name[NameLen - 2]), "ex"))
112 strcpy(&(Name[NameLen - 2]), "ices");
114 else if (streq(&(Name[NameLen - 2]), "lf"))
116 strcpy(&(Name[NameLen - 2]), "lves");
118 else if (suffix(Name, "ch") ||
119 suffix(Name, "sh") ||
120 suffix(Name, "nx") ||
124 strcpy(&(Name[NameLen]), "es");
128 strcpy(&(Name[NameLen]), "s");