--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/arogue7/trader.c	Fri May 08 15:24:40 2015 -0400
@@ -0,0 +1,539 @@
+/*
+ * trader.c - Anything to do with trading posts
+ *
+ * Advanced Rogue
+ * Copyright (C) 1984, 1985, 1986 Michael Morgan, Ken Dalka and AT&T
+ * All rights reserved.
+ *
+ * Based on "Rogue: Exploring the Dungeons of Doom"
+ * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+ * All rights reserved.
+ *
+ * See the file LICENSE.TXT for full copyright and licensing information.
+ */
+
+/*
+ * Anything to do with trading posts
+ */
+
+#include "curses.h"
+#include "rogue.h"
+
+
+
+
+
+/*
+ * buy_it:
+ *	Buy the item on which the hero stands
+ */
+buy_it()
+{
+	reg int wh;
+	struct linked_list *item;
+
+	if (purse <= 0) {
+	    msg("You have no money.");
+	    return;
+	}
+	if (curprice < 0) {		/* if not yet priced */
+	    wh = price_it();
+	    if (!wh)			/* nothing to price */
+		return;
+	    msg("Do you want to buy it? ");
+	    do {
+		wh = tolower(readchar());
+		if (wh == ESCAPE || wh == 'n') {
+		    msg("");
+		    return;
+		}
+	    } until(wh == 'y');
+	}
+	mpos = 0;
+	if (curprice > purse) {
+	    msg("You can't afford to buy that %s !",curpurch);
+	    return;
+	}
+	/*
+	 * See if the hero has done all his transacting
+	 */
+	if (!open_market())
+	    return;
+	/*
+	 * The hero bought the item here
+	 */
+	item = find_obj(hero.y, hero.x);
+	mpos = 0;
+	if (add_pack(NULL, TRUE, &item)) {	/* try to put it in his pack */
+	    purse -= curprice;		/* take his money */
+	    ++trader;			/* another transaction */
+	    trans_line();		/* show remaining deals */
+	    curprice = -1;		/* reset stuff */
+	    curpurch[0] = 0;
+	    whatis (item);		/* identify it after purchase */
+	    (OBJPTR(item))->o_flags &= ~ISPOST; /* turn off ISPOST */
+	    msg("%s", inv_name(OBJPTR(item), TRUE));
+	}
+}
+
+/*
+ * do_post:
+ *	Put a trading post room and stuff on the screen
+ */
+do_post(startup)
+bool startup;	/* True if equipping the player at the beginning of the game */
+{
+	coord tp;
+	reg int i, j, k;
+	reg struct room *rp;
+	reg struct object *op;
+	reg struct linked_list *ll;
+
+	o_free_list(lvl_obj);		/* throw old items away */
+
+	for (rp = rooms; rp < &rooms[MAXROOMS]; rp++)
+	    rp->r_flags = ISGONE;		/* kill all rooms */
+
+	rp = &rooms[0];				/* point to only room */
+	rp->r_flags = 0;			/* this room NOT gone */
+	rp->r_max.x = 40;
+	rp->r_max.y = 10;			/* 10 * 40 room */
+	rp->r_pos.x = (cols - rp->r_max.x) / 2;	/* center horizontal */
+	rp->r_pos.y = 1;			/* 2nd line */
+	draw_room(rp);				/* draw the only room */
+
+	/* Are we equipping the player? */
+	if (startup) {
+	    int wpt;
+
+	    /*
+	     * Give the rogue some weaponry.  
+	     */
+	    for (wpt=0; wpt<MAXWEAPONS; wpt++) {
+		ll = spec_item(WEAPON, wpt, rnd(2), rnd(2)+1);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_flags |= (ISPOST | ISKNOW);
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /*
+	     * And his suit of armor.......
+	     * Thieves can only wear leather armor,
+	     * so make sure some is available for them.
+	     */
+	    for (i=0; i<MAXARMORS; i++) {
+		ll = spec_item(ARMOR, i, 0, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_flags |= (ISPOST | ISKNOW);
+		op->o_weight = armors[i].a_wght;
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /* Now create some wands */
+	    for (i=rnd(4)+2; i>0; i--) {
+		switch (rnd(8)) {
+		    case 0: j = WS_SLOW_M;
+		    when 1: j = WS_TELMON;
+		    when 2: j = WS_CONFMON;
+		    when 3: j = WS_PARALYZE;
+		    when 4: j = WS_MDEG;
+		    when 5: j = WS_WONDER;
+		    when 6: j = WS_FEAR;
+		    when 7: j = WS_LIGHT;
+		}
+		ll = spec_item(STICK, j, 0, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+
+		/* Let clerics and MU'S know what kind they are */
+		switch (player.t_ctype) {
+		    case C_MAGICIAN:
+		    case C_CLERIC:
+		    case C_DRUID:
+			op->o_flags |= (ISPOST | ISKNOW);
+		    otherwise:
+			op->o_flags |= ISPOST;
+		}
+		fix_stick(op);
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /* Now let's make some rings */
+	    for (i=rnd(4)+3; i>0; i--) {
+		k = 0;
+		switch (rnd(15)) {
+		case 0: j = R_PROTECT;	k = roll(1,2);
+		when 1: j = R_ADDSTR;	k = roll(1,3);
+		when 2: j = R_ADDHIT;	k = roll(1,3);
+		when 3: j = R_ADDDAM;	k = roll(1,3);
+		when 4: j = R_DIGEST;	k = 1;
+		when 5: j = R_ADDINTEL;	k = roll(1,3);
+		when 6: j = R_ADDWISDOM;k = roll(1,3);
+		when 7: j = R_SUSABILITY;
+		when 8: j = R_SEEINVIS;
+		when 9: j = R_ALERT;
+		when 10:j = R_HEALTH;
+		when 11:j = R_HEROISM;
+		when 12:j = R_FIRE;
+		when 13:j = R_WARMTH;
+		when 14:j = R_FREEDOM;
+		}
+		ll = spec_item(RING, j, k, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+
+		/*
+		 * Let fighters, assassins, monks, and thieves know what kind
+		 * of rings these are.
+		 */
+		switch (player.t_ctype) {
+		    case C_FIGHTER:
+		    case C_THIEF:
+		    case C_ASSASIN:
+		    case C_MONK:
+			op->o_flags |= (ISPOST | ISKNOW);
+		    otherwise:
+			op->o_flags |= ISPOST;
+		}
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /* Let's offer some potions */
+	    for (i=rnd(3)+1; i>0; i--) {
+		/* Choose the type of potion */
+		if (i == 1 && player.t_ctype == C_ASSASIN) j = P_POISON;
+		else switch (rnd(8)) {
+		    case 0:	j = P_CLEAR;
+		    when 1:	j = P_HEALING;
+		    when 2:	j = P_MFIND;
+		    when 3:	j = P_TFIND;
+		    when 4:	j = P_HASTE;
+		    when 5:	j = P_RESTORE;
+		    when 6:	j = P_FLY;
+		    when 7:	j = P_FFIND;
+		}
+
+		/* Make the potion */
+		ll = spec_item(POTION, j, 0, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_flags |= ISPOST;
+
+		/* Place the potion */
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /* Let's offer some scrolls */
+	    for (i=rnd(3)+1; i>0; i--) {
+		/* Choose the type of scrolls */
+		switch (rnd(8)) {
+		    case 0:	j = S_CONFUSE;
+		    when 1:	j = S_MAP;
+		    when 2:	j = S_LIGHT;
+		    when 3:	j = S_SLEEP;
+		    when 4:	j = S_IDENT;
+		    when 5:	j = S_GFIND;
+		    when 6:	j = S_REMOVE;
+		    when 7:	j = S_CURING;
+		}
+
+		/* Make the scroll */
+		ll = spec_item(SCROLL, j, 0, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_flags |= ISPOST;
+
+		/* Place the scroll */
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+
+	    /* And finally, let's get some food */
+	    for (i=rnd(3)+1; i>0; i--) {
+		ll = spec_item(FOOD, 0, 0, 0);
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_weight = things[TYP_FOOD].mi_wght;
+		op->o_flags |= ISPOST;
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+	}
+	else {
+	    i = roll(10, 4);			/* 10 to 40 items */
+	    for (; i > 0 ; i--) {		/* place all the items */
+		ll = new_thing(ALL, TRUE);		/* get something */
+		attach(lvl_obj, ll);
+		op = OBJPTR(ll);
+		op->o_flags |= ISPOST;		/* object in trading post */
+		do {
+		    rnd_pos(rp,&tp);
+		} until (mvinch(tp.y, tp.x) == FLOOR);
+		op->o_pos = tp;
+		mvaddch(tp.y,tp.x,op->o_type);
+	    }
+	}
+	wmove(cw,12,0);
+	trader = 0;
+	if (startup) {
+	    waddstr(cw,"Welcome to Friendly Fiend's Equipage\n\r");
+	    waddstr(cw,"====================================\n\r");
+	}
+	else {
+	    waddstr(cw,"Welcome to Friendly Fiend's Flea Market\n\r");
+	    waddstr(cw,"=======================================\n\r");
+	}
+	waddstr(cw,"$: Prices object that you stand upon.\n\r");
+	waddstr(cw,"#: Buys the object that you stand upon.\n\r");
+	waddstr(cw,"%: Trades in something in your pack for gold.\n\r");
+	trans_line();
+}
+
+
+/*
+ * get_worth:
+ *	Calculate an objects worth in gold
+ */
+get_worth(obj)
+reg struct object *obj;
+{
+	reg int worth, wh;
+
+	worth = 0;
+	wh = obj->o_which;
+	switch (obj->o_type) {
+	    case FOOD:
+		worth = 2;
+	    when WEAPON:
+		if (wh < MAXWEAPONS) {
+		    worth = weaps[wh].w_worth;
+		    worth += s_magic[S_ALLENCH].mi_worth * 
+		   		 (obj->o_hplus + obj->o_dplus);
+		}
+	    when ARMOR:
+		if (wh < MAXARMORS) {
+		    worth = armors[wh].a_worth;
+		    worth += s_magic[S_ALLENCH].mi_worth * 
+				(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 MM:
+		if (wh < MAXMM) {
+		    worth = m_magic[wh].mi_worth;
+		    switch (wh) {
+			case MM_BRACERS:	worth += 40  * obj->o_ac;
+			when MM_PROTECT:	worth += 60  * obj->o_ac;
+			when MM_DISP:		/* ac already figured in price*/
+			otherwise:		worth += 20  * obj->o_ac;
+		    }
+		}
+	    when RELIC:
+		if (wh < MAXRELIC) {
+		    worth = rel_magic[wh].mi_worth;
+		    if (wh == quest_item) worth *= 10;
+		}
+	    otherwise:
+		worth = 0;
+	}
+	if (obj->o_flags & ISPROT)	/* 300% more for protected */
+	    worth *= 3;
+	if (obj->o_flags &  ISBLESSED)	/* 50% more for blessed */
+	    worth = worth * 3 / 2;
+	if (obj->o_flags & ISCURSED)	/* half for cursed */
+	    worth /= 2;
+	if (worth < 0)
+	    worth = 0;
+	return worth;
+}
+
+/*
+ * open_market:
+ *	Retruns TRUE when ok do to transacting
+ */
+open_market()
+{
+	if (trader >= MAXPURCH && !wizard && level != 0) {
+	    msg("The market is closed. The stairs are that-a-way.");
+	    return FALSE;
+	}
+	else {
+	    return TRUE;
+	}
+}
+
+/*
+ * price_it:
+ *	Price the object that the hero stands on
+ */
+price_it()
+{
+	reg struct linked_list *item;
+	reg struct object *obj;
+	reg int worth;
+	reg char *str;
+
+	if (!open_market())		/* after buying hours */
+	    return FALSE;
+	if ((item = find_obj(hero.y,hero.x)) == NULL) {
+	    debug("Can't find the item");
+	    return FALSE;
+	}
+	obj = OBJPTR(item);
+	worth = get_worth(obj);
+	if (worth < 0) {
+	    msg("That's not for sale.");
+	    return FALSE;
+	}
+	if (worth < 25)
+	    worth = 25;
+
+	/* Our shopkeeper is affected by the person's charisma */
+	worth = (int) ((float) worth * (17. / (float)pstats.s_charisma));
+	str = inv_name(obj, TRUE);
+	msg("%s for only %d pieces of gold", str, worth);
+	curprice = worth;		/* save price */
+	strcpy(curpurch,str);		/* save item */
+	return TRUE;
+}
+
+
+
+/*
+ * sell_it:
+ *	Sell an item to the trading post
+ */
+sell_it()
+{
+	reg struct linked_list *item;
+	reg struct object *obj;
+	reg int wo, ch;
+
+	if (!open_market())		/* after selling hours */
+	    return;
+
+	if ((item = get_item(pack, "sell", ALL, FALSE, FALSE)) == NULL)
+	    return;
+	obj = OBJPTR(item);
+	wo = get_worth(obj);
+	if (wo <= 0) {
+	    mpos = 0;
+	    msg("We don't buy those.");
+	    return;
+	}
+	if (wo < 25)
+	    wo = 25;
+	msg("Your %s is worth %d pieces of gold.",typ_name(obj),wo);
+	msg("Do you want to sell it? ");
+	do {
+	    ch = tolower(readchar());
+	    if (ch == ESCAPE || ch == 'n') {
+		msg("");
+		return;
+	    }
+	} until (ch == 'y');
+	mpos = 0;
+	if (drop(item) == TRUE) {		/* drop this item */	
+	    purse += wo;			/* give him his money */
+	    ++trader;				/* another transaction */
+	    wo = obj->o_count;
+	    if (obj->o_group == 0) 		/* dropped one at a time */
+		obj->o_count = 1;
+	    msg("Sold %s",inv_name(obj,TRUE));
+	    obj->o_count = wo;
+	    trans_line();			/* show remaining deals */
+	}
+}
+
+/*
+ * trans_line:
+ *	Show how many transactions the hero has left
+ */
+trans_line()
+{
+	if (level == 0)
+	    sprintf(prbuf, "You are welcome to spend whatever you have.");
+	else if (!wizard)
+	    sprintf(prbuf,"You have %d transactions remaining.",
+		    MAXPURCH - trader);
+	else
+	    sprintf(prbuf,
+		"You have infinite transactions remaining oh great wizard.");
+	mvwaddstr(cw,lines - 3,0,prbuf);
+}
+
+
+
+/*
+ * typ_name:
+ * 	Return the name for this type of object
+ */
+char *
+typ_name(obj)
+reg struct object *obj;
+{
+	static char buff[20];
+	reg int wh;
+
+	switch (obj->o_type) {
+		case POTION:  wh = TYP_POTION;
+		when SCROLL:  wh = TYP_SCROLL;
+		when STICK:   wh = TYP_STICK;
+		when RING:    wh = TYP_RING;
+		when ARMOR:   wh = TYP_ARMOR;
+		when WEAPON:  wh = TYP_WEAPON;
+		when MM:      wh = TYP_MM;
+		when FOOD:    wh = TYP_FOOD;
+		when RELIC:   wh = TYP_RELIC;
+		otherwise:    wh = -1;
+	}
+	if (wh < 0)
+		strcpy(buff,"unknown");
+	else
+		strcpy(buff,things[wh].mi_name);
+	return (buff);
+}
+
+