switch (buf[0])
{
- /* Process "%:<fname>" */
- case '%':
- /* Attempt to Process the given file */
- return process_pref_file(buf + 2);
-
/* Mega-Hack -- read external player's history file */
/* Process "H:<history>" */
case 'H':
n2 = strtol(zz[2], NULL, 0);
if (i >= max_r_idx) return 1;
r_ptr = &r_info[i];
- if (n1) r_ptr->x_attr = n1;
+ if (n1 || (!(n2 & 0x80) && n2)) r_ptr->x_attr = n1; /* Allow TERM_DARK text */
if (n2) r_ptr->x_char = n2;
return 0;
}
n2 = strtol(zz[2], NULL, 0);
if (i >= max_k_idx) return 1;
k_ptr = &k_info[i];
- if (n1) k_ptr->x_attr = n1;
+ if (n1 || (!(n2 & 0x80) && n2)) k_ptr->x_attr = n1; /* Allow TERM_DARK text */
if (n2) k_ptr->x_char = n2;
return 0;
}
break;
/* Process "F:<num>:<a>/<c>" -- attr/char for terrain features */
+ /* "F:<num>:<a>/<c>" */
+ /* "F:<num>:<a>/<c>:LIT" */
+ /* "F:<num>:<a>/<c>:<la>/<lc>:<da>/<dc>" */
case 'F':
- if (tokenize(buf+2, 3, zz, TOKENIZE_CHECKQUOTE) == 3)
{
feature_type *f_ptr;
+ int num = tokenize(buf + 2, F_LIT_MAX * 2 + 1, zz, TOKENIZE_CHECKQUOTE);
+
+ if ((num != 3) && (num != 4) && (num != F_LIT_MAX * 2 + 1)) return 1;
+ else if ((num == 4) && !streq(zz[3], "LIT")) return 1;
+
i = (huge)strtol(zz[0], NULL, 0);
- n1 = strtol(zz[1], NULL, 0);
- n2 = strtol(zz[2], NULL, 0);
if (i >= max_f_idx) return 1;
f_ptr = &f_info[i];
- if (n1) f_ptr->x_attr = n1;
- if (n2) f_ptr->x_char = n2;
- return 0;
+
+ n1 = strtol(zz[1], NULL, 0);
+ n2 = strtol(zz[2], NULL, 0);
+ if (n1 || (!(n2 & 0x80) && n2)) f_ptr->x_attr[F_LIT_STANDARD] = n1; /* Allow TERM_DARK text */
+ if (n2) f_ptr->x_char[F_LIT_STANDARD] = n2;
+
+ /* Mega-hack -- feat supports lighting */
+ switch (num)
+ {
+ /* No lighting support */
+ case 3:
+ n1 = f_ptr->x_attr[F_LIT_STANDARD];
+ n2 = f_ptr->x_char[F_LIT_STANDARD];
+ for (j = F_LIT_NS_BEGIN; j < F_LIT_MAX; j++)
+ {
+ f_ptr->x_attr[j] = n1;
+ f_ptr->x_char[j] = n2;
+ }
+ break;
+
+ /* Use default lighting */
+ case 4:
+ apply_default_feat_lighting(f_ptr->x_attr, f_ptr->x_char);
+ break;
+
+ /* Use desired lighting */
+ case F_LIT_MAX * 2 + 1:
+ for (j = F_LIT_NS_BEGIN; j < F_LIT_MAX; j++)
+ {
+ n1 = strtol(zz[j * 2 + 1], NULL, 0);
+ n2 = strtol(zz[j * 2 + 2], NULL, 0);
+ if (n1 || (!(n2 & 0x80) && n2)) f_ptr->x_attr[j] = n1; /* Allow TERM_DARK text */
+ if (n2) f_ptr->x_char[j] = n2;
+ }
+ break;
+ }
}
- break;
+ return 0;
/* Process "S:<num>:<a>/<c>" -- attr/char for special things */
case 'S':
case 'Z':
{
/* Find the colon */
- char *t = strchr(buf + 2, ':');
+ char *t = my_strchr(buf + 2, ':');
/* Oops */
if (!t) return 1;
* Output:
* result
*/
-cptr process_pref_file_expr(cptr *sp, char *fp)
+cptr process_pref_file_expr(char **sp, char *fp)
{
cptr v;
- cptr s;
+ char *b;
+ char *s;
char b1 = '[';
char b2 = ']';
char f = ' ';
- static char tmp[8];
+ static char tmp[10];
/* Initial */
s = (*sp);
/* Skip spaces */
while (isspace(*s)) s++;
+ /* Save start */
+ b = s;
+
/* Default */
v = "?o?o?";
/* Function: EQU */
else if (streq(t, "EQU"))
{
- v = "1";
+ v = "0";
if (*s && (f != b2))
{
t = process_pref_file_expr(&s, &f);
}
while (*s && (f != b2))
{
- p = t;
- t = process_pref_file_expr(&s, &f);
- if (*t && !streq(p, t)) v = "0";
+ p = process_pref_file_expr(&s, &f);
+ if (streq(t, p)) v = "1";
}
}
{
p = t;
t = process_pref_file_expr(&s, &f);
- if (*t && (strcmp(p, t) > 0)) v = "0";
+ if (*t && atoi(p) > atoi(t)) v = "0";
}
}
{
p = t;
t = process_pref_file_expr(&s, &f);
- if (*t && (strcmp(p, t) < 0)) v = "0";
+
+ /* Compare two numbers instead of string */
+ if (*t && atoi(p) < atoi(t)) v = "0";
}
}
if (f != b2) v = "?x?x?";
/* Extract final and Terminate */
- if ((f = *s) != '\0') s++;
+ if ((f = *s) != '\0') *s++ = '\0';
}
/* Other */
else
{
- char b[1024];
- int i;
-
/* Accept all printables except spaces and brackets */
- for (i = 0; isprint(*s) && !strchr(" []", *s); i++)
- b[i] = *s++;
-
- /* Terminate */
- b[i] = '\0';
+#ifdef JP
+ while (iskanji(*s) || (isprint(*s) && !my_strchr(" []", *s)))
+ {
+ if (iskanji(*s)) s++;
+ s++;
+ }
+#else
+ while (isprint(*s) && !my_strchr(" []", *s)) ++s;
+#endif
/* Extract final and Terminate */
- if ((f = *s) != '\0') s++;
+ if ((f = *s) != '\0') *s++ = '\0';
/* Variable */
if (*b == '$')
/* Player */
else if (streq(b+1, "PLAYER"))
{
- v = player_base;
+ static char tmp_player_name[32];
+ char *pn, *tpn;
+ for (pn = player_name, tpn = tmp_player_name; *pn; pn++, tpn++)
+ {
+#ifdef JP
+ if (iskanji(*pn))
+ {
+ *(tpn++) = *(pn++);
+ *tpn = *pn;
+ continue;
+ }
+#endif
+ *tpn = my_strchr(" []", *pn) ? '_' : *pn;
+ }
+ *tpn = '\0';
+ v = tmp_player_name;
}
/* First realm */
else
v = "0";
}
+
+ /* Money */
+ else if (streq(b+1, "MONEY"))
+ {
+ sprintf(tmp, "%09ld", (long int)p_ptr->au);
+ v = tmp;
+ }
}
/* Constant */
#define PREF_TYPE_NORMAL 0
-#define PREF_TYPE_PICKPREF 1
+#define PREF_TYPE_AUTOPICK 1
#define PREF_TYPE_HISTPREF 2
/*
{
char f;
cptr v;
- cptr s;
+ char *s;
/* Start */
s = buf + 2;
/* Process "%:<file>" */
if (buf[0] == '%')
{
+ static int depth_count = 0;
+
+ /* Ignore if deeper than 20 level */
+ if (depth_count > 20) continue;
+
+ /* Count depth level */
+ depth_count++;
+
/* Process that file if allowed */
switch (preftype)
{
- case PREF_TYPE_PICKPREF:
- (void)process_pickpref_file(buf + 2);
+ case PREF_TYPE_AUTOPICK:
+ (void)process_autopick_file(buf + 2);
break;
case PREF_TYPE_HISTPREF:
(void)process_histpref_file(buf + 2);
break;
}
+ /* Set back depth level */
+ depth_count--;
+
/* Continue */
continue;
}
/* This is not original pref line... */
if (err)
{
- if (preftype != PREF_TYPE_PICKPREF)
+ if (preftype != PREF_TYPE_AUTOPICK)
break;
- err = process_pickpref_file_line(buf);
+ err = process_autopick_file_command(buf);
}
}
}
+static void display_player_melee_bonus(int hand, int hand_entry)
+{
+ char buf[160];
+ int show_tohit = p_ptr->dis_to_h[hand];
+ int show_todam = p_ptr->dis_to_d[hand];
+ object_type *o_ptr = &inventory[INVEN_RARM + hand];
+
+ /* Hack -- add in weapon info if known */
+ if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
+ if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
+
+ /* Melee attacks */
+ sprintf(buf, "(%+d,%+d)", show_tohit, show_todam);
+
+ /* Dump the bonuses to hit/dam */
+ if (!buki_motteruka(INVEN_RARM) && !buki_motteruka(INVEN_LARM))
+ display_player_one_line(ENTRY_BARE_HAND, buf, TERM_L_BLUE);
+ else if (p_ptr->ryoute)
+ display_player_one_line(ENTRY_TWO_HANDS, buf, TERM_L_BLUE);
+ else
+ display_player_one_line(hand_entry, buf, TERM_L_BLUE);
+}
+
+
/*
* Prints the following information on the screen.
*/
static void display_player_middle(void)
{
char buf[160];
- int show_tohit, show_todam;
- object_type *o_ptr;
- int tmul = 0;
- int e;
-
- if(p_ptr->migite)
- {
- show_tohit = p_ptr->dis_to_h[0];
- show_todam = p_ptr->dis_to_d[0];
- o_ptr = &inventory[INVEN_RARM];
+ /* Base skill */
+ int show_tohit = p_ptr->dis_to_h_b;
+ int show_todam = 0;
- /* Hack -- add in weapon info if known */
- if (object_known_p(o_ptr)) show_tohit += o_ptr->to_h;
- if (object_known_p(o_ptr)) show_todam += o_ptr->to_d;
+ /* Range weapon */
+ object_type *o_ptr = &inventory[INVEN_BOW];
- /* Melee attacks */
- sprintf(buf, "(%+d,%+d)", show_tohit, show_todam);
+ int tmul = 0;
+ int e;
- /* Dump the bonuses to hit/dam */
- if(!buki_motteruka(INVEN_RARM) && !buki_motteruka(INVEN_LARM))
- display_player_one_line(ENTRY_BARE_HAND, buf, TERM_L_BLUE);
- else if(p_ptr->ryoute)
- display_player_one_line(ENTRY_TWO_HANDS, buf, TERM_L_BLUE);
- else if (left_hander)
- display_player_one_line(ENTRY_LEFT_HAND1, buf, TERM_L_BLUE);
- else
- display_player_one_line(ENTRY_RIGHT_HAND1, buf, TERM_L_BLUE);
+ if (p_ptr->migite)
+ {
+ display_player_melee_bonus(0, left_hander ? ENTRY_LEFT_HAND1 : ENTRY_RIGHT_HAND1);
}
- if(p_ptr->hidarite)
+ if (p_ptr->hidarite)
{
- show_tohit = p_ptr->dis_to_h[1];
- show_todam = p_ptr->dis_to_d[1];
-
- o_ptr = &inventory[INVEN_LARM];
-
- /* Hack -- add in weapon info if known */
- if (object_known_p(o_ptr)) show_tohit += o_ptr->to_h;
- if (object_known_p(o_ptr)) show_todam += o_ptr->to_d;
-
- /* Melee attacks */
- sprintf(buf, "(%+d,%+d)", show_tohit, show_todam);
-
- /* Dump the bonuses to hit/dam */
- if (left_hander)
- display_player_one_line(ENTRY_RIGHT_HAND2, buf, TERM_L_BLUE);
- else
- display_player_one_line(ENTRY_LEFT_HAND2, buf, TERM_L_BLUE);
+ display_player_melee_bonus(1, left_hander ? ENTRY_RIGHT_HAND2: ENTRY_LEFT_HAND2);
}
else if ((p_ptr->pclass == CLASS_MONK) && (empty_hands(TRUE) & EMPTY_HAND_RARM))
{
#endif
}
- /* Range weapon */
- o_ptr = &inventory[INVEN_BOW];
-
- /* Base skill */
- show_tohit = p_ptr->dis_to_h_b;
- show_todam = 0;
-
/* Apply weapon bonuses */
- if (object_known_p(o_ptr)) show_tohit += o_ptr->to_h;
- if (object_known_p(o_ptr)) show_todam += o_ptr->to_d;
+ if (object_is_known(o_ptr)) show_tohit += o_ptr->to_h;
+ if (object_is_known(o_ptr)) show_todam += o_ptr->to_d;
if ((o_ptr->sval == SV_LIGHT_XBOW) || (o_ptr->sval == SV_HEAVY_XBOW))
show_tohit += p_ptr->weapon_exp[0][o_ptr->sval] / 400;
}
else
{
- if (m_list[p_ptr->riding].fast) tmp_speed += 10;
- if (m_list[p_ptr->riding].slow) tmp_speed -= 10;
+ if (MON_FAST(&m_list[p_ptr->riding])) tmp_speed += 10;
+ if (MON_SLOW(&m_list[p_ptr->riding])) tmp_speed -= 10;
}
if (tmp_speed)
int day, hour, min;
extract_day_hour_min(&day, &hour, &min);
- sprintf(buf,
#ifdef JP
- "%dÆüÌÜ %2d:%02d",
+ if (day < MAX_DAYS) sprintf(buf, "%dÆüÌÜ %2d:%02d", day, hour, min);
+ else sprintf(buf, "*****ÆüÌÜ %2d:%02d", hour, min);
#else
- "Day %d %2d:%02d",
+ if (day < MAX_DAYS) sprintf(buf, "Day %d %2d:%02d", day, hour, min);
+ else sprintf(buf, "Day ***** %2d:%02d", hour, min);
#endif
- day, hour, min);
}
display_player_one_line(ENTRY_DAY, buf, TERM_L_GREEN);
/* Average damage per round */
if (o_ptr->k_idx)
{
- if (object_known_p(o_ptr)) damage[i] += o_ptr->to_d * 100;
+ if (object_is_known(o_ptr)) damage[i] += o_ptr->to_d * 100;
basedam = ((o_ptr->dd + p_ptr->to_dd[i]) * (o_ptr->ds + p_ptr->to_ds[i] + 1)) * 50;
object_flags_known(o_ptr, flgs);
if ((o_ptr->ident & IDENT_MENTAL) && ((o_ptr->name1 == ART_VORPAL_BLADE) || (o_ptr->name1 == ART_CHAINSWORD)))
add_flag(flgs, TR_SPEED);
else
{
- if (!inventory[INVEN_LARM].tval || p_ptr->hidarite)
+ if ((!inventory[INVEN_RARM].k_idx || p_ptr->migite) &&
+ (!inventory[INVEN_LARM].k_idx || p_ptr->hidarite))
add_flag(flgs, TR_SPEED);
if (p_ptr->lev>24)
add_flag(flgs, TR_FREE_ACT);
add_flag(flgs, TR_SH_FIRE);
add_flag(flgs, TR_SEE_INVIS);
add_flag(flgs, TR_TELEPATHY);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_SPEED);
break;
case MIMIC_VAMPIRE:
add_flag(flgs, TR_RES_LITE);
break;
case RACE_HOBBIT:
- add_flag(flgs, TR_SUST_DEX);
+ add_flag(flgs, TR_HOLD_LIFE);
break;
case RACE_GNOME:
add_flag(flgs, TR_FREE_ACT);
if (p_ptr->lev > 14)
{
add_flag(flgs, TR_REGEN);
- if (p_ptr->pclass == CLASS_WARRIOR)
+ if ((p_ptr->pclass == CLASS_WARRIOR) || (p_ptr->pclass == CLASS_BERSERKER))
{
add_flag(flgs, TR_SLOW_DIGEST);
/*
add_flag(flgs, TR_SEE_INVIS);
break;
case RACE_DRACONIAN:
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
if (p_ptr->lev > 4)
add_flag(flgs, TR_RES_FIRE);
if (p_ptr->lev > 9)
add_flag(flgs, TR_RES_COLD);
break;
case RACE_SPECTRE:
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_FREE_ACT);
add_flag(flgs, TR_RES_COLD);
add_flag(flgs, TR_SEE_INVIS);
break;
case RACE_SPRITE:
add_flag(flgs, TR_RES_LITE);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
if (p_ptr->lev > 9)
add_flag(flgs, TR_SPEED);
break;
add_flag(flgs, TR_RES_CONF);
break;
case RACE_ANGEL:
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_SEE_INVIS);
break;
case RACE_DEMON:
add_flag(flgs, TR_SUST_CON);
break;
case RACE_S_FAIRY:
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
break;
- case RACE_KUTA:
+ case RACE_KUTAR:
add_flag(flgs, TR_RES_CONF);
break;
case RACE_ANDROID:
if (p_ptr->muta3 & MUT3_WINGS)
{
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
}
if (p_ptr->muta3 & MUT3_FEARLESS)
if (p_ptr->special_defense & KAMAE_GENBU)
add_flag(flgs, TR_REFLECT);
if (p_ptr->special_defense & KAMAE_SUZAKU)
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
if (p_ptr->special_defense & KAMAE_SEIRYU)
{
add_flag(flgs, TR_RES_FIRE);
add_flag(flgs, TR_RES_ACID);
add_flag(flgs, TR_RES_ELEC);
add_flag(flgs, TR_RES_POIS);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_SH_FIRE);
add_flag(flgs, TR_SH_ELEC);
add_flag(flgs, TR_SH_COLD);
add_flag(flgs, TR_SH_FIRE);
add_flag(flgs, TR_SH_ELEC);
add_flag(flgs, TR_SH_COLD);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_LITE);
add_flag(flgs, TR_SEE_INVIS);
add_flag(flgs, TR_TELEPATHY);
add_flag(flgs, TR_RES_CONF);
add_flag(flgs, TR_REFLECT);
add_flag(flgs, TR_FREE_ACT);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
}
if (p_ptr->tim_res_nether)
{
add_flag(flgs, TR_SH_FIRE);
add_flag(flgs, TR_SH_ELEC);
add_flag(flgs, TR_SH_COLD);
- add_flag(flgs, TR_FEATHER);
+ add_flag(flgs, TR_LEVITATION);
add_flag(flgs, TR_LITE);
add_flag(flgs, TR_SEE_INVIS);
add_flag(flgs, TR_TELEPATHY);
add_flag(flgs, TR_SUST_CON);
add_flag(flgs, TR_SUST_CHR);
}
+
+ /* Hex bonuses */
+ if (p_ptr->realm1 == REALM_HEX)
+ {
+ if (hex_spelling(HEX_DEMON_AURA))
+ {
+ add_flag(flgs, TR_SH_FIRE);
+ add_flag(flgs, TR_REGEN);
+ }
+ if (hex_spelling(HEX_ICE_ARMOR)) add_flag(flgs, TR_SH_COLD);
+ if (hex_spelling(HEX_SHOCK_CLOAK)) add_flag(flgs, TR_SH_ELEC);
+ }
}
display_flag_aux(row+4, col, "·Ù¹ð :", TR_WARNING, &f, 0);
display_flag_aux(row+5, col, "Ãپò½ :", TR_SLOW_DIGEST, &f, 0);
display_flag_aux(row+6, col, "µÞ²óÉü :", TR_REGEN, &f, 0);
-display_flag_aux(row+7, col, "ÉâÍ· :", TR_FEATHER, &f, 0);
+display_flag_aux(row+7, col, "ÉâÍ· :", TR_LEVITATION, &f, 0);
display_flag_aux(row+8, col, "±Ê±ó¸÷¸» :", TR_LITE, &f, 0);
display_flag_aux(row+9, col, "¼ö¤¤ :", 0, &f, DP_CURSE);
#else
display_flag_aux(row+4, col, "Warning :", TR_WARNING, &f, 0);
display_flag_aux(row+5, col, "SlowDigest:", TR_SLOW_DIGEST, &f, 0);
display_flag_aux(row+6, col, "Regene. :", TR_REGEN, &f, 0);
- display_flag_aux(row+7, col, "Levitation:", TR_FEATHER, &f, 0);
+ display_flag_aux(row+7, col, "Levitation:", TR_LEVITATION, &f, 0);
display_flag_aux(row+8, col, "Perm Lite :", TR_LITE, &f, 0);
display_flag_aux(row+9, col, "Cursed :", 0, &f, DP_CURSE);
#endif
row = 3;
col = col + 12 + 7;
- display_player_equippy(row-2, col+12, 0);
- c_put_str(TERM_WHITE, "abcdefghijkl@", row-1, col+12);
-
-#ifdef JP
- display_flag_aux(row+ 0, col, "¥Æ¥ì¥Ñ¥·¡¼:", TR_TELEPATHY, &f, 0);
- display_flag_aux(row+ 1, col, "¼Ù°ESP :", TR_ESP_EVIL, &f, 0);
- display_flag_aux(row+ 2, col, "̵À¸ÊªESP :", TR_ESP_NONLIVING, &f, 0);
- display_flag_aux(row+ 3, col, "Á±ÎÉESP :", TR_ESP_GOOD, &f, 0);
- display_flag_aux(row+ 4, col, "ÉÔ»àESP :", TR_ESP_UNDEAD, &f, 0);
- display_flag_aux(row+ 5, col, "°ËâESP :", TR_ESP_DEMON, &f, 0);
- display_flag_aux(row+ 6, col, "ζESP :", TR_ESP_DRAGON, &f, 0);
- display_flag_aux(row+ 7, col, "¿Í´ÖESP :", TR_ESP_HUMAN, &f, 0);
- display_flag_aux(row+ 8, col, "ưʪESP :", TR_ESP_ANIMAL, &f, 0);
- display_flag_aux(row+ 9, col, "¥ª¡¼¥¯ESP :", TR_ESP_ORC, &f, 0);
- display_flag_aux(row+10, col, "¥È¥í¥ëESP :", TR_ESP_TROLL, &f, 0);
- display_flag_aux(row+11, col, "µð¿ÍESP :", TR_ESP_GIANT, &f, 0);
-
- display_flag_aux(row+13, col, "ÏÓÎÏ°Ý»ý :", TR_SUST_STR, &f, 0);
- display_flag_aux(row+14, col, "ÃÎÎÏ°Ý»ý :", TR_SUST_INT, &f, 0);
- display_flag_aux(row+15, col, "¸¤µ°Ý»ý :", TR_SUST_WIS, &f, 0);
- display_flag_aux(row+16, col, "´ïÍÑ°Ý»ý :", TR_SUST_DEX, &f, 0);
- display_flag_aux(row+17, col, "Âѵװݻý :", TR_SUST_CON, &f, 0);
- display_flag_aux(row+18, col, "Ì¥ÎÏ°Ý»ý :", TR_SUST_CHR, &f, 0);
-#else
- display_flag_aux(row+ 0, col, "Telepathy :", TR_TELEPATHY, &f, 0);
- display_flag_aux(row+ 1, col, "ESP Evil :", TR_ESP_EVIL, &f, 0);
- display_flag_aux(row+ 2, col, "ESP Noliv.:", TR_ESP_NONLIVING, &f, 0);
- display_flag_aux(row+ 3, col, "ESP Good :", TR_ESP_GOOD, &f, 0);
- display_flag_aux(row+ 4, col, "ESP Undead:", TR_ESP_UNDEAD, &f, 0);
- display_flag_aux(row+ 5, col, "ESP Demon :", TR_ESP_DEMON, &f, 0);
- display_flag_aux(row+ 6, col, "ESP Dragon:", TR_ESP_DRAGON, &f, 0);
- display_flag_aux(row+ 7, col, "ESP Human :", TR_ESP_HUMAN, &f, 0);
- display_flag_aux(row+ 8, col, "ESP Animal:", TR_ESP_ANIMAL, &f, 0);
- display_flag_aux(row+ 9, col, "ESP Orc :", TR_ESP_ORC, &f, 0);
- display_flag_aux(row+10, col, "ESP Troll :", TR_ESP_TROLL, &f, 0);
- display_flag_aux(row+11, col, "ESP Giant :", TR_ESP_GIANT, &f, 0);
-
- display_flag_aux(row+13, col, "Sust Str :", TR_SUST_STR, &f, 0);
- display_flag_aux(row+14, col, "Sust Int :", TR_SUST_INT, &f, 0);
- display_flag_aux(row+15, col, "Sust Wis :", TR_SUST_WIS, &f, 0);
- display_flag_aux(row+16, col, "Sust Dex :", TR_SUST_DEX, &f, 0);
- display_flag_aux(row+17, col, "Sust Con :", TR_SUST_CON, &f, 0);
- display_flag_aux(row+18, col, "Sust Chr :", TR_SUST_CHR, &f, 0);
+ display_player_equippy(row-2, col+13, 0);
+ c_put_str(TERM_WHITE, "abcdefghijkl@", row-1, col+13);
+
+#ifdef JP
+ display_flag_aux(row+ 0, col, "¥Æ¥ì¥Ñ¥·¡¼ :", TR_TELEPATHY, &f, 0);
+ display_flag_aux(row+ 1, col, "¼Ù°ESP :", TR_ESP_EVIL, &f, 0);
+ display_flag_aux(row+ 2, col, "̵À¸ÊªESP :", TR_ESP_NONLIVING, &f, 0);
+ display_flag_aux(row+ 3, col, "Á±ÎÉESP :", TR_ESP_GOOD, &f, 0);
+ display_flag_aux(row+ 4, col, "ÉÔ»àESP :", TR_ESP_UNDEAD, &f, 0);
+ display_flag_aux(row+ 5, col, "°ËâESP :", TR_ESP_DEMON, &f, 0);
+ display_flag_aux(row+ 6, col, "ζESP :", TR_ESP_DRAGON, &f, 0);
+ display_flag_aux(row+ 7, col, "¿Í´ÖESP :", TR_ESP_HUMAN, &f, 0);
+ display_flag_aux(row+ 8, col, "ưʪESP :", TR_ESP_ANIMAL, &f, 0);
+ display_flag_aux(row+ 9, col, "¥ª¡¼¥¯ESP :", TR_ESP_ORC, &f, 0);
+ display_flag_aux(row+10, col, "¥È¥í¥ëESP :", TR_ESP_TROLL, &f, 0);
+ display_flag_aux(row+11, col, "µð¿ÍESP :", TR_ESP_GIANT, &f, 0);
+ display_flag_aux(row+12, col, "¥æ¥Ë¡¼¥¯ESP:", TR_ESP_UNIQUE, &f, 0);
+ display_flag_aux(row+13, col, "ÏÓÎÏ°Ý»ý :", TR_SUST_STR, &f, 0);
+ display_flag_aux(row+14, col, "ÃÎÎÏ°Ý»ý :", TR_SUST_INT, &f, 0);
+ display_flag_aux(row+15, col, "¸¤µ°Ý»ý :", TR_SUST_WIS, &f, 0);
+ display_flag_aux(row+16, col, "´ïÍÑ°Ý»ý :", TR_SUST_DEX, &f, 0);
+ display_flag_aux(row+17, col, "Âѵװݻý :", TR_SUST_CON, &f, 0);
+ display_flag_aux(row+18, col, "Ì¥ÎÏ°Ý»ý :", TR_SUST_CHR, &f, 0);
+#else
+ display_flag_aux(row+ 0, col, "Telepathy :", TR_TELEPATHY, &f, 0);
+ display_flag_aux(row+ 1, col, "ESP Evil :", TR_ESP_EVIL, &f, 0);
+ display_flag_aux(row+ 2, col, "ESP Noliv. :", TR_ESP_NONLIVING, &f, 0);
+ display_flag_aux(row+ 3, col, "ESP Good :", TR_ESP_GOOD, &f, 0);
+ display_flag_aux(row+ 4, col, "ESP Undead :", TR_ESP_UNDEAD, &f, 0);
+ display_flag_aux(row+ 5, col, "ESP Demon :", TR_ESP_DEMON, &f, 0);
+ display_flag_aux(row+ 6, col, "ESP Dragon :", TR_ESP_DRAGON, &f, 0);
+ display_flag_aux(row+ 7, col, "ESP Human :", TR_ESP_HUMAN, &f, 0);
+ display_flag_aux(row+ 8, col, "ESP Animal :", TR_ESP_ANIMAL, &f, 0);
+ display_flag_aux(row+ 9, col, "ESP Orc :", TR_ESP_ORC, &f, 0);
+ display_flag_aux(row+10, col, "ESP Troll :", TR_ESP_TROLL, &f, 0);
+ display_flag_aux(row+11, col, "ESP Giant :", TR_ESP_GIANT, &f, 0);
+ display_flag_aux(row+12, col, "ESP Unique :", TR_ESP_UNIQUE, &f, 0);
+ display_flag_aux(row+13, col, "Sust Str :", TR_SUST_STR, &f, 0);
+ display_flag_aux(row+14, col, "Sust Int :", TR_SUST_INT, &f, 0);
+ display_flag_aux(row+15, col, "Sust Wis :", TR_SUST_WIS, &f, 0);
+ display_flag_aux(row+16, col, "Sust Dex :", TR_SUST_DEX, &f, 0);
+ display_flag_aux(row+17, col, "Sust Con :", TR_SUST_CON, &f, 0);
+ display_flag_aux(row+18, col, "Sust Chr :", TR_SUST_CHR, &f, 0);
#endif
*statmsg = '\0';
- if (p_ptr->is_dead && p_ptr->total_winner)
+ if (p_ptr->is_dead)
{
+ if (p_ptr->total_winner)
+ {
#ifdef JP
- strcpy(statmsg, "¡Ä¤¢¤Ê¤¿¤Ï¾¡Íø¤Î¸å°úÂष¤¿¡£");
+ sprintf(statmsg, "¡Ä¤¢¤Ê¤¿¤Ï¾¡Íø¤Î¸å%s¤·¤¿¡£", streq(p_ptr->died_from, "Seppuku") ? "ÀÚÊ¢" : "°úÂà");
#else
- strcpy(statmsg, "...You retired from the adventure after the winning.");
+ sprintf(statmsg, "...You %s after the winning.", streq(p_ptr->died_from, "Seppuku") ? "did Seppuku" : "retired from the adventure");
#endif
- }
- else if (p_ptr->is_dead)
- {
- if (!dun_level)
+ }
+ else if (!dun_level)
{
#ifdef JP
sprintf(statmsg, "¡Ä¤¢¤Ê¤¿¤Ï%s¤Ç%s¤Ë»¦¤µ¤ì¤¿¡£", map_name(), p_ptr->died_from);
{
/* Get the quest text */
/* Bewere that INIT_ASSIGN resets the cur_num. */
- init_flags = INIT_ASSIGN;
+ init_flags = INIT_NAME_ONLY;
process_dungeon_file("q_info.txt", 0, 0, 0, 0);
quest_text_line = 0;
/* Get the quest text */
- init_flags = INIT_SHOW_TEXT;
+ init_flags = INIT_NAME_ONLY;
process_dungeon_file("q_info.txt", 0, 0, 0, 0);
}
-errr make_character_dump(FILE *fff)
+/*
+ *
+ */
+static void dump_aux_display_player(FILE *fff)
{
- int i, x, y;
- byte a;
- char c;
- cptr paren = ")";
- store_type *st_ptr;
- char o_name[MAX_NLEN];
+ int x, y, i;
+ byte a;
+ char c;
char buf[1024];
- int *quest_num;
- int dummy;
-
-#ifdef JP
- fprintf(fff, " [ÊѶòÈÚÅÜ %d.%d.%d ¥¥ã¥é¥¯¥¿¾ðÊó]\n\n",
- FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
-#else
- fprintf(fff, " [Hengband %d.%d.%d Character Dump]\n\n",
- FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
-#endif
-
- update_playtime();
/* Display player */
display_player(0);
fprintf(fff, "%s\n", buf);
}
- for (i = 0; (unsigned int) i < (p_ptr->count / 80); i++)
- fprintf(fff, " ");
fprintf(fff, "\n");
- for (i = 0; (unsigned int) i < (p_ptr->count % 80); i++)
- fprintf(fff, " ");
+}
+
+
+/*
+ *
+ */
+static void dump_aux_pet(FILE *fff)
+{
+ int i;
+ bool pet = FALSE;
+ bool pet_settings = FALSE;
+ char pet_name[80];
+ for (i = m_max - 1; i >= 1; i--)
{
- bool pet = FALSE;
- char pet_name[80];
+ monster_type *m_ptr = &m_list[i];
- for (i = m_max - 1; i >= 1; i--)
+ if (!m_ptr->r_idx) continue;
+ if (!is_pet(m_ptr)) continue;
+ pet_settings = TRUE;
+ if (!m_ptr->nickname && (p_ptr->riding != i)) continue;
+ if (!pet)
{
- monster_type *m_ptr = &m_list[i];
-
- if (!m_ptr->r_idx) continue;
- if (!is_pet(m_ptr)) continue;
- if (!m_ptr->nickname && (p_ptr->riding != i)) continue;
- if (!pet)
- {
#ifdef JP
- fprintf(fff, "\n [¼ç¤Ê¥Ú¥Ã¥È]\n\n");
+ fprintf(fff, "\n\n [¼ç¤Ê¥Ú¥Ã¥È]\n\n");
#else
- fprintf(fff, "\n [leading pets]\n\n");
+ fprintf(fff, "\n\n [Leading Pets]\n\n");
#endif
- pet = TRUE;
- }
- monster_desc(pet_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
- fprintf(fff, "%s\n", pet_name);
+ pet = TRUE;
}
-
- if (pet) fprintf(fff, "\n");
+ monster_desc(pet_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
+ fprintf(fff, "%s\n", pet_name);
}
+ if (pet_settings)
+ {
+#ifdef JP
+ fprintf(fff, "\n\n [¥Ú¥Ã¥È¤Ø¤ÎÌ¿Îá]\n");
+#else
+ fprintf(fff, "\n\n [Command for Pets]\n");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¥É¥¢¤ò³«¤±¤ë: %s", (p_ptr->pet_extra_flags & PF_OPEN_DOORS) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Pets open doors: %s", (p_ptr->pet_extra_flags & PF_OPEN_DOORS) ? "ON" : "OFF");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¥¢¥¤¥Æ¥à¤ò½¦¤¦: %s", (p_ptr->pet_extra_flags & PF_PICKUP_ITEMS) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Pets pick up items: %s", (p_ptr->pet_extra_flags & PF_PICKUP_ITEMS) ? "ON" : "OFF");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¥Æ¥ì¥Ý¡¼¥È·ÏËâË¡¤ò»È¤¦: %s", (p_ptr->pet_extra_flags & PF_TELEPORT) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Allow teleport: %s", (p_ptr->pet_extra_flags & PF_TELEPORT) ? "ON" : "OFF");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¹¶·âËâË¡¤ò»È¤¦: %s", (p_ptr->pet_extra_flags & PF_ATTACK_SPELL) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Allow cast attack spell: %s", (p_ptr->pet_extra_flags & PF_ATTACK_SPELL) ? "ON" : "OFF");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¾¤´ËâË¡¤ò»È¤¦: %s", (p_ptr->pet_extra_flags & PF_SUMMON_SPELL) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Allow cast summon spell: %s", (p_ptr->pet_extra_flags & PF_SUMMON_SPELL) ? "ON" : "OFF");
+#endif
+
+#ifdef JP
+ fprintf(fff, "\n ¥×¥ì¥¤¥ä¡¼¤ò´¬¤¹þ¤àÈÏ°ÏËâË¡¤ò»È¤¦: %s", (p_ptr->pet_extra_flags & PF_BALL_SPELL) ? "ON" : "OFF");
+#else
+ fprintf(fff, "\n Allow involve player in area spell: %s", (p_ptr->pet_extra_flags & PF_BALL_SPELL) ? "ON" : "OFF");
+#endif
+
+ fputc('\n', fff);
+ }
+}
- if (p_ptr->pclass == CLASS_BLUE_MAGE) {
- int i = 0;
- int j = 0;
- int l1 = 0;
- int l2 = 0;
- int num = 0;
- int spellnum[MAX_MONSPELLS];
- s32b f4 = 0, f5 = 0, f6 = 0;
- char p[60][80];
- int col = 0;
- bool pcol = FALSE;
+/*
+ *
+ */
+static void dump_aux_class_special(FILE *fff)
+{
+ if (p_ptr->pclass == CLASS_BLUE_MAGE)
+ {
+ int i = 0;
+ int j = 0;
+ int l1 = 0;
+ int l2 = 0;
+ int num = 0;
+ int spellnum[MAX_MONSPELLS];
+ s32b f4 = 0, f5 = 0, f6 = 0;
+ char p[60][80];
+ int col = 0;
+ bool pcol = FALSE;
for (i=0;i<60;i++) { p[i][0] = '\0'; }
#ifdef JP
- strcat(p[col], "\n [³Ø½¬ºÑ¤ß¤ÎÀÄËâË¡]\n");
+ strcat(p[col], "\n\n [³Ø½¬ºÑ¤ß¤ÎÀÄËâË¡]\n");
#else
- strcat(p[col], "\n [Learned blue magic]\n");
+ strcat(p[col], "\n\n [Learned Blue Magic]\n");
#endif
#ifdef JP
strcat(p[col], "\n [¥Ü¥ë¥È·¿]\n");
#else
- strcat(p[col], "\n [Bolt type]\n");
+ strcat(p[col], "\n [Bolt Type]\n");
#endif
break;
#ifdef JP
strcat(p[col], "\n [¥Ü¡¼¥ë·¿]\n");
#else
- strcat(p[col], "\n [Ball type]\n");
+ strcat(p[col], "\n [Ball Type]\n");
#endif
break;
#ifdef JP
strcat(p[col], "\n [ ¤½¤Î¾ ]\n");
#else
- strcat(p[col], "\n [Other type]\n");
+ strcat(p[col], "\n [Other Type]\n");
#endif
break;
}
for (i=0;i<=col;i++)
{
- fprintf(fff, p[i]);
+ fputs(p[i], fff);
}
}
+ else if (p_ptr->pclass == CLASS_MAGIC_EATER)
+ {
+ char s[EATER_EXT][MAX_NLEN];
+ int tval, ext, k_idx;
+ int i, magic_num;
- fprintf(fff, "\n");
+#ifdef JP
+ fprintf(fff, "\n\n [¼è¤ê¹þ¤ó¤ÀËâË¡Æ»¶ñ]\n");
+#else
+ fprintf(fff, "\n\n [Magic devices eaten]\n");
+#endif
+
+ for (ext = 0; ext < 3; ext++)
+ {
+ int eat_num = 0;
+
+ /* Dump an extent name */
+ switch (ext)
+ {
+ case 0:
+ tval = TV_STAFF;
+#ifdef JP
+ fprintf(fff, "\n[¾ó]\n");
+#else
+ fprintf(fff, "\n[Staffs]\n");
+#endif
+ break;
+ case 1:
+ tval = TV_WAND;
+#ifdef JP
+ fprintf(fff, "\n[ËâË¡ËÀ]\n");
+#else
+ fprintf(fff, "\n[Wands]\n");
+#endif
+ break;
+ case 2:
+ tval = TV_ROD;
+#ifdef JP
+ fprintf(fff, "\n[¥í¥Ã¥É]\n");
+#else
+ fprintf(fff, "\n[Rods]\n");
+#endif
+ break;
+ }
+
+ /* Get magic device names that were eaten */
+ for (i = 0; i < EATER_EXT; i++)
+ {
+ int idx = EATER_EXT * ext + i;
+
+ magic_num = p_ptr->magic_num2[idx];
+ if (!magic_num) continue;
+
+ k_idx = lookup_kind(tval, i);
+ if (!k_idx) continue;
+ sprintf(s[eat_num], "%23s (%2d)", (k_name + k_info[k_idx].name), magic_num);
+ eat_num++;
+ }
+
+ /* Dump magic devices in this extent */
+ if (eat_num > 0)
+ {
+ for (i = 0; i < eat_num; i++)
+ {
+ fputs(s[i], fff);
+ if (i % 3 < 2) fputs(" ", fff);
+ else fputs("\n", fff);
+ }
+
+ if (i % 3 > 0) fputs("\n", fff);
+ }
+ else /* Not found */
+ {
+#ifdef JP
+ fputs(" (¤Ê¤·)\n", fff);
+#else
+ fputs(" (none)\n", fff);
+#endif
+ }
+ }
+ }
+}
+
+
+/*
+ *
+ */
+static void dump_aux_quest(FILE *fff)
+{
+ int i;
+ int *quest_num;
+ int dummy;
#ifdef JP
- fprintf(fff, "\n [¥¯¥¨¥¹¥È¾ðÊó]\n");
+ fprintf(fff, "\n\n [¥¯¥¨¥¹¥È¾ðÊó]\n");
#else
- fprintf(fff, "\n [Quest information]\n");
+ fprintf(fff, "\n\n [Quest Information]\n");
#endif
/* Allocate Memory */
do_cmd_knowledge_quests_completed(fff, quest_num);
fputc('\n', fff);
do_cmd_knowledge_quests_failed(fff, quest_num);
+ fputc('\n', fff);
/* Free Memory */
C_KILL(quest_num, max_quests, int);
+}
+
+/*
+ *
+ */
+static void dump_aux_last_message(FILE *fff)
+{
if (p_ptr->is_dead)
{
if (!p_ptr->total_winner)
{
+ int i;
+
#ifdef JP
fprintf(fff, "\n [»à¤ÌľÁ°¤Î¥á¥Ã¥»¡¼¥¸]\n\n");
#else
- fprintf(fff, "\n [Last messages]\n\n");
+ fprintf(fff, "\n [Last Messages]\n\n");
#endif
for (i = MIN(message_num(), 30); i >= 0; i--)
{
fprintf(fff,"> %s\n",message_str((s16b)i));
}
- fprintf(fff, "\n");
+ fputc('\n', fff);
}
/* Hack -- *Winning* message */
#ifdef JP
fprintf(fff, "\n [*¾¡Íø*¥á¥Ã¥»¡¼¥¸]\n\n");
#else
- fprintf(fff, "\n [*Winning* message]\n\n");
+ fprintf(fff, "\n [*Winning* Message]\n\n");
#endif
fprintf(fff," %s\n", p_ptr->last_message);
+ fputc('\n', fff);
}
}
+}
-#ifdef JP
- fprintf(fff, "\n [¤½¤Î¾¤Î¾ðÊó]\n");
-#else
- fprintf(fff, "\n [Miscellaneous information]\n");
-#endif
+
+/*
+ *
+ */
+static void dump_aux_recall(FILE *fff)
+{
+ int y;
#ifdef JP
- fprintf(fff, "\n µ¢´Ô¾ì½ê:\n");
+ fprintf(fff, "\n [µ¢´Ô¾ì½ê]\n\n");
#else
- fprintf(fff, "\n Recall Depth:\n");
+ fprintf(fff, "\n [Recall Depth]\n\n");
#endif
+
for (y = 1; y < max_d_idx; y++)
{
bool seiha = FALSE;
fprintf(fff, " %c%-16s: level %3d\n", seiha ? '!' : ' ', d_name+d_info[y].name, max_dlv[y]);
#endif
}
+}
- if (preserve_mode)
-#ifdef JP
- fprintf(fff, "\n Êݸ¥â¡¼¥É: ON");
-#else
- fprintf(fff, "\n Preserve Mode: ON");
-#endif
- else
+/*
+ *
+ */
+static void dump_aux_options(FILE *fff)
+{
#ifdef JP
- fprintf(fff, "\n Êݸ¥â¡¼¥É: OFF");
+ fprintf(fff, "\n [¥ª¥×¥·¥ç¥óÀßÄê]\n");
#else
- fprintf(fff, "\n Preserve Mode: OFF");
+ fprintf(fff, "\n [Option Settings]\n");
#endif
- if (ironman_autoscum)
-#ifdef JP
- fprintf(fff, "\n ¼«Æ°Áª¤ê¹¥¤ß: ALWAYS");
-#else
- fprintf(fff, "\n Autoscum: ALWAYS");
-#endif
-
- else if (auto_scum)
+ if (preserve_mode)
#ifdef JP
- fprintf(fff, "\n ¼«Æ°Áª¤ê¹¥¤ß: ON");
+ fprintf(fff, "\n Êݸ¥â¡¼¥É: ON");
#else
- fprintf(fff, "\n Autoscum: ON");
+ fprintf(fff, "\n Preserve Mode: ON");
#endif
else
#ifdef JP
- fprintf(fff, "\n ¼«Æ°Áª¤ê¹¥¤ß: OFF");
+ fprintf(fff, "\n Êݸ¥â¡¼¥É: OFF");
#else
- fprintf(fff, "\n Autoscum: OFF");
+ fprintf(fff, "\n Preserve Mode: OFF");
#endif
#endif
+ fputc('\n', fff);
+
+ if (p_ptr->noscore)
#ifdef JP
- fprintf(fff, "\n ¥é¥ó¥À¥à¥¯¥¨¥¹¥È¿ô: %d", number_of_quests());
+ fprintf(fff, "\n ²¿¤«ÉÔÀµ¤Ê¤³¤È¤ò¤·¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¡£\n");
#else
- fprintf(fff, "\n Num. Random Quests: %d", number_of_quests());
+ fprintf(fff, "\n You have done something illegal.\n");
#endif
- fprintf(fff, "\n");
-
- if (!lite_town && !vanilla_town)
+ fputc('\n', fff);
+}
+
+
+/*
+ *
+ */
+static void dump_aux_arena(FILE *fff)
+{
+ if (lite_town || vanilla_town) return;
+
+ if (p_ptr->arena_number < 0)
{
- if (p_ptr->arena_number < 0)
+ if (p_ptr->arena_number <= ARENA_DEFEATED_OLD_VER)
{
- if (p_ptr->arena_number <= ARENA_DEFEATED_OLD_VER)
- {
-#ifdef JP
- fprintf(fff, "\n Æ®µ»¾ì: ÇÔËÌ\n");
-#else
- fprintf(fff, "\n Arena: Defeated\n");
-#endif
- }
- else
- {
#ifdef JP
- fprintf(fff, "\n Æ®µ»¾ì: %d²óÀï¤Ç%s¤ÎÁ°¤ËÇÔËÌ\n", -p_ptr->arena_number,
- r_name + r_info[arena_info[-1 - p_ptr->arena_number].r_idx].name);
+ fprintf(fff, "\n Æ®µ»¾ì: ÇÔËÌ\n");
#else
- fprintf(fff, "\n Arena: Defeated by %s in the %d%s fight\n",
- r_name + r_info[arena_info[-1 - p_ptr->arena_number].r_idx].name,
- -p_ptr->arena_number, get_ordinal_number_suffix(-p_ptr->arena_number));
+ fprintf(fff, "\n Arena: Defeated\n");
#endif
- }
}
- else if (p_ptr->arena_number > MAX_ARENA_MONS + 2)
+ else
{
#ifdef JP
- fprintf(fff, "\n Æ®µ»¾ì: ¿¿¤Î¥Á¥ã¥ó¥Ô¥ª¥ó\n");
+ fprintf(fff, "\n Æ®µ»¾ì: %d²óÀï¤Ç%s¤ÎÁ°¤ËÇÔËÌ\n", -p_ptr->arena_number,
+ r_name + r_info[arena_info[-1 - p_ptr->arena_number].r_idx].name);
#else
- fprintf(fff, "\n Arena: True Champion\n");
+ fprintf(fff, "\n Arena: Defeated by %s in the %d%s fight\n",
+ r_name + r_info[arena_info[-1 - p_ptr->arena_number].r_idx].name,
+ -p_ptr->arena_number, get_ordinal_number_suffix(-p_ptr->arena_number));
#endif
}
- else if (p_ptr->arena_number > MAX_ARENA_MONS - 1)
- {
+ }
+ else if (p_ptr->arena_number > MAX_ARENA_MONS + 2)
+ {
#ifdef JP
- fprintf(fff, "\n Æ®µ»¾ì: ¥Á¥ã¥ó¥Ô¥ª¥ó\n");
+ fprintf(fff, "\n Æ®µ»¾ì: ¿¿¤Î¥Á¥ã¥ó¥Ô¥ª¥ó\n");
#else
- fprintf(fff, "\n Arena: Champion\n");
+ fprintf(fff, "\n Arena: True Champion\n");
#endif
- }
- else
- {
+ }
+ else if (p_ptr->arena_number > MAX_ARENA_MONS - 1)
+ {
#ifdef JP
- fprintf(fff, "\n Æ®µ»¾ì: %2d¾¡\n", (p_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : p_ptr->arena_number));
+ fprintf(fff, "\n Æ®µ»¾ì: ¥Á¥ã¥ó¥Ô¥ª¥ó\n");
#else
- fprintf(fff, "\n Arena: %2d Victor%s\n", (p_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : p_ptr->arena_number), (p_ptr->arena_number > 1) ? "ies" : "y");
+ fprintf(fff, "\n Arena: Champion\n");
#endif
- }
}
-
- if (p_ptr->noscore)
+ else
+ {
#ifdef JP
- fprintf(fff, "\n ²¿¤«ÉÔÀµ¤Ê¤³¤È¤ò¤·¤Æ¤·¤Þ¤Ã¤Æ¤Þ¤¹¡£");
+ fprintf(fff, "\n Æ®µ»¾ì: %2d¾¡\n", (p_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : p_ptr->arena_number));
#else
- fprintf(fff, "\n You have done something illegal.");
+ fprintf(fff, "\n Arena: %2d Victor%s\n", (p_ptr->arena_number > MAX_ARENA_MONS ? MAX_ARENA_MONS : p_ptr->arena_number), (p_ptr->arena_number > 1) ? "ies" : "y");
#endif
+ }
+ fprintf(fff, "\n");
+}
- fprintf(fff,"\n");
+/*
+ *
+ */
+static void dump_aux_monsters(FILE *fff)
+{
/* Monsters slain */
+
+ int k;
+ long uniq_total = 0;
+ long norm_total = 0;
+ s16b *who;
+
+ /* Sort by monster level */
+ u16b why = 2;
+
+#ifdef JP
+ fprintf(fff, "\n [Åݤ·¤¿¥â¥ó¥¹¥¿¡¼]\n\n");
+#else
+ fprintf(fff, "\n [Defeated Monsters]\n\n");
+#endif
+
+ /* Allocate the "who" array */
+ C_MAKE(who, max_r_idx, s16b);
+
+ /* Count monster kills */
+ for (k = 1; k < max_r_idx; k++)
{
- int k;
- s32b Total = 0;
+ monster_race *r_ptr = &r_info[k];
- for (k = 1; k < max_r_idx; k++)
- {
- monster_race *r_ptr = &r_info[k];
+ /* Ignore unused index */
+ if (!r_ptr->name) continue;
- if (r_ptr->flags1 & RF1_UNIQUE)
+ /* Unique monsters */
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ {
+ bool dead = (r_ptr->max_num == 0);
+ if (dead)
{
- bool dead = (r_ptr->max_num == 0);
- if (dead)
- {
- Total++;
- }
+ norm_total++;
+
+ /* Add a unique monster to the list */
+ who[uniq_total++] = k;
}
- else
+ }
+
+ /* Normal monsters */
+ else
+ {
+ if (r_ptr->r_pkills > 0)
{
- s16b This = r_ptr->r_pkills;
- if (This > 0)
- {
- Total += This;
- }
+ norm_total += r_ptr->r_pkills;
}
}
+ }
+
+
+ /* No monsters is defeated */
+ if (norm_total < 1)
+ {
+#ifdef JP
+ fprintf(fff,"¤Þ¤ÀŨ¤òÅݤ·¤Æ¤¤¤Þ¤»¤ó¡£\n");
+#else
+ fprintf(fff,"You have defeated no enemies yet.\n");
+#endif
+ }
- if (Total < 1)
+ /* Defeated more than one normal monsters */
+ else if (uniq_total == 0)
+ {
#ifdef JP
- fprintf(fff,"\n ¤Þ¤ÀŨ¤òÅݤ·¤Æ¤¤¤Þ¤»¤ó¡£\n");
+ fprintf(fff,"%ldÂΤÎŨ¤òÅݤ·¤Æ¤¤¤Þ¤¹¡£\n", norm_total);
#else
- fprintf(fff,"\n You have defeated no enemies yet.\n");
+ fprintf(fff,"You have defeated %ld %s.\n", norm_total, norm_total == 1 ? "enemy" : "enemies");
#endif
+ }
- else if (Total == 1)
+ /* Defeated more than one unique monsters */
+ else /* if (uniq_total > 0) */
+ {
#ifdef JP
- fprintf(fff,"\n °ìÂΤÎŨ¤òÅݤ·¤Æ¤¤¤Þ¤¹¡£\n");
+ fprintf(fff, "%ldÂΤΥæ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¤ò´Þ¤à¡¢¹ç·×%ldÂΤÎŨ¤òÅݤ·¤Æ¤¤¤Þ¤¹¡£\n", uniq_total, norm_total);
#else
- fprintf(fff,"\n You have defeated one enemy.\n");
+ fprintf(fff, "You have defeated %ld %s including %ld unique monster%s in total.\n", norm_total, norm_total == 1 ? "enemy" : "enemies", uniq_total, (uniq_total == 1 ? "" : "s"));
#endif
- else
+
+ /* Select the sort method */
+ ang_sort_comp = ang_sort_comp_hook;
+ ang_sort_swap = ang_sort_swap_hook;
+
+ /* Sort the array by dungeon depth of monsters */
+ ang_sort(who, &why, uniq_total);
+
#ifdef JP
- fprintf(fff,"\n %lu ÂΤÎŨ¤òÅݤ·¤Æ¤¤¤Þ¤¹¡£\n", Total);
+ fprintf(fff, "\n¡Ô¾å°Ì%ldÂΤΥæ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¡Õ\n", MIN(uniq_total, 10));
#else
- fprintf(fff,"\n You have defeated %lu enemies.\n", Total);
+ fprintf(fff, "\n< Unique monsters top %ld >\n", MIN(uniq_total, 10));
#endif
+ /* Print top 10 */
+ for (k = uniq_total - 1; k >= 0 && k >= uniq_total - 10; k--)
+ {
+ monster_race *r_ptr = &r_info[who[k]];
+
+#ifdef JP
+ fprintf(fff, " %-40s (¥ì¥Ù¥ë%3d)\n", (r_name + r_ptr->name), r_ptr->level);
+#else
+ fprintf(fff, " %-40s (level %3d)\n", (r_name + r_ptr->name), r_ptr->level);
+#endif
+ }
+
}
+ /* Free the "who" array */
+ C_KILL(who, max_r_idx, s16b);
+}
+
+/*
+ *
+ */
+static void dump_aux_race_history(FILE *fff)
+{
if (p_ptr->old_race1 || p_ptr->old_race2)
{
+ int i;
+
#ifdef JP
fprintf(fff, "\n\n ¤¢¤Ê¤¿¤Ï%s¤È¤·¤ÆÀ¸¤Þ¤ì¤¿¡£", race_info[p_ptr->start_race].title);
#else
fprintf(fff, "\n You were a %s before.", race_info[i].title);
#endif
}
+
+ fputc('\n', fff);
}
+}
+
+/*
+ *
+ */
+static void dump_aux_realm_history(FILE *fff)
+{
if (p_ptr->old_realm)
{
+ int i;
+
+ fputc('\n', fff);
for (i = 0; i < MAX_MAGIC; i++)
{
if (!(p_ptr->old_realm & 1L << i)) continue;
fprintf(fff, "\n You were able to use %s magic before.", realm_names[i+1]);
#endif
}
+ fputc('\n', fff);
}
+}
+
+/*
+ *
+ */
+static void dump_aux_virtues(FILE *fff)
+{
#ifdef JP
fprintf(fff, "\n\n [¥×¥ì¥¤¥ä¡¼¤ÎÆÁ]\n\n");
#else
#else
fprintf(fff, "Your alighnment : %s\n", your_alignment());
#endif
+
fprintf(fff, "\n");
dump_virtues(fff);
+}
+
+/*
+ *
+ */
+static void dump_aux_mutations(FILE *fff)
+{
if (p_ptr->muta1 || p_ptr->muta2 || p_ptr->muta3)
{
#ifdef JP
dump_mutations(fff);
}
+}
- /* Skip some lines */
- fprintf(fff, "\n\n");
-
+/*
+ *
+ */
+static void dump_aux_equipment_inventory(FILE *fff)
+{
+ int i;
+ char o_name[MAX_NLEN];
/* Dump the equipment */
if (equip_cnt)
for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
{
- object_desc(o_name, &inventory[i], TRUE, 3);
- if ((i == INVEN_LARM) && p_ptr->ryoute)
+ object_desc(o_name, &inventory[i], 0);
+ if ((((i == INVEN_RARM) && p_ptr->hidarite) || ((i == INVEN_LARM) && p_ptr->migite)) && p_ptr->ryoute)
#ifdef JP
strcpy(o_name, "(Éð´ï¤òξ¼ê»ý¤Á)");
#else
strcpy(o_name, "(wielding with two-hands)");
#endif
- fprintf(fff, "%c%s %s\n",
- index_to_label(i), paren, o_name);
+
+ fprintf(fff, "%c) %s\n",
+ index_to_label(i), o_name);
}
fprintf(fff, "\n\n");
}
if (!inventory[i].k_idx) break;
/* Dump the inventory slots */
- object_desc(o_name, &inventory[i], TRUE, 3);
- fprintf(fff, "%c%s %s\n", index_to_label(i), paren, o_name);
+ object_desc(o_name, &inventory[i], 0);
+ fprintf(fff, "%c) %s\n", index_to_label(i), o_name);
}
/* Add an empty line */
fprintf(fff, "\n\n");
+}
- process_dungeon_file("w_info.txt", 0, 0, max_wild_y, max_wild_x);
- /* Print all homes in the different towns */
+/*
+ *
+ */
+static void dump_aux_home_museum(FILE *fff)
+{
+ char o_name[MAX_NLEN];
+ store_type *st_ptr;
+
+ /* Do we need it?? */
+ /* process_dungeon_file("w_info.txt", 0, 0, max_wild_y, max_wild_x); */
+
+ /* Print the home */
st_ptr = &town[1].store[STORE_HOME];
/* Home -- if anything there */
if (st_ptr->stock_num)
{
- /* Header with name of the town */
+ int i;
+ int x = 1;
+
#ifdef JP
fprintf(fff, " [²æ¤¬²È¤Î¥¢¥¤¥Æ¥à]\n");
#else
fprintf(fff, " [Home Inventory]\n");
#endif
- x = 1;
/* Dump all available items */
for (i = 0; i < st_ptr->stock_num; i++)
#else
fprintf(fff, "\n ( page %d )\n", x++);
#endif
- object_desc(o_name, &st_ptr->stock[i], TRUE, 3);
- fprintf(fff, "%c%s %s\n", I2A(i%12), paren, o_name);
+ object_desc(o_name, &st_ptr->stock[i], 0);
+ fprintf(fff, "%c) %s\n", I2A(i%12), o_name);
}
/* Add an empty line */
}
- /* Print all homes in the different towns */
+ /* Print the home */
st_ptr = &town[1].store[STORE_MUSEUM];
/* Home -- if anything there */
if (st_ptr->stock_num)
{
- /* Header with name of the town */
+ int i;
+ int x = 1;
+
#ifdef JP
fprintf(fff, " [Çîʪ´Û¤Î¥¢¥¤¥Æ¥à]\n");
#else
fprintf(fff, " [Museum]\n");
#endif
- x = 1;
/* Dump all available items */
for (i = 0; i < st_ptr->stock_num; i++)
{
#ifdef JP
if ((i % 12) == 0) fprintf(fff, "\n ( %d ¥Ú¡¼¥¸ )\n", x++);
- object_desc(o_name, &st_ptr->stock[i], TRUE, 3);
- fprintf(fff, "%c%s %s\n", I2A(i%12), paren, o_name);
+ object_desc(o_name, &st_ptr->stock[i], 0);
+ fprintf(fff, "%c) %s\n", I2A(i%12), o_name);
#else
if ((i % 12) == 0) fprintf(fff, "\n ( page %d )\n", x++);
- object_desc(o_name, &st_ptr->stock[i], TRUE, 3);
- fprintf(fff, "%c%s %s\n", I2A(i%12), paren, o_name);
+ object_desc(o_name, &st_ptr->stock[i], 0);
+ fprintf(fff, "%c) %s\n", I2A(i%12), o_name);
#endif
}
/* Add an empty line */
fprintf(fff, "\n\n");
}
+}
+
+
+/*
+ * Output the character dump to a file
+ */
+errr make_character_dump(FILE *fff)
+{
+#ifdef JP
+ fprintf(fff, " [ÊѶòÈÚÅÜ %d.%d.%d ¥¥ã¥é¥¯¥¿¾ðÊó]\n\n",
+ FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
+#else
+ fprintf(fff, " [Hengband %d.%d.%d Character Dump]\n\n",
+ FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
+#endif
+
+ update_playtime();
+
+ dump_aux_display_player(fff);
+ dump_aux_last_message(fff);
+ dump_aux_options(fff);
+ dump_aux_recall(fff);
+ dump_aux_quest(fff);
+ dump_aux_arena(fff);
+ dump_aux_monsters(fff);
+ dump_aux_virtues(fff);
+ dump_aux_race_history(fff);
+ dump_aux_realm_history(fff);
+ dump_aux_class_special(fff);
+ dump_aux_mutations(fff);
+ dump_aux_pet(fff);
+ fputs("\n\n", fff);
+ dump_aux_equipment_inventory(fff);
+ dump_aux_home_museum(fff);
#ifdef JP
fprintf(fff, " [¥Á¥§¥Ã¥¯¥µ¥à: \"%s\"]\n\n", get_check_sum());
/*
- * Recursive file perusal.
+ * Display single line of on-line help file
*
- * Return FALSE on 'Q', otherwise TRUE.
+ * You can insert some special color tag to change text color.
+ * Such as...
+ * WHITETEXT [[[[y|SOME TEXT WHICH IS DISPLAYED IN YELLOW| WHITETEXT
+ *
+ * A colored segment is between "[[[[y|" and the last "|".
+ * You can use any single character in place of the "|".
+ */
+static void show_file_aux_line(cptr str, int cy, cptr shower)
+{
+ static const char tag_str[] = "[[[[";
+ byte color = TERM_WHITE;
+ char in_tag = '\0';
+ int cx = 0;
+ int i;
+ char lcstr[1024];
+
+ if (shower)
+ {
+ /* Make a lower case version of str for searching */
+ strcpy(lcstr, str);
+ str_tolower(lcstr);
+ }
+
+ /* Initial cursor position */
+ Term_gotoxy(cx, cy);
+
+ for (i = 0; str[i];)
+ {
+ int len = strlen(&str[i]);
+ int showercol = len + 1;
+ int bracketcol = len + 1;
+ int endcol = len;
+ cptr ptr;
+
+ /* Search for a shower string in the line */
+ if (shower)
+ {
+ ptr = my_strstr(&lcstr[i], shower);
+ if (ptr) showercol = ptr - &lcstr[i];
+ }
+
+ /* Search for a color segment tag */
+ ptr = in_tag ? my_strchr(&str[i], in_tag) : my_strstr(&str[i], tag_str);
+ if (ptr) bracketcol = ptr - &str[i];
+
+ /* A color tag is found */
+ if (bracketcol < endcol) endcol = bracketcol;
+
+ /* The shower string is found before the color tag */
+ if (showercol < endcol) endcol = showercol;
+
+ /* Print a segment of the line */
+ Term_addstr(endcol, color, &str[i]);
+ cx += endcol;
+ i += endcol;
+
+ /* Shower string? */
+ if (endcol == showercol)
+ {
+ int showerlen = strlen(shower);
+
+ /* Print the shower string in yellow */
+ Term_addstr(showerlen, TERM_YELLOW, &str[i]);
+ cx += showerlen;
+ i += showerlen;
+ }
+
+ /* Colored segment? */
+ else if (endcol == bracketcol)
+ {
+ if (in_tag)
+ {
+ /* Found the end of colored segment */
+ i++;
+
+ /* Now looking for an another tag_str */
+ in_tag = '\0';
+
+ /* Set back to the default color */
+ color = TERM_WHITE;
+ }
+ else
+ {
+ /* Found a tag_str, and get a tag color */
+ i += sizeof(tag_str)-1;
+
+ /* Get tag color */
+ color = color_char_to_attr(str[i]);
+
+ /* Illegal color tag */
+ if (color == 255 || str[i+1] == '\0')
+ {
+ /* Illegal color tag */
+ color = TERM_WHITE;
+
+ /* Print the broken tag as a string */
+ Term_addstr(-1, TERM_WHITE, tag_str);
+ cx += sizeof(tag_str)-1;
+ }
+ else
+ {
+ /* Skip the color tag */
+ i++;
+
+ /* Now looking for a close tag */
+ in_tag = str[i];
+
+ /* Skip the close-tag-indicator */
+ i++;
+ }
+ }
+ }
+
+ } /* for (i = 0; str[i];) */
+
+ /* Clear rest of line */
+ Term_erase(cx, cy, 255);
+}
+
+
+/*
+ * Recursive file perusal.
*
* Process various special text in the input file, including
* the "menu" structures used by the "help file" system.
*
- * XXX XXX XXX Consider using a temporary file.
- *
- * XXX XXX XXX Allow the user to "save" the current file.
+ * Return FALSE on 'q' to exit from a deep, otherwise TRUE.
*/
bool show_file(bool show_version, cptr name, cptr what, int line, int mode)
{
/* Backup value for "line" */
int back = 0;
- /* Color of the next line */
- byte color = TERM_WHITE;
-
- /* Loop counter */
- int cnt;
-
/* This screen has sub-screens */
bool menu = FALSE;
/* Jump to this tag */
cptr tag = NULL;
- /* Hold a string to find */
- char finder[81];
+ /* Hold strings to find/show */
+ char finder_str[81];
+ char shower_str[81];
+ char back_str[81];
- /* Hold a string to show */
- char shower[81];
+ /* String to show */
+ cptr shower = NULL;
/* Filename */
char filename[1024];
/* General buffer */
char buf[1024];
- /* Lower case version of the buffer, for searching */
- char lc_buf[1024];
-
- /* Aux pointer for making lc_buf (and find!) lowercase */
- cptr lc_buf_ptr;
-
/* Sub-menu information */
char hook[68][32];
rows = hgt - 4;
/* Wipe finder */
- strcpy(finder, "");
+ strcpy(finder_str, "");
/* Wipe shower */
- strcpy(shower, "");
+ strcpy(shower_str, "");
/* Wipe caption */
strcpy(caption, "");
/* Dump the next 20, or rows, lines of the file */
for (i = 0; i < rows; )
{
- int print_x, x;
cptr str = buf;
/* Hack -- track the "first" line */
if (!i) line = next;
/* Get a line of the file or stop */
- if (my_fgets(fff, buf, sizeof(buf))) buf[0] = '\0';
+ if (my_fgets(fff, buf, sizeof(buf))) break;
/* Hack -- skip "special" lines */
if (prefix(buf, "***** ")) continue;
- /* Get a color */
- if (prefix(str, "#####"))
- {
- str += 5;
- if (*str)
- {
- color = color_char_to_attr(*str);
- str++;
- }
- }
- else
- {
- color = TERM_WHITE;
- }
-
/* Count the "real" lines */
next++;
- /* Make a lower case version of str for searching */
- strcpy(lc_buf, str);
-
- for (lc_buf_ptr = lc_buf; *lc_buf_ptr != 0; lc_buf_ptr++)
+ /* Hack -- keep searching */
+ if (find && !i)
{
-#ifdef JP
- if (iskanji(*lc_buf_ptr))
- lc_buf_ptr++;
- else
-#endif
- lc_buf[lc_buf_ptr-lc_buf] = tolower(*lc_buf_ptr);
- }
+ char lc_buf[1024];
- /* Hack -- keep searching */
- if (find && !i && !strstr(lc_buf, find)) continue;
+ /* Make a lower case version of str for searching */
+ strcpy(lc_buf, str);
+ str_tolower(lc_buf);
+
+ if (!my_strstr(lc_buf, find)) continue;
+ }
/* Hack -- stop searching */
find = NULL;
/* Dump the line */
- x = 0;
- print_x = 0;
- while (str[x])
- {
- /* Color ? */
- if (prefix(str + x, "[[[[["))
- {
- byte c;
- x += 5;
+ show_file_aux_line(str, i + 2, shower);
- /* Illigal end of line */
- if (!str[x]) break;
-
- /* Get color attr */
- c = color_char_to_attr(str[x++]);
-
- /* Ok print a colored text */
- while (str[x] && str[x] != ']')
- {
- Term_putch(print_x, i + 2, c, str[x]);
- x++;
- print_x++;
- }
-
- if (str[x] == ']') x++;
- }
- else
- {
- Term_putch(print_x, i + 2, color, str[x]);
- x++;
- print_x++;
- }
- }
+ /* Count the printed lines */
+ i++;
+ }
+ while (i < rows)
+ {
/* Clear rest of line */
- Term_erase(print_x, i + 2, 255);
-
- /* Hilite "shower" */
- if (shower[0])
- {
- cptr s2 = lc_buf;
+ Term_erase(0, i + 2, 255);
- /* Display matches */
- while ((s2 = strstr(s2, shower)) != NULL)
- {
- int len = strlen(shower);
-
- /* Display the match */
- Term_putstr(s2-lc_buf, i+2, len, TERM_YELLOW, &str[s2-lc_buf]);
-
- /* Advance */
- s2 += len;
- }
- }
-
- /* Count the printed lines */
i++;
}
}
/* Get a special key code */
- skey = inkey_special();
+ skey = inkey_special(TRUE);
- /* Show the help for the help */
- if (skey == '?')
+ switch (skey)
{
+ /* Show the help for the help */
+ case '?':
/* Hack - prevent silly recursion */
#ifdef JP
if (strcmp(name, "jhelpinfo.txt") != 0)
if (strcmp(name, "helpinfo.txt") != 0)
show_file(TRUE, "helpinfo.txt", NULL, 0, mode);
#endif
- }
+ break;
/* Hack -- try showing */
- if (skey == '=')
- {
+ case '=':
/* Get "shower" */
#ifdef JP
-prt("¶¯Ä´: ", hgt - 1, 0);
+ prt("¶¯Ä´: ", hgt - 1, 0);
#else
prt("Show: ", hgt - 1, 0);
#endif
- (void)askfor_aux(shower, 80);
- }
+ strcpy(back_str, shower_str);
+ if (askfor(shower_str, 80))
+ {
+ if (shower_str[0])
+ {
+ /* Make it lowercase */
+ str_tolower(shower_str);
+
+ /* Show it */
+ shower = shower_str;
+ }
+ else shower = NULL; /* Stop showing */
+ }
+ else strcpy(shower_str, back_str);
+ break;
/* Hack -- try finding */
- if (skey == '/' || skey == KTRL('s'))
- {
+ case '/':
+ case KTRL('s'):
/* Get "finder" */
#ifdef JP
prt("¸¡º÷: ", hgt - 1, 0);
prt("Find: ", hgt - 1, 0);
#endif
-
- if (askfor_aux(finder, 80))
+ strcpy(back_str, finder_str);
+ if (askfor(finder_str, 80))
{
- /* Find it */
- find = finder;
- back = line;
- line = line + 1;
-
- /* Make finder lowercase */
- for (cnt = 0; finder[cnt] != 0; cnt++)
+ if (finder_str[0])
{
-#ifdef JP
- if (iskanji(finder[cnt]))
- cnt++;
- else
-#endif
- finder[cnt] = tolower(finder[cnt]);
- }
+ /* Find it */
+ find = finder_str;
+ back = line;
+ line = line + 1;
+
+ /* Make finder lowercase */
+ str_tolower(finder_str);
- /* Show it */
- strcpy(shower, finder);
+ /* Show it */
+ shower = finder_str;
+ }
+ else shower = NULL; /* Stop showing */
}
- }
+ else strcpy(finder_str, back_str);
+ break;
/* Hack -- go to a specific line */
- if (skey == '#')
- {
- char tmp[81];
+ case '#':
+ {
+ char tmp[81];
#ifdef JP
-prt("¹Ô: ", hgt - 1, 0);
+ prt("¹Ô: ", hgt - 1, 0);
#else
- prt("Goto Line: ", hgt - 1, 0);
+ prt("Goto Line: ", hgt - 1, 0);
#endif
- strcpy(tmp, "0");
+ strcpy(tmp, "0");
- if (askfor_aux(tmp, 80))
- {
- line = atoi(tmp);
+ if (askfor(tmp, 80)) line = atoi(tmp);
}
- }
+ break;
/* Hack -- go to the top line */
- if (skey == SKEY_TOP)
- {
+ case SKEY_TOP:
line = 0;
- }
+ break;
/* Hack -- go to the bottom line */
- if (skey == SKEY_BOTTOM)
- {
- line = ((size-1)/rows)*rows;
- }
+ case SKEY_BOTTOM:
+ line = ((size - 1) / rows) * rows;
+ break;
/* Hack -- go to a specific file */
- if (skey == '%')
- {
- char tmp[81];
+ case '%':
+ {
+ char tmp[81];
#ifdef JP
-prt("¥Õ¥¡¥¤¥ë¡¦¥Í¡¼¥à: ", hgt - 1, 0);
-strcpy(tmp, "jhelp.hlp");
+ prt("¥Õ¥¡¥¤¥ë¡¦¥Í¡¼¥à: ", hgt - 1, 0);
+ strcpy(tmp, "jhelp.hlp");
#else
- prt("Goto File: ", hgt - 1, 0);
- strcpy(tmp, "help.hlp");
+ prt("Goto File: ", hgt - 1, 0);
+ strcpy(tmp, "help.hlp");
#endif
-
- if (askfor_aux(tmp, 80))
- {
- if (!show_file(TRUE, tmp, NULL, 0, mode)) skey = 'q';
+ if (askfor(tmp, 80))
+ {
+ if (!show_file(TRUE, tmp, NULL, 0, mode)) skey = 'q';
+ }
}
- }
+ break;
/* Allow backing up */
- if (skey == '-' || skey == SKEY_PGUP)
- {
+ case '-':
line = line + (reverse ? rows : -rows);
if (line < 0) line = 0;
- }
+ break;
+
+ /* One page up */
+ case SKEY_PGUP:
+ line = line - rows;
+ if (line < 0) line = 0;
+ break;
/* Advance a single line */
- if ((skey == '\n') || (skey == '\r'))
- {
+ case '\n':
+ case '\r':
line = line + (reverse ? -1 : 1);
if (line < 0) line = 0;
- }
-
+ break;
/* Move up / down */
- if (skey == '8' || skey == SKEY_UP)
- {
+ case '8':
+ case SKEY_UP:
line--;
if (line < 0) line = 0;
- }
+ break;
- if (skey == '2' || skey == SKEY_DOWN) line++;
+ case '2':
+ case SKEY_DOWN:
+ line++;
+ break;
/* Advance one page */
- if (skey == ' ' || skey == SKEY_PGDOWN)
- {
+ case ' ':
line = line + (reverse ? -rows : rows);
- if (line < 0) line = ((size-1)/rows)*rows;
+ if (line < 0) line = 0;
+ break;
+
+ /* One page down */
+ case SKEY_PGDOWN:
+ line = line + rows;
+ break;
}
/* Recurse on numbers */
strcpy (xtmp, "");
#ifdef JP
- if (!get_string("¥Õ¥¡¥¤¥ë̾: ", xtmp, 80))
+ if (!get_string("¥Õ¥¡¥¤¥ë̾: ", xtmp, 80)) continue;
#else
- if (!get_string("File name: ", xtmp, 80))
+ if (!get_string("File name: ", xtmp, 80)) continue;
#endif
- {
- continue;
- }
-
+
/* Close it */
my_fclose(fff);
if (!(fff && ffp))
{
#ifdef JP
-msg_print("¥Õ¥¡¥¤¥ë¤¬³«¤±¤Þ¤»¤ó¡£");
+ msg_print("¥Õ¥¡¥¤¥ë¤ò³«¤±¤Þ¤»¤ó¡£");
#else
msg_print("Failed to open file.");
#endif
-
skey = ESCAPE;
break;
}
- sprintf(xtmp, "%s: %s", player_name, what);
+ sprintf(xtmp, "%s: %s", player_name, what ? what : caption);
my_fputs(ffp, xtmp, 80);
my_fputs(ffp, "\n", 80);
}
/* Return to last screen */
- if (skey == ESCAPE) break;
- if (skey == '<') break;
+ if ((skey == ESCAPE) || (skey == '<')) break;
- /* Exit on escape */
+ /* Exit on the ^q */
+ if (skey == KTRL('q')) skey = 'q';
+
+ /* Exit on the q key */
if (skey == 'q') break;
}
void process_player_name(bool sf)
{
int i, k = 0;
+ char old_player_base[32] = "";
+ if (character_generated) strcpy(old_player_base, player_base);
/* Cannot be too long */
#if defined(MACINTOSH) || defined(MSDOS) || defined(USE_EMX) || defined(AMIGA) || defined(ACORN) || defined(VM)
player_base[k++] = '_';
i += strlen(PATH_SEP);
}
+ /* Convert some characters to underscore */
#ifdef MSDOS
- /* Convert space, dot, and underscore to underscore */
- else if (strchr(". _", c)) player_base[k++] = '_';
+ else if (my_strchr(" \"*+,./:;<=>?[\\]|", c)) player_base[k++] = '_';
+#elif defined(WINDOWS)
+ else if (my_strchr("\"*,/:;<>?\\|", c)) player_base[k++] = '_';
#endif
else if (isprint(c)) player_base[k++] = c;
}
while (1)
{
cptr t;
- t = strstr(s, PATH_SEP);
+ t = my_strstr(s, PATH_SEP);
if (!t)
break;
s = t+1;
/* Build the filename */
path_build(savefile, sizeof(savefile), ANGBAND_DIR_SAVE, temp);
}
+
+ /* Load an autopick preference file */
+ if (character_generated)
+ {
+ if (!streq(old_player_base, player_base)) autopick_load_pref(FALSE);
+ }
}
/* Use the name */
strcpy(player_name, tmp);
}
- else if (0 == strlen(player_name))
+
+ if (0 == strlen(player_name))
{
/* Use default name */
strcpy(player_name, "PLAYER");
{
char buf[1024] = "";
+ do
+ {
+#ifdef JP
+ while (!get_string("*¾¡Íø*¥á¥Ã¥»¡¼¥¸: ", buf, sizeof buf)) ;
+#else
+ while (!get_string("*Winning* message: ", buf, sizeof buf)) ;
+#endif
+ }
#ifdef JP
- while (!get_string("*¾¡Íø*¥á¥Ã¥»¡¼¥¸: ", buf, sizeof buf)) ;
+ while (!get_check_strict("¤è¤í¤·¤¤¤Ç¤¹¤«¡©", CHECK_NO_HISTORY));
#else
- while (!get_string("*Winning* message: ", buf, sizeof buf)) ;
+ while (!get_check_strict("Are you sure? ", CHECK_NO_HISTORY));
#endif
if (buf[0])
(void)strcpy(p_ptr->died_from, "(alive and well)");
#endif
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MON_LITE | PU_DISTANCE);
+ /* HACK -- don't get sanity blast on updating view */
+ hack_mind = FALSE;
/* Update stuff */
update_stuff();
+
+ /* Initialize monster process */
+ mproc_init();
+
+ /* HACK -- reset the hackish flag */
+ hack_mind = TRUE;
}
}
+#define GRAVE_LINE_WIDTH 31
/*
- * Centers a string within a 31 character string -JWT-
+ * Centers a string within a GRAVE_LINE_WIDTH character string -JWT-
*/
static void center_string(char *buf, cptr str)
{
i = strlen(str);
/* Necessary border */
- j = 15 - i / 2;
+ j = GRAVE_LINE_WIDTH / 2 - i / 2;
/* Mega-Hack */
- (void)sprintf(buf, "%*s%s%*s", j, "", str, 31 - i - j, "");
+ (void)sprintf(buf, "%*s%s%*s", j, "", str, GRAVE_LINE_WIDTH - i - j, "");
}
/* Print the text-tombstone */
if (!done)
{
- cptr p;
-
- char tmp[160];
-
- char buf[1024];
-#ifndef JP
- char dummy[80];
+ cptr p;
+ char tmp[160];
+ char buf[1024];
+ char dummy[80];
+ char *t;
+ FILE *fp;
+ time_t ct = time((time_t)0);
+#ifdef JP
+ int extra_line = 0;
#endif
- FILE *fp;
-
- time_t ct = time((time_t)0);
-
-
/* Clear screen */
Term_clear();
path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, "dead.txt");
#endif
-
/* Open the News file */
fp = my_fopen(buf, "r");
my_fclose(fp);
}
-
/* King or Queen */
if (p_ptr->total_winner || (p_ptr->lev > PY_MAX_LEVEL))
{
#ifdef JP
- /* ±ÑÆüÀÚ¤êÂؤ¨ */
- p= "°ÎÂç¤Ê¤ë¼Ô";
+ /* ±ÑÆüÀÚ¤êÂؤ¨ */
+ p= "°ÎÂç¤Ê¤ë¼Ô";
#else
p = "Magnificent";
#endif
-
}
/* Normal */
center_string(buf, p);
put_str(buf, 8, 11);
-
center_string(buf, cp_ptr->title);
-
put_str(buf, 10, 11);
#ifdef JP
-(void)sprintf(tmp, "¥ì¥Ù¥ë: %d", (int)p_ptr->lev);
+ (void)sprintf(tmp, "¥ì¥Ù¥ë: %d", (int)p_ptr->lev);
#else
(void)sprintf(tmp, "Level: %d", (int)p_ptr->lev);
#endif
-
center_string(buf, tmp);
put_str(buf, 11, 11);
#ifdef JP
-(void)sprintf(tmp, "·Ð¸³ÃÍ: %ld", (long)p_ptr->exp);
+ (void)sprintf(tmp, "·Ð¸³ÃÍ: %ld", (long)p_ptr->exp);
#else
(void)sprintf(tmp, "Exp: %ld", (long)p_ptr->exp);
#endif
-
center_string(buf, tmp);
put_str(buf, 12, 11);
#ifdef JP
-(void)sprintf(tmp, "½ê»ý¶â: %ld", (long)p_ptr->au);
+ (void)sprintf(tmp, "½ê»ý¶â: %ld", (long)p_ptr->au);
#else
(void)sprintf(tmp, "AU: %ld", (long)p_ptr->au);
#endif
-
center_string(buf, tmp);
put_str(buf, 13, 11);
#ifdef JP
- /* Êè¤Ë¹ï¤à¸ÀÍÕ¤ò¥ª¥ê¥¸¥Ê¥ë¤è¤êºÙ¤«¤¯É½¼¨ */
- if (streq(p_ptr->died_from, "ÅÓÃ潪λ"))
- {
- strcpy(tmp, "<¼«»¦>");
- }
- else
- {
- if (streq(p_ptr->died_from, "ripe"))
+ /* Êè¤Ë¹ï¤à¸ÀÍÕ¤ò¥ª¥ê¥¸¥Ê¥ë¤è¤êºÙ¤«¤¯É½¼¨ */
+ if (streq(p_ptr->died_from, "ÅÓÃ潪λ"))
+ {
+ strcpy(tmp, "<¼«»¦>");
+ }
+ else if (streq(p_ptr->died_from, "ripe"))
{
strcpy(tmp, "°úÂà¸å¤ËÅ·¼÷¤òÁ´¤¦");
}
}
else
{
- strcpy(tmp, p_ptr->died_from);
- }
- }
- center_string(buf, tmp);
- put_str(buf, 14, 11);
-
- if(!streq(p_ptr->died_from, "ripe") && !streq(p_ptr->died_from, "Seppuku"))
- {
- if( dun_level == 0 )
- {
- cptr town = (p_ptr->town_num ? "³¹" : "¹ÓÌî");
- if(streq(p_ptr->died_from, "ÅÓÃ潪λ"))
- {
- sprintf(tmp, "%s¤Ç»à¤ó¤À", town);
- }
- else
+ roff_to_buf(p_ptr->died_from, GRAVE_LINE_WIDTH + 1, tmp, sizeof tmp);
+ t = tmp + strlen(tmp) + 1;
+ if (*t)
{
- sprintf(tmp, "¤Ë%s¤Ç»¦¤µ¤ì¤¿", town);
+ strcpy(dummy, t); /* 2nd line */
+ if (*(t + strlen(t) + 1)) /* Does 3rd line exist? */
+ {
+ for (t = dummy + strlen(dummy) - 2; iskanji(*(t - 1)); t--) /* Loop */;
+ strcpy(t, "¡Ä");
+ }
+ else if (my_strstr(tmp, "¡Ø") && suffix(dummy, "¡Ù"))
+ {
+ char dummy2[80];
+ char *name_head = my_strstr(tmp, "¡Ø");
+ sprintf(dummy2, "%s%s", name_head, dummy);
+ if (strlen(dummy2) <= GRAVE_LINE_WIDTH)
+ {
+ strcpy(dummy, dummy2);
+ *name_head = '\0';
+ }
+ }
+ else if (my_strstr(tmp, "¡Ö") && suffix(dummy, "¡×"))
+ {
+ char dummy2[80];
+ char *name_head = my_strstr(tmp, "¡Ö");
+ sprintf(dummy2, "%s%s", name_head, dummy);
+ if (strlen(dummy2) <= GRAVE_LINE_WIDTH)
+ {
+ strcpy(dummy, dummy2);
+ *name_head = '\0';
+ }
+ }
+ center_string(buf, dummy);
+ put_str(buf, 15, 11);
+ extra_line = 1;
}
}
- else
+ center_string(buf, tmp);
+ put_str(buf, 14, 11);
+
+ if (!streq(p_ptr->died_from, "ripe") && !streq(p_ptr->died_from, "Seppuku"))
{
- if(streq(p_ptr->died_from, "ÅÓÃ潪λ"))
+ if (dun_level == 0)
{
- sprintf(tmp, "Ãϲ¼ %d ³¬¤Ç»à¤ó¤À", dun_level);
+ cptr town = p_ptr->town_num ? "³¹" : "¹ÓÌî";
+ if (streq(p_ptr->died_from, "ÅÓÃ潪λ"))
+ {
+ sprintf(tmp, "%s¤Ç»à¤ó¤À", town);
+ }
+ else
+ {
+ sprintf(tmp, "¤Ë%s¤Ç»¦¤µ¤ì¤¿", town);
+ }
}
else
{
- sprintf(tmp, "¤ËÃϲ¼ %d ³¬¤Ç»¦¤µ¤ì¤¿", dun_level);
+ if (streq(p_ptr->died_from, "ÅÓÃ潪λ"))
+ {
+ sprintf(tmp, "Ãϲ¼ %d ³¬¤Ç»à¤ó¤À", dun_level);
+ }
+ else
+ {
+ sprintf(tmp, "¤ËÃϲ¼ %d ³¬¤Ç»¦¤µ¤ì¤¿", dun_level);
+ }
}
+ center_string(buf, tmp);
+ put_str(buf, 15 + extra_line, 11);
}
- center_string(buf, tmp);
- put_str(buf, 15, 11);
- }
#else
(void)sprintf(tmp, "Killed on Level %d", dun_level);
center_string(buf, tmp);
put_str(buf, 14, 11);
-
- if (strlen(p_ptr->died_from) > 24)
- {
- strncpy(dummy, p_ptr->died_from, 24);
- dummy[24] = '\0';
- (void)sprintf(tmp, "by %s.", dummy);
- }
- else
- (void)sprintf(tmp, "by %s.", p_ptr->died_from);
-
+ roff_to_buf(format("by %s.", p_ptr->died_from), GRAVE_LINE_WIDTH + 1, tmp, sizeof tmp);
center_string(buf, tmp);
put_str(buf, 15, 11);
+ t = tmp + strlen(tmp) + 1;
+ if (*t)
+ {
+ strcpy(dummy, t); /* 2nd line */
+ if (*(t + strlen(t) + 1)) /* Does 3rd line exist? */
+ {
+ int dummy_len = strlen(dummy);
+ strcpy(dummy + MIN(dummy_len, GRAVE_LINE_WIDTH - 3), "...");
+ }
+ center_string(buf, dummy);
+ put_str(buf, 16, 11);
+ }
#endif
-
-
(void)sprintf(tmp, "%-.24s", ctime(&ct));
center_string(buf, tmp);
put_str(buf, 17, 11);
#ifdef JP
-msg_format("¤µ¤è¤¦¤Ê¤é¡¢%s!", player_name);
+ msg_format("¤µ¤è¤¦¤Ê¤é¡¢%s!", player_name);
#else
msg_format("Goodbye, %s!", player_name);
#endif
-
}
}
strcpy(out_val, "");
/* Ask for filename (or abort) */
- if (!askfor_aux(out_val, 60)) return;
+ if (!askfor(out_val, 60)) return;
/* Return means "show on screen" */
if (!out_val[0]) break;
prt(tmp_val, j+2, 4);
/* Display object description */
- object_desc(o_name, o_ptr, TRUE, 3);
+ object_desc(o_name, o_ptr, 0);
c_put_str(tval_to_attr[o_ptr->tval], o_name, j+2, 7);
}
{
/* If nothing important has happened, just quit */
#ifdef JP
-if (!character_generated || character_saved) quit("¶ÛµÞ»öÂÖ");
+ if (!character_generated || character_saved) quit("¶ÛµÞ»öÂÖ");
#else
if (!character_generated || character_saved) quit("panic");
#endif
-
/* Mega-Hack -- see "msg_print()" */
msg_flag = FALSE;
/* Indicate panic save */
#ifdef JP
-(void)strcpy(p_ptr->died_from, "(¶ÛµÞ¥»¡¼¥Ö)");
+ (void)strcpy(p_ptr->died_from, "(¶ÛµÞ¥»¡¼¥Ö)");
#else
(void)strcpy(p_ptr->died_from, "(panic save)");
#endif
/* Panic save, or get worried */
#ifdef JP
-if (!save_player()) quit("¶ÛµÞ¥»¡¼¥Ö¼ºÇÔ¡ª");
+ if (!save_player()) quit("¶ÛµÞ¥»¡¼¥Ö¼ºÇÔ¡ª");
#else
if (!save_player()) quit("panic save failed!");
#endif
/* Successful panic save */
#ifdef JP
-quit("¶ÛµÞ¥»¡¼¥ÖÀ®¸ù¡ª");
+ quit("¶ÛµÞ¥»¡¼¥ÖÀ®¸ù¡ª");
#else
quit("panic save succeeded!");
#endif
-
}
/*
* Process file for auto picker/destroyer.
*/
-errr process_pickpref_file(cptr name)
+errr process_autopick_file(cptr name)
{
char buf[1024];
/* Build the filename */
path_build(buf, sizeof(buf), ANGBAND_DIR_USER, name);
- err = process_pref_file_aux(buf, PREF_TYPE_PICKPREF);
+ err = process_pref_file_aux(buf, PREF_TYPE_AUTOPICK);
/* Result */
return (err);
/* File type is "DATA" */
FILE_TYPE(FILE_TYPE_DATA);
+ /* Grab permissions */
+ safe_setuid_grab();
+
/* Create a new high score file */
fd = fd_make(buf, 0644);
+
+ /* Drop permissions */
+ safe_setuid_drop();
}
/* Grab permissions */
*/
static void handle_signal_abort(int sig)
{
- int wid, hgt, rows;
+ int wid, hgt;
Term_get_size(&wid, &hgt);
- rows = hgt - 4;
/* Disable handler */
(void)signal(sig, SIG_IGN);
#endif
+#ifdef JP
+ do_cmd_write_nikki(NIKKI_GAMESTART, 0, "----¥²¡¼¥à°Û¾ï½ªÎ»----");
+#else
+ do_cmd_write_nikki(NIKKI_GAMESTART, 0, "---- Panic Save and Abort Game ----");
+#endif
+
/* Flush output */
Term_fresh();