view arogue5/potions.c @ 179:ca876944b196

Advanced Rogue 7: rename magic users to magicians. Class names with spaces in them confuse anything that parses the logfile. The documentation does refer mostly to magicians.
author John "Elwin" Edwards
date Sat, 22 Aug 2015 10:55:53 -0400
parents 34a87d84ea31
children 56e748983fa8
line wrap: on
line source

/*
 * Function(s) for dealing with potions
 *
 * Advanced Rogue
 * Copyright (C) 1984, 1985 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.
 */

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



/*
 * Increase player's constitution
 */

add_const(cursed)
bool cursed;
{
    /* Do the potion */
    if (cursed) {
	msg("You feel less healthy now.");
	pstats.s_const--;
	if (pstats.s_const <= 0)
	    death(D_CONSTITUTION);
    }
    else {
	msg("You feel healthier now.");
	pstats.s_const = min(pstats.s_const + 1, 25);
    }

    /* Adjust the maximum */
    if (max_stats.s_const < pstats.s_const)
	max_stats.s_const = pstats.s_const;
}

/*
 * Increase player's dexterity
 */

add_dexterity(cursed)
bool cursed;
{
    int ring_str;	/* Value of ring strengths */

    /* Undo any ring changes */
    ring_str = ring_value(R_ADDHIT);
    pstats.s_dext -= ring_str;

    /* Now do the potion */
    if (cursed) {
	msg("You feel less dextrous now.");
	pstats.s_dext--;
    }
    else {
	msg("You feel more dextrous now.  Watch those hands!");
	pstats.s_dext = min(pstats.s_dext + 1, 25);
    }

    /* Adjust the maximum */
    if (max_stats.s_dext < pstats.s_dext)
	max_stats.s_dext = pstats.s_dext;

    /* Now put back the ring changes */
    if (ring_str)
	pstats.s_dext += ring_str;
}

/*
 * add_haste:
 *	add a haste to the player
 */

add_haste(blessed)
bool blessed;
{
    int hasttime;

    if (blessed) hasttime = HASTETIME*2;
    else hasttime = HASTETIME;

    if (on(player, ISSLOW)) { /* Is person slow? */
	extinguish(noslow);
	noslow();

	if (blessed) hasttime = HASTETIME/2;
	else return;
    }

    if (on(player, ISHASTE)) {
	msg("You faint from exhaustion.");
	no_command += rnd(hasttime);
	lengthen(nohaste, roll(hasttime,hasttime));
    }
    else {
	turn_on(player, ISHASTE);
	fuse(nohaste, 0, roll(hasttime, hasttime), AFTER);
    }
}

/*
 * Increase player's intelligence
 */
add_intelligence(cursed)
bool cursed;
{
    int ring_str;	/* Value of ring strengths */

    /* Undo any ring changes */
    ring_str = ring_value(R_ADDINTEL);
    pstats.s_intel -= ring_str;

    /* Now do the potion */
    if (cursed) {
	msg("You feel slightly less intelligent now.");
	pstats.s_intel--;
    }
    else {
	msg("You feel more intelligent now.  What a mind!");
	pstats.s_intel = min(pstats.s_intel + 1, 25);
    }

    /* Adjust the maximum */
    if (max_stats.s_intel < pstats.s_intel)
	    max_stats.s_intel = pstats.s_intel;

    /* Now put back the ring changes */
    if (ring_str)
	pstats.s_intel += ring_str;
}

/*
 * this routine makes the hero move slower 
 */
add_slow()
{
    if (on(player, ISHASTE)) { /* Already sped up */
	extinguish(nohaste);
	nohaste();
    }
    else {
	msg("You feel yourself moving %sslower.",
		on(player, ISSLOW) ? "even " : "");
	if (on(player, ISSLOW))
	    lengthen(noslow, roll(HASTETIME,HASTETIME));
	else {
	    turn_on(player, ISSLOW);
	    player.t_turn = TRUE;
	    fuse(noslow, 0, roll(HASTETIME,HASTETIME), AFTER);
	}
    }
}

/*
 * Increase player's strength
 */

add_strength(cursed)
bool cursed;
{

    if (cursed) {
	msg("You feel slightly weaker now.");
	chg_str(-1);
    }
    else {
	msg("You feel stronger now.  What bulging muscles!");
	chg_str(1);
    }
}

/*
 * Increase player's wisdom
 */

add_wisdom(cursed)
bool cursed;
{
    int ring_str;	/* Value of ring strengths */

    /* Undo any ring changes */
    ring_str = ring_value(R_ADDWISDOM);
    pstats.s_wisdom -= ring_str;

    /* Now do the potion */
    if (cursed) {
	msg("You feel slightly less wise now.");
	pstats.s_wisdom--;
    }
    else {
	msg("You feel wiser now.  What a sage!");
	pstats.s_wisdom = min(pstats.s_wisdom + 1, 25);
    }

    /* Adjust the maximum */
    if (max_stats.s_wisdom < pstats.s_wisdom)
	max_stats.s_wisdom = pstats.s_wisdom;

    /* Now put back the ring changes */
    if (ring_str)
	pstats.s_wisdom += ring_str;
}


/* 
 * Lower a level of experience 
 */

lower_level(who)
short who;
{
    int fewer, nsides = 0;

    if (--pstats.s_lvl == 0)
	death(who);		/* All levels gone */
    msg("You suddenly feel less skillful.");
    pstats.s_exp /= 2;
    switch (player.t_ctype) {
	case C_FIGHTER:	nsides = HIT_FIGHTER;
	when C_MAGICIAN:nsides = HIT_MAGICIAN;
	when C_CLERIC:	nsides = HIT_CLERIC;
	when C_THIEF:	nsides = HIT_THIEF;
    }
    fewer = max(1, roll(1,nsides) + const_bonus());
    pstats.s_hpt -= fewer;
    max_stats.s_hpt -= fewer;
    if (pstats.s_hpt < 1)
	pstats.s_hpt = 1;
    if (max_stats.s_hpt < 1)
	death(who);
}

quaff(which, flag, is_potion)
int which;
int flag;
bool is_potion;
{
    register struct object *obj = NULL;
    register struct linked_list *item, *titem;
    register struct thing *th;
    bool cursed, blessed;
    char buf[LINELEN];

    blessed = FALSE;
    cursed = FALSE;
    item = NULL;

    if (which < 0) {	/* figure out which ourselves */
	item = get_item(pack, "quaff", POTION);
	/*
	 * Make certain that it is somethings that we want to drink
	 */
	if (item == NULL)
	    return;

	obj = OBJPTR(item);
	/* remove it from the pack */
	inpack--;
	detach(pack, item);

	/*
	 * Calculate the effect it has on the poor guy.
	 */
	cursed = (obj->o_flags & ISCURSED) != 0;
	blessed = (obj->o_flags & ISBLESSED) != 0;

	which = obj->o_which;
    }
    else {
	cursed = flag & ISCURSED;
	blessed = flag & ISBLESSED;
    }

    switch(which)
    {
	case P_CLEAR:
	    if (cursed) {
		if (off(player, ISCLEAR))
		{
		    msg("Wait, what's going on here. Huh? What? Who?");
		    if (find_slot(unconfuse))
			lengthen(unconfuse, rnd(8)+HUHDURATION);
		    else
			fuse(unconfuse, 0, rnd(8)+HUHDURATION, AFTER);
		    turn_on(player, ISHUH);
		}
		else msg("You feel dizzy for a moment, but it quickly passes.");
	    }
	    else {
		if (blessed) {	/* Make player immune for the whole game */
		    extinguish(unclrhead);  /* If we have a fuse, put it out */
		    msg("A strong blue aura surrounds your head.");
		}
		else {	/* Just light a fuse for how long player is safe */
		    if (off(player, ISCLEAR)) {
			fuse(unclrhead, 0, CLRDURATION, AFTER);
			msg("A faint blue aura surrounds your head.");
		    }
		    else {  /* If we have a fuse lengthen it, else we
			     * are permanently clear.
			     */
		        if (find_slot(unclrhead) == FALSE)
			    msg("Your blue aura continues to glow strongly.");
			else {
			    lengthen(unclrhead, CLRDURATION);
			    msg("Your blue aura brightens for a moment.");
			}
		    }
		}
		turn_on(player, ISCLEAR);
		/* If player is confused, unconfuse him */
		if (on(player, ISHUH)) {
		    extinguish(unconfuse);
		    unconfuse();
		}
	    }
	when P_HEALING:
	    if (cursed) {
		if (!save(VS_POISON, &player, 0)) {
		    msg("You feel very sick now.");
		    pstats.s_hpt /= 2;
		    pstats.s_const--;
		    if (pstats.s_const <= 0 || pstats.s_hpt <= 0) 
			death(D_POISON);
		}
		else msg("You feel momentarily sick.");
	    }
	    else {
		if (blessed) {
		    if ((pstats.s_hpt += roll(pstats.s_lvl, 8)) > max_stats.s_hpt)
			pstats.s_hpt = ++max_stats.s_hpt;
		    if (on(player, ISHUH)) {
			extinguish(unconfuse);
			unconfuse();
		    }
		}
		else {
		    if ((pstats.s_hpt += roll(pstats.s_lvl, 4)) > max_stats.s_hpt)
		    pstats.s_hpt = ++max_stats.s_hpt;
		}
		msg("You begin to feel %sbetter.",
			blessed ? "much " : "");
		sight();
		if (is_potion) p_know[P_HEALING] = TRUE;
	    }
	when P_ABIL:
	    {
		int ctype;

		/*
		 * if blessed then fix all attributes
		 */
		if (blessed) {
		    add_intelligence(FALSE);
		    add_dexterity(FALSE);
		    add_strength(FALSE);
		    add_wisdom(FALSE);
		    add_const(FALSE);
		}
		/* probably will be own ability */
		else {
		    if (rnd(100) < 70) 
			ctype = player.t_ctype;
		    else do {
			ctype = rnd(4);
			} while (ctype == player.t_ctype);

		    /* Small chance of doing constitution instead */
		    if (rnd(100) < 10) 
			add_const(cursed);
		    else switch (ctype) {
			case C_FIGHTER: add_strength(cursed);
			when C_MAGICIAN: add_intelligence(cursed);
			when C_CLERIC:	add_wisdom(cursed);
			when C_THIEF:	add_dexterity(cursed);
			otherwise:	msg("You're a strange type!");
		    }
		}
		if (is_potion) p_know[P_ABIL] = TRUE;
	    }
	when P_MFIND:
	    /*
	     * Potion of monster detection, if there are monters, detect them
	     */
	    if (mlist != NULL)
	    {
		overlay(mw, cw);
		draw(cw);
		msg("You begin to sense the presence of monsters.%s", morestr);
		draw(msgw);
		wait_for(cw,' ');
		msg("");
		if (is_potion) p_know[P_MFIND] = TRUE;
	    }
	    else
		msg("You have a strange feeling for a moment, then it passes.");
	when P_TFIND:
	    /*
	     * Potion of magic detection.  Show the potions and scrolls
	     */
	    if (lvl_obj != NULL)
	    {
		register struct linked_list *mobj;
		register struct object *tp;
		bool show;

		show = FALSE;
		wclear(hw);
		for (mobj = lvl_obj; mobj != NULL; mobj = next(mobj)) {
		    tp = OBJPTR(mobj);
		    if (is_magic(tp)) {
			char mag_type=MAGIC;

			/* Mark cursed items or bad weapons */
			if ((tp->o_flags & ISCURSED) ||
			    (tp->o_type == WEAPON &&
			     (tp->o_hplus < 0 || tp->o_dplus < 0)))
				mag_type = CMAGIC;
			else if ((tp->o_flags & ISBLESSED) ||
				 (tp->o_type == WEAPON &&
				  (tp->o_hplus > 0 || tp->o_dplus > 0)))
					mag_type = BMAGIC;
			show = TRUE;
			mvwaddch(hw, tp->o_pos.y, tp->o_pos.x, mag_type);
		    }
		    if (is_potion) p_know[P_TFIND] = TRUE;
		}
		for (titem = mlist; titem != NULL; titem = next(titem)) {
		    register struct linked_list *pitem;

		    th = THINGPTR(titem);
		    for(pitem = th->t_pack; pitem != NULL; pitem = next(pitem)){
			tp = OBJPTR(pitem);
			if (is_magic(tp)) {
			    char mag_type=MAGIC;

			    /* Mark cursed items or bad weapons */
			    if ((tp->o_flags & ISCURSED) ||
				(tp->o_type == WEAPON &&
				 (tp->o_hplus < 0 || tp->o_dplus < 0)))
				    mag_type = CMAGIC;
			    else if ((tp->o_flags & ISBLESSED) ||
				     (tp->o_type == WEAPON &&
				      (tp->o_hplus > 0 || tp->o_dplus > 0)))
					    mag_type = BMAGIC;
			    show = TRUE;
			    mvwaddch(hw, th->t_pos.y, th->t_pos.x, mag_type);
			}
			if (is_potion) p_know[P_TFIND] = TRUE;
		    }
		}
		if (show) {
		    overlay(hw,cw);
		    draw(cw);
		    msg("You sense the presence of magic on this level.%s", 
			morestr);
		    draw(msgw);
		    wait_for(cw,' ');
		    msg("");
		    break;
		}
	    }
	    msg("You have a strange feeling for a moment, then it passes.");
	when P_SEEINVIS:
	    if (cursed) {
		if (!find_slot(sight))
		{
		    msg("A cloak of darkness falls around you.");
		    turn_on(player, ISBLIND);
		    fuse(sight, 0, SEEDURATION, AFTER);
		    light(&hero);
		}
		else
		    lengthen(sight, SEEDURATION);
	    }
	    else {
		if (off(player, CANSEE)) {
		    turn_on(player, CANSEE);
		    msg("Your eyes begin to tingle.");
		    fuse(unsee, 0, blessed ? SEEDURATION*3 :SEEDURATION, AFTER);
		    light(&hero);
		}
		else if (find_slot(unsee) != FALSE)
		    lengthen(unsee, blessed ? SEEDURATION*3 : SEEDURATION);
		sight();
	    }
	when P_PHASE:
	    if (cursed) {
		msg("You can't move.");
		no_command = FREEZETIME;
	    }
	    else {
		int duration;

		if (blessed) duration = 3;
		else duration = 1;

		if (on(player, CANINWALL))
		    lengthen(unphase, duration*PHASEDURATION);
		else {
		    fuse(unphase, 0, duration*PHASEDURATION, AFTER);
		    turn_on(player, CANINWALL);
		}
		msg("You feel %slight-headed!",
		    blessed ? "very " : "");
	    }
	when P_FLY: {
	    int duration;
	    bool say_message;

	    say_message = TRUE;

	    if (blessed) duration = 3;
	    else duration = 1;

	    if (on(player, ISFLY)) {
		if (find_slot(land))
		    lengthen(land, duration*FLYTIME);
		else {
		    msg("Nothing happens.");	/* Flying by cloak */
		    say_message = FALSE;
		}
	    }
	    else {
		fuse(land, 0, duration*FLYTIME, AFTER);
		turn_on(player, ISFLY);
	    }
	    if (say_message) 
		msg("You feel %slighter than air!", blessed ? "much " : "");
	}
	when P_RAISE:
	    if (cursed) lower_level(D_POTION);
	    else {
		msg("You suddenly feel %smore skillful",
			blessed ? "much " : "");
		p_know[P_RAISE] = TRUE;
		raise_level(TRUE);
		if (blessed) raise_level(TRUE);
	    }
	when P_HASTE:
	    if (cursed) {	/* Slow player down */
		add_slow();
	    }
	    else {
		if (off(player, ISSLOW))
		    msg("You feel yourself moving %sfaster.",
			blessed ? "much " : "");
		add_haste(blessed);
		if (is_potion) p_know[P_HASTE] = TRUE;
	    }
	when P_RESTORE: {
	    register int i;

	    msg("Hey, this tastes great.  It make you feel warm all over.");
	    if (lost_str) {
		extinguish(res_strength);
		lost_str = 0;
	    }
	    for (i=0; i<lost_dext; i++)
		extinguish(un_itch);
	    lost_dext = 0;
	    res_strength();
	    res_wisdom();
	    res_dexterity(0);
	    res_intelligence();
	    pstats.s_const = max_stats.s_const;
	}
	when P_INVIS:
	    if (off(player, ISINVIS)) {
		turn_on(player, ISINVIS);
		msg("You have a tingling feeling all over your body");
		fuse(appear, 0, blessed ? GONETIME*3 : GONETIME, AFTER);
		PLAYER = IPLAYER;
		light(&hero);
	    }
	    else {
		if (find_slot(appear)) {
		    msg("Your tingling feeling surges.");
		    lengthen(appear, blessed ? GONETIME*3 : GONETIME);
		}
		else msg("Nothing happens.");	/* Using cloak */
	    }

	otherwise:
	    msg("What an odd tasting potion!");
	    return;
    }
    status(FALSE);
    if (is_potion && p_know[which] && p_guess[which])
    {
	free(p_guess[which]);
	p_guess[which] = NULL;
    }
    else if (is_potion && 
	     !p_know[which] && 
	     askme &&
	     (obj->o_flags & ISKNOW) == 0 &&
	     (obj->o_flags & ISPOST) == 0 &&
	     p_guess[which] == NULL)
    {
	msg(terse ? "Call it: " : "What do you want to call it? ");
	if (get_str(buf, msgw) == NORM)
	{
	    p_guess[which] = new((unsigned int) strlen(buf) + 1);
	    strcpy(p_guess[which], buf);
	}
    }
    if (item != NULL) o_discard(item);
    updpack(TRUE);
}


/*
 * res_dexterity:
 *	Restore player's dexterity
 *	if called with zero the restore fully
 */

res_dexterity(howmuch)
int howmuch;
{
    short save_max;
    int ring_str;

    /* Discount the ring value */
    ring_str = ring_value(R_ADDHIT);
    pstats.s_dext -= ring_str;

    if (pstats.s_dext < max_stats.s_dext ) {
	if (howmuch == 0)
	    pstats.s_dext = max_stats.s_dext;
	else
	    pstats.s_dext = min(pstats.s_dext+howmuch, max_stats.s_dext);
    }

    /* Redo the rings */
    if (ring_str) {
	save_max = max_stats.s_dext;
	pstats.s_dext += ring_str;
	max_stats.s_dext = save_max;
    }
}


/*
 * res_intelligence:
 *	Restore player's intelligence
 */

res_intelligence()
{
    short save_max;
    int ring_str;

    /* Discount the ring value */
    ring_str = ring_value(R_ADDINTEL);
    pstats.s_intel -= ring_str;

    if (pstats.s_intel < max_stats.s_intel ) pstats.s_intel = max_stats.s_intel;

    /* Redo the rings */
    if (ring_str) {
	save_max = max_stats.s_intel;
	pstats.s_intel += ring_str;
	max_stats.s_intel = save_max;
    }
}

/*
 * res_wisdom:
 *	Restore player's wisdom
 */

res_wisdom()
{
    short save_max;
    int ring_str;

    /* Discount the ring value */
    ring_str = ring_value(R_ADDWISDOM);
    pstats.s_wisdom -= ring_str;

    if (pstats.s_wisdom < max_stats.s_wisdom )
	pstats.s_wisdom = max_stats.s_wisdom;

    /* Redo the rings */
    if (ring_str) {
	save_max = max_stats.s_wisdom;
	pstats.s_wisdom += ring_str;
	max_stats.s_wisdom = save_max;
    }
}