*** empty log message ***
This commit is contained in:
jwalz
995
win/gem/wingem.c
Normal file
995
win/gem/wingem.c
Normal file
@@ -0,0 +1,995 @@
|
||||
/* SCCS Id: @(#)wingem.c 3.3 1999/12/10 */
|
||||
/* Copyright (c) Christian Bressler, 1999 */
|
||||
/* NetHack may be freely redistributed. See license for details. */
|
||||
|
||||
#include "hack.h"
|
||||
#include "func_tab.h"
|
||||
#include "dlb.h"
|
||||
#include <ctype.h>
|
||||
#ifdef SHORT_FILENAMES
|
||||
#include "patchlev.h"
|
||||
#else
|
||||
#include "patchlevel.h"
|
||||
#endif
|
||||
|
||||
#ifdef GEM_GRAPHICS
|
||||
#include "wingem.h"
|
||||
|
||||
static char nullstr[] = "", winpanicstr[] = "Bad window id %d";
|
||||
static int curr_status_line;
|
||||
|
||||
static char *FDECL(copy_of, (const char *));
|
||||
static void FDECL(bail, (const char *)); /* __attribute__((noreturn)) */
|
||||
|
||||
extern short glyph2tile[MAX_GLYPH]; /* from tile.c */
|
||||
extern void mar_display_nhwindow(winid); /* from wingem1.c */
|
||||
|
||||
/* Interface definition, for windows.c */
|
||||
struct window_procs Gem_procs = {
|
||||
"Gem",
|
||||
Gem_init_nhwindows,
|
||||
Gem_player_selection,
|
||||
Gem_askname,
|
||||
Gem_get_nh_event,
|
||||
Gem_exit_nhwindows,
|
||||
Gem_suspend_nhwindows,
|
||||
Gem_resume_nhwindows,
|
||||
Gem_create_nhwindow,
|
||||
Gem_clear_nhwindow,
|
||||
Gem_display_nhwindow,
|
||||
Gem_destroy_nhwindow,
|
||||
Gem_curs,
|
||||
Gem_putstr,
|
||||
Gem_display_file,
|
||||
Gem_start_menu,
|
||||
Gem_add_menu,
|
||||
Gem_end_menu,
|
||||
Gem_select_menu,
|
||||
genl_message_menu,
|
||||
Gem_update_inventory,
|
||||
Gem_mark_synch,
|
||||
Gem_wait_synch,
|
||||
#ifdef CLIPPING
|
||||
Gem_cliparound,
|
||||
#endif
|
||||
#ifdef POSITIONBAR
|
||||
Gem_update_positionbar,
|
||||
#endif
|
||||
Gem_print_glyph,
|
||||
Gem_raw_print,
|
||||
Gem_raw_print_bold,
|
||||
Gem_nhgetch,
|
||||
Gem_nh_poskey,
|
||||
Gem_nhbell,
|
||||
Gem_doprev_message,
|
||||
Gem_yn_function,
|
||||
Gem_getlin,
|
||||
Gem_get_ext_cmd,
|
||||
Gem_number_pad,
|
||||
Gem_delay_output,
|
||||
#ifdef CHANGE_COLOR /* the Mac uses a palette device */
|
||||
Gem_change_color,
|
||||
#ifdef MAC
|
||||
Gem_change_background,
|
||||
Gem_set_font_name,
|
||||
#endif
|
||||
Gem_get_color_string,
|
||||
#endif
|
||||
|
||||
/* other defs that really should go away (they're tty specific) */
|
||||
Gem_start_screen,
|
||||
Gem_end_screen,
|
||||
genl_outrip
|
||||
};
|
||||
|
||||
#ifdef MAC
|
||||
void *
|
||||
Gem_change_background(dummy)
|
||||
int dummy;
|
||||
{}
|
||||
|
||||
short *
|
||||
Gem_set_font_name(foo,bar)
|
||||
winid foo;
|
||||
char *bar;
|
||||
{}
|
||||
#endif
|
||||
|
||||
/*************************** Proceduren *************************************/
|
||||
|
||||
int mar_hp_query(void){
|
||||
if(Upolyd)
|
||||
return(u.mh ? u.mhmax/u.mh : -1);
|
||||
return(u.uhp ? u.uhpmax/u.uhp : -1);
|
||||
}
|
||||
|
||||
int
|
||||
mar_iflags_numpad()
|
||||
{
|
||||
return(iflags.num_pad ? 1 : 0);
|
||||
}
|
||||
|
||||
int
|
||||
mar_get_msg_history()
|
||||
{
|
||||
return(iflags.msg_history);
|
||||
}
|
||||
|
||||
/* clean up and quit */
|
||||
static void
|
||||
bail(mesg)
|
||||
const char *mesg;
|
||||
{
|
||||
clearlocks();
|
||||
Gem_exit_nhwindows(mesg);
|
||||
terminate(EXIT_SUCCESS);
|
||||
/*NOTREACHED*/
|
||||
}
|
||||
|
||||
/*ARGSUSED*/
|
||||
void
|
||||
Gem_init_nhwindows(argcp,argv)
|
||||
int* argcp;
|
||||
char** argv;
|
||||
{
|
||||
argv=argv, argcp=argcp;
|
||||
colors_changed=TRUE;
|
||||
|
||||
if(mar_gem_init()==0){
|
||||
bail((char *)0);
|
||||
/*NOTREACHED*/
|
||||
}
|
||||
iflags.window_inited = TRUE;
|
||||
|
||||
CO=80; /* MAR -- whatsoever */
|
||||
LI=25;
|
||||
|
||||
add_menu_cmd_alias(' ', MENU_NEXT_PAGE);
|
||||
mar_set_no_glyph(NO_GLYPH);
|
||||
}
|
||||
|
||||
void
|
||||
Gem_player_selection()
|
||||
{
|
||||
int i, k, n;
|
||||
char pick4u = 'n', pbuf[QBUFSZ], lastch=0, currch;
|
||||
winid win;
|
||||
anything any;
|
||||
menu_item *selected=NULL;
|
||||
|
||||
/* avoid unnecessary prompts further down */
|
||||
rigid_role_checks();
|
||||
|
||||
/* Should we randomly pick for the player? */
|
||||
if (!flags.randomall &&
|
||||
(flags.initrole == ROLE_NONE || flags.initrace == ROLE_NONE ||
|
||||
flags.initgend == ROLE_NONE || flags.initalign == ROLE_NONE)) {
|
||||
pick4u = yn_function("Shall I pick a character for you? [ynq]",ynqchars,'n');
|
||||
if(pick4u=='q'){
|
||||
give_up: /* Just quit */
|
||||
if (selected) free((genericptr_t) selected);
|
||||
bail((char *)0);
|
||||
/*NOTREACHED*/
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
/* Select a role, if necessary */
|
||||
if (flags.initrole < 0) {
|
||||
|
||||
/* Process the choice */
|
||||
if(pick4u=='y' || flags.initrole == ROLE_RANDOM || flags.randomall) {
|
||||
/* Pick a random role */
|
||||
flags.initrole = pick_role(flags.initrace, flags.initgend,
|
||||
flags.initalign, PICK_RANDOM);
|
||||
if (flags.initrole < 0) {
|
||||
mar_add_message("Incompatible role!");
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
flags.initrole = randrole();
|
||||
}
|
||||
}else{
|
||||
/* Prompt for a role */
|
||||
win = create_nhwindow(NHW_MENU);
|
||||
start_menu(win);
|
||||
any.a_void = 0; /* zero out all bits */
|
||||
for (i = 0; roles[i].name.m; i++) {
|
||||
if (ok_role(i, flags.initrace, flags.initgend,
|
||||
flags.initalign)) {
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
currch = lowc(roles[i].name.m[0]);
|
||||
if(currch == lastch)
|
||||
currch = highc(currch);
|
||||
add_menu(win, roles[i].malenum, &any, currch,
|
||||
0, ATR_NONE, an(roles[i].name.m), MENU_UNSELECTED);
|
||||
lastch = currch;
|
||||
}
|
||||
}
|
||||
any.a_int = pick_role(flags.initrace, flags.initgend,
|
||||
flags.initalign, PICK_RANDOM)+1;
|
||||
if (any.a_int == 0) /* must be non-zero */
|
||||
any.a_int = randrole()+1;
|
||||
add_menu(win, NO_GLYPH, &any , '*', 0, ATR_NONE,
|
||||
"Random", MENU_UNSELECTED);
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
add_menu(win, NO_GLYPH, &any , 'q', 0, ATR_NONE,
|
||||
"Quit", MENU_UNSELECTED);
|
||||
end_menu(win, "Pick a role");
|
||||
n = select_menu(win, PICK_ONE, &selected);
|
||||
destroy_nhwindow(win);
|
||||
|
||||
/* Process the choice */
|
||||
if (n != 1 || selected[0].item.a_int == any.a_int)
|
||||
goto give_up; /* Selected quit */
|
||||
|
||||
flags.initrole = selected[0].item.a_int - 1;
|
||||
free((genericptr_t) selected), selected = 0;
|
||||
}
|
||||
}
|
||||
|
||||
/* Select a race, if necessary */
|
||||
/* force compatibility with role, try for compatibility with
|
||||
* pre-selected gender/alignment */
|
||||
if (flags.initrace < 0 || !validrace(flags.initrole, flags.initrace)) {
|
||||
/* pre-selected race not valid */
|
||||
if (pick4u == 'y' || flags.initrace == ROLE_RANDOM || flags.randomall) {
|
||||
flags.initrace = pick_race(flags.initrole, flags.initgend,
|
||||
flags.initalign, PICK_RANDOM);
|
||||
if (flags.initrace < 0) {
|
||||
mar_add_message("Incompatible race!");
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
flags.initrace = randrace(flags.initrole);
|
||||
}
|
||||
} else { /* pick4u == 'n' */
|
||||
/* Count the number of valid races */
|
||||
n = 0; /* number valid */
|
||||
k = 0; /* valid race */
|
||||
for (i = 0; races[i].noun; i++) {
|
||||
if (ok_race(flags.initrole, i, flags.initgend,
|
||||
flags.initalign)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
if (n == 0) {
|
||||
for (i = 0; races[i].noun; i++) {
|
||||
if (validrace(flags.initrole, i)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Permit the user to pick, if there is more than one */
|
||||
if (n > 1) {
|
||||
win = create_nhwindow(NHW_MENU);
|
||||
start_menu(win);
|
||||
any.a_void = 0; /* zero out all bits */
|
||||
for (i = 0; races[i].noun; i++)
|
||||
if (ok_race(flags.initrole, i, flags.initgend,
|
||||
flags.initalign)) {
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
add_menu(win, NO_GLYPH, &any, races[i].noun[0],
|
||||
0, ATR_NONE, races[i].noun, MENU_UNSELECTED);
|
||||
}
|
||||
any.a_int = pick_race(flags.initrole, flags.initgend,
|
||||
flags.initalign, PICK_RANDOM)+1;
|
||||
if (any.a_int == 0) /* must be non-zero */
|
||||
any.a_int = randrace(flags.initrole)+1;
|
||||
add_menu(win, NO_GLYPH, &any , '*', 0, ATR_NONE,
|
||||
"Random", MENU_UNSELECTED);
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
add_menu(win, NO_GLYPH, &any , 'q', 0, ATR_NONE,
|
||||
"Quit", MENU_UNSELECTED);
|
||||
Sprintf(pbuf, "Pick the race of your %s",
|
||||
roles[flags.initrole].name.m);
|
||||
end_menu(win, pbuf);
|
||||
n = select_menu(win, PICK_ONE, &selected);
|
||||
destroy_nhwindow(win);
|
||||
if (n != 1 || selected[0].item.a_int == any.a_int)
|
||||
goto give_up; /* Selected quit */
|
||||
|
||||
k = selected[0].item.a_int - 1;
|
||||
free((genericptr_t) selected), selected = 0;
|
||||
}
|
||||
flags.initrace = k;
|
||||
}
|
||||
}
|
||||
|
||||
/* Select a gender, if necessary */
|
||||
/* force compatibility with role/race, try for compatibility with
|
||||
* pre-selected alignment */
|
||||
if (flags.initgend < 0 || !validgend(flags.initrole, flags.initrace,
|
||||
flags.initgend)) {
|
||||
/* pre-selected gender not valid */
|
||||
if (pick4u == 'y' || flags.initgend == ROLE_RANDOM || flags.randomall) {
|
||||
flags.initgend = pick_gend(flags.initrole, flags.initrace,
|
||||
flags.initalign, PICK_RANDOM);
|
||||
if (flags.initgend < 0) {
|
||||
mar_add_message("Incompatible gender!");
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
flags.initgend = randgend(flags.initrole, flags.initrace);
|
||||
}
|
||||
} else { /* pick4u == 'n' */
|
||||
/* Count the number of valid genders */
|
||||
n = 0; /* number valid */
|
||||
k = 0; /* valid gender */
|
||||
for (i = 0; i < ROLE_GENDERS; i++) {
|
||||
if (ok_gend(flags.initrole, flags.initrace, i,
|
||||
flags.initalign)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
if (n == 0) {
|
||||
for (i = 0; i < ROLE_GENDERS; i++) {
|
||||
if (validgend(flags.initrole, flags.initrace, i)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Permit the user to pick, if there is more than one */
|
||||
if (n > 1) {
|
||||
win = create_nhwindow(NHW_MENU);
|
||||
start_menu(win);
|
||||
any.a_void = 0; /* zero out all bits */
|
||||
for (i = 0; i < ROLE_GENDERS; i++)
|
||||
if (ok_gend(flags.initrole, flags.initrace, i,
|
||||
flags.initalign)) {
|
||||
any.a_int = i+1;
|
||||
add_menu(win, NO_GLYPH, &any, genders[i].adj[0],
|
||||
0, ATR_NONE, genders[i].adj, MENU_UNSELECTED);
|
||||
}
|
||||
any.a_int = pick_gend(flags.initrole, flags.initrace,
|
||||
flags.initalign, PICK_RANDOM)+1;
|
||||
if (any.a_int == 0) /* must be non-zero */
|
||||
any.a_int = randgend(flags.initrole, flags.initrace)+1;
|
||||
add_menu(win, NO_GLYPH, &any , '*', 0, ATR_NONE,
|
||||
"Random", MENU_UNSELECTED);
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
add_menu(win, NO_GLYPH, &any , 'q', 0, ATR_NONE,
|
||||
"Quit", MENU_UNSELECTED);
|
||||
Sprintf(pbuf, "Pick the gender of your %s %s",
|
||||
races[flags.initrace].adj,
|
||||
roles[flags.initrole].name.m);
|
||||
end_menu(win, pbuf);
|
||||
n = select_menu(win, PICK_ONE, &selected);
|
||||
destroy_nhwindow(win);
|
||||
if (n != 1 || selected[0].item.a_int == any.a_int)
|
||||
goto give_up; /* Selected quit */
|
||||
|
||||
k = selected[0].item.a_int - 1;
|
||||
free((genericptr_t) selected), selected = 0;
|
||||
}
|
||||
flags.initgend = k;
|
||||
}
|
||||
}
|
||||
|
||||
/* Select an alignment, if necessary */
|
||||
/* force compatibility with role/race/gender */
|
||||
if (flags.initalign < 0 || !validalign(flags.initrole, flags.initrace,
|
||||
flags.initalign)) {
|
||||
/* pre-selected alignment not valid */
|
||||
if (pick4u == 'y' || flags.initalign == ROLE_RANDOM || flags.randomall) {
|
||||
flags.initalign = pick_align(flags.initrole, flags.initrace,
|
||||
flags.initgend, PICK_RANDOM);
|
||||
if (flags.initalign < 0) {
|
||||
mar_add_message("Incompatible alignment!");
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
flags.initalign = randalign(flags.initrole, flags.initrace);
|
||||
}
|
||||
} else { /* pick4u == 'n' */
|
||||
/* Count the number of valid alignments */
|
||||
n = 0; /* number valid */
|
||||
k = 0; /* valid alignment */
|
||||
for (i = 0; i < ROLE_ALIGNS; i++) {
|
||||
if (ok_align(flags.initrole, flags.initrace, flags.initgend,
|
||||
i)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
if (n == 0) {
|
||||
for (i = 0; i < ROLE_ALIGNS; i++) {
|
||||
if (validalign(flags.initrole, flags.initrace, i)) {
|
||||
n++;
|
||||
k = i;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Permit the user to pick, if there is more than one */
|
||||
if (n > 1) {
|
||||
win = create_nhwindow(NHW_MENU);
|
||||
start_menu(win);
|
||||
any.a_void = 0; /* zero out all bits */
|
||||
for (i = 0; i < ROLE_ALIGNS; i++)
|
||||
if (ok_align(flags.initrole, flags.initrace,
|
||||
flags.initgend, i)) {
|
||||
any.a_int = i+1;
|
||||
add_menu(win, NO_GLYPH, &any, aligns[i].adj[0],
|
||||
0, ATR_NONE, aligns[i].adj, MENU_UNSELECTED);
|
||||
}
|
||||
any.a_int = pick_align(flags.initrole, flags.initrace,
|
||||
flags.initgend, PICK_RANDOM)+1;
|
||||
if (any.a_int == 0) /* must be non-zero */
|
||||
any.a_int = randalign(flags.initrole, flags.initrace)+1;
|
||||
add_menu(win, NO_GLYPH, &any , '*', 0, ATR_NONE,
|
||||
"Random", MENU_UNSELECTED);
|
||||
any.a_int = i+1; /* must be non-zero */
|
||||
add_menu(win, NO_GLYPH, &any , 'q', 0, ATR_NONE,
|
||||
"Quit", MENU_UNSELECTED);
|
||||
Sprintf(pbuf, "Pick the alignment of your %s %s %s",
|
||||
genders[flags.initgend].adj,
|
||||
races[flags.initrace].adj,
|
||||
(flags.initgend && roles[flags.initrole].name.f) ?
|
||||
roles[flags.initrole].name.f :
|
||||
roles[flags.initrole].name.m);
|
||||
end_menu(win, pbuf);
|
||||
n = select_menu(win, PICK_ONE, &selected);
|
||||
destroy_nhwindow(win);
|
||||
if (n != 1 || selected[0].item.a_int == any.a_int)
|
||||
goto give_up; /* Selected quit */
|
||||
|
||||
k = selected[0].item.a_int - 1;
|
||||
free((genericptr_t) selected), selected = 0;
|
||||
}
|
||||
flags.initalign = k;
|
||||
}
|
||||
}
|
||||
|
||||
/* Success! */
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
* plname is filled either by an option (-u Player or -uPlayer) or
|
||||
* explicitly (by being the wizard) or by askname.
|
||||
* It may still contain a suffix denoting pl_character.
|
||||
* Always called after init_nhwindows() and before display_gamewindows().
|
||||
*/
|
||||
|
||||
void
|
||||
Gem_askname()
|
||||
{
|
||||
strncpy(plname,mar_ask_name(),PL_NSIZ);
|
||||
}
|
||||
|
||||
void
|
||||
Gem_get_nh_event()
|
||||
{}
|
||||
|
||||
void
|
||||
Gem_suspend_nhwindows(str)
|
||||
const char *str;
|
||||
{
|
||||
const char *foo;
|
||||
|
||||
foo=str; /* MAR -- And the compiler whines no more ... */
|
||||
}
|
||||
|
||||
void
|
||||
Gem_resume_nhwindows()
|
||||
{}
|
||||
|
||||
void
|
||||
Gem_end_screen()
|
||||
{}
|
||||
|
||||
void
|
||||
Gem_start_screen()
|
||||
{}
|
||||
|
||||
extern void mar_exit_nhwindows(void);
|
||||
extern boolean run_from_desktop;
|
||||
|
||||
void
|
||||
Gem_exit_nhwindows(str)
|
||||
const char *str;
|
||||
{
|
||||
if(str) Gem_raw_print(str);
|
||||
mar_exit_nhwindows();
|
||||
if(flags.toptenwin)
|
||||
run_from_desktop=FALSE;
|
||||
iflags.window_inited = 0;
|
||||
}
|
||||
|
||||
winid
|
||||
Gem_create_nhwindow(type)
|
||||
int type;
|
||||
{
|
||||
winid newid;
|
||||
|
||||
switch(type) {
|
||||
case NHW_MESSAGE:
|
||||
if(iflags.msg_history < 20) iflags.msg_history = 20;
|
||||
else if(iflags.msg_history > 60) iflags.msg_history = 60;
|
||||
break;
|
||||
case NHW_STATUS:
|
||||
case NHW_MAP:
|
||||
case NHW_MENU:
|
||||
case NHW_TEXT:
|
||||
break;
|
||||
default:
|
||||
panic("Tried to create window type %d\n", (int) type);
|
||||
return WIN_ERR;
|
||||
}
|
||||
|
||||
newid=mar_create_window(type);
|
||||
|
||||
if(newid == MAXWIN) {
|
||||
panic("No window slots!");
|
||||
/* NOTREACHED */
|
||||
}
|
||||
|
||||
return newid;
|
||||
}
|
||||
|
||||
void
|
||||
Gem_nhbell()
|
||||
{
|
||||
if (flags.silent) return;
|
||||
putchar('\007');
|
||||
fflush(stdout);
|
||||
}
|
||||
|
||||
extern void mar_clear_map(void);
|
||||
|
||||
void
|
||||
Gem_clear_nhwindow(window)
|
||||
winid window;
|
||||
{
|
||||
if(window == WIN_ERR)
|
||||
panic(winpanicstr, window);
|
||||
|
||||
switch(mar_hol_win_type(window)) {
|
||||
case NHW_MESSAGE:
|
||||
mar_clear_messagewin();
|
||||
break;
|
||||
case NHW_MAP:
|
||||
mar_clear_map();
|
||||
break;
|
||||
case NHW_STATUS:
|
||||
case NHW_MENU:
|
||||
case NHW_TEXT:
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
extern void mar_more(void);
|
||||
|
||||
/*ARGSUSED*/
|
||||
void
|
||||
Gem_display_nhwindow(window, blocking)
|
||||
winid window;
|
||||
boolean blocking;
|
||||
{
|
||||
if(window == WIN_ERR)
|
||||
panic(winpanicstr, window);
|
||||
|
||||
mar_display_nhwindow(window);
|
||||
|
||||
switch(mar_hol_win_type(window)){
|
||||
case NHW_MESSAGE:
|
||||
if(blocking) mar_more();
|
||||
break;
|
||||
case NHW_MAP:
|
||||
if(blocking) Gem_display_nhwindow(WIN_MESSAGE, TRUE);
|
||||
break;
|
||||
case NHW_STATUS:
|
||||
case NHW_TEXT:
|
||||
case NHW_MENU:
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
Gem_destroy_nhwindow(window)
|
||||
winid window;
|
||||
{
|
||||
if(window == WIN_ERR) /* MAR -- test existence */
|
||||
panic(winpanicstr, window);
|
||||
|
||||
mar_destroy_nhwindow(window);
|
||||
}
|
||||
|
||||
extern void mar_curs(int,int); /* mar_curs is only for map */
|
||||
|
||||
void
|
||||
Gem_curs(window, x, y)
|
||||
winid window;
|
||||
register int x, y;
|
||||
{
|
||||
if(window == WIN_ERR) /* MAR -- test existence */
|
||||
panic(winpanicstr, window);
|
||||
|
||||
if(window==WIN_MAP)
|
||||
mar_curs(x-1,y); /*$$$*/
|
||||
else if(window==WIN_STATUS)
|
||||
curr_status_line=y;
|
||||
}
|
||||
|
||||
extern void mar_add_status_str(const char *, int);
|
||||
extern void mar_putstr_text(winid, int, const char *);
|
||||
|
||||
void
|
||||
Gem_putstr(window, attr, str)
|
||||
winid window;
|
||||
int attr;
|
||||
const char *str;
|
||||
{
|
||||
int win_type;
|
||||
|
||||
if(window == WIN_ERR) {
|
||||
Gem_raw_print(str);
|
||||
return;
|
||||
}
|
||||
|
||||
if(str == (const char*)0)
|
||||
return;
|
||||
|
||||
switch((win_type=mar_hol_win_type(window))) {
|
||||
case NHW_MESSAGE:
|
||||
mar_add_message(str);
|
||||
break;
|
||||
|
||||
case NHW_STATUS:
|
||||
mar_status_dirty();
|
||||
mar_add_status_str(str,curr_status_line);
|
||||
if(curr_status_line)
|
||||
mar_display_nhwindow(WIN_STATUS);
|
||||
break;
|
||||
|
||||
case NHW_MAP:
|
||||
if(strcmp(str,"."))
|
||||
Gem_putstr(WIN_MESSAGE,0,str);
|
||||
else
|
||||
mar_map_curs_weiter();
|
||||
break;
|
||||
|
||||
case NHW_MENU:
|
||||
mar_change_menu_2_text(window);
|
||||
/* Fallthru */
|
||||
case NHW_TEXT:
|
||||
mar_putstr_text(window,attr,str);
|
||||
break;
|
||||
} /* endswitch win_type */
|
||||
}
|
||||
|
||||
void
|
||||
Gem_display_file(fname, complain)
|
||||
const char *fname;
|
||||
boolean complain;
|
||||
{
|
||||
dlb *f;
|
||||
char buf[BUFSZ];
|
||||
char *cr;
|
||||
|
||||
f = dlb_fopen(fname, "r");
|
||||
if (!f) {
|
||||
if(complain)
|
||||
pline("Cannot open \"%s\".", fname);
|
||||
} else {
|
||||
winid datawin;
|
||||
|
||||
datawin = Gem_create_nhwindow(NHW_TEXT);
|
||||
while (dlb_fgets(buf, BUFSZ, f)) {
|
||||
if ((cr = index(buf, '\n')) != 0) *cr = 0;
|
||||
if (index(buf, '\t') != 0) (void) tabexpand(buf);
|
||||
Gem_putstr(datawin, 0, buf);
|
||||
}
|
||||
(void) dlb_fclose(f);
|
||||
Gem_display_nhwindow(datawin, FALSE);
|
||||
Gem_destroy_nhwindow(datawin);
|
||||
}
|
||||
}
|
||||
|
||||
/*ARGSUSED*/
|
||||
/*
|
||||
* Add a menu item to the beginning of the menu list. This list is reversed
|
||||
* later.
|
||||
*/
|
||||
void
|
||||
Gem_add_menu(window, glyph, identifier, ch, gch, attr, str, preselected)
|
||||
winid window; /* window to use, must be of type NHW_MENU */
|
||||
int glyph; /* glyph to display with item (unused) */
|
||||
const anything *identifier; /* what to return if selected */
|
||||
char ch; /* keyboard accelerator (0 = pick our own) */
|
||||
char gch; /* group accelerator (0 = no group) */
|
||||
int attr; /* attribute for string (like Gem_putstr()) */
|
||||
const char *str; /* menu string */
|
||||
boolean preselected; /* item is marked as selected */
|
||||
{
|
||||
Gem_menu_item *G_item;
|
||||
const char *newstr;
|
||||
char buf[QBUFSZ];
|
||||
|
||||
if (str == (const char*) 0)
|
||||
return;
|
||||
|
||||
if (window == WIN_ERR) /* MAR -- test existence */
|
||||
panic(winpanicstr, window);
|
||||
|
||||
if (identifier->a_void)
|
||||
Sprintf(buf, "%c - %s", ch ? ch : '?', str);
|
||||
else
|
||||
Sprintf(buf, "%s", str);
|
||||
newstr = buf;
|
||||
|
||||
G_item = (Gem_menu_item *) alloc(sizeof(Gem_menu_item));
|
||||
G_item->Gmi_identifier = (long)identifier->a_void;
|
||||
G_item->Gmi_glyph = glyph!=NO_GLYPH ? glyph2tile[glyph] : NO_GLYPH;
|
||||
G_item->Gmi_count = -1L;
|
||||
G_item->Gmi_selected = preselected ? 1 : 0;
|
||||
G_item->Gmi_accelerator = ch;
|
||||
G_item->Gmi_groupacc = gch;
|
||||
G_item->Gmi_attr = attr;
|
||||
G_item->Gmi_str = copy_of(newstr);
|
||||
mar_add_menu(window, G_item);
|
||||
}
|
||||
|
||||
/*
|
||||
* End a menu in this window, window must a type NHW_MENU.
|
||||
* We assign the keyboard accelerators as needed.
|
||||
*/
|
||||
void
|
||||
Gem_end_menu(window, prompt)
|
||||
winid window; /* menu to use */
|
||||
const char *prompt; /* prompt to for menu */
|
||||
{
|
||||
if(window == WIN_ERR || mar_hol_win_type(window) != NHW_MENU)
|
||||
panic(winpanicstr, window);
|
||||
|
||||
/* Reverse the list so that items are in correct order. */
|
||||
mar_reverse_menu();
|
||||
|
||||
/* Put the prompt at the beginning of the menu. */
|
||||
mar_set_menu_title(prompt);
|
||||
|
||||
mar_set_accelerators();
|
||||
}
|
||||
|
||||
int
|
||||
Gem_select_menu(window, how, menu_list)
|
||||
winid window;
|
||||
int how;
|
||||
menu_item **menu_list;
|
||||
{
|
||||
Gem_menu_item *Gmit;
|
||||
menu_item *mi;
|
||||
int n;
|
||||
|
||||
if(window == WIN_ERR || mar_hol_win_type(window) != NHW_MENU)
|
||||
panic(winpanicstr, window);
|
||||
|
||||
*menu_list = (menu_item *) 0;
|
||||
mar_set_menu_type(how);
|
||||
Gem_display_nhwindow(window, TRUE);
|
||||
|
||||
for (n = 0, Gmit = mar_hol_inv(); Gmit; Gmit = Gmit->Gmi_next)
|
||||
if (Gmit->Gmi_selected) n++;
|
||||
|
||||
if (n > 0) {
|
||||
*menu_list = (menu_item *) alloc(n * sizeof(menu_item));
|
||||
for (mi = *menu_list, Gmit = mar_hol_inv(); Gmit; Gmit = Gmit->Gmi_next)
|
||||
if (Gmit->Gmi_selected) {
|
||||
mi->item = (anything)(genericptr_t)Gmit->Gmi_identifier;
|
||||
mi->count = Gmit->Gmi_count;
|
||||
mi++;
|
||||
}
|
||||
}
|
||||
|
||||
return n;
|
||||
}
|
||||
|
||||
void
|
||||
Gem_update_inventory()
|
||||
{}
|
||||
|
||||
void
|
||||
Gem_mark_synch()
|
||||
{
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
mar_display_nhwindow(WIN_MAP);
|
||||
mar_display_nhwindow(WIN_STATUS);
|
||||
}
|
||||
|
||||
void
|
||||
Gem_wait_synch()
|
||||
{
|
||||
mar_display_nhwindow(WIN_MESSAGE);
|
||||
mar_display_nhwindow(WIN_MAP);
|
||||
mar_display_nhwindow(WIN_STATUS);
|
||||
}
|
||||
|
||||
#ifdef CLIPPING
|
||||
extern void mar_cliparound(void);
|
||||
void
|
||||
Gem_cliparound(x, y)
|
||||
int x, y;
|
||||
{
|
||||
mar_curs(x-1,y);
|
||||
mar_cliparound();
|
||||
}
|
||||
#endif /* CLIPPING */
|
||||
|
||||
/*
|
||||
* Gem_print_glyph
|
||||
*
|
||||
* Print the glyph to the output device. Don't flush the output device.
|
||||
*
|
||||
* Since this is only called from show_glyph(), it is assumed that the
|
||||
* position and glyph are always correct (checked there)!
|
||||
*/
|
||||
|
||||
void mar_print_gl_char(winid,xchar,xchar,int);
|
||||
|
||||
#ifdef REINCARNATION
|
||||
extern int mar_set_rogue(int);
|
||||
#endif
|
||||
|
||||
extern void mar_add_pet_sign(winid,int,int);
|
||||
extern int mar_set_tile_mode(int);
|
||||
|
||||
void
|
||||
Gem_print_glyph(window, x, y, glyph)
|
||||
winid window;
|
||||
xchar x, y;
|
||||
int glyph;
|
||||
{
|
||||
/* Move the cursor. */
|
||||
Gem_curs(window, x,y);
|
||||
|
||||
# ifdef REINCARNATION
|
||||
mar_set_rogue(Is_rogue_level(&u.uz) ? TRUE : FALSE);
|
||||
# endif
|
||||
|
||||
x--; /* MAR -- because x ranges from 1 to COLNO */
|
||||
if(mar_set_tile_mode(-1)){
|
||||
mar_print_glyph(window,x,y,glyph2tile[glyph]);
|
||||
if(glyph_is_pet(glyph)
|
||||
#ifdef TEXTCOLOR
|
||||
&& iflags.hilite_pet
|
||||
#endif
|
||||
)
|
||||
mar_add_pet_sign(window,x,y);
|
||||
}else
|
||||
mar_print_gl_char(window,x,y,glyph);
|
||||
}
|
||||
|
||||
void mar_print_char(winid,xchar,xchar,char,int);
|
||||
|
||||
void mar_print_gl_char(window, x, y, glyph)
|
||||
winid window;
|
||||
xchar x, y;
|
||||
int glyph;
|
||||
{
|
||||
uchar ch;
|
||||
int color;
|
||||
unsigned special;
|
||||
|
||||
/* map glyph to character and color */
|
||||
mapglyph(glyph, &ch, &color, &special, x, y);
|
||||
|
||||
#ifdef TEXTCOLOR
|
||||
/* Turn off color if rogue level. */
|
||||
# ifdef REINCARNATION
|
||||
if (Is_rogue_level(&u.uz)) color = NO_COLOR;
|
||||
# endif
|
||||
#endif /* TEXTCOLOR */
|
||||
|
||||
mar_print_char(window,x,y,ch,color);
|
||||
}
|
||||
|
||||
extern void mar_raw_print(const char *);
|
||||
extern void mar_raw_print_bold(const char *);
|
||||
|
||||
void
|
||||
Gem_raw_print(str)
|
||||
const char *str;
|
||||
{
|
||||
if(str && *str){
|
||||
if(iflags.window_inited) mar_raw_print(str);
|
||||
else printf("%s\n",str);
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
Gem_raw_print_bold(str)
|
||||
const char *str;
|
||||
{
|
||||
if(str && *str){
|
||||
if(iflags.window_inited) mar_raw_print_bold(str);
|
||||
else printf("%s\n",str);
|
||||
}
|
||||
}
|
||||
|
||||
extern void mar_update_value(void); /* wingem1.c */
|
||||
|
||||
int
|
||||
Gem_nhgetch()
|
||||
{
|
||||
int i;
|
||||
|
||||
mar_update_value();
|
||||
i = tgetch();
|
||||
if (!i) i = '\033'; /* map NUL to ESC since nethack doesn't expect NUL */
|
||||
|
||||
return i;
|
||||
}
|
||||
|
||||
/* Get a extended command in windowport specific way.
|
||||
returns index of the ext_cmd or -1.
|
||||
called after '#'.
|
||||
It's a menu with all the possibilities. */
|
||||
int
|
||||
Gem_get_ext_cmd()
|
||||
{
|
||||
winid wind;
|
||||
int i, count, what,too_much=FALSE;
|
||||
menu_item *selected=NULL;
|
||||
anything any;
|
||||
char accelerator=0, tmp_acc=0;
|
||||
const char *ptr;
|
||||
|
||||
wind=Gem_create_nhwindow(NHW_MENU);
|
||||
Gem_start_menu(wind);
|
||||
for(i=0;(ptr=extcmdlist[i].ef_txt);i++){
|
||||
any.a_int=i;
|
||||
accelerator=*ptr;
|
||||
if(tmp_acc==accelerator){
|
||||
if(too_much)
|
||||
accelerator='&'; /* MAR -- poor choice, anyone? */
|
||||
else
|
||||
accelerator+='A'-'a';
|
||||
too_much=TRUE;
|
||||
}else
|
||||
too_much=FALSE;
|
||||
tmp_acc=*ptr;
|
||||
Gem_add_menu(wind,NO_GLYPH,&any,accelerator,0,ATR_NONE,ptr,FALSE);
|
||||
}
|
||||
Gem_end_menu(wind,"What extended command?");
|
||||
count=Gem_select_menu(wind,PICK_ONE,&selected);
|
||||
what = count ? selected->item.a_int : -1;
|
||||
if(selected) free(selected);
|
||||
Gem_destroy_nhwindow(wind);
|
||||
return(what);
|
||||
}
|
||||
|
||||
void
|
||||
Gem_number_pad(state)
|
||||
int state;
|
||||
{
|
||||
state=state;
|
||||
}
|
||||
|
||||
void
|
||||
win_Gem_init()
|
||||
{}
|
||||
|
||||
#ifdef POSITIONBAR
|
||||
void
|
||||
Gem_update_positionbar(posbar)
|
||||
char *posbar;
|
||||
{}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Allocate a copy of the given string. If null, return a string of
|
||||
* zero length.
|
||||
*
|
||||
* This is an exact duplicate of copy_of() in X11/winmenu.c.
|
||||
*/
|
||||
static char *
|
||||
copy_of(s)
|
||||
const char *s;
|
||||
{
|
||||
if (!s) s = nullstr;
|
||||
return strcpy((char *) alloc((unsigned) (strlen(s) + 1)), s);
|
||||
}
|
||||
|
||||
#endif /* GEM_GRAPHICS
|
||||
|
||||
/*wingem.c*/
|
||||
Reference in New Issue
Block a user