#include "kernel.h"
#include "levels.h"
#include "sendsys.h"
#include "pflags.h"
#include "sflags.h"
#include "frob.h"
#include "exec.h"
#include "uaf.h"
#include "mobile.h"

#define PFLAGS_FROB ((1<<PFL_FROB)|(1<<PFL_CH_SCORE)|(1<<PFL_CH_LEVEL))


#define cant_fr(x,l,w,a,d,g) (x<a && l>=w || x<d && l>=a || x<g && l>=d)
#define cant_frob(lev) \
cant_fr(plev(mynum),lev,LVL_WIZARD,LVL_ARCHWIZARD,LVL_DEMI,LVL_GOD)

#define cant_fro(lev) (lev < LVL_MIN || lev >= LVL_MAX || cant_frob(lev))

struct _f {
  int state;
  int oldwork;
  int oldlev;
  int level;
  int strength;
  int score;
  char *oldprompt;
  char name[PNAME_LEN];
};




static void log(char *n, int lev, int sco, int str)
{
  mudlog("FROB: %s by %s: Lev = %d, Sco = %d, Str = %d",
	 n, pname(mynum), lev, sco, str);
}

void frobcom(char *line)
{
  PERSONA p;
  struct _f *f;
  int x;

  int sco, lev, str;
  Boolean gsco, glev, gstr;
  char *s;
  int i[6];

  if (line == NULL) { /* First (initial) time */
    if (!tstbits(pflags(mynum).l,PFLAGS_FROB)) {
      erreval();
      return;
    }
    if (brkword() == -1
	|| ((x = fpbn(wordbuf)) == -1 && !ptstflg(mynum,PFL_UAF))) {

      bprintf("Frob who?\n");
      return;
    }
    if (x == -1) {
      if (!getuaf(wordbuf, &p)) {
	bprintf("No such persona in system.\n");
	return;
      }
      if (cant_frob(p.p_level)) {
	bprintf("You can't frob %s!\n", wordbuf);
	return;
      }
    } else if (x >= max_players) {
      bprintf("You can't frob mobiles!\n");
      return;
    } else if (cant_frob(plev(x))) {
      bprintf("You can't frob %s!\n", wordbuf);
      return;
    } else {
      p.p_level = plev(x);
      p.p_strength = pstr(x);
      p.p_score = pscore(x);
      strcpy(p.p_name, pname(x)); 
    }
    f = NEW(struct _f,1);
    strcpy(f->name, p.p_name);
    f->state = 0;
    f->level = p.p_level;
    f->oldlev = p.p_level;
    f->strength = p.p_strength;
    f->score = p.p_score;
    f->oldprompt = COPY(cur_player->cprompt);  
    strcpy(cur_player->cprompt,"New Level: ");
    f->oldwork = cur_player->work;
    cur_player->work = (int)f;
    bprintf( "Level is: %d\n", f->level);
    push_input_handler(frobcom);
  } else {
    while (*line == ' ' || *line == '\t') ++line;
    f = (struct _f *)cur_player->work;
    switch(f->state) {
    case 0:
      if (*line == '\0') {
	x = f->level;
      } else {
	x = atoi(line);
      }
      if (x < LVL_NOVICE || x > LVL_MAX) {
	bprintf("Level must be between %d and %d\n", LVL_NOVICE, LVL_MAX);
	f->state = 20;
      } else if (cant_fro(x)) {
	bprintf("You can't do that.\n");
	f->state = 20;
      } else {
	f->level = x;
	f->state = 1;
	bprintf("Score is: %d\n", f->score);
	strcpy(cur_player->cprompt,"New Score: ");
      }
      break;
    case 1:
      if (*line == '\0') {
	x = f->score;
      } else {
	x = atoi(line);
      }
      f->score = x;
      f->state = 2;
      bprintf("Strength is: %d\n", f->strength);
      strcpy(cur_player->cprompt,"New Strength: ");
      break;
    case 2:
      if (*line == '\0') {
	x = f->strength;
      } else {
	x = atoi(line);
      }
      if ( x <= 0) {
	bprintf("Strength must be positive.\n");
	f->state = 20;
      } else {
	f->strength = x;
	if ( (x = fpbn(f->name)) == -1) {
	  if (!ptstflg(mynum,PFL_UAF)) {
	    bprintf( "%s isn't here.\n", f->name);
	    f->state = 20;
	  } else if (!getuaf(f->name, &p)) {
	    bprintf("No player named %s.\n", f->name);
	    f->state = 20;
	  }
	} else {
	  p.p_level = plev(x);
	  p.p_strength = pstr(x);
	  p.p_score = pscore(x);
	}
	if (f->state == 2) {
	  log(f->name, f->level, f->score, f->strength);
	  if (x >= 0) {
	    setpstr(x,f->strength);
	    setpscore(x,f->score);
	    setplev(x,f->level);
	    if (wlevel(f->level) != wlevel(f->oldlev)) {
	      set_xpflags(f->level, &pflags(x), &pmask(x));
	    }

	    if (f->level <= LVL_WIZARD || f->oldlev <= LVL_WIZARD) {
	      setptitle(x, std_title(f->level, psex(x)));
	    }

	  } else {
	    p.p_level = f->level;
	    p.p_strength = f->strength;
	    p.p_score = f->score;
	    if (wlevel(f->level) != wlevel(f->oldlev)) {
	      set_xpflags(f->level, &p.p_pflags, &p.p_mask);
	    }

	    if (f->level <= LVL_WIZARD || f->oldlev <= LVL_WIZARD) {
	      strcpy(p.p_title, 
		     std_title(f->level, xtstbit(p.p_sflags, SFL_FEMALE)));
	    }

	    putuaf(&p);
	  }
	  update_wizlist(f->name, wlevel(f->level));
	  bprintf("Ok.\n");
	  f->state = 20;
	}
      }
      break;
    }
    if (f->state == 20) {
      strcpy(cur_player->cprompt,f->oldprompt);
      free(f->oldprompt);
      cur_player->work = f->oldwork;
      free(f);
      pop_input_handler();
    }
  }
  bprintf("%s", cur_player->cprompt);
}