// Emacs style mode select   -*- C++ -*- 
//-----------------------------------------------------------------------------
//
// $Id:$
//
// Copyright (C) 1993-1996 by id Software, Inc.
//
// This source is available for distribution and/or modification
// only under the terms of the DOOM Source Code License as
// published by id Software. All rights reserved.
//
// The source is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License
// for more details.
//
// $Log:$
//
// DESCRIPTION:  Heads-up displays
//
//-----------------------------------------------------------------------------

//static const char 

#include "os.h"
#include "cgdoom.h"

#include "doomdef.h"
#include "z_zone.h"
#include "m_swap.h"
#include "hu_stuff.h"
#include "hu_lib.h"
#include "w_wad.h"

//#include "s_sound.h"

#include "doomstat.h"

// Data.
#include "dstrings.h"
//#include "sounds.h"

//
// Locally used constants, shortcuts.
//
/*#define HU_TITLE (mapnames[(gameepisode-1)*9+gamemap-1])
#define HU_TITLE2 (mapnames2[gamemap-1])
#define HU_TITLEP (mapnamesp[gamemap-1])
#define HU_TITLET (mapnamest[gamemap-1])*/
#define HU_TITLEHEIGHT 1
#define HU_TITLEX 0
#define HU_TITLEY (167 - SHORT(hu_font[0]->height))

#define HU_INPUTTOGGLE 't'
#define HU_INPUTX HU_MSGX
#define HU_INPUTY (HU_MSGY + HU_MSGHEIGHT*(SHORT(hu_font[0]->height) +1))
#define HU_INPUTWIDTH 64
#define HU_INPUTHEIGHT 1



const char* chat_macros[] =
{
  HUSTR_CHATMACRO0,HUSTR_CHATMACRO1,HUSTR_CHATMACRO2,HUSTR_CHATMACRO3,
  HUSTR_CHATMACRO4,HUSTR_CHATMACRO5,HUSTR_CHATMACRO6,HUSTR_CHATMACRO7,
  HUSTR_CHATMACRO8,HUSTR_CHATMACRO9
};

const char* player_names[] =
{
  HUSTR_PLRGREEN,
  HUSTR_PLRINDIGO,
  HUSTR_PLRBROWN,
  HUSTR_PLRRED
};


char   chat_char; // remove later.
static player_t* hu_stuff_plr;
const patch_t* hu_font[HU_FONTSIZE];
static hu_textline_t w_title;
boolean   chat_on;
static hu_itext_t w_chat;
static boolean  always_off = false;
//static char  chat_dest[MAXPLAYERS];
static hu_itext_t w_inputbuffer[MAXPLAYERS];

static boolean  message_on;
boolean   message_dontfuckwithme;
static boolean  message_nottobefuckedwith;

static hu_stext_t w_message;
static int  message_counter;

extern int  showMessages;
extern boolean  automapactive;

static boolean  headsupactive = false;

/* CGDoom */
static hu_stext_t w_fpscounter;
static boolean fpscounter_on;
int fpscounter_data = 0;
boolean fpscounteractive = false;

//
// Builtin map names.
// The actual names can be found in DStrings.h.
//

const char mapnames[45][35] = // DOOM shareware/registered/retail (Ultimate) names.
{
HUSTR_E1M1,HUSTR_E1M2,HUSTR_E1M3,HUSTR_E1M4,HUSTR_E1M5,HUSTR_E1M6,HUSTR_E1M7,HUSTR_E1M8,HUSTR_E1M9,
HUSTR_E2M1,HUSTR_E2M2,HUSTR_E2M3,HUSTR_E2M4,HUSTR_E2M5,HUSTR_E2M6,HUSTR_E2M7,HUSTR_E2M8,HUSTR_E2M9,
HUSTR_E3M1,HUSTR_E3M2,HUSTR_E3M3,HUSTR_E3M4,HUSTR_E3M5,HUSTR_E3M6,HUSTR_E3M7,HUSTR_E3M8,HUSTR_E3M9,
HUSTR_E4M1,HUSTR_E4M2,HUSTR_E4M3,HUSTR_E4M4,HUSTR_E4M5,HUSTR_E4M6,HUSTR_E4M7,HUSTR_E4M8,HUSTR_E4M9,
"NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL","NEWLEVEL"
};

const char mapnames2[32][35] = // DOOM 2 map names.
{
  HUSTR_1,HUSTR_2,HUSTR_3,HUSTR_4,HUSTR_5,HUSTR_6,HUSTR_7,HUSTR_8,HUSTR_9,HUSTR_10,HUSTR_11,HUSTR_12,HUSTR_13,
  HUSTR_14,HUSTR_15,HUSTR_16,HUSTR_17,HUSTR_18,HUSTR_19,HUSTR_20,HUSTR_21,HUSTR_22,HUSTR_23,HUSTR_24,HUSTR_25,
  HUSTR_26,HUSTR_27,HUSTR_28,HUSTR_29,HUSTR_30,HUSTR_31,HUSTR_32
};


const char mapnamesp[32][35] = // Plutonia WAD map names.
{
  PHUSTR_1,PHUSTR_2,PHUSTR_3,PHUSTR_4,PHUSTR_5,PHUSTR_6,PHUSTR_7,PHUSTR_8,PHUSTR_9,PHUSTR_10,PHUSTR_11,
  PHUSTR_12,PHUSTR_13,PHUSTR_14,PHUSTR_15,PHUSTR_16,PHUSTR_17,PHUSTR_18,PHUSTR_19,PHUSTR_20,PHUSTR_21,
  PHUSTR_22,PHUSTR_23,PHUSTR_24,PHUSTR_25,PHUSTR_26,PHUSTR_27,PHUSTR_28,PHUSTR_29,PHUSTR_30,PHUSTR_31,PHUSTR_32
};


const char mapnamest[32][35] = // TNT WAD map names.
{
  THUSTR_1,THUSTR_2,THUSTR_3,THUSTR_4,THUSTR_5,THUSTR_6,THUSTR_7,THUSTR_8,THUSTR_9,THUSTR_10,THUSTR_11,
  THUSTR_12,THUSTR_13,THUSTR_14,THUSTR_15,THUSTR_16,THUSTR_17, THUSTR_18,THUSTR_19,THUSTR_20,THUSTR_21,
  THUSTR_22,THUSTR_23,THUSTR_24,THUSTR_25,THUSTR_26,THUSTR_27,THUSTR_28,THUSTR_29,THUSTR_30,THUSTR_31,THUSTR_32
};


const char shiftxform[] =
{
  0,
    1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
    11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
    21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
    31,
    ' ', '!', '"', '#', '$', '%', '&',
    '"', // shift-'
    '(', ')', '*', '+',
    '<', // shift-,
    '_', // shift--
    '>', // shift-.
    '?', // shift-/
    ')', // shift-0
    '!', // shift-1
    '@', // shift-2
    '#', // shift-3
    '$', // shift-4
    '%', // shift-5
    '^', // shift-6
    '&', // shift-7
    '*', // shift-8
    '(', // shift-9
    ':',
    ':', // shift-;
    '<',
    '+', // shift-=
    '>', '?', '@',
    'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N',
    'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
    '[', // shift-[
    '!', // shift-backslash - OH MY GOD DOES WATCOM SUCK
    ']', // shift-]
    '"', '_',
    '\'', // shift-`
    'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N',
    'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
    '{', '|', '}', '~', 127
};

void HU_Init(void)
{

  int  i;
  int  j;
  char buffer[9];

  // load the heads-up font
  j = HU_FONTSTART;
  for (i=0;i<HU_FONTSIZE;i++)
  {
    sprintf(buffer, "STCFN0%d", j++);
    hu_font[i] = (const patch_t *) W_CacheLumpNameConst(buffer, PU_STATIC);
  }

}

void HU_Stop(void)
{
  headsupactive = false;
}

void HU_Start(void)
{
  int  a;
  const char* s;

  if (headsupactive)
    HU_Stop();

  hu_stuff_plr = &players[consoleplayer];
  message_on = false;
  message_dontfuckwithme = false;
  message_nottobefuckedwith = false;
  chat_on = false;

  // create the message widget
  HUlib_initSText(&w_message,
    HU_MSGX, HU_MSGY, HU_MSGHEIGHT,
    hu_font,
    HU_FONTSTART, &message_on);

  // create the map title widget
  HUlib_initTextLine(&w_title,
    HU_TITLEX, HU_TITLEY,
    hu_font,
    HU_FONTSTART);

  /* CGDoom: Create the FPS counter widget */
  HUlib_initSText(&w_fpscounter,
    SCREENWIDTH-44, HU_MSGY, HU_MSGHEIGHT,
    hu_font,
    HU_FONTSTART, &fpscounter_on);

  switch ( gamemode )
  {
  case shareware:
  case registered:
  case retail:
    /* CGDoom: Use proper episode names in single-episode Ultimate Doom WADs */
    a = 9*(gameepisode-1) + gamemap - 1;
    if (CGD_SingleEpisodeUltimate)
      a = 9*(CGD_SingleEpisodeUltimate-1) + gamemap - 1;
    s = mapnames[a];
    break;
    /* FIXME
    case pack_plut:
    a = gamemap-1;
    s = mapnamesp[a];
    break;
    case pack_tnt:
    a = gamemap-1;
    s = mapnamest[a];
    break;
    */
  case commercial:
  default:
    a = gamemap-1;
    s =  mapnames2[a];
    break;
  }

  //I_Error("presy");

  while (*s)
    HUlib_addCharToTextLine(&w_title, *(s++));

  //I_Error("aboot to initItext");

  // create the chat widget NO CHAT ON NSPIRE, SUCKERS
  HUlib_initIText(&w_chat,
    HU_INPUTX, HU_INPUTY,
    hu_font,
    HU_FONTSTART, &chat_on);

  // create the inputbuffer widgets
  //for (i=0 ; i<MAXPLAYERS ; i++)
  HUlib_initIText(&w_inputbuffer[0], 0, 0, 0, 0, &always_off);

  headsupactive = true;

}

void HU_Drawer(void)
{

  HUlib_drawSText(&w_message);
  if (fpscounteractive)
    HUlib_drawSText(&w_fpscounter);
  HUlib_drawIText(&w_chat);
  if (automapactive)
    HUlib_drawTextLine(&w_title, false);

}

void HU_Erase(void)
{
  HUlib_eraseSText(&w_message);
  if (fpscounteractive)
    HUlib_eraseSText(&w_fpscounter);
  HUlib_eraseIText(&w_chat);
  HUlib_eraseTextLine(&w_title);

}

void HU_Ticker(void)
{

  //int i, rc;
  //char c;

  // tick down message counter if message is up
  if (message_counter && !--message_counter)
  {
    message_on = false;
    message_nottobefuckedwith = false;
  }

  if (showMessages || message_dontfuckwithme)
  {

    // display message if necessary
    if ((hu_stuff_plr->message && !message_nottobefuckedwith) || (hu_stuff_plr->message && message_dontfuckwithme))
    {
      HUlib_addMessageToSText(&w_message, 0, hu_stuff_plr->message);
      hu_stuff_plr->message = 0;
      message_on = true;
      message_counter = HU_MSGTIMEOUT;
      message_nottobefuckedwith = message_dontfuckwithme;
      message_dontfuckwithme = 0;
    }

  } // else message_on = false;

  if (fpscounteractive)
  {
    /* Update FPS counter text */
    static char text[10];
    sprintf(text, "%d FPS", fpscounter_data);
    HUlib_addMessageToSText(&w_fpscounter, 0, text);
    fpscounter_on = true;
  }
}

#define QUEUESIZE  128

static char chatchars[QUEUESIZE];
static int head = 0;
static int tail = 0;


void HU_queueChatChar(char c)
{
  if (((head + 1) & (QUEUESIZE-1)) == tail)
  {
    hu_stuff_plr->message = HUSTR_MSGU;
  }
  else
  {
    chatchars[head] = c;
    head = (head + 1) & (QUEUESIZE-1);
  }
}

char HU_dequeueChatChar(void)
{
  char c;

  if (head != tail)
  {
    c = chatchars[tail];
    tail = (tail + 1) & (QUEUESIZE-1);
  }
  else
  {
    c = 0;
  }

  return c;
}

boolean HU_Responder(event_t *ev)
{

  static char  lastmessage[HU_MAXLINELENGTH+1];
  const char*   macromessage;
  boolean   eatkey = false;
  static boolean shiftdown = false;
  static boolean altdown = false;
  unsigned char  c;
  int    i;
  int    numplayers;

  static const char destination_keys[MAXPLAYERS] =
  {
    HUSTR_KEYGREEN,
      HUSTR_KEYINDIGO,
      HUSTR_KEYBROWN,
      HUSTR_KEYRED
  };

  static int  num_nobrainers = 0;

  numplayers = 0;
  for (i=0 ; i<MAXPLAYERS ; i++)
    numplayers += playeringame[i];

  if (ev->data1 == KEY_RSHIFT)
  {
    shiftdown = (boolean)(ev->type == ev_keydown);
    return false;
  }
  else if (ev->data1 == KEY_RALT)
  {
    altdown = (boolean)(ev->type == ev_keydown);
    return false;
  }

  if (ev->type != ev_keydown)
    return false;

  if (!chat_on)
  {
    if (ev->data1 == HU_MSGREFRESH)
    {
      message_on = true;
      message_counter = HU_MSGTIMEOUT;
      eatkey = true;
    }
    else if (netgame && ev->data1 == HU_INPUTTOGGLE)
    {
      eatkey = chat_on = true;
      HUlib_resetIText(&w_chat);
      HU_queueChatChar(HU_BROADCAST);
    }
    else if (netgame && numplayers > 2)
    {
      for (i=0; i<MAXPLAYERS ; i++)
      {
        if (ev->data1 == destination_keys[i])
        {
          if (playeringame[i] && i!=consoleplayer)
          {
            eatkey = chat_on = true;
            HUlib_resetIText(&w_chat);
            HU_queueChatChar((char)(i+1));
            break;
          }
          else if (i == consoleplayer)
          {
            num_nobrainers++;
            if (num_nobrainers < 3)
              hu_stuff_plr->message = HUSTR_TALKTOSELF1;
            else if (num_nobrainers < 6)
              hu_stuff_plr->message = HUSTR_TALKTOSELF2;
            else if (num_nobrainers < 9)
              hu_stuff_plr->message = HUSTR_TALKTOSELF3;
            else if (num_nobrainers < 32)
              hu_stuff_plr->message = HUSTR_TALKTOSELF4;
            else
              hu_stuff_plr->message = HUSTR_TALKTOSELF5;
          }
        }
      }
    }
  }
  else
  {
    c = (byte)ev->data1;
    // send a macro
    if (altdown)
    {
      c = c - '0';
      if (c > 9)
        return false;
      // fprintf(stderr, "got here\n");
      macromessage = chat_macros[c];

      // kill last message with a '\n'
      HU_queueChatChar(KEY_ENTER); // DEBUG!!!

      // send the macro message
      while (*macromessage)
        HU_queueChatChar(*macromessage++);
      HU_queueChatChar(KEY_ENTER);

      // leave chat mode and notify that it was sent
      chat_on = false;
      strcpy(lastmessage, chat_macros[c]);
      hu_stuff_plr->message = lastmessage;
      eatkey = true;
    }
    else
    {
      if (shiftdown || (c >= 'a' && c <= 'z'))
        c = shiftxform[c];
      eatkey = HUlib_keyInIText(&w_chat, c);
      if (eatkey)
      {
        // static unsigned char buf[20]; // DEBUG
        HU_queueChatChar(c);

        // sprintf(buf, "KEY: %d => %d", ev->data1, c);
        //      hu_stuff_plr->message = buf;
      }
      if (c == KEY_ENTER)
      {
        chat_on = false;
        if (w_chat.l.len)
        {
          strcpy(lastmessage, w_chat.l.l);
          hu_stuff_plr->message = lastmessage;
        }
      }
      else if (c == KEY_ESCAPE)
        chat_on = false;
    }
  }

  return eatkey;

}