// Copyright (c) 2016-2023 The Hush developers
// Distributed under the GPLv3 software license, see the accompanying
// file COPYING or https://www.gnu.org/licenses/gpl-3.0.en.html
/*
 * Routines dealing specifically with rings
 *
 * @(#)rings.c	4.19 (Berkeley) 05/29/83
 *
 * Rogue: Exploring the Dungeons of Doom
 * Copyright (C) 1980-1983, 1985, 1999 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"

/*
 * ring_on:
 *	Put a ring on a hand
 */

void
ring_on(struct rogue_state *rs)
{
    THING *obj;
    int ring;
    
    obj = get_item(rs,"put on", RING);
    /*
     * Make certain that it is somethings that we want to wear
     */
    if (obj == NULL)
        return;
    if (obj->o_type != RING)
    {
        if (!terse)
            msg(rs,"it would be difficult to wrap that around a finger");
        else
            msg(rs,"not a ring");
        return;
    }
    
    /*
     * find out which hand to put it on
     */
    if (is_current(rs,obj))
        return;
    
    if (cur_ring[LEFT] == NULL && cur_ring[RIGHT] == NULL)
    {
        if ((ring = gethand(rs)) < 0)
            return;
    }
    else if (cur_ring[LEFT] == NULL)
        ring = LEFT;
    else if (cur_ring[RIGHT] == NULL)
        ring = RIGHT;
    else
    {
        if (!terse)
            msg(rs,"you already have a ring on each hand");
        else
            msg(rs,"wearing two");
        return;
    }
    cur_ring[ring] = obj;
    
    /*
     * Calculate the effect it has on the poor guy.
     */
    switch (obj->o_which)
    {
        case R_ADDSTR:
            chg_str(obj->o_arm);
            break;
        case R_SEEINVIS:
            invis_on();
            break;
        case R_AGGR:
            aggravate(rs);
            break;
    }
    
    if (!terse)
        addmsg(rs,"you are now wearing ");
    msg(rs,"%s (%c)", inv_name(obj, TRUE), obj->o_packch);
}

/*
 * ring_off:
 *	take off a ring
 */

void
ring_off(struct rogue_state *rs)
{
    int ring;
    THING *obj;
    
    if (cur_ring[LEFT] == NULL && cur_ring[RIGHT] == NULL)
    {
        if (terse)
            msg(rs,"no rings");
        else
            msg(rs,"you aren't wearing any rings");
        return;
    }
    else if (cur_ring[LEFT] == NULL)
        ring = RIGHT;
    else if (cur_ring[RIGHT] == NULL)
        ring = LEFT;
    else
        if ((ring = gethand(rs)) < 0)
            return;
    mpos = 0;
    obj = cur_ring[ring];
    if (obj == NULL)
    {
        msg(rs,"not wearing such a ring");
        return;
    }
    if (dropcheck(rs,obj))
        msg(rs,"was wearing %s(%c)", inv_name(obj, TRUE), obj->o_packch);
}

/*
 * gethand:
 *	Which hand is the hero interested in?
 */
int
gethand(struct rogue_state *rs)
{
    int c;
    
    for (;;)
    {
        if ( rs->replaydone != 0 )
            return(-1);
        if (terse)
            msg(rs,"left or right ring? ");
        else
            msg(rs,"left hand or right hand? ");
        if ((c = readchar(rs)) == ESCAPE)
            return -1;
        mpos = 0;
        if (c == 'l' || c == 'L')
            return LEFT;
        else if (c == 'r' || c == 'R')
            return RIGHT;
        if (terse)
            msg(rs,"L or R");
        else
            msg(rs,"please type L or R");
    }
}

/*
 * ring_eat:
 *	How much food does this ring use up?
 */
int
ring_eat(int hand)
{
    THING *ring;
    int eat;
    static int uses[] = {
        1,	/* R_PROTECT */		 1,	/* R_ADDSTR */
        1,	/* R_SUSTSTR */		-3,	/* R_SEARCH */
        -5,	/* R_SEEINVIS */	 0,	/* R_NOP */
        0,	/* R_AGGR */		-3,	/* R_ADDHIT */
        -3,	/* R_ADDDAM */		 2,	/* R_REGEN */
        -2,	/* R_DIGEST */		 0,	/* R_TELEPORT */
        1,	/* R_STEALTH */		 1	/* R_SUSTARM */
    };
    
    if ((ring = cur_ring[hand]) == NULL)
        return 0;
    if ((eat = uses[ring->o_which]) < 0)
        eat = (rnd(-eat) == 0);
    if (ring->o_which == R_DIGEST)
        eat = -eat;
    return eat;
}

/*
 * ring_num:
 *	Print ring bonuses
 */
char *
ring_num(THING *obj)
{
    static char buf[10];
    
    if (!(obj->o_flags & ISKNOW))
        return "";
    switch (obj->o_which)
    {
        case R_PROTECT:
        case R_ADDSTR:
        case R_ADDDAM:
        case R_ADDHIT:
            sprintf(buf, " [%s]", num(obj->o_arm, 0, RING));
        otherwise:
            return "";
    }
    return buf;
}