dg_comm.cpp

#include "config.h"
#include "sysdep.h"

#include "structs.h"
#include "dg_scripts.h"
#include "utils.h"
#include "comm.h"
#include "handler.h"
#include "db.h"
#include "constants.h"
#include "descriptor.h"


/* same as any_one_arg except that it stops at punctuation */
char *any_one_name(char *argument, char *first_arg)
{
  char *arg;

  /* Find first non blank */
  while (isspace(*argument))
    argument++;

  /* Find length of first word */
  for (arg = first_arg;
       *argument && !isspace(*argument) &&
       (!ispunct(*argument) || *argument == '#' || *argument == '-');
       arg++, argument++)
    *arg = LOWER(*argument);
  *arg = '\0';

  return argument;
}


void sub_write_to_char(Character * ch, char *tokens[],
                       void *otokens[], char type[])
{
  char sb[MAX_STRING_LENGTH];
  int i;

  strcpy(sb, "");

  for (i = 0; tokens[i + 1]; i++)
  {
    strlcat(sb, tokens[i], sizeof(sb));

    switch (type[i])
    {
    case '~':
      if (!otokens[i])
        strlcat(sb, "someone", sizeof(sb));
      else if ((Character *) otokens[i] == ch)
        strlcat(sb, "you", sizeof(sb));
      else
        strlcat(sb, PERS((Character *) otokens[i], ch), sizeof(sb));
      break;

    case '@':
      if (!otokens[i])
        strlcat(sb, "someone's", sizeof(sb));
      else if ((Character *) otokens[i] == ch)
        strlcat(sb, "your", sizeof(sb));
      else
      {
        strlcat(sb, PERS((Character *) otokens[i], ch), sizeof(sb));
        strlcat(sb, "'s", sizeof(sb));
      }
      break;

    case '^':
      if (!otokens[i] || !CAN_SEE(ch, (Character *) otokens[i]))
        strlcat(sb, "its", sizeof(sb));
      else if (otokens[i] == ch)
        strlcat(sb, "your", sizeof(sb));
      else
        strlcat(sb, HSHR((Character *) otokens[i]), sizeof(sb));
      break;

    case '&':
      if (!otokens[i] || !CAN_SEE(ch, (Character *) otokens[i]))
        strlcat(sb, "it", sizeof(sb));
      else if (otokens[i] == ch)
        strlcat(sb, "you", sizeof(sb));
      else
        strlcat(sb, HSSH((Character *) otokens[i]), sizeof(sb));
      break;

    case '*':
      if (!otokens[i] || !CAN_SEE(ch, (Character *) otokens[i]))
        strlcat(sb, "it", sizeof(sb));
      else if (otokens[i] == ch)
        strlcat(sb, "you", sizeof(sb));
      else
        strlcat(sb, HMHR((Character *) otokens[i]), sizeof(sb));
      break;

    case '`':
      if (!otokens[i])
        strlcat(sb, "something", sizeof(sb));
      else
        strlcat(sb, OBJS(((obj_data *) otokens[i]), ch), sizeof(sb));
      break;
    }
  }

  strlcat(sb, tokens[i], sizeof(sb));
  strlcat(sb, "\r\n", sizeof(sb));
  if (*sb)
  *sb = toupper(*sb);
  ch->Send( "%s", sb);
}


void sub_write(char *arg, Character * ch, sbyte find_invis, int targets)
{
  char str[MAX_INPUT_LENGTH * 2];
  char type[MAX_INPUT_LENGTH], name[MAX_INPUT_LENGTH];
  char *tokens[MAX_INPUT_LENGTH], *s, *p;
  void *otokens[MAX_INPUT_LENGTH];
  Character *to;
  obj_data *obj;
  int i, tmp = 0;
  int to_sleeping = 1;	/* mainly for windows compiles */
  if (!arg)
    return;

  if (IN_ROOM(ch) == NULL)
    return;

  tokens[0] = str;

  for (i = 0, p = arg, s = str; *p;)
  {
    switch (*p)
    {
    case '~':
    case '@':
    case '^':
    case '&':
    case '*':
      if ( *p == *(p + 1) )
      {
         *s++ = *p++;
         p++;
         continue;
      }
      /* get Character, move to next token */
      type[i] = *p;
      *s = '\0';
      p = any_one_name(++p, name);
      otokens[i] = (void *)
                   (find_invis != 0 ? get_char_in_room(IN_ROOM(ch), name) : get_char_room_vis(ch, name, NULL));
      tokens[++i] = ++s;
      break;

    case '`':
      if ( *p == *(p + 1) )
      {
         *s++ = *p++;
         p++;
         continue;
      }
      /* get obj_data, move to next token */
      type[i] = *p;
      *s = '\0';
      p = any_one_name(++p, name);

      if (find_invis != 0) obj = get_obj_in_room(IN_ROOM(ch), name);
      else if ( IN_ROOM ( ch ) && !(obj = get_obj_in_list_vis(ch, name, NULL, IN_ROOM(ch)->contents)));
      else if (!(obj = get_obj_in_equip_vis(ch, name, &tmp,ch->equipment)));
      else
        obj = get_obj_in_list_vis(ch, name, NULL, ch->carrying);

      otokens[i] = (void *)obj;
      tokens[++i] = ++s;
      break;

    case '\\':
      p++;
      *s++ = *p++;
      break;

    default:
      *s++ = *p++;
    }
  }

  *s = '\0';
  tokens[++i] = NULL;

  if (IS_SET(targets, TO_CHAR) && SENDOK(ch))
    sub_write_to_char(ch, tokens, otokens, type);

  if (IS_SET(targets, TO_ROOM) && IN_ROOM(ch) != NULL)
    for (to = IN_ROOM(ch)->people; to; to = to->next_in_room)
      if (to != ch && SENDOK(to))
        sub_write_to_char(to, tokens, otokens, type);
}

void send_to_zone(char *messg, zone_rnum zone)
{
  Descriptor *i;

  if (!messg || !*messg)
    return;

  for (i = descriptor_list; i; i = i->next)
    if (!i->connected && i->character && AWAKE(i->character) &&
        (IN_ROOM(i->character) != NULL) &&
        (IN_ROOM(i->character)->zone == zone))
      i->Output( "%s", messg);
}

void send_to_zone_range(char *messg, int z_rnum, int lower_vnum,
                        int upper_vnum)
{
  Descriptor *i;

  if (!messg || !*messg)
    return;

  for (i = descriptor_list; i; i = i->next)
    if (!i->connected && i->character && AWAKE(i->character) &&
        (IN_ROOM(i->character) != NULL) &&
        (IN_ROOM(i->character)->zone == z_rnum) &&
        (IN_ROOM(i->character)->number >= lower_vnum) &&
        (IN_ROOM(i->character)->number <= upper_vnum))
      i->Output( "%s", messg);
}