/***************************************************************************
 *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
 *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
 *                                                                         *
 *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
 *  Chastain, Michael Quan, and Mitchell Tse.                              *
 *                                                                         *
 *  Ack 2.2 improvements copyright (C) 1994 by Stephen Dooley              *
 *                                                                         *
 *  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.                                               *
 *                                                                         *
 *       _/          _/_/_/     _/    _/     _/    ACK! MUD is modified    *
 *      _/_/        _/          _/  _/       _/    Merc2.0/2.1/2.2 code    *
 *     _/  _/      _/           _/_/         _/    (c)Stephen Zepp 1998    *
 *    _/_/_/_/      _/          _/  _/             Version #: 4.3          *
 *   _/      _/      _/_/_/     _/    _/     _/                            *
 *                                                                         *
 *                        http://ackmud.nuc.net/                           *
 *                        zenithar@ackmud.nuc.net                          *
 *  Much time and thought has gone into this software and you are          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/
/***************************************************************************
 * _/_/_/_/  _/    _/  _/_/_/_/ _/_/_/_/ AckFUSS is modified ACK!MUD 4.3.1 *
 * _/        _/    _/  _/       _/       copyright Matt Goff (Kline) 2008  *
 * _/_/      _/    _/  _/_/_/_/ _/_/_/_/                                   *
 * _/        _/    _/        _/       _/ Support for this code is provided *
 * _/        _/_/_/_/  _/_/_/_/ _/_/_/_/ at www.ackmud.net -- check it out!*
 ***************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "globals.h"

#ifndef DEC_COMM_H
#include "h/comm.h"
#endif

#ifndef DEC_DB_H
#include "h/db.h"
#endif

#ifndef DEC_FIGHT_H
#include "h/fight.h"
#endif

#ifndef DEC_HANDLER_H
#include "h/handler.h"
#endif

#ifndef DEC_MAGIC_H
#include "h/magic.h"
#endif

DECLARE_OBJ_FUN( objfun_giggle );   /* test obj_fun   */
DECLARE_OBJ_FUN( objfun_cast_fight );  /* Casts in fights   */
DECLARE_OBJ_FUN( objfun_sword_aggro ); /* starts fights  */
DECLARE_OBJ_FUN( objfun_soul_moan );   /* moaning souls  */
DECLARE_OBJ_FUN( objfun_infused_soul );   /* objs with a soul in them */
DECLARE_OBJ_FUN( objfun_flaming );  /* test obj_fun   */
DECLARE_OBJ_FUN( objfun_healing );  /* test obj_fun   */
DECLARE_OBJ_FUN( objfun_dispeller );   /* test obj_fun   */
DECLARE_OBJ_FUN( objfun_regen ); /* test obj_fun   */


OBJ_FUN *obj_fun_lookup( const char *name )
{
   if( !str_cmp( name, "objfun_giggle" ) )
      return objfun_giggle;
   if( !str_cmp( name, "objfun_cast_fight" ) )
      return objfun_cast_fight;
   if( !str_cmp( name, "objfun_sword_aggro" ) )
      return objfun_sword_aggro;
   if( !str_cmp( name, "objfun_soul_moan" ) )
      return objfun_soul_moan;
   if( !str_cmp( name, "objfun_infused_soul" ) )
      return objfun_infused_soul;
   if( !str_cmp( name, "objfun_flaming" ) )
      return objfun_flaming;
   if( !str_cmp( name, "objfun_healing" ) )
      return objfun_healing;
   if( !str_cmp( name, "objfun_dispeller" ) )
      return objfun_dispeller;
   if( !str_cmp( name, "objfun_regen" ) )
      return objfun_regen;

   return 0;
}


char *rev_obj_fun_lookup( OBJ_FUN *func )
{
   if( func == objfun_giggle )
      return "objfun_giggle";
   if( func == objfun_cast_fight )
      return "objfun_cast_fight";
   if( func == objfun_sword_aggro )
      return "objfun_sword_aggro";
   if( func == objfun_soul_moan )
      return "objfun_soul_moan";
   if( func == objfun_infused_soul )
      return "objfun_infused_soul";
   if( func == objfun_flaming )
      return "objfun_flaming";
   if( func == objfun_healing )
      return "objfun_healing";
   if( func == objfun_dispeller )
      return "objfun_dispeller";
   if( func == objfun_regen )
      return "objfun_regen";

   return 0;
}

void print_obj_fun_lookup( char *buf )
{
   strncat( buf, " objfun_giggle \r\n", MSL );
   strncat( buf, " objfun_cast_fight	\r\n", MSL );
   strncat( buf, " objfun_sword_aggro \r\n", MSL );
   strncat( buf, " objfun_soul_moan \r\n", MSL );
   strncat( buf, " objfun_infused_soul \r\n", MSL );
   strncat( buf, " objfun_flaming \r\n", MSL );
   strncat( buf, " objfun_healing \r\n", MSL );
   strncat( buf, " objfun_dispeller \r\n", MSL );
   strncat( buf, " objfun_regen \r\n", MSL );

   return;
}

/********************* OBJFUN FUNCTIONS ********************************/

void objfun_giggle( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   if( keeper == NULL || keeper->in_room == NULL )
      return;

   /*
    * Come on... it was SO annoying! 
    */

   if( number_percent(  ) < 5 )
   {
      act( "$p carried by $n starts giggling to itself!", keeper, obj, NULL, TO_ROOM );
      act( "$p carried by you starts giggling to itself!", keeper, obj, NULL, TO_CHAR );
      return;
   }
   return;
}

void objfun_soul_moan( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   if( keeper == NULL || keeper->in_room == NULL )
      return;

   /*
    * Come on... it was SO annoying! 
    */
   if( number_percent(  ) < 2 )
   {
      act( "@@NThe @@eSoul@@N in $p@@N carried by @@a$n@@N moans in agony.", keeper, obj, NULL, TO_ROOM );
      act( "@@NThe @@eSoul@@N in $p @@Ncarried by you moans to be set free!", keeper, obj, NULL, TO_CHAR );
      return;
   }

   if( number_percent(  ) < 2 )
   {
      act( "@@NThe @@eSoul@@N in $p@@N carried by @@a$n@@N tries to break free of it's inprisonment!", keeper, obj, NULL,
           TO_ROOM );
      act( "@@NThe @@eSoul@@N in $p @@Ncarried by you starts writhing--look out!!", keeper, obj, NULL, TO_CHAR );
      return;
   }

   return;
}

void objfun_infused_soul( OBJ_DATA * obj, CHAR_DATA * keeper )
{

   int sn;
   CHAR_DATA *victim;
   int min_lev;
   char *spell = "";

   if( keeper == NULL || keeper->in_room == NULL )
      return;
   if( ( keeper == NULL ) || ( obj->item_type != ITEM_WEAPON ) )
      return;

   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */

   if( keeper->fighting != NULL )
   {

      for( victim = keeper->in_room->first_person; victim != NULL; victim = victim->next_in_room )
         if( victim->fighting == keeper && number_bits( 1 ) == 0 )
            break;

      if( victim == NULL )
         return;

      switch ( number_range( 0, 3 ) )
      {
         case 0:
            min_lev = 43;
            spell = "throwing star";
            break;
         case 1:
            min_lev = 55;
            spell = "acid blast";
            break;
         case 2:
            min_lev = 68;
            spell = "dispel magic";
            break;
         case 3:
            min_lev = 55;
            spell = "flamestrike";
            break;

      }
      if( ( sn = skill_lookup( spell ) ) < 0 )
         return;
      act( "$p glows brightly at $n!", victim, obj, NULL, TO_ROOM );
      act( "$p glows brightly at you!", victim, obj, NULL, TO_CHAR );
      obj_cast_spell( sn, obj->level, keeper, victim, obj );
      return;
   }
   else
   {
      /*
       * Come on... it was SO annoying! 
       */
      if( number_percent(  ) < 2 )
      {
         act( "@@NThe @@eSoul@@N in $p@@N carried by @@a$n@@N moans in agony.", keeper, obj, NULL, TO_ROOM );
         act( "@@NThe @@eSoul@@N in $p @@Ncarried by you moans to be set free!", keeper, obj, NULL, TO_CHAR );
         return;
      }

      if( number_percent(  ) < 2 )
      {
         act( "@@NThe @@eSoul@@N in $p@@N carried by @@a$n@@N tries to break free of it's inprisonment!", keeper, obj, NULL,
              TO_ROOM );
         act( "@@NThe @@eSoul@@N in $p @@Ncarried by you starts writhing--look out!!", keeper, obj, NULL, TO_CHAR );
         return;
      }
   }
   return;
}

void objfun_cast_fight( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   int sn;
   CHAR_DATA *victim;
   int min_lev;
   char *spell = "";
   if( keeper == NULL || ( keeper->fighting == NULL ) || ( obj->item_type != ITEM_WEAPON ) )
      return;
   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */

   for( victim = keeper->in_room->first_person; victim != NULL; victim = victim->next_in_room )
      if( victim->fighting == keeper && number_bits( 2 ) == 0 )
         break;

   if( victim == NULL )
      return;
   switch ( number_range( 0, 5 ) )
   {
      case 0:
         min_lev = 5;
         spell = "magic missile";
         break;
      case 1:
         min_lev = 7;
         spell = "color spray";
         break;
      case 2:
         min_lev = 8;
         spell = "chill touch";
         break;
      case 3:
         min_lev = 30;
         spell = "fireball";
         break;
      case 4:
         min_lev = 55;
         spell = "flamestrike";
         break;
      case 5:
         min_lev = 30;
         spell = "lightning bolt";
         break;
   }
   if( ( sn = skill_lookup( spell ) ) < 0 )
      return;
   act( "$p glows brightly at $n!", victim, obj, NULL, TO_ROOM );
   act( "$p glows brightly at you!", victim, obj, NULL, TO_CHAR );
   obj_cast_spell( sn, obj->level, keeper, victim, obj );
   return;
}

void objfun_sword_aggro( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   /*
    * Weapon 'draws' an aggro mob's attention to the player 
    */
   /*
    * If fighting,  make cast spells? 
    */
   CHAR_DATA *vch;
   if( obj->item_type != ITEM_WEAPON )
      return;
   if( ( keeper == NULL ) || ( obj == NULL ) )
      return;

   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */
   if( keeper == NULL || keeper->fighting == NULL )
      return;

   for( vch = keeper->in_room->first_person; vch != NULL; vch = vch->next_in_room )
   {
      if( IS_NPC( vch )
          && ( vch->level > keeper->level )
          && vch->act.test(ACT_AGGRESSIVE) && vch->fighting == NULL && number_bits( 4 ) == 0 )
      {
         act( "$p carried by $n glows in $s hands.", keeper, obj, NULL, TO_ROOM );
         act( "$p carried by you glows in your hands.", keeper, obj, NULL, TO_CHAR );
         act( "$p says 'LOOK! LOOK!  $n is here!!'", keeper, obj, NULL, TO_ROOM );
         act( "$p says 'LOOK! LOOK!  $n is here!!'", keeper, obj, NULL, TO_CHAR );
         one_hit( vch, keeper, TYPE_UNDEFINED );
         break;
      }
   }
   return;
}

void objfun_flaming( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   int sn;
   CHAR_DATA *victim;
   int min_lev;
   char *spell = "";
   if( keeper == NULL || keeper->in_room == NULL )
      return;
   if( ( keeper == NULL ) || ( obj->item_type != ITEM_WEAPON ) )
      return;

   for( victim = keeper->in_room->first_person; victim != NULL; victim = victim->next_in_room )
      if( victim->fighting == keeper && number_bits( 2 ) == 0 )
         break;

   if( victim == NULL )
   {
      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@e flames @@ybrightly@@N!", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@e flames @@ybrightly@@N!", keeper, obj, NULL, TO_CHAR );
         return;
      }

      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@N goes @@ddim@@N.", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@N goes @@ddim@@N.", keeper, obj, NULL, TO_CHAR );
         return;
      }
      return;
   }
   if( victim == NULL )
      return;

   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */

   switch ( number_range( 0, 11 ) )
   {
      case 0:
      case 1:
      case 2:
      case 3:
         min_lev = 5;
         spell = "fireball";
         break;
      case 4:
      case 5:
      case 6:
      case 7:
         min_lev = 7;
         spell = "flamestrike";
         break;
      case 8:
      case 9:
      case 10:
         min_lev = 8;
         spell = "lava burst";
         break;
      case 11:
         min_lev = 30;
         spell = "heat armor";
         break;

   }
   if( ( sn = skill_lookup( spell ) ) < 0 )
      return;
   act( "$p flames at $n!", victim, obj, NULL, TO_ROOM );
   act( "$p flames brightly at you!", victim, obj, NULL, TO_CHAR );
   obj_cast_spell( sn, obj->level, keeper, victim, obj );
   return;
}

void objfun_healing( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   int sn;
   CHAR_DATA *victim;
   int min_lev;
   char *spell = "";
   if( keeper == NULL || keeper->in_room == NULL )
      return;
   if( ( keeper == NULL ) || ( obj->item_type != ITEM_WEAPON ) )
      return;

   for( victim = keeper->in_room->first_person; victim != NULL; victim = victim->next_in_room )
      if( victim->fighting == keeper && number_bits( 1 ) == 0 )
         break;

   if( victim == NULL )
   {
      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@y glows@@N with a @@mHoly @@Wlight@@N!", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@y glows@@N with a @@mHoly @@Wlight@@N!", keeper, obj, NULL, TO_CHAR );
         return;
      }

      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@N sings a @@mhymn@@N.", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@N sings a hymn@@N.", keeper, obj, NULL, TO_CHAR );
         return;
      }
      return;
   }
   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */
   switch ( number_range( 0, 11 ) )
   {
      case 0:
      case 1:
         min_lev = 5;
         spell = "cure light";
         break;
      case 2:
      case 3:
      case 4:
         min_lev = 7;
         spell = "cure serious";
         break;
      case 5:
      case 6:
      case 7:
         min_lev = 8;
         spell = "cure critical";
         break;
      case 8:
      case 9:
      case 10:
      case 11:
         min_lev = 30;
         spell = "heal";
         break;

   }
   if( ( sn = skill_lookup( spell ) ) < 0 )
      return;
   act( "$p blankets $n @@Win a @@mhealing @@Waura@@N!", keeper, obj, NULL, TO_ROOM );
   act( "$p blankets you in a @@mhealing @@Waura@@N!", keeper, obj, NULL, TO_CHAR );
   obj_cast_spell( sn, obj->level, keeper, keeper, obj );
   return;
}

void objfun_dispeller( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   int sn;
   CHAR_DATA *victim;
   int min_lev;
   char *spell = "";
   if( keeper == NULL || keeper->in_room == NULL )
      return;
   if( ( keeper == NULL ) || ( obj->item_type != ITEM_WEAPON ) )
      return;

   for( victim = keeper->in_room->first_person; victim != NULL; victim = victim->next_in_room )
      if( victim->fighting == keeper && number_bits( 2 ) == 0 )
         break;

   if( victim == NULL )
   {
      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@a vibrates @@Nsuddenly@@N!", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@a vibrates @@Nsuddenly@@N!", keeper, obj, NULL, TO_CHAR );
         return;
      }

      if( number_percent(  ) < 2 )
      {
         act( "@@N$p@@N carried by @@a$n@@a peers@@N at your inventory@@N.", keeper, obj, NULL, TO_ROOM );
         act( "@@N$p @@Ncarried by you@@a peers@@N around the room@@N.", keeper, obj, NULL, TO_CHAR );
         return;
      }
      return;
   }
   if( victim == NULL )
      return;

   if( ( get_eq_char( keeper, WEAR_HOLD_HAND_L ) != obj ) && ( get_eq_char( keeper, WEAR_HOLD_HAND_R ) != obj ) )
      return;  /* Must be wielded to work */

   switch ( number_range( 0, 11 ) )
   {
      case 0:
      case 1:
      case 2:
      case 3:
         min_lev = 5;
         spell = "ego whip";
         break;
      case 4:
      case 5:
      case 6:
         min_lev = 7;
         spell = "bloody tears";
         break;
      case 7:
      case 8:
      case 9:
      case 10:
      case 11:
         min_lev = 30;
         spell = "dispel magic";
         break;

   }
   if( ( sn = skill_lookup( spell ) ) < 0 )
      return;
   act( "$p @@apeers@@N deeply into the mind of $n!", victim, obj, NULL, TO_ROOM );
   act( "$p @@apeers @@Ninto your thoughts!", victim, obj, NULL, TO_CHAR );
   obj_cast_spell( sn, obj->level, keeper, victim, obj );
   return;
}

void objfun_regen( OBJ_DATA * obj, CHAR_DATA * keeper )
{
   if( keeper == NULL || keeper->in_room == NULL )
      return;

   if( obj->wear_loc < 0 )
      return;
   keeper->hit = UMIN( keeper->max_hit, keeper->hit + ( number_range( obj->level / 20, obj->level / 5 ) ) );
   return;
}