return "¼öʸ";
#else
case TV_HISSATSU_BOOK:
- return "arts";
+ return "art";
case TV_LIFE_BOOK:
return "prayer";
case TV_MUSIC_BOOK:
case 1:
case 2:
case 3:
- teleport_player(10, TRUE);
+ teleport_player(10, TELEPORT_PASSIVE);
break;
case 4:
case 5:
case 6:
- teleport_player(100, TRUE);
+ teleport_player(100, TELEPORT_PASSIVE);
break;
case 7:
case 8:
- teleport_player(200, TRUE);
+ teleport_player(200, TELEPORT_PASSIVE);
break;
case 9:
case 10:
cptr q, s;
+ bool over_exerted = FALSE;
+
/* Require spell ability */
if (!p_ptr->realm1 && (p_ptr->pclass != CLASS_SORCERER) && (p_ptr->pclass != CLASS_RED_MAGE))
{
return;
}
+ /* Hex */
+ if (p_ptr->realm1 == REALM_HEX)
+ {
+ if (hex_spell_fully())
+ {
+ bool flag = FALSE;
+#ifdef JP
+ msg_print("¤³¤ì°Ê¾å¿·¤·¤¤¼öʸ¤ò±Ó¾§¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£");
+#else
+ msg_print("Can not spell new spells more.");
+#endif
+ flush();
+ if (p_ptr->lev >= 35) flag = stop_hex_spell();
+ if (!flag) return;
+ }
+ }
+
if (p_ptr->pclass == CLASS_FORCETRAINER)
{
if (player_has_no_spellbooks())
use_realm = tval2realm(o_ptr->tval);
+ /* Hex */
+ if (use_realm == REALM_HEX)
+ {
+ if (hex_spelling(spell))
+ {
+#ifdef JP
+ msg_print("¤½¤Î¼öʸ¤Ï¤¹¤Ç¤Ë±Ó¾§Ãæ¤À¡£");
+#else
+ msg_print("You are already casting it.");
+#endif
+ return;
+ }
+ }
+
if (!is_magic(use_realm))
{
s_ptr = &technic_info[use_realm - MIN_TECHNIC][spell];
}
-
/* Spell failure chance */
chance = spell_chance(spell, use_realm);
+ /* Sufficient mana */
+ if (need_mana <= p_ptr->csp)
+ {
+ /* Use some mana */
+ p_ptr->csp -= need_mana;
+ }
+ else over_exerted = TRUE;
+
/* Failed spell */
if (randint0(100) < chance)
{
case REALM_CRUSADE:
if (randint1(100) < chance) chg_virtue(V_JUSTICE, -1);
break;
+ case REALM_HEX:
+ if (randint1(100) < chance) chg_virtue(V_COMPASSION, -1);
+ break;
default:
if (randint1(100) < chance) chg_virtue(V_KNOWLEDGE, -1);
break;
chg_virtue(V_NATURE, 1);
chg_virtue(V_HARMONY, 1);
break;
+ case REALM_HEX:
+ chg_virtue(V_JUSTICE, -1);
+ chg_virtue(V_FAITH, -1);
+ chg_virtue(V_HONOUR, -1);
+ chg_virtue(V_COMPASSION, -1);
+ break;
default:
chg_virtue(V_KNOWLEDGE, 1);
break;
if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_NATURE, 1);
if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HARMONY, 1);
break;
+ case REALM_HEX:
+ if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_JUSTICE, -1);
+ if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_FAITH, -1);
+ if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_HONOUR, -1);
+ if (randint1(100 + p_ptr->lev) < need_mana) chg_virtue(V_COMPASSION, -1);
+ break;
}
if (mp_ptr->spell_xtra & MAGIC_GAIN_EXP)
{
/* Take a turn */
energy_use = 100;
- /* Sufficient mana */
- if (need_mana <= p_ptr->csp)
- {
- /* Use some mana */
- p_ptr->csp -= need_mana;
- }
/* Over-exert the player */
- else
+ if(over_exerted)
{
int oops = need_mana;
case REALM_CRUSADE:
chg_virtue(V_JUSTICE, -10);
break;
+ case REALM_HEX:
+ chg_virtue(V_COMPASSION, 10);
+ break;
default:
chg_virtue(V_KNOWLEDGE, -10);
break;
}
-/*
- * Pray a prayer -- Unused in Hengband
- */
-void do_cmd_pray(void)
-{
- msg_print("Praying is not used in Hengband. Use magic spell casting instead.");
-}
-
static bool ang_sort_comp_pet_dismiss(vptr u, vptr v, int a, int b)
{
u16b *who = (u16b*)(u);
return w1 <= w2;
}
+void check_pets_num_and_align(monster_type *m_ptr, bool inc)
+{
+ s32b old_friend_align = friend_align;
+ monster_race *r_ptr = &r_info[m_ptr->r_idx];
+
+ if (inc)
+ {
+ total_friends++;
+ if (r_ptr->flags3 & RF3_GOOD) friend_align += r_ptr->level;
+ if (r_ptr->flags3 & RF3_EVIL) friend_align -= r_ptr->level;
+ }
+ else
+ {
+ total_friends--;
+ if (r_ptr->flags3 & RF3_GOOD) friend_align -= r_ptr->level;
+ if (r_ptr->flags3 & RF3_EVIL) friend_align += r_ptr->level;
+ }
+
+ if (old_friend_align != friend_align) p_ptr->update |= (PU_BONUS);
+}
+
int calculate_upkeep(void)
{
s32b old_friend_align = friend_align;
int m_idx;
bool have_a_unique = FALSE;
+ s32b total_friend_levels = 0;
total_friends = 0;
- total_friend_levels = 0;
friend_align = 0;
for (m_idx = m_max - 1; m_idx >=1; m_idx--)
char m_name[80];
monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
- do_cmd_write_nikki(NIKKI_NAMED_PET, 2, m_name);
+ do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_DISMISS, m_name);
}
if (pet_ctr == p_ptr->riding)
x = px + ddx[dir];
c_ptr = &cave[y][x];
+ if (p_ptr->special_defense & KATA_MUSOU) set_action(ACTION_NONE);
+
if (p_ptr->riding)
{
/* Skip non-empty grids */
#endif
}
+ if (p_ptr->action == ACTION_KAMAE) set_action(ACTION_NONE);
+
p_ptr->riding = c_ptr->m_idx;
/* Hack -- remove tracked monster */
char m_name[80];
monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
- do_cmd_write_nikki(NIKKI_NAMED_PET, 0, m_name);
+ do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_NAME, m_name);
}
}
else
char m_name[80];
monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
- do_cmd_write_nikki(NIKKI_NAMED_PET, 1, m_name);
+ do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_UNNAME, m_name);
}
m_ptr->nickname = 0;
}
int mode = 0;
- byte y = 1, x = 0;
- int ctr = 0;
char buf[160];
char target_buf[160];
+ int menu_line = use_menu ? 1 : 0;
+
num = 0;
#ifdef JP
powers[num++] = PET_DISMISS;
#ifdef JP
- sprintf(target_buf,"¥Ú¥Ã¥È¤Î¥¿¡¼¥²¥Ã¥È¤ò»ØÄê (¸½ºß¡§%s)",
- (pet_t_m_idx ? r_name + r_info[m_list[pet_t_m_idx].r_idx].name : "»ØÄê¤Ê¤·"));
+ sprintf(target_buf, "¥Ú¥Ã¥È¤Î¥¿¡¼¥²¥Ã¥È¤ò»ØÄê (¸½ºß¡§%s)",
+ (pet_t_m_idx ? (p_ptr->image ? "²¿¤«´ñ̯¤Êʪ" : (r_name + r_info[m_list[pet_t_m_idx].ap_r_idx].name)) : "»ØÄê¤Ê¤·"));
#else
- sprintf(target_buf,"specify a target of pet (now:%s)",
- (pet_t_m_idx ? r_name + r_info[m_list[pet_t_m_idx].r_idx].name : "nothing"));
+ sprintf(target_buf, "specify a target of pet (now:%s)",
+ (pet_t_m_idx ? (p_ptr->image ? "something strange" : (r_name + r_info[m_list[pet_t_m_idx].ap_r_idx].name)) : "nothing"));
#endif
power_desc[num] = target_buf;
powers[num++] = PET_TARGET;
#ifdef JP
-power_desc[num] = "¶á¤¯¤Ë¤¤¤í";
+ power_desc[num] = "¶á¤¯¤Ë¤¤¤í";
#else
power_desc[num] = "stay close";
#endif
powers[num++] = PET_FOLLOW_ME;
#ifdef JP
-power_desc[num] = "Ũ¤ò¸«¤Ä¤±¤ÆÅݤ»";
+ power_desc[num] = "Ũ¤ò¸«¤Ä¤±¤ÆÅݤ»";
#else
power_desc[num] = "seek and destroy";
#endif
powers[num++] = PET_SEEK_AND_DESTROY;
#ifdef JP
-power_desc[num] = "¾¯¤·Î¥¤ì¤Æ¤¤¤í";
+ power_desc[num] = "¾¯¤·Î¥¤ì¤Æ¤¤¤í";
#else
power_desc[num] = "give me space";
#endif
powers[num++] = PET_ALLOW_SPACE;
#ifdef JP
-power_desc[num] = "Î¥¤ì¤Æ¤¤¤í";
+ power_desc[num] = "Î¥¤ì¤Æ¤¤¤í";
#else
power_desc[num] = "stay away";
#endif
#else
power_desc[num] = "pets open doors (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "pets open doors (now Off)";
#endif
-
}
powers[num++] = PET_OPEN_DOORS;
#else
power_desc[num] = "pets pick up items (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "pets pick up items (now Off)";
#endif
-
}
powers[num++] = PET_TAKE_ITEMS;
#else
power_desc[num] = "allow teleport (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "allow teleport (now Off)";
#endif
-
}
powers[num++] = PET_TELEPORT;
#else
power_desc[num] = "allow cast attack spell (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "allow cast attack spell (now Off)";
#endif
-
}
powers[num++] = PET_ATTACK_SPELL;
#else
power_desc[num] = "allow cast summon spell (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "allow cast summon spell (now Off)";
#endif
-
}
powers[num++] = PET_SUMMON_SPELL;
#else
power_desc[num] = "allow involve player in area spell (now On)";
#endif
-
}
else
{
#else
power_desc[num] = "allow involve player in area spell (now Off)";
#endif
-
}
powers[num++] = PET_BALL_SPELL;
#else
power_desc[num] = "get off a pet";
#endif
-
}
else
{
#else
power_desc[num] = "ride a pet";
#endif
-
}
powers[num++] = PET_RIDING;
}
}
+#ifdef ALLOW_REPEAT
+ if (!(repeat_pull(&i) && (i >= 0) && (i < num)))
+ {
+#endif /* ALLOW_REPEAT */
+
/* Nothing chosen yet */
flag = FALSE;
- /* Build a prompt (accept all spells) */
- if (num <= 26)
+ /* No redraw yet */
+ redraw = FALSE;
+
+ if (use_menu)
{
- /* Build a prompt (accept all spells) */
+ /* Save the screen */
+ screen_save();
+
+ /* Build a prompt */
#ifdef JP
-strnfmt(out_val, 78, "(¥³¥Þ¥ó¥É %c-%c¡¢'*'=°ìÍ÷¡¢ESC=½ªÎ») ¥³¥Þ¥ó¥É¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤:",
+ strnfmt(out_val, 78, "(¥³¥Þ¥ó¥É¡¢ESC=½ªÎ») ¥³¥Þ¥ó¥É¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤:");
#else
- strnfmt(out_val, 78, "(Command %c-%c, *=List, ESC=exit) Select a command: ",
+ strnfmt(out_val, 78, "(Command, ESC=exit) Choose command from menu.");
#endif
-
- I2A(0), I2A(num - 1));
}
else
{
+ /* Build a prompt */
+ strnfmt(out_val, 78,
#ifdef JP
-strnfmt(out_val, 78, "(¥³¥Þ¥ó¥É %c-%c¡¢'*'=°ìÍ÷¡¢ESC=½ªÎ») ¥³¥Þ¥ó¥É¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤:",
+ "(¥³¥Þ¥ó¥É %c-%c¡¢'*'=°ìÍ÷¡¢ESC=½ªÎ») ¥³¥Þ¥ó¥É¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤:",
#else
- strnfmt(out_val, 78, "(Command %c-%c, *=List, ESC=exit) Select a command: ",
+ "(Command %c-%c, *=List, ESC=exit) Select a command: ",
#endif
-
- I2A(0), '0' + num - 27);
+ I2A(0), I2A(num - 1));
}
- /* Show list */
- redraw = TRUE;
+ choice = (always_show_list || use_menu) ? ESCAPE : 1;
- /* Save the screen */
- Term_save();
+ /* Get a command from the user */
+ while (!flag)
+ {
+ if (choice == ESCAPE) choice = ' ';
+ else if (!get_com(out_val, &choice, TRUE)) break;
- prt("", y++, x);
+ if (use_menu && (choice != ' '))
+ {
+ switch (choice)
+ {
+ case '0':
+ screen_load();
+ return;
+
+ case '8':
+ case 'k':
+ case 'K':
+ menu_line += (num - 1);
+ break;
- while (ctr < num)
- {
- prt(format("%s%c) %s", (ctr == mode) ? "*" : " ", I2A(ctr), power_desc[ctr]), y + ctr, x);
- ctr++;
- }
+ case '2':
+ case 'j':
+ case 'J':
+ menu_line++;
+ break;
- if (ctr < 17)
- {
- prt("", y + ctr, x);
- }
- else
- {
- prt("", y + 17, x);
- }
+ case '4':
+ case 'h':
+ case 'H':
+ menu_line = 1;
+ break;
+
+ case '6':
+ case 'l':
+ case 'L':
+ menu_line = num;
+ break;
+
+ case 'x':
+ case 'X':
+ case '\r':
+ case '\n':
+ i = menu_line - 1;
+ ask = FALSE;
+ break;
+ }
+ if (menu_line > num) menu_line -= num;
+ }
- /* Get a command from the user */
- while (!flag && get_com(out_val, &choice, TRUE))
- {
/* Request redraw */
- if ((choice == ' ') || (choice == '*') || (choice == '?'))
+ if ((choice == ' ') || (choice == '*') || (choice == '?') || (use_menu && ask))
{
/* Show the list */
- if (!redraw)
+ if (!redraw || use_menu)
{
- y = 1;
- x = 0;
- ctr = 0;
+ byte y = 1, x = 0;
+ int ctr = 0;
/* Show list */
redraw = TRUE;
/* Save the screen */
- Term_save();
+ if (!use_menu) screen_save();
prt("", y++, x);
- while (ctr < num)
+ /* Print list */
+ for (ctr = 0; ctr < num; ctr++)
{
- sprintf(buf, "%s%c) %s", (ctr == mode) ? "*" : " ", I2A(ctr), power_desc[ctr]);
+ /* Letter/number for power selection */
+#ifdef JP
+ if (use_menu) sprintf(buf, "%c%s ", (ctr == mode) ? '*' : ' ', (ctr == (menu_line - 1)) ? "¡Õ" : " ");
+#else
+ if (use_menu) sprintf(buf, "%c%s ", (ctr == mode) ? '*' : ' ', (ctr == (menu_line - 1)) ? "> " : " ");
+#endif
+ else sprintf(buf, "%c%c) ", (ctr == mode) ? '*' : ' ', I2A(ctr));
+
+ strcat(buf, power_desc[ctr]);
+
prt(buf, y + ctr, x);
- ctr++;
}
- if (ctr < 17)
- {
- prt("", y + ctr, x);
- }
- else
- {
- prt("", y + 17, x);
- }
+ prt("", y + MIN(ctr, 17), x);
}
/* Hide the list */
redraw = FALSE;
/* Restore the screen */
- Term_load();
+ screen_load();
}
/* Redo asking */
continue;
}
- if (isalpha(choice))
+ if (!use_menu)
{
/* Note verify */
ask = (isupper(choice));
/* Extract request */
i = (islower(choice) ? A2I(choice) : -1);
}
- else
- {
- ask = FALSE; /* Can't uppercase digits */
-
- i = choice - '0' + 26;
- }
/* Totally Illegal */
if ((i < 0) || (i >= num))
strnfmt(buf, 78, "Use %s? ", power_desc[i]);
#endif
-
/* Belay that order */
if (!get_check(buf)) continue;
}
}
/* Restore the screen */
- if (redraw) Term_load();
+ if (redraw) screen_load();
/* Abort if needed */
if (!flag)
return;
}
+#ifdef ALLOW_REPEAT
+ repeat_push(i);
+ }
+#endif /* ALLOW_REPEAT */
+
switch (powers[i])
{
case PET_DISMISS: /* Dismiss pets */