#include "kernel.h"
#include "sflags.h"
#include "pflags.h"
#include "lflags.h"
#include "sendsys.h"
#include "mobile.h"

#ifdef VARGS
#include <stdarg.h>
#endif





/* Simple interfaces:
 */
void broad(char *mesg)
{
  sendf(DEST_ALL, "%s", mesg);
}

void sillycom(char *txt)
{
  send_msg( ploc(mynum), 0, pvis(mynum), LVL_MAX, mynum, NOBODY,
	   txt, pname(mynum), pname(mynum));
}

void sillytp(int per, char *msg)
{
  sendf( per, "\001p%s\003 %s\n", pname(mynum), msg);
}








static void ___send_msg(int to,
			char *text)
{
  /* send a message to 'to', supposedly from 'from'. 'from' doesn't have
   * to be an actual player or mobile in the game though.
   */

  /* Note that mynum, cur_player, etc is modified in this function. */
  /* This will cause pbfr() to be called. */

  setup_globals(to);
  bprintf("\n%s\r%s", text, cur_player->cprompt);
}

/*
  Values for destination:
  negative values:            room number.
  0..max_players - 1          player with specified index.
  max_players..numchars - 1   mobile with specified index.
  DEST_ALL                    all players and mobiles.
*/

static Boolean test_rcv(int player,      /* Who to send to */
			int mode,        /* Flags to control sending */
			int min,         /* Minimum level of recipient */
			int max,         /* Maximum level of recipient */
			int x1,          /* Do not send to him */
			int x2)          /* Nor to him */
{
  Boolean b, bb;
  int x;


  if (player == x1 || player == x2) return False;
  b = (plev(player) >= min && plev(player) < max);
  if (mode & MODE_NODEAF)   b = b && !ststflg(player,SFL_DEAF);
  if (mode & MODE_NODUMB)   b = b && !ststflg(player,SFL_DUMB);
  if (mode & MODE_NOCRIP)   b = b && !ststflg(player, SFL_CRIPPLED);
  if (mode & MODE_QUIET)    b = b && !ststflg(player, SFL_QUIET);
  if (mode & MODE_OUTDOORS) b = b &&  ltstflg(ploc(player), LFL_OUTDOORS);

  switch (mode & (MODE_PFLAG|MODE_NPFLAG)) {
  case MODE_PFLAG:  b = b &&  ptstflg( player, mode & MODE_FLAGS); break;
  case MODE_NPFLAG: b = b && !ptstflg( player, mode & MODE_FLAGS); break;
  }

  switch (mode & (MODE_SFLAG|MODE_NSFLAG)) {
  case MODE_SFLAG:
    b = b && ststflg( player, (mode >> MODE_S) & MODE_FLAGS); break;
  case MODE_NSFLAG:
    b = b && !ststflg( player, (mode >> MODE_S) & MODE_FLAGS); break;
  }
  if (MODE_NEG & mode) return !b;
  return b;
}

/* Send general message.
 */
void send_g_msg(int destination,                        /* Where to send to */
	        char *func(int plx, int arg, char *t),  /* Test function */
		int arg,                             /* Argument to test */
	        char *text)                          /* Text to send */
{
  char *t;
  int   p, q, me = real_mynum;

  if (destination >= numchars) return; /* Illegal value */
  if (func == NULL && text == NULL) return; /* Nothing to send */
  if (destination >= max_players) {
    /* a mobile, let us see if anyuone is aliasing it */

    if ((p = find_pretender(destination)) < 0) return;
    /* Someone is aliased/polymorphed as the mobile we're supposed
     * to send to, send to him
     */
    if ((t = (func == NULL ? text : func(destination,arg,text))) != NULL) {
      ___send_msg(p,t);
    }
  } else if (destination >= 0) {
    /* A player, send to him */
    if (is_in_game(destination) &&
	(t = (func == NULL ? text : func(destination, arg, text))) != NULL) {
      if (players[destination].pretend < 0) {
	___send_msg(destination,t);
      }
      if ((p = find_pretender(destination)) >= 0) {
	___send_msg(p,t);
      }
    }
  } else {
    /* Room number or all, go through all players */

    for (p = 0; p < max_players; ++p) {
      if (is_in_game(p) &&
	  (destination == DEST_ALL || destination == ploc(p)) &&
	  (t = (func == NULL ? text : func(p, arg, text))) != NULL) {
	if (players[p].pretend < 0) {
	  ___send_msg(p,t);
	}
	if ((q = find_pretender(p)) >= 0) {
	  ___send_msg(q,t);
	}
      }
    }
    for (;p < numchars; ++p) {
      if (is_in_game(p) && pstr(p) >= 0 &&
	  (destination == DEST_ALL || destination == ploc(p)) &&
	  (t = (func == NULL ? text : func(p, arg, text))) != NULL &&
	  (q = find_pretender(p)) >= 0) {
	___send_msg(q,t);
      }
    }
  }
  setup_globals(me);
}

struct _send_msg_box {
  int mode;
  int min;
  int max;
  int x1;
  int x2;
};

char *check_send_msg(int plx, int a, char *t)
{
  struct _send_msg_box *b = (struct _send_msg_box *)a;

  if (test_rcv(plx,b->mode,b->min,b->max,b->x1,b->x2)) return t;
  return NULL;
}

#ifdef VARGS

void send_msg(int destination, /* Where to send to */
	      int mode,        /* Flags to control sending */
	      int min,         /* Minimum level of recipient */
	      int max,         /* Maximum level of recipient */
	      int x1,          /* Do not send to him */
	      int x2,          /* Nor to him */
	      char *format,...) /* Format with args -> text to send */
{
  va_list pvar;
  char bf[2048];
  char bf2[2048];
  struct _send_msg_box b;
  char *bb;

  b.mode = mode;
  b.min  = min;
  b.max  = max;
  b.x1   = x1;
  b.x2   = x2;
  bb = format;
  if ((mode & MODE_COLOR) != 0) {
    sprintf( bf2, "\001A\033[1;33m\003%s\001A\033[0m\003", format);
    bb = bf2;
  }
  va_start(pvar,format);
  vsprintf(bf, bb, pvar);
  va_end(pvar);
  send_g_msg(destination,check_send_msg,(int)&b,bf);
}


void sendf(int destination,char *format,...)
{
  char b[2048];
  va_list pvar;

  va_start(pvar,format);
  vsprintf(b, format, pvar);
  va_end(pvar);
  send_g_msg(destination,NULL,0,b);
}

void gsendf(int destination,
	    char *func(int plx, int arg, char *text),
	    int  arg,
	    char *format,...)
{
  char b[2048];
  va_list pvar;

  va_start(pvar,format);
  vsprintf(b, format, pvar);
  va_end(pvar);
  send_g_msg(destination,func,arg,b);
}

#else

void send_msg(int destination, /* Where to send to */
	      int mode,        /* Flags to control sending */
	      int min,         /* Minimum level of recipient */
	      int max,         /* Maximum level of recipient */
	      int x1,          /* Do not send to him */
	      int x2,          /* Nor to him */
	      char *format,    /* Format with args -> text to send */
	      int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8,
	      int a9)
{
  struct _send_msg_box b;
  char   *bb;
  char bf[2048];
  char bf2[2048];

  b.mode = mode;
  b.min  = min;
  b.max  = max;
  b.x1   = x1;
  b.x2   = x2;
  bb = format;
  if ((mode & MODE_COLOR) != 0) {
    sprintf( bf2, "\001A\033[1;33m\003%s\001A\033[0m\003", format);
    bb = bf2;
  }
  sprintf(bf, bb, a1, a2, a3, a4, a5, a6, a7, a8, a9);
  send_g_msg(destination,check_send_msg,(int)&b,bf);
}

void sendf(int destination,char *format,int a1,int a2,int a3,int a4,int a5,
	     int a6,int a7,int a8,int a9)
{
  char b[2048];

  sprintf(b, format, a1, a2, a3, a4, a5, a6, a7, a8, a9);
  send_g_msg(destination,NULL,0,b);
}

void gsendf(int destination,
	    char *func(int plx, int arg, char *text),
	    int  arg,
	    char *format,int a1,int a2,int a3,int a4,int a5,int a6,int a7,
	    int a8,int a9)
{
  char b[2048];

  sprintf(b, format, a1, a2, a3, a4, a5, a6, a7, a8, a9);
  send_g_msg(destination,func,arg,b);
}
#endif