/*
    io.c - Various input/output functions
  
    UltraRogue: The Ultimate Adventure in the Dungeons of Doom
    Copyright (C) 1985, 1986, 1992, 1993, 1995 Herb Chong
    All rights reserved.

    Based on "Advanced Rogue"
    Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka
    All rights reserved.

    Based on "Rogue: Exploring the Dungeons of Doom"
    Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
    All rights reserved.

    See the file LICENSE.TXT for full copyright and licensing information.
*/

#include <string.h>
#include <ctype.h>
#include <stdarg.h>
#include "rogue.h"

char prbuf[2 * LINELEN];    /* Buffer for sprintfs                      */
static char mbuf[2*LINELEN];  /* Current message buffer        */
static int newpos = 0;       /* index in mbuf to end of msg   */

int mpos = 0;                 /* 0  = Overwrite existing message */
                              /* >0 = print --More-- at this pos */
                              /*      and wait for key           */

int line_cnt = 0;
int newpage  = FALSE;

/*
    msg()
        Display a message at the top of the screen.
*/

void
msg(const char *fmt, ...)
{
    va_list ap;

    /* if the string is "", just clear the line */

    if (*fmt == '\0')
    {
        wmove(cw, 0, 0);
        wclrtoeol(cw);
        mpos = 0;
        return;
    }

    /* otherwise add to the message and flush it out */

    va_start(ap, fmt);
    doadd(fmt, ap);
    va_end(ap);

    endmsg();
}

void
vmsg(const char *fmt, va_list ap)
{
    /* if the string is "", just clear the line */

    if (*fmt == '\0')
    {
        wmove(cw, 0, 0);
        wclrtoeol(cw);
        mpos = 0;
        return;
    }

    /* otherwise add to the message and flush it out */

    doadd(fmt, ap);
    endmsg();
}


/*
    addmsg()
        add things to the current message
*/

void
addmsg(const char *fmt, ...)
{
    va_list ap;

    va_start(ap, fmt);
    doadd(fmt,ap);
    va_end(ap);
}

/*
    endmsg()
        Display a new msg (giving him a chance to see the previous one
        if it is up there with the --More--)
*/

void
endmsg(void)
{
    strcpy(msgbuf[msg_index], mbuf);

    msg_index++;
    msg_index %= 10;

    if (mpos)
    {
        wmove(cw, 0, mpos);
        wprintw(cw, (char *) morestr);
        wrefresh(cw);
        wait_for(' ');
    }

    mvwprintw(cw, 0, 0, mbuf);
    wclrtoeol(cw);

    mpos = newpos;
    newpos = 0;

    wrefresh(cw);
}

void
doadd(const char *fmt, va_list ap)
{
    vsprintf(&mbuf[newpos], fmt, ap);
    newpos = (int) strlen(mbuf);
}

/*
    status()
        Display the important stats line.  Keep the cursor where it was.
*/

void
status(int display)
{
    static char buf[1024];             /* Temporary buffer */
    struct stats *stat_ptr, *max_ptr;
    int oy, ox;

    stat_ptr = &pstats;
    max_ptr = &max_stats;

    getyx(cw, oy, ox);
    sprintf(buf,
    "Int:%d(%d) Str:%d(%d) Wis:%d(%d) Dex:%d(%d) Con:%d(%d) Carry:%d(%d) %d",
        stat_ptr->s_intel, max_ptr->s_intel,
        stat_ptr->s_str, max_ptr->s_str,
        stat_ptr->s_wisdom, max_ptr->s_wisdom,
        stat_ptr->s_dext, max_ptr->s_dext,
        stat_ptr->s_const, max_ptr->s_const,
        stat_ptr->s_pack / 10, stat_ptr->s_carry / 10, foodlev );

    mvwaddstr(cw, LINES - 2, 0, buf);
    wclrtoeol(cw);

    sprintf(buf, "Lvl:%d Au:%ld Hpt:%3ld(%3ld) Pow:%d(%d) Ac:%d  Exp:%d+%ld  %s",
        level,
        purse,
        stat_ptr->s_hpt, max_ptr->s_hpt,
        stat_ptr->s_power, max_ptr->s_power,
        (cur_armor != NULL ? (cur_armor->o_ac - 10 + stat_ptr->s_arm)
         : stat_ptr->s_arm) - ring_value(R_PROTECT),
        stat_ptr->s_lvl,
        stat_ptr->s_exp,
        cnames[player.t_ctype][min(stat_ptr->s_lvl - 1, 14)]);

    mvwaddstr(cw, LINES - 1, 0, buf);

    switch(hungry_state)
    {
        case F_OK:     break;
        case F_HUNGRY: waddstr(cw, " Hungry");
                       break;
        case F_WEAK:   waddstr(cw, " Weak");
                       break;
        case F_FAINT:  waddstr(cw, " Fainting");
                       break;
    }

    wclrtoeol(cw);
    wmove(cw, oy, ox);

    if (display)
        wrefresh(cw);
}

/*
 * readchar:
 *	Flushes stdout so that screen is up to date and then returns
 *	getchar().
 */

char
readcharw(WINDOW *win)
{
    char ch;

    ch = (char) md_readchar(win);

    if ((ch == 3) || (ch == 0))
    {
	quit();
	return(27);
    }

    return(ch);
}

char
readchar()
{
    return( readcharw(cw) );
}

/*
    wait_for()
        Sit around until the guy types the right key
*/

void
w_wait_for(WINDOW *w, int ch)
{
    char    c;

    if (ch == '\n')
        while ((c = readcharw(w)) != '\n' && c != '\r')
            continue;
    else
        while (readcharw(w) != ch)
            continue;
}

void
wait_for(int ch)
{
    w_wait_for(cw, ch);
}

/*
    show_win()
        function used to display a window and wait before returning
*/

void
show_win(WINDOW *scr, char *message)
{
    mvwaddstr(scr, 0, 0, message);
    touchwin(scr);
    wmove(scr, hero.y, hero.x);
    wrefresh(scr);
    wait_for(' ');
    clearok(cw, TRUE);
    touchwin(cw);
}

/*
    restscr()
        Restores the screen to the terminal
*/

void
restscr(WINDOW *scr)
{
    clearok(scr, TRUE);
    touchwin(scr);
}

/*
    add_line()
        Add a line to the list of discoveries
*/

void
add_line(const char *fmt, ...)
{
    WINDOW  *tw;
    va_list ap;

    va_start(ap, fmt);

    if (line_cnt == 0)
    {
        wclear(hw);

        if (inv_type == INV_SLOW)
            mpos = 0;
    }

    if (inv_type == INV_SLOW)
    {
        if ( (fmt != NULL) && (*fmt != '\0') )
            vmsg(fmt, ap);
        line_cnt++;
    }
    else
    {
        if ( (line_cnt >= LINES - 2) || (fmt == NULL)) /* end 'o page */
        {
            if (fmt == NULL && !newpage && inv_type == INV_OVER)
            {
                tw = newwin(line_cnt + 2, COLS, 0, 0);
                overwrite(hw, tw);
                wstandout(tw);
                mvwaddstr(tw, line_cnt, 0, spacemsg);
                wstandend(tw);
                touchwin(tw);
                wrefresh(tw); 
                wait_for(' ');
                delwin(tw);
                touchwin(cw);
            }
            else
            {
                wstandout(hw);
                mvwaddstr(hw, LINES - 1, 0, spacemsg);
                wstandend(hw);
                wrefresh(hw);
                w_wait_for(hw, ' ');
                touchwin(cw);
                wclear(hw);
            }
            newpage = TRUE;
            line_cnt = 0;
        }

        /* draw line */
        if (fmt != NULL && !(line_cnt == 0 && *fmt == '\0'))
        {
            static char tmpbuf[1024];
			
            vsprintf(tmpbuf, fmt, ap);
            mvwprintw(hw, line_cnt++, 0, tmpbuf);
        }
    }
}

/*
    end_line()
        End the list of lines
*/

void
end_line(void)
{
    if (inv_type != INV_SLOW)
        add_line(NULL);

    line_cnt = 0;
    newpage = FALSE;
}

/*
    hearmsg()
        Call msg() only if you are not deaf
*/

void
hearmsg(const char *fmt, ...)
{
    va_list ap;

    va_start(ap, fmt);

    if (off(player, ISDEAF))
        vmsg(fmt, ap);
    else if (wizard)
    {
        msg("Couldn't hear: ");
        vmsg(fmt, ap);
    }

    va_end(ap);
}

/*
    seemsg()
        Call msg() only if you are not blind
*/

void
seemsg(const char *fmt, ...)
{
    va_list ap;

    va_start(ap, fmt);

    if (off(player, ISBLIND))
        vmsg(fmt, ap);
    else if (wizard)
    {
        msg("Couldn't see: ");
        vmsg(fmt, ap);
    }

    va_end(ap);
}

int
get_string(char *buffer, WINDOW *win)
{
    char    *sp, c;
    int oy, ox;
    char    buf[2 * LINELEN];

    wrefresh(win);
    getyx(win, oy, ox);

    /* loop reading in the string, and put it in a temporary buffer */

    for (sp = buf; (c = readcharw(win)) != '\n' &&
         c != '\r' &&
         c != '\033' &&
         c != '\007' &&
         sp < &buf[LINELEN - 1];
         wclrtoeol(win), wrefresh(win))
    {
	if ((c == '\b') || (c == 0x7f))
        {
            if (sp > buf)
            {
                size_t i;

                sp--;

                for (i = strlen(unctrl(*sp)); i; i--)
                    waddch(win, '\b');
            }
            continue;
        }
        else if (c == '\0')
        {
            sp = buf;
            wmove(win, oy, ox);
            continue;
        }
        else if (sp == buf && c == '-' && win == hw)
            break;

        *sp++ = c;
        waddstr(win, unctrl(c));
    }

    *sp = '\0';

    if (sp > buf)       /* only change option if something has been typed */
        strncpy(buffer, buf, strlen(buf)+1);

    wmove(win, oy, ox);
    waddstr(win, buffer);
    waddch(win, '\n');
    wrefresh(win);

    if (win == cw)
        mpos += (int)(sp - buf);

    if (c == '-')
        return(MINUS);
    else if (c == '\033' || c == '\007')
        return(QUIT);
    else
        return(NORM);
}