/***************************************************************************
 *  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.                              *
 *                                                                         *
 *  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          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/

/***************************************************************************
 *  The MOBprograms have been contributed by N'Atas-ha.  Any support for   *
 *  these routines should not be expected from Merc Industries.  However,  *
 *  under no circumstances should the blame for bugs, etc be placed on     *
 *  Merc Industries.  They are not guaranteed to work on all systems due   *
 *  to their frequent use of strxxx functions.  They are also not the most *
 *  efficient way to perform their tasks, but hopefully should be in the   *
 *  easiest possible way to install and begin using. Documentation for     *
 *  such installation can be found in INSTALL.  Enjoy........    N'Atas-Ha *
 ***************************************************************************/

#include <sys/types.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "merc.h"

/*
 * Local functions.
 */

char *mprog_type_to_name args( ( int type ) );

/* This routine transfers between alpha and numeric forms of the
 *  mob_prog bitvector types. It allows the words to show up in mpstat to
 *  make it just a hair bit easier to see what a mob should be doing.
 */

char *mprog_type_to_name( int type )
{
   switch ( type )
   {
      case IN_FILE_PROG:
         return "in_file_prog";
      case ACT_PROG:
         return "act_prog";
      case SPEECH_PROG:
         return "speech_prog";
      case RAND_PROG:
         return "rand_prog";
      case FIGHT_PROG:
         return "fight_prog";
      case HITPRCNT_PROG:
         return "hitprcnt_prog";
      case DEATH_PROG:
         return "death_prog";
      case ENTRY_PROG:
         return "entry_prog";
      case GREET_PROG:
         return "greet_prog";
      case ALL_GREET_PROG:
         return "all_greet_prog";
      case GIVE_PROG:
         return "give_prog";
      case BRIBE_PROG:
         return "bribe_prog";
      default:
         return "ERROR_PROG";
   }
}

/* A trivial rehack of do_mstat.  This doesnt show all the data, but just
 * enough to identify the mob and give its basic condition.  It does however,
 * show the MOBprograms which are set.
 */

void do_mpstat( CHAR_DATA * ch, char *argument )
{
   char buf[MAX_STRING_LENGTH];
   char arg[MAX_INPUT_LENGTH];
   MPROG_DATA *mprg;
   CHAR_DATA *victim;

   one_argument( argument, arg );

   if( arg[0] == '\0' )
   {
      send_to_char( "MobProg stat whom?\r\n", ch );
      return;
   }

   if( ( victim = get_char_world( ch, arg ) ) == NULL )
   {
      send_to_char( "They aren't here.\r\n", ch );
      return;
   }

   if( !IS_NPC( victim ) )
   {
      send_to_char( "Only Mobiles can have Programs!\r\n", ch );
      return;
   }

   if( !( victim->pIndexData->progtypes ) )
   {
      send_to_char( "That Mobile has no Programs set.\r\n", ch );
      return;
   }

   sprintf( buf, "Name: %s.  Vnum: %d.\r\n", victim->name, victim->pIndexData->vnum );
   send_to_char( buf, ch );

   sprintf( buf, "Short description: %s.\r\nLong  description: %s",
            victim->short_descr, victim->long_descr[0] != '\0' ? victim->long_descr : "(none).\r\n" );
   send_to_char( buf, ch );

   sprintf( buf, "Hp: %d/%d.  Mana: %d/%d.  Move: %d/%d. \r\n",
            victim->hit, victim->max_hit, victim->mana, victim->max_mana, victim->move, victim->max_move );
   send_to_char( buf, ch );

   sprintf( buf,
            "Lv: %d.  Class: %d.  Align: %d.  AC: %d.  Gold: %d.  Exp: %d.\r\n",
            victim->level, victim->class, victim->alignment, GET_AC( victim ), victim->gold, victim->exp );
   send_to_char( buf, ch );

   for( mprg = victim->pIndexData->mobprogs; mprg != NULL; mprg = mprg->next )
   {
      sprintf( buf, ">%s %s\r\n%s\r\n", mprog_type_to_name( mprg->type ), mprg->arglist, mprg->comlist );
      send_to_char( buf, ch );
   }

   return;

}

/* prints the argument to all the rooms aroud the mobile */

void do_mpasound( CHAR_DATA * ch, char *argument )
{

   ROOM_INDEX_DATA *was_in_room;
   int door;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   if( argument[0] == '\0' )
   {
      bug( "Mpasound - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   was_in_room = ch->in_room;
   for( door = 0; door <= 5; door++ )
   {
      EXIT_DATA *pexit;

      if( ( pexit = was_in_room->exit[door] ) != NULL && pexit->to_room != NULL && pexit->to_room != was_in_room )
      {
         ch->in_room = pexit->to_room;
         MOBtrigger = FALSE;
         act( argument, ch, NULL, NULL, TO_ROOM );
      }
   }

   ch->in_room = was_in_room;
   return;

}

/* lets the mobile kill any player or mobile without murder*/

void do_mpkill( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   CHAR_DATA *victim;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   one_argument( argument, arg );

   if( arg[0] == '\0' )
   {
      bug( "MpKill - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ( victim = get_char_room( ch, arg ) ) == NULL )
   {
      bug( "MpKill - Victim not in room from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( victim == ch )
   {
      bug( "MpKill - Bad victim to attack from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( IS_AFFECTED( ch, AFF_CHARM ) && ch->master == victim )
   {
      bug( "MpKill - Charmed mob attacking master from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ch->position == POS_FIGHTING )
   {
      bug( "MpKill - Already fighting from vnum %d", ch->pIndexData->vnum );
      return;
   }

   multi_hit( ch, victim, TYPE_UNDEFINED );
   return;
}


/* lets the mobile destroy an object in its inventory
   it can also destroy a worn object and it can destroy 
   items using all.xxxxx or just plain all of them */

void do_mpjunk( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   OBJ_DATA *obj;
   OBJ_DATA *obj_next;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   one_argument( argument, arg );

   if( arg[0] == '\0' )
   {
      bug( "Mpjunk - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( str_cmp( arg, "all" ) && str_prefix( "all.", arg ) )
   {
      if( ( obj = get_obj_wear( ch, arg ) ) != NULL )
      {
         unequip_char( ch, obj );
         extract_obj( obj );
         return;
      }
      if( ( obj = get_obj_carry( ch, arg ) ) == NULL )
         return;
      extract_obj( obj );
   }
   else
      for( obj = ch->carrying; obj != NULL; obj = obj_next )
      {
         obj_next = obj->next_content;
         if( arg[3] == '\0' || is_name( &arg[4], obj->name ) )
         {
            if( obj->wear_loc != WEAR_NONE )
               unequip_char( ch, obj );
            extract_obj( obj );
         }
      }

   return;

}

/* prints the message to everyone in the room other than the mob and victim */

void do_mpechoaround( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   CHAR_DATA *victim;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   argument = one_argument( argument, arg );

   if( arg[0] == '\0' )
   {
      bug( "Mpechoaround - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( !( victim = get_char_room( ch, arg ) ) )
   {
      bug( "Mpechoaround - Victim does not exist from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   act( argument, ch, NULL, victim, TO_NOTVICT );
   return;
}

/* prints the message to only the victim */

void do_mpechoat( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   CHAR_DATA *victim;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   argument = one_argument( argument, arg );

   if( arg[0] == '\0' || argument[0] == '\0' )
   {
      bug( "Mpechoat - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( !( victim = get_char_room( ch, arg ) ) )
   {
      bug( "Mpechoat - Victim does not exist from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   act( argument, ch, NULL, victim, TO_VICT );
   return;
}

/* prints the message to the room at large */

void do_mpecho( CHAR_DATA * ch, char *argument )
{
   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   if( argument[0] == '\0' )
   {
      bug( "Mpecho - Called w/o argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   act( argument, ch, NULL, NULL, TO_ROOM );
   return;

}

/* lets the mobile load an item or mobile.  All items
are loaded into inventory.  you can specify a level with
the load object portion as well. */

void do_mpmload( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   MOB_INDEX_DATA *pMobIndex;
   CHAR_DATA *victim;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   one_argument( argument, arg );

   if( arg[0] == '\0' || !is_number( arg ) )
   {
      bug( "Mpmload - Bad vnum as arg from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ( pMobIndex = get_mob_index( atoi( arg ) ) ) == NULL )
   {
      bug( "Mpmload - Bad mob vnum from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   victim = create_mobile( pMobIndex );
   char_to_room( victim, ch->in_room );
   return;
}

void do_mpoload( CHAR_DATA * ch, char *argument )
{
   char arg1[MAX_INPUT_LENGTH];
   char arg2[MAX_INPUT_LENGTH];
   OBJ_INDEX_DATA *pObjIndex;
   OBJ_DATA *obj;
   int level;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   argument = one_argument( argument, arg1 );
   argument = one_argument( argument, arg2 );

   if( arg1[0] == '\0' || !is_number( arg1 ) )
   {
      bug( "Mpoload - Bad syntax from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( arg2[0] == '\0' )
   {
      level = get_trust( ch );
   }
   else
   {
      /*
       * New feature from Alander.
       */
      if( !is_number( arg2 ) )
      {
         bug( "Mpoload - Bad syntax from vnum %d.", ch->pIndexData->vnum );
         return;
      }
      level = atoi( arg2 );
      if( level < 0 || level > get_trust( ch ) )
      {
         bug( "Mpoload - Bad level from vnum %d.", ch->pIndexData->vnum );
         return;
      }
   }

   if( ( pObjIndex = get_obj_index( atoi( arg1 ) ) ) == NULL )
   {
      bug( "Mpoload - Bad vnum arg from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   obj = create_object( pObjIndex, level );
   if( CAN_WEAR( obj, ITEM_TAKE ) )
   {
      obj_to_char( obj, ch );
   }
   else
   {
      obj_to_room( obj, ch->in_room );
   }

   return;
}

/* lets the mobile purge all objects and other npcs in the room,
   or purge a specified object or mob in the room.  It can purge
   itself, but this had best be the last command in the MOBprogram
   otherwise ugly stuff will happen */

void do_mppurge( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   CHAR_DATA *victim;
   OBJ_DATA *obj;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   one_argument( argument, arg );

   if( arg[0] == '\0' )
   {
      /*
       * 'purge' 
       */
      CHAR_DATA *vnext;
      OBJ_DATA *obj_next;

      for( victim = ch->in_room->people; victim != NULL; victim = vnext )
      {
         vnext = victim->next_in_room;
         if( IS_NPC( victim ) && victim != ch )
            extract_char( victim, TRUE );
      }

      for( obj = ch->in_room->contents; obj != NULL; obj = obj_next )
      {
         obj_next = obj->next_content;
         extract_obj( obj );
      }

      return;
   }

   if( ( victim = get_char_room( ch, arg ) ) == NULL )
   {
      if( ( obj = get_obj_here( ch, arg ) ) )
      {
         extract_obj( obj );
      }
      else
      {
         bug( "Mppurge - Bad argument from vnum %d.", ch->pIndexData->vnum );
      }
      return;
   }

   if( !IS_NPC( victim ) )
   {
      bug( "Mppurge - Purging a PC from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   extract_char( victim, TRUE );
   return;
}


/* lets the mobile goto any location it wishes that is not private */

void do_mpgoto( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   ROOM_INDEX_DATA *location;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   one_argument( argument, arg );
   if( arg[0] == '\0' )
   {
      bug( "Mpgoto - No argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ( location = find_location( ch, arg ) ) == NULL )
   {
      bug( "Mpgoto - No such location from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ch->fighting != NULL )
      stop_fighting( ch, TRUE );

   char_from_room( ch );
   char_to_room( ch, location );

   return;
}

/* lets the mobile do a command at another location. Very useful */

void do_mpat( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];
   ROOM_INDEX_DATA *location;
   ROOM_INDEX_DATA *original;
   CHAR_DATA *wch;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   argument = one_argument( argument, arg );

   if( arg[0] == '\0' || argument[0] == '\0' )
   {
      bug( "Mpat - Bad argument from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( ( location = find_location( ch, arg ) ) == NULL )
   {
      bug( "Mpat - No such location from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   original = ch->in_room;
   char_from_room( ch );
   char_to_room( ch, location );
   interpret( ch, argument );

   /*
    * See if 'ch' still exists before continuing!
    * Handles 'at XXXX quit' case.
    */
   for( wch = char_list; wch != NULL; wch = wch->next )
   {
      if( wch == ch )
      {
         char_from_room( ch );
         char_to_room( ch, original );
         break;
      }
   }

   return;
}

/* lets the mobile transfer people.  the all argument transfers
   everyone in the current room to the specified location */

void do_mptransfer( CHAR_DATA * ch, char *argument )
{
   char arg1[MAX_INPUT_LENGTH];
   char arg2[MAX_INPUT_LENGTH];
   ROOM_INDEX_DATA *location;
   DESCRIPTOR_DATA *d;
   CHAR_DATA *victim;

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }
   argument = one_argument( argument, arg1 );
   argument = one_argument( argument, arg2 );

   if( arg1[0] == '\0' )
   {
      bug( "Mptransfer - Bad syntax from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( !str_cmp( arg1, "all" ) )
   {
      for( d = descriptor_list; d != NULL; d = d->next )
      {
         if( d->connected == CON_PLAYING
             && d->character != ch && d->character->in_room != NULL && can_see( ch, d->character ) )
         {
            char buf[MAX_STRING_LENGTH];
            sprintf( buf, "%s %s", d->character->name, arg2 );
            do_transfer( ch, buf );
         }
      }
      return;
   }

   /*
    * Thanks to Grodyn for the optional location parameter.
    */
   if( arg2[0] == '\0' )
   {
      location = ch->in_room;
   }
   else
   {
      if( ( location = find_location( ch, arg2 ) ) == NULL )
      {
         bug( "Mptransfer - No such location from vnum %d.", ch->pIndexData->vnum );
         return;
      }

      if( room_is_private( location ) )
      {
         bug( "Mptransfer - Private room from vnum %d.", ch->pIndexData->vnum );
         return;
      }
   }

   if( ( victim = get_char_world( ch, arg1 ) ) == NULL )
   {
      bug( "Mptransfer - No such person from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( victim->in_room == NULL )
   {
      bug( "Mptransfer - Victim in Limbo from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( victim->fighting != NULL )
      stop_fighting( victim, TRUE );

   char_from_room( victim );
   char_to_room( victim, location );

   return;
}

/* lets the mobile force someone to do something.  must be mortal level
   and the all argument only affects those in the room with the mobile */

void do_mpforce( CHAR_DATA * ch, char *argument )
{
   char arg[MAX_INPUT_LENGTH];

   if( !IS_NPC( ch ) )
   {
      send_to_char( "Huh?\r\n", ch );
      return;
   }

   argument = one_argument( argument, arg );

   if( arg[0] == '\0' || argument[0] == '\0' )
   {
      bug( "Mpforce - Bad syntax from vnum %d.", ch->pIndexData->vnum );
      return;
   }

   if( !str_cmp( arg, "all" ) )
   {
      CHAR_DATA *vch;
      CHAR_DATA *vch_next;

      for( vch = char_list; vch != NULL; vch = vch_next )
      {
         vch_next = vch->next;

         if( vch->in_room == ch->in_room && get_trust( vch ) < get_trust( ch ) && can_see( ch, vch ) )
         {
            interpret( vch, argument );
         }
      }
   }
   else
   {
      CHAR_DATA *victim;

      if( ( victim = get_char_room( ch, arg ) ) == NULL )
      {
         bug( "Mpforce - No such victim from vnum %d.", ch->pIndexData->vnum );
         return;
      }

      if( victim == ch )
      {
         bug( "Mpforce - Forcing oneself from vnum %d.", ch->pIndexData->vnum );
         return;
      }

      interpret( victim, argument );
   }

   return;
}