cheat_screen.cc

Go to the documentation of this file.

/*
 *  Copyright (C) 2000-2001  The Exult Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#include "SDL_events.h"
#include "files/U7file.h" 
#include "gamewin.h"
#include "game.h"
#include "cheat_screen.h"
#include "font.h"
#ifndef ALPHA_LINUX_CXX
#  include "cstring"
#endif
#include "actors.h"
#include "cheat.h"
#include "exult.h"
#include "imagewin.h"
#include "vgafile.h"
#include "gameclk.h"
#include "schedule.h"
#include "ucmachine.h"
#include "Configuration.h"
#include "SDL.h"
#include "party.h"

const char *CheatScreen::schedules[33] = {
  "Combat",
  "Hor. Pace",
  "Ver. Pace",
  "Talk",
  "Dance",
  "Eat",
  "Farm",
  "Tend Shop",
  "Miner",
  "Hound",
  "Stand",
  "Loiter",
  "Wander",
  "Blacksmith",
  "Sleep",
  "Wait",
  "Major Sit",
  "Graze",
  "Bake",
  "Sew",
  "Shy",
  "Lab",
  "Thief",
  "Waiter",
  "Special",
  "Kid Games",
  "Eat at Inn",
  "Duel",
  "Preach",
  "Patrol",
  "Desk Work",
  "Follow Avt",
  "Move2Sched"
};

const char *CheatScreen::flag_names[64] = {
  "invisible",    // 0x00
  "asleep",   // 0x01
  "charmed",    // 0x02
  "cursed",   // 0x03
  0,      // 0x04
  0,      // 0x05
  "in_party",   // 0x06
  "paralyzed",    // 0x07

  "poisoned",   // 0x08
  "protection",   // 0x09
  "on_moving_barge",  // 0x0A
  "okay_to_take",   // 0x0B
  "tremor",   // 0x0C
  "cant_die",   // 0x0D
  "dancing",    // 0x0E
  "dont_move",    // 0x0F

  0,      // 0x10
  "si_on_moving_barge", // 0x11
  "is_temporary",   // 0x12
  0,      // 0x13
  0,      // 0x14
  "okay_to_land",   // 0x15
  0,      // 0x16
  0,      // 0x17

  0,      // 0x18
  "confused",   // 0x19
  "in_motion",    // 0x1A
  0,      // 0x1B
  "met",      // 0x1C
  "si_tournament",  // 0x1D
  "misc",     // 0x1E
  0,      // 0x1F

  0,      // 0x20
  "tattooed",   // 0x21
  "read",     // 0x22
  "petra",    // 0x23
  0,      // 0x24
  0,      // 0x25
  0,      // 0x26
  0,      // 0x27

  0,      // 0x28
  0,      // 0x29
  0,      // 0x2A
  0,      // 0x2B
  0,      // 0x2C
  0,      // 0x2D
  0,      // 0x2E
  0,      // 0x2F

  0,      // 0x30
  0,      // 0x31
  0,      // 0x32
  0,      // 0x33
  0,      // 0x34
  0,      // 0x35
  0,      // 0x36
  0,      // 0x37

  0,      // 0x38
  0,      // 0x39
  0,      // 0x3A
  0,      // 0x3B
  0,      // 0x3C
  0,      // 0x3D
  0,      // 0x3E
  0,      // 0x3F
};
  
CheatScreen::CheatScreen() : grabbed(NULL)
  {
  }

CheatScreen::~CheatScreen()
  {
  }

  
void CheatScreen::show_screen()
{
    
  gwin = Game_window::get_instance();
  ibuf = gwin->get_win()->get_ib8();
  font = fontManager.get_font("MENU_FONT");
  clock = gwin->get_clock();
  maxx = gwin->get_width();
  maxy = gwin->get_height();
  centerx = maxx/2;
  centery = maxy/2;

  // Pause the game
  gwin->get_tqueue()->pause(SDL_GetTicks());

  str_int_pair pal_tuple = game->get_resource("palettes/0");
  pal.load(pal_tuple.str,pal_tuple.num);

  // Start the loop
  NormalLoop();

  // Resume the game clock
  gwin->get_tqueue()->resume(SDL_GetTicks());

  // Reset the palette
  clock->set_palette();
}


//
// DISPLAYS
//

//
// Shared
//

void CheatScreen::SharedPrompt (char *input, const Cheat_Prompt &mode)
{
  char buf[512];

  font->paint_text_fixedwidth(ibuf, "Select->", 0, maxy-18, 8);

  if (input && std::strlen(input))
  {
    font->paint_text_fixedwidth(ibuf, input, 64, maxy-18, 8);
    font->paint_text_fixedwidth(ibuf, "_", 64+std::strlen(input)*8, maxy-18, 8);
  }
  else
    font->paint_text_fixedwidth(ibuf, "_", 64, maxy-18, 8);

  // ...and Prompt Message
  switch (mode)
  {
    default:
    case CP_Command:
    font->paint_text_fixedwidth(ibuf, "Enter Command.", 0, maxy-9, 8);
    break;

    case CP_HitKey:
    font->paint_text_fixedwidth(ibuf, "Hit a key.", 0, maxy-9, 8);
    break;

    case CP_NotAvail:
    font->paint_text_fixedwidth(ibuf, "Not yet available. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_InvalidNPC:
    font->paint_text_fixedwidth(ibuf, "Invalid NPC. Hit a key", 0, maxy-9, 8);
    break;

    case CP_InvalidCom:
    font->paint_text_fixedwidth(ibuf, "Invalid Command. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_Canceled:
    font->paint_text_fixedwidth(ibuf, "Canceled. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_ClockSet:
    font->paint_text_fixedwidth(ibuf, "Clock Set. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_InvalidTime:
    font->paint_text_fixedwidth(ibuf, "Invalid Time. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_InvalidShape:
    font->paint_text_fixedwidth(ibuf, "Invalid Shape. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_InvalidValue:
    font->paint_text_fixedwidth(ibuf, "Invalid Value. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_Created:
    font->paint_text_fixedwidth(ibuf, "Item Created. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_ShapeSet:
    font->paint_text_fixedwidth(ibuf, "Shape Set. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_ValueSet:
    font->paint_text_fixedwidth(ibuf, "Clock Set. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_NameSet:
    font->paint_text_fixedwidth(ibuf, "Name Changed. Hit a key.", 0, maxy-9, 8);
    break;

    case CP_WrongShapeFile:
    font->paint_text_fixedwidth(ibuf, "Wrong shape file. Must be SHAPES.VGA. Hit a key.", 0, maxy-9, 8);
    break;


    case CP_ChooseNPC:
    font->paint_text_fixedwidth(ibuf, "Which NPC? (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_EnterValue:
    font->paint_text_fixedwidth(ibuf, "Enter Value. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_Minute:
    font->paint_text_fixedwidth(ibuf, "Enter Minute. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_Hour:
    font->paint_text_fixedwidth(ibuf, "Enter Hour. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_Day:
    font->paint_text_fixedwidth(ibuf, "Enter Day. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_Shape:
    font->paint_text_fixedwidth(ibuf, "Enter Shape (B=Browse or -1=Cancel)", 0, maxy-9, 8);
    break;

    case CP_Activity:
    font->paint_text_fixedwidth(ibuf, "Enter Activity 0-31. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_XCoord:
    snprintf (buf, 512, "Enter X Coord. Max %i (-1 to cancel.)", c_num_tiles);
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-9, 8);
    break;

    case CP_YCoord:
    snprintf (buf, 512, "Enter Y Coord. Max %i (-1 to cancel.)", c_num_tiles);
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-9, 8);
    break;

    case CP_Lift:
    font->paint_text_fixedwidth(ibuf, "Enter Lift. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_GFlagNum:
    font->paint_text_fixedwidth(ibuf, "Enter Global Flag 0-1023. (-1 to cancel.)", 0, maxy-9, 8);
    break;

    case CP_NFlagNum:
    font->paint_text_fixedwidth(ibuf, "Enter NPC Flag 0-63. (-1 to cancel.)", 0, maxy-9, 8);
    break;


    case CP_Name:
    font->paint_text_fixedwidth(ibuf, "Enter a new Name...", 0, maxy-9, 8);
    break;

  }
}

bool CheatScreen::SharedInput (char *input, int len, int &command, Cheat_Prompt &mode, bool &activate)
{
  SDL_Event event;

    do {
    SDL_WaitEvent(&event);
  } while (event.type!=SDL_KEYDOWN);

  bool shift = false;
  if (event.key.keysym.mod & KMOD_SHIFT)
    shift = true;
  if ((event.key.keysym.sym == SDLK_s) && (event.key.keysym.mod & KMOD_ALT) && (event.key.keysym.mod & KMOD_CTRL))
  {
    make_screenshot(true);
    return false;
  }


  if (mode >= CP_Name)    // Want Text input (len chars)
  {
    if (event.key.keysym.sym == SDLK_RETURN)
    {
      activate = true;
    }
    else if((event.key.keysym.sym >= '0' && event.key.keysym.sym <= 'z') || event.key.keysym.sym == ' ')
    {
      int curlen = std::strlen(input);
      char chr = event.key.keysym.sym;
      if (event.key.keysym.mod & KMOD_SHIFT) {
#if (defined(BEOS) || defined(OPENBSD) || defined(CYGWIN) || defined(__MORPHOS__))
        if ((chr >= 'a') && (chr <= 'z')) chr -= 32;
#else
        chr = std::toupper(chr);
#endif         
      }
      if(curlen<(len-1))
      {
        input[curlen] = chr;
        input[curlen+1] = 0;
      }
    }
    else if (event.key.keysym.sym == SDLK_BACKSPACE)
    {
      int curlen = std::strlen(input);
      if (curlen) input[curlen-1] = 0;
    }
  }
  else if (mode >= CP_ChooseNPC)  // Need to grab numerical input
  {
    // Browse shape
    if (mode == CP_Shape && !input[0] && event.key.keysym.sym == 'b')
    {
      cheat.shape_browser();
      input[0] = 'b';
      activate = true;
    }

    // Activate (if possible)
    if (event.key.keysym.sym == SDLK_RETURN)
    {
      activate = true;
    }
    else if (event.key.keysym.sym == '-' && !input[0])
    {
      input[0] = '-';
    }
    else if (event.key.keysym.sym >= '0' && event.key.keysym.sym <= '9')
    {
      int curlen = std::strlen(input);
      if(curlen<(len-1))
      {
        input[curlen] = event.key.keysym.sym;
        input[curlen+1] = 0;
      }
    }
    else if (event.key.keysym.sym == SDLK_BACKSPACE)
    {
      int curlen = std::strlen(input);
      if (curlen) input[curlen-1] = 0;
    }
  }
  else if (mode)      // Just want a key pressed
  {
    mode = CP_Command;
    for (int i = 0; i < len; i++) input[i] = 0;
    command = 0;
  }
  else        // Need the key pressed
  {
    command = event.key.keysym.sym;
    return true;
  }
  return false;
}


//
// Normal
//

void CheatScreen::NormalLoop ()
{
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[5] = { 0, 0, 0, 0, 0 };
  int command;
  bool activate = false;
    
  while (looping)
  {
    gwin->clear_screen();

    // First the display
    NormalDisplay();

    // Now the Menu Column
    NormalMenu();

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      NormalActivate(input, command, mode);
      activate = false;
      continue;     
    }

    if (SharedInput (input, 5, command, mode, activate))
      looping = NormalCheck(input, command, mode, activate);
  }
}

void CheatScreen::NormalDisplay ()
{
  char  buf[512];
  Tile_coord t = gwin->get_main_actor()->get_tile();

  font->paint_text_fixedwidth(ibuf, "Colourless' Advanced Option Cheat Screen", 0, 0, 8);

  if (Game::get_game_type() == BLACK_GATE)
    snprintf (buf, 512, "Running \"Ultima 7: The Black Gate\"");
  else if (Game::get_game_type() == SERPENT_ISLE)
    snprintf (buf, 512, "Running \"Ultima 7: Part 2: Serpent Isle\"");
  else
    snprintf (buf, 512, "Running Unknown Game Type %i", Game::get_game_type());
  
  font->paint_text_fixedwidth(ibuf, buf, 0, 18, 8);

  snprintf (buf, 512, "Exult Version %s", VERSION);
  font->paint_text_fixedwidth(ibuf, buf, 0, 27, 8);



  snprintf (buf, 512, "Current time: %i:%02i %s  Day: %i",
      ((clock->get_hour()+11)%12)+1,
      clock->get_minute(),
      clock->get_hour()<12 ? "AM":"PM",
      clock->get_day());
  font->paint_text_fixedwidth(ibuf, buf, 0, 45, 8);

  snprintf (buf, 512, "Coords in hex (%04x, %04x, %02x)", 
              t.tx, t.ty, t.tz);
  font->paint_text_fixedwidth(ibuf, buf, 0, 63, 8);

  snprintf (buf, 512, "Coords in dec (%04i, %04i, %02i)",
              t.tx, t.ty, t.tz);
  font->paint_text_fixedwidth(ibuf, buf, 0, 72, 8);

}

void CheatScreen::NormalMenu ()
{
  char  buf[512];

  // Left Column

  // Use
  Shape_manager *sman = Shape_manager::get_instance();
  if (Game::get_game_type() == SERPENT_ISLE || (sman->can_use_paperdolls() && sman->get_bg_paperdolls()))
    snprintf (buf, 512, "[P]aperdolls..: Yes");
  else
    snprintf (buf, 512, "[P]aperdolls..:  No");   
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-99, 8);

  // GodMode
  snprintf (buf, 512, "[G]od Mode....: %3s", cheat.in_god_mode()?"On":"Off");
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-90, 8);

  // Archwizzard Mode
  snprintf (buf, 512, "[W]izard Mode.: %3s", cheat.in_wizard_mode()?"On":"Off");
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-81, 8);

  // Infravision
  snprintf (buf, 512, "[I]nfravision.: %3s", cheat.in_infravision()?"On":"Off");
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-72, 8);

  // Hackmover
  snprintf (buf, 512, "[H]ack Mover..: %3s", cheat.in_hack_mover()?"Yes":"No");
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-63, 8);

  // Eggs
  snprintf (buf, 512, "[E]ggs Visible: %3s", gwin->paint_eggs?"Yes":"No");
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-54, 8);

  // Set Time
  font->paint_text_fixedwidth(ibuf, "[S]et Time", 0, maxy-45, 8);

  // Time Rate
  snprintf (buf, 512, "[+-] Time Rate: %3i", clock->get_time_rate());
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-36, 8);


  // Right Column

  // NPC Tool
  font->paint_text_fixedwidth(ibuf, "[N]PC Tool", 160, maxy-99, 8);

  // Global Flag Modify
  font->paint_text_fixedwidth(ibuf, "[F]lag Modifier", 160, maxy-90, 8);

#if 0
  // Teleport
  font->paint_text_fixedwidth(ibuf, "[T]eleport", 160, maxy-81, 8);
#endif

#if 0
  // Create Item
  font->paint_text_fixedwidth(ibuf, "[C]reate Item", 160, maxy-72, 8);
#endif

  // eXit
  font->paint_text_fixedwidth(ibuf, "[X]it", 160, maxy-36, 8);

}

void CheatScreen::NormalActivate (char *input, int &command, Cheat_Prompt &mode)
{
  int npc = std::atoi(input);
  Shape_manager *sman = Shape_manager::get_instance();

  mode = CP_Command;

  switch (command)
  {
    // God Mode
    case 'g':
    cheat.toggle_god();
    break;

    // Wizard Mode
    case 'w':
    cheat.toggle_wizard();
    break;

    // Infravision
    case 'i':
    cheat.toggle_infravision();
    break;

    // Eggs
    case 'e':
    cheat.toggle_eggs();
    break;

    // Hack mover
    case 'h':
    cheat.toggle_hack_mover();
    break;

    // Set Time
    case 's':
    mode = TimeSetLoop();
    break;

    // - Time Rate
    case '-':
    if (clock->get_time_rate() > 0) 
      clock->set_time_rate (clock->get_time_rate()-1);
    break;

    // + Time Rate
    case '+':
    if (clock->get_time_rate() < 20) 
      clock->set_time_rate (clock->get_time_rate()+1);
    break;

#if 0
    // Teleport
    case 't':
    mode = CP_NotAvail;
    break;
#endif

    // NPC Tool
    case 'n':
    if (npc < -1) mode = CP_InvalidNPC;
    else if (npc == -1) mode = CP_Canceled;
    else if (!input[0]) NPCLoop(-1);
    else mode = NPCLoop(npc);
    break;

#if 0
    // Create
    case 'c':
    mode = CP_NotAvail;
    break;
#endif

    // Global Flag Editor
    case 'f':
    if (npc < -1) mode = CP_InvalidValue;
    else if (npc > 1023) mode = CP_InvalidValue;
    else if (npc == -1 || !input[0]) mode = CP_Canceled;
    else mode = GlobalFlagLoop(npc);
    break;

    // Paperdolls
    case 'p':
      if (Game::get_game_type() == BLACK_GATE 
        && sman->can_use_paperdolls()) {
        sman->set_bg_paperdolls (sman->get_bg_paperdolls()?false:true);
        config->set("config/gameplay/bg_paperdolls",
              sman->get_bg_paperdolls() ? "yes" : "no", true);
      }
    break;

    default:
    break;
  }

  input[0] = 0;
  input[1] = 0;
  input[2] = 0;
  input[3] = 0;
  command = 0;
}

// Checks the input
bool CheatScreen::NormalCheck (char *input, int &command, Cheat_Prompt &mode, bool &activate)
{
  switch(command)
  {
    // Simple commands
    case 't': // Teleport
    case 'g': // God Mode
    case 'w': // Wizard
    case 'i': // iNfravision
    case 's': // Set Time
    case 'e': // Eggs
    case 'h': // Hack Mover
    case 'c': // Create Item
    case 'p': // Paperdolls
    input[0] = command;
    activate = true;
    break;

    // - Time
    case SDLK_KP_MINUS:
    case '-':
    command = '-';
    input[0] = command;
    activate = true;
    break;

    // + Time
    case SDLK_KP_PLUS:
    case '=':
    command = '+';
    input[0] = command;
    activate = true;
    break;

    // NPC Tool
    case 'n':
    mode = CP_ChooseNPC;
    break;

    // Global Flag Editor
    case 'f':
    mode = CP_GFlagNum;
    break;

    // X and Escape leave
    case SDLK_ESCAPE:
    case 'x':
    input[0] = command;
    return false;

    default:
    mode = CP_InvalidCom;
    input[0] = command;
    command = 0;
    break;
  }

  return true;
}

//
// Activity Display
//

void CheatScreen::ActivityDisplay ()
{
  char  buf[512];
  int i;

  for (i = 0; i < 11; i++)
  {
    snprintf (buf, 512, "%2i %s", i, schedules[i]);
    font->paint_text_fixedwidth(ibuf, buf, 0, i*9, 8);

    snprintf (buf, 512, "%2i %s", i+11, schedules[i+11]);
    font->paint_text_fixedwidth(ibuf, buf, 112, i*9, 8);

    if (i != 10)
    {
      snprintf (buf, 512, "%2i %s", i+22, schedules[i+22]);
      font->paint_text_fixedwidth(ibuf, buf, 224, i*9, 8);
    }
  }

}


//
// TimeSet
//

CheatScreen::Cheat_Prompt CheatScreen::TimeSetLoop ()
{
  // This is for the prompt message
  Cheat_Prompt mode = CP_Day;

  // This is the command
  char input[5] = { 0, 0, 0, 0, 0 };
  int command;
  bool activate = false;
  
  int day, hour;

  while (1)
  {
    gwin->clear_screen();

    // First the display
    NormalDisplay();

    // Now the Menu Column
    NormalMenu();

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      int val = std::atoi(input);
      
      if (val == -1)
      {
        return CP_Canceled;
      }
      else if (val < -1)
      {
        return CP_InvalidTime;
      }
      else if (mode == CP_Day)
      {
        day = val;
        mode = CP_Hour;
      }
      else if (val > 59)
      {
        return CP_InvalidTime;
      }
      else if (mode == CP_Minute)
      {
        clock->set_day(day);
        clock->set_hour(hour);
        clock->set_minute(val);
        break;
      }
      else if (val > 23)
      {
        return CP_InvalidTime;
      }
      else if (mode == CP_Hour)
      {
        hour = val;
        mode = CP_Minute;
      }

      activate = false;
      input[0] = 0;
      input[1] = 0;
      input[2] = 0;
      input[3] = 0;
      command = 0;
      continue;     
    }

    SharedInput(input, 5, command, mode, activate);
  }

  return CP_ClockSet;
}


//
// Global Flags
//

CheatScreen::Cheat_Prompt CheatScreen::GlobalFlagLoop (int num)
{
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
  char  buf[512];
    
  for (i = 0; i < 17; i++) input[i] = 0;

  Usecode_machine *usecode = Game_window::get_instance()->get_usecode();

  while (looping)
  {
    gwin->clear_screen();


    NormalDisplay();


    // First the info
    snprintf (buf, 512, "Global Flag %i", num);
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-99, 8);

    snprintf (buf, 512, "Flag is %s", usecode->get_global_flag(num)?"SET":"UNSET");
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-90, 8);


    // Now the Menu Column
    if (!usecode->get_global_flag(num)) font->paint_text_fixedwidth(ibuf, "[S]et Flag", 160, maxy-99, 8);
    else font->paint_text_fixedwidth(ibuf, "[U]nset Flag", 160, maxy-99, 8);

    // Change Flag
    font->paint_text_fixedwidth(ibuf, "[*] Change Flag", 0, maxy-72, 8);
    if (num > 0 && num < 1023) font->paint_text_fixedwidth(ibuf, "[+-] Scroll Flags", 0, maxy-63, 8);
    else if (num == 0) font->paint_text_fixedwidth(ibuf, "[+] Scroll Flags", 0, maxy-63, 8);
    else font->paint_text_fixedwidth(ibuf, "[-] Scroll Flags", 0, maxy-63, 8);

    font->paint_text_fixedwidth(ibuf, "[X]it", 0, maxy-36, 8);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      if (command == '-')   // Decrement
      {
        num--;
        if (num < 0) num = 0;
      }
      else if (command == '+')  // Increment
      {
        num++;
        if (num > 1023) num = 1023;
      }
      else if (command == '*')  // Change Flag
      {
        i = std::atoi(input);
        if (i < -1 || i > 1023) mode = CP_InvalidValue;
        else if (i == -1) mode = CP_Canceled;
        else if (input[0]) num = i;
      }
      else if (command == 's')  // Set
      {
        usecode->set_global_flag(num, 1);
      }
      else if (command == 'u')  // Unset
      {
        usecode->set_global_flag(num, 0);
      }

      for (i = 0; i < 17; i++) input[i] = 0;
      mode = CP_Command;
      command = 0;
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
    {
      switch(command)
      {
        // Simple commands
        case 's': // Set Flag
        case 'u': // Unset flag
        input[0] = command;
        activate = true;
        break;

        // Decrement
        case SDLK_KP_MINUS:
        case '-':
        command = '-';
        input[0] = command;
        activate = true;
        break;

        // Increment
        case SDLK_KP_PLUS:
        case '=':
        command = '+';
        input[0] = command;
        activate = true;
        break;

        // * Change Flag
        case SDLK_KP_MULTIPLY:
        case '8':
        command = '*';
        input[0] = 0;
        mode = CP_GFlagNum;
        break;

        // X and Escape leave
        case SDLK_ESCAPE:
        case 'x':
        input[0] = command;
        looping = false;
        break;

        default:
        mode = CP_InvalidCom;
        input[0] = command;
        command = 0;
        break;
      }
    }
  }
  return CP_Command;
}

//
// NPCs
//

CheatScreen::Cheat_Prompt CheatScreen::NPCLoop (int num)
{
  Actor *actor;

  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
    
  for (i = 0; i < 17; i++) input[i] = 0;

  while (looping)
  {
    if (num == -1) actor = grabbed;
    else actor = gwin->get_npc (num);
    grabbed = actor;
    if (actor) num = actor->get_npc_num();

    gwin->clear_screen();

    // First the display
    NPCDisplay(actor, num);

    // Now the Menu Column
    NPCMenu(actor, num);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      NPCActivate(input, command, mode, actor, num);
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
      looping = NPCCheck(input, command, mode, activate, actor, num);
  }
  return CP_Command;
}

void CheatScreen::NPCDisplay (Actor *actor, int &num)
{
  char  buf[512];
  if (actor)
  {
    Tile_coord t = actor->get_tile();
  
    // Paint the actors shape
    Shape_frame *shape = actor->get_shape();
    if (shape) actor->paint_shape (shape->get_xright()+240, shape->get_yabove());

    // Now the info
    std::string namestr = actor->get_npc_name();
    snprintf (buf, 512, "NPC %i - %s", num, namestr.c_str());
    font->paint_text_fixedwidth(ibuf, buf, 0, 0, 8);

    snprintf (buf, 512, "Loc (%04i, %04i, %02i)", 
              t.tx, t.ty, t.tz);
    font->paint_text_fixedwidth(ibuf, buf, 0, 9, 8);

    snprintf (buf, 512, "Shape %04i:%02i  %s", actor->get_shapenum(), actor->get_framenum(), actor->get_flag(Obj_flags::met)?"Met":"Not Met");
    font->paint_text_fixedwidth(ibuf, buf, 0, 18, 8);

    snprintf (buf, 512, "Current Activity: %2i - %s", actor->get_schedule_type(), schedules[actor->get_schedule_type()]);
    font->paint_text_fixedwidth(ibuf, buf, 0, 36, 8);

    snprintf (buf, 512, "Experience: %i", actor->get_property(Actor::exp));
    font->paint_text_fixedwidth(ibuf, buf, 0, 45, 8);
    snprintf (buf, 512, "Level: %i", actor->get_level());
    font->paint_text_fixedwidth(ibuf, buf, 144, 45, 8);

    snprintf (buf, 512, "Training: %2i  Health: %2i", actor->get_property(Actor::training), actor->get_property(Actor::health));
    font->paint_text_fixedwidth(ibuf, buf, 0, 54, 8);

    if (num != -1)
    {
      int ucitemnum = 0x10000-num;
      if (!num) ucitemnum = 0xfe9c;
      snprintf (buf, 512, "Usecode item %4x function %x", ucitemnum, actor->get_usecode());
      font->paint_text_fixedwidth(ibuf, buf, 0, 63, 8);
    }
    else
    {
      snprintf (buf, 512, "Usecode function %x", actor->get_usecode());
      font->paint_text_fixedwidth(ibuf, buf, 0, 63, 8);
    }

    if (actor->get_polymorph() != -1)
    {
      snprintf (buf, 512, "Polymorphed from %04i", actor->get_polymorph());
      font->paint_text_fixedwidth(ibuf, buf, 0, 72, 8);
    }
  }
  else
  {
    snprintf (buf, 512, "NPC %i - Invalid NPC!", num);
    font->paint_text_fixedwidth(ibuf, buf, 0, 0, 8);
  }
}

void CheatScreen::NPCMenu (Actor *actor, int &num)
{
  // Left Column

#if 0
  // Attack Mode
  if (actor) font->paint_text_fixedwidth(ibuf, "[A]ttack Mode", 0, maxy-99, 8);
#endif

  // Business Activity
  if (actor) font->paint_text_fixedwidth(ibuf, "[B]usiness Activity", 0, maxy-99, 8);

  // Change Shape
  if (actor) font->paint_text_fixedwidth(ibuf, "[C]hange Shape", 0, maxy-90, 8);

  // XP
  if (actor) font->paint_text_fixedwidth(ibuf, "[E]xperience", 0, maxy-81, 8);

  // NPC Flags
  if (actor) font->paint_text_fixedwidth(ibuf, "[N]pc Flags", 0, maxy-72, 8);

  // Name
  if (actor) font->paint_text_fixedwidth(ibuf, "[\\]ame", 0, maxy-63, 8);

#if 0
  // Pop Weapon
  if (actor) font->paint_text_fixedwidth(ibuf, "[P]op Weapon", 0, maxy-45, 8);
#endif

  // eXit
  font->paint_text_fixedwidth(ibuf, "[X]it", 0, maxy-36, 8);


  // Right Column

  // Stats
  if (actor) font->paint_text_fixedwidth(ibuf, "[S]tats", 160, maxy-99, 8);

#if 0
  // Target
  if (actor) font->paint_text_fixedwidth(ibuf, "[T]arget", 160, maxy-90, 8);
#endif

  // Training Points
  if (actor) font->paint_text_fixedwidth(ibuf, "[~]raining Points", 160, maxy-90, 8);

  // Teleport
  if (actor) font->paint_text_fixedwidth(ibuf, "[']eleport", 160, maxy-81, 8);

  // Change NPC
  font->paint_text_fixedwidth(ibuf, "[*] Change NPC", 160, maxy-45, 8);

  // Change NPC
  font->paint_text_fixedwidth(ibuf, "[+-] Scroll NPCs", 160, maxy-36, 8);

}

void CheatScreen::NPCActivate (char *input, int &command, Cheat_Prompt &mode, Actor *actor, int &num)
{
  int i = std::atoi(input);
  int nshapes = 
    Shape_manager::get_instance()->get_shapes().get_num_shapes();

  mode = CP_Command;

  if (command == '-')
  {
    num--;
    if (num < 0) num = 0;
  }
  else if (command == '+')
  {
    num++;
  }
  else if (command == '*')  // Change NPC
  {
    if (i < -1) mode = CP_InvalidNPC;
    else if (i == -1) mode = CP_Canceled;
    else if (input[0]) num = i;
  }
  else if (actor) switch (command)
  {
#if 0
    case 'a': // Attack mode
    mode = CP_NotAvail;
    break;
#endif

    case 'b': // Business
    BusinessLoop(actor);
    break;

    case 'n': // Npc flags
    FlagLoop(actor);
    break;

#if 0
    case 'p': // pop weapon
    mode = CP_NotAvail;
    break;
#endif

    case 's': // stats
    StatLoop(actor);
    break;

#if 0
    case 't': // Target
    mode = CP_NotAvail;
    break;
#endif

    case '\'':  // Teleport
    Game_window::get_instance()->teleport_party(actor->get_tile());
    break;


    case 'e': // Experience
    if (i < 0) mode = CP_InvalidNPC;
    else actor->set_property (Actor::exp, i);
    break;

    case '`': // Training Points
    if (i < 0) mode = CP_InvalidNPC;
    else actor->set_property (Actor::training, i);
    break;

    case 'c': // Change shape
    if (input[0] == 'b')  // Browser
    {
      int n;
      if (!cheat.get_browser_shape(i, n))
      {
        mode = CP_WrongShapeFile;
        break;
      }
    }

    if (i == -1) mode = CP_Canceled;
    else if (i < 0) mode = CP_InvalidShape;
    else if (i >= nshapes) mode = CP_InvalidShape;
    else if (input[0] && (input[0] != '-' || input[1]))
    {
      actor->set_shape(i);
      mode = CP_ShapeSet;
    }
    break;

    case '\\':  // Name
    if (!std::strlen(input)) mode = CP_Canceled;
    else
    {
      actor->set_npc_name(input);
      mode = CP_NameSet;
    }
    break;

    default:
    break;
  }
  for (i = 0; i < 17; i++) input[i] = 0;
  command = 0;
}

// Checks the input
bool CheatScreen::NPCCheck (char *input, int &command, Cheat_Prompt &mode, bool &activate, Actor *actor, int &num)
{
  switch(command)
  {
    // Simple commands
    case 'a': // Attack mode
    case 'b': // BUsiness
    case 'n': // Npc flags
    case 'p': // pop weapon
    case 's': // stats
    case 't': // Target
    case '\'':  // Teleport
    input[0] = command;
    if (!actor) mode = CP_InvalidCom;
    else activate = true;
    break;

    // Value entries
    case 'e': // Experience
    case '`': // Training Points
    if (!actor) mode = CP_InvalidCom;
    else mode = CP_EnterValue;
    break;

    // Change shape
    case 'c':
    if (!actor) mode = CP_InvalidCom;
    else mode = CP_Shape;
    break;

    // Name
    case '\\':
    if (!actor) mode = CP_InvalidCom;
    else mode = CP_Name;
    break;

    // - NPC
    case SDLK_KP_MINUS:
    case '-':
    command = '-';
    input[0] = command;
    activate = true;
    break;

    // + NPC
    case SDLK_KP_PLUS:
    case '=':
    command = '+';
    input[0] = command;
    activate = true;
    break;

    // * Change NPC
    case SDLK_KP_MULTIPLY:
    case '8':
    command = '*';
    input[0] = 0;
    mode = CP_ChooseNPC;
    break;

    // X and Escape leave
    case SDLK_ESCAPE:
    case 'x':
    input[0] = command;
    return false;

    default:
    mode = CP_InvalidCom;
    input[0] = command;
    command = 0;
    break;
  }

  return true;
}

//
// NPC Flags
//

void CheatScreen::FlagLoop (Actor *actor)
{
  int num = actor->get_npc_num();
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
    
  for (i = 0; i < 17; i++) input[i] = 0;

  while (looping)
  {
    gwin->clear_screen();

    // First the display
    NPCDisplay(actor, num);

    // Now the Menu Column
    FlagMenu(actor);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      FlagActivate(input, command, mode, actor);
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
      looping = FlagCheck(input, command, mode, activate, actor);
  }
}

void CheatScreen::FlagMenu (Actor *actor)
{
  char  buf[512];

  // Left Column

  // Asleep
  snprintf (buf, 512, "[A] Asleep.%c", actor->get_flag(Obj_flags::asleep)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-108, 8);

  // Charmed
  snprintf (buf, 512, "[B] Charmd.%c", actor->get_flag(Obj_flags::charmed)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-99, 8);

  // Cursed
  snprintf (buf, 512, "[C] Cursed.%c", actor->get_flag(Obj_flags::cursed)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-90, 8);

  // Paralyzed
  snprintf (buf, 512, "[D] Prlyzd.%c", actor->get_flag(Obj_flags::paralyzed)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-81, 8);

  // Poisoned
  snprintf (buf, 512, "[E] Poisnd.%c", actor->get_flag(Obj_flags::poisoned)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-72, 8);

  // Protected
  snprintf (buf, 512, "[F] Prtctd.%c", actor->get_flag(Obj_flags::protection)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-63, 8);

  // Advanced Editor
  font->paint_text_fixedwidth(ibuf, "[*] Advanced", 0, maxy-45, 8);

  // Exit
  font->paint_text_fixedwidth(ibuf, "[X]it", 0, maxy-36, 8);


  // Center Column

  // Party
  snprintf (buf, 512, "[I] Party..%c", actor->get_flag(Obj_flags::in_party)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-108, 8);

  // Invisible
  snprintf (buf, 512, "[J] Invsbl.%c", actor->get_flag(Obj_flags::invisible)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-99, 8);

  // Fly
  snprintf (buf, 512, "[K] Fly....%c", actor->get_type_flag(Actor::tf_fly)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-90, 8);

  // Walk
  snprintf (buf, 512, "[L] Walk...%c", actor->get_type_flag(Actor::tf_walk)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-81, 8);

  // Swim
  snprintf (buf, 512, "[M] Swim...%c", actor->get_type_flag(Actor::tf_swim)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-72, 8);

  // Ethereal
  snprintf (buf, 512, "[N] Ethrel.%c", actor->get_type_flag(Actor::tf_ethereal)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-63, 8);

  // Protectee
  snprintf (buf, 512, "[O] Prtcee.%c", '?');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-54, 8);

  // Conjured
  snprintf (buf, 512, "[P] Conjrd.%c", actor->get_type_flag(Actor::tf_conjured)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-45, 8);

  // Tournament (SI ONLY)
  snprintf (buf, 512, "[3] Tourna.%c", actor->get_flag(
    Obj_flags::si_tournament)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 104, maxy-36, 8);

  // Naked (AV SI ONLY)
  if (Game::get_game_type() == SERPENT_ISLE && !actor->get_npc_num())
  {
    snprintf (buf, 512, "[7] Naked..%c", actor->get_siflag(Actor::naked)?'Y':'N');
    font->paint_text_fixedwidth(ibuf, buf, 104, maxy-27, 8);
  }


  // Right Column

  // Summoned
  snprintf (buf, 512, "[Q] Summnd.%c", actor->get_type_flag(Actor::tf_summonned)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 208, maxy-108, 8);

  // Bleeding
  snprintf (buf, 512, "[R] Bleedn.%c", actor->get_type_flag(Actor::tf_bleeding)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 208, maxy-99, 8);

  if (!actor->get_npc_num())  // Avatar
  {
    // Sex
    snprintf (buf, 512, "[S] Sex....%c", actor->get_type_flag(Actor::tf_sex)?'F':'M');
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-90, 8);

    // Skin
    snprintf (buf, 512, "[1] Skin...%s", "??");
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-81, 8);

    // Read
    snprintf (buf, 512, "[4] Read...%c", actor->get_flag(Obj_flags::read)?'Y':'N');
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-72, 8);
  }
  else  // Not Avatar
  {
    // Met
    snprintf (buf, 512, "[T] Met....%c", actor->get_flag(Obj_flags::met)?'Y':'N');
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-90, 8);

    // NoCast
    snprintf (buf, 512, "[U] NoCast.%c", actor->get_flag(
          Obj_flags::no_spell_casting)?'Y':'N');
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-81, 8);

    // ID
    snprintf (buf, 512, "[V] ID#:%02i", actor->get_ident());
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-72, 8);
  }

  // Freeze
  snprintf (buf, 512, "[W] Freeze.%c", actor->get_flag(
            Obj_flags::freeze)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 208, maxy-63, 8);

  // Party
  if (actor->is_in_party())
  {
    // Temp
    snprintf (buf, 512, "[Y] Temp: %02i", 
            actor->get_temperature());
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-54, 8);

    // Conjured
    snprintf (buf, 512, "Warmth: %04i", 
            actor->figure_warmth());
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-45, 8);
  }

  // Polymorph
  snprintf (buf, 512, "[2] Polymo.%c", actor->get_flag(Obj_flags::polymorph)?'Y':'N');
  font->paint_text_fixedwidth(ibuf, buf, 208, maxy-36, 8);

  // Patra (AV SI ONLY)
  if (Game::get_game_type() == SERPENT_ISLE && !actor->get_npc_num())
  {
    snprintf (buf, 512, "[5] Petra..%c", actor->get_flag(Obj_flags::petra)?'Y':'N');
    font->paint_text_fixedwidth(ibuf, buf, 208, maxy-27, 8);
  }

}

void CheatScreen::FlagActivate (char *input, int &command, Cheat_Prompt &mode, Actor *actor)
{
  int i = std::atoi(input);
  int nshapes = 
    Shape_manager::get_instance()->get_shapes().get_num_shapes();

  mode = CP_Command;
  switch (command)
  {
    // Everyone

    // Toggles
    case 'a': // Asleep
    if (actor->get_flag(Obj_flags::asleep))
      actor->clear_flag(Obj_flags::asleep);
    else
      actor->set_flag(Obj_flags::asleep);
    break;
    
    case 'b': // Charmed
    if (actor->get_flag(Obj_flags::charmed))
      actor->clear_flag(Obj_flags::charmed);
    else
      actor->set_flag(Obj_flags::charmed);
    break;
    
    case 'c': // Cursed
    if (actor->get_flag(Obj_flags::cursed))
      actor->clear_flag(Obj_flags::cursed);
    else
      actor->set_flag(Obj_flags::cursed);
    break;
    
    case 'd': // Paralyzed
    if (actor->get_flag(Obj_flags::paralyzed))
      actor->clear_flag(Obj_flags::paralyzed);
    else
      actor->set_flag(Obj_flags::paralyzed);
    break;
    
    case 'e': // Poisoned
    if (actor->get_flag(Obj_flags::poisoned))
      actor->clear_flag(Obj_flags::poisoned);
    else
      actor->set_flag(Obj_flags::poisoned);
    break;
    
    case 'f': // Protected
    if (actor->get_flag(Obj_flags::protection))
      actor->clear_flag(Obj_flags::protection);
    else
      actor->set_flag(Obj_flags::protection);
    break;
    
    case 'j': // Invisible
    if (actor->get_flag(Obj_flags::invisible))
      actor->clear_flag(Obj_flags::invisible);
    else
      actor->set_flag(Obj_flags::invisible);
    break;
    
    case 'k': // Fly
    if (actor->get_type_flag(Actor::tf_fly))
      actor->clear_type_flag(Actor::tf_fly);
    else
      actor->set_type_flag(Actor::tf_fly);
    break;
    
    case 'l': // Walk
    if (actor->get_type_flag(Actor::tf_walk))
      actor->clear_type_flag(Actor::tf_walk);
    else
      actor->set_type_flag(Actor::tf_walk);
    break;
    
    case 'm': // Swim
    if (actor->get_type_flag(Actor::tf_swim))
      actor->clear_type_flag(Actor::tf_swim);
    else
      actor->set_type_flag(Actor::tf_swim);
    break;
    
    case 'n': // Ethrel
    if (actor->get_type_flag(Actor::tf_ethereal))
      actor->clear_type_flag(Actor::tf_ethereal);
    else
      actor->set_type_flag(Actor::tf_ethereal);
    break;
    
    case 'p': // Conjured
    if (actor->get_type_flag(Actor::tf_conjured))
      actor->clear_type_flag(Actor::tf_conjured);
    else
      actor->set_type_flag(Actor::tf_conjured);
    break;
    
    case 'q': // Summoned
    if (actor->get_type_flag(Actor::tf_summonned))
      actor->clear_type_flag(Actor::tf_summonned);
    else
      actor->set_type_flag(Actor::tf_summonned);
    break;
    
    case 'r': // Bleeding
    if (actor->get_type_flag(Actor::tf_bleeding))
      actor->clear_type_flag(Actor::tf_bleeding);
    else
      actor->set_type_flag(Actor::tf_bleeding);
    break;
    
    case '3': // Tournament
    if (actor->get_flag(Obj_flags::si_tournament))
      actor->clear_flag(Obj_flags::si_tournament);
    else
      actor->set_flag(Obj_flags::si_tournament);
    break;
    
    case 's': // Sex
    if (actor->get_type_flag(Actor::tf_sex))
      actor->clear_type_flag(Actor::tf_sex);
    else
      actor->set_type_flag(Actor::tf_sex);
    break;
    
    case '4': // Read
    if (actor->get_flag(Obj_flags::read))
      actor->clear_flag(Obj_flags::read);
    else
      actor->set_flag(Obj_flags::read);
    break;
    
    case '5': // Petra
    if (actor->get_flag(Obj_flags::petra))
      actor->clear_flag(Obj_flags::petra);
    else
      actor->set_flag(Obj_flags::petra);
    break;
    
    case '7': // Naked
    if (actor->get_siflag(Actor::naked))
      actor->clear_siflag(Actor::naked);
    else
      actor->set_siflag(Actor::naked);
    break;
    
    case 't': // Met
    if (actor->get_flag(Obj_flags::met))
      actor->clear_flag(Obj_flags::met);
    else
      actor->set_flag(Obj_flags::met);
    break;
    
    case 'u': // No Cast
    if (actor->get_flag(Obj_flags::no_spell_casting))
      actor->clear_flag(Obj_flags::no_spell_casting);
    else
      actor->set_flag(Obj_flags::no_spell_casting);
    break;
    
    case 'z': // Zombie
    if (actor->get_flag(Obj_flags::si_zombie))
      actor->clear_flag(Obj_flags::si_zombie);
    else
      actor->set_flag(Obj_flags::si_zombie);
    break;

    case 'w': // Freeze
    if (actor->get_flag(Obj_flags::freeze))
      actor->clear_flag(Obj_flags::freeze);
    else
      actor->set_flag(Obj_flags::freeze);
    break;

    case 'i': // Party
    if (actor->get_flag(Obj_flags::in_party))
      gwin->get_party_man()->remove_from_party(actor);
    else
      gwin->get_party_man()->add_to_party(actor);
    break;
    
    case 'o': // Protectee
    break;
    
    // Value
    case 'v': // ID
    if (i < -1) mode = CP_InvalidValue;
    else if (i > 63) mode = CP_InvalidValue;
    else if (i == -1 || !input[0]) mode = CP_Canceled;
    else actor->set_ident(i);
    break;
    
    case '1': // Skin
    break;
    
    case 'y': // Warmth
    break;
    
    case '2': // Polymorph

    // Clear polymorph
    if (actor->get_polymorph() != -1)
    {
      actor->set_polymorph(actor->get_polymorph());
      break;
    }

    if (input[0] == 'b')  // Browser
    {
      int n;
      if (!cheat.get_browser_shape(i, n))
      {
        mode = CP_WrongShapeFile;
        break;
      }
    }

    if (i == -1) mode = CP_Canceled;
    else if (i < 0) mode = CP_InvalidShape;
    else if (i >= nshapes) mode = CP_InvalidShape;
    else if (input[0] && (input[0] != '-' || input[1]))
    {
      actor->set_polymorph(i);
      mode = CP_ShapeSet;
    }

    break;

    // Advanced Numeric Flag Editor
    case '*':
    if (i < -1) mode = CP_InvalidValue;
    else if (i > 63) mode = CP_InvalidValue;
    else if (i == -1 || !input[0]) mode = CP_Canceled;
    else mode = AdvancedFlagLoop(i, actor);
    break;

    default:
    break;
  }
  for (i = 0; i < 17; i++) input[i] = 0;
  command = 0;
}

// Checks the input
bool CheatScreen::FlagCheck (char *input, int &command, Cheat_Prompt &mode, bool &activate, Actor *actor)
{
  switch(command)
  {
    // Everyone

    // Toggles
    case 'a': // Asleep
    case 'b': // Charmed
    case 'c': // Cursed
    case 'd': // Paralyzed
    case 'e': // Poisoned
    case 'f': // Protected
    case 'i': // Party
    case 'j': // Invisible
    case 'k': // Fly
    case 'l': // Walk
    case 'm': // Swim
    case 'n': // Ethrel
    case 'o': // Protectee
    case 'p': // Conjured
    case 'q': // Summoned
    case 'r': // Bleedin
    case 'w': // Freeze
    //case '3': // Tournament
    activate = true;
    input[0] = command;
    break;

    // Value
    case '2': // Polymorph
    if (actor->get_polymorph() == -1)
    {
      mode = CP_Shape;
      input[0] = 0;
    }
    else
    {
      activate = true;
      input[0] = command;
    }
    break;


    // Party Only

    // Value
    case 'y': // Temp
    if (!actor->is_in_party()) command = 0;
    else  mode = CP_NotAvail;
    input[0] = command;
    break;


    // Avatar Only

    // Toggles
    case 's': // Sex
    case '4': // Read
    if (actor->get_npc_num()) command = 0;
    else activate = true;
    input[0] = command;
    break;

    // Toggles SI
    case '5': // Petra
    case '7': // Naked
    if (Game::get_game_type() != SERPENT_ISLE || actor->get_npc_num()) command = 0;
    else activate = true;
    input[0] = command;
    break; 

    // Value SI
    case '1': // Skin
    if (Game::get_game_type() != SERPENT_ISLE || actor->get_npc_num()) command = 0;
    else mode = CP_NotAvail;
    input[0] = command;
    break;


    // Everyone but avatar

    // Toggles
    case 't': // Met
    case 'u': // No Cast
    case 'z': // Zombie
    if (!actor->get_npc_num()) command = 0;
    else activate = true;
    input[0] = command;
    break;

    // Value
    case 'v': // ID
    if (!actor->get_npc_num()) command = 0;
    else mode = CP_EnterValue;
    input[0] = 0; 
    break;

    // NPC Flag Editor

    case SDLK_KP_MULTIPLY:
    case '8':
    command = '*';
    input[0] = 0;
    mode = CP_NFlagNum;
    break;


    // X and Escape leave
    case SDLK_ESCAPE:
    case 'x':
    input[0] = command;
    return false;

    // Unknown
    default:
    command = 0;
    break;
  }

  return true;
}

//
// Business Schedules
//

void CheatScreen::BusinessLoop (Actor *actor)
{
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
  int time = 0;
  int prev = 0;
    
  for (i = 0; i < 17; i++) input[i] = 0;

  while (looping)
  {
    gwin->clear_screen();

    // First the display
    if (mode == CP_Activity)
            ActivityDisplay();
    else
            BusinessDisplay(actor);

    // Now the Menu Column
    BusinessMenu(actor);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      BusinessActivate(input, command, mode, actor, time, prev);
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
      looping = BusinessCheck(input, command, mode, activate, actor, time);
  }
}

void CheatScreen::BusinessDisplay (Actor *actor)
{
  char  buf[512];
  Tile_coord t = actor->get_tile();

  // Now the info
  std::string namestr = actor->get_npc_name();
  snprintf (buf, 512, "NPC %i - %s", actor->get_npc_num(), namestr.c_str());
  font->paint_text_fixedwidth(ibuf, buf, 0, 0, 8);

  snprintf (buf, 512, "Loc (%04i, %04i, %02i)", t.tx, t.ty, t.tz);
  font->paint_text_fixedwidth(ibuf, buf, 0, 8, 8);

  snprintf (buf, 512, "Current Activity:  %2i - %s", actor->get_schedule_type(), schedules[actor->get_schedule_type()]);
  font->paint_text_fixedwidth(ibuf, buf, 0, 16, 8);
  

  // Avatar can't have schedules
  if (actor->get_npc_num() > 0)
  {
    font->paint_text_fixedwidth(ibuf, "Schedules:", 0, 28, 8);

    Schedule_change *scheds;
    int num;
    int types[8] = {-1, -1, -1, -1, -1, -1, -1, -1};
    int x[8];
    int y[8];
    int time;
    int i;
    Tile_coord tile;

    actor->get_schedules (scheds, num);

    for (i = 0; i < num; i++)
    {
      time = scheds[i].get_time();
      types[time] = scheds[i].get_type();
      tile = scheds[i].get_pos();
      x[time] = tile.tx;
      y[time] = tile.ty;
    }

    font->paint_text_fixedwidth(ibuf, "12 AM:", 0, 36, 8);
    font->paint_text_fixedwidth(ibuf, " 3 AM:", 0, 44, 8);
    font->paint_text_fixedwidth(ibuf, " 6 AM:", 0, 52, 8);
    font->paint_text_fixedwidth(ibuf, " 9 AM:", 0, 60, 8);
    font->paint_text_fixedwidth(ibuf, "12 PM:", 0, 68, 8);
    font->paint_text_fixedwidth(ibuf, " 3 PM:", 0, 76, 8);
    font->paint_text_fixedwidth(ibuf, " 6 PM:", 0, 84, 8);
    font->paint_text_fixedwidth(ibuf, " 9 PM:", 0, 92, 8);
  
    for (i = 0; i < 8; i++) if (types[i] != -1)
    {
      snprintf (buf, 512, "%2i (%4i,%4i) - %s", types[i], x[i], y[i], schedules[types[i]]);
      font->paint_text_fixedwidth(ibuf, buf, 56, 36+i*8, 8);
    }
  }
}

void CheatScreen::BusinessMenu (Actor *actor)
{
  // Left Column

  // Might break on monster npcs?
  if (actor->get_npc_num() > 0)
  {
    font->paint_text_fixedwidth(ibuf, "12 AM: [A] Set  [I] Location  [1] Clear", 0, maxy-96, 8);
    font->paint_text_fixedwidth(ibuf, " 3 AM: [B] Set  [J] Location  [2] Clear", 0, maxy-88, 8);
    font->paint_text_fixedwidth(ibuf, " 6 AM: [C] Set  [K] Location  [3] Clear", 0, maxy-80, 8);
    font->paint_text_fixedwidth(ibuf, " 9 AM: [D] Set  [L] Location  [4] Clear", 0, maxy-72, 8);
    font->paint_text_fixedwidth(ibuf, "12 PM: [E] Set  [M] Location  [5] Clear", 0, maxy-64, 8);
    font->paint_text_fixedwidth(ibuf, " 3 PM: [F] Set  [N] Location  [6] Clear", 0, maxy-56, 8);
    font->paint_text_fixedwidth(ibuf, " 6 PM: [G] Set  [O] Location  [7] Clear", 0, maxy-48, 8);
    font->paint_text_fixedwidth(ibuf, " 9 PM: [H] Set  [P] Location  [8] Clear", 0, maxy-40, 8);

         font->paint_text_fixedwidth(ibuf, "[S]et Current Activity [X]it [R]evert", 0, maxy-30, 8);
  }
  else
          font->paint_text_fixedwidth(ibuf, "[S]et Current Activity [X]it", 0, maxy-30, 8);
}

void CheatScreen::BusinessActivate (char *input, int &command, Cheat_Prompt &mode, Actor *actor, int &time, int &prev)
{
  int i = std::atoi(input);

  mode = CP_Command;
  int old = command;
  command = 0;
  switch (old)
  {
    case 'a': // Set Activity
    if (i < -1 || i > 31) mode = CP_InvalidValue;
    else if (i == -1) mode = CP_Canceled;
    else if (!input[0])
    {
      mode = CP_Activity;
      command = 'a';
    }
    else
    {
      actor->set_schedule_time_type(time, i);
    }
    break;

    case 'i': // X Coord
    if (i < -1 || i > c_num_tiles) mode = CP_InvalidValue;
    else if (i == -1) mode = CP_Canceled;
    else if (!input[0])
    {
      mode = CP_XCoord;
      command = 'i';
    }
    else
    {
      prev = i;
      mode = CP_YCoord;
      command = 'j';
    }
    break;

    case 'j': // Y Coord
    if (i < -1 || i > c_num_tiles) mode = CP_InvalidValue;
    else if (i == -1) mode = CP_Canceled;
    else if (!input[0])
    {
      mode = CP_YCoord;
      command = 'j';
    }
    else
    {
      actor->set_schedule_time_location(time, prev, i);
    }
    break;


    case '1': // Clear
    actor->remove_schedule(time);
    break;


    case 's': // Set Current
    if (i < -1 || i > 31) mode = CP_InvalidValue;
    else if (i == -1) mode = CP_Canceled;
    else if (!input[0])
    {
      mode = CP_Activity;
      command = 's';
    }
    else
    {
      actor->set_schedule_type(i);
    }
    break;


    case 'r': // Revert
    Game_window::get_instance()->revert_schedules(actor);
    break;


    default:
    break;
  }
  for (i = 0; i < 17; i++) input[i] = 0;
}

// Checks the input
bool CheatScreen::BusinessCheck (char *input, int &command, Cheat_Prompt &mode, bool &activate, Actor *actor, int &time)
{
  // Might break on monster npcs?
  if (actor->get_npc_num() > 0) switch(command)
  {
    case 'a':
    case 'b':
    case 'c':
    case 'd':
    case 'e':
    case 'f':
    case 'g':
    case 'h':
    time = command -'a';
    command = 'a';
    mode = CP_Activity;
    return true;

    case 'i':
    case 'j':
    case 'k':
    case 'l':
    case 'm':
    case 'n':
    case 'o':
    case 'p':
    time = command -'i';
    command = 'i';
    mode = CP_XCoord;
    return true;

    case '1':
    case '2':
    case '3':
    case '4':
    case '5':
    case '6':
    case '7':
    case '8':
    time = command -'1';
    command = '1';
    activate = true;
    return true;

    case 'r':
    command = 'r';
    activate = true;
    return true;

    default:
    break;
  }

  switch(command)
  {
    // Set Current
    case 's':
    command = 's';
    input[0] = 0;
    mode = CP_Activity;
    break;
    

    // X and Escape leave
    case SDLK_ESCAPE:
    case 'x':
    input[0] = command;
    return false;

    // Unknown
    default:
    command = 0;
    mode = CP_InvalidCom;
    break;
  }

  return true;
}

//
// NPC Stats
//

void CheatScreen::StatLoop (Actor *actor)
{
  int num = actor->get_npc_num();
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
    
  for (i = 0; i < 17; i++) input[i] = 0;

  while (looping)
  {
    gwin->clear_screen();

    // First the display
    NPCDisplay(actor, num);

    // Now the Menu Column
    StatMenu(actor);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      StatActivate(input, command, mode, actor);
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
      looping = StatCheck(input, command, mode, activate, actor);
  }
}

void CheatScreen::StatMenu (Actor *actor)
{
  char  buf[512];

  // Left Column

  // Dexterity
  snprintf (buf, 512, "[D]exterity....%3i", actor->get_property(Actor::dexterity));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-108, 8);

  // Food Level
  snprintf (buf, 512, "[F]ood Level...%3i", actor->get_property(Actor::food_level));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-99, 8);

  // Intelligence
  snprintf (buf, 512, "[I]ntellicence.%3i", actor->get_property(Actor::intelligence));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-90, 8);

  // Strength
  snprintf (buf, 512, "[S]trength.....%3i", actor->get_property(Actor::strength));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-81, 8);

  // Combat Skill
  snprintf (buf, 512, "[C]ombat Skill.%3i", actor->get_property(Actor::combat));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-72, 8);

  // Hit Points
  snprintf (buf, 512, "[H]it Points...%3i", actor->get_property(Actor::health));
  font->paint_text_fixedwidth(ibuf, buf, 0, maxy-63, 8);

  // Magic - Avatar Only
  if (!actor->get_npc_num())
  {
    // Magic Points
    snprintf (buf, 512, "[M]agic Points.%3i", actor->get_property(Actor::magic));
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-54, 8);

    // Mana
    snprintf (buf, 512, "[V]ana Level...%3i", actor->get_property(Actor::mana));
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-45, 8);
  }

  // Exit
  font->paint_text_fixedwidth(ibuf, "[X]it", 0, maxy-36, 8);


}

void CheatScreen::StatActivate (char *input, int &command, Cheat_Prompt &mode, Actor *actor)
{
  int i = std::atoi(input);

  mode = CP_Command;
  switch (command)
  {
    case 'd': // Dexterity
    actor->set_property(Actor::dexterity, i);
    break;
    
    case 'f': // Food Level
    actor->set_property(Actor::food_level, i);
    break;
    
    case 'i': // Intelligence
    actor->set_property(Actor::intelligence, i);
    break;
    
    case 's': // Strength
    actor->set_property(Actor::strength, i);
    break;
    
    case 'c': // Combat Points
    actor->set_property(Actor::combat, i);
    break;
    
    case 'h': // Hit Points
    actor->set_property(Actor::health, i);
    break;
    
    case 'm': // Magic
    actor->set_property(Actor::magic, i);
    break;
    
    case 'v': // [V]ana
    actor->set_property(Actor::mana, i);
    break;
    

    default:
    break;
  }
  for (i = 0; i < 17; i++) input[i] = 0;
  command = 0;
}

// Checks the input
bool CheatScreen::StatCheck (char *input, int &command, Cheat_Prompt &mode, bool &activate, Actor *actor)
{
  switch(command)
  {
    // Everyone
    case 'd': // Dexterity
    case 'f': // Food Level
    case 'i': // Intelligence
    case 's': // Strength
    case 'c': // Combat Points
    case 'h': // Hit Points
    input[0] = 0;
    mode = CP_EnterValue;
    break;

    // Avatar Only
    case 'm': // Magic
    case 'v': // [V]ana
    if (actor->get_npc_num()) command = 0;
    else mode = CP_EnterValue;
    input[0] = 0;
    break;

    // X and Escape leave
    case SDLK_ESCAPE:
    case 'x':
    input[0] = command;
    return false;

    // Unknown
    default:
    command = 0;
    break;
  }

  return true;
}


//
// Advanced Flag Edition
//

CheatScreen::Cheat_Prompt CheatScreen::AdvancedFlagLoop (int num, Actor *actor)
{
  int npc_num = actor->get_npc_num();
  bool looping = true;

  // This is for the prompt message
  Cheat_Prompt mode = CP_Command;

  // This is the command
  char input[17];
  int i;
  int command;
  bool activate = false;
  char  buf[512];
    
  for (i = 0; i < 17; i++) input[i] = 0;

  while (looping)
  {
    gwin->clear_screen();

    NPCDisplay(actor, npc_num);

    if (num < 0) num = 0;
    else if (num > 63) num = 63;

    // First the info
    if (flag_names[num])
      snprintf (buf, 512, "NPC Flag %i: %s", num, flag_names[num]);
    else
      snprintf (buf, 512, "NPC Flag %i", num);

    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-108, 8);

    snprintf (buf, 512, "Flag is %s", actor->get_flag(num)?"SET":"UNSET");
    font->paint_text_fixedwidth(ibuf, buf, 0, maxy-90, 8);


    // Now the Menu Column
    if (!actor->get_flag(num)) font->paint_text_fixedwidth(ibuf, "[S]et Flag", 160, maxy-90, 8);
    else font->paint_text_fixedwidth(ibuf, "[U]nset Flag", 160, maxy-90, 8);

    // Change Flag
    font->paint_text_fixedwidth(ibuf, "[*] Change Flag", 0, maxy-72, 8);
    if (num > 0 && num < 63) font->paint_text_fixedwidth(ibuf, "[+-] Scroll Flags", 0, maxy-63, 8);
    else if (num == 0) font->paint_text_fixedwidth(ibuf, "[+] Scroll Flags", 0, maxy-63, 8);
    else font->paint_text_fixedwidth(ibuf, "[-] Scroll Flags", 0, maxy-63, 8);

    font->paint_text_fixedwidth(ibuf, "[X]it", 0, maxy-36, 8);

    // Finally the Prompt...
    SharedPrompt(input, mode);

    // Draw it!
    pal.apply();

    // Check to see if we need to change menus
    if (activate)
    {
      if (command == '-')   // Decrement
      {
        num--;
        if (num < 0) num = 0;
      }
      else if (command == '+')  // Increment
      {
        num++;
        if (num > 63) num = 63;
      }
      else if (command == '*')  // Change Flag
      {
        i = std::atoi(input);
        if (i < -1 || i > 63) mode = CP_InvalidValue;
        else if (i == -1) mode = CP_Canceled;
        else if (input[0]) num = i;
      }
      else if (command == 's')  // Set
      {
        actor->set_flag(num);
      }
      else if (command == 'u')  // Unset
      {
        actor->clear_flag(num);
      }

      for (i = 0; i < 17; i++) input[i] = 0;
      mode = CP_Command;
      command = 0;
      activate = false;
      continue;     
    }

    if (SharedInput (input, 17, command, mode, activate))
    {
      switch(command)
      {
        // Simple commands
        case 's': // Set Flag
        case 'u': // Unset flag
        input[0] = command;
        activate = true;
        break;

        // Decrement
        case SDLK_KP_MINUS:
        case '-':
        command = '-';
        input[0] = command;
        activate = true;
        break;

        // Increment
        case SDLK_KP_PLUS:
        case '=':
        command = '+';
        input[0] = command;
        activate = true;
        break;

        // * Change Flag
        case SDLK_KP_MULTIPLY:
        case '8':
        command = '*';
        input[0] = 0;
        mode = CP_NFlagNum;
        break;

        // X and Escape leave
        case SDLK_ESCAPE:
        case 'x':
        input[0] = command;
        looping = false;
        break;

        default:
        mode = CP_InvalidCom;
        input[0] = command;
        command = 0;
        break;
      }
    }
  }
  return CP_Command;
}

---