/***************************************************************************
 *  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.                              *
 *                                                                         *
 *  Envy Diku Mud improvements copyright (C) 1994 by Michael Quan, David   *
 *  Love, Guilherme 'Willie' Arnold, and Mitchell Tse.                     *
 *                                                                         *
 *  EnvyMud 2.0 improvements copyright (C) 1995 by Michael Quan and        *
 *  Mitchell Tse.                                                          *
 *                                                                         *
 *  In order to use any part of this Envy Diku Mud, you must comply with   *
 *  the original Diku license in 'license.doc', the Merc license in        *
 *  'license.txt', as well as the Envy license in 'license.nvy'.           *
 *  In particular, you may not remove either of these copyright notices.   *
 *                                                                         *
 *  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.                                                  *
 ***************************************************************************/

#if defined( macintosh )
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"



/*
 * The following special functions are available for objects.
 */
DECLARE_OBJ_FUN(        spec_giggle             );
DECLARE_OBJ_FUN(        spec_soul_moan          );
DECLARE_OBJ_FUN(        spec_hum                );
DECLARE_OBJ_FUN(        spec_haste              );
DECLARE_OBJ_FUN(        spec_stoneskin          );
DECLARE_OBJ_FUN(        spec_sneak              );
DECLARE_OBJ_FUN(        spec_hide               );
DECLARE_OBJ_FUN(        spec_invisibility       );
DECLARE_OBJ_FUN(        spec_wp_lightning       );


OBJ_FUN *spec_obj_lookup( const char *name )
{
    int cmd;

    for ( cmd = 0; *spec_obj_table[cmd].spec_name; cmd++ )
	if ( !str_cmp( name, spec_obj_table[cmd].spec_name ) )
	    return spec_obj_table[cmd].spec_fun;

    return 0;
}


char *spec_obj_string( OBJ_FUN *fun )
{
    int cmd;

    for ( cmd = 0; *spec_obj_table[cmd].spec_fun; cmd++ )
	if ( fun == spec_obj_table[cmd].spec_fun )
	    return spec_obj_table[cmd].spec_name;

    return 0;
}

/*
 * Object special function commands.
 */
const   struct  spec_obj_type   spec_obj_table  [ ]     =
{
    { "spec_giggle",            spec_giggle             },
    { "spec_soul_moan",         spec_soul_moan          },
    { "spec_hum",               spec_hum                },
    { "spec_haste",             spec_haste              }, 
    { "spec_stoneskin",         spec_stoneskin          },
    { "spec_sneak",             spec_sneak              },
    { "spec_hide",              spec_hide               },
    { "spec_invisibility",      spec_invisibility       },
    { "spec_wp_lightning",      spec_wp_lightning       },
    { "",                       0                       }
};  



/*
 * Special procedures for objects.
 */
bool spec_giggle( OBJ_DATA *obj, CHAR_DATA *keeper )
{
    if ( !keeper || !keeper->in_room )
	return FALSE;

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

    return FALSE;
}

bool spec_hum( OBJ_DATA *obj, CHAR_DATA *keeper )
{
    log_string( "obj: checking humming" );
    if ( !keeper || !keeper->in_room )
	return FALSE;

    if ( number_percent( ) < 4 )
    {
	act( "A faint hum can be heard from $p&n carried by $n&n.",
	    keeper, obj, NULL, TO_ROOM );
	act( "Your $p&n hums faintly.",
	    keeper, obj, NULL, TO_CHAR );
	return TRUE;
    }

    return FALSE;
}


bool spec_soul_moan( OBJ_DATA *obj, CHAR_DATA *keeper )
{
    log_string( "obj: checking soul moan" );
    if ( !keeper || !keeper->in_room )
	return FALSE;

    if ( number_percent( ) < 2 )
    {
	act( "The soul in $p&n carried by $n&n moans in agony.",
	    keeper, obj, NULL, TO_ROOM );
	act( "The soul in $p&n carried by you moans to be set free!",
	    keeper, obj, NULL, TO_CHAR );
	return TRUE;
    }

    if ( number_percent( ) < 2 )
    {
	act( "The soul in $p&n carried by $n&n tries to free itself!",
	    keeper, obj, NULL, TO_ROOM );
	act( "The soul in $p&n carried by you starts writhing!",
	    keeper, obj, NULL, TO_CHAR );
	return TRUE;
    }

    return FALSE;
}

// Haste proc disabled until haste spell coded - Veygoth
bool spec_haste( OBJ_DATA *obj, CHAR_DATA *keeper )
{
/*   log_string( "obj: now doing check for perm haste procs on items." );
   if( !IS_AFFECTED( keeper, AFF_HASTE ))
     {
      spell_haste( spl_haste, 30, keeper, keeper );
      log_string( "obj: perm haste activate ok" );
      return TRUE;
     }
*/
   return FALSE;
}

bool spec_sneak( OBJ_DATA *obj, CHAR_DATA *keeper )
{
	return FALSE;
}

bool spec_hide( OBJ_DATA *obj, CHAR_DATA *keeper )
{
	return FALSE;
}

bool spec_invisibility( OBJ_DATA *obj, CHAR_DATA *keeper )
{
	return FALSE;
}

bool spec_stoneskin( OBJ_DATA *obj, CHAR_DATA *keeper )
{
	return FALSE;
}

bool spec_wp_lightning( OBJ_DATA *obj, CHAR_DATA *keeper )
{
	return FALSE;
}