/*
 * rods.c : rod code 
 *
 * Copyright (c) 1989 Andrew Astrand 1991 
 *
 * Do what you like with it 
 *
 * I will sucker! ~Ludwig 
 */

#include "constant.h"
#include "config.h"
#include "types.h"
#include "externs.h"

#ifdef USG
#ifndef ATARIST_MWC
#include <string.h>
#endif
#else
#include <strings.h>
#endif

/* Lets do all prototypes correctly.... -CWS */
#ifndef NO_LINT_ARGS
#ifdef __STDC__
static int direction(int *);
#else
static int          direction();
#endif
#endif

static int 
direction(dir)
int *dir;
{
    if (get_dir(NULL, dir)) {
	if (py.flags.confused > 0) {
	    msg_print("You are confused.");
	    do {
		*dir = randint(9);
	    } while (*dir == 5);
	}
	return 1;
    }
    return 0;
}


/* Rods for the slaughtering    			 */
void 
activate_rod()
{
    int32u              i;
    register int        l, ident;
    int                 item_val, j, k, chance, dir;
    register inven_type *i_ptr;
    register struct misc *m_ptr;

    free_turn_flag = TRUE;
    if (inven_ctr == 0)
	msg_print("But you are not carrying anything.");
    else if (!find_range(TV_ROD, TV_NEVER, &j, &k))
	msg_print("You are not carrying any rods.");
    else if (get_item(&item_val, "Activate which rod?", j, k, 0)) {
	i_ptr = &inventory[item_val];
	free_turn_flag = FALSE;
	ident = FALSE;
	m_ptr = &py.misc;
	chance = m_ptr->save + (stat_adj(A_INT) * 2) -
	    (int)((i_ptr->level > 70) ? 70 : i_ptr->level)
	    + (class_level_adj[m_ptr->pclass][CLA_DEVICE] * m_ptr->lev / 3);
	if (py.flags.confused > 0)
	    chance = chance / 2;
	if ((chance < USE_DEVICE) && (randint(USE_DEVICE - chance + 1) == 1))
	    chance = USE_DEVICE;   /* Give everyone a slight chance */
	if (chance <= 0)
	    chance = 1;
	if (randint(chance) < USE_DEVICE)
	    msg_print("You failed to use the rod properly.");
	else if (i_ptr->timeout <= 0) {
	    i = i_ptr->flags;
	    k = char_row;
	    l = char_col;
	    switch (i) {
	      case RD_LT:
		if (!direction(&dir))
		    goto no_charge;
		msg_print("A line of blue shimmering light appears.");
		light_line(dir, char_row, char_col);
		ident = TRUE;
		i_ptr->timeout = 9;
		break;
	      case RD_ILLUME:
		light_area(k, l, damroll(2, 8), 2);
		ident = TRUE;
		i_ptr->timeout = 30;
		break;
	      case RD_AC_BLTS:	   /* Acid , New */
		if (!direction(&dir))
		    goto no_charge;
		if (randint(10)==1)
		    line_spell(GF_ACID,dir,k,l,damroll(6,8));
		else
		    fire_bolt(GF_ACID,dir,k,l,damroll(6,8));
		ident = TRUE;
		i_ptr->timeout = 12;
		break;
	      case RD_LT_BLTS:	   /* Lightning */
		if (!direction(&dir))
		    goto no_charge;
		if (randint(12)==1)
		    line_spell(GF_LIGHTNING, dir, k, l, damroll(3, 8));
		else
		    fire_bolt(GF_LIGHTNING, dir, k, l, damroll(3, 8));
		ident = TRUE;
		i_ptr->timeout = 11;
		break;
	      case RD_FT_BLTS:	   /* Frost */
		if (!direction(&dir))
		    goto no_charge;
		if (randint(10)==1)
		    line_spell(GF_FROST, dir, k, l, damroll(5, 8));
		else
		    fire_bolt(GF_FROST, dir, k, l, damroll(5, 8));
		ident = TRUE;
		i_ptr->timeout = 13;
		break;
	      case RD_FR_BLTS:	   /* Fire */
		if (!direction(&dir))
		    goto no_charge;
		if (randint(8)==1)
		    line_spell(GF_FIRE, dir, k, l, damroll(8, 8));
		else
		    fire_bolt(GF_FIRE, dir, k, l, damroll(8, 8));
		ident = TRUE;
		i_ptr->timeout = 15;
		break;
	      case RD_POLY:
		if (!direction(&dir))
		    goto no_charge;
		ident = poly_monster(dir, k, l);
		i_ptr->timeout = 25;
		break;
	      case RD_SLOW_MN:
		if (!direction(&dir))
		    goto no_charge;
		ident = speed_monster(dir, k, l, -1);
		i_ptr->timeout = 20;
		break;
	      case RD_SLEE_MN:
		if (!direction(&dir))
		    goto no_charge;
		ident = sleep_monster(dir, k, l);
		i_ptr->timeout = 18;
		break;
	      case RD_DRAIN:
		if (!direction(&dir))
		    goto no_charge;
		ident = drain_life(dir, k, l, 75);
		i_ptr->timeout = 23;
		break;
	      case RD_TELE:
		if (!direction(&dir))
		    goto no_charge;
		ident = teleport_monster(dir, k, l);
		i_ptr->timeout = 25;
		break;
	      case RD_DISARM:
		if (!direction(&dir))
		    goto no_charge;
		ident = disarm_all(dir, k, l);
		i_ptr->timeout = 30;
		break;
	      case RD_LT_BALL:
		if (!direction(&dir))
		    goto no_charge;
		fire_ball(GF_LIGHTNING, dir, k, l, 32, 2);
		ident = TRUE;
		i_ptr->timeout = 23;
		break;
	      case RD_CD_BALL:
		if (!direction(&dir))
		    goto no_charge;
		fire_ball(GF_FROST, dir, k, l, 48, 2);
		ident = TRUE;
		i_ptr->timeout = 25;
		break;
	      case RD_FR_BALL:
		if (!direction(&dir))
		    goto no_charge;
		fire_ball(GF_FIRE, dir, k, l, 72, 2);
		ident = TRUE;
		i_ptr->timeout = 30;
		break;
	      case RD_AC_BALL:
		if (!direction(&dir))
		    goto no_charge;
		fire_ball(GF_ACID, dir, k, l, 60, 2);
		ident = TRUE;
		i_ptr->timeout = 27;
		break;
	      case RD_MAPPING:
		map_area();
		ident = TRUE;
		i_ptr->timeout = 99;
		break;
	      case RD_IDENT:
		ident_spell();
		ident = TRUE;
		i_ptr->timeout = 10;
		break;
	      case RD_CURE:
		if ((cure_blindness()) || (cure_poison()) ||
		    (cure_confusion()) || (py.flags.stun > 0) || (py.flags.cut > 0))
		    ident = TRUE;
		if (py.flags.stun > 0) {
		    if (py.flags.stun > 50) {
			py.misc.ptohit += 20;
			py.misc.ptodam += 20;
		    } else {
			py.misc.ptohit += 5;
			py.misc.ptodam += 5;
		    }
		    py.flags.stun = 0;
		    ident = TRUE;
		    msg_print("Your head stops stinging.");
		} else if (py.flags.cut > 0) {
		    py.flags.cut = 0;
		    ident = TRUE;
		    msg_print("You feel better.");
		}
		i_ptr->timeout = 888;
		break;
	      case RD_HEAL:
		ident = hp_player(500);
		if (py.flags.stun > 0) {
		    if (py.flags.stun > 50) {
			py.misc.ptohit += 20;
			py.misc.ptodam += 20;
		    } else {
			py.misc.ptohit += 5;
			py.misc.ptodam += 5;
		    }
		    py.flags.stun = 0;
		    ident = TRUE;
		    msg_print("Your head stops stinging.");
		}
		if (py.flags.cut > 0) {
		    py.flags.cut = 0;
		    ident = TRUE;
		    msg_print("You feel better.");
		}
		i_ptr->timeout = 888;
		break;
	      case RD_RECALL:
		if (py.flags.word_recall == 0) {
		    py.flags.word_recall = 15 + randint(20);
		    msg_print("The air about you becomes charged...");
		} else {
		    py.flags.word_recall = 0;
		    msg_print("A tension leaves the air around you...");
		}
		ident = TRUE;
		i_ptr->timeout = 60;
		break;
	      case RD_PROBE:
		probing();
		ident = TRUE;
		i_ptr->timeout = 50;
		break;
	      case RD_DETECT:
		detection();
		ident = TRUE;
		i_ptr->timeout = 99;
		break;
	      case RD_RESTORE:
		if (restore_level() || res_stat(A_STR) || res_stat(A_INT) ||
		    res_stat(A_WIS) || res_stat(A_DEX) || res_stat(A_CON) ||
		    res_stat(A_CHR))
		    ident = TRUE;
		i_ptr->timeout = 999;
		break;
	      case RD_SPEED:
		if (py.flags.fast == 0)
		    ident = TRUE;
		py.flags.fast += randint(30) + 15;
		i_ptr->timeout = 99;
		break;
	      case RD_TRAP_LOC:
		if (detect_trap())
		    ident = TRUE;
		i_ptr->timeout = 99;	/* fairly long timeout because rod so
					 * low lv -CFT */
		break;
#if 0
	      case RD_MK_WALL:	   /* JLS */
		if (!direction(&dir))
		    goto no_charge;
		ident = build_wall(dir, k, l);
		i_ptr->timeout = 999;	/* don't want people to abuse this
					 * -JLS */
		break;
#endif
	      default:
		msg_print("Internal error in rods() ");
		break;
	    }
	    if (ident) {
		if (!known1_p(i_ptr)) {
		    m_ptr = &py.misc;
		/* round half-way case up */
		    m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) /
			m_ptr->lev;
		    prt_experience();

		    identify(&item_val);
		    i_ptr = &inventory[item_val];
		}
	    } else if (!known1_p(i_ptr)) {
		sample(i_ptr);
	    }
    no_charge:;
	} else {
	    msg_print("The rod is currently exhausted.");
	}
    }
}