OSDN Git Service

(root) / hengbandforosx / hengbandosx.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
呪いは外れないだけではなく、いろいろイヤな効果がある。
[hengbandforosx/hengbandosx.git] / src / cmd3.c
1 /* File: cmd3.c */
2
3 /* Purpose: Inventory commands */
4
5 /*
6  * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke
7  *
8  * This software may be copied and distributed for educational, research, and
9  * not for profit purposes provided that this copyright and statement are
10  * included in all such copies.
11  */
12
13 #include "angband.h"
14
15
16
17 /*
18  * Display inventory
19  */
20 void do_cmd_inven(void)
21 {
22         char out_val[160];
23
24
25         /* Note that we are in "inventory" mode */
26         command_wrk = FALSE;
27
28 #ifdef ALLOW_EASY_FLOOR
29
30         /* Note that we are in "inventory" mode */
31         if (easy_floor) command_wrk = (USE_INVEN);
32
33 #endif /* ALLOW_EASY_FLOOR */
34
35         /* Save screen */
36         screen_save();
37
38         /* Hack -- show empty slots */
39         item_tester_full = TRUE;
40
41         /* Display the inventory */
42         (void)show_inven(0);
43
44         /* Hack -- hide empty slots */
45         item_tester_full = FALSE;
46
47 #ifdef JP
48         sprintf(out_val, "»ý¤Áʪ¡§ ¹ç·× %3d.%1d kg (¸Â³¦¤Î%ld%%) ¥³¥Þ¥ó¥É: ",
49             lbtokg1(p_ptr->total_weight) , lbtokg2(p_ptr->total_weight) ,
50             (p_ptr->total_weight * 100) / ((adj_str_wgt[p_ptr->stat_ind[A_STR]] * (p_ptr->pclass == CLASS_BERSERKER ? 150 : 100)) 
51 / 2));
52 #else
53         sprintf(out_val, "Inventory: carrying %d.%d pounds (%ld%% of capacity). Command: ",
54             (int)(p_ptr->total_weight / 10), (int)(p_ptr->total_weight % 10),
55             (p_ptr->total_weight * 100) / ((adj_str_wgt[p_ptr->stat_ind[A_STR]] * (p_ptr->pclass == CLASS_BERSERKER ? 150 : 100)) / 2));
56 #endif
57
58
59         /* Get a command */
60         prt(out_val, 0, 0);
61
62         /* Get a new command */
63         command_new = inkey();
64
65         /* Load screen */
66         screen_load();
67
68
69         /* Process "Escape" */
70         if (command_new == ESCAPE)
71         {
72                 int wid, hgt;
73
74                 /* Get size */
75                 Term_get_size(&wid, &hgt);
76
77                 /* Reset stuff */
78                 command_new = 0;
79                 command_gap = wid - 30;
80         }
81
82         /* Process normal keys */
83         else
84         {
85                 /* Hack -- Use "display" mode */
86                 command_see = TRUE;
87         }
88 }
89
90
91 /*
92  * Display equipment
93  */
94 void do_cmd_equip(void)
95 {
96         char out_val[160];
97
98
99         /* Note that we are in "equipment" mode */
100         command_wrk = TRUE;
101
102 #ifdef ALLOW_EASY_FLOOR
103
104         /* Note that we are in "equipment" mode */
105         if (easy_floor) command_wrk = (USE_EQUIP);
106
107 #endif /* ALLOW_EASY_FLOOR  */
108
109         /* Save the screen */
110         screen_save();
111
112         /* Hack -- show empty slots */
113         item_tester_full = TRUE;
114
115         /* Display the equipment */
116         (void)show_equip(0);
117
118         /* Hack -- undo the hack above */
119         item_tester_full = FALSE;
120
121         /* Build a prompt */
122 #ifdef JP
123         sprintf(out_val, "ÁõÈ÷¡§ ¹ç·× %3d.%1d kg (¸Â³¦¤Î%ld%%) ¥³¥Þ¥ó¥É: ",
124             lbtokg1(p_ptr->total_weight) , lbtokg2(p_ptr->total_weight) ,
125             (p_ptr->total_weight * 100) / ((adj_str_wgt[p_ptr->stat_ind[A_STR]] * (p_ptr->pclass == CLASS_BERSERKER ? 150 : 100)) 
126 / 2));
127 #else
128         sprintf(out_val, "Equipment: carrying %d.%d pounds (%ld%% of capacity). Command: ",
129             (int)(p_ptr->total_weight / 10), (int)(p_ptr->total_weight % 10),
130             (p_ptr->total_weight * 100) / ((adj_str_wgt[p_ptr->stat_ind[A_STR]] * (p_ptr->pclass == CLASS_BERSERKER ? 150 : 100)) / 2));
131 #endif
132
133
134         /* Get a command */
135         prt(out_val, 0, 0);
136
137         /* Get a new command */
138         command_new = inkey();
139
140         /* Restore the screen */
141         screen_load();
142
143
144         /* Process "Escape" */
145         if (command_new == ESCAPE)
146         {
147                 int wid, hgt;
148
149                 /* Get size */
150                 Term_get_size(&wid, &hgt);
151
152                 /* Reset stuff */
153                 command_new = 0;
154                 command_gap = wid - 30;
155         }
156
157         /* Process normal keys */
158         else
159         {
160                 /* Enter "display" mode */
161                 command_see = TRUE;
162         }
163 }
164
165
166 /*
167  * The "wearable" tester
168  */
169 static bool item_tester_hook_wear(object_type *o_ptr)
170 {
171         if ((o_ptr->tval == TV_SOFT_ARMOR) && (o_ptr->sval == SV_ABUNAI_MIZUGI))
172                 if (p_ptr->psex == SEX_MALE) return FALSE;
173
174         /* Check for a usable slot */
175         if (wield_slot(o_ptr) >= INVEN_RARM) return (TRUE);
176
177         /* Assume not wearable */
178         return (FALSE);
179 }
180
181
182 static bool item_tester_hook_mochikae(object_type *o_ptr)
183 {
184         /* Check for a usable slot */
185         if (((o_ptr->tval >= TV_DIGGING) && (o_ptr->tval <= TV_SWORD)) ||
186             (o_ptr->tval == TV_SHIELD) || (o_ptr->tval == TV_CAPTURE) ||
187             (o_ptr->tval == TV_CARD)) return (TRUE);
188
189         /* Assume not wearable */
190         return (FALSE);
191 }
192
193
194 static bool item_tester_hook_melee_weapon(object_type *o_ptr)
195 {
196         /* Check for a usable slot */
197         if ((o_ptr->tval >= TV_DIGGING) && (o_ptr->tval <= TV_SWORD))return (TRUE);
198
199         /* Assume not wearable */
200         return (FALSE);
201 }
202
203
204 /*
205  * Wield or wear a single item from the pack or floor
206  */
207 void do_cmd_wield(void)
208 {
209         int i, item, slot;
210
211         object_type forge;
212         object_type *q_ptr;
213
214         object_type *o_ptr;
215
216         cptr act;
217
218         char o_name[MAX_NLEN];
219
220         cptr q, s;
221
222         if (p_ptr->special_defense & KATA_MUSOU)
223         {
224                 set_action(ACTION_NONE);
225         }
226
227         /* Restrict the choices */
228         item_tester_hook = item_tester_hook_wear;
229
230         /* Get an item */
231 #ifdef JP
232         q = "¤É¤ì¤òÁõÈ÷¤·¤Þ¤¹¤«? ";
233         s = "ÁõÈ÷²Äǽ¤Ê¥¢¥¤¥Æ¥à¤¬¤Ê¤¤¡£";
234 #else
235         q = "Wear/Wield which item? ";
236         s = "You have nothing you can wear or wield.";
237 #endif
238
239         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
240
241         /* Get the item (in the pack) */
242         if (item >= 0)
243         {
244                 o_ptr = &inventory[item];
245         }
246
247         /* Get the item (on the floor) */
248         else
249         {
250                 o_ptr = &o_list[0 - item];
251         }
252
253
254         /* Check the slot */
255         slot = wield_slot(o_ptr);
256 #if 1 /* EASY_RING -- TNB */
257
258         if ((o_ptr->tval == TV_RING) && inventory[INVEN_LEFT].k_idx &&
259                 inventory[INVEN_RIGHT].k_idx)
260         {
261                 /* Restrict the choices */
262                 item_tester_tval = TV_RING;
263                 item_tester_no_ryoute = TRUE;
264
265                 /* Choose a ring from the equipment only */
266 #ifdef JP
267 q = "¤É¤Á¤é¤Î»ØÎؤȼè¤êÂؤ¨¤Þ¤¹¤«?";
268 #else
269                 q = "Replace which ring? ";
270 #endif
271
272 #ifdef JP
273 s = "¤ª¤Ã¤È¡£";
274 #else
275                 s = "Oops.";
276 #endif
277
278                 if (!get_item(&slot, q, s, (USE_EQUIP)))
279                         return;
280         }
281
282 #endif /* EASY_RING -- TNB */
283
284         if (((o_ptr->tval == TV_SHIELD) || (o_ptr->tval == TV_CARD) || (o_ptr->tval == TV_CAPTURE)) &&
285                 buki_motteruka(INVEN_RARM) && buki_motteruka(INVEN_LARM))
286         {
287                 /* Restrict the choices */
288                 item_tester_hook = item_tester_hook_melee_weapon;
289                 item_tester_no_ryoute = TRUE;
290
291                 /* Choose a weapon from the equipment only */
292 #ifdef JP
293 q = "¤É¤Á¤é¤ÎÉð´ï¤È¼è¤êÂؤ¨¤Þ¤¹¤«?";
294 #else
295                 q = "Replace which weapon? ";
296 #endif
297
298 #ifdef JP
299 s = "¤ª¤Ã¤È¡£";
300 #else
301                 s = "Oops.";
302 #endif
303
304                 if (!get_item(&slot, q, s, (USE_EQUIP)))
305                         return;
306                 if (slot == INVEN_RARM)
307                 {
308                         object_type *or_ptr = &inventory[INVEN_RARM];
309                         object_type *ol_ptr = &inventory[INVEN_LARM];
310                         object_type *otmp_ptr;
311                         object_type object_tmp;
312                         char ol_name[MAX_NLEN];
313
314                         otmp_ptr = &object_tmp;
315
316                         object_desc(ol_name, ol_ptr, FALSE, 0);
317
318                         object_copy(otmp_ptr, ol_ptr);
319                         object_copy(ol_ptr, or_ptr);
320                         object_copy(or_ptr, otmp_ptr);
321 #ifdef JP
322                         msg_format("%s¤ò±¦¼ê¤Ë¹½¤¨¤Ê¤ª¤·¤¿¡£", ol_name);
323 #else
324                         msg_format("You wield %s at right hand.", ol_name);
325 #endif
326
327                         slot = INVEN_LARM;
328                 }
329         }
330
331         /* ÆóÅáή¤Ë¤¹¤ë¤«¤É¤¦¤« */
332         if ((o_ptr->tval >= TV_DIGGING) && (o_ptr->tval <= TV_SWORD) && (slot == INVEN_LARM))
333         {
334 #ifdef JP
335                 if (!get_check("ÆóÅáή¤ÇÀ襤¤Þ¤¹¤«¡©"))
336 #else
337                 if (!get_check("Dual wielding? "))
338 #endif
339                 {
340                         slot = INVEN_RARM;
341                 }
342         }
343
344         if ((o_ptr->tval >= TV_DIGGING) && (o_ptr->tval <= TV_SWORD) &&
345             inventory[INVEN_LARM].k_idx &&
346                 inventory[INVEN_RARM].k_idx)
347         {
348                 /* Restrict the choices */
349                 item_tester_hook = item_tester_hook_mochikae;
350
351                 /* Choose a ring from the equipment only */
352 #ifdef JP
353 q = "¤É¤Á¤é¤Î¼ê¤ËÁõÈ÷¤·¤Þ¤¹¤«?";
354 #else
355                 q = "Equip which hand? ";
356 #endif
357
358 #ifdef JP
359 s = "¤ª¤Ã¤È¡£";
360 #else
361                 s = "Oops.";
362 #endif
363
364                 if (!get_item(&slot, q, s, (USE_EQUIP)))
365                         return;
366         }
367
368         /* Prevent wielding into a cursed slot */
369         if (cursed_p(&inventory[slot]))
370         {
371                 /* Describe it */
372                 object_desc(o_name, &inventory[slot], FALSE, 0);
373
374                 /* Message */
375 #ifdef JP
376                 msg_format("%s%s¤Ï¼ö¤ï¤ì¤Æ¤¤¤ë¤è¤¦¤À¡£",
377                            describe_use(slot) , o_name );
378 #else
379                 msg_format("The %s you are %s appears to be cursed.",
380                            o_name, describe_use(slot));
381 #endif
382
383
384                 /* Cancel the command */
385                 return;
386         }
387
388         if (cursed_p(o_ptr) && wear_confirm &&
389             (object_known_p(o_ptr) || (o_ptr->ident & IDENT_SENSE)))
390         {
391                 char dummy[MAX_NLEN+80];
392
393                 /* Describe it */
394                 object_desc(o_name, o_ptr, FALSE, 0);
395
396 #ifdef JP
397 sprintf(dummy, "ËÜÅö¤Ë%s{¼ö¤ï¤ì¤Æ¤¤¤ë}¤ò»È¤¤¤Þ¤¹¤«¡©", o_name);
398 #else
399                 sprintf(dummy, "Really use the %s {cursed}? ", o_name);
400 #endif
401
402
403                 if (!get_check(dummy))
404                         return;
405         }
406
407         if ((o_ptr->name1 == ART_STONEMASK) && object_known_p(o_ptr) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID))
408         {
409                 char dummy[MAX_NLEN+80];
410
411                 /* Describe it */
412                 object_desc(o_name, o_ptr, FALSE, 0);
413
414 #ifdef JP
415 sprintf(dummy, "%s¤òÁõÈ÷¤¹¤ë¤ÈµÛ·ìµ´¤Ë¤Ê¤ê¤Þ¤¹¡£¤è¤í¤·¤¤¤Ç¤¹¤«¡©", o_name);
416 #else
417                 msg_format("%s will transforms you into a vampire permanently when equiped.", o_name);
418                 sprintf(dummy, "Do you become a vampire?");
419 #endif
420
421
422                 if (!get_check(dummy))
423                         return;
424         }
425
426         /* Check if completed a quest */
427         for (i = 0; i < max_quests; i++)
428         {
429                 if ((quest[i].type == QUEST_TYPE_FIND_ARTIFACT) &&
430                     (quest[i].status == QUEST_STATUS_TAKEN) &&
431                     (quest[i].k_idx == o_ptr->name1))
432                 {
433                         if (record_fix_quest) do_cmd_write_nikki(NIKKI_FIX_QUEST_C, i, NULL);
434                         quest[i].status = QUEST_STATUS_COMPLETED;
435                         quest[i].complev = (byte)p_ptr->lev;
436 #ifdef JP
437 msg_print("¥¯¥¨¥¹¥È¤òãÀ®¤·¤¿¡ª");
438 #else
439                         msg_print("You completed the quest!");
440 #endif
441
442                         msg_print(NULL);
443                 }
444         }
445
446         if (p_ptr->pseikaku == SEIKAKU_MUNCHKIN) identify_item(o_ptr);
447
448         /* Take a turn */
449         energy_use = 100;
450
451         /* Get local object */
452         q_ptr = &forge;
453
454         /* Obtain local object */
455         object_copy(q_ptr, o_ptr);
456
457         /* Modify quantity */
458         q_ptr->number = 1;
459
460         /* Decrease the item (from the pack) */
461         if (item >= 0)
462         {
463                 inven_item_increase(item, -1);
464                 inven_item_optimize(item);
465         }
466
467         /* Decrease the item (from the floor) */
468         else
469         {
470                 floor_item_increase(0 - item, -1);
471                 floor_item_optimize(0 - item);
472         }
473
474         /* Access the wield slot */
475         o_ptr = &inventory[slot];
476
477         /* Take off existing item */
478         if (o_ptr->k_idx)
479         {
480                 /* Take off existing item */
481                 (void)inven_takeoff(slot, 255);
482         }
483
484         /* Wear the new stuff */
485         object_copy(o_ptr, q_ptr);
486
487         /* Increase the weight */
488         p_ptr->total_weight += q_ptr->weight;
489
490         /* Increment the equip counter by hand */
491         equip_cnt++;
492
493         /* Where is the item now */
494         if (slot == INVEN_RARM)
495         {
496                 if((o_ptr->tval != TV_SHIELD) && (o_ptr->tval != TV_CAPTURE) && (o_ptr->tval != TV_CARD) && (empty_hands(FALSE) & 0x00000001) && ((o_ptr->weight > 99) || (o_ptr->tval == TV_POLEARM)) && (!p_ptr->riding || (p_ptr->pet_extra_flags & PF_RYOUTE)))
497 #ifdef JP
498                         act = "¤òξ¼ê¤Ç¹½¤¨¤¿";
499 #else
500                         act = "You are wielding";
501 #endif
502                 else
503 #ifdef JP
504                         act = (left_hander ? "¤òº¸¼ê¤ËÁõÈ÷¤·¤¿" : "¤ò±¦¼ê¤ËÁõÈ÷¤·¤¿");
505 #else
506                         act = "You are wielding";
507 #endif
508
509         }
510         else if (slot == INVEN_LARM)
511         {
512 #ifdef JP
513                 act = (left_hander ? "¤ò±¦¼ê¤ËÁõÈ÷¤·¤¿" : "¤òº¸¼ê¤ËÁõÈ÷¤·¤¿");
514 #else
515                 act = "You are wielding";
516 #endif
517
518         }
519         else if (slot == INVEN_BOW)
520         {
521 #ifdef JP
522                 act = "¤ò¼Í·âÍѤËÁõÈ÷¤·¤¿";
523 #else
524                 act = "You are shooting with";
525 #endif
526
527         }
528         else if (slot == INVEN_LITE)
529         {
530 #ifdef JP
531                 act = "¤ò¸÷¸»¤Ë¤·¤¿";
532 #else
533                 act = "Your light source is";
534 #endif
535
536         }
537         else
538         {
539 #ifdef JP
540                 act = "¤òÁõÈ÷¤·¤¿";
541 #else
542                 act = "You are wearing";
543 #endif
544
545         }
546
547         /* Describe the result */
548         object_desc(o_name, o_ptr, TRUE, 3);
549
550         /* Message */
551 #ifdef JP
552         msg_format("%s(%c)%s¡£", o_name, index_to_label(slot), act );
553 #else
554         msg_format("%s %s (%c).", act, o_name, index_to_label(slot));
555 #endif
556
557
558         /* Cursed! */
559         if (cursed_p(o_ptr))
560         {
561                 /* Warn the player */
562 #ifdef JP
563                 msg_print("¤¦¤ï¡ª ¤¹¤µ¤Þ¤¸¤¯Î䤿¤¤¡ª");
564 #else
565                 msg_print("Oops! It feels deathly cold!");
566 #endif
567
568
569                 chg_virtue(V_HARMONY, -1);
570
571                 /* Note the curse */
572                 o_ptr->ident |= (IDENT_SENSE);
573         }
574
575         if ((o_ptr->name1 == ART_STONEMASK) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID))
576         {
577                 int h_percent;
578                 if (p_ptr->prace < 32)
579                 {
580                         p_ptr->old_race1 |= 1L << p_ptr->prace;
581                 }
582                 else
583                 {
584                         p_ptr->old_race2 = 1L << (p_ptr->prace-32);
585                 }
586                 p_ptr->prace = RACE_VAMPIRE;
587 #ifdef JP
588                 msg_format("¤¢¤Ê¤¿¤ÏµÛ·ìµ´¤ËÊѲ½¤·¤¿¡ª");
589 #else
590                 msg_format("You polymorphed into a vampire!");
591 #endif
592
593                 rp_ptr = &race_info[p_ptr->prace];
594
595                 /* Experience factor */
596                 p_ptr->expfact = rp_ptr->r_exp + cp_ptr->c_exp;
597
598                 /* Calculate the height/weight for males */
599                 if (p_ptr->psex == SEX_MALE)
600                 {
601                         p_ptr->ht = randnor(rp_ptr->m_b_ht, rp_ptr->m_m_ht);
602                         h_percent = (int)(p_ptr->ht) * 100 / (int)(rp_ptr->m_b_ht);
603                         p_ptr->wt = randnor((int)(rp_ptr->m_b_wt) * h_percent /100
604                                             , (int)(rp_ptr->m_m_wt) * h_percent / 300 );
605                 }
606
607                 /* Calculate the height/weight for females */
608                 else if (p_ptr->psex == SEX_FEMALE)
609                 {
610                         p_ptr->ht = randnor(rp_ptr->f_b_ht, rp_ptr->f_m_ht);
611                         h_percent = (int)(p_ptr->ht) * 100 / (int)(rp_ptr->f_b_ht);
612                         p_ptr->wt = randnor((int)(rp_ptr->f_b_wt) * h_percent /100
613                                             , (int)(rp_ptr->f_m_wt) * h_percent / 300 );
614                 }
615
616                 check_experience();
617
618                 /* Hitdice */
619                 if (p_ptr->pclass == CLASS_SORCERER)
620                         p_ptr->hitdie = rp_ptr->r_mhp/2 + cp_ptr->c_mhp + ap_ptr->a_mhp;
621                 else
622                         p_ptr->hitdie = rp_ptr->r_mhp + cp_ptr->c_mhp + ap_ptr->a_mhp;
623
624                 do_cmd_rerate(FALSE);
625
626                 p_ptr->redraw |= (PR_BASIC);
627
628                 p_ptr->update |= (PU_BONUS);
629
630                 handle_stuff();
631                 lite_spot(py, px);
632         }
633
634         /* Recalculate bonuses */
635         p_ptr->update |= (PU_BONUS);
636
637         /* Recalculate torch */
638         p_ptr->update |= (PU_TORCH);
639
640         /* Recalculate mana */
641         p_ptr->update |= (PU_MANA);
642
643         p_ptr->redraw |= (PR_EQUIPPY);
644
645         /* Window stuff */
646         p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
647
648         calc_android_exp();
649 }
650
651
652 void kamaenaoshi(int item)
653 {
654         object_type *o_ptr, *o2_ptr;
655         char o_name[MAX_NLEN];
656
657         if ((item == INVEN_RARM) && buki_motteruka(INVEN_LARM))
658         {
659                 o_ptr = &inventory[INVEN_RARM];
660                 o2_ptr = &inventory[INVEN_LARM];
661                 object_copy(o_ptr, o2_ptr);
662                 p_ptr->total_weight += o2_ptr->weight;
663                 inven_item_increase(INVEN_LARM,-1);
664                 inven_item_optimize(INVEN_LARM);
665                 object_desc(o_name, o_ptr, TRUE, 3);
666                 if (((o_ptr->weight > 99) || (o_ptr->tval == TV_POLEARM)) && (!p_ptr->riding || (p_ptr->pet_extra_flags & PF_RYOUTE)))
667 #ifdef JP
668                         msg_format("%s¤òξ¼ê¤Ç¹½¤¨¤¿¡£", o_name );
669 #else
670                         msg_format("You are wielding %s with two-handed.", o_name );
671 #endif
672                  else
673 #ifdef JP
674                         msg_format("%s¤ò%s¤Ç¹½¤¨¤¿¡£", o_name, (left_hander ? "º¸¼ê" : "±¦¼ê"));
675 #else
676                         msg_format("You are wielding %s with %s hand.", o_name, (left_hander ? "left":"right") );
677 #endif
678         }
679         else if ((item == INVEN_LARM) && buki_motteruka(INVEN_RARM))
680         {
681                 o_ptr = &inventory[INVEN_RARM];
682                 object_desc(o_name, o_ptr, TRUE, 3);
683                 if (((o_ptr->weight > 99) || (o_ptr->tval == TV_POLEARM)) && (!p_ptr->riding || (p_ptr->pet_extra_flags & PF_RYOUTE)))
684 #ifdef JP
685                         msg_format("%s¤òξ¼ê¤Ç¹½¤¨¤¿¡£", o_name );
686 #else
687                         msg_format("You are wielding %s with two-handed.", o_name );
688 #endif
689         }
690         else if ((item == INVEN_LARM) && !(empty_hands(FALSE) & 0x0002))
691         {
692                 o_ptr = &inventory[INVEN_LARM];
693                 o2_ptr = &inventory[INVEN_RARM];
694                 object_copy(o_ptr, o2_ptr);
695                 p_ptr->total_weight += o2_ptr->weight;
696                 inven_item_increase(INVEN_RARM,-1);
697                 inven_item_optimize(INVEN_RARM);
698                 object_desc(o_name, o_ptr, TRUE, 3);
699 #ifdef JP
700                 msg_format("%s¤ò»ý¤ÁÂؤ¨¤¿¡£", o_name );
701 #else
702                 msg_format("You switched hand of %s.", o_name );
703 #endif
704         }
705 }
706
707
708 /*
709  * Take off an item
710  */
711 void do_cmd_takeoff(void)
712 {
713         int item;
714
715         object_type *o_ptr;
716
717         cptr q, s;
718
719         if (p_ptr->special_defense & KATA_MUSOU)
720         {
721                 set_action(ACTION_NONE);
722         }
723
724         item_tester_no_ryoute = TRUE;
725         /* Get an item */
726 #ifdef JP
727         q = "¤É¤ì¤òÁõÈ÷¤«¤é¤Ï¤º¤·¤Þ¤¹¤«? ";
728         s = "¤Ï¤º¤»¤ëÁõÈ÷¤¬¤Ê¤¤¡£";
729 #else
730         q = "Take off which item? ";
731         s = "You are not wearing anything to take off.";
732 #endif
733
734         if (!get_item(&item, q, s, (USE_EQUIP))) return;
735
736         /* Get the item (in the pack) */
737         if (item >= 0)
738         {
739                 o_ptr = &inventory[item];
740         }
741
742         /* Get the item (on the floor) */
743         else
744         {
745                 o_ptr = &o_list[0 - item];
746         }
747
748
749         /* Item is cursed */
750         if (cursed_p(o_ptr))
751         {
752                 if ((o_ptr->curse_flags & TRC_PERMA_CURSE) || (p_ptr->pclass != CLASS_BERSERKER))
753                 {
754                         /* Oops */
755 #ifdef JP
756                         msg_print("¤Õ¡¼¤à¡¢¤É¤¦¤ä¤é¼ö¤ï¤ì¤Æ¤¤¤ë¤è¤¦¤À¡£");
757 #else
758                         msg_print("Hmmm, it seems to be cursed.");
759 #endif
760
761                         /* Nope */
762                         return;
763                 }
764
765                 if (((o_ptr->curse_flags & TRC_HEAVY_CURSE) && one_in_(7)) || one_in_(4))
766                 {
767 #ifdef JP
768                         msg_print("¼ö¤ï¤ì¤¿ÁõÈ÷¤òÎϤŤ¯¤ÇÇí¤¬¤·¤¿¡ª");
769 #else
770                         msg_print("You teared a cursed equipment off by sheer strength!");
771 #endif
772
773                         /* Hack -- Assume felt */
774                         o_ptr->ident |= (IDENT_SENSE);
775
776                         o_ptr->curse_flags = 0L;
777
778                         /* Take note */
779                         o_ptr->feeling = FEEL_NONE;
780
781                         /* Recalculate the bonuses */
782                         p_ptr->update |= (PU_BONUS);
783
784                         /* Window stuff */
785                         p_ptr->window |= (PW_EQUIP);
786
787 #ifdef JP
788                         msg_print("¼ö¤¤¤òÂǤÁÇˤä¿¡£");
789 #else
790                         msg_print("You break the curse.");
791 #endif
792                 }
793                 else
794                 {
795 #ifdef JP
796                         msg_print("ÁõÈ÷¤ò³°¤»¤Ê¤«¤Ã¤¿¡£");
797 #else
798                         msg_print("You couldn't remove the equipment.");
799 #endif
800                         energy_use = 50;
801                         return;
802                 }
803         }
804
805         /* Take a partial turn */
806         energy_use = 50;
807
808         /* Take off the item */
809         (void)inven_takeoff(item, 255);
810
811         kamaenaoshi(item);
812
813         calc_android_exp();
814
815         p_ptr->redraw |= (PR_EQUIPPY);
816 }
817
818
819 /*
820  * Drop an item
821  */
822 void do_cmd_drop(void)
823 {
824         int item, amt = 1;
825
826         object_type *o_ptr;
827
828         cptr q, s;
829
830         if (p_ptr->special_defense & KATA_MUSOU)
831         {
832                 set_action(ACTION_NONE);
833         }
834
835         item_tester_no_ryoute = TRUE;
836         /* Get an item */
837 #ifdef JP
838         q = "¤É¤Î¥¢¥¤¥Æ¥à¤òÍî¤È¤·¤Þ¤¹¤«? ";
839         s = "Íî¤È¤»¤ë¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Ê¤¤¡£";
840 #else
841         q = "Drop which item? ";
842         s = "You have nothing to drop.";
843 #endif
844
845         if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN))) return;
846
847         /* Get the item (in the pack) */
848         if (item >= 0)
849         {
850                 o_ptr = &inventory[item];
851         }
852
853         /* Get the item (on the floor) */
854         else
855         {
856                 o_ptr = &o_list[0 - item];
857         }
858
859
860         /* Hack -- Cannot remove cursed items */
861         if ((item >= INVEN_RARM) && cursed_p(o_ptr))
862         {
863                 /* Oops */
864 #ifdef JP
865                 msg_print("¤Õ¡¼¤à¡¢¤É¤¦¤ä¤é¼ö¤ï¤ì¤Æ¤¤¤ë¤è¤¦¤À¡£");
866 #else
867                 msg_print("Hmmm, it seems to be cursed.");
868 #endif
869
870
871                 /* Nope */
872                 return;
873         }
874
875
876         /* See how many items */
877         if (o_ptr->number > 1)
878         {
879                 /* Get a quantity */
880                 amt = get_quantity(NULL, o_ptr->number);
881
882                 /* Allow user abort */
883                 if (amt <= 0) return;
884         }
885
886
887         /* Take a partial turn */
888         energy_use = 50;
889
890         /* Drop (some of) the item */
891         inven_drop(item, amt);
892
893         if ((item == INVEN_RARM) || (item == INVEN_LARM)) kamaenaoshi(item);
894
895         if (item >= INVEN_RARM) calc_android_exp();
896
897         p_ptr->redraw |= (PR_EQUIPPY);
898 }
899
900
901 static bool high_level_book(object_type *o_ptr)
902 {
903         if ((o_ptr->tval == TV_LIFE_BOOK) ||
904             (o_ptr->tval == TV_SORCERY_BOOK) ||
905             (o_ptr->tval == TV_NATURE_BOOK) ||
906             (o_ptr->tval == TV_CHAOS_BOOK) ||
907             (o_ptr->tval == TV_DEATH_BOOK) ||
908             (o_ptr->tval == TV_TRUMP_BOOK) ||
909             (o_ptr->tval == TV_ENCHANT_BOOK) ||
910             (o_ptr->tval == TV_DAEMON_BOOK) ||
911             (o_ptr->tval == TV_MUSIC_BOOK))
912         {
913                 if (o_ptr->sval > 1)
914                         return TRUE;
915                 else
916                         return FALSE;
917         }
918
919         return FALSE;
920 }
921
922
923 /*
924  * Destroy an item
925  */
926 void do_cmd_destroy(void)
927 {
928         int                     item, amt = 1;
929         int                     old_number;
930
931         bool            force = FALSE;
932
933         object_type             *o_ptr;
934         object_type             forge;
935         object_type             *q_ptr = &forge;
936
937         char            o_name[MAX_NLEN];
938
939         char            out_val[MAX_NLEN+40];
940
941         cptr q, s;
942
943         if (p_ptr->special_defense & KATA_MUSOU)
944         {
945                 set_action(ACTION_NONE);
946         }
947
948         /* Hack -- force destruction */
949         if (command_arg > 0) force = TRUE;
950
951
952         /* Get an item */
953 #ifdef JP
954         q = "¤É¤Î¥¢¥¤¥Æ¥à¤ò²õ¤·¤Þ¤¹¤«? ";
955         s = "²õ¤»¤ë¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Ê¤¤¡£";
956 #else
957         q = "Destroy which item? ";
958         s = "You have nothing to destroy.";
959 #endif
960
961         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
962
963         /* Get the item (in the pack) */
964         if (item >= 0)
965         {
966                 o_ptr = &inventory[item];
967         }
968
969         /* Get the item (on the floor) */
970         else
971         {
972                 o_ptr = &o_list[0 - item];
973         }
974
975
976         /* See how many items */
977         if (o_ptr->number > 1)
978         {
979                 /* Get a quantity */
980                 amt = get_quantity(NULL, o_ptr->number);
981
982                 /* Allow user abort */
983                 if (amt <= 0) return;
984         }
985
986
987         /* Describe the object */
988         old_number = o_ptr->number;
989         o_ptr->number = amt;
990         object_desc(o_name, o_ptr, TRUE, 3);
991         o_ptr->number = old_number;
992
993         /* Verify unless quantity given */
994         if (!force)
995         {
996                 if (confirm_destroy || (object_value(o_ptr) > 0))
997                 {
998                         /* Make a verification */
999 #ifdef JP
1000                 sprintf(out_val, "ËÜÅö¤Ë%s¤ò²õ¤·¤Þ¤¹¤«? ", o_name);
1001 #else
1002                         sprintf(out_val, "Really destroy %s? ", o_name);
1003 #endif
1004
1005                         if (!get_check(out_val)) return;
1006                 }
1007         }
1008
1009         /* Take a turn */
1010         energy_use = 100;
1011
1012         /* Artifacts cannot be destroyed */
1013         if (artifact_p(o_ptr) || o_ptr->art_name)
1014         {
1015                 byte feel = FEEL_SPECIAL;
1016
1017                 energy_use = 0;
1018
1019                 /* Message */
1020 #ifdef JP
1021                 msg_format("%s¤ÏÇ˲õÉÔ²Äǽ¤À¡£", o_name);
1022 #else
1023                 msg_format("You cannot destroy %s.", o_name);
1024 #endif
1025
1026
1027                 /* Hack -- Handle icky artifacts */
1028                 if (cursed_p(o_ptr) || broken_p(o_ptr)) feel = FEEL_TERRIBLE;
1029
1030                 /* Hack -- inscribe the artifact */
1031                 o_ptr->feeling = feel;
1032
1033                 /* We have "felt" it (again) */
1034                 o_ptr->ident |= (IDENT_SENSE);
1035
1036                 /* Combine the pack */
1037                 p_ptr->notice |= (PN_COMBINE);
1038
1039                 p_ptr->redraw |= (PR_EQUIPPY);
1040
1041                 /* Window stuff */
1042                 p_ptr->window |= (PW_INVEN | PW_EQUIP);
1043
1044                 /* Done */
1045                 return;
1046         }
1047
1048         object_copy(q_ptr, o_ptr);
1049
1050         /* Message */
1051 #ifdef JP
1052         msg_format("%s¤ò²õ¤·¤¿¡£", o_name);
1053 #else
1054         msg_format("You destroy %s.", o_name);
1055 #endif
1056
1057         sound(SOUND_DESTITEM);
1058
1059         /* Reduce the charges of rods/wands */
1060         reduce_charges(o_ptr, amt);
1061
1062         /* Eliminate the item (from the pack) */
1063         if (item >= 0)
1064         {
1065                 inven_item_increase(item, -amt);
1066                 inven_item_describe(item);
1067                 inven_item_optimize(item);
1068         }
1069
1070         /* Eliminate the item (from the floor) */
1071         else
1072         {
1073                 floor_item_increase(0 - item, -amt);
1074                 floor_item_describe(0 - item);
1075                 floor_item_optimize(0 - item);
1076         }
1077
1078         if (high_level_book(q_ptr))
1079         {
1080                 bool gain_expr = FALSE;
1081
1082                 if (p_ptr->prace == RACE_ANDROID)
1083                 {
1084                 }
1085                 else if ((p_ptr->pclass == CLASS_WARRIOR) || (p_ptr->pclass == CLASS_BERSERKER))
1086                 {
1087                         gain_expr = TRUE;
1088                 }
1089                 else if (p_ptr->pclass == CLASS_PALADIN)
1090                 {
1091                         if (p_ptr->realm1 == REALM_LIFE)
1092                         {
1093                                 if (q_ptr->tval != TV_LIFE_BOOK) gain_expr = TRUE;
1094                         }
1095                         else
1096                         {
1097                                 if (q_ptr->tval == TV_LIFE_BOOK) gain_expr = TRUE;
1098                         }
1099                 }
1100
1101                 if (gain_expr && (p_ptr->exp < PY_MAX_EXP))
1102                 {
1103                         s32b tester_exp = p_ptr->max_exp / 20;
1104                         if (tester_exp > 10000) tester_exp = 10000;
1105                         if (q_ptr->sval < 3) tester_exp /= 4;
1106                         if (tester_exp<1) tester_exp = 1;
1107
1108 #ifdef JP
1109 msg_print("¹¹¤Ë·Ð¸³¤òÀѤó¤À¤è¤¦¤Êµ¤¤¬¤¹¤ë¡£");
1110 #else
1111                         msg_print("You feel more experienced.");
1112 #endif
1113
1114                         gain_exp(tester_exp * amt);
1115                 }
1116                 if (high_level_book(q_ptr) && q_ptr->tval == TV_LIFE_BOOK)
1117                 {
1118                         chg_virtue(V_UNLIFE, 1);
1119                         chg_virtue(V_VITALITY, -1);
1120                 }
1121                 else if (high_level_book(q_ptr) && q_ptr->tval == TV_DEATH_BOOK)
1122                 {
1123                         chg_virtue(V_UNLIFE, -1);
1124                         chg_virtue(V_VITALITY, 1);
1125                 }
1126         
1127                 if (q_ptr->to_a || q_ptr->to_h || q_ptr->to_d)
1128                         chg_virtue(V_ENCHANT, -1);
1129         
1130                 if (object_value_real(q_ptr) > 30000)
1131                         chg_virtue(V_SACRIFICE, 2);
1132         
1133                 else if (object_value_real(q_ptr) > 10000)
1134                         chg_virtue(V_SACRIFICE, 1);
1135         }
1136
1137         if (q_ptr->to_a != 0 || q_ptr->to_d != 0 || q_ptr->to_h != 0)
1138                 chg_virtue(V_HARMONY, 1);
1139
1140         if (item >= INVEN_RARM) calc_android_exp();
1141 }
1142
1143
1144 /*
1145  * Observe an item which has been *identify*-ed
1146  */
1147 void do_cmd_observe(void)
1148 {
1149         int                     item;
1150
1151         object_type             *o_ptr;
1152
1153         char            o_name[MAX_NLEN];
1154
1155         cptr q, s;
1156
1157         item_tester_no_ryoute = TRUE;
1158         /* Get an item */
1159 #ifdef JP
1160         q = "¤É¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤Þ¤¹¤«? ";
1161         s = "Ä´¤Ù¤é¤ì¤ë¥¢¥¤¥Æ¥à¤¬¤Ê¤¤¡£";
1162 #else
1163         q = "Examine which item? ";
1164         s = "You have nothing to examine.";
1165 #endif
1166
1167         if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
1168
1169         /* Get the item (in the pack) */
1170         if (item >= 0)
1171         {
1172                 o_ptr = &inventory[item];
1173         }
1174
1175         /* Get the item (on the floor) */
1176         else
1177         {
1178                 o_ptr = &o_list[0 - item];
1179         }
1180
1181
1182         /* Require full knowledge */
1183         if (!(o_ptr->ident & IDENT_MENTAL))
1184         {
1185 #ifdef JP
1186                 msg_print("¤³¤Î¥¢¥¤¥Æ¥à¤Ë¤Ä¤¤¤ÆÆäËÃΤäƤ¤¤ë¤³¤È¤Ï¤Ê¤¤¡£");
1187 #else
1188                 msg_print("You have no special knowledge about that item.");
1189 #endif
1190
1191                 return;
1192         }
1193
1194
1195         /* Description */
1196         object_desc(o_name, o_ptr, TRUE, 3);
1197
1198         /* Describe */
1199 #ifdef JP
1200         msg_format("%s¤òÄ´¤Ù¤Æ¤¤¤ë...", o_name);
1201 #else
1202         msg_format("Examining %s...", o_name);
1203 #endif
1204
1205         /* Describe it fully */
1206 #ifdef JP
1207         if (!identify_fully_aux(o_ptr)) msg_print("ÆäËÊѤï¤Ã¤¿¤È¤³¤í¤Ï¤Ê¤¤¤è¤¦¤À¡£");
1208 #else
1209         if (!identify_fully_aux(o_ptr)) msg_print("You see nothing special.");
1210 #endif
1211
1212 }
1213
1214
1215
1216 /*
1217  * Remove the inscription from an object
1218  * XXX Mention item (when done)?
1219  */
1220 void do_cmd_uninscribe(void)
1221 {
1222         int   item;
1223
1224         object_type *o_ptr;
1225
1226         cptr q, s;
1227
1228         item_tester_no_ryoute = TRUE;
1229         /* Get an item */
1230 #ifdef JP
1231         q = "¤É¤Î¥¢¥¤¥Æ¥à¤ÎÌäò¾Ã¤·¤Þ¤¹¤«? ";
1232         s = "Ìäò¾Ã¤»¤ë¥¢¥¤¥Æ¥à¤¬¤Ê¤¤¡£";
1233 #else
1234         q = "Un-inscribe which item? ";
1235         s = "You have nothing to un-inscribe.";
1236 #endif
1237
1238         if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
1239
1240         /* Get the item (in the pack) */
1241         if (item >= 0)
1242         {
1243                 o_ptr = &inventory[item];
1244         }
1245
1246         /* Get the item (on the floor) */
1247         else
1248         {
1249                 o_ptr = &o_list[0 - item];
1250         }
1251
1252         /* Nothing to remove */
1253         if (!o_ptr->inscription)
1254         {
1255 #ifdef JP
1256                 msg_print("¤³¤Î¥¢¥¤¥Æ¥à¤Ë¤Ï¾Ã¤¹¤Ù¤­Ì䬤ʤ¤¡£");
1257 #else
1258                 msg_print("That item had no inscription to remove.");
1259 #endif
1260
1261                 return;
1262         }
1263
1264         /* Message */
1265 #ifdef JP
1266         msg_print("Ìäò¾Ã¤·¤¿¡£");
1267 #else
1268         msg_print("Inscription removed.");
1269 #endif
1270
1271
1272         /* Remove the incription */
1273         o_ptr->inscription = 0;
1274
1275         /* Combine the pack */
1276         p_ptr->notice |= (PN_COMBINE);
1277
1278         /* Window stuff */
1279         p_ptr->window |= (PW_INVEN | PW_EQUIP);
1280 }
1281
1282 /*
1283  * Auto flag inscribe
1284  */
1285
1286 typedef struct flag_insc_table
1287 {
1288 #ifdef JP
1289         char *japanese;
1290 #endif
1291         char *english;
1292         u32b flag;
1293         int num;
1294         u32b except_flag;
1295 } flag_insc_table;
1296
1297 #ifdef JP
1298 static flag_insc_table flag_insc_plus[] =
1299 {
1300         { "¹¶", "At", TR1_BLOWS, 1, 0 },
1301         { "®", "Sp", TR1_SPEED, 1, 0 },
1302         { "ÏÓ", "St", TR1_STR, 1, 0 },
1303         { "ÃÎ", "In", TR1_INT, 1, 0 },
1304         { "¸­", "Wi", TR1_WIS, 1, 0 },
1305         { "´ï", "Dx", TR1_DEX, 1, 0 },
1306         { "ÂÑ", "Cn", TR1_CON, 1, 0 },
1307         { "̥", "Ch", TR1_CHR, 1, 0 },
1308         { "±£", "Sl", TR1_STEALTH, 1, 0 },
1309         { "õ", "Sr", TR1_SEARCH, 1, 0 },
1310         { "ÀÖ", "If", TR1_INFRA, 1, 0 },
1311         { "·¡", "Dg", TR1_TUNNEL, 1, 0 },
1312         { NULL, 0, 0, 0 }
1313 };
1314
1315 static flag_insc_table flag_insc_immune[] =
1316 {
1317         { "»À", "Ac", TR2_IM_ACID, 2, 0 },
1318         { "ÅÅ", "El", TR2_IM_ELEC, 2, 0 },
1319         { "²Ð", "Fi", TR2_IM_FIRE, 2, 0 },
1320         { "Îä", "Co", TR2_IM_COLD, 2, 0 },
1321         { NULL, 0, 0, 0 }
1322 };
1323
1324 static flag_insc_table flag_insc_resistance[] =
1325 {
1326         { "»À", "Ac", TR2_RES_ACID, 2, TR2_IM_ACID },
1327         { "ÅÅ", "El", TR2_RES_ELEC, 2, TR2_IM_ELEC },
1328         { "²Ð", "Fi", TR2_RES_FIRE, 2, TR2_IM_FIRE },
1329         { "Îä", "Co", TR2_RES_COLD, 2, TR2_IM_COLD },
1330         { "ÆÇ", "Po", TR2_RES_POIS, 2, 0 },
1331         { "Á®", "Li", TR2_RES_LITE, 2, 0 },
1332         { "°Å", "Dk", TR2_RES_DARK, 2, 0 },
1333         { "ÇË", "Sh", TR2_RES_SHARDS, 2, 0 },
1334         { "ÌÕ", "Bl", TR2_RES_BLIND, 2, 0 },
1335         { "Íð", "Cf", TR2_RES_CONF, 2, 0 },
1336         { "¹ì", "So", TR2_RES_SOUND, 2, 0 },
1337         { "¹ö", "Nt", TR2_RES_NETHER, 2, 0 },
1338         { "°ø", "Nx", TR2_RES_NEXUS, 2, 0 },
1339         { "ÆÙ", "Ca", TR2_RES_CHAOS, 2, 0 },
1340         { "Îô", "Di", TR2_RES_DISEN, 2, 0 },
1341         { "¶²", "Fe", TR2_RES_FEAR, 2, 0 },
1342         { NULL, 0, 0, 0 }
1343 };
1344
1345 static flag_insc_table flag_insc_misc[] =
1346 {
1347         { "ËâÎÏ", "Ma", TR3_DEC_MANA, 3, 0 },
1348         { "Åê", "Th", TR2_THROW, 2, 0 },
1349         { "ȿ", "Rf", TR2_REFLECT, 2, 0 },
1350         { "Ëã", "Fa", TR2_FREE_ACT, 2, 0 },
1351         { "»ë", "Si", TR3_SEE_INVIS, 3, 0 },
1352         { "·Ð", "Hl", TR2_HOLD_LIFE, 2, 0 },
1353         { "´¶", "Esp", TR3_TELEPATHY, 3, 0 },
1354         { "ÃÙ", "Sd", TR3_SLOW_DIGEST, 3, 0 },
1355         { "³è", "Rg", TR3_REGEN, 3, 0 },
1356         { "Éâ", "Lv", TR3_FEATHER, 3, 0 },
1357         { "ÌÀ", "Lu", TR3_LITE, 3, 0 },
1358         { "·Ù", "Wr", TR3_WARNING, 3, 0 },
1359         { "ÇÜ", "Xm", TR3_XTRA_MIGHT, 3, 0 },
1360         { "¼Í", "Xs", TR3_XTRA_SHOTS, 3, 0 },
1361         { "ÅÜ", "Ag", TR3_AGGRAVATE, 3, 0 },
1362         { "½Ë", "Bs", TR3_BLESSED, 3, 0 },
1363 #if 0
1364         { "±Ê¼ö", "Pc", TR3_PERMA_CURSE, 3, 0 },
1365         { "¼ö", "Cu", TR3_HEAVY_CURSE, 3, TR3_PERMA_CURSE },
1366         { "´÷", "Ty", TR3_TY_CURSE, 3, 0 },
1367 #endif
1368         { NULL, 0, 0, 0 }
1369 };
1370
1371 static flag_insc_table flag_insc_aura[] =
1372 {
1373         { "±ê", "F", TR3_SH_FIRE, 3, 0 },
1374         { "ÅÅ", "E", TR3_SH_ELEC, 3, 0 },
1375         { "Îä", "C", TR3_SH_COLD, 3, 0 },
1376         { "Ëâ", "M", TR3_NO_MAGIC, 3, 0 },
1377         { "½Ö", "T", TR3_NO_TELE, 3, 0 },
1378         { NULL, 0, 0, 0 }
1379 };
1380
1381 static flag_insc_table flag_insc_brand[] =
1382 {
1383         { "»À", "A", TR1_BRAND_ACID, 1, 0 },
1384         { "ÅÅ", "E", TR1_BRAND_ELEC, 1, 0 },
1385         { "¾Æ", "F", TR1_BRAND_FIRE, 1, 0 },
1386         { "Åà", "Co", TR1_BRAND_COLD, 1, 0 },
1387         { "ÆÇ", "P", TR1_BRAND_POIS, 1, 0 },
1388         { "ÆÙ", "Ca", TR1_CHAOTIC, 1, 0 },
1389         { "µÛ", "V", TR1_VAMPIRIC, 1, 0 },
1390         { "¿Ì", "Q", TR1_IMPACT, 1, 0 },
1391         { "ÀÚ", "S", TR1_VORPAL, 1, 0 },
1392         { "Íý", "M", TR1_FORCE_WEAPON, 1, 0 },
1393         { NULL, NULL, 0, 0, 0 }
1394 };
1395
1396 static flag_insc_table flag_insc_slay[] =
1397 {
1398         { "¼Ù", "*", TR1_SLAY_EVIL, 1, 0 },
1399         { "ζ", "D", TR1_KILL_DRAGON, 1, 0 },
1400         { "ε", "d", TR1_SLAY_DRAGON, 1, TR1_KILL_DRAGON },
1401         { "¥ª", "o", TR1_SLAY_ORC, 1, 0 },
1402         { "¥È", "T", TR1_SLAY_TROLL, 1, 0 },
1403         { "µð", "P", TR1_SLAY_GIANT, 1, 0 },
1404         { "¥Ç", "U", TR1_SLAY_DEMON, 1, 0 },
1405         { "»à", "L", TR1_SLAY_UNDEAD, 1, 0 },
1406         { "ư", "Z", TR1_SLAY_ANIMAL, 1, 0 },
1407         { NULL, NULL, 0, 0, 0 }
1408 };
1409
1410 static flag_insc_table flag_insc_sust[] =
1411 {
1412         { "ÏÓ", "St", TR2_SUST_STR, 2, 0 },
1413         { "ÃÎ", "In", TR2_SUST_INT, 2, 0 },
1414         { "¸­", "Wi", TR2_SUST_WIS, 2, 0 },
1415         { "´ï", "Dx", TR2_SUST_DEX, 2, 0 },
1416         { "ÂÑ", "Cn", TR2_SUST_CON, 2, 0 },
1417         { "̥", "Ch", TR2_SUST_CHR, 2, 0 },
1418         { NULL, NULL, 0, 0, 0 }
1419 };
1420
1421 #else
1422 static flag_insc_table flag_insc_plus[] =
1423 {
1424         { "At", TR1_BLOWS, 1, 0 },
1425         { "Sp", TR1_SPEED, 1, 0 },
1426         { "St", TR1_STR, 1, 0 },
1427         { "In", TR1_INT, 1, 0 },
1428         { "Wi", TR1_WIS, 1, 0 },
1429         { "Dx", TR1_DEX, 1, 0 },
1430         { "Cn", TR1_CON, 1, 0 },
1431         { "Ch", TR1_CHR, 1, 0 },
1432         { "Sl", TR1_STEALTH, 1, 0 },
1433         { "Sr", TR1_SEARCH, 1, 0 },
1434         { "If", TR1_INFRA, 1, 0 },
1435         { "Dg", TR1_TUNNEL, 1, 0 },
1436         { NULL, 0, 0, 0 }
1437 };
1438
1439 static flag_insc_table flag_insc_immune[] =
1440 {
1441         { "Ac", TR2_IM_ACID, 2, 0 },
1442         { "El", TR2_IM_ELEC, 2, 0 },
1443         { "Fi", TR2_IM_FIRE, 2, 0 },
1444         { "Co", TR2_IM_COLD, 2, 0 },
1445         { NULL, 0, 0, 0 }
1446 };
1447
1448 static flag_insc_table flag_insc_resistance[] =
1449 {
1450         { "Ac", TR2_RES_ACID, 2, TR2_IM_ACID },
1451         { "El", TR2_RES_ELEC, 2, TR2_IM_ELEC },
1452         { "Fi", TR2_RES_FIRE, 2, TR2_IM_FIRE },
1453         { "Co", TR2_RES_COLD, 2, TR2_IM_COLD },
1454         { "Po", TR2_RES_POIS, 2, 0 },
1455         { "Li", TR2_RES_LITE, 2, 0 },
1456         { "Dk", TR2_RES_DARK, 2, 0 },
1457         { "Sh", TR2_RES_SHARDS, 2, 0 },
1458         { "Bl", TR2_RES_BLIND, 2, 0 },
1459         { "Cf", TR2_RES_CONF, 2, 0 },
1460         { "So", TR2_RES_SOUND, 2, 0 },
1461         { "Nt", TR2_RES_NETHER, 2, 0 },
1462         { "Nx", TR2_RES_NEXUS, 2, 0 },
1463         { "Ca", TR2_RES_CHAOS, 2, 0 },
1464         { "Di", TR2_RES_DISEN, 2, 0 },
1465         { "Fe", TR2_RES_FEAR, 2, 0 },
1466         { NULL, 0, 0, 0 }
1467 };
1468
1469 static flag_insc_table flag_insc_misc[] =
1470 {
1471         { "Ma", TR3_DEC_MANA, 3, 0 },
1472         { "Th", TR2_THROW, 2, 0 },
1473         { "Rf", TR2_REFLECT, 2, 0 },
1474         { "Fa", TR2_FREE_ACT, 2, 0 },
1475         { "Si", TR3_SEE_INVIS, 3, 0 },
1476         { "Hl", TR2_HOLD_LIFE, 2, 0 },
1477         { "Esp", TR3_TELEPATHY, 3, 0 },
1478         { "Sd", TR3_SLOW_DIGEST, 3, 0 },
1479         { "Rg", TR3_REGEN, 3, 0 },
1480         { "Lv", TR3_FEATHER, 3, 0 },
1481         { "Lu", TR3_LITE, 3, 0 },
1482         { "Wr", TR3_WARNING, 3, 0 },
1483         { "Xm", TR3_XTRA_MIGHT, 3, 0 },
1484         { "Xs", TR3_XTRA_SHOTS, 3, 0 },
1485         { "Ag", TR3_AGGRAVATE, 3, 0 },
1486         { "Bs", TR3_BLESSED, 3, 0 },
1487 #if 0
1488         { "Pc", TR3_PERMA_CURSE, 3, 0 },
1489         { "Cu", TR3_HEAVY_CURSE, 3, TR3_PERMA_CURSE },
1490         { "Ty", TR3_TY_CURSE, 3, 0 },
1491 #endif
1492 #if 0
1493         { "De", TR3_DRAIN_EXP, 3, 0 },
1494 #endif
1495         { NULL, 0, 0, 0 }
1496 };
1497
1498 static flag_insc_table flag_insc_aura[] =
1499 {
1500         { "F", TR3_SH_FIRE, 3, 0 },
1501         { "E", TR3_SH_ELEC, 3, 0 },
1502         { "C", TR3_SH_COLD, 3, 0 },
1503         { "M", TR3_NO_MAGIC, 3, 0 },
1504         { "T", TR3_NO_TELE, 3, 0 },
1505         { NULL, 0, 0, 0 }
1506 };
1507
1508 static flag_insc_table flag_insc_brand[] =
1509 {
1510         { "A", TR1_BRAND_ACID, 1, 0 },
1511         { "E", TR1_BRAND_ELEC, 1, 0 },
1512         { "F", TR1_BRAND_FIRE, 1, 0 },
1513         { "Co", TR1_BRAND_COLD, 1, 0 },
1514         { "P", TR1_BRAND_POIS, 1, 0 },
1515         { "Ca", TR1_CHAOTIC, 1, 0 },
1516         { "V", TR1_VAMPIRIC, 1, 0 },
1517         { "Q", TR1_IMPACT, 1, 0 },
1518         { "S", TR1_VORPAL, 1, 0 },
1519         { "M", TR1_FORCE_WEAPON, 1, 0 },
1520         { NULL, 0, 0, 0 }
1521 };
1522
1523 static flag_insc_table flag_insc_slay[] =
1524 {
1525         { "*", TR1_SLAY_EVIL, 1, 0 },
1526         { "D", TR1_KILL_DRAGON, 1, 0 },
1527         { "d", TR1_SLAY_DRAGON, 1, TR1_KILL_DRAGON },
1528         { "o", TR1_SLAY_ORC, 1, 0 },
1529         { "T", TR1_SLAY_TROLL, 1, 0 },
1530         { "P", TR1_SLAY_GIANT, 1, 0 },
1531         { "U", TR1_SLAY_DEMON, 1, 0 },
1532         { "L", TR1_SLAY_UNDEAD, 1, 0 },
1533         { "Z", TR1_SLAY_ANIMAL, 1, 0 },
1534         { NULL, 0, 0, 0 }
1535 };
1536
1537 static flag_insc_table flag_insc_sust[] =
1538 {
1539         { "St", TR2_SUST_STR, 2, 0 },
1540         { "In", TR2_SUST_INT, 2, 0 },
1541         { "Wi", TR2_SUST_WIS, 2, 0 },
1542         { "Dx", TR2_SUST_DEX, 2, 0 },
1543         { "Cn", TR2_SUST_CON, 2, 0 },
1544         { "Ch", TR2_SUST_CHR, 2, 0 },
1545         { NULL, 0, 0, 0 }
1546 };
1547 #endif
1548
1549 #define ADD_INSC(STR) (void)(strcat(ptr, (STR)), ptr += strlen(STR))
1550
1551 static char *inscribe_flags_aux(flag_insc_table *f_ptr, u32b flag[], bool kanji, char *ptr)
1552 {
1553         while (f_ptr->num)
1554         {
1555                 if ((flag[f_ptr->num-1] & f_ptr->flag) &&
1556                     !(flag[f_ptr->num-1] & f_ptr->except_flag))
1557 #ifdef JP
1558                         ADD_INSC(kanji ? f_ptr->japanese : f_ptr->english);
1559 #else
1560                         ADD_INSC(f_ptr->english);
1561 #endif
1562                 f_ptr ++;
1563         }
1564
1565         return ptr;
1566 }
1567
1568 static bool have_flag_of(flag_insc_table *f_ptr, u32b flag[])
1569 {
1570         while (f_ptr->num)
1571         {
1572                 if ((flag[f_ptr->num-1] & f_ptr->flag) &&
1573                     !(flag[f_ptr->num-1] & f_ptr->except_flag))
1574                         return (TRUE);
1575                 f_ptr++;
1576         }
1577
1578         return (FALSE);
1579 }
1580
1581 s16b inscribe_flags(object_type *o_ptr, cptr out_val)
1582 {
1583         char buff[1024];
1584         char *ptr = buff;
1585         char *prev_ptr = buff;
1586         int i;
1587
1588         bool kanji = FALSE;
1589         bool all = TRUE;
1590         u32b flag[3];
1591
1592         /* not fully identified */
1593         if (!(o_ptr->ident & IDENT_MENTAL))
1594                 return quark_add(out_val);
1595
1596         /* Extract the flags */
1597         object_flags(o_ptr, &flag[0], &flag[1], &flag[2]);
1598
1599
1600         *buff = '\0';
1601         for (i = 0; out_val[i]; i++)
1602         {
1603                 if ('%' == out_val[i] )
1604                 {
1605                         cptr start_percent = ptr;
1606 #ifdef JP
1607                         if ('%' == out_val[i+1])
1608                         {
1609                                 i++;
1610                                 kanji = FALSE;
1611                         }
1612                         else
1613                         {
1614                                 kanji = TRUE;
1615                         }
1616 #endif
1617                         if ('a' == out_val[i+1] && 'l' == out_val[i+2] && 'l' == out_val[i+3])
1618                         {
1619                                 all = TRUE;
1620                                 i += 3;
1621                         }
1622                         else
1623                         {
1624                                 all = FALSE;
1625                         }
1626
1627                         /* check for too long inscription */
1628                         if (ptr >= buff + MAX_NLEN) continue;
1629
1630                         /* Remove obvious flags */
1631                         if (!all)
1632                         {
1633                                 object_kind *k_ptr = &k_info[o_ptr->k_idx];
1634                                 
1635                                 /* Base object */
1636                                 flag[0] &= ~k_ptr->flags1;
1637                                 flag[1] &= ~k_ptr->flags2;
1638                                 flag[2] &= ~k_ptr->flags3;
1639
1640                                 if (o_ptr->name1)
1641                                 {
1642                                         artifact_type *a_ptr = &a_info[o_ptr->name1];
1643                                         
1644                                         flag[0] &= ~a_ptr->flags1;
1645                                         flag[1] &= ~a_ptr->flags2;
1646                                         flag[2] &= ~(a_ptr->flags3 & ~TR3_TELEPORT);
1647                                 }
1648
1649                                 if (o_ptr->name2)
1650                                 {
1651                                         ego_item_type *e_ptr = &e_info[o_ptr->name2];
1652                                         
1653                                         flag[0] &= ~e_ptr->flags1;
1654                                         flag[1] &= ~e_ptr->flags2;
1655                                         flag[2] &= ~(e_ptr->flags3 & ~TR3_TELEPORT);
1656                                 }
1657                         }
1658
1659
1660                         /* Plusses */
1661                         if (have_flag_of(flag_insc_plus, flag))
1662                         {
1663                                 if (kanji)
1664                                         ADD_INSC("+");
1665                         }
1666                         ptr = inscribe_flags_aux(flag_insc_plus, flag, kanji, ptr);
1667
1668                         /* Immunity */
1669                         if (have_flag_of(flag_insc_immune, flag))
1670                         {
1671                                 if (!kanji && ptr != prev_ptr)
1672                                 {
1673                                         ADD_INSC(";");
1674                                         prev_ptr = ptr;
1675                                 }
1676                                 ADD_INSC("*");
1677                         }
1678                         ptr = inscribe_flags_aux(flag_insc_immune, flag, kanji, ptr);
1679
1680                         /* Resistance */
1681                         if (have_flag_of(flag_insc_resistance, flag))
1682                         {
1683                                 if (kanji)
1684                                         ADD_INSC("r");
1685                                 else if (ptr != prev_ptr)
1686                                 {
1687                                         ADD_INSC(";");
1688                                         prev_ptr = ptr;
1689                                 }
1690                         }
1691                         ptr = inscribe_flags_aux(flag_insc_resistance, flag, kanji, ptr);
1692
1693                         /* Misc Ability */
1694                         if (have_flag_of(flag_insc_misc, flag))
1695                         {
1696                                 if (ptr != prev_ptr)
1697                                 {
1698                                         ADD_INSC(";");
1699                                         prev_ptr = ptr;
1700                                 }
1701                         }
1702                         ptr = inscribe_flags_aux(flag_insc_misc, flag, kanji, ptr);
1703
1704                         /* Aura */
1705                         if (have_flag_of(flag_insc_aura, flag))
1706                         {
1707                                 ADD_INSC("[");
1708                         }
1709                         ptr = inscribe_flags_aux(flag_insc_aura, flag, kanji, ptr);
1710
1711                         /* Brand Weapon */
1712                         if (have_flag_of(flag_insc_brand, flag))
1713                                 ADD_INSC("|");
1714                         ptr = inscribe_flags_aux(flag_insc_brand, flag, kanji, ptr);
1715
1716                         /* Slay Weapon */
1717                         if (have_flag_of(flag_insc_slay, flag))
1718                                 ADD_INSC("/");
1719                         ptr = inscribe_flags_aux(flag_insc_slay, flag, kanji, ptr);
1720
1721                         /* Random Teleport */
1722                         if (flag[2] & (TR3_TELEPORT))
1723                         {
1724                                 ADD_INSC(".");
1725                         }
1726
1727                         /* sustain */
1728                         if (have_flag_of(flag_insc_sust, flag))
1729                         {
1730                                 ADD_INSC("(");
1731                         }
1732                         ptr = inscribe_flags_aux(flag_insc_sust, flag, kanji, ptr);
1733
1734                         if (ptr == start_percent)
1735                                 ADD_INSC(" ");
1736                 }
1737                 else
1738                 {
1739                         *ptr++ = out_val[i];
1740                         *ptr = '\0';
1741                 }
1742         }
1743
1744         /* cut too long inscription */
1745         if (strlen(buff) >= MAX_NLEN-1)
1746         {
1747 #ifdef JP
1748                 int n;
1749                 for (n = 0; n < MAX_NLEN; n++)
1750                         if(iskanji(buff[n])) n++;
1751                 if (n == MAX_NLEN) n = MAX_NLEN-2; /* ºÇ¸å¤¬´Á»úȾʬ */
1752                 buff[n] = '\0';
1753 #else
1754                 buff[MAX_NLEN-1] = '\0';
1755 #endif
1756         }
1757         return quark_add(buff);
1758 }
1759
1760 /*
1761  * Inscribe an object with a comment
1762  */
1763 void do_cmd_inscribe(void)
1764 {
1765         int                     item;
1766
1767         object_type             *o_ptr;
1768
1769         char            o_name[MAX_NLEN];
1770
1771         char            out_val[80];
1772
1773         cptr q, s;
1774
1775         item_tester_no_ryoute = TRUE;
1776         /* Get an item */
1777 #ifdef JP
1778         q = "¤É¤Î¥¢¥¤¥Æ¥à¤ËÌäò¹ï¤ß¤Þ¤¹¤«? ";
1779         s = "Ìäò¹ï¤á¤ë¥¢¥¤¥Æ¥à¤¬¤Ê¤¤¡£";
1780 #else
1781         q = "Inscribe which item? ";
1782         s = "You have nothing to inscribe.";
1783 #endif
1784
1785         if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
1786
1787         /* Get the item (in the pack) */
1788         if (item >= 0)
1789         {
1790                 o_ptr = &inventory[item];
1791         }
1792
1793         /* Get the item (on the floor) */
1794         else
1795         {
1796                 o_ptr = &o_list[0 - item];
1797         }
1798
1799         /* Describe the activity */
1800         object_desc(o_name, o_ptr, TRUE, 2);
1801
1802         /* Message */
1803 #ifdef JP
1804         msg_format("%s¤ËÌäò¹ï¤à¡£", o_name);
1805 #else
1806         msg_format("Inscribing %s.", o_name);
1807 #endif
1808
1809         msg_print(NULL);
1810
1811         /* Start with nothing */
1812         strcpy(out_val, "");
1813
1814         /* Use old inscription */
1815         if (o_ptr->inscription)
1816         {
1817                 /* Start with the old inscription */
1818                 strcpy(out_val, quark_str(o_ptr->inscription));
1819         }
1820
1821         /* Get a new inscription (possibly empty) */
1822 #ifdef JP
1823         if (get_string("ÌÃ: ", out_val, 80))
1824 #else
1825         if (get_string("Inscription: ", out_val, 80))
1826 #endif
1827         {
1828                 /* Save the inscription */
1829                 o_ptr->inscription = inscribe_flags(o_ptr, out_val);
1830
1831                 /* Combine the pack */
1832                 p_ptr->notice |= (PN_COMBINE);
1833
1834                 /* Window stuff */
1835                 p_ptr->window |= (PW_INVEN | PW_EQUIP);
1836         }
1837 }
1838
1839
1840
1841 /*
1842  * An "item_tester_hook" for refilling lanterns
1843  */
1844 static bool item_tester_refill_lantern(object_type *o_ptr)
1845 {
1846         /* Flasks of oil are okay */
1847         if (o_ptr->tval == TV_FLASK) return (TRUE);
1848
1849         /* Laterns are okay */
1850         if ((o_ptr->tval == TV_LITE) &&
1851             (o_ptr->sval == SV_LITE_LANTERN)) return (TRUE);
1852
1853         /* Assume not okay */
1854         return (FALSE);
1855 }
1856
1857
1858 /*
1859  * Refill the players lamp (from the pack or floor)
1860  */
1861 static void do_cmd_refill_lamp(void)
1862 {
1863         int item;
1864
1865         object_type *o_ptr;
1866         object_type *j_ptr;
1867
1868         cptr q, s;
1869
1870
1871         /* Restrict the choices */
1872         item_tester_hook = item_tester_refill_lantern;
1873
1874         /* Get an item */
1875 #ifdef JP
1876         q = "¤É¤ÎÌý¤Ä¤Ü¤«¤éÃí¤®¤Þ¤¹¤«? ";
1877         s = "Ìý¤Ä¤Ü¤¬¤Ê¤¤¡£";
1878 #else
1879         q = "Refill with which flask? ";
1880         s = "You have no flasks of oil.";
1881 #endif
1882
1883         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
1884
1885         /* Get the item (in the pack) */
1886         if (item >= 0)
1887         {
1888                 o_ptr = &inventory[item];
1889         }
1890
1891         /* Get the item (on the floor) */
1892         else
1893         {
1894                 o_ptr = &o_list[0 - item];
1895         }
1896
1897
1898         /* Take a partial turn */
1899         energy_use = 50;
1900
1901         /* Access the lantern */
1902         j_ptr = &inventory[INVEN_LITE];
1903
1904         /* Refuel */
1905         j_ptr->xtra4 += o_ptr->xtra4;
1906
1907         /* Message */
1908 #ifdef JP
1909         msg_print("¥é¥ó¥×¤ËÌý¤òÃí¤¤¤À¡£");
1910 #else
1911         msg_print("You fuel your lamp.");
1912 #endif
1913
1914         /* Comment */
1915         if ((o_ptr->name2 == EGO_LITE_DARKNESS) && (j_ptr->xtra4 > 0))
1916         {
1917                 j_ptr->xtra4 = 0;
1918 #ifdef JP
1919                 msg_print("¥é¥ó¥×¤¬¾Ã¤¨¤Æ¤·¤Þ¤Ã¤¿¡ª");
1920 #else
1921                 msg_print("Your lamp has gone out!");
1922 #endif
1923         }
1924         else if ((o_ptr->name2 == EGO_LITE_DARKNESS) || (j_ptr->name2 == EGO_LITE_DARKNESS))
1925         {
1926                 j_ptr->xtra4 = 0;
1927 #ifdef JP
1928                 msg_print("¤·¤«¤·¥é¥ó¥×¤ÏÁ´¤¯¸÷¤é¤Ê¤¤¡£");
1929 #else
1930                 msg_print("Curiously, your lamp doesn't light.");
1931 #endif
1932         }
1933         else if (j_ptr->xtra4 >= FUEL_LAMP)
1934         {
1935                 j_ptr->xtra4 = FUEL_LAMP;
1936 #ifdef JP
1937                 msg_print("¥é¥ó¥×¤ÎÌý¤Ï°ìÇÕ¤À¡£");
1938 #else
1939                 msg_print("Your lamp is full.");
1940 #endif
1941
1942         }
1943
1944         /* Decrease the item (from the pack) */
1945         if (item >= 0)
1946         {
1947                 inven_item_increase(item, -1);
1948                 inven_item_describe(item);
1949                 inven_item_optimize(item);
1950         }
1951
1952         /* Decrease the item (from the floor) */
1953         else
1954         {
1955                 floor_item_increase(0 - item, -1);
1956                 floor_item_describe(0 - item);
1957                 floor_item_optimize(0 - item);
1958         }
1959
1960         /* Recalculate torch */
1961         p_ptr->update |= (PU_TORCH);
1962 }
1963
1964
1965 /*
1966  * An "item_tester_hook" for refilling torches
1967  */
1968 static bool item_tester_refill_torch(object_type *o_ptr)
1969 {
1970         /* Torches are okay */
1971         if ((o_ptr->tval == TV_LITE) &&
1972             (o_ptr->sval == SV_LITE_TORCH)) return (TRUE);
1973
1974         /* Assume not okay */
1975         return (FALSE);
1976 }
1977
1978
1979 /*
1980  * Refuel the players torch (from the pack or floor)
1981  */
1982 static void do_cmd_refill_torch(void)
1983 {
1984         int item;
1985
1986         object_type *o_ptr;
1987         object_type *j_ptr;
1988
1989         cptr q, s;
1990
1991
1992         /* Restrict the choices */
1993         item_tester_hook = item_tester_refill_torch;
1994
1995         /* Get an item */
1996 #ifdef JP
1997         q = "¤É¤Î¾¾ÌÀ¤ÇÌÀ¤«¤ê¤ò¶¯¤á¤Þ¤¹¤«? ";
1998         s = "¾¤Ë¾¾ÌÀ¤¬¤Ê¤¤¡£";
1999 #else
2000         q = "Refuel with which torch? ";
2001         s = "You have no extra torches.";
2002 #endif
2003
2004         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
2005
2006         /* Get the item (in the pack) */
2007         if (item >= 0)
2008         {
2009                 o_ptr = &inventory[item];
2010         }
2011
2012         /* Get the item (on the floor) */
2013         else
2014         {
2015                 o_ptr = &o_list[0 - item];
2016         }
2017
2018
2019         /* Take a partial turn */
2020         energy_use = 50;
2021
2022         /* Access the primary torch */
2023         j_ptr = &inventory[INVEN_LITE];
2024
2025         /* Refuel */
2026         j_ptr->xtra4 += o_ptr->xtra4 + 5;
2027
2028         /* Message */
2029 #ifdef JP
2030         msg_print("¾¾ÌÀ¤ò·ë¹ç¤·¤¿¡£");
2031 #else
2032         msg_print("You combine the torches.");
2033 #endif
2034
2035
2036         /* Comment */
2037         if ((o_ptr->name2 == EGO_LITE_DARKNESS) && (j_ptr->xtra4 > 0))
2038         {
2039                 j_ptr->xtra4 = 0;
2040 #ifdef JP
2041                 msg_print("¾¾ÌÀ¤¬¾Ã¤¨¤Æ¤·¤Þ¤Ã¤¿¡ª");
2042 #else
2043                 msg_print("Your torch has gone out!");
2044 #endif
2045         }
2046         else if ((o_ptr->name2 == EGO_LITE_DARKNESS) || (j_ptr->name2 == EGO_LITE_DARKNESS))
2047         {
2048                 j_ptr->xtra4 = 0;
2049 #ifdef JP
2050                 msg_print("¤·¤«¤·¾¾ÌÀ¤ÏÁ´¤¯¸÷¤é¤Ê¤¤¡£");
2051 #else
2052                 msg_print("Curiously, your torche don't light.");
2053 #endif
2054         }
2055         /* Over-fuel message */
2056         else if (j_ptr->xtra4 >= FUEL_TORCH)
2057         {
2058                 j_ptr->xtra4 = FUEL_TORCH;
2059 #ifdef JP
2060                 msg_print("¾¾ÌÀ¤Î¼÷Ì¿¤Ï½½Ê¬¤À¡£");
2061 #else
2062                 msg_print("Your torch is fully fueled.");
2063 #endif
2064
2065         }
2066
2067         /* Refuel message */
2068         else
2069         {
2070 #ifdef JP
2071                 msg_print("¾¾ÌÀ¤Ï¤¤¤Ã¤½¤¦ÌÀ¤ë¤¯µ±¤¤¤¿¡£");
2072 #else
2073                 msg_print("Your torch glows more brightly.");
2074 #endif
2075
2076         }
2077
2078         /* Decrease the item (from the pack) */
2079         if (item >= 0)
2080         {
2081                 inven_item_increase(item, -1);
2082                 inven_item_describe(item);
2083                 inven_item_optimize(item);
2084         }
2085
2086         /* Decrease the item (from the floor) */
2087         else
2088         {
2089                 floor_item_increase(0 - item, -1);
2090                 floor_item_describe(0 - item);
2091                 floor_item_optimize(0 - item);
2092         }
2093
2094         /* Recalculate torch */
2095         p_ptr->update |= (PU_TORCH);
2096 }
2097
2098
2099 /*
2100  * Refill the players lamp, or restock his torches
2101  */
2102 void do_cmd_refill(void)
2103 {
2104         object_type *o_ptr;
2105
2106         /* Get the light */
2107         o_ptr = &inventory[INVEN_LITE];
2108
2109         if (p_ptr->special_defense & KATA_MUSOU)
2110         {
2111                 set_action(ACTION_NONE);
2112         }
2113
2114         /* It is nothing */
2115         if (o_ptr->tval != TV_LITE)
2116         {
2117 #ifdef JP
2118                 msg_print("¸÷¸»¤òÁõÈ÷¤·¤Æ¤¤¤Ê¤¤¡£");
2119 #else
2120                 msg_print("You are not wielding a light.");
2121 #endif
2122
2123         }
2124
2125         /* It's a lamp */
2126         else if (o_ptr->sval == SV_LITE_LANTERN)
2127         {
2128                 do_cmd_refill_lamp();
2129         }
2130
2131         /* It's a torch */
2132         else if (o_ptr->sval == SV_LITE_TORCH)
2133         {
2134                 do_cmd_refill_torch();
2135         }
2136
2137         /* No torch to refill */
2138         else
2139         {
2140 #ifdef JP
2141                 msg_print("¤³¤Î¸÷¸»¤Ï¼÷Ì¿¤ò±ä¤Ð¤»¤Ê¤¤¡£");
2142 #else
2143                 msg_print("Your light cannot be refilled.");
2144 #endif
2145
2146         }
2147 }
2148
2149
2150 /*
2151  * Target command
2152  */
2153 void do_cmd_target(void)
2154 {
2155         /* Target set */
2156         if (target_set(TARGET_KILL))
2157         {
2158 #ifdef JP
2159                 msg_print("¥¿¡¼¥²¥Ã¥È·èÄê¡£");
2160 #else
2161                 msg_print("Target Selected.");
2162 #endif
2163
2164         }
2165
2166         /* Target aborted */
2167         else
2168         {
2169 #ifdef JP
2170                 msg_print("¥¿¡¼¥²¥Ã¥È²ò½ü¡£");
2171 #else
2172                 msg_print("Target Aborted.");
2173 #endif
2174
2175         }
2176 }
2177
2178
2179
2180 /*
2181  * Look command
2182  */
2183 void do_cmd_look(void)
2184 {
2185         /* Look around */
2186         if (target_set(TARGET_LOOK))
2187         {
2188 #ifdef JP
2189                 msg_print("¥¿¡¼¥²¥Ã¥È·èÄê¡£");
2190 #else
2191                 msg_print("Target Selected.");
2192 #endif
2193
2194         }
2195 }
2196
2197
2198
2199 /*
2200  * Allow the player to examine other sectors on the map
2201  */
2202 void do_cmd_locate(void)
2203 {
2204         int             dir, y1, x1, y2, x2;
2205
2206         char    tmp_val[80];
2207
2208         char    out_val[160];
2209
2210         int wid, hgt;
2211
2212         /* Get size */
2213         get_screen_size(&wid, &hgt);
2214
2215
2216         /* Start at current panel */
2217         y2 = y1 = panel_row_min;
2218         x2 = x1 = panel_col_min;
2219
2220         /* Show panels until done */
2221         while (1)
2222         {
2223                 /* Describe the location */
2224                 if ((y2 == y1) && (x2 == x1))
2225                 {
2226 #ifdef JP
2227                         strcpy(tmp_val, "¿¿¾å");
2228 #else
2229                         tmp_val[0] = '\0';
2230 #endif
2231
2232                 }
2233                 else
2234                 {
2235 #ifdef JP
2236                         sprintf(tmp_val, "%s%s",
2237                                 ((y2 < y1) ? "ËÌ" : (y2 > y1) ? "Æî" : ""),
2238                                 ((x2 < x1) ? "À¾" : (x2 > x1) ? "Åì" : ""));
2239 #else
2240                         sprintf(tmp_val, "%s%s of",
2241                                 ((y2 < y1) ? " North" : (y2 > y1) ? " South" : ""),
2242                                 ((x2 < x1) ? " West" : (x2 > x1) ? " East" : ""));
2243 #endif
2244
2245                 }
2246
2247                 /* Prepare to ask which way to look */
2248                 sprintf(out_val,
2249 #ifdef JP
2250                         "¥Þ¥Ã¥×°ÌÃÖ [%d(%02d),%d(%02d)] (¥×¥ì¥¤¥ä¡¼¤Î%s)  Êý¸þ?",
2251 #else
2252                         "Map sector [%d(%02d),%d(%02d)], which is%s your sector.  Direction?",
2253 #endif
2254
2255                         y2 / (hgt / 2), y2 % (hgt / 2),
2256                         x2 / (wid / 2), x2 % (wid / 2), tmp_val);
2257
2258                 /* Assume no direction */
2259                 dir = 0;
2260
2261                 /* Get a direction */
2262                 while (!dir)
2263                 {
2264                         char command;
2265
2266                         /* Get a command (or Cancel) */
2267                         if (!get_com(out_val, &command, TRUE)) break;
2268
2269                         /* Extract the action (if any) */
2270                         dir = get_keymap_dir(command);
2271
2272                         /* Error */
2273                         if (!dir) bell();
2274                 }
2275
2276                 /* No direction */
2277                 if (!dir) break;
2278
2279                 /* Apply the motion */
2280                 if (change_panel(ddy[dir], ddx[dir]))
2281                 {
2282                         y2 = panel_row_min;
2283                         x2 = panel_col_min;
2284                 }
2285         }
2286
2287
2288         /* Recenter the map around the player */
2289         verify_panel();
2290
2291         /* Update stuff */
2292         p_ptr->update |= (PU_MONSTERS);
2293
2294         /* Redraw map */
2295         p_ptr->redraw |= (PR_MAP);
2296
2297         /* Window stuff */
2298         p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
2299
2300         /* Handle stuff */
2301         handle_stuff();
2302 }
2303
2304
2305
2306 /*
2307  * The table of "symbol info" -- each entry is a string of the form
2308  * "X:desc" where "X" is the trigger, and "desc" is the "info".
2309  */
2310 static cptr ident_info[] =
2311 {
2312 #ifdef JP
2313         " :°Å°Ç",
2314         "!:Ìô, ¥ª¥¤¥ë",
2315         "\":¥¢¥ß¥å¥ì¥Ã¥È, ðô¾þ¤ê",
2316         "#:ÊÉ(±£¤·¥É¥¢)Ëô¤Ï¿¢Êª",
2317         "$:ºâÊõ(¶â¤«ÊõÀÐ)",
2318         "%:¹ÛÌ®(Íϴ䤫ÀбÑ)",
2319         "&:Ȣ",
2320         "':³«¤¤¤¿¥É¥¢",
2321         "(:Æð¤é¤«¤¤Ëɶñ",
2322         "):½â",
2323         "*:ºâÊõ¤ò´Þ¤ó¤À¹ÛÌ®¤Þ¤¿¤Ïµå·Á¤Î²øʪ",
2324         "+:ÊĤ¸¤¿¥É¥¢",
2325         ",:¿©¤Ùʪ, ¤ª¤Ð¤±¥­¥Î¥³",
2326         "-:ËâË¡ËÀ, ¥í¥Ã¥É",
2327         ".:¾²",
2328         "/:´È¾õÉð´ï(¥¢¥Ã¥¯¥¹/¥Ñ¥¤¥¯/Åù)",
2329         "0:Çîʪ´Û¤ÎÆþ¸ý",
2330         "1:»¨²ß²°¤ÎÆþ¸ý",
2331         "2:Ëɶñ²°¤ÎÆþ¸ý",
2332         "3:Éð´ïÀìÌ珤ÎÆþ¸ý",
2333         "4:»û±¡¤ÎÆþ¸ý",
2334         "5:Ï£¶â½Ñ¤ÎŹ¤ÎÆþ¸ý",
2335         "6:ËâË¡¤ÎŹ¤ÎÆþ¸ý",
2336         "7:¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤ÎÆþ¸ý",
2337         "8:²æ¤¬²È¤ÎÆþ¸ý",
2338         "9:½ñŹ¤ÎÆþ¸ý",
2339         "::´äÀÐ",
2340         ";:²óÈò¤Î³¨Ê¸»ú/Çúȯ¤Î¥ë¡¼¥ó",
2341         "<:¾å¤ê³¬ÃÊ",
2342         "=:»ØÎØ",
2343         ">:²¼¤ê³¬ÃÊ",
2344         "?:´¬Êª",
2345         "@:¥×¥ì¥¤¥ä¡¼",
2346         "A:Å·»È",
2347         "B:Ļ",
2348         "C:¸¤",
2349         "D:¸ÅÂå¥É¥é¥´¥ó/¥ï¥¤¥¢¡¼¥à",
2350         "E:¥¨¥ì¥á¥ó¥¿¥ë",
2351         "F:¥È¥ó¥Ü",
2352         "G:¥´¡¼¥¹¥È",
2353         "H:»¨¼ï",
2354         "I:º«Ãî",
2355         "J:¥Ø¥Ó",
2356         "K:¥­¥é¡¼¡¦¥Ó¡¼¥È¥ë",
2357         "L:¥ê¥Ã¥Á",
2358         "M:¿¼ó¤Îà¨ÃîÎà",
2359         "N:Ææ¤ÎÀ¸Êª",
2360         "O:¥ª¡¼¥¬",
2361         "P:µðÂç¿Í´Ö·¿À¸Êª",
2362         "Q:¥¯¥¤¥ë¥¹¥ë¥°(Ì®ÂǤÄÆù²ô)",
2363         "R:à¨ÃîÎà/ξÀ¸Îà",
2364         "S:ÃØéá/¥µ¥½¥ê/¥À¥Ë",
2365         "T:¥È¥í¥ë",
2366         "U:¾åµé¥Ç¡¼¥â¥ó",
2367         "V:¥Ð¥ó¥Ñ¥¤¥¢",
2368         "W:¥ï¥¤¥È/¥ì¥¤¥¹/Åù",
2369         "X:¥¾¡¼¥ó/¥¶¥ì¥ó/Åù",
2370         "Y:¥¤¥¨¥Æ¥£",
2371         "Z:¥Ï¥¦¥ó¥É",
2372         "[:·ø¤¤¥¢¡¼¥Þ¡¼",
2373         "\\:Æß´ï(¥á¥¤¥¹/¥à¥Á/Åù)",
2374         "]:¼ï¡¹¤ÎËɶñ",
2375         "^:¥È¥é¥Ã¥×",
2376         "_:¾ó",
2377         "`:¿Í·Á¡¤Ä¦Áü",
2378         "a:¥¢¥ê",
2379         "b:¥³¥¦¥â¥ê",
2380         "c:¥à¥«¥Ç",
2381         "d:¥É¥é¥´¥ó",
2382         "e:ÌܶÌ",
2383         "f:¥Í¥³",
2384         "g:¥´¡¼¥ì¥à",
2385         "h:¥Û¥Ó¥Ã¥È/¥¨¥ë¥Õ/¥É¥ï¡¼¥Õ",
2386         "i:¥Ù¥È¥Ù¥È",
2387         "j:¥¼¥ê¡¼",
2388         "k:¥³¥Ü¥ë¥É",
2389         "l:¿åÀ³À¸Êª",
2390         "m:¥â¥ë¥É",
2391         "n:¥Ê¡¼¥¬",
2392         "o:¥ª¡¼¥¯",
2393         "p:¿Í´Ö",
2394         "q:»Í­½Ã",
2395         "r:¥Í¥º¥ß",
2396         "s:¥¹¥±¥ë¥È¥ó",
2397         "t:Ä®¤Î¿Í",
2398         "u:²¼µé¥Ç¡¼¥â¥ó",
2399         "v:¥Ü¥ë¥Æ¥Ã¥¯¥¹",
2400         "w:¥¤¥â¥à¥·/Âç·²",
2401         /* "x:unused", */
2402         "y:¥¤¡¼¥¯",
2403         "z:¥¾¥ó¥Ó/¥ß¥¤¥é",
2404         "{:Èô¤ÓÆ»¶ñ¤ÎÃÆ(Ìð/ÃÆ)",
2405         "|:Åá·õÎà(¥½¡¼¥É/¥À¥¬¡¼/Åù)",
2406         "}:Èô¤ÓÆ»¶ñ(µÝ/¥¯¥í¥¹¥Ü¥¦/¥¹¥ê¥ó¥°)",
2407         "~:¿å/ÍÏ´äή(¼ï¡¹¤Î¥¢¥¤¥Æ¥à)",
2408 #else
2409         " :A dark grid",
2410         "!:A potion (or oil)",
2411         "\":An amulet (or necklace)",
2412         "#:A wall (or secret door)",
2413         "$:Treasure (gold or gems)",
2414         "%:A vein (magma or quartz)",
2415         "&:A chest",
2416         "':An open door",
2417         "(:Soft armor",
2418         "):A shield",
2419         "*:A vein with treasure or a ball monster",
2420         "+:A closed door",
2421         ",:Food (or mushroom patch)",
2422         "-:A wand (or rod)",
2423         ".:Floor",
2424         "/:A polearm (Axe/Pike/etc)",
2425         "0:Entrance to Museum",
2426         "1:Entrance to General Store",
2427         "2:Entrance to Armory",
2428         "3:Entrance to Weaponsmith",
2429         "4:Entrance to Temple",
2430         "5:Entrance to Alchemy shop",
2431         "6:Entrance to Magic store",
2432         "7:Entrance to Black Market",
2433         "8:Entrance to your home",
2434         "9:Entrance to the bookstore",
2435         "::Rubble",
2436         ";:A glyph of warding / explosive rune",
2437         "<:An up staircase",
2438         "=:A ring",
2439         ">:A down staircase",
2440         "?:A scroll",
2441         "@:You",
2442         "A:Angel",
2443         "B:Bird",
2444         "C:Canine",
2445         "D:Ancient Dragon/Wyrm",
2446         "E:Elemental",
2447         "F:Dragon Fly",
2448         "G:Ghost",
2449         "H:Hybrid",
2450         "I:Insect",
2451         "J:Snake",
2452         "K:Killer Beetle",
2453         "L:Lich",
2454         "M:Multi-Headed Reptile",
2455         "N:Mystery Living",
2456         "O:Ogre",
2457         "P:Giant Humanoid",
2458         "Q:Quylthulg (Pulsing Flesh Mound)",
2459         "R:Reptile/Amphibian",
2460         "S:Spider/Scorpion/Tick",
2461         "T:Troll",
2462         "U:Major Demon",
2463         "V:Vampire",
2464         "W:Wight/Wraith/etc",
2465         "X:Xorn/Xaren/etc",
2466         "Y:Yeti",
2467         "Z:Zephyr Hound",
2468         "[:Hard armor",
2469         "\\:A hafted weapon (mace/whip/etc)",
2470         "]:Misc. armor",
2471         "^:A trap",
2472         "_:A staff",
2473         "`:A figurine or statue",
2474         "a:Ant",
2475         "b:Bat",
2476         "c:Centipede",
2477         "d:Dragon",
2478         "e:Floating Eye",
2479         "f:Feline",
2480         "g:Golem",
2481         "h:Hobbit/Elf/Dwarf",
2482         "i:Icky Thing",
2483         "j:Jelly",
2484         "k:Kobold",
2485         "l:Aquatic monster",
2486         "m:Mold",
2487         "n:Naga",
2488         "o:Orc",
2489         "p:Person/Human",
2490         "q:Quadruped",
2491         "r:Rodent",
2492         "s:Skeleton",
2493         "t:Townsperson",
2494         "u:Minor Demon",
2495         "v:Vortex",
2496         "w:Worm/Worm-Mass",
2497         /* "x:unused", */
2498         "y:Yeek",
2499         "z:Zombie/Mummy",
2500         "{:A missile (arrow/bolt/shot)",
2501         "|:An edged weapon (sword/dagger/etc)",
2502         "}:A launcher (bow/crossbow/sling)",
2503         "~:Fluid terrain (or miscellaneous item)",
2504 #endif
2505
2506         NULL
2507 };
2508
2509
2510 /*
2511  * Sorting hook -- Comp function -- see below
2512  *
2513  * We use "u" to point to array of monster indexes,
2514  * and "v" to select the type of sorting to perform on "u".
2515  */
2516 bool ang_sort_comp_hook(vptr u, vptr v, int a, int b)
2517 {
2518         u16b *who = (u16b*)(u);
2519
2520         u16b *why = (u16b*)(v);
2521
2522         int w1 = who[a];
2523         int w2 = who[b];
2524
2525         int z1, z2;
2526
2527
2528         /* Sort by player kills */
2529         if (*why >= 4)
2530         {
2531                 /* Extract player kills */
2532                 z1 = r_info[w1].r_pkills;
2533                 z2 = r_info[w2].r_pkills;
2534
2535                 /* Compare player kills */
2536                 if (z1 < z2) return (TRUE);
2537                 if (z1 > z2) return (FALSE);
2538         }
2539
2540
2541         /* Sort by total kills */
2542         if (*why >= 3)
2543         {
2544                 /* Extract total kills */
2545                 z1 = r_info[w1].r_tkills;
2546                 z2 = r_info[w2].r_tkills;
2547
2548                 /* Compare total kills */
2549                 if (z1 < z2) return (TRUE);
2550                 if (z1 > z2) return (FALSE);
2551         }
2552
2553
2554         /* Sort by monster level */
2555         if (*why >= 2)
2556         {
2557                 /* Extract levels */
2558                 z1 = r_info[w1].level;
2559                 z2 = r_info[w2].level;
2560
2561                 /* Compare levels */
2562                 if (z1 < z2) return (TRUE);
2563                 if (z1 > z2) return (FALSE);
2564         }
2565
2566
2567         /* Sort by monster experience */
2568         if (*why >= 1)
2569         {
2570                 /* Extract experience */
2571                 z1 = r_info[w1].mexp;
2572                 z2 = r_info[w2].mexp;
2573
2574                 /* Compare experience */
2575                 if (z1 < z2) return (TRUE);
2576                 if (z1 > z2) return (FALSE);
2577         }
2578
2579
2580         /* Compare indexes */
2581         return (w1 <= w2);
2582 }
2583
2584
2585 /*
2586  * Sorting hook -- Swap function -- see below
2587  *
2588  * We use "u" to point to array of monster indexes,
2589  * and "v" to select the type of sorting to perform.
2590  */
2591 void ang_sort_swap_hook(vptr u, vptr v, int a, int b)
2592 {
2593         u16b *who = (u16b*)(u);
2594
2595         u16b holder;
2596
2597         /* Swap */
2598         holder = who[a];
2599         who[a] = who[b];
2600         who[b] = holder;
2601 }
2602
2603
2604
2605 /*
2606  * Identify a character, allow recall of monsters
2607  *
2608  * Several "special" responses recall "multiple" monsters:
2609  *   ^A (all monsters)
2610  *   ^U (all unique monsters)
2611  *   ^N (all non-unique monsters)
2612  *
2613  * The responses may be sorted in several ways, see below.
2614  *
2615  * Note that the player ghosts are ignored. XXX XXX XXX
2616  */
2617 void do_cmd_query_symbol(void)
2618 {
2619         int             i, n, r_idx;
2620         char    sym, query;
2621         char    buf[128];
2622
2623         bool    all = FALSE;
2624         bool    uniq = FALSE;
2625         bool    norm = FALSE;
2626         char    temp[80] = "";
2627
2628         bool    recall = FALSE;
2629
2630         u16b    why = 0;
2631         u16b    *who;
2632
2633         /* Get a character, or abort */
2634 #ifdef JP
2635         if (!get_com("ÃΤꤿ¤¤Ê¸»ú¤òÆþÎϤ·¤Æ²¼¤µ¤¤(µ­¹æ or ^AÁ´,^U¥æ,^NÈó¥æ,^M̾Á°): ", &sym, FALSE)) return;
2636 #else
2637         if (!get_com("Enter character to be identified(^A:All,^U:Uniqs,^N:Non uniqs,^M:Name): ", &sym, FALSE)) return;
2638 #endif
2639
2640
2641         /* Find that character info, and describe it */
2642         for (i = 0; ident_info[i]; ++i)
2643         {
2644                 if (sym == ident_info[i][0]) break;
2645         }
2646
2647         /* Describe */
2648         if (sym == KTRL('A'))
2649         {
2650                 all = TRUE;
2651 #ifdef JP
2652                 strcpy(buf, "Á´¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
2653 #else
2654                 strcpy(buf, "Full monster list.");
2655 #endif
2656
2657         }
2658         else if (sym == KTRL('U'))
2659         {
2660                 all = uniq = TRUE;
2661 #ifdef JP
2662                 strcpy(buf, "¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
2663 #else
2664                 strcpy(buf, "Unique monster list.");
2665 #endif
2666
2667         }
2668         else if (sym == KTRL('N'))
2669         {
2670                 all = norm = TRUE;
2671 #ifdef JP
2672                 strcpy(buf, "¥æ¥Ë¡¼¥¯³°¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
2673 #else
2674                 strcpy(buf, "Non-unique monster list.");
2675 #endif
2676
2677         }
2678         /* XTRA HACK WHATSEARCH */
2679         else if (sym == KTRL('M'))
2680         {
2681                 all = TRUE;
2682 #ifdef JP
2683                 if (!get_string("̾Á°(±Ñ¸ì¤Î¾ì¹ç¾®Ê¸»ú¤Ç²Ä)",temp, 70))
2684 #else
2685                 if (!get_string("Enter name:",temp, 70))
2686 #endif
2687                 {
2688                         temp[0]=0;
2689                         return;
2690                 }
2691 #ifdef JP
2692                 sprintf(buf, "̾Á°:%s¤Ë¥Þ¥Ã¥Á",temp);
2693 #else
2694                 sprintf(buf, "Monsters with a name \"%s\"",temp);
2695 #endif
2696         }
2697         else if (ident_info[i])
2698         {
2699                 sprintf(buf, "%c - %s.", sym, ident_info[i] + 2);
2700         }
2701         else
2702         {
2703 #ifdef JP
2704                 sprintf(buf, "%c - %s", sym, "̵¸ú¤Êʸ»ú");
2705 #else
2706                 sprintf(buf, "%c - %s.", sym, "Unknown Symbol");
2707 #endif
2708
2709         }
2710
2711         /* Display the result */
2712         prt(buf, 0, 0);
2713
2714         /* Allocate the "who" array */
2715         C_MAKE(who, max_r_idx, u16b);
2716
2717         /* Collect matching monsters */
2718         for (n = 0, i = 1; i < max_r_idx; i++)
2719         {
2720                 monster_race *r_ptr = &r_info[i];
2721
2722                 /* Nothing to recall */
2723                 if (!cheat_know && !r_ptr->r_sights) continue;
2724
2725                 /* Require non-unique monsters if needed */
2726                 if (norm && (r_ptr->flags1 & (RF1_UNIQUE))) continue;
2727
2728                 /* Require unique monsters if needed */
2729                 if (uniq && !(r_ptr->flags1 & (RF1_UNIQUE))) continue;
2730
2731                 /* XTRA HACK WHATSEARCH */
2732                 if (temp[0]){
2733                   int xx;
2734                   char temp2[80];
2735   
2736                   for (xx=0; temp[xx] && xx<80; xx++){
2737 #ifdef JP
2738                     if (iskanji( temp[xx])) { xx++; continue; }
2739 #endif
2740                     if (isupper(temp[xx])) temp[xx]=tolower(temp[xx]);
2741                   }
2742   
2743 #ifdef JP
2744                   strcpy(temp2, r_name+r_ptr->E_name);
2745 #else
2746                   strcpy(temp2, r_name+r_ptr->name);
2747 #endif
2748                   for (xx=0; temp2[xx] && xx<80; xx++)
2749                     if (isupper(temp2[xx])) temp2[xx]=tolower(temp2[xx]);
2750   
2751 #ifdef JP
2752                   if (strstr(temp2, temp) || strstr_j(r_name + r_ptr->name, temp) )
2753 #else
2754                   if (strstr(temp2, temp))
2755 #endif
2756                           who[n++]=i;
2757                 }else
2758                 /* Collect "appropriate" monsters */
2759                 if (all || (r_ptr->d_char == sym)) who[n++] = i;
2760         }
2761
2762         /* Nothing to recall */
2763         if (!n)
2764         {
2765                 /* Free the "who" array */
2766                 C_KILL(who, max_r_idx, u16b);
2767
2768                 return;
2769         }
2770
2771
2772         /* Prompt XXX XXX XXX */
2773 #ifdef JP
2774         put_str("»×¤¤½Ð¤ò¸«¤Þ¤¹¤«? (k:»¦³²½ç/y/n): ", 0, 36);
2775 #else
2776         put_str("Recall details? (k/y/n): ", 0, 40);
2777 #endif
2778
2779
2780         /* Query */
2781         query = inkey();
2782
2783         /* Restore */
2784         prt(buf, 0, 0);
2785
2786         why = 2;
2787
2788         /* Select the sort method */
2789         ang_sort_comp = ang_sort_comp_hook;
2790         ang_sort_swap = ang_sort_swap_hook;
2791
2792         /* Sort the array */
2793         ang_sort(who, &why, n);
2794
2795         /* Sort by kills (and level) */
2796         if (query == 'k')
2797         {
2798                 why = 4;
2799                 query = 'y';
2800         }
2801
2802         /* Catch "escape" */
2803         if (query != 'y')
2804         {
2805                 /* Free the "who" array */
2806                 C_KILL(who, max_r_idx, u16b);
2807
2808                 return;
2809         }
2810
2811         /* Sort if needed */
2812         if (why == 4)
2813         {
2814                 /* Select the sort method */
2815                 ang_sort_comp = ang_sort_comp_hook;
2816                 ang_sort_swap = ang_sort_swap_hook;
2817
2818                 /* Sort the array */
2819                 ang_sort(who, &why, n);
2820         }
2821
2822
2823         /* Start at the end */
2824         i = n - 1;
2825
2826         /* Scan the monster memory */
2827         while (1)
2828         {
2829                 /* Extract a race */
2830                 r_idx = who[i];
2831
2832                 /* Hack -- Auto-recall */
2833                 monster_race_track(FALSE, r_idx);
2834
2835                 /* Hack -- Handle stuff */
2836                 handle_stuff();
2837
2838                 /* Hack -- Begin the prompt */
2839                 roff_top(r_idx);
2840
2841                 /* Hack -- Complete the prompt */
2842 #ifdef JP
2843                 Term_addstr(-1, TERM_WHITE, " ['r'»×¤¤½Ð, ESC]");
2844 #else
2845                 Term_addstr(-1, TERM_WHITE, " [(r)ecall, ESC]");
2846 #endif
2847
2848
2849                 /* Interact */
2850                 while (1)
2851                 {
2852                         /* Recall */
2853                         if (recall)
2854                         {
2855                                 /* Save the screen */
2856                                 screen_save();
2857
2858                                 /* Recall on screen */
2859                                 screen_roff(who[i], 0);
2860
2861                                 /* Hack -- Complete the prompt (again) */
2862 #ifdef JP
2863                                 Term_addstr(-1, TERM_WHITE, " ['r'»×¤¤½Ð, ESC]");
2864 #else
2865                                 Term_addstr(-1, TERM_WHITE, " [(r)ecall, ESC]");
2866 #endif
2867
2868                         }
2869
2870                         /* Command */
2871                         query = inkey();
2872
2873                         /* Unrecall */
2874                         if (recall)
2875                         {
2876                                 /* Restore */
2877                                 screen_load();
2878                         }
2879
2880                         /* Normal commands */
2881                         if (query != 'r') break;
2882
2883                         /* Toggle recall */
2884                         recall = !recall;
2885                 }
2886
2887                 /* Stop scanning */
2888                 if (query == ESCAPE) break;
2889
2890                 /* Move to "prev" monster */
2891                 if (query == '-')
2892                 {
2893                         if (++i == n)
2894                         {
2895                                 i = 0;
2896                                 if (!expand_list) break;
2897                         }
2898                 }
2899
2900                 /* Move to "next" monster */
2901                 else
2902                 {
2903                         if (i-- == 0)
2904                         {
2905                                 i = n - 1;
2906                                 if (!expand_list) break;
2907                         }
2908                 }
2909         }
2910
2911         /* Free the "who" array */
2912         C_KILL(who, max_r_idx, u16b);
2913
2914         /* Re-display the identity */
2915         prt(buf, 0, 0);
2916 }
2917
2918
2919 /*
2920  *  research_mon
2921  *  -KMW-
2922  */
2923 bool research_mon(void)
2924 {
2925         int i, n, r_idx;
2926         char sym, query;
2927         char buf[128];
2928
2929         s16b oldkills;
2930         byte oldwake;
2931         bool oldcheat;
2932
2933         bool notpicked;
2934
2935         bool recall = FALSE;
2936
2937         u16b why = 0;
2938
2939         monster_race *r2_ptr;
2940
2941         u16b    *who;
2942
2943         /* XTRA HACK WHATSEARCH */
2944         bool    all = FALSE;
2945         bool    uniq = FALSE;
2946         bool    norm = FALSE;
2947         char temp[80] = "";
2948
2949         /* XTRA HACK REMEMBER_IDX */
2950         static int old_sym = '\0';
2951         static int old_i = 0;
2952
2953         oldcheat = cheat_know;
2954
2955
2956         /* Save the screen */
2957         screen_save();
2958
2959         /* Get a character, or abort */
2960 #ifdef JP
2961 if (!get_com("¥â¥ó¥¹¥¿¡¼¤Îʸ»ú¤òÆþÎϤ·¤Æ²¼¤µ¤¤(µ­¹æ or ^AÁ´,^U¥æ,^NÈó¥æ,^M̾Á°):", &sym, FALSE)) 
2962 #else
2963         if (!get_com("Enter character to be identified(^A:All,^U:Uniqs,^N:Non uniqs,^M:Name): ", &sym, FALSE))
2964 #endif
2965
2966         {
2967                 /* Restore */
2968                 screen_load();
2969
2970                 return (FALSE);
2971         }
2972
2973         /* Find that character info, and describe it */
2974         for (i = 0; ident_info[i]; ++i)
2975         {
2976                 if (sym == ident_info[i][0]) break;
2977         }
2978
2979                 /* XTRA HACK WHATSEARCH */
2980         if (sym == KTRL('A'))
2981         {
2982                 all = TRUE;
2983 #ifdef JP
2984                 strcpy(buf, "Á´¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
2985 #else
2986                 strcpy(buf, "Full monster list.");
2987 #endif
2988         }
2989         else if (sym == KTRL('U'))
2990         {
2991                 all = uniq = TRUE;
2992 #ifdef JP
2993                 strcpy(buf, "¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
2994 #else
2995                 strcpy(buf, "Unique monster list.");
2996 #endif
2997         }
2998         else if (sym == KTRL('N'))
2999         {
3000                 all = norm = TRUE;
3001 #ifdef JP
3002                 strcpy(buf, "¥æ¥Ë¡¼¥¯³°¥â¥ó¥¹¥¿¡¼¤Î¥ê¥¹¥È");
3003 #else
3004                 strcpy(buf, "Non-unique monster list.");
3005 #endif
3006         }
3007         else if (sym == KTRL('M'))
3008         {
3009                 all = TRUE;
3010 #ifdef JP
3011                 if (!get_string("̾Á°(±Ñ¸ì¤Î¾ì¹ç¾®Ê¸»ú¤Ç²Ä)",temp, 70))
3012 #else
3013                 if (!get_string("Enter name:",temp, 70))
3014 #endif
3015                 {
3016                         temp[0]=0;
3017                         return FALSE;
3018                 }
3019 #ifdef JP
3020                 sprintf(buf, "̾Á°:%s¤Ë¥Þ¥Ã¥Á",temp);
3021 #else
3022                 sprintf(buf, "Monsters with a name \"%s\"",temp);
3023 #endif
3024         }
3025         else if (ident_info[i])
3026         {
3027                 sprintf(buf, "%c - %s.", sym, ident_info[i] + 2);
3028         }
3029         else
3030         {
3031 #ifdef JP
3032 sprintf(buf, "%c - %s", sym, "̵¸ú¤Êʸ»ú");
3033 #else
3034                 sprintf(buf, "%c - %s.", sym, "Unknown Symbol");
3035 #endif
3036
3037         }
3038
3039         /* Display the result */
3040         prt(buf, 16, 10);
3041
3042
3043         /* Allocate the "who" array */
3044         C_MAKE(who, max_r_idx, u16b);
3045
3046         /* Collect matching monsters */
3047         for (n = 0, i = 1; i < max_r_idx; i++)
3048         {
3049                 monster_race *r_ptr = &r_info[i];
3050
3051                 cheat_know = TRUE;
3052
3053                 /* XTRA HACK WHATSEARCH */
3054                 /* Require non-unique monsters if needed */
3055                 if (norm && (r_ptr->flags1 & (RF1_UNIQUE))) continue;
3056
3057                 /* Require unique monsters if needed */
3058                 if (uniq && !(r_ptr->flags1 & (RF1_UNIQUE))) continue;
3059
3060                 /* Ì¾Á°¸¡º÷ */
3061                 if (temp[0]){
3062                   int xx;
3063                   char temp2[80];
3064   
3065                   for (xx=0; temp[xx] && xx<80; xx++){
3066 #ifdef JP
3067                     if (iskanji( temp[xx])) { xx++; continue; }
3068 #endif
3069                     if (isupper(temp[xx])) temp[xx]=tolower(temp[xx]);
3070                   }
3071   
3072 #ifdef JP
3073                   strcpy(temp2, r_name+r_ptr->E_name);
3074 #else
3075                   strcpy(temp2, r_name+r_ptr->name);
3076 #endif
3077                   for (xx=0; temp2[xx] && xx<80; xx++)
3078                     if (isupper(temp2[xx])) temp2[xx]=tolower(temp2[xx]);
3079   
3080 #ifdef JP
3081                   if (strstr(temp2, temp) || strstr_j(r_name + r_ptr->name, temp) )
3082 #else
3083                   if (strstr(temp2, temp))
3084 #endif
3085                           who[n++]=i;
3086                 }
3087                 else if (all || (r_ptr->d_char == sym)) who[n++] = i;
3088         }
3089
3090         /* Nothing to recall */
3091         if (!n)
3092         {
3093                 cheat_know = oldcheat;
3094
3095                 /* Free the "who" array */
3096                 C_KILL(who, max_r_idx, u16b);
3097
3098                 /* Restore */
3099                 screen_load();
3100
3101                 return (FALSE);
3102         }
3103
3104         /* Sort by level */
3105         why = 2;
3106         query = 'y';
3107
3108         /* Sort if needed */
3109         if (why)
3110         {
3111                 /* Select the sort method */
3112                 ang_sort_comp = ang_sort_comp_hook;
3113                 ang_sort_swap = ang_sort_swap_hook;
3114
3115                 /* Sort the array */
3116                 ang_sort(who, &why, n);
3117         }
3118
3119
3120         /* Start at the end */
3121         /* XTRA HACK REMEMBER_IDX */
3122         if (old_sym == sym && old_i < n) i = old_i;
3123         else i = n - 1;
3124
3125         notpicked = TRUE;
3126
3127         /* Scan the monster memory */
3128         while (notpicked)
3129         {
3130                 /* Extract a race */
3131                 r_idx = who[i];
3132
3133                 /* Save this monster ID */
3134                 p_ptr->monster_race_idx = r_idx;
3135
3136                 /* Hack -- Handle stuff */
3137                 handle_stuff();
3138
3139                 /* Hack -- Begin the prompt */
3140                 roff_top(r_idx);
3141
3142                 /* Hack -- Complete the prompt */
3143 #ifdef JP
3144 Term_addstr(-1, TERM_WHITE, " ['r'»×¤¤½Ð, ' '¤Ç³¹Ô, ESC]");
3145 #else
3146                 Term_addstr(-1, TERM_WHITE, " [(r)ecall, ESC, space to continue]");
3147 #endif
3148
3149
3150                 /* Interact */
3151                 while (1)
3152                 {
3153                         /* Recall */
3154                         if (recall)
3155                         {
3156                                 /* Recall on screen */
3157                                 r2_ptr = &r_info[r_idx];
3158
3159                                 oldkills = r2_ptr->r_tkills;
3160                                 oldwake = r2_ptr->r_wake;
3161                                 screen_roff(who[i], 1);
3162                                 r2_ptr->r_tkills = oldkills;
3163                                 r2_ptr->r_wake = oldwake;
3164                                 cheat_know = oldcheat;
3165                                 notpicked = FALSE;
3166
3167                                 /* XTRA HACK REMEMBER_IDX */
3168                                 old_sym = sym;
3169                                 old_i = i;
3170                         }
3171
3172                         /* Command */
3173                         query = inkey();
3174
3175                         /* Normal commands */
3176                         if (query != 'r') break;
3177
3178                         /* Toggle recall */
3179                         recall = !recall;
3180                 }
3181
3182                 /* Stop scanning */
3183                 if (query == ESCAPE) break;
3184
3185                 /* Move to "prev" monster */
3186                 if (query == '-')
3187                 {
3188                         if (++i == n)
3189                         {
3190                                 i = 0;
3191                                 if (!expand_list) break;
3192                         }
3193                 }
3194
3195                 /* Move to "next" monster */
3196                 else
3197                 {
3198                         if (i-- == 0)
3199                         {
3200                                 i = n - 1;
3201                                 if (!expand_list) break;
3202                         }
3203                 }
3204         }
3205
3206
3207         /* Re-display the identity */
3208         /* prt(buf, 5, 5);*/
3209
3210         cheat_know = oldcheat;
3211
3212         /* Free the "who" array */
3213         C_KILL(who, max_r_idx, u16b);
3214
3215         /* Restore */
3216         screen_load();
3217
3218         return (!notpicked);
3219 }
3220
The master and develop branches track hengband.
About OSDN
Find Software
Develop Software
Help