/*
* Tweak an item
*/
static void wiz_tweak_item(object_type *o_ptr)
{
cptr p;
char tmp_val[80];
/* Hack -- leave artifacts alone */
if (artifact_p(o_ptr)) return;
p = "Enter new 'pval' setting: ";
sprintf(tmp_val, "%d", o_ptr->pval);
if (!get_string(p, tmp_val, 6)) return;
o_ptr->pval = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_a' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_a);
if (!get_string(p, tmp_val, 6)) return;
o_ptr->to_a = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_h' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_h);
if (!get_string(p, tmp_val, 6)) return;
o_ptr->to_h = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_d' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_d);
if (!get_string(p, tmp_val, 6)) return;
o_ptr->to_d = atoi(tmp_val);
wiz_display_item(o_ptr);
}
/*
* Tweak an item
*/
static void wiz_tweak_item(object_type *o_ptr)
{
cptr p;
char tmp_val[80];
/* Hack -- leave artefacts alone */
if (artefact_p(o_ptr)) return;
p = "Enter new 'att' setting: ";
sprintf(tmp_val, "%d", o_ptr->att);
if (!term_get_string(p, tmp_val, 6)) return;
o_ptr->att = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'evn' setting: ";
sprintf(tmp_val, "%d", o_ptr->evn);
if (!term_get_string(p, tmp_val, 6)) return;
o_ptr->evn = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'pval' setting: ";
sprintf(tmp_val, "%d", o_ptr->pval);
if (!term_get_string(p, tmp_val, 6)) return;
o_ptr->pval = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new weight: ";
sprintf(tmp_val, "%d", o_ptr->weight);
if (!term_get_string(p, tmp_val, 6)) return;
o_ptr->weight = atoi(tmp_val);
wiz_display_item(o_ptr);
}
/*
* Tweak an item
*/
static void wiz_tweak_item(object_type *o_ptr)
{
const char *p;
char tmp_val[80];
int i, val;
/* Hack -- leave artifacts alone */
if (o_ptr->artifact) return;
p = "Enter new ego item index: ";
strnfmt(tmp_val, sizeof(tmp_val), "0");
if (o_ptr->ego)
strnfmt(tmp_val, sizeof(tmp_val), "%d", o_ptr->ego->eidx);
if (!get_string(p, tmp_val, 6)) return;
val = atoi(tmp_val);
if (val) {
o_ptr->ego = &e_info[val];
ego_apply_magic(o_ptr, p_ptr->depth);
} else
o_ptr->ego = 0;
wiz_display_item(o_ptr, TRUE);
p = "Enter new artifact index: ";
strnfmt(tmp_val, sizeof(tmp_val), "0");
if (o_ptr->artifact)
strnfmt(tmp_val, sizeof(tmp_val), "%d", o_ptr->artifact->aidx);
if (!get_string(p, tmp_val, 6)) return;
val = atoi(tmp_val);
if (val) {
o_ptr->artifact = &a_info[val];
copy_artifact_data(o_ptr, o_ptr->artifact);
} else
o_ptr->artifact = 0;
wiz_display_item(o_ptr, TRUE);
#define WIZ_TWEAK(attribute) do {\
p = "Enter new '" #attribute "' setting: ";\
strnfmt(tmp_val, sizeof(tmp_val), "%d", o_ptr->attribute);\
if (!get_string(p, tmp_val, 6)) return;\
o_ptr->attribute = atoi(tmp_val);\
wiz_display_item(o_ptr, TRUE);\
} while (0)
for (i = 0; i < MAX_PVALS; i++) {
WIZ_TWEAK(pval[i]);
if (o_ptr->pval[i])
o_ptr->num_pvals = (i + 1);
}
WIZ_TWEAK(to_a);
WIZ_TWEAK(to_h);
WIZ_TWEAK(to_d);
}
/*
* Tweak an item
*/
static void wiz_tweak_item(object_type *o_ptr)
{
cptr p;
char tmp_val[80];
p = "Enter new 'pval' setting: ";
sprintf(tmp_val, "%d", o_ptr->pval);
if (!get_string(p, tmp_val, 5)) return;
o_ptr->pval = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_a' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_a);
if (!get_string(p, tmp_val, 5)) return;
o_ptr->to_a = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_h' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_h);
if (!get_string(p, tmp_val, 5)) return;
o_ptr->to_h = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'to_d' setting: ";
sprintf(tmp_val, "%d", o_ptr->to_d);
if (!get_string(p, tmp_val, 5)) return;
o_ptr->to_d = atoi(tmp_val);
wiz_display_item(o_ptr);
p = "Enter new 'activate' setting: ";
sprintf(tmp_val, "%d", (int) o_ptr->activate);
if (!get_string(p, tmp_val, 5)) return;
o_ptr->activate = atoi(tmp_val);
wiz_display_item(o_ptr);
}
/*
* Play with an item. Options include:
* - Output statistics (via wiz_roll_item)
* - Reroll item (via wiz_reroll_item)
* - Change properties (via wiz_tweak_item)
* - Change the number of items (via wiz_quantity_item)
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type forge;
object_type *q_ptr;
object_type *o_ptr;
char ch;
bool changed = FALSE;
cptr q, s;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
/* Save the screen */
screen_save();
/* Get local object */
q_ptr = &forge;
/* Copy object */
object_copy(q_ptr, o_ptr);
/* Display the item */
wiz_display_item(q_ptr);
/* Display the rarity graph - turned off for now (too slow).*/
/* prt_alloc(o_ptr, 2, 0, 1000); */
/* The main loop */
while (TRUE)
{
/* Display the item */
wiz_display_item(q_ptr);
/* Get choice */
if (!get_com("[a]ccept [s]tatistics [r]eroll [t]weak [q]uantity? ", &ch))
{
break;
}
if (ch == 'A' || ch == 'a')
{
changed = TRUE;
break;
}
if (ch == 's' || ch == 'S')
{
wiz_statistics(q_ptr);
}
if (ch == 'r' || ch == 'r')
{
wiz_reroll_item(q_ptr);
}
if (ch == 't' || ch == 'T')
{
wiz_tweak_item(q_ptr);
}
if (ch == 'q' || ch == 'Q')
{
wiz_quantity_item(q_ptr);
}
}
/* Restore the screen */
screen_load();
/* Accept change */
if (changed)
{
/* Message */
msg_print("Changes accepted.");
/* Change */
object_copy(o_ptr, q_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER | PW_PLAYRES);
}
/* Ignore change */
else
{
msg_print("Changes ignored.");
}
}
/*
* Apply magic to an item or turn it into an artifact. -Bernd-
*/
static void wiz_reroll_item(object_type *o_ptr)
{
object_type forge;
object_type *q_ptr;
char ch;
bool changed = FALSE;
/* Hack -- leave normal artifacts alone */
if ((o_ptr->flags3 & TR3_INSTA_ART) &&
(o_ptr->activate > 128)) return;
/* Get local object */
q_ptr = &forge;
/* Copy the object */
object_copy(q_ptr, o_ptr);
/* Main loop. Ask for magification and artifactification */
while (TRUE)
{
/* Display full item debug information */
wiz_display_item(q_ptr);
/* Ask wizard what to do. */
if (!get_com("[a]ccept, [w]orthless, [n]ormal, [e]xcellent, [s]pecial? ", &ch))
{
}
/* Create/change it! */
if (ch == 'A' || ch == 'a')
{
changed = TRUE;
break;
}
switch (ch)
{
/* Apply bad magic, but first clear object */
case 'w': case 'W':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, p_ptr->depth, 0, OC_FORCE_BAD, FALSE);
break;
}
/* Apply normal magic, but first clear object */
case 'n': case 'N':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, p_ptr->depth, 0, OC_NORMAL, FALSE);
break;
}
/* Apply great magic, but first clear object */
case 'e': case 'E':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, p_ptr->depth, 30, OC_FORCE_GOOD, FALSE);
break;
}
case 's': case 'S':
{
object_prep(q_ptr, o_ptr->k_idx);
/* Make a random artifact */
(void)create_artifact(q_ptr, FALSE, FALSE);
break;
}
}
}
/* Notice change */
if (changed)
{
/* Restore the position information */
q_ptr->iy = o_ptr->iy;
q_ptr->ix = o_ptr->ix;
q_ptr->next_o_idx = o_ptr->next_o_idx;
q_ptr->marked = o_ptr->marked;
/* Apply changes */
object_copy(o_ptr, q_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER | PW_PLAYRES);
}
}
/*
* Try to create an item again. Output some statistics. -Bernd-
*
* The statistics are correct now. We acquire a clean grid, and then
* repeatedly place an object in this grid, copying it into an item
* holder, and then deleting the object. We fiddle with the artifact
* counter flags to prevent weirdness. We use the items to collect
* statistics on item creation relative to the initial item.
*/
static void wiz_statistics(object_type *o_ptr, int level)
{
long i, matches, better, worse, other;
int j;
struct keypress ch;
const char *quality;
bool good, great, ismatch, isbetter, isworse;
object_type *i_ptr;
object_type object_type_body;
const char *q = "Rolls: %ld, Matches: %ld, Better: %ld, Worse: %ld, Other: %ld";
/* Allow multiple artifacts, because breaking the game is fine here */
if (o_ptr->artifact) o_ptr->artifact->created = FALSE;
/* Interact */
while (TRUE)
{
const char *pmt = "Roll for [n]ormal, [g]ood, or [e]xcellent treasure? ";
/* Display item */
wiz_display_item(o_ptr, TRUE);
/* Get choices */
if (!get_com(pmt, &ch)) break;
if (ch.code == 'n' || ch.code == 'N')
{
good = FALSE;
great = FALSE;
quality = "normal";
}
else if (ch.code == 'g' || ch.code == 'G')
{
good = TRUE;
great = FALSE;
quality = "good";
}
else if (ch.code == 'e' || ch.code == 'E')
{
good = TRUE;
great = TRUE;
quality = "excellent";
}
else
{
#if 0 /* unused */
good = FALSE;
great = FALSE;
#endif /* unused */
break;
}
/* Let us know what we are doing */
msg("Creating a lot of %s items. Base level = %d.",
quality, p_ptr->depth);
message_flush();
/* Set counters to zero */
matches = better = worse = other = 0;
/* Let's rock and roll */
for (i = 0; i <= TEST_ROLL; i++)
{
/* Output every few rolls */
if ((i < 100) || (i % 100 == 0))
{
struct keypress kp;
/* Do not wait */
inkey_scan = SCAN_INSTANT;
/* Allow interupt */
kp = inkey();
if (kp.type != EVT_NONE)
{
flush();
break;
}
/* Dump the stats */
prt(format(q, i, matches, better, worse, other), 0, 0);
Term_fresh();
}
/* Get local object */
i_ptr = &object_type_body;
/* Wipe the object */
object_wipe(i_ptr);
/* Create an object */
make_object(cave, i_ptr, level, good, great, NULL);
/* Allow multiple artifacts, because breaking the game is fine here */
if (o_ptr->artifact) o_ptr->artifact->created = FALSE;
/* Test for the same tval and sval. */
if ((o_ptr->tval) != (i_ptr->tval)) continue;
if ((o_ptr->sval) != (i_ptr->sval)) continue;
/* Check pvals */
ismatch = TRUE;
for (j = 0; j < MAX_PVALS; j++)
if (i_ptr->pval[j] != o_ptr->pval[j])
ismatch = FALSE;
isbetter = TRUE;
for (j = 0; j < MAX_PVALS; j++)
if (i_ptr->pval[j] < o_ptr->pval[j])
isbetter = FALSE;
isworse = TRUE;
for (j = 0; j < MAX_PVALS; j++)
if (i_ptr->pval[j] > o_ptr->pval[j])
isworse = FALSE;
/* Check for match */
if (ismatch && (i_ptr->to_a == o_ptr->to_a) &&
(i_ptr->to_h == o_ptr->to_h) &&
(i_ptr->to_d == o_ptr->to_d) &&
(i_ptr->num_pvals == o_ptr->num_pvals))
{
matches++;
}
/* Check for better */
else if (isbetter && (i_ptr->to_a >= o_ptr->to_a) &&
(i_ptr->to_h >= o_ptr->to_h) &&
(i_ptr->to_d >= o_ptr->to_d))
{
better++;
}
/* Check for worse */
else if (isworse && (i_ptr->to_a <= o_ptr->to_a) &&
(i_ptr->to_h <= o_ptr->to_h) &&
(i_ptr->to_d <= o_ptr->to_d))
{
worse++;
}
/* Assume different */
else
{
other++;
}
}
/* Final dump */
msg(q, i, matches, better, worse, other);
message_flush();
}
/* Hack -- Normally only make a single artifact */
if (o_ptr->artifact) o_ptr->artifact->created = TRUE;
}
/*
* Apply magic to an item or turn it into an artifact. -Bernd-
*/
static void wiz_reroll_item(object_type *o_ptr)
{
object_type *i_ptr;
object_type object_type_body;
struct keypress ch;
bool changed = FALSE;
/* Hack -- leave artifacts alone */
if (o_ptr->artifact) return;
/* Get local object */
i_ptr = &object_type_body;
/* Copy the object */
object_copy(i_ptr, o_ptr);
/* Main loop. Ask for magification and artifactification */
while (TRUE)
{
/* Display full item debug information */
wiz_display_item(i_ptr, TRUE);
/* Ask wizard what to do. */
if (!get_com("[a]ccept, [n]ormal, [g]ood, [e]xcellent? ", &ch))
break;
/* Create/change it! */
if (ch.code == 'A' || ch.code == 'a')
{
changed = TRUE;
break;
}
/* Apply normal magic, but first clear object */
else if (ch.code == 'n' || ch.code == 'N')
{
object_prep(i_ptr, o_ptr->kind, p_ptr->depth, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, FALSE, FALSE);
}
/* Apply good magic, but first clear object */
else if (ch.code == 'g' || ch.code == 'G')
{
object_prep(i_ptr, o_ptr->kind, p_ptr->depth, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, TRUE, FALSE);
}
/* Apply great magic, but first clear object */
else if (ch.code == 'e' || ch.code == 'E')
{
object_prep(i_ptr, o_ptr->kind, p_ptr->depth, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, TRUE, TRUE);
}
}
/* Notice change */
if (changed)
{
/* Mark as cheat */
i_ptr->origin = ORIGIN_CHEAT;
/* Restore the position information */
i_ptr->iy = o_ptr->iy;
i_ptr->ix = o_ptr->ix;
i_ptr->next_o_idx = o_ptr->next_o_idx;
i_ptr->marked = o_ptr->marked;
/* Apply changes */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER | PN_SORT_QUIVER);
/* Window stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP );
}
}
/*
* Play with an item. Options include:
* - Output statistics (via wiz_roll_item)
* - Reroll item (via wiz_reroll_item)
* - Change properties (via wiz_tweak_item)
* - Change the number of items (via wiz_quantity_item)
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type *i_ptr;
object_type object_type_body;
object_type *o_ptr;
struct keypress ch;
const char *q, *s;
bool changed = FALSE;
bool all = TRUE;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, 0, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
o_ptr = object_from_item_idx(item);
/* Save screen */
screen_save();
/* Get local object */
i_ptr = &object_type_body;
/* Copy object */
object_copy(i_ptr, o_ptr);
/* The main loop */
while (TRUE)
{
/* Display the item */
wiz_display_item(i_ptr, all);
/* Get choice */
if (!get_com("[a]ccept [s]tatistics [r]eroll [t]weak [c]urse [q]uantity [k]nown? ", &ch))
break;
if (ch.code == 'A' || ch.code == 'a')
{
changed = TRUE;
break;
}
else if (ch.code == 'c' || ch.code == 'C')
wiz_tweak_curse(i_ptr);
else if (ch.code == 's' || ch.code == 'S')
wiz_statistics(i_ptr, p_ptr->depth);
else if (ch.code == 'r' || ch.code == 'R')
wiz_reroll_item(i_ptr);
else if (ch.code == 't' || ch.code == 'T')
wiz_tweak_item(i_ptr);
else if (ch.code == 'k' || ch.code == 'K')
all = !all;
else if (ch.code == 'q' || ch.code == 'Q')
{
bool carried = (item >= 0) ? TRUE : FALSE;
wiz_quantity_item(i_ptr, carried);
}
}
/* Load screen */
screen_load();
/* Accept change */
if (changed)
{
/* Message */
msg("Changes accepted.");
/* Change */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP );
}
/* Ignore change */
else
{
msg("Changes ignored.");
}
}
/*
* Try to create an item again. Output some statistics. -Bernd-
*
* The statistics are correct now. We acquire a clean grid, and then
* repeatedly place an object in this grid, copying it into an item
* holder, and then deleting the object. We fiddle with the artifact
* counter flags to prevent weirdness. We use the items to collect
* statistics on item creation relative to the initial item.
*/
static void wiz_statistics(object_type *o_ptr)
{
long i, matches, better, worse, other;
char ch;
char *quality;
bool good, great;
object_type *i_ptr;
object_type object_type_body;
cptr q = "Rolls: %ld, Matches: %ld, Better: %ld, Worse: %ld, Other: %ld";
/* Mega-Hack -- allow multiple artifacts XXX XXX XXX */
if (artifact_p(o_ptr)) a_info[o_ptr->name1].cur_num = 0;
/* Interact */
while (TRUE)
{
cptr pmt = "Roll for [n]ormal, [g]ood, or [e]xcellent treasure? ";
/* Display item */
wiz_display_item(o_ptr);
/* Get choices */
if (!get_com(pmt, &ch)) break;
if (ch == 'n' || ch == 'N')
{
good = FALSE;
great = FALSE;
quality = "normal";
}
else if (ch == 'g' || ch == 'G')
{
good = TRUE;
great = FALSE;
quality = "good";
}
else if (ch == 'e' || ch == 'E')
{
good = TRUE;
great = TRUE;
quality = "excellent";
}
else
{
#if 0 /* unused */
good = FALSE;
great = FALSE;
#endif /* unused */
break;
}
/* Let us know what we are doing */
msg_format("Creating a lot of %s items. Base level = %d.",
quality, p_ptr->depth);
message_flush();
/* Set counters to zero */
matches = better = worse = other = 0;
/* Let's rock and roll */
for (i = 0; i <= TEST_ROLL; i++)
{
/* Output every few rolls */
if ((i < 100) || (i % 100 == 0))
{
/* Do not wait */
inkey_scan = TRUE;
/* Allow interupt */
if (inkey())
{
/* Flush */
flush();
/* Stop rolling */
break;
}
/* Dump the stats */
prt(format(q, i, matches, better, worse, other), 0, 0);
Term_fresh();
}
/* Get local object */
i_ptr = &object_type_body;
/* Wipe the object */
object_wipe(i_ptr);
/* Create an object */
make_object(i_ptr, good, great);
/* Mega-Hack -- allow multiple artifacts XXX XXX XXX */
if (artifact_p(i_ptr)) a_info[i_ptr->name1].cur_num = 0;
/* Test for the same tval and sval. */
if ((o_ptr->tval) != (i_ptr->tval)) continue;
if ((o_ptr->sval) != (i_ptr->sval)) continue;
/* Check for match */
if ((i_ptr->pval == o_ptr->pval) &&
(i_ptr->to_a == o_ptr->to_a) &&
(i_ptr->to_h == o_ptr->to_h) &&
(i_ptr->to_d == o_ptr->to_d))
{
matches++;
}
/* Check for better */
else if ((i_ptr->pval >= o_ptr->pval) &&
(i_ptr->to_a >= o_ptr->to_a) &&
(i_ptr->to_h >= o_ptr->to_h) &&
(i_ptr->to_d >= o_ptr->to_d))
{
better++;
}
/* Check for worse */
else if ((i_ptr->pval <= o_ptr->pval) &&
(i_ptr->to_a <= o_ptr->to_a) &&
(i_ptr->to_h <= o_ptr->to_h) &&
(i_ptr->to_d <= o_ptr->to_d))
{
worse++;
}
/* Assume different */
else
{
other++;
}
}
/* Final dump */
msg_format(q, i, matches, better, worse, other);
message_flush();
}
/* Hack -- Normally only make a single artifact */
if (artifact_p(o_ptr)) a_info[o_ptr->name1].cur_num = 1;
}
/*!
* @brief アイテムの質を選択して再生成する /
* Apply magic to an item or turn it into an artifact. -Bernd-
* @param o_ptr 再生成の対象となるアイテム情報の参照ポインタ
* @return なし
*/
static void wiz_reroll_item(object_type *o_ptr)
{
object_type forge;
object_type *q_ptr;
char ch;
bool changed = FALSE;
/* Hack -- leave artifacts alone */
if (object_is_artifact(o_ptr)) return;
/* Get local object */
q_ptr = &forge;
/* Copy the object */
object_copy(q_ptr, o_ptr);
/* Main loop. Ask for magification and artifactification */
while (TRUE)
{
/* Display full item debug information */
wiz_display_item(q_ptr);
/* Ask wizard what to do. */
if (!get_com("[a]ccept, [w]orthless, [c]ursed, [n]ormal, [g]ood, [e]xcellent, [s]pecial? ", &ch, FALSE))
{
/* Preserve wizard-generated artifacts */
if (object_is_fixed_artifact(q_ptr))
{
a_info[q_ptr->name1].cur_num = 0;
q_ptr->name1 = 0;
}
changed = FALSE;
break;
}
/* Create/change it! */
if (ch == 'A' || ch == 'a')
{
changed = TRUE;
break;
}
/* Preserve wizard-generated artifacts */
if (object_is_fixed_artifact(q_ptr))
{
a_info[q_ptr->name1].cur_num = 0;
q_ptr->name1 = 0;
}
switch(ch)
{
/* Apply bad magic, but first clear object */
case 'w': case 'W':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART | AM_GOOD | AM_GREAT | AM_CURSED);
break;
}
/* Apply bad magic, but first clear object */
case 'c': case 'C':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART | AM_GOOD | AM_CURSED);
break;
}
/* Apply normal magic, but first clear object */
case 'n': case 'N':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART);
break;
}
/* Apply good magic, but first clear object */
case 'g': case 'G':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART | AM_GOOD);
break;
}
/* Apply great magic, but first clear object */
case 'e': case 'E':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART | AM_GOOD | AM_GREAT);
break;
}
/* Apply special magic, but first clear object */
case 's': case 'S':
{
object_prep(q_ptr, o_ptr->k_idx);
apply_magic(q_ptr, dun_level, AM_GOOD | AM_GREAT | AM_SPECIAL);
/* Failed to create artifact; make a random one */
if (!object_is_artifact(q_ptr)) create_artifact(q_ptr, FALSE);
break;
}
}
q_ptr->iy = o_ptr->iy;
q_ptr->ix = o_ptr->ix;
q_ptr->next_o_idx = o_ptr->next_o_idx;
q_ptr->marked = o_ptr->marked;
}
/* Notice change */
if (changed)
{
/* Apply changes */
object_copy(o_ptr, q_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER);
}
}
/*!
* @brief 検査対象のアイテムを基準とした生成テストを行う /
* Try to create an item again. Output some statistics. -Bernd-
* @param o_ptr 生成テストの基準となるアイテム情報の参照ポインタ
* @return なし
* The statistics are correct now. We acquire a clean grid, and then
* repeatedly place an object in this grid, copying it into an item
* holder, and then deleting the object. We fiddle with the artifact
* counter flags to prevent weirdness. We use the items to collect
* statistics on item creation relative to the initial item.
*/
static void wiz_statistics(object_type *o_ptr)
{
u32b i, matches, better, worse, other, correct;
u32b test_roll = 1000000;
char ch;
cptr quality;
u32b mode;
object_type forge;
object_type *q_ptr;
cptr q = "Rolls: %ld Correct: %ld Matches: %ld Better: %ld Worse: %ld Other: %ld";
cptr p = "Enter number of items to roll: ";
char tmp_val[80];
/* XXX XXX XXX Mega-Hack -- allow multiple artifacts */
if (object_is_fixed_artifact(o_ptr)) a_info[o_ptr->name1].cur_num = 0;
/* Interact */
while (TRUE)
{
cptr pmt = "Roll for [n]ormal, [g]ood, or [e]xcellent treasure? ";
/* Display item */
wiz_display_item(o_ptr);
/* Get choices */
if (!get_com(pmt, &ch, FALSE)) break;
if (ch == 'n' || ch == 'N')
{
mode = 0L;
quality = "normal";
}
else if (ch == 'g' || ch == 'G')
{
mode = AM_GOOD;
quality = "good";
}
else if (ch == 'e' || ch == 'E')
{
mode = AM_GOOD | AM_GREAT;
quality = "excellent";
}
else
{
break;
}
sprintf(tmp_val, "%ld", (long int)test_roll);
if (get_string(p, tmp_val, 10)) test_roll = atol(tmp_val);
test_roll = MAX(1, test_roll);
/* Let us know what we are doing */
msg_format("Creating a lot of %s items. Base level = %d.",
quality, dun_level);
msg_print(NULL);
/* Set counters to zero */
correct = matches = better = worse = other = 0;
/* Let's rock and roll */
for (i = 0; i <= test_roll; i++)
{
/* Output every few rolls */
if ((i < 100) || (i % 100 == 0))
{
/* Do not wait */
inkey_scan = TRUE;
/* Allow interupt */
if (inkey())
{
/* Flush */
flush();
/* Stop rolling */
break;
}
/* Dump the stats */
prt(format(q, i, correct, matches, better, worse, other), 0, 0);
Term_fresh();
}
/* Get local object */
q_ptr = &forge;
/* Wipe the object */
object_wipe(q_ptr);
/* Create an object */
make_object(q_ptr, mode);
/* XXX XXX XXX Mega-Hack -- allow multiple artifacts */
if (object_is_fixed_artifact(q_ptr)) a_info[q_ptr->name1].cur_num = 0;
/* Test for the same tval and sval. */
if ((o_ptr->tval) != (q_ptr->tval)) continue;
if ((o_ptr->sval) != (q_ptr->sval)) continue;
/* One more correct item */
correct++;
/* Check for match */
if ((q_ptr->pval == o_ptr->pval) &&
(q_ptr->to_a == o_ptr->to_a) &&
(q_ptr->to_h == o_ptr->to_h) &&
(q_ptr->to_d == o_ptr->to_d) &&
(q_ptr->name1 == o_ptr->name1))
{
matches++;
}
/* Check for better */
else if ((q_ptr->pval >= o_ptr->pval) &&
(q_ptr->to_a >= o_ptr->to_a) &&
(q_ptr->to_h >= o_ptr->to_h) &&
(q_ptr->to_d >= o_ptr->to_d))
{
better++;
}
/* Check for worse */
else if ((q_ptr->pval <= o_ptr->pval) &&
(q_ptr->to_a <= o_ptr->to_a) &&
(q_ptr->to_h <= o_ptr->to_h) &&
(q_ptr->to_d <= o_ptr->to_d))
{
worse++;
}
/* Assume different */
else
{
other++;
}
}
/* Final dump */
msg_format(q, i, correct, matches, better, worse, other);
msg_print(NULL);
}
/* Hack -- Normally only make a single artifact */
if (object_is_fixed_artifact(o_ptr)) a_info[o_ptr->name1].cur_num = 1;
}
/**
* Play with an item. Options include:
* - Output statistics (via wiz_roll_item)
* - Reroll item (via wiz_reroll_item)
* - Change properties (via wiz_tweak_item)
* - Change the number of items (via wiz_quantity_item)
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type *i_ptr;
object_type object_type_body;
object_type *o_ptr;
struct keypress ch;
const char *q, *s;
bool changed;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, 0, (USE_EQUIP | USE_INVEN | USE_FLOOR)))
return;
/* Get the item (in the pack) */
if (item >= 0) {
o_ptr = &p_ptr->inventory[item];
}
/* Get the item (on the floor) */
else {
o_ptr = &o_list[0 - item];
}
/* The item was not changed */
changed = FALSE;
/* Save screen */
screen_save();
/* Get local object */
i_ptr = &object_type_body;
/* Copy object */
object_copy(i_ptr, o_ptr);
/* The main loop */
while (TRUE) {
/* Display the item */
wiz_display_item(i_ptr);
/* Get choice */
if (!get_com
("[a]ccept [s]tatistics [r]eroll [t]weak [q]uantity? ", &ch)) {
changed = FALSE;
break;
}
if (ch.code == 'A' || ch.code == 'a') {
changed = TRUE;
break;
}
if (ch.code == 's' || ch.code == 'S') {
wiz_statistics(i_ptr);
}
if (ch.code == 'r' || ch.code == 'R') {
wiz_reroll_item(i_ptr);
}
if (ch.code == 't' || ch.code == 'T') {
wiz_tweak_item(i_ptr);
}
if (ch.code == 'q' || ch.code == 'Q') {
wiz_quantity_item(i_ptr);
}
}
/* Load screen */
screen_load();
/* Accept change */
if (changed) {
/* Message */
msg("Changes accepted.");
/* Change */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER | PN_SORT_QUIVER);
/* Redraw stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
/* Ignore change */
else {
msg("Changes ignored.");
}
}
/**
* Apply magic to an item or turn it into an artifact. -Bernd-
*/
static void wiz_reroll_item(object_type * o_ptr)
{
object_type *i_ptr;
object_type object_type_body;
char ch;
bool changed = FALSE;
/* Hack -- leave artifacts alone */
if (artifact_p(o_ptr))
return;
/* Get local object */
i_ptr = &object_type_body;
/* Copy the object */
object_copy(i_ptr, o_ptr);
/* Main loop. Ask for magification and artifactification */
while (TRUE) {
/* Display full item debug information */
wiz_display_item(i_ptr);
/* Ask wizard what to do. */
if (!get_com("[a]ccept, [n]ormal, [g]ood, [e]xcellent? ", &ch)) {
changed = FALSE;
break;
}
/* Create/change it! */
if (ch == 'A' || ch == 'a') {
changed = TRUE;
break;
}
/* Apply normal magic, but first clear object */
else if (ch == 'n' || ch == 'N') {
object_prep(i_ptr, o_ptr->k_idx, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, FALSE, FALSE);
}
/* Apply good magic, but first clear object */
else if (ch == 'g' || ch == 'g') {
object_prep(i_ptr, o_ptr->k_idx, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, TRUE, FALSE);
}
/* Apply great magic, but first clear object */
else if (ch == 'e' || ch == 'e') {
object_prep(i_ptr, o_ptr->k_idx, RANDOMISE);
apply_magic(i_ptr, p_ptr->depth, FALSE, TRUE, TRUE);
}
}
/* Notice change */
if (changed) {
/* Apply changes */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Redraw stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
}
