/**************************************************************************
*  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
*  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
*                                                                         *
*  Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael         *
*  Chastain, Michael Quan, and Mitchell Tse.                              *
*                                                                         *
*  In order to use any part of this Merc Diku Mud, you must comply with   *
*  both the original Diku license in 'license.doc' as well the Merc       *
*  license in 'license.txt'.  In particular, you may not remove either of *
*  these copyright notices.                                               *
*                                                                         *
*  Much time and thought has gone into this software and you are          *
*  benefiting.  We hope that you share your changes too.  What goes       *
*  around, comes around.                                                  *
***************************************************************************
*       ROM 2.4 is copyright 1993-1998 Russ Taylor                        *
*       ROM has been brought to you by the ROM consortium                 *
*           Russ Taylor (rtaylor@hypercube.org)                           *
*           Gabrielle Taylor (gtaylor@hypercube.org)                      *
*           Brian Moore (zump@rom.org)                                    *
*       By using this code, you have agreed to follow the terms of the    *
*       ROM license, in the file Rom24/doc/rom.license                    *
***************************************************************************
*          1stMud ROM Derivative (c) 2001-2004 by Markanth                *
*            http://www.firstmud.com/  <markanth@firstmud.com>            *
*         By using this code you have agreed to follow the term of        *
*             the 1stMud license in ../doc/1stMud/LICENSE                 *
***************************************************************************/


#include "merc.h"
#include "magic.h"
#include "interp.h"

const struct healer_type
{
  char *name;
  char *descr;
  Spell_F *spell;
  char *words;
  money_t cost;
}
healer_table[] =
{
  {
  "light", "cure light wounds", spell_cure_light, "judicandus dies", 10}
  ,
  {
  "serious", "cure serious wounds", spell_cure_serious,
      "judicandus gzfuajg", 16}
  ,
  {
  "critical", "cure critical wounds", spell_cure_critical,
      "judicandus qfuhuqar", 25}
  ,
  {
  "heal", "healing spell", spell_heal, "pzar", 50}
  ,
  {
  "blindness", "cure blindness", spell_cure_blindness,
      "judicandus noselacri", 20}
  ,
  {
  "disease", "cure disease", spell_cure_disease, "judicandus eugzagz", 15}
  ,
  {
  "poison", "cure poison", spell_cure_poison, "judicandus sausabru", 25}
  ,
  {
  "uncurse", "remove a curse", spell_remove_curse, "candussido judifgz", 50}
  ,
  {
  "refresh", "restore movement", spell_refresh, "candusima", 5}
  ,
  {
  "mana", "restore mana", NULL, "energizer", 10}
  ,
  {
  NULL, NULL, NULL, 0}
};

Do_Fun (do_heal)
{
  CharData *mob;
  char arg[MAX_INPUT_LENGTH];
  int sn, i;


  for (mob = ch->in_room->person_first; mob; mob = mob->next_in_room)
    {
      if (IsNPC (mob) && IsSet (mob->act, ACT_IS_HEALER))
	break;
    }

  if (mob == NULL)
    {
      chprintln (ch, "You can't do that here.");
      return;
    }

  one_argument (argument, arg);

  if (NullStr (arg))
    {

      act ("$N says 'I offer the following spells:'", ch, NULL, mob, TO_CHAR);
      for (i = 0; healer_table[i].name != NULL; i++)
	chprintlnf (ch, "\t%12s: %24s %ld gold", healer_table[i].name,
		    healer_table[i].descr, healer_table[i].cost);
      chprintln (ch, "\tType heal <type> to be healed.");
      return;
    }

  for (i = 0; healer_table[i].name != NULL; i++)
    {
      if (!str_prefix (arg, healer_table[i].name))
	break;
    }

  if (healer_table[i].name == NULL)
    {
      act ("$N says 'Type 'heal' for a list of spells.'", ch, NULL, mob,
	   TO_CHAR);
      return;
    }

  if (!check_worth (ch, healer_table[i].cost, VALUE_GOLD))
    {
      act ("$N says 'You do not have enough gold for my services.'", ch,
	   NULL, mob, TO_CHAR);
      return;
    }

  WaitState (ch, PULSE_VIOLENCE);

  deduct_cost (ch, healer_table[i].cost, VALUE_GOLD);
  add_cost (mob, healer_table[i].cost, VALUE_GOLD);
  act ("$n utters the words '$T'.", mob, NULL, healer_table[i].words,
       TO_ROOM);

  if (healer_table[i].spell == NULL)
    {
      ch->mana += dice (2, 8) + mob->level / 3;
      ch->mana = Min (ch->mana, ch->max_mana);
      chprintln (ch, "A warm glow passes through you.");
      return;
    }

  if ((sn = spell_lookup (healer_table[i].spell)) == -1)
    return;

  (*healer_table[i].spell) (sn, mob->level, mob, ch, TARGET_CHAR);
}