trader.c

/*
    trader.c  -  Anything to do with trading posts
   
    UltraRogue
    Copyright (C) 1984, 1985, 1986, 1987, 1990 Herb Chong
    All rights reserved.
    
    Based on "Advanced Rogue"
    Copyright (C) 1983, 1984 Michael Morgan, Ken Dalka and AT&T
    All rights reserved.

    Based on "Super-Rogue"
    Copyright (C) 1982, 1983 Robert D. Kindelberger
    All rights reserved.

    See the file LICENSE.TXT for full copyright and licensing information.
*/

#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include "rogue.h"

#define EFFECTIVE_PURSE ((player.t_ctype==C_PALADIN)?(9 * purse / 10) : purse)
static int	num_transactions;
static int	cur_worth;  /* How much the shop item costs */

/*
 * do_post: Buy and sell things in a trading post
 */
void
do_post()
{
	bool	bad_letter = FALSE;

	num_transactions = 0;
	cur_worth = 0;

	for (;;) {
	    wclear(hw);
	    if (!open_market())
		return;

	    wstandout(hw);
	    mvwaddstr(hw, 0, ur_cols / 2 - 30, "Welcome to Friendly Fiend's Flea Market");
	    wstandend(hw);
	    wclrtoeol(hw);
	    trans_line();   /* hw,ur_lines-2,0,"You have xxx transactions
		     * left"); */
	    if (bad_letter) {
		bad_letter = FALSE;
		wstandout(hw);
		mvwaddstr(hw, 7, 0, "Type 'i' or 'I' to inventory, 'l' to leave, 'b' to buy, or 's' to sell");
		wstandend(hw);
	    }
	    mvwaddstr(hw, 6, 0, "Do you wish to buy, sell, inventory, or leave?");
	    touchwin(hw);
	    wrefresh(hw);

	    switch (readcharw(hw)) {
		when 'b':
		    mvwaddstr(hw, 7, 0, "Lets go into the buying section of the store...");
		    touchwin(hw);
		    wrefresh(hw);
		    buy_it('\0', ISNORMAL);
		when 's':
		    mvwaddstr(hw, 7, 0, "Lets go into the selling section of the store...");
		    touchwin(hw);
		    wrefresh(hw);
		    sell_it();
		when 'i':
		    inventory(pack, '*');
		when 'I':
		    inventory(pack, 0);
		when 'l':
		    wclear(hw);
		    wrefresh(hw);
		    wrefresh(cw);
		    return;
		otherwise:
		    bad_letter = TRUE;
	    }
	}
}

void
buy_it(char itemtype, int flags)
{
	int i;
	bool	blessed = flags & ISBLESSED;
	bool	cursed = flags & ISCURSED;
	bool	is_spell = flags & SCR_MAGIC;
	int array_size; /* # of items within type */
	int which_type; /* Which type to buy */
	int which_one;	/* Which one within type */
	int plus_or_minus = 0;	/* for magic items */
	struct magic_item   *magic_array = NULL;
	struct linked_list  *item;
	struct object	*obj;
	char	buf[2 * LINELEN];

buy_more:
	do {
	    array_size = 0;
	    if (itemtype == '\0') {
		mpos = 0;
		mvwaddstr(hw, 11, 0, "WHAT\tTYPE\n! Potion\n? Scroll\n= Ring\n/ Stick\n] Armor\n) Weapon\n: Food");
		if (wizard)
		    mvwaddstr(hw, 19, 0, ", Artifact");
		mvwaddstr(hw, 9, 0, "What type of item do you want? ");
		touchwin(hw);
		wrefresh(hw);
		itemtype = readcharw(hw);
	    }
	    switch (itemtype) {
		when	POTION:
		    which_type = TYP_POTION;
		    array_size = maxpotions;
		    magic_array = p_magic;
		when	SCROLL:
		    which_type = TYP_SCROLL;
		    array_size = maxscrolls;
		    magic_array = s_magic;
		when	FOOD:
		    which_type = TYP_FOOD;
		    array_size = maxfoods;
		    magic_array = fd_data;
		when	WEAPON:
		    which_type = TYP_WEAPON;
		    array_size = maxweapons;
		when	ARMOR:
		    which_type = TYP_ARMOR;
		    array_size = maxarmors;
		when	RING:
		    which_type = TYP_RING;
		    array_size = maxrings;
		    magic_array = r_magic;
		when	STICK:
		    which_type = TYP_STICK;
		    array_size = maxsticks;
		    magic_array = ws_magic;
		when	ARTIFACT:
		    if (!wizard) {
			itemtype = '\0';
			continue;
		    }
		    which_type = TYP_ARTIFACT;
		    array_size = maxartifact;
		when	ESCAPE:
		    return;
		otherwise:
		    wstandout(hw);
		    mvwaddstr(hw, 10, 0, "We don't stock any of those.");
		    wstandend(hw);
		    itemtype = '\0';
		    continue;
	    }
	} while (array_size == 0);

	which_one = array_size;
	do {
	    struct magic_item	*m_item;

	    mpos = 0;
	    sprintf(buf, "Which kind of %s do you wish to have (* for list)? ",
		things[which_type].mi_name);
	    mvwaddstr(hw, 9, 0, buf);
	    touchwin(hw);
	    wrefresh(hw);
	    buf[0] = '\0';
	    switch (get_str(buf, hw)) {
		when	QUIT:
		case ESCAPE:
		    if (is_spell) wclear(hw);
		    itemtype = '\0';
		    goto buy_more;
	    }
	    if (buf[0] == '*') {    /* print list */
		add_line(" ID  BASECOST NAME");
		switch (which_type) {
		    when    TYP_RING:
		    case TYP_POTION:
		    case TYP_STICK:
		    case TYP_SCROLL:
		    case TYP_FOOD:
			for (i = 0, m_item = magic_array; i < array_size; i++, m_item++)
			    if (m_item->mi_worth > 0) {
				sprintf(buf, "%3d) %8d %s", i, m_item->mi_worth, m_item->mi_name);
				add_line(buf);
			    }
		    when    TYP_ARMOR:
			for (i = 0; i < array_size; i++)
			    if (armors[i].a_worth > 0) {
				sprintf(buf, "%3d) %8d %s", i, armors[i].a_worth, armors[i].a_name);
				add_line(buf);
			    }
		    when    TYP_WEAPON:
			for (i = 0; i < array_size; i++)
			    if (weaps[i].w_worth > 0) {
				sprintf(buf, "%3d) %8d %s", i, weaps[i].w_worth, weaps[i].w_name);
				add_line(buf);
			    }
		    when    TYP_ARTIFACT:
			for (i = 0; i < array_size; i++) {
			    sprintf(buf, "%3d) %8d %s", i, arts[i].ar_worth, arts[i].ar_name);
			    add_line(buf);
			}
		    otherwise:
			add_line("What a strange type.");
		}
		end_line();
		touchwin(hw);
		wrefresh(hw);
		continue;
	    }
	    if (isdigit(buf[0]))
		which_one = atoi(buf);
	    else
		switch (which_type) {
		    when    TYP_RING:
		    case TYP_POTION:
		    case TYP_STICK:
		    case TYP_SCROLL:
		    case TYP_FOOD:
			for (i = 0, m_item = magic_array; i < array_size; i++, m_item++)
			    if (strcmp(buf, m_item->mi_name) == 0)
				which_one = i;
		    when    TYP_ARMOR:
			for (i = 0; i < array_size; i++)
			    if (strcmp(buf, armors[i].a_name) == 0)
				which_one = i;
		    when    TYP_WEAPON:
			for (i = 0; i < array_size; i++)
			    if (strcmp(buf, weaps[i].w_name) == 0)
				which_one = i;
		    when    TYP_ARTIFACT:
			for (i = 0; i < array_size; i++)
			    if (strcmp(buf, arts[i].ar_name) == 0)
				which_one = i;
		    otherwise:
			msg("What a strange type.");
		}
	    if (which_one < 0 || which_one >= array_size) {
		wstandout(hw);
		mvwaddstr(hw, 10, 0, "Type the name or an ID number.");
		wstandend(hw);
	    }

	} while (which_one < 0 || which_one >= array_size);

	item = new_item(sizeof *obj);
	obj = OBJPTR(item);
	if (which_type == TYP_ARTIFACT) {
	    new_artifact(which_one, obj);
	    add_pack(item, NOMESSAGE);
	    itemtype = '\0';
	    goto buy_more;
	}
	obj->o_type = itemtype;
	obj->o_which = which_one;
	obj->o_mark[0] = '\0';
	obj->o_group = 0;
	obj->o_count = 1;
	obj->o_weight = 0;
	obj->o_dplus = obj->o_hplus = 0;

	if (!is_spell) {
	    plus_or_minus = -100;
	    do {
		mvwaddstr(hw, 10, 0, "Do you want the cursed, blessed, or normal version? (c, b, n) [n]");
		touchwin(hw);
		wrefresh(hw);
		blessed = cursed = FALSE;
		switch (readcharw(hw)) {
		    when    ESCAPE:
			discard(item);
			itemtype = '\0';
			goto buy_more;
		    when 'c':
			cursed = TRUE;
	plus_or_minus = 0;
		    when 'b':
			blessed = TRUE;
	plus_or_minus = 0;
		    when 'n':
		    case ' ':
	plus_or_minus = 0;
		    otherwise:
			wstandout(hw);
			mvwaddstr(hw, 11, 0, "Type 'c' for cursed, 'b' for blessed, or 'n' for normal");
			wstandend(hw);
		}

	    } while (plus_or_minus == -100);
	}
	/* else used blessed, cursed from flags parameter */

	if (which_type == TYP_WEAPON)
	    init_weapon(obj, which_one);

	obj->o_flags |= ISKNOW;
	if (cursed) {
	    plus_or_minus = -(rnd(2) + 1);
	    obj->o_flags |= ISCURSED;
	}
	else if (blessed) {
	    plus_or_minus = (rnd(3) + 1);
	    obj->o_flags |= ISBLESSED;
	}
	else {
	    plus_or_minus = 0;
	    obj->o_flags |= ISNORMAL;
	}

	switch (which_type) {
	    when    TYP_WEAPON:
		obj->o_hplus += plus_or_minus;
		obj->o_dplus += plus_or_minus;
	    when    TYP_ARMOR:
		obj->o_weight = armors[which_one].a_wght;
		obj->o_ac = armors[which_one].a_class - plus_or_minus;
	    when    TYP_STICK:
		fix_stick(obj);
	    when    TYP_RING:
		obj->o_ac = plus_or_minus;
	    case TYP_SCROLL:
	    case TYP_POTION:
		obj->o_weight = things[which_type].mi_wght;
	    when    TYP_FOOD:
		otherwise:
		msg("That's a strange thing to try to own.");
		itemtype = '\0';
		goto buy_more;
	}

	cur_worth = get_worth(obj) * (luck + level / 15 + 1);
	describe_it(obj);
	if (cur_worth > EFFECTIVE_PURSE) {
	    wstandout(hw);
	    mvwaddstr(hw, 12, 0, "Unfortunately, you can't afford it. --more--");
	    wstandend(hw);
	    wclrtoeol(hw);
	    touchwin(hw);
	    wrefresh(hw);
	    (void) readcharw(hw);
	    wclear(hw);
	    itemtype = '\0';
	    goto buy_more;
	}

	mvwaddstr(hw, 12, 0, "Do you want it? [y] ");
	wclrtoeol(hw);
	touchwin(hw);
	wrefresh(hw);
	switch (readcharw(hw)) {
	    when    ESCAPE:
	    case 'n':
		msg("");
		itemtype = '\0';
		goto buy_more;
	}

	/*
	 * The hero bought the item here
	 */
	mpos = 0;
	if (add_pack(item, NOMESSAGE)) {
	    purse -= cur_worth; /* take his money */
	    if (!is_spell) {
		++num_transactions;
		trans_line();   /* show remaining deals */
	    }
	    switch (which_type) {
		when	TYP_RING:
		case TYP_STICK:
		case TYP_SCROLL:
		case TYP_POTION:
		    know_items[which_type][which_one] = TRUE;
	    }
	}
	if (is_spell) {
	    wclear(hw);
	    wrefresh(hw);
	    touchwin(cw);
	    wrefresh(cw);
	}
}

/*
 * sell_it: Sell an item to the trading post
 */
void
sell_it()
{
	struct object	*obj;
	struct linked_list  *item;
	char	buf[2 * LINELEN];

	if ((item = get_item("sell", 0)) == NULL)
	    return;
	obj = OBJPTR(item);
	msg("");
	touchwin(hw);
	wrefresh(hw);

	if ((obj->o_type == ARTIFACT) || (cur_worth = get_worth(obj)) == 0) {
	    mpos = 0;
	    msg("We don't buy those.");
	    if (is_wearing(R_ADORNMENT) && rnd(10) < 4)
		msg("How about that %s ring instead?", r_stones[R_ADORNMENT]);
	    return;
	}
	describe_it(obj);
	mvwaddstr(hw, 12, 0, "Do you want to sell it? [n] ");
	touchwin(hw);
	wrefresh(hw);
	switch (readcharw(hw)) {
	    case 'y':
		break;
	    otherwise:
		msg("");
		if (is_wearing(R_ADORNMENT))
		    msg("How about that %s ring instead?",
			r_stones[R_ADORNMENT]);
		return;
	}

	rem_pack(obj);
	purse += cur_worth; /* give him his money */
	++num_transactions;
	sprintf(buf, "Sold %s.	Hit space to continue.",
	    inv_name(obj, LOWERCASE));
	discard(item);
	mvwaddstr(hw, 13, 0, buf);
	touchwin(hw);
	wrefresh(hw);
	wait_for(' ');
}

/*
 * describe_it: Laud or condemn the object
 */
void
describe_it(struct object *obj)
{
	static char *cursed_d[] = {
	    "worthless hunk of junk",
	    "shoddy piece of trash",
	    "piece of rusty garbage",
	    "example of terrible workmanship",
	    "cheap hack"
	};
	static char *normal_d[] = {
	    "journeyman's piece",
	    "fine deal",
	    "great bargain",
	    "good find",
	    "real value",
	    "piece of honest workmanship",
	    "steal",
	    "purchase worth making",
	    "inexpensive product"
	};
	static char *blessed_d[] = {
	    "magnificant masterpiece",
	    "quality product",
	    "exceptional find",
	    "unbeatable value",
	    "rare beauty",
	    "superior product",
	    "well-crafted item"
	};
	char	*charp;
	char	buf[2 * LINELEN];

	if (obj->o_flags & ISBLESSED)
	    charp = blessed_d[rnd(sizeof(blessed_d) / sizeof(char *))];
	else if (obj->o_flags & ISCURSED)
	    charp = cursed_d[rnd(sizeof(cursed_d) / sizeof(char *))];
	else
	    charp = normal_d[rnd(sizeof(normal_d) / sizeof(char *))];

	sprintf(buf, "It's a%s %s worth %d pieces of gold.",
	    vowelstr(charp), charp, cur_worth);
	mvwaddstr(hw, 11, 0, buf);
	wclrtoeol(hw);
}

/*
 * open_market: Retruns TRUE when ok do to transacting
 */
int
open_market()
{
	int maxtrans = is_wearing(R_ADORNMENT) ? MAXPURCH + 4 : MAXPURCH;

	if (wizard || num_transactions < maxtrans || (level == 0))
	    return TRUE;
	else {
	    msg("The market is closed. The stairs are that-a-way.");
	    return FALSE;
	}
}

/*
 * get_worth: Calculate an objects worth in gold
 */
int
get_worth(struct object *obj)
{
	long	worth = 0;
	int wh = obj->o_which;
	int blessed = obj->o_flags & ISBLESSED;
	int cursed = obj->o_flags & ISCURSED;

	switch (obj->o_type) {
	    when    FOOD:
		if (wh < maxfoods) {
		    worth = obj->o_count * fd_data[wh].mi_worth;
		    if (blessed)
			worth *= 2;
		}
	    when    WEAPON:
		if (wh < maxweapons) {
		    worth = weaps[wh].w_worth;
		    worth *= obj->o_count * (2 +
			    (4 * obj->o_hplus +
			    4 * obj->o_dplus));
		    if (obj->o_flags & ISSILVER)
			worth *= 2;
		    if (obj->o_flags & ISPOISON)
			worth *= 2;
		    if (obj->o_flags & ISZAPPED)
			worth += 20 * obj->o_charges;
		}
	    when    ARMOR:
		if (wh < maxarmors) {
		    int plusses = armors[wh].a_class -
			obj->o_ac;

		    worth = armors[wh].a_worth;
		    if (plusses > 0)
			worth *= (1 + (10 *
			    (armors[wh].a_class -
			    obj->o_ac)));
		}
	    when    SCROLL:
		if (wh < maxscrolls)
		worth = s_magic[wh].mi_worth;
	    when    POTION:
		if (wh < maxpotions)
		    worth = p_magic[wh].mi_worth;
	    when    RING:
		if (wh < maxrings) {
		    worth = r_magic[wh].mi_worth;
		    worth += obj->o_ac * 40;
		}
	    when    STICK:
		if (wh < maxsticks) {
		    worth = ws_magic[wh].mi_worth;
		    worth += 20 * obj->o_charges;
		}
	    when    ARTIFACT:
		if (wh < maxartifact)
		    worth = arts[wh].ar_worth;
	    otherwise:
		worth = 0;
	}

	if (obj->o_flags & ISPROT)  /* 300% more for protected */
	    worth *= 3;

	if (blessed)	    /* 50% more for blessed */
	    worth = 3 * worth / 2;
	else if (cursed)    /* half for cursed */
	    worth /= 2;

	if (obj->o_flags & (CANRETURN | ISOWNED))
	    worth *= 4;
	else if (obj->o_flags & CANRETURN)
	    worth *= 2;
	else if (obj->o_flags & ISLOST)
	    worth /= 3;

	return (max(0, worth));
}

/*
 * trans_line: Show how many transactions the hero has left
 */
void
trans_line()
{
	char	buf[2 * LINELEN];
	int adorned = is_wearing(R_ADORNMENT);

	if (level == 0 && purse > 0)
	    sprintf(buf, "You still have %d pieces of gold left.", purse);
	else if (purse == 0)
	    sprintf(buf, "You have no money left.");
	else if (!wizard)
	    sprintf(buf, "You have %d transactions and %d gold pieces remaining.",
		max(0, (adorned ? MAXPURCH + 4 : MAXPURCH) - num_transactions), EFFECTIVE_PURSE);
	else
	    sprintf(buf, "You have infinite transactions remaining.");
	mvwaddstr(hw, ur_lines - 2, 0, buf);
}