/***************************************************************************
 *  file: act_comm.c , Implementation of commands.         Part of DIKUMUD *
 *  Usage : Communication.                                                 *
 *  Copyright (C) 1990, 1991 - see 'license.doc' for complete information. *
 *                                                                         *
 *  Copyright (C) 1992, 1993 Michael Chastain, Michael Quan, Mitchell Tse  *
 *  Performance optimization and bug fixes by MERC Industries.             *
 *  You can use our stuff in any way you like whatsoever so long as this   *
 *  copyright notice remains intact.  If you like it please drop a line    *
 *  to mec@garnet.berkeley.edu.                                            *
 *                                                                         *
 *  This is free software and you are benefitting.  We hope that you       *
 *  share your changes too.  What goes around, comes around.               *
 ***************************************************************************/

#include <stdio.h>
#include <string.h>

#include "structs.h"
#include "mob.h"
#include "obj.h"
#include "utils.h"
#include "interp.h"
#include "handler.h"
#include "db.h"
#include "spells.h"

/* extern variables */

extern struct room_data *world;
extern struct descriptor_data *descriptor_list;


void do_say(struct char_data *ch, char *argument, int cmd)
{
    int i;
    char buf[MAX_STRING_LENGTH];

    for (i = 0; *(argument + i) == ' '; i++);

    if (!*(argument + i))
	send_to_char("Yes, but WHAT do you want to say?\n\r", ch);
    else
    {
	sprintf(buf,"$n says '%s'.", argument + i);
	act(buf,FALSE,ch,0,0,TO_ROOM);
	sprintf(buf,"You say '%s'.", argument + i);
	act(buf,FALSE,ch,0,0,TO_CHAR);
    }
}

void do_shout(struct char_data *ch, char *argument, int cmd)
{
    char buf1[MAX_STRING_LENGTH];
    char buf2[MAX_STRING_LENGTH];
    struct descriptor_data *i;


    if (!IS_NPC(ch) && IS_SET(ch->specials.act, PLR_NOSHOUT))
    {
	send_to_char("You can't shout!!\n\r", ch);
	return;
    }

    if (!IS_NPC(ch) && GET_LEVEL(ch)<3){
      send_to_char("Due to misuse, you must be of at least 3rd level to shout.\n\r",ch);
      return;
    }
    
    if (GET_MOVE(ch) < 10)
    {
	send_to_char("You are too exhausted to shout.\n\r", ch);
	return;
    }

    GET_MOVE(ch) -= 10;

    for (; *argument == ' '; argument++);

    if (!(*argument))
	send_to_char("Shout? Yes! Fine! Shout we must, but WHAT??\n\r", ch);
    else
    {
	sprintf(buf1, "$n shouts '%s'.", argument);
	sprintf(buf2, "You shout '%s'.", argument);
	act(buf2, 0, ch, 0, 0, TO_CHAR);

	for (i = descriptor_list; i; i = i->next)
	if (i->character != ch && !i->connected &&
	    !IS_SET(i->character->specials.act, PLR_NOSHOUT))
		act(buf1, 0, ch, 0, i->character, TO_VICT);
    }
}


void do_tell(struct char_data *ch, char *argument, int cmd)
{
    struct char_data *vict;
    char name[100], message[MAX_STRING_LENGTH],
	buf[MAX_STRING_LENGTH];

    if (IS_SET(ch->specials.act, PLR_NOTELL))
    {
	send_to_char("Your message didn't get through!!\n\r", ch);
	return;
    }

    half_chop(argument,name,message);

    if(!*name || !*message)
	send_to_char("Who do you wish to tell what??\n\r", ch);
    else if (!(vict = get_char_vis(ch, name)))
	send_to_char("No-one by that name here.\n\r", ch);
    else if (ch == vict)
	send_to_char("You try to tell yourself something.\n\r", ch);
    else if ( ( GET_POS(vict) == POSITION_SLEEPING ||
	     IS_SET(ch->specials.act, PLR_NOTELL) ) && GET_LEVEL(ch)<31 )
    {
	act("$E can't hear you.",FALSE,ch,0,vict,TO_CHAR);
    }
    else
    {
	sprintf(buf,"%s tells you, '%s'.\n\r",
	  (IS_NPC(ch) ? ch->player.short_descr : GET_NAME(ch)), message);
	send_to_char(buf, vict);
	sprintf(buf,"You tell %s, '%s'.\n\r",
	    (IS_NPC(vict) ? vict->player.short_descr : GET_NAME(vict)), message);
	send_to_char(buf, ch);
    }
}



void do_whisper(struct char_data *ch, char *argument, int cmd)
{
    struct char_data *vict;
    char name[100], message[MAX_STRING_LENGTH],
	buf[MAX_STRING_LENGTH];

    half_chop(argument,name,message);

    if(!*name || !*message)
	send_to_char("Who do you want to whisper to.. and what??\n\r", ch);
    else if (!(vict = get_char_room_vis(ch, name)))
	send_to_char("No-one by that name here..\n\r", ch);
    else if (vict == ch)
    {
	act("$n whispers quietly to $mself.",FALSE,ch,0,0,TO_ROOM);
	send_to_char(
	    "You can't seem to get your mouth close enough to your ear...\n\r",
	     ch);
    }
    else
    {
	sprintf(buf,"$n whispers to you, '%s'.",message);
	act(buf, FALSE, ch, 0, vict, TO_VICT);
	sprintf(buf,"You whisper to $N, '%s'.",message);
	act(buf, FALSE, ch, 0, vict, TO_CHAR);
	act("$n whispers something to $N.", FALSE, ch, 0, vict, TO_NOTVICT);
    }
}


void do_ask(struct char_data *ch, char *argument, int cmd)
{
    struct char_data *vict;
    char name[100], message[MAX_STRING_LENGTH],
	buf[MAX_STRING_LENGTH];

    half_chop(argument,name,message);

    if(!*name || !*message)
	send_to_char("Who do you want to ask something, and what??\n\r", ch);
    else if (!(vict = get_char_room_vis(ch, name)))
	send_to_char("No-one by that name here.\n\r", ch);
    else if (vict == ch)
    {
	act("$n quietly asks $mself a question.",FALSE,ch,0,0,TO_ROOM);
	send_to_char("You think about it for a while...\n\r", ch);
    }
    else
    {
	sprintf(buf,"$n asks you, '%s'.",message);
	act(buf, FALSE, ch, 0, vict, TO_VICT);
	sprintf(buf,"You ask $N, '%s'.",message);
	act(buf, FALSE, ch, 0, vict, TO_CHAR);
	act("$n asks $N a question.",FALSE,ch,0,vict,TO_NOTVICT);
    }
}



#define MAX_NOTE_LENGTH 1000      /* arbitrary */

void do_write(struct char_data *ch, char *argument, int cmd)
{
    struct obj_data *paper = 0, *pen = 0;
    char papername[MAX_INPUT_LENGTH], penname[MAX_INPUT_LENGTH],
	buf[MAX_STRING_LENGTH];

    argument_interpreter(argument, papername, penname);

    if (!ch->desc)
	return;

    if (!*papername)  /* nothing was delivered */
    {   
	send_to_char(
	    "Write? with what? ON what? what are you trying to do??\n\r", ch);
	return;
    }
    if (*penname) /* there were two arguments */
    {
	if (!(paper = get_obj_in_list_vis(ch, papername, ch->carrying)))
	{
	    sprintf(buf, "You have no %s.\n\r", papername);
	    send_to_char(buf, ch);
	    return;
	}
	if (!(pen = get_obj_in_list_vis(ch, penname, ch->carrying)))
	{
	    sprintf(buf, "You have no %s.\n\r", papername);
	    send_to_char(buf, ch);
	    return;
	}
    }
    else  /* there was one arg.let's see what we can find */
    {           
	if (!(paper = get_obj_in_list_vis(ch, papername, ch->carrying)))
	{
	    sprintf(buf, "There is no %s in your inventory.\n\r", papername);
	    send_to_char(buf, ch);
	    return;
	}
	if (paper->obj_flags.type_flag == ITEM_PEN)  /* oops, a pen.. */
	{
	    pen = paper;
	    paper = 0;
	}
	else if (paper->obj_flags.type_flag != ITEM_NOTE)
	{
	    send_to_char("That thing has nothing to do with writing.\n\r", ch);
	    return;
	}

	/* one object was found. Now for the other one. */
	if (!ch->equipment[HOLD])
	{
	    sprintf(buf, "You can't write with a %s alone.\n\r", papername);
	    send_to_char(buf, ch);
	    return;
	}
	if (!CAN_SEE_OBJ(ch, ch->equipment[HOLD]))
	{
	    send_to_char("The stuff in your hand is invisible! Yeech!!\n\r", ch);
	    return;
	}
	
	if (pen)
	    paper = ch->equipment[HOLD];
	else
	    pen = ch->equipment[HOLD];
    }
	    
    /* ok.. now let's see what kind of stuff we've found */
    if (pen->obj_flags.type_flag != ITEM_PEN)
    {
	act("$p is no good for writing with.",FALSE,ch,pen,0,TO_CHAR);
    }
    else if (paper->obj_flags.type_flag != ITEM_NOTE)
    {
	act("You can't write on $p.", FALSE, ch, paper, 0, TO_CHAR);
    }
    else if (paper->action_description)
	send_to_char("There's something written on it already.\n\r", ch);
    else
    {
	/* we can write - hooray! */
		
	send_to_char("Ok.. go ahead and write.. end the note with a @.\n\r",
	    ch);
	act("$n begins to jot down a note.", TRUE, ch, 0,0,TO_ROOM);
	ch->desc->str = &paper->action_description;
	ch->desc->max_str = MAX_NOTE_LENGTH;
    }
}