src/info-reader/race-reader.cpp

   1 #include "info-reader/race-reader.h"
   2 #include "info-reader/parse-error-types.h"
   3 #include "info-reader/race-info-tokens-table.h"
   4 #include "main/angband-headers.h"
   5 #include "monster-race/monster-race.h"
   6 #include "term/gameterm.h"
   7 #include "util/string-processor.h"
   8 #include "view/display-messages.h"
   9
  10 /*!
  11  * @brief テキストトークンを走査してフラグを一つ得る(モンスター用1) /
  12  * Grab one (basic) flag in a monster_race from a textual string
  13  * @param r_ptr 保管先のモンスター種族構造体参照ポインタ
  14  * @param what 参照元の文字列ポインタ
  15  * @return エラーコード
  16  */
  17 static errr grab_one_basic_flag(monster_race *r_ptr, concptr what)
  18 {
  19     if (grab_one_flag(&r_ptr->flags1, r_info_flags1, what) == 0)
  20         return PARSE_ERROR_NONE;
  21
  22     if (grab_one_flag(&r_ptr->flags2, r_info_flags2, what) == 0)
  23         return PARSE_ERROR_NONE;
  24
  25     if (grab_one_flag(&r_ptr->flags3, r_info_flags3, what) == 0)
  26         return PARSE_ERROR_NONE;
  27
  28     if (grab_one_flag(&r_ptr->flags7, r_info_flags7, what) == 0)
  29         return PARSE_ERROR_NONE;
  30
  31     if (grab_one_flag(&r_ptr->flags8, r_info_flags8, what) == 0)
  32         return PARSE_ERROR_NONE;
  33
  34     if (grab_one_flag(&r_ptr->flags9, r_info_flags9, what) == 0)
  35         return PARSE_ERROR_NONE;
  36
  37     if (grab_one_flag(&r_ptr->flagsr, r_info_flagsr, what) == 0)
  38         return PARSE_ERROR_NONE;
  39
  40     msg_format(_("未知のモンスター・フラグ '%s'。", "Unknown monster flag '%s'."), what);
  41     return PARSE_ERROR_GENERIC;
  42 }
  43
  44 /*!
  45  * @brief テキストトークンを走査してフラグを一つ得る(モンスター用2) /
  46  * Grab one (spell) flag in a monster_race from a textual string
  47  * @param r_ptr 保管先のモンスター種族構造体参照ポインタ
  48  * @param what 参照元の文字列ポインタ
  49  * @return エラーコード
  50  */
  51 static errr grab_one_spell_flag(monster_race *r_ptr, concptr what)
  52 {
  53     if (FlagGroup<RF_ABILITY>::grab_one_flag(r_ptr->ability_flags, r_info_ability_flags, what))
  54         return PARSE_ERROR_NONE;
  55
  56     msg_format(_("未知のモンスター・フラグ '%s'。", "Unknown monster flag '%s'."), what);
  57     return PARSE_ERROR_GENERIC;
  58 }
  59
  60 /*!
  61  * @brief モンスター種族情報(r_info)のパース関数 /
  62  * Initialize the "r_info" array, by parsing an ascii "template" file
  63  * @param buf テキスト列
  64  * @param head ヘッダ構造体
  65  * @return エラーコード
  66  */
  67 errr parse_r_info(char *buf, angband_header *head)
  68 {
  69     static monster_race *r_ptr = NULL;
  70     char *s, *t;
  71     if (buf[0] == 'N') {
  72         s = angband_strchr(buf + 2, ':');
  73         if (!s)
  74             return PARSE_ERROR_GENERIC;
  75
  76         *s++ = '\0';
  77 #ifdef JP
  78         if (!*s)
  79             return PARSE_ERROR_GENERIC;
  80 #endif
  81
  82         int i = atoi(buf + 2);
  83         if (i < error_idx)
  84             return PARSE_ERROR_NON_SEQUENTIAL_RECORDS;
  85
  86         if (i >= head->info_num)
  87             return PARSE_ERROR_OBSOLETE_FILE;
  88
  89         error_idx = i;
  90         r_ptr = &r_info[i];
  91 #ifdef JP
  92         r_ptr->name = std::string(s);
  93 #endif
  94     } else if (!r_ptr) {
  95         return PARSE_ERROR_MISSING_RECORD_HEADER;
  96     }
  97 #ifdef JP
  98     /* 英語名を読むルーチンを追加 */
  99     /* 'E' から始まる行は英語名 */
 100     else if (buf[0] == 'E') {
 101         r_ptr->E_name = std::string(buf + 2);
 102     }
 103 #else
 104     else if (buf[0] == 'E') {
 105         r_ptr->name = std::string(buf + 2);
 106     }
 107 #endif
 108     else if (buf[0] == 'D') {
 109 #ifdef JP
 110         if (buf[2] == '$')
 111             return PARSE_ERROR_NONE;
 112
 113         s = buf + 2;
 114 #else
 115         if (buf[2] != '$')
 116             return PARSE_ERROR_NONE;
 117         s = buf + 3;
 118 #endif
 119         r_ptr->text.append(s);
 120     } else if (buf[0] == 'G') {
 121         if ((buf[1] != ':') || !buf[2] || (buf[3] != ':') || !buf[4])
 122             return PARSE_ERROR_GENERIC;
 123
 124         char sym = buf[2];
 125         byte tmp = color_char_to_attr(buf[4]);
 126         if (tmp > 127)
 127             return PARSE_ERROR_GENERIC;
 128
 129         r_ptr->d_char = sym;
 130         r_ptr->d_attr = tmp;
 131     } else if (buf[0] == 'I') {
 132         int spd, hp1, hp2, aaf, ac, slp;
 133         if (sscanf(buf + 2, "%d:%dd%d:%d:%d:%d", &spd, &hp1, &hp2, &aaf, &ac, &slp) != 6)
 134             return PARSE_ERROR_GENERIC;
 135
 136         r_ptr->speed = (SPEED)spd;
 137         r_ptr->hdice = (DICE_NUMBER)MAX(hp1, 1);
 138         r_ptr->hside = (DICE_SID)MAX(hp2, 1);
 139         r_ptr->aaf = (POSITION)aaf;
 140         r_ptr->ac = (ARMOUR_CLASS)ac;
 141         r_ptr->sleep = (SLEEP_DEGREE)slp;
 142     } else if (buf[0] == 'W') {
 143         int lev, rar, pad;
 144         long exp;
 145         long nextexp;
 146         int nextmon;
 147         if (sscanf(buf + 2, "%d:%d:%d:%ld:%ld:%d", &lev, &rar, &pad, &exp, &nextexp, &nextmon) != 6)
 148             return PARSE_ERROR_GENERIC;
 149
 150         r_ptr->level = (DEPTH)lev;
 151         r_ptr->rarity = (RARITY)rar;
 152         r_ptr->extra = (BIT_FLAGS16)pad;
 153         r_ptr->mexp = (EXP)exp;
 154         r_ptr->next_exp = (EXP)nextexp;
 155         r_ptr->next_r_idx = (MONRACE_IDX)nextmon;
 156     } else if (buf[0] == 'R') {
 157         int id, ds, dd;
 158         int i = 0;
 159         for (; i < A_MAX; i++)
 160             if (r_ptr->reinforce_id[i] == 0)
 161                 break;
 162
 163         if ((i == 6) || (sscanf(buf + 2, "%d:%dd%d", &id, &dd, &ds) != 3))
 164             return PARSE_ERROR_GENERIC;
 165
 166         r_ptr->reinforce_id[i] = (MONRACE_IDX)id;
 167         r_ptr->reinforce_dd[i] = (DICE_NUMBER)dd;
 168         r_ptr->reinforce_ds[i] = (DICE_SID)ds;
 169     } else if (buf[0] == 'B') {
 170         int n1, n2;
 171         int i = 0;
 172         for (i = 0; i < 4; i++)
 173             if (!r_ptr->blow[i].method)
 174                 break;
 175
 176         if (i == 4)
 177             return PARSE_ERROR_GENERIC;
 178
 179         /* loop */
 180         for (s = t = buf + 2; *t && (*t != ':'); t++)
 181             ;
 182
 183         if (*t == ':')
 184             *t++ = '\0';
 185
 186         for (n1 = 0; r_info_blow_method[n1]; n1++) {
 187             if (streq(s, r_info_blow_method[n1]))
 188                 break;
 189         }
 190
 191         if (!r_info_blow_method[n1])
 192             return PARSE_ERROR_GENERIC;
 193
 194         /* loop */
 195         for (s = t; *t && (*t != ':'); t++)
 196             ;
 197
 198         if (*t == ':')
 199             *t++ = '\0';
 200
 201         for (n2 = 0; r_info_blow_effect[n2]; n2++) {
 202             if (streq(s, r_info_blow_effect[n2]))
 203                 break;
 204         }
 205
 206         if (!r_info_blow_effect[n2])
 207             return PARSE_ERROR_GENERIC;
 208
 209         /* loop */
 210         for (s = t; *t && (*t != 'd'); t++)
 211             ;
 212
 213         if (*t == 'd')
 214             *t++ = '\0';
 215
 216         r_ptr->blow[i].method = (rbm_type)n1;
 217         r_ptr->blow[i].effect = (rbe_type)n2;
 218         r_ptr->blow[i].d_dice = atoi(s);
 219         r_ptr->blow[i].d_side = atoi(t);
 220     } else if (buf[0] == 'F') {
 221         for (s = buf + 2; *s;) {
 222             /* loop */
 223             for (t = s; *t && (*t != ' ') && (*t != '|'); ++t)
 224                 ;
 225
 226             if (*t) {
 227                 *t++ = '\0';
 228                 while (*t == ' ' || *t == '|')
 229                     t++;
 230             }
 231
 232             if (0 != grab_one_basic_flag(r_ptr, s))
 233                 return PARSE_ERROR_INVALID_FLAG;
 234
 235             s = t;
 236         }
 237     } else if (buf[0] == 'S') {
 238         for (s = buf + 2; *s;) {
 239
 240             /* loop */
 241             for (t = s; *t && (*t != ' ') && (*t != '|'); ++t)
 242                 ;
 243
 244             if (*t) {
 245                 *t++ = '\0';
 246                 while ((*t == ' ') || (*t == '|'))
 247                     t++;
 248             }
 249
 250             int i;
 251             if (1 == sscanf(s, "1_IN_%d", &i)) {
 252                 r_ptr->freq_spell = 100 / i;
 253                 s = t;
 254                 continue;
 255             }
 256
 257             if (grab_one_spell_flag(r_ptr, s) != PARSE_ERROR_NONE)
 258                 return PARSE_ERROR_INVALID_FLAG;
 259
 260             s = t;
 261         }
 262     } else if (buf[0] == 'A') {
 263         int id, per, rarity;
 264         int i = 0;
 265         for (i = 0; i < 4; i++)
 266             if (!r_ptr->artifact_id[i])
 267                 break;
 268
 269         if ((i == 4) || (sscanf(buf + 2, "%d:%d:%d", &id, &rarity, &per) != 3))
 270             return PARSE_ERROR_GENERIC;
 271
 272         r_ptr->artifact_id[i] = (ARTIFACT_IDX)id;
 273         r_ptr->artifact_rarity[i] = (RARITY)rarity;
 274         r_ptr->artifact_percent[i] = (PERCENTAGE)per;
 275     } else if (buf[0] == 'V') {
 276         int val;
 277         if (sscanf(buf + 2, "%d", &val) != 3)
 278             return 1;
 279
 280         r_ptr->arena_ratio = (PERCENTAGE)val;
 281     } else {
 282         return PARSE_ERROR_UNDEFINED_DIRECTIVE;
 283     }
 284
 285     return PARSE_ERROR_NONE;
 286 }