#define FLAGS_C

#include "kernel.h"
#include "mflagnames.h"
#include "pflagnames.h"
#include "sflagnames.h"
#include "lflagnames.h"
#include "levelnames.h"
#include "questnames.h"
#include "lflags.h"
#include "pflags.h"
#include "parse.h"
#include "bprintf.h"
#include "uaf.h"
#include "rooms.h"
#include "mobile.h"
#include "log.h"
#include "calendar.h"
#include "flags.h"

char *TF[3] = {"False", "True", TABLE_END};
char *OO[3] = {"Off", "On", TABLE_END};

void show_bits (int *bits, int n, char **table)
{
  int *b;
  int bno;
  int xno;
  int cno;
  int c2;
  char **t;
  char *p;
  Boolean t_end;
  char buff[16];
  
  
  cno = n;
  b = bits + n - 1;
  bno = 0;
  xno = 0;
  c2 = 0;
  t = table;
  t_end = False;
  for (; b >= bits; --b, ++cno)
    {
      for (bno = 0; bno < 32; bno++, xno++, t++)
	{
	  if (((*b) & (1 << bno)) != 0)
	    {
	      if (t_end)
		p = NULL;
	      else if ((p = *t) == TABLE_END)
		{
		  t_end = True;
		  p = NULL;
		}
	      if (p == NULL)
		{
		  sprintf (buff, "<Spare%d>", xno);
		  p = buff;
		}
	      if (++c2 == 6)
		{
		  bprintf ("\n");
		  c2 = 1;
		}
	      bprintf ("%-14s\t", p);
	    }
	}
    }
  bprintf ("\n");
}

Boolean dump_pflags (void)
{ static char *t[] = {"Pflags", "Mask", TABLE_END};
  int k, k2;
  
  if (plev (mynum) < LVL_ARCHWIZARD)
    return False;
  if (brkword () == -1)
    return False;
  if ((k = tlookup (wordbuf, t)) < 0)
    return False;
  if (brkword () == -1)
    return False;
  if ((k2 = tlookup (wordbuf, WizLevels)) < LEV_APPRENTICE)
    return False;
  bprintf ("%s for %s:\n", t[k], WizLevels[k2]);
  if (k == 0)
    {
      show_bits ((int *) &the_world->w_pflags[k2 - 1],
		 sizeof (PFLAGS) / sizeof (int), Pflags);
    }
  else
    {
      show_bits ((int *) &the_world->w_mask[k2 - 1],
		 sizeof (PFLAGS) / sizeof (int), Pflags);
    }
  return True;
}

void xshow_lflags (int loc)
{ char k[80];
  LFLAGS p;
  
  p = xlflags (loc);
  bprintf ("Room: %s\nLflags:\n", buildname (k, loc));
  
  
  if (!ltstflg (loc, LFL_REALTIME))
    bprintf ("Light: %s           Temp: %s\n",
             L_Light[check_light(loc)],
             L_Temp[check_temp(loc)]);
  else
    bprintf ("Light: %s           Temp: %s\n",
	     real_light_state (loc),
	     real_temp_state (loc));

  /* Small hack to remove those ugly <spare> flags */
  show_bits ((int *) &p, sizeof (LFLAGS) / sizeof (int), Lflags);
}

A_COMMAND(pflagscom)
{ int a, b, c, l;
  char *n;
  Boolean f;
  PFLAGS *p;
  PERSONA d;
  
  f = False;
  if (brkword () == -1)
    {
      a = mynum;
      p = &(pflags (a));
      n = pname (a);
      l = plev (a);
    }
  else if ((a = fpbn (wordbuf)) != -1)
    {
      if (a != mynum && !ptstflg (mynum, PFL_PFLAGS) && a < max_players)
	{
	  bprintf ("You can only change/see your own P-flags.\n");
	  return;
	}
      p = &(pflags (a));
      n = pname (a);
      l = plev (a);
    }
  else if (!ptstflg (mynum, PFL_UAF))
    {
      bprintf ("Who's that?\n");
      return;
    }
  else if (!ptstflg (mynum, PFL_PFLAGS))
    {
      bprintf ("You can only change/see your own P-flags.\n");
      return;
    }
  else if (!getuaf (wordbuf, &d))
    {
      bprintf ("No such persona in system.\n");
      return;
    }
  else
    {
      f = True;
      p = &(d.p_pflags);
      n = d.p_name;
      l = d.p_level;
    }
  if (l >= LVL_MAX)
    {
      bprintf("No such persona in system.\n");
      return;
    }
  if ((a != mynum && wlevel (plev (mynum)) <= wlevel (l) && plev (mynum) < LVL_GOD)
      || (a >= max_players && plev (mynum) < LVL_APPREN))
    {
      bprintf ("That is beyond your powers.\n");
      return;
    }
  
  if (brkword () == -1)
    {
      bprintf ("Player: %s\n", n);
      bprintf ("Privileges:\n");
      show_bits ((int *) p, sizeof (PFLAGS) / sizeof (int), Pflags);
      return;
    }
  else if ((b = tlookup (wordbuf, Pflags)) == -1
	   || (!ptstmsk (mynum, b) && !OPERATOR (pname (mynum))))
    {
      bprintf ("%s: No such P-Flag.\n", wordbuf);
      return;
    }
  else if (brkword () == -1)
    {
      c = tst_doublebit (p,b) ? 1 : 0;
      bprintf ("Value of %s is %s\n", Pflags[b], TF[c]);
      return;
    }
  else if (a != mynum && !ptstflg (mynum, PFL_PFLAGS))
    {
      bprintf ("You can only change your own P-flags.\n");
      return;
    }
  else if ((c = tlookup (wordbuf, TF)) == -1)
    {
      bprintf ("Value must be True or False.\n");
      return;
    }
  
  if (!EQ (n, pname (mynum)))
    {
      mudlog ("&+wPFLAG&*: %s by %s, %s := %s",
	      n, pname (mynum), Pflags[b], TF[c]);
    }
  if (b == PFL_MAYPUNT && plev(mynum) < LVL_DEMI)
    bprintf("Sorry you cannot set this one yourself.\n");
  else 
  if (c == 0)
    {
      clr_doublebit (p, b);
    }
  else
    {
      set_doublebit (p, b);
    }
  if (f)
    {
      putuaf (&d);
    }
  bprintf("Ok\n");
}

A_COMMAND(maskcom)
{ int a, b, c;
  char *n;
  Boolean f;
  PFLAGS *p;
  PERSONA d;
  
  f = False;
  if (brkword () == -1 || !ptstflg (mynum, PFL_MASK))
    {
      a = mynum;
      p = &(pmask (a));
      n = pname (a);
    }
  else if ((a = fpbn (wordbuf)) != -1)
    {
      p = &(pmask (a));
      n = pname (a);
    }
  else if (!ptstflg (mynum, PFL_UAF))
    {
      bprintf ("Who's that?\n");
      return;
    }
  else if (!getuaf (wordbuf, &d))
    {
      bprintf ("No such persona in system.\n");
      return;
    }
  else
    {
      f = True;
      p = &(d.p_mask);
      n = d.p_name;
    }
  
  if (brkword () == -1)
    {
      bprintf ("Player: %s\nMask:\n", n);
      show_bits ((int *) p, sizeof (PFLAGS) / sizeof (int), Pflags);
      return;
    }
  else if ((b = tlookup (wordbuf, Pflags)) == -1
	   || (!ptstmsk (mynum, b) && !ptstflg (mynum, PFL_MASK)))
    {
      bprintf ("%s: No such Mask-bit.\n", wordbuf);
      return;
    }
  else if (!ptstflg (mynum, PFL_MASK) || brkword () == -1)
    {
      c = tst_doublebit (p, b) ? 1 : 0;
      bprintf ("Value of %s is %s\n", Pflags[b], TF[c]);
      return;
    }
  else if ((c = tlookup (wordbuf, TF)) == -1)
    {
      bprintf ("Value must be True or False.\n");
      return;
    }
  
  mudlog ("MASK: %s by %s, %s := %s",
	  n, pname (mynum), Pflags[b], TF[c]);
  
  if (c == 0)
    {
      clr_doublebit (p, b);
    }
  else
    {
      set_doublebit (p, b);
    }
  if (f)
    {
      putuaf (&d);
    }
}

A_COMMAND(mflagscom)
{ int a, b, c;
  
  if (brkword () == -1)
    {
      bprintf ("Whose MFlags?\n");
      return;
    }
  
  if ((a = fpbn (wordbuf)) < max_players)
    {
      bprintf ("No mobile with this name!\n");
      return;
    }
  
  if (brkword () == -1 || (b = tlookup (wordbuf, Mflags)) == -1)
    {
      bprintf ("Mobile: %s\n", pname (a));
      bprintf ("Mflags:\n");
      show_bits ((int *) (&mflags (a)), sizeof (MFLAGS) / sizeof (int), Mflags);
      return;
    }
  if (brkword () == -1)
    {
      c = mtstflg (a, b) ? 1 : 0;
      bprintf ("Value of %s is %s\n", Mflags[b], TF[c]);
      return;
    }
  if (!ptstflg (mynum, PFL_MFLAGS))
    {
      bprintf ("You are not authorised to do this...\n");
      return;
    }
  if ((c = tlookup (wordbuf, TF)) == -1)
    {
      bprintf ("\001A\033[31m\003Set flag to True or False.\001A\033[0m\003\n");
      return;
    }
  
  /*mudlog("MFLAG: %s by %s, %s := %s",
   * pname(a), pname(mynum), Mflags[b], TF[c]); */
  
  if (((b == LFL_WIZONLY) && (plev(mynum) < LVL_APPREN)) ||
      ((b == LFL_AWIZONLY) && (plev(mynum) < LVL_ARCHWIZARD)) ||
      ((b == LFL_DGODONLY) && (plev(mynum) < LVL_DEMI)) ||
      ((b == LFL_GODONLY) && (plev(mynum) < LVL_GOD)))
    {
      bprintf("Sorry, you are not high enough level to alter that lflag.\n");
      return;
    }
  if (c == 0)
    {
      mclrflg (a, b);
    }
  else
    {
      msetflg (a, b);
    }
}

A_COMMAND(lflagscom)
{ int a, b, c, d = 0;
  int mlev=0;  /* minimum level to change the room */
  char k[80];
  
  if ((a = getroomnum ()) == 0)
    a = ploc (mynum);
  
  if (brkword () == -1)
    {
      xshow_lflags (a);
      return;
    }

  if (ltstflg(a,LFL_GODONLY))
     mlev = LVL_GOD;
  else if (ltstflg(a,LFL_DGODONLY))
     mlev = LVL_DEMI;
  else if (ltstflg(a,LFL_AWIZONLY))
     mlev = LVL_ARCHWIZARD;

  buildname (k, a);
  if ((b = tlookup (wordbuf, Lflags)) == -1)
    {
      if ((b = tlookup (wordbuf, L_Light)) > -0)
	d = 1;
      else if ((b = tlookup (wordbuf, L_Temp)) >= 0)
	d = 2;
      else
	{
	  bprintf ("%s: No such Location-Flag.\n", wordbuf);
	  return;
	}
    }
  if ((b == LFL_JAIL) && (plev(mynum) < LVL_DEMI) )
  {  bprintf("Hmm.. doesn't seem to have changed, sorry.\n");
     return;
  }
  if (brkword () == -1)
    {
      if (d == 1)
	{ 
	  bprintf ("Value of Light in %s is %s\n", k,
                   L_Light[check_light(a)]);
          
	}
      else if (d == 2)
	{ 
	  bprintf ("Value of Temp in %s is %s\n", k,
                   L_Temp[check_temp(a)]);
	}
      else
	{
	  c = ltstflg (a, b);
	  c = (c != 0);
	  bprintf ("Value of %s in %s is %s\n", Lflags[b], k, TF[c]);
	}
      return;
    }
  if (!ptstflg (mynum, PFL_ROOM) || plev(mynum) < mlev)
    {
      bprintf ("You are not authorised to do this.\n");
      return;
    }
  if ((c = tlookup (wordbuf, TF)) == -1)
    {
      bprintf ("\001A\033[31m\003Set flag to True or False.\001A\033[0m\003\n");
      return;
    }
  /*mudlog("LFLAG: %s in %s, %s := %s", pname(mynum), k, Lflags[b], TF[c] ); */
  if (c)
    lsetflg (a, b);
  else
    lclrflg (a, b);
}

void set_xpflags (int y, PFLAGS * p, PFLAGS * m)
{  
  if (y >= LVL_MASTER)
    {
      *p = the_world->w_pflags[LEV_MASTER-1]; /* arrays start counting at 0 */
      *m = the_world->w_mask[LEV_MASTER-1];
    }
  else if (y >= LVL_GOD)
    {
      *p = the_world->w_pflags[LEV_GOD-1];
      *m = the_world->w_mask[LEV_GOD-1];
    }
  else if (y >= LVL_HIGHDEMI)
    {
      *p = the_world->w_pflags[LEV_HIGHDEMI-1];
      *m = the_world->w_mask[LEV_HIGHDEMI-1];
    }
  else if (y >= LVL_DEMI)
    {
      *p = the_world->w_pflags[LEV_DEMI-1];
      *m = the_world->w_mask[LEV_DEMI-1];
    }
  else if (y >= LVL_ADVISOR)
    { *p = the_world->w_pflags[LEV_ADVISOR-1];
      *m = the_world->w_mask[LEV_ADVISOR-1];
    }
  else if (y >= LVL_HIGHARCH)
    {
      *p = the_world->w_pflags[LEV_HIGHARCH-1];
      *m = the_world->w_mask[LEV_HIGHARCH-1];
    }
  else if (y >= LVL_ARCHWIZARD)
    {
      *p = the_world->w_pflags[LEV_ARCHWIZARD-1];
      *m = the_world->w_mask[LEV_ARCHWIZARD-1];
    }
  else if (y >= LVL_SENIOR)
    {
      *p = the_world->w_pflags[LEV_SENIOR-1];
      *m = the_world->w_mask[LEV_SENIOR-1];
    }
  else if (y >= LVL_WIZARD)
    {
      *p = the_world->w_pflags[LEV_WIZARD-1];
      *m = the_world->w_mask[LEV_WIZARD-1];
    }
  else if (y > LVL_APPREN)
    {
      *p = the_world->w_pflags[LEV_EMERITUS-1];
      *m = the_world->w_mask[LEV_EMERITUS-1];
    }
  else if (y == LVL_APPREN)
    {
      *p = the_world->w_pflags[LEV_APPRENTICE-1];
      *m = the_world->w_mask[LEV_APPRENTICE-1];
    }
  else
    {
      p->b3 = p->b2 = p->b1 = 0;
      m->b3 = m->b2 = m->b1 = 0;

      set_doublebit(m,PFL_QUICKWRITER);

      if (y >= LVL_FOUR)
      {
	  set_doublebit (p, PFL_EMOTE);
	  set_doublebit (p, PFL_TITLES);
	  set_doublebit (m, PFL_EMOTE);
	  set_doublebit (m, PFL_TITLES);
          set_doublebit (m, PFL_CANTBECOME);
      }
      if (y >= LVL_TWELVE)
      {   set_doublebit(p, PFL_CANTRANCE);
          set_doublebit(m, PFL_CANTRANCE);
      }
      if (y >= LVL_FIFTEEN)
	{
	  set_doublebit (p, PFL_EMOTE);
	  set_doublebit (p, PFL_TITLES);
	  set_doublebit (p, PFL_CANTRANCE);
	  set_doublebit (m, PFL_EMOTE);
	  set_doublebit (m, PFL_TITLES);
	  set_doublebit (m, PFL_CANTRANCE);
	}
    }
}




A_COMMAND(pflagresetcom)
{  int lev;

   if (!ptstflg(mynum,PFL_PFLAGS))
   {  erreval();
   }
   else
   {   if (pl1 < 0)
       {   bprintf("Reset pflags on who?\n");
       }
       else if (pl1 < max_players)
       {   lev = plev(pl1);
           if (lev > plev(mynum) && plev(mynum) < LVL_GOD)
           {   bprintf("You can't reset pflags on a higher level.\n");
               return;
           }
           else
           {   
              set_xpflags(lev,&pflags(pl1),&pmask(pl1));
           }
           bprintf("Ok.\n");
           mudlog("&+wPFLAGS&*: Reset on %s by %s.",pname(pl1),pname(mynum));
       }
   }
}