6c3cd116ff
There should only be two changes in behavior: arogue7/fight.c, arogue7/fight.c: a to-hit bonus is now correctly applied to characters who are not monks instead of monks who are not empty-handed. urogue/fight.c: fixed an interaction with the "debug" macro that could cause the wrong message to be displayed.
472 lines
8.8 KiB
C
472 lines
8.8 KiB
C
/*
|
|
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);
|
|
}
|
|
|