| Rev. | 1906 |
|---|---|
| サイズ | 123,907 バイト |
| 日時 | 2013-03-21 19:55:34 |
| 作者 | iks |
| ログメッセージ | Fix sound setting lost bug (except bgm) at start/restart game |
/* File: main-win.c */
/*
* Copyright (c) 1997 Ben Harrison, Skirmantas Kligys, Robert Ruehlmann,
* and others
*
* This software may be copied and distributed for educational, research,
* and not for profit purposes provided that this copyright and statement
* are included in all such copies.
*/
/*
* This file helps Angband work with Windows computers.
*
* To use this file, use an appropriate "Makefile" or "Project File",
* make sure that "WINDOWS" and/or "WIN32" are defined somewhere, and
* make sure to obtain various extra files as described below.
*
* The Windows version has been tested to compile with Visual C++ 5.0
* and 6.0, CygWin 2.01 Beta, Borland C++ 5.5 command line tools, and
* lcc-win32.
*
*
* See also "main-dos.c" and "main-ibm.c".
*
*
* The "lib/user/pref-win.prf" file contains keymaps, macro definitions,
* and/or color redefinitions.
*
* The "lib/user/font-win.prf" contains attr/char mappings for use with the
* normal "*.fon" font files in the "lib/xtra/font/" directory.
*
* The "lib/user/graf-win.prf" contains attr/char mappings for use with the
* special "*.bmp" bitmap files in the "lib/xtra/graf/" directory, which
* are activated by a menu item.
*
*
* Compiling this file, and using the resulting executable, requires
* several extra files not distributed with the standard Angband code.
* If "USE_GRAPHICS" is defined, then "readdib.h" and "readdib.c" must
* be placed into "src/", and the "8X8.BMP" bitmap file must be placed
* into "lib/xtra/graf". In any case, some "*.fon" files (including
* "8X13.FON" if nothing else) must be placed into "lib/xtra/font/".
* If "USE_SOUND" is defined, then some special library (for example,
* "winmm.lib") may need to be linked in, and desired "*.WAV" sound
* files must be placed into "lib/xtra/sound/". All of these extra
* files can be found in the "ext-win" archive.
*
*
* The "Term_xtra_win_clear()" function should probably do a low-level
* clear of the current window, and redraw the borders and other things,
* if only for efficiency. XXX XXX XXX
*
* A simpler method is needed for selecting the "tile size" for windows.
* XXX XXX XXX
*
* Special "Windows Help Files" can be placed into "lib/xtra/help/" for
* use with the "winhelp.exe" program. These files *may* be available
* at the ftp site somewhere, but I have not seen them. XXX XXX XXX
*
* ToDo: The screensaver mode should implement ScreenSaverConfigureDialog,
* DefScreenSaverProc, and ScreenSaverProc.
*
* Initial framework (and most code) by Ben Harrison (benh@phial.com).
*
* Original code by Skirmantas Kligys (kligys@scf.usc.edu).
*
* Additional code by Ross E Becker (beckerr@cis.ohio-state.edu),
* and Chris R. Martin (crm7479@tam2000.tamu.edu).
*
* Additional code by Robert Ruehlmann <rr9@angband.org>.
*/
#include "angband.h"
#include <windows.h>
#ifdef USE_SOUND
#include <MMSystem.h>
#endif
#ifdef WINDOWS
/*
* Use HTML-Help.
*/
/* #define HTML_HELP */
#ifdef HTML_HELP
# define HELP_GENERAL "angband.chm"
# define HELP_SPOILERS "angband.chm"
#else /* HTML_HELP */
# define HELP_GENERAL "angband.hlp"
# define HELP_SPOILERS "spoilers.hlp"
#endif /* HTML_HELP */
/*
* Extract the "WIN32" flag from the compiler
*/
#if defined(__WIN32__) || defined(__WINNT__) || defined(__NT__)
# ifndef WIN32
# define WIN32
# endif
#endif
/*
* Hack -- allow use of "screen saver" mode
*/
/*#define USE_SAVER*/
/*
* Menu constants -- see "ANGBAND.RC"
*/
#define IDM_FILE_NEW 100
#define IDM_FILE_OPEN 101
#define IDM_FILE_SAVE 110
#define IDM_FILE_SCORE 120
#define IDM_FILE_MOVIE 121
#define IDM_FILE_EXIT 130
#define IDM_WINDOW_VIS_0 200
#define IDM_WINDOW_VIS_1 201
#define IDM_WINDOW_VIS_2 202
#define IDM_WINDOW_VIS_3 203
#define IDM_WINDOW_VIS_4 204
#define IDM_WINDOW_VIS_5 205
#define IDM_WINDOW_VIS_6 206
#define IDM_WINDOW_VIS_7 207
#define IDM_WINDOW_FONT_0 210
#define IDM_WINDOW_FONT_1 211
#define IDM_WINDOW_FONT_2 212
#define IDM_WINDOW_FONT_3 213
#define IDM_WINDOW_FONT_4 214
#define IDM_WINDOW_FONT_5 215
#define IDM_WINDOW_FONT_6 216
#define IDM_WINDOW_FONT_7 217
#define IDM_WINDOW_POS_0 220
#define IDM_WINDOW_POS_1 221
#define IDM_WINDOW_POS_2 222
#define IDM_WINDOW_POS_3 223
#define IDM_WINDOW_POS_4 224
#define IDM_WINDOW_POS_5 225
#define IDM_WINDOW_POS_6 226
#define IDM_WINDOW_POS_7 227
#define IDM_WINDOW_BIZ_0 230
#define IDM_WINDOW_BIZ_1 231
#define IDM_WINDOW_BIZ_2 232
#define IDM_WINDOW_BIZ_3 233
#define IDM_WINDOW_BIZ_4 234
#define IDM_WINDOW_BIZ_5 235
#define IDM_WINDOW_BIZ_6 236
#define IDM_WINDOW_BIZ_7 237
#define IDM_WINDOW_I_WID_0 240
#define IDM_WINDOW_I_WID_1 241
#define IDM_WINDOW_I_WID_2 242
#define IDM_WINDOW_I_WID_3 243
#define IDM_WINDOW_I_WID_4 244
#define IDM_WINDOW_I_WID_5 245
#define IDM_WINDOW_I_WID_6 246
#define IDM_WINDOW_I_WID_7 247
#define IDM_WINDOW_D_WID_0 250
#define IDM_WINDOW_D_WID_1 251
#define IDM_WINDOW_D_WID_2 252
#define IDM_WINDOW_D_WID_3 253
#define IDM_WINDOW_D_WID_4 254
#define IDM_WINDOW_D_WID_5 255
#define IDM_WINDOW_D_WID_6 256
#define IDM_WINDOW_D_WID_7 257
#define IDM_WINDOW_I_HGT_0 260
#define IDM_WINDOW_I_HGT_1 261
#define IDM_WINDOW_I_HGT_2 262
#define IDM_WINDOW_I_HGT_3 263
#define IDM_WINDOW_I_HGT_4 264
#define IDM_WINDOW_I_HGT_5 265
#define IDM_WINDOW_I_HGT_6 266
#define IDM_WINDOW_I_HGT_7 267
#define IDM_WINDOW_D_HGT_0 270
#define IDM_WINDOW_D_HGT_1 271
#define IDM_WINDOW_D_HGT_2 272
#define IDM_WINDOW_D_HGT_3 273
#define IDM_WINDOW_D_HGT_4 274
#define IDM_WINDOW_D_HGT_5 275
#define IDM_WINDOW_D_HGT_6 276
#define IDM_WINDOW_D_HGT_7 277
#define IDM_OPTIONS_NO_GRAPHICS 400
#define IDM_OPTIONS_OLD_GRAPHICS 401
#define IDM_OPTIONS_24X24_GRAPHICS 402
#define IDM_OPTIONS_NEW_GRAPHICS 403
#define IDM_OPTIONS_BIGTILE 409
#define IDM_OPTIONS_SOUND 410
#define IDM_OPTIONS_LOW_PRIORITY 420
#define IDM_OPTIONS_SAVER 430
#define IDM_OPTIONS_MAP 440
#define IDM_OPTIONS_BG 450
#define IDM_OPTIONS_OPEN_BG 451
#define IDM_DUMP_SCREEN_HTML 452
#define IDM_HELP_GENERAL 901
#define IDM_HELP_SPOILERS 902
/*
* This may need to be removed for some compilers XXX XXX XXX
*/
//#define STRICT
/*
* Exclude parts of WINDOWS.H that are not needed
*/
#define NOCOMM /* Comm driver APIs and definitions */
#define NOLOGERROR /* LogError() and related definitions */
#define NOPROFILER /* Profiler APIs */
#define NOLFILEIO /* _l* file I/O routines */
#define NOOPENFILE /* OpenFile and related definitions */
#define NORESOURCE /* Resource management */
#define NOATOM /* Atom management */
#define NOLANGUAGE /* Character test routines */
#define NOLSTRING /* lstr* string management routines */
#define NODBCS /* Double-byte character set routines */
#define NOKEYBOARDINFO /* Keyboard driver routines */
#define NOCOLOR /* COLOR_* color values */
#define NODRAWTEXT /* DrawText() and related definitions */
#define NOSCALABLEFONT /* Truetype scalable font support */
#define NOMETAFILE /* Metafile support */
#define NOSYSTEMPARAMSINFO /* SystemParametersInfo() and SPI_* definitions */
#define NODEFERWINDOWPOS /* DeferWindowPos and related definitions */
#define NOKEYSTATES /* MK_* message key state flags */
#define NOWH /* SetWindowsHook and related WH_* definitions */
#define NOCLIPBOARD /* Clipboard APIs and definitions */
#define NOICONS /* IDI_* icon IDs */
#define NOMDI /* MDI support */
#define NOHELP /* Help support */
/* Not defined since it breaks Borland C++ 5.5 */
/* #define NOCTLMGR */ /* Control management and controls */
/*
* Exclude parts of WINDOWS.H that are not needed (Win32)
*/
#define WIN32_LEAN_AND_MEAN
#define NONLS /* All NLS defines and routines */
#define NOSERVICE /* All Service Controller routines, SERVICE_ equates, etc. */
#define NOKANJI /* Kanji support stuff. */
#define NOMCX /* Modem Configuration Extensions */
/*
* Include the "windows" support file
*/
#include <windows.h>
/*
* Exclude parts of MMSYSTEM.H that are not needed
*/
#define MMNODRV /* Installable driver support */
#define MMNOWAVE /* Waveform support */
#define MMNOMIDI /* MIDI support */
#define MMNOAUX /* Auxiliary audio support */
#define MMNOTIMER /* Timer support */
#define MMNOJOY /* Joystick support */
#define MMNOMCI /* MCI support */
#define MMNOMMIO /* Multimedia file I/O support */
#define MMNOMMSYSTEM /* General MMSYSTEM functions */
/*
* Include some more files. Note: the Cygnus Cygwin compiler
* doesn't use mmsystem.h instead it includes the winmm library
* which performs a similar function.
*/
#ifndef __CYGWIN__
# include <mmsystem.h>
#endif /* __CYGWIN__ */
#include <commdlg.h>
/*
* HTML-Help requires htmlhelp.h and htmlhelp.lib from Microsoft's
* HTML Workshop < msdn.microsoft.com/workshop/author/htmlhelp/ >.
*/
#ifdef HTML_HELP
#include <htmlhelp.h>
#endif /* HTML_HELP */
/*
* Include the support for loading bitmaps
*/
#ifdef USE_GRAPHICS
# include "readdib.h"
#endif /* USE_GRAPHICS */
/*
* Hack -- Fake declarations from "dos.h" XXX XXX XXX
*/
#ifdef WIN32
#define INVALID_FILE_NAME (DWORD)0xFFFFFFFF
#else /* WIN32 */
#define FA_LABEL 0x08 /* Volume label */
#define FA_DIREC 0x10 /* Directory */
unsigned _cdecl _dos_getfileattr(const char *, unsigned *);
#endif /* WIN32 */
/*
* Silliness in WIN32 drawing routine
*/
#ifdef WIN32
# define MoveTo(H,X,Y) MoveToEx(H, X, Y, NULL)
#endif /* WIN32 */
/*
* Silliness for Windows 95
*/
#ifndef WS_EX_TOOLWINDOW
# define WS_EX_TOOLWINDOW 0
#endif /* WS_EX_TOOLWINDOW */
/*
* Foreground color bits (hard-coded by DOS)
*/
#define VID_BLACK 0x00
#define VID_BLUE 0x01
#define VID_GREEN 0x02
#define VID_CYAN 0x03
#define VID_RED 0x04
#define VID_MAGENTA 0x05
#define VID_YELLOW 0x06
#define VID_WHITE 0x07
/*
* Bright text (hard-coded by DOS)
*/
#define VID_BRIGHT 0x08
/*
* Background color bits (hard-coded by DOS)
*/
#define VUD_BLACK 0x00
#define VUD_BLUE 0x10
#define VUD_GREEN 0x20
#define VUD_CYAN 0x30
#define VUD_RED 0x40
#define VUD_MAGENTA 0x50
#define VUD_YELLOW 0x60
#define VUD_WHITE 0x70
/*
* Blinking text (hard-coded by DOS)
*/
#define VUD_BRIGHT 0x80
/*
* Forward declare
*/
typedef struct _term_data term_data;
/*
* Extra "term" data
*
* Note the use of "font_want" for the names of the font file requested by
* the user, and the use of "font_file" for the currently active font file.
*
* The "font_file" is uppercased, and takes the form "8X13.FON", while
* "font_want" can be in almost any form as long as it could be construed
* as attempting to represent the name of a font.
*/
struct _term_data
{
term t;
cptr s;
HWND w;
DWORD dwStyle;
DWORD dwExStyle;
uint keys;
uint rows;
uint cols;
uint pos_x;
uint pos_y;
uint size_wid;
uint size_hgt;
uint size_ow1;
uint size_oh1;
uint size_ow2;
uint size_oh2;
bool size_hack;
bool xtra_hack;
bool visible;
bool bizarre;
cptr font_want;
cptr font_file;
HFONT font_id;
uint font_wid;
uint font_hgt;
uint tile_wid;
uint tile_hgt;
uint map_tile_wid;
uint map_tile_hgt;
bool map_active;
#if 1 /* #ifdef JP */
LOGFONT lf;
#endif
bool posfix;
};
/*
* Maximum number of windows XXX XXX XXX
*/
#define MAX_TERM_DATA 8
/*
* An array of term_data's
*/
static term_data data[MAX_TERM_DATA];
/*
* Hack -- global "window creation" pointer
*/
static term_data *my_td;
/*
* Remember normal size of main window when maxmized
*/
POINT normsize;
/*
* was main window maximized on previous playing
*/
bool win_maximized = FALSE;
/*
* game in progress
*/
bool game_in_progress = FALSE;
/*
* note when "open"/"new" become valid
*/
bool initialized = FALSE;
/*
* screen paletted, i.e. 256 colors
*/
bool paletted = FALSE;
/*
* 16 colors screen, don't use RGB()
*/
bool colors16 = FALSE;
static bool low_priority = FALSE;
/*
* Saved instance handle
*/
static HINSTANCE hInstance;
/*
* Yellow brush for the cursor
*/
static HBRUSH hbrYellow;
/*
* An icon
*/
static HICON hIcon;
/*
* A palette
*/
static HPALETTE hPal;
/* bg */
static HBITMAP hBG = NULL;
static int use_bg = 0;
static char bg_bitmap_file[1024] = "bg.bmp";
#ifdef USE_SAVER
/*
* The screen saver window
*/
static HWND hwndSaver;
static bool screensaver = FALSE;
static bool screensaver_active = FALSE;
static HANDLE screensaverSemaphore;
static char saverfilename[1024];
static HMENU main_menu;
#define MOUSE_SENS 10
#endif /* USE_SAVER */
#ifdef USE_GRAPHICS
/*
* Flag set once "graphics" has been initialized
*/
static bool can_use_graphics = FALSE;
/*
* The global bitmap
*/
static DIBINIT infGraph;
/*
* The global bitmap mask
*/
static DIBINIT infMask;
#endif /* USE_GRAPHICS */
#ifdef USE_SOUND
/*
* Flag set once "sound" has been initialized
*/
static bool can_use_sound = FALSE;
#define SAMPLE_MAX 8
/*
* An array of sound file names
*/
static cptr sound_file[SOUND_MAX][SAMPLE_MAX];
static cptr bgm_file[BGM_MAX][SAMPLE_MAX];
static char mci_device_name[256];
#endif /* USE_SOUND */
/*
* Full path to ANGBAND.INI
*/
static cptr ini_file = NULL;
/*
* Name of application
*/
static cptr AppName = "ANGBAND";
/*
* Name of sub-window type
*/
static cptr AngList = "AngList";
/*
* Directory names
*/
static cptr ANGBAND_DIR_XTRA_GRAF;
static cptr ANGBAND_DIR_XTRA_SOUND;
static cptr ANGBAND_DIR_XTRA_MUSIC;
static cptr ANGBAND_DIR_XTRA_HELP;
#ifndef JP
static cptr ANGBAND_DIR_XTRA_FONT;
#endif
/*
* The "complex" color values
*/
static COLORREF win_clr[256];
/*
* Flag for macro trigger with dump ASCII
*/
static bool Term_no_press = FALSE;
/*
* Copy and paste
*/
static bool mouse_down = FALSE;
static bool paint_rect = FALSE;
static int mousex = 0, mousey = 0;
static int oldx, oldy;
/*
* The "simple" color values
*
* See "main-ibm.c" for original table information
*
* The entries below are taken from the "color bits" defined above.
*
* Note that many of the choices below suck, but so do crappy monitors.
*/
static BYTE win_pal[256] =
{
VID_BLACK, /* Dark */
VID_WHITE, /* White */
VID_CYAN, /* Slate XXX */
VID_RED | VID_BRIGHT, /* Orange XXX */
VID_RED, /* Red */
VID_GREEN, /* Green */
VID_BLUE, /* Blue */
VID_YELLOW, /* Umber XXX */
VID_BLACK | VID_BRIGHT, /* Light Dark */
VID_CYAN | VID_BRIGHT, /* Light Slate XXX */
VID_MAGENTA, /* Violet XXX */
VID_YELLOW | VID_BRIGHT, /* Yellow */
VID_MAGENTA | VID_BRIGHT, /* Light Red XXX */
VID_GREEN | VID_BRIGHT, /* Light Green */
VID_BLUE | VID_BRIGHT, /* Light Blue */
VID_YELLOW /* Light Umber XXX */
};
#ifdef SUPPORT_GAMMA
static int gamma_correction;
#endif /* SUPPORT_GAMMA */
/*
* Hack -- define which keys are "special"
*/
static bool special_key[256];
static bool ignore_key[256];
#if 1
/*
* Hack -- initialization list for "special_key"
*/
static byte special_key_list[] = {
VK_CLEAR, VK_PAUSE, VK_CAPITAL,
VK_KANA, VK_JUNJA, VK_FINAL, VK_KANJI,
VK_CONVERT, VK_NONCONVERT, VK_ACCEPT, VK_MODECHANGE,
VK_PRIOR, VK_NEXT, VK_END, VK_HOME,
VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN,
VK_SELECT, VK_PRINT, VK_EXECUTE, VK_SNAPSHOT,
VK_INSERT, VK_DELETE, VK_HELP, VK_APPS,
VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3,
VK_NUMPAD4, VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7,
VK_NUMPAD8, VK_NUMPAD9, VK_MULTIPLY, VK_ADD,
VK_SEPARATOR, VK_SUBTRACT, VK_DECIMAL, VK_DIVIDE,
VK_F1, VK_F2, VK_F3, VK_F4, VK_F5, VK_F6,
VK_F7, VK_F8, VK_F9, VK_F10, VK_F11, VK_F12,
VK_F13, VK_F14, VK_F15, VK_F16, VK_F17, VK_F18,
VK_F19,VK_F20, VK_F21, VK_F22, VK_F23, VK_F24,
VK_NUMLOCK, VK_SCROLL, VK_ATTN, VK_CRSEL,
VK_EXSEL, VK_EREOF, VK_PLAY, VK_ZOOM,
VK_NONAME, VK_PA1,
0 /* End of List */
};
static byte ignore_key_list[] = {
VK_ESCAPE, VK_TAB, VK_SPACE,
'F', 'W', 'O', /*'H',*/ /* these are menu characters.*/
VK_SHIFT, VK_CONTROL, VK_MENU, VK_LWIN, VK_RWIN,
VK_LSHIFT, VK_RSHIFT, VK_LCONTROL, VK_RCONTROL,
VK_LMENU, VK_RMENU,
0 /* End of List */
};
#else
/*
* Hack -- initialization list for "special_key"
*
* We ignore the modifier keys (shift, control, alt, num lock, scroll lock),
* and the normal keys (escape, tab, return, letters, numbers, etc), but we
* catch the keypad keys (with and without numlock set, including keypad 5),
* the function keys (including the "menu" key which maps to F10), and the
* "pause" key (between scroll lock and numlock). We also catch a few odd
* keys which I do not recognize, but which are listed among keys which we
* do catch, so they should be harmless to catch.
*/
static byte special_key_list[] =
{
VK_CLEAR, /* 0x0C (KP<5>) */
VK_PAUSE, /* 0x13 (pause) */
VK_PRIOR, /* 0x21 (KP<9>) */
VK_NEXT, /* 0x22 (KP<3>) */
VK_END, /* 0x23 (KP<1>) */
VK_HOME, /* 0x24 (KP<7>) */
VK_LEFT, /* 0x25 (KP<4>) */
VK_UP, /* 0x26 (KP<8>) */
VK_RIGHT, /* 0x27 (KP<6>) */
VK_DOWN, /* 0x28 (KP<2>) */
VK_SELECT, /* 0x29 (?????) */
VK_PRINT, /* 0x2A (?????) */
VK_EXECUTE, /* 0x2B (?????) */
VK_SNAPSHOT, /* 0x2C (?????) */
VK_INSERT, /* 0x2D (KP<0>) */
VK_DELETE, /* 0x2E (KP<.>) */
VK_HELP, /* 0x2F (?????) */
#if 0
VK_NUMPAD0, /* 0x60 (KP<0>) */
VK_NUMPAD1, /* 0x61 (KP<1>) */
VK_NUMPAD2, /* 0x62 (KP<2>) */
VK_NUMPAD3, /* 0x63 (KP<3>) */
VK_NUMPAD4, /* 0x64 (KP<4>) */
VK_NUMPAD5, /* 0x65 (KP<5>) */
VK_NUMPAD6, /* 0x66 (KP<6>) */
VK_NUMPAD7, /* 0x67 (KP<7>) */
VK_NUMPAD8, /* 0x68 (KP<8>) */
VK_NUMPAD9, /* 0x69 (KP<9>) */
VK_MULTIPLY, /* 0x6A (KP<*>) */
VK_ADD, /* 0x6B (KP<+>) */
VK_SEPARATOR, /* 0x6C (?????) */
VK_SUBTRACT, /* 0x6D (KP<->) */
VK_DECIMAL, /* 0x6E (KP<.>) */
VK_DIVIDE, /* 0x6F (KP</>) */
#endif /* 0 */
VK_F1, /* 0x70 */
VK_F2, /* 0x71 */
VK_F3, /* 0x72 */
VK_F4, /* 0x73 */
VK_F5, /* 0x74 */
VK_F6, /* 0x75 */
VK_F7, /* 0x76 */
VK_F8, /* 0x77 */
VK_F9, /* 0x78 */
VK_F10, /* 0x79 */
VK_F11, /* 0x7A */
VK_F12, /* 0x7B */
VK_F13, /* 0x7C */
VK_F14, /* 0x7D */
VK_F15, /* 0x7E */
VK_F16, /* 0x7F */
VK_F17, /* 0x80 */
VK_F18, /* 0x81 */
VK_F19, /* 0x82 */
VK_F20, /* 0x83 */
VK_F21, /* 0x84 */
VK_F22, /* 0x85 */
VK_F23, /* 0x86 */
VK_F24, /* 0x87 */
0
};
#endif
/* bg */
static void delete_bg(void)
{
if (hBG != NULL)
{
DeleteObject(hBG);
hBG = NULL;
}
}
static int init_bg(void)
{
char * bmfile = bg_bitmap_file;
delete_bg();
if (use_bg == 0) return 0;
hBG = LoadImage(NULL, bmfile, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
if (!hBG) {
plog_fmt("壁紙用ビットマップ '%s' を読み込めません。", bmfile);
use_bg = 0;
return 0;
}
use_bg = 1;
return 1;
}
static void DrawBG(HDC hdc, RECT *r)
{
HDC hdcSrc;
HBITMAP hOld;
BITMAP bm;
int x = r->left, y = r->top;
int nx, ny, sx, sy, swid, shgt, cwid, chgt;
if (!use_bg || !hBG)
return;
nx = x; ny = y;
GetObject(hBG, sizeof(bm), &bm);
swid = bm.bmWidth; shgt = bm.bmHeight;
hdcSrc = CreateCompatibleDC(hdc);
hOld = SelectObject(hdcSrc, hBG);
do {
sx = nx % swid;
cwid = MIN(swid - sx, r->right - nx);
do {
sy = ny % shgt;
chgt = MIN(shgt - sy, r->bottom - ny);
BitBlt(hdc, nx, ny, cwid, chgt, hdcSrc, sx, sy, SRCCOPY);
ny += chgt;
} while (ny < r->bottom);
ny = y;
nx += cwid;
} while (nx < r->right);
SelectObject(hdcSrc, hOld);
DeleteDC(hdcSrc);
}
#if 0
/*
* Hack -- given a pathname, point at the filename
*/
static cptr extract_file_name(cptr s)
{
cptr p;
/* Start at the end */
p = s + strlen(s) - 1;
/* Back up to divider */
while ((p >= s) && (*p != ':') && (*p != '\\')) p--;
/* Return file name */
return (p+1);
}
#endif /* 0 */
/*
* Hack -- given a simple filename, extract the "font size" info
*
* Return a pointer to a static buffer holding the capitalized base name.
*/
#ifndef JP
static char *analyze_font(char *path, int *wp, int *hp)
{
int wid, hgt;
char *s, *p;
/* Start at the end */
p = path + strlen(path) - 1;
/* Back up to divider */
while ((p >= path) && (*p != ':') && (*p != '\\')) --p;
/* Advance to file name */
++p;
/* Capitalize */
for (s = p; *s; ++s)
{
/* Capitalize (be paranoid) */
if (islower(*s)) *s = toupper(*s);
}
/* Find first 'X' */
s = my_strchr(p, 'X');
/* Extract font width */
wid = atoi(p);
/* Extract height */
hgt = s ? atoi(s+1) : 0;
/* Save results */
(*wp) = wid;
(*hp) = hgt;
/* Result */
return (p);
}
#endif
/*
* Check for existance of a file
*/
static bool check_file(cptr s)
{
char path[1024];
#ifdef WIN32
DWORD attrib;
#else /* WIN32 */
unsigned int attrib;
#endif /* WIN32 */
/* Copy it */
strcpy(path, s);
#ifdef WIN32
/* Examine */
attrib = GetFileAttributes(path);
/* Require valid filename */
if (attrib == INVALID_FILE_NAME) return (FALSE);
/* Prohibit directory */
if (attrib & FILE_ATTRIBUTE_DIRECTORY) return (FALSE);
#else /* WIN32 */
/* Examine and verify */
if (_dos_getfileattr(path, &attrib)) return (FALSE);
/* Prohibit something */
if (attrib & FA_LABEL) return (FALSE);
/* Prohibit directory */
if (attrib & FA_DIREC) return (FALSE);
#endif /* WIN32 */
/* Success */
return (TRUE);
}
/*
* Check for existance of a directory
*/
static bool check_dir(cptr s)
{
int i;
char path[1024];
#ifdef WIN32
DWORD attrib;
#else /* WIN32 */
unsigned int attrib;
#endif /* WIN32 */
/* Copy it */
strcpy(path, s);
/* Check length */
i = strlen(path);
/* Remove trailing backslash */
if (i && (path[i-1] == '\\')) path[--i] = '\0';
#ifdef WIN32
/* Examine */
attrib = GetFileAttributes(path);
/* Require valid filename */
if (attrib == INVALID_FILE_NAME) return (FALSE);
/* Require directory */
if (!(attrib & FILE_ATTRIBUTE_DIRECTORY)) return (FALSE);
#else /* WIN32 */
/* Examine and verify */
if (_dos_getfileattr(path, &attrib)) return (FALSE);
/* Prohibit something */
if (attrib & FA_LABEL) return (FALSE);
/* Require directory */
if (!(attrib & FA_DIREC)) return (FALSE);
#endif /* WIN32 */
/* Success */
return (TRUE);
}
/*
* Validate a file
*/
static void validate_file(cptr s)
{
/* Verify or fail */
if (!check_file(s))
{
#ifdef JP
quit_fmt("必要なファイル[%s]が見あたりません。", s);
#else
quit_fmt("Cannot find required file:\n%s", s);
#endif
}
}
/*
* Validate a directory
*/
static void validate_dir(cptr s)
{
/* Verify or fail */
if (!check_dir(s))
{
#ifdef JP
quit_fmt("必要なディレクトリ[%s]が見あたりません。", s);
#else
quit_fmt("Cannot find required directory:\n%s", s);
#endif
}
}
/*
* Get the "size" for a window
*/
static void term_getsize(term_data *td)
{
RECT rc;
int wid, hgt;
/* Paranoia */
if (td->cols < 1) td->cols = 1;
if (td->rows < 1) td->rows = 1;
/* Window sizes */
wid = td->cols * td->tile_wid + td->size_ow1 + td->size_ow2;
hgt = td->rows * td->tile_hgt + td->size_oh1 + td->size_oh2;
/* Fake window size */
rc.left = 0;
rc.right = rc.left + wid;
rc.top = 0;
rc.bottom = rc.top + hgt;
/* XXX XXX XXX */
/* rc.right += 1; */
/* rc.bottom += 1; */
/* Adjust */
AdjustWindowRectEx(&rc, td->dwStyle, TRUE, td->dwExStyle);
/* Total size */
td->size_wid = rc.right - rc.left;
td->size_hgt = rc.bottom - rc.top;
/* See CreateWindowEx */
if (!td->w) return;
/* Extract actual location */
GetWindowRect(td->w, &rc);
/* Save the location */
td->pos_x = rc.left;
td->pos_y = rc.top;
}
/*
* Write the "prefs" for a single term
*/
static void save_prefs_aux(int i)
{
term_data *td = &data[i];
char sec_name[128];
char buf[1024];
RECT rc;
WINDOWPLACEMENT lpwndpl;
/* Paranoia */
if (!td->w) return;
/* Make section name */
sprintf(sec_name, "Term-%d", i);
/* Visible */
if (i > 0)
{
strcpy(buf, td->visible ? "1" : "0");
WritePrivateProfileString(sec_name, "Visible", buf, ini_file);
}
/* Font */
#ifdef JP
strcpy(buf, td->lf.lfFaceName[0]!='\0' ? td->lf.lfFaceName : "ＭＳ ゴシック");
#else
#if 0
strcpy(buf, td->font_file ? td->font_file : "8X13.FON");
#else
strcpy(buf, td->lf.lfFaceName[0]!='\0' ? td->lf.lfFaceName : "Courier");
#endif
#endif
WritePrivateProfileString(sec_name, "Font", buf, ini_file);
#if 1 /* #ifdef JP */
wsprintf(buf, "%d", td->lf.lfWidth);
WritePrivateProfileString(sec_name, "FontWid", buf, ini_file);
wsprintf(buf, "%d", td->lf.lfHeight);
WritePrivateProfileString(sec_name, "FontHgt", buf, ini_file);
wsprintf(buf, "%d", td->lf.lfWeight);
WritePrivateProfileString(sec_name, "FontWgt", buf, ini_file);
#endif
/* Bizarre */
strcpy(buf, td->bizarre ? "1" : "0");
WritePrivateProfileString(sec_name, "Bizarre", buf, ini_file);
/* Tile size (x) */
wsprintf(buf, "%d", td->tile_wid);
WritePrivateProfileString(sec_name, "TileWid", buf, ini_file);
/* Tile size (y) */
wsprintf(buf, "%d", td->tile_hgt);
WritePrivateProfileString(sec_name, "TileHgt", buf, ini_file);
/* Get window placement and dimensions */
lpwndpl.length = sizeof(WINDOWPLACEMENT);
GetWindowPlacement(td->w, &lpwndpl);
/* Acquire position in *normal* mode (not minimized) */
rc = lpwndpl.rcNormalPosition;
/* Window size (x) */
if (i == 0) wsprintf(buf, "%d", normsize.x);
else wsprintf(buf, "%d", td->cols);
WritePrivateProfileString(sec_name, "NumCols", buf, ini_file);
/* Window size (y) */
if (i == 0) wsprintf(buf, "%d", normsize.y);
else wsprintf(buf, "%d", td->rows);
WritePrivateProfileString(sec_name, "NumRows", buf, ini_file);
/* Maxmized (only main window) */
if (i == 0)
{
strcpy(buf, IsZoomed(td->w) ? "1" : "0");
WritePrivateProfileString(sec_name, "Maximized", buf, ini_file);
}
/* Acquire position */
GetWindowRect(td->w, &rc);
/* Window position (x) */
wsprintf(buf, "%d", rc.left);
WritePrivateProfileString(sec_name, "PositionX", buf, ini_file);
/* Window position (y) */
wsprintf(buf, "%d", rc.top);
WritePrivateProfileString(sec_name, "PositionY", buf, ini_file);
/* Window Z position (only sub window) */
if (i > 0)
{
strcpy(buf, td->posfix ? "1" : "0");
WritePrivateProfileString(sec_name, "PositionFix", buf, ini_file);
}
}
/*
* Write the "prefs"
*
* We assume that the windows have all been initialized
*/
static void save_prefs(void)
{
int i;
char buf[128];
/* Save the "arg_graphics" flag */
sprintf(buf, "%d", arg_graphics);
WritePrivateProfileString("Angband", "Graphics", buf, ini_file);
/* Save the "arg_bigtile" flag */
strcpy(buf, arg_bigtile ? "1" : "0");
WritePrivateProfileString("Angband", "Bigtile", buf, ini_file);
/* Save the "arg_sound" flag */
strcpy(buf, arg_sound ? "1" : "0");
WritePrivateProfileString("Angband", "Sound", buf, ini_file);
/* bg */
strcpy(buf, use_bg ? "1" : "0");
WritePrivateProfileString("Angband", "BackGround", buf, ini_file);
WritePrivateProfileString("Angband", "BackGroundBitmap",
bg_bitmap_file[0] != '\0' ? bg_bitmap_file : "bg.bmp", ini_file);
/* Save window prefs */
for (i = 0; i < MAX_TERM_DATA; ++i)
{
save_prefs_aux(i);
}
}
/*
* Load the "prefs" for a single term
*/
static void load_prefs_aux(int i)
{
term_data *td = &data[i];
char sec_name[128];
char tmp[1024];
int wid, hgt;
/* Make section name */
sprintf(sec_name, "Term-%d", i);
/* Visible */
if (i > 0)
{
td->visible = (GetPrivateProfileInt(sec_name, "Visible", td->visible, ini_file) != 0);
}
/* Desired font, with default */
#ifdef JP
GetPrivateProfileString(sec_name, "Font", "ＭＳ ゴシック", tmp, 127, ini_file);
#else
#if 0
GetPrivateProfileString(sec_name, "Font", "8X13.FON", tmp, 127, ini_file);
#else
GetPrivateProfileString(sec_name, "Font", "Courier", tmp, 127, ini_file);
#endif
#endif
/* Bizarre */
td->bizarre = (GetPrivateProfileInt(sec_name, "Bizarre", td->bizarre, ini_file) != 0);
/* Analyze font, save desired font name */
#if 1 /* #ifdef JP */
hgt = 15; wid = 0;
td->font_want = string_make(tmp);
td->lf.lfWidth = GetPrivateProfileInt(sec_name, "FontWid", wid, ini_file);
td->lf.lfHeight = GetPrivateProfileInt(sec_name, "FontHgt", hgt, ini_file);
td->lf.lfWeight = GetPrivateProfileInt(sec_name, "FontWgt", 0, ini_file);
#else
td->font_want = string_make(analyze_font(tmp, &wid, &hgt));
#endif
/* Tile size */
#if 1 /* #ifdef JP */
td->tile_wid = GetPrivateProfileInt(sec_name, "TileWid", td->lf.lfWidth, ini_file);
td->tile_hgt = GetPrivateProfileInt(sec_name, "TileHgt", td->lf.lfHeight, ini_file);
#else
td->tile_wid = GetPrivateProfileInt(sec_name, "TileWid", wid, ini_file);
td->tile_hgt = GetPrivateProfileInt(sec_name, "TileHgt", hgt, ini_file);
#endif
/* Window size */
td->cols = GetPrivateProfileInt(sec_name, "NumCols", td->cols, ini_file);
td->rows = GetPrivateProfileInt(sec_name, "NumRows", td->rows, ini_file);
normsize.x = td->cols; normsize.y = td->rows;
/* Window size */
if (i == 0)
{
win_maximized = GetPrivateProfileInt(sec_name, "Maximized", win_maximized, ini_file);
}
/* Window position */
td->pos_x = GetPrivateProfileInt(sec_name, "PositionX", td->pos_x, ini_file);
td->pos_y = GetPrivateProfileInt(sec_name, "PositionY", td->pos_y, ini_file);
/* Window Z position */
if (i > 0)
{
td->posfix = GetPrivateProfileInt(sec_name, "PositionFix", td->posfix, ini_file);
}
}
/*
* Load the "prefs"
*/
static void load_prefs(void)
{
int i;
/* Extract the "arg_graphics" flag */
arg_graphics = GetPrivateProfileInt("Angband", "Graphics", GRAPHICS_NONE, ini_file);
/* Extract the "arg_bigtile" flag */
arg_bigtile = GetPrivateProfileInt("Angband", "Bigtile", FALSE, ini_file);
use_bigtile = arg_bigtile;
/* Extract the "arg_sound" flag */
arg_sound = (GetPrivateProfileInt("Angband", "Sound", 0, ini_file) != 0);
/* bg */
use_bg = GetPrivateProfileInt("Angband", "BackGround", 0, ini_file);
GetPrivateProfileString("Angband", "BackGroundBitmap", "bg.bmp", bg_bitmap_file, 1023, ini_file);
#ifdef SUPPORT_GAMMA
/* Extract the gamma correction */
gamma_correction = GetPrivateProfileInt("Angband", "Gamma", 0, ini_file);
#endif /* SUPPORT_GAMMA */
/* Load window prefs */
for (i = 0; i < MAX_TERM_DATA; ++i)
{
load_prefs_aux(i);
}
/* Paranoia */
if (data[0].cols < 80) data[0].cols = 80;
if (data[0].rows < 24) data[0].rows = 24;
}
#ifdef USE_SOUND
/*
* XXX XXX XXX - Taken from files.c.
*
* Extract "tokens" from a buffer
*
* This function uses "whitespace" as delimiters, and treats any amount of
* whitespace as a single delimiter. We will never return any empty tokens.
* When given an empty buffer, or a buffer containing only "whitespace", we
* will return no tokens. We will never extract more than "num" tokens.
*
* By running a token through the "text_to_ascii()" function, you can allow
* that token to include (encoded) whitespace, using "\s" to encode spaces.
*
* We save pointers to the tokens in "tokens", and return the number found.
*/
static s16b tokenize_whitespace(char *buf, s16b num, char **tokens)
{
int k = 0;
char *s = buf;
/* Process */
while (k < num)
{
char *t;
/* Skip leading whitespace */
for ( ; *s && isspace(*s); ++s) /* loop */;
/* All done */
if (!*s) break;
/* Find next whitespace, if any */
for (t = s; *t && !isspace(*t); ++t) /* loop */;
/* Nuke and advance (if necessary) */
if (*t) *t++ = '\0';
/* Save the token */
tokens[k++] = s;
/* Advance */
s = t;
}
/* Count */
return (k);
}
static void load_sound_prefs(void)
{
int i, j, num;
char tmp[1024];
char ini_path[1024];
char wav_path[1024];
char *zz[SAMPLE_MAX];
/* Access the sound.cfg */
path_build(ini_path, sizeof(ini_path), ANGBAND_DIR_XTRA_SOUND, "sound.cfg");
for (i = 1; i < SOUND_MAX; i++)
{
GetPrivateProfileString("Sound", angband_sound_name[i], "", tmp, 1024, ini_path);
num = tokenize_whitespace(tmp, SAMPLE_MAX, zz);
for (j = 0; j < num; j++)
{
/* Access the sound */
path_build(wav_path, sizeof(wav_path), ANGBAND_DIR_XTRA_SOUND, zz[j]);
/* Save the sound filename, if it exists */
if (check_file(wav_path))
sound_file[i][j] = string_make(zz[j]);
}
}
}
#ifdef USE_MUSIC
static int current_bgm = BGM_MUTE;
static errr OpenBgm(cptr filename)
{
errr err = -1;
cptr mci_command;
if (mci_device_name[0] != '\0')
{
mci_command = format("open \"%s\" type %s alias AngbandBGM", filename, mci_device_name);
err = mciSendString(mci_command, NULL, 0, NULL);
}
if (err != 0)
{
mci_command = format("open \"%s\" alias AngbandBGM", filename);
err = mciSendString(mci_command, NULL, 0, NULL);
}
return err;
}
static void StopBgm()
{
if (current_bgm != BGM_MUTE)
{
mciSendString("stop AngbandBGM", NULL, 0, NULL);
current_bgm = BGM_MUTE;
}
}
static void CloseBgm()
{
StopBgm();
mciSendString("close AngbandBGM", NULL, 0, NULL);
}
static errr PlayBgm(bool again)
{
errr err = 0;
if (again) err = mciSendString("seek AngbandBGM to start", NULL, 0, NULL);
if (err == 0) err = mciSendString("play AngbandBGM notify", NULL, 0, data[0].w);
return err;
}
static void load_bgm_prefs(void)
{
int i, j, num;
char tmp[1024];
char ini_path[1024];
char bgm_path[1024];
char *zz[SAMPLE_MAX];
/* Access the sound.cfg */
path_build(ini_path, sizeof(ini_path), ANGBAND_DIR_XTRA_MUSIC, "music.cfg");
for (i = 1; i < BGM_MAX; i++)
{
GetPrivateProfileString("Music", angband_bgm_name[i], "", tmp, 1024, ini_path);
num = tokenize_whitespace(tmp, SAMPLE_MAX, zz);
for (j = 0; j < num; j++)
{
/* Access the sound */
path_build(bgm_path, sizeof(bgm_path), ANGBAND_DIR_XTRA_MUSIC, zz[j]);
/* Save the sound filename, if it exists */
if (check_file(bgm_path))
bgm_file[i][j] = string_make(zz[j]);
}
}
GetPrivateProfileString("Device", mci_device_name, "", tmp, 256, ini_path);
}
#endif /* USE_MUSIC */
#endif /* USE_SOUND */
/*
* Create the new global palette based on the bitmap palette
* (if any), and the standard 16 entry palette derived from
* "win_clr[]" which is used for the basic 16 Angband colors.
*
* This function is never called before all windows are ready.
*
* This function returns FALSE if the new palette could not be
* prepared, which should normally be a fatal error. XXX XXX
*
* Note that only some machines actually use a "palette".
*/
static int new_palette(void)
{
HPALETTE hBmPal;
HPALETTE hNewPal;
HDC hdc;
int i, nEntries;
int pLogPalSize;
int lppeSize;
LPLOGPALETTE pLogPal;
LPPALETTEENTRY lppe;
term_data *td;
/* This makes no sense */
if (!paletted) return (TRUE);
/* No bitmap */
lppeSize = 0;
lppe = NULL;
nEntries = 0;
#ifdef USE_GRAPHICS
/* Check the bitmap palette */
hBmPal = infGraph.hPalette;
/* Use the bitmap */
if (hBmPal)
{
lppeSize = 256 * sizeof(PALETTEENTRY);
lppe = (LPPALETTEENTRY)ralloc(lppeSize);
nEntries = GetPaletteEntries(hBmPal, 0, 255, lppe);
if ((nEntries == 0) || (nEntries > 220))
{
/* Warn the user */
#ifdef JP
plog("画面を16ビットか24ビットカラーモードにして下さい。");
#else
plog("Please switch to high- or true-color mode.");
#endif
/* Cleanup */
rnfree(lppe, lppeSize);
/* Fail */
return (FALSE);
}
}
#endif /* USE_GRAPHICS */
/* Size of palette */
pLogPalSize = sizeof(LOGPALETTE) + (nEntries + 16) * sizeof(PALETTEENTRY);
/* Allocate palette */
pLogPal = (LPLOGPALETTE)ralloc(pLogPalSize);
/* Version */
pLogPal->palVersion = 0x300;
/* Make room for bitmap and normal data */
pLogPal->palNumEntries = nEntries + 16;
/* Save the bitmap data */
for (i = 0; i < nEntries; i++)
{
pLogPal->palPalEntry[i] = lppe[i];
}
/* Save the normal data */
for (i = 0; i < 16; i++)
{
LPPALETTEENTRY p;
/* Access the entry */
p = &(pLogPal->palPalEntry[i+nEntries]);
/* Save the colors */
p->peRed = GetRValue(win_clr[i]);
p->peGreen = GetGValue(win_clr[i]);
p->peBlue = GetBValue(win_clr[i]);
#ifdef SUPPORT_GAMMA
if (gamma_correction > 0)
{
p->peRed = gamma_table[p->peRed];
p->peGreen = gamma_table[p->peGreen];
p->peBlue = gamma_table[p->peBlue];
}
#endif /* SUPPORT_GAMMA */
/* Save the flags */
p->peFlags = PC_NOCOLLAPSE;
}
/* Free something */
if (lppe) rnfree(lppe, lppeSize);
/* Create a new palette, or fail */
hNewPal = CreatePalette(pLogPal);
#ifdef JP
if (!hNewPal) quit("パレットを作成できません！");
#else
if (!hNewPal) quit("Cannot create palette!");
#endif
/* Free the palette */
rnfree(pLogPal, pLogPalSize);
/* Main window */
td = &data[0];
/* Realize the palette */
hdc = GetDC(td->w);
SelectPalette(hdc, hNewPal, 0);
i = RealizePalette(hdc);
ReleaseDC(td->w, hdc);
#ifdef JP
if (i == 0) quit("パレットをシステムエントリにマップできません！");
#else
if (i == 0) quit("Cannot realize palette!");
#endif
/* Sub-windows */
for (i = 1; i < MAX_TERM_DATA; i++)
{
td = &data[i];
hdc = GetDC(td->w);
SelectPalette(hdc, hNewPal, 0);
ReleaseDC(td->w, hdc);
}
/* Delete old palette */
if (hPal) DeleteObject(hPal);
/* Save new palette */
hPal = hNewPal;
/* Success */
return (TRUE);
}
#ifdef USE_GRAPHICS
/*
* Initialize graphics
*/
static bool init_graphics(void)
{
/* Initialize once */
/* if (can_use_graphics != arg_graphics) */
{
char buf[1024];
int wid, hgt;
cptr name;
if (arg_graphics == GRAPHICS_ADAM_BOLT)
{
wid = 16;
hgt = 16;
name = "16X16.BMP";
ANGBAND_GRAF = "new";
use_transparency = TRUE;
}
else if (arg_graphics == GRAPHICS_24X24)
{
wid = 24;
hgt = 24;
name = "24X24.BMP";
ANGBAND_GRAF = "old";
use_transparency = TRUE;
}
else
{
wid = 8;
hgt = 8;
name = "8X8.BMP";
ANGBAND_GRAF = "old";
}
/* Access the bitmap file */
path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_GRAF, name);
/* Load the bitmap or quit */
if (!ReadDIB(data[0].w, buf, &infGraph))
{
#ifdef JP
plog_fmt("ビットマップ '%s' を読み込めません。", name);
#else
plog_fmt("Cannot read bitmap file '%s'", name);
#endif
return (FALSE);
}
/* Save the new sizes */
infGraph.CellWidth = wid;
infGraph.CellHeight = hgt;
//Make mask bitmap
//COLORREF 0x00020202 color is transparent
if (use_transparency)
{
term_data *td = (term_data *)Term->data;
COLORREF defaultBgColor;
HDC hdc, hdcMask, hdcSrc, hdcDefaultMask;
HBITMAP hbmOld;
BITMAP bmSrc;
hdc = GetDC(td->w);
//Make original bitmap handle
hdcSrc = CreateCompatibleDC(hdc);
hbmOld = (HBITMAP)SelectObject(hdcSrc, infGraph.hBitmap);
GetObject(infGraph.hBitmap, sizeof(BITMAP), &bmSrc);
//Change background color for transparency
defaultBgColor = SetBkColor(hdcSrc, (COLORREF)0x00020202);
//Make mask bitmap handle
hdcMask = CreateCompatibleDC(hdcSrc);
infMask.hBitmap = CreateBitmap(bmSrc.bmWidth, bmSrc.bmHeight, 1, 1, NULL);
hdcDefaultMask = (HDC)SelectObject(hdcMask, infMask.hBitmap);
BitBlt(hdcMask, 0, 0, bmSrc.bmWidth, bmSrc.bmHeight, hdcSrc, 0, 0, NOTSRCCOPY);
//Reset old Background Color
SetBkColor(hdcSrc, defaultBgColor);
SelectObject(hdcSrc, hbmOld);
DeleteDC(hdcSrc);
SelectObject(hdcMask, hdcDefaultMask);
DeleteDC(hdcMask);
ReleaseDC(td->w, hdc);
}
/* Activate a palette */
if (!new_palette())
{
/* Free bitmap XXX XXX XXX */
/* Oops */
#ifdef JP
plog("パレットを実現できません！");
#else
plog("Cannot activate palette!");
#endif
return (FALSE);
}
/* Graphics available */
can_use_graphics = arg_graphics;
}
/* Result */
return (can_use_graphics);
}
#endif /* USE_GRAPHICS */
#ifdef USE_SOUND
/*
* Initialize sound
*/
static bool init_sound(void)
{
/* Initialize once */
if (!can_use_sound)
{
/* Load the prefs */
load_sound_prefs();
load_bgm_prefs();
/* Sound available */
can_use_sound = TRUE;
}
/* Result */
return (can_use_sound);
}
#endif /* USE_SOUND */
/*
* Resize a window
*/
static void term_window_resize(term_data *td)
{
/* Require window */
if (!td->w) return;
/* Resize the window */
SetWindowPos(td->w, 0, 0, 0,
td->size_wid, td->size_hgt,
SWP_NOMOVE | SWP_NOZORDER);
/* Redraw later */
InvalidateRect(td->w, NULL, TRUE);
}
/*
* Force the use of a new "font file" for a term_data
*
* This function may be called before the "window" is ready
*
* This function returns zero only if everything succeeds.
*
* Note that the "font name" must be capitalized!!!
*/
static errr term_force_font(term_data *td, cptr path)
{
int wid, hgt;
#if 0 /* #ifndef JP */
int i;
char *base;
char buf[1024];
#endif
/* Forget the old font (if needed) */
if (td->font_id) DeleteObject(td->font_id);
#if 1 /* #ifdef JP */
/* Unused */
(void)path;
/* Create the font (using the 'base' of the font file name!) */
td->font_id = CreateFontIndirect(&(td->lf));
wid = td->lf.lfWidth;
hgt = td->lf.lfHeight;
if (!td->font_id) return (1);
#else
/* Forget old font */
if (td->font_file)
{
bool used = FALSE;
/* Scan windows */
for (i = 0; i < MAX_TERM_DATA; i++)
{
/* Don't check when closing the application */
if (!path) break;
/* Check "screen" */
if ((td != &data[i]) &&
(data[i].font_file) &&
(streq(data[i].font_file, td->font_file)))
{
used = TRUE;
}
}
/* Remove unused font resources */
if (!used) RemoveFontResource(td->font_file);
/* Free the old name */
string_free(td->font_file);
/* Forget it */
td->font_file = NULL;
}
/* No path given */
if (!path) return (1);
/* Local copy */
strcpy(buf, path);
/* Analyze font path */
base = analyze_font(buf, &wid, &hgt);
/* Verify suffix */
if (!suffix(base, ".FON")) return (1);
/* Verify file */
if (!check_file(buf)) return (1);
/* Load the new font */
if (!AddFontResource(buf)) return (1);
/* Save new font name */
td->font_file = string_make(base);
/* Remove the "suffix" */
base[strlen(base)-4] = '\0';
/* Create the font (using the 'base' of the font file name!) */
td->font_id = CreateFont(hgt, wid, 0, 0, FW_DONTCARE, 0, 0, 0,
ANSI_CHARSET, OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
FIXED_PITCH | FF_DONTCARE, base);
#endif
/* Hack -- Unknown size */
if (!wid || !hgt)
{
HDC hdcDesktop;
HFONT hfOld;
TEXTMETRIC tm;
/* all this trouble to get the cell size */
hdcDesktop = GetDC(HWND_DESKTOP);
hfOld = SelectObject(hdcDesktop, td->font_id);
GetTextMetrics(hdcDesktop, &tm);
SelectObject(hdcDesktop, hfOld);
ReleaseDC(HWND_DESKTOP, hdcDesktop);
/* Font size info */
wid = tm.tmAveCharWidth;
hgt = tm.tmHeight;
}
/* Save the size info */
td->font_wid = wid;
td->font_hgt = hgt;
/* Success */
return (0);
}
/*
* Allow the user to change the font for this window.
*/
static void term_change_font(term_data *td)
{
#if 1 /* #ifdef JP */
CHOOSEFONT cf;
memset(&cf, 0, sizeof(cf));
cf.lStructSize = sizeof(cf);
cf.Flags = CF_SCREENFONTS | CF_FIXEDPITCHONLY | CF_NOVERTFONTS | CF_INITTOLOGFONTSTRUCT;
cf.lpLogFont = &(td->lf);
if (ChooseFont(&cf))
{
/* Force the font */
term_force_font(td, NULL);
/* Assume not bizarre */
td->bizarre = TRUE;
/* Reset the tile info */
td->tile_wid = td->font_wid;
td->tile_hgt = td->font_hgt;
/* Analyze the font */
term_getsize(td);
/* Resize the window */
term_window_resize(td);
}
#else
OPENFILENAME ofn;
char tmp[1024] = "";
/* Extract a default if possible */
if (td->font_file) strcpy(tmp, td->font_file);
/* Ask for a choice */
memset(&ofn, 0, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = data[0].w;
ofn.lpstrFilter = "Angband Font Files (*.fon)\0*.fon\0";
ofn.nFilterIndex = 1;
ofn.lpstrFile = tmp;
ofn.nMaxFile = 128;
ofn.lpstrInitialDir = ANGBAND_DIR_XTRA_FONT;
ofn.Flags = OFN_FILEMUSTEXIST | OFN_NOCHANGEDIR;
ofn.lpstrDefExt = "fon";
/* Force choice if legal */
if (GetOpenFileName(&ofn))
{
/* Force the font */
if (term_force_font(td, tmp))
{
/* Access the standard font file */
path_build(tmp, sizeof(tmp), ANGBAND_DIR_XTRA_FONT, "8X13.FON");
/* Force the use of that font */
(void)term_force_font(td, tmp);
}
/* Assume not bizarre */
td->bizarre = FALSE;
/* Reset the tile info */
td->tile_wid = td->font_wid;
td->tile_hgt = td->font_hgt;
/* Analyze the font */
term_getsize(td);
/* Resize the window */
term_window_resize(td);
}
#endif
}
/*
* Allow the user to lock this window.
*/
static void term_window_pos(term_data *td, HWND hWnd)
{
SetWindowPos(td->w, hWnd, 0, 0, 0, 0,
SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
}
extern void windows_map_aux(void);
/*
* Hack -- redraw a term_data
*/
static void term_data_redraw(term_data *td)
{
if (td->map_active)
{
/* Redraw the map */
windows_map_aux();
}
else
{
/* Activate the term */
Term_activate(&td->t);
/* Redraw the contents */
Term_redraw();
/* Restore the term */
Term_activate(term_screen);
}
}
/*
* Hack -- redraw a term_data
*/
static void term_data_redraw_section(term_data *td, int x1, int y1, int x2, int y2)
{
/* Activate the term */
Term_activate(&td->t);
/* Redraw the area */
Term_redraw_section(x1, y1, x2, y2);
/* Restore the term */
Term_activate(term_screen);
}
/*** Function hooks needed by "Term" ***/
#if 0
/*
* Initialize a new Term
*/
static void Term_init_win(term *t)
{
/* XXX Unused */
}
/*
* Nuke an old Term
*/
static void Term_nuke_win(term *t)
{
/* XXX Unused */
}
#endif /* 0 */
/*
* Interact with the User
*/
static errr Term_user_win(int n)
{
/* Unused */
(void)n;
/* Success */
return (0);
}
#ifdef USE_SOUND
static errr Term_xtra_win_react_sound(void)
{
/* Handle "arg_sound" */
if (use_sound != arg_sound)
{
/* Initialize (if needed) */
if (arg_sound)
{
if (!init_sound())
{
/* Warning */
plog(_("サウンドを初期化できません！", "Cannot initialize sound!"));
/* Cannot enable */
arg_sound = FALSE;
}
}
else
{
#ifdef USE_MUSIC
if (current_bgm != BGM_MUTE)
{
CloseBgm();
}
#endif
}
/* Change setting */
use_sound = arg_sound;
}
return (0);
}
#endif
/*
* React to global changes
*/
static errr Term_xtra_win_react(void)
{
int i;
/* Simple color */
if (colors16)
{
/* Save the default colors */
for (i = 0; i < 256; i++)
{
/* Simply accept the desired colors */
win_pal[i] = angband_color_table[i][0];
}
}
/* Complex color */
else
{
COLORREF code;
byte rv, gv, bv;
bool change = FALSE;
/* Save the default colors */
for (i = 0; i < 256; i++)
{
/* Extract desired values */
rv = angband_color_table[i][1];
gv = angband_color_table[i][2];
bv = angband_color_table[i][3];
#ifdef SUPPORT_GAMMA
if (gamma_correction > 0)
{
rv = gamma_table[rv];
gv = gamma_table[gv];
bv = gamma_table[bv];
}
#endif /* SUPPORT_GAMMA */
/* Extract a full color code */
code = PALETTERGB(rv, gv, bv);
/* Activate changes */
if (win_clr[i] != code)
{
/* Note the change */
change = TRUE;
/* Apply the desired color */
win_clr[i] = code;
}
}
/* Activate the palette if needed */
if (change) (void)new_palette();
}
#ifdef USE_SOUND
Term_xtra_win_react_sound();
#endif /* USE_SOUND */
#ifdef USE_GRAPHICS
/* Handle "arg_graphics" */
if (use_graphics != arg_graphics)
{
/* Switch off transparency */
use_transparency = FALSE;
/* Initialize (if needed) */
if (arg_graphics && !init_graphics())
{
/* Warning */
#ifdef JP
plog("グラフィックスを初期化できません!");
#else
plog("Cannot initialize graphics!");
#endif
/* Cannot enable */
arg_graphics = GRAPHICS_NONE;
}
/* Change setting */
use_graphics = arg_graphics;
/* Reset visuals */
reset_visuals();
}
#endif /* USE_GRAPHICS */
/* Clean up windows */
for (i = 0; i < MAX_TERM_DATA; i++)
{
term *old = Term;
term_data *td = &data[i];
/* Update resized windows */
if ((td->cols != (uint)td->t.wid) || (td->rows != (uint)td->t.hgt))
{
/* Activate */
Term_activate(&td->t);
/* Hack -- Resize the term */
Term_resize(td->cols, td->rows);
/* Redraw the contents */
Term_redraw();
/* Restore */
Term_activate(old);
}
}
/* Success */
return (0);
}
/*
* Process at least one event
*/
static errr Term_xtra_win_event(int v)
{
MSG msg;
/* Wait for an event */
if (v)
{
/* Block */
if (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
/* Check for an event */
else
{
/* Check */
if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
/* Success */
return 0;
}
/*
* Process all pending events
*/
static errr Term_xtra_win_flush(void)
{
MSG msg;
/* Process all pending events */
while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
/* Success */
return (0);
}
/*
* Hack -- clear the screen
*
* Make this more efficient XXX XXX XXX
*/
static errr Term_xtra_win_clear(void)
{
term_data *td = (term_data*)(Term->data);
HDC hdc;
RECT rc;
/* Rectangle to erase */
rc.left = td->size_ow1;
rc.right = rc.left + td->cols * td->tile_wid;
rc.top = td->size_oh1;
rc.bottom = rc.top + td->rows * td->tile_hgt;
/* Erase it */
hdc = GetDC(td->w);
SetBkColor(hdc, RGB(0, 0, 0));
SelectObject(hdc, td->font_id);
ExtTextOut(hdc, 0, 0, ETO_OPAQUE, &rc, NULL, 0, NULL);
ReleaseDC(td->w, hdc);
/* bg */
if (use_bg)
{
rc.left = 0; rc.top = 0;
DrawBG(hdc, &rc);
}
ReleaseDC(td->w, hdc);
/* Success */
return 0;
}
/*
* Hack -- make a noise
*/
static errr Term_xtra_win_noise(void)
{
MessageBeep(MB_ICONASTERISK);
return (0);
}
/*
* Hack -- make a sound
*/
static errr Term_xtra_win_sound(int v)
{
int i;
char buf[1024];
/* Sound disabled */
if (!use_sound) return (1);
/* Illegal sound */
if ((v < 0) || (v >= SOUND_MAX)) return (1);
#ifdef USE_SOUND
/* Count the samples */
for (i = 0; i < SAMPLE_MAX; i++)
{
if (!sound_file[v][i])
break;
}
/* No sample */
if (i == 0) return (1);
/* Build the path */
path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_SOUND, sound_file[v][randint0(i)]);
#ifdef WIN32
/* Play the sound, catch errors */
return (PlaySound(buf, 0, SND_FILENAME | SND_ASYNC));
#else /* WIN32 */
/* Play the sound, catch errors */
return (sndPlaySound(buf, SND_ASYNC));
#endif /* WIN32 */
#else /* USE_SOUND */
/* Oops */
return (1);
#endif /* USE_SOUND */
}
/*
* Hack -- make a music
*/
static errr Term_xtra_win_music(int v)
{
int i;
errr err;
char buf[1024];
/* Sound disabled */
if (!use_sound) return (1);
/* Illegal sound */
if ((v < 0) || (v >= BGM_MAX)) return (1);
#ifdef USE_MUSIC
if (v == current_bgm) return (0);
CloseBgm();
if (v == BGM_MUTE) return (0);
/* Count the samples */
for (i = 0; i < SAMPLE_MAX; i++)
{
if (!bgm_file[v][i])
break;
}
/* No sample */
if (i == 0) return (1);
/* Build the path */
path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_MUSIC, bgm_file[v][randint0(i)]);
if (OpenBgm(buf) != 0) return (0);
if ((err = PlayBgm(FALSE)) == 0) current_bgm = v;
return (err);
#else /* USE_MUSIC */
/* Oops */
return (1);
#endif /* USE_MUSIC */
}
/*
* Delay for "x" milliseconds
*/
static int Term_xtra_win_delay(int v)
{
#ifdef WIN32
/* Sleep */
Sleep(v);
#else /* WIN32 */
DWORD t;
MSG msg;
/* Final count */
t = GetTickCount() + v;
/* Wait for it */
while (GetTickCount() < t)
{
/* Handle messages */
if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
#endif /* WIN32 */
/* Success */
return (0);
}
/*
* Do a "special thing"
*/
static errr Term_xtra_win(int n, int v)
{
/* Handle a subset of the legal requests */
switch (n)
{
/* Make a bell sound */
case TERM_XTRA_NOISE:
{
return (Term_xtra_win_noise());
}
/* Make a special sound */
case TERM_XTRA_SOUND:
{
return (Term_xtra_win_sound(v));
}
/* Process random events */
case TERM_XTRA_BORED:
{
return (Term_xtra_win_event(0));
}
/* Process an event */
case TERM_XTRA_EVENT:
{
return (Term_xtra_win_event(v));
}
/* Flush all events */
case TERM_XTRA_FLUSH:
{
return (Term_xtra_win_flush());
}
/* Clear the screen */
case TERM_XTRA_CLEAR:
{
return (Term_xtra_win_clear());
}
/* React to global changes */
case TERM_XTRA_REACT:
{
return (Term_xtra_win_react());
}
/* Delay for some milliseconds */
case TERM_XTRA_DELAY:
{
return (Term_xtra_win_delay(v));
}
/* Make a special sound */
case TERM_XTRA_MUSIC:
{
return (Term_xtra_win_music(v));
}
}
/* Oops */
return 1;
}
/*
* Low level graphics (Assumes valid input).
*
* Draw a "cursor" at (x,y), using a "yellow box".
*/
static errr Term_curs_win(int x, int y)
{
term_data *td = (term_data*)(Term->data);
RECT rc;
HDC hdc;
int tile_wid, tile_hgt;
if (td->map_active)
{
tile_wid = td->map_tile_wid;
tile_hgt = td->map_tile_hgt;
}
else
{
tile_wid = td->tile_wid;
tile_hgt = td->tile_hgt;
}
/* Frame the grid */
rc.left = x * tile_wid + td->size_ow1;
rc.right = rc.left + tile_wid;
rc.top = y * tile_hgt + td->size_oh1;
rc.bottom = rc.top + tile_hgt;
/* Cursor is done as a yellow "box" */
hdc = GetDC(td->w);
FrameRect(hdc, &rc, hbrYellow);
ReleaseDC(td->w, hdc);
/* Success */
return 0;
}
/*
* Low level graphics (Assumes valid input).
*
* Draw a "big cursor" at (x,y), using a "yellow box".
*/
static errr Term_bigcurs_win(int x, int y)
{
term_data *td = (term_data*)(Term->data);
RECT rc;
HDC hdc;
int tile_wid, tile_hgt;
if (td->map_active)
{
/* Normal cursor in map window */
Term_curs_win(x, y);
return 0;
}
else
{
tile_wid = td->tile_wid;
tile_hgt = td->tile_hgt;
}
/* Frame the grid */
rc.left = x * tile_wid + td->size_ow1;
rc.right = rc.left + 2 * tile_wid;
rc.top = y * tile_hgt + td->size_oh1;
rc.bottom = rc.top + tile_hgt;
/* Cursor is done as a yellow "box" */
hdc = GetDC(td->w);
FrameRect(hdc, &rc, hbrYellow);
ReleaseDC(td->w, hdc);
/* Success */
return 0;
}
/*
* Low level graphics (Assumes valid input).
*
* Erase a "block" of "n" characters starting at (x,y).
*/
static errr Term_wipe_win(int x, int y, int n)
{
term_data *td = (term_data*)(Term->data);
HDC hdc;
RECT rc;
if ((x >= (s32b)td->cols) || (y >= (s32b)td->rows)) return 0;
/* Rectangle to erase in client coords */
rc.left = x * td->tile_wid + td->size_ow1;
rc.right = rc.left + n * td->tile_wid;
rc.top = y * td->tile_hgt + td->size_oh1;
rc.bottom = rc.top + td->tile_hgt;
hdc = GetDC(td->w);
SetBkColor(hdc, RGB(0, 0, 0));
SelectObject(hdc, td->font_id);
/* bg */
if (use_bg)
DrawBG(hdc, &rc);
else
ExtTextOut(hdc, 0, 0, ETO_OPAQUE, &rc, NULL, 0, NULL);
ReleaseDC(td->w, hdc);
/* Success */
return 0;
}
/*
* Low level graphics. Assumes valid input.
*
* Draw several ("n") chars, with an attr, at a given location.
*
* All "graphic" data is handled by "Term_pict_win()", below.
*
* One would think there is a more efficient method for telling a window
* what color it should be using to draw with, but perhaps simply changing
* it every time is not too inefficient. XXX XXX XXX
*/
static errr Term_text_win(int x, int y, int n, byte a, const char *s)
{
term_data *td = (term_data*)(Term->data);
RECT rc;
HDC hdc;
#if 1 /* #ifdef JP */
static HBITMAP WALL;
static HBRUSH myBrush, oldBrush;
static HPEN oldPen;
static bool init_done = FALSE;
if (!init_done){
WALL = LoadBitmap(hInstance, AppName);
myBrush = CreatePatternBrush(WALL);
init_done = TRUE;
}
#endif
/* Out of window */
if ((x >= (s32b)td->cols) || (y >= (s32b)td->rows)) return 0;
/* Total rectangle */
rc.left = x * td->tile_wid + td->size_ow1;
rc.right = rc.left + n * td->tile_wid;
rc.top = y * td->tile_hgt + td->size_oh1;
rc.bottom = rc.top + td->tile_hgt;
/* Acquire DC */
hdc = GetDC(td->w);
/* Background color */
SetBkColor(hdc, RGB(0, 0, 0));
/* Foreground color */
if (colors16)
{
SetTextColor(hdc, PALETTEINDEX(win_pal[a]));
}
else if (paletted)
{
SetTextColor(hdc, win_clr[a&0x0F]);
}
else
{
SetTextColor(hdc, win_clr[a]);
}
/* Use the font */
SelectObject(hdc, td->font_id);
/* bg */
if (use_bg) SetBkMode(hdc, TRANSPARENT);
/* Bizarre size */
if (td->bizarre ||
(td->tile_hgt != td->font_hgt) ||
(td->tile_wid != td->font_wid))
{
int i;
/* Erase complete rectangle */
ExtTextOut(hdc, 0, 0, ETO_OPAQUE, &rc, NULL, 0, NULL);
/* bg */
if (use_bg) DrawBG(hdc, &rc);
/* New rectangle */
rc.left += ((td->tile_wid - td->font_wid) / 2);
rc.right = rc.left + td->font_wid;
rc.top += ((td->tile_hgt - td->font_hgt) / 2);
rc.bottom = rc.top + td->font_hgt;
/* Dump each character */
for (i = 0; i < n; i++)
{
#ifdef JP
if (use_bigtile && *(s+i)=="■"[0] && *(s+i+1)=="■"[1])
{
rc.right += td->font_wid;
oldBrush = SelectObject(hdc, myBrush);
oldPen = SelectObject(hdc, GetStockObject(NULL_PEN) );
/* Dump the wall */
Rectangle(hdc, rc.left, rc.top, rc.right+1, rc.bottom+1);
SelectObject(hdc, oldBrush);
SelectObject(hdc, oldPen);
rc.right -= td->font_wid;
/* Advance */
i++;
rc.left += 2 * td->tile_wid;
rc.right += 2 * td->tile_wid;
}
else if ( iskanji(*(s+i)) ) /* ２バイト文字 */
{
rc.right += td->font_wid;
/* Dump the text */
ExtTextOut(hdc, rc.left, rc.top, ETO_CLIPPED, &rc,
s+i, 2, NULL);
rc.right -= td->font_wid;
/* Advance */
i++;
rc.left += 2 * td->tile_wid;
rc.right += 2 * td->tile_wid;
} else if (*(s+i)==127){
oldBrush = SelectObject(hdc, myBrush);
oldPen = SelectObject(hdc, GetStockObject(NULL_PEN) );
/* Dump the wall */
Rectangle(hdc, rc.left, rc.top, rc.right+1, rc.bottom+1);
SelectObject(hdc, oldBrush);
SelectObject(hdc, oldPen);
/* Advance */
rc.left += td->tile_wid;
rc.right += td->tile_wid;
} else {
/* Dump the text */
ExtTextOut(hdc, rc.left, rc.top, ETO_CLIPPED, &rc,
s+i, 1, NULL);
/* Advance */
rc.left += td->tile_wid;
rc.right += td->tile_wid;
}
#else
if (*(s+i)==127){
oldBrush = SelectObject(hdc, myBrush);
oldPen = SelectObject(hdc, GetStockObject(NULL_PEN) );
/* Dump the wall */
Rectangle(hdc, rc.left, rc.top, rc.right+1, rc.bottom+1);
SelectObject(hdc, oldBrush);
SelectObject(hdc, oldPen);
/* Advance */
rc.left += td->tile_wid;
rc.right += td->tile_wid;
} else {
/* Dump the text */
ExtTextOut(hdc, rc.left, rc.top, ETO_CLIPPED, &rc,
s+i, 1, NULL);
/* Advance */
rc.left += td->tile_wid;
rc.right += td->tile_wid;
}
#endif
}
}
/* Normal size */
else
{
/* Dump the text */
ExtTextOut(hdc, rc.left, rc.top, ETO_OPAQUE | ETO_CLIPPED, &rc,
s, n, NULL);
}
/* Release DC */
ReleaseDC(td->w, hdc);
/* Success */
return 0;
}
/*
* Low level graphics. Assumes valid input.
*
* Draw an array of "special" attr/char pairs at the given location.
*
* We use the "Term_pict_win()" function for "graphic" data, which are
* encoded by setting the "high-bits" of both the "attr" and the "char"
* data. We use the "attr" to represent the "row" of the main bitmap,
* and the "char" to represent the "col" of the main bitmap. The use
* of this function is induced by the "higher_pict" flag.
*
* If "graphics" is not available, we simply "wipe" the given grids.
*/
static errr Term_pict_win(int x, int y, int n, const byte *ap, const char *cp, const byte *tap, const char *tcp)
{
term_data *td = (term_data*)(Term->data);
#ifdef USE_GRAPHICS
int i;
int x1, y1, w1, h1;
int x2, y2, w2, h2, tw2;
int x3, y3;
HDC hdcMask;
HDC hdc;
HDC hdcSrc;
HBITMAP hbmSrcOld;
if ((x >= (s32b)td->cols) || (y >= (s32b)td->rows)) return 0;
/* Paranoia */
if (!use_graphics)
{
/* Erase the grids */
return (Term_wipe_win(x, y, n));
}
/* Size of bitmap cell */
w1 = infGraph.CellWidth;
h1 = infGraph.CellHeight;
/* Size of window cell */
if (td->map_active)
{
w2 = td->map_tile_wid;
h2 = td->map_tile_hgt;
}
else
{
w2 = td->tile_wid;
h2 = td->tile_hgt;
tw2 = w2;
/* big tile mode */
if (use_bigtile) tw2 *= 2;
}
/* Location of window cell */
x2 = x * w2 + td->size_ow1;
y2 = y * h2 + td->size_oh1;
/* Info */
hdc = GetDC(td->w);
/* More info */
hdcSrc = CreateCompatibleDC(hdc);
hbmSrcOld = (HBITMAP)SelectObject(hdcSrc, infGraph.hBitmap);
if (use_transparency)
{
hdcMask = CreateCompatibleDC(hdc);
SelectObject(hdcMask, infMask.hBitmap);
SetTextColor(hdc, 0x00ffffff); /* Turn back text color white for bitblt of mask */
}
/* Draw attr/char pairs */
for (i = 0; i < n; i++, x2 += w2)
{
byte a = ap[i];
char c = cp[i];
/* Extract picture */
int row = (a & 0x7F);
int col = (c & 0x7F);
/* Location of bitmap cell */
x1 = col * w1;
y1 = row * h1;
if (use_transparency)
{
x3 = (tcp[i] & 0x7F) * w1;
y3 = (tap[i] & 0x7F) * h1;
/* Perfect size */
if ((w1 == tw2) && (h1 == h2))
{
/* Copy the terrain picture from the bitmap to the window */
BitBlt(hdc, x2, y2, tw2, h2, hdcSrc, x3, y3, SRCCOPY);
/* Mask out the tile */
BitBlt(hdc, x2, y2, tw2, h2, hdcMask, x1, y1, SRCAND);
/* Draw the tile */
BitBlt(hdc, x2, y2, tw2, h2, hdcSrc, x1, y1, SRCPAINT);
}
/* Need to stretch */
else
{
/* Set the correct mode for stretching the tiles */
SetStretchBltMode(hdc, COLORONCOLOR);
/* Copy the terrain picture from the bitmap to the window */
StretchBlt(hdc, x2, y2, tw2, h2, hdcSrc, x3, y3, w1, h1, SRCCOPY);
/* Only draw if terrain and overlay are different */
if ((x1 != x3) || (y1 != y3))
{
/* Mask out the tile */
StretchBlt(hdc, x2, y2, tw2, h2, hdcMask, x1, y1, w1, h1, SRCAND);
/* Draw the tile */
StretchBlt(hdc, x2, y2, tw2, h2, hdcSrc, x1, y1, w1, h1, SRCPAINT);
}
}
}
else
{
/* Perfect size */
if ((w1 == tw2) && (h1 == h2))
{
/* Copy the picture from the bitmap to the window */
BitBlt(hdc, x2, y2, tw2, h2, hdcSrc, x1, y1, SRCCOPY);
}
/* Need to stretch */
else
{
/* Set the correct mode for stretching the tiles */
SetStretchBltMode(hdc, COLORONCOLOR);
/* Copy the picture from the bitmap to the window */
StretchBlt(hdc, x2, y2, tw2, h2, hdcSrc, x1, y1, w1, h1, SRCCOPY);
}
}
}
/* Release */
SelectObject(hdcSrc, hbmSrcOld);
DeleteDC(hdcSrc);
if (use_transparency);
{
/* Release */
SelectObject(hdcMask, hbmSrcOld);
DeleteDC(hdcMask);
}
/* Release */
ReleaseDC(td->w, hdc);
#else /* USE_GRAPHICS */
/* Just erase this grid */
return (Term_wipe_win(x, y, n));
#endif /* USE_GRAPHICS */
/* Success */
return 0;
}
static void windows_map_aux(void)
{
term_data *td = &data[0];
byte a;
char c;
int x, min_x, max_x;
int y, min_y, max_y;
byte ta;
char tc;
td->map_tile_wid = (td->tile_wid * td->cols) / cur_wid;
td->map_tile_hgt = (td->tile_hgt * td->rows) / cur_hgt;
min_x = 0;
min_y = 0;
max_x = cur_wid;
max_y = cur_hgt;
/* Draw the map */
for (x = min_x; x < max_x; x++)
{
for (y = min_y; y < max_y; y++)
{
map_info(y, x, &a, &c, &ta, &tc);
/* Ignore non-graphics */
if ((a & 0x80) && (c & 0x80))
{
Term_pict_win(x - min_x, y - min_y, 1, &a, &c, &ta, &tc);
}
}
}
/* Hilite the player */
Term_curs_win(px - min_x, py - min_y);
}
/*
* MEGA_HACK - Display a graphical map of the dungeon.
*/
static void windows_map(void)
{
term_data *td = &data[0];
char ch;
/* Only in graphics mode since the fonts can't be scaled */
if (!use_graphics) return;
/* Clear screen */
Term_xtra_win_clear();
td->map_active = TRUE;
/* Draw the map */
windows_map_aux();
/* Wait for a keypress, flush key buffer */
Term_inkey(&ch, TRUE, TRUE);
Term_flush();
/* Switch off the map display */
td->map_active = FALSE;
/* Restore screen */
Term_xtra_win_clear();
Term_redraw();
}
void Term_inversed_area(HWND hWnd, int x, int y, int w, int h)
{
HDC hdc;
HPEN oldPen;
HBRUSH myBrush, oldBrush;
term_data *td = (term_data *)GetWindowLong(hWnd, 0);
int tx = td->size_ow1 + x * td->tile_wid;
int ty = td->size_oh1 + y * td->tile_hgt;
int tw = w * td->tile_wid - 1;
int th = h * td->tile_hgt - 1;
hdc = GetDC(hWnd);
myBrush = CreateSolidBrush(RGB(255, 255, 255));
oldBrush = SelectObject(hdc, myBrush);
oldPen = SelectObject(hdc, GetStockObject(NULL_PEN) );
PatBlt(hdc, tx, ty, tw, th, PATINVERT);
SelectObject(hdc, oldBrush);
SelectObject(hdc, oldPen);
}
/*** Other routines ***/
/*
* Create and initialize a "term_data" given a title
*/
static void term_data_link(term_data *td)
{
term *t = &td->t;
/* Initialize the term */
term_init(t, td->cols, td->rows, td->keys);
/* Use a "software" cursor */
t->soft_cursor = TRUE;
/* Use "Term_pict" for "graphic" data */
t->higher_pict = TRUE;
/* Erase with "white space" */
t->attr_blank = TERM_WHITE;
t->char_blank = ' ';
#if 0
/* Prepare the init/nuke hooks */
t->init_hook = Term_init_win;
t->nuke_hook = Term_nuke_win;
#endif /* 0 */
/* Prepare the template hooks */
t->user_hook = Term_user_win;
t->xtra_hook = Term_xtra_win;
t->curs_hook = Term_curs_win;
t->bigcurs_hook = Term_bigcurs_win;
t->wipe_hook = Term_wipe_win;
t->text_hook = Term_text_win;
t->pict_hook = Term_pict_win;
/* Remember where we came from */
t->data = (vptr)(td);
}
/*
* Create the windows
*
* First, instantiate the "default" values, then read the "ini_file"
* to over-ride selected values, then create the windows, and fonts.
*
* Must use SW_SHOW not SW_SHOWNA, since on 256 color display
* must make active to realize the palette. XXX XXX XXX
*/
static void init_windows(void)
{
int i;
term_data *td;
#if 0 /* #ifndef JP */
char buf[1024];
#endif
/* Main window */
td = &data[0];
WIPE(td, term_data);
td->s = angband_term_name[0];
td->keys = 1024;
td->rows = 24;
td->cols = 80;
td->visible = TRUE;
td->size_ow1 = 2;
td->size_ow2 = 2;
td->size_oh1 = 2;
td->size_oh2 = 2;
td->pos_x = 30;
td->pos_y = 20;
td->posfix = FALSE;
#if 1 /* #ifdef JP */
td->bizarre = TRUE;
#endif
/* Sub windows */
for (i = 1; i < MAX_TERM_DATA; i++)
{
td = &data[i];
WIPE(td, term_data);
td->s = angband_term_name[i];
td->keys = 16;
td->rows = 24;
td->cols = 80;
td->visible = FALSE;
td->size_ow1 = 1;
td->size_ow2 = 1;
td->size_oh1 = 1;
td->size_oh2 = 1;
td->pos_x = (7 - i) * 30;
td->pos_y = (7 - i) * 20;
td->posfix = FALSE;
#if 1 /* #ifdef JP */
td->bizarre = TRUE;
#endif
}
/* Load prefs (appname.ini) */
load_prefs();
/* Main window (need these before term_getsize gets called) */
td = &data[0];
td->dwStyle = (WS_OVERLAPPED | WS_THICKFRAME | WS_SYSMENU |
WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CAPTION);
td->dwExStyle = 0;
td->visible = TRUE;
/* Sub windows (need these before term_getsize gets called) */
for (i = 1; i < MAX_TERM_DATA; i++)
{
td = &data[i];
td->dwStyle = (WS_OVERLAPPED | WS_THICKFRAME | WS_SYSMENU);
td->dwExStyle = (WS_EX_TOOLWINDOW);
}
/* Set font and size of all windows */
for (i = 0; i < MAX_TERM_DATA; i++)
{
td = &data[i];
#if 1 /* #ifdef JP */
strncpy(td->lf.lfFaceName, td->font_want, LF_FACESIZE);
td->lf.lfCharSet = SHIFTJIS_CHARSET;
td->lf.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
/* Activate the chosen font */
term_force_font(td, NULL);
td->tile_wid = td->font_wid;
td->tile_hgt = td->font_hgt;
#else
/* Access the standard font file */
path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_FONT, td->font_want);
/* Activate the chosen font */
if (term_force_font(td, buf))
{
/* Access the standard font file */
path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_FONT, "8X13.FON");
/* Force the use of that font */
(void)term_force_font(td, buf);
/* Oops */
td->tile_wid = 8;
td->tile_hgt = 13;
/* Assume not bizarre */
td->bizarre = FALSE;
}
#endif
/* Analyze the font */
term_getsize(td);
/* Resize the window */
term_window_resize(td);
}
/* Create sub windows (reverse order) */
for (i = MAX_TERM_DATA - 1; i >= 1; --i)
{
td = &data[i];
my_td = td;
td->w = CreateWindowEx(td->dwExStyle, AngList,
td->s, td->dwStyle,
td->pos_x, td->pos_y,
td->size_wid, td->size_hgt,
HWND_DESKTOP, NULL, hInstance, NULL);
my_td = NULL;
#ifdef JP
if (!td->w) quit("サブウィンドウに作成に失敗しました");
#else
if (!td->w) quit("Failed to create sub-window");
#endif
if (td->visible)
{
td->size_hack = TRUE;
ShowWindow(td->w, SW_SHOW);
td->size_hack = FALSE;
angband_term[i] = &td->t;
}
else
{
angband_term[i] = 0;
}
term_data_link(td);
if (data[i].posfix)
{
term_window_pos(&data[i], HWND_TOPMOST);
}
else
{
term_window_pos(&data[i], td->w);
}
}
/* Create main window */
td = &data[0];
my_td = td;
td->w = CreateWindowEx(td->dwExStyle, AppName,
td->s, td->dwStyle,
td->pos_x, td->pos_y,
td->size_wid, td->size_hgt,
HWND_DESKTOP, NULL, hInstance, NULL);
my_td = NULL;
#ifdef JP
if (!td->w) quit("メインウィンドウの作成に失敗しました");
#else
if (!td->w) quit("Failed to create Angband window");
#endif
term_data_link(td);
angband_term[0] = &td->t;
normsize.x = td->cols;
normsize.y = td->rows;
/* Activate the main window */
if (win_maximized) ShowWindow(td->w, SW_SHOWMAXIMIZED);
else ShowWindow(td->w, SW_SHOW);
/* Bring main window back to top */
SetWindowPos(td->w, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
#ifdef SUPPORT_GAMMA
if (gamma_correction > 0)
build_gamma_table(gamma_correction);
#endif /* SUPPORT_GAMMA */
/* New palette XXX XXX XXX */
(void)new_palette();
/* Create a "brush" for drawing the "cursor" */
hbrYellow = CreateSolidBrush(win_clr[TERM_YELLOW]);
/* Process pending messages */
(void)Term_xtra_win_flush();
}
#ifdef USE_SAVER
/*
* Stop the screensaver
*/
static void stop_screensaver(void)
{
if (screensaver)
SendMessage(data[0].w, WM_CLOSE, 0, 0);
else
SendMessage(data[0].w, WM_COMMAND, IDM_OPTIONS_SAVER, 0);
}
#endif /* USE_SAVER */
/*
* Prepare the menus
*/
static void setup_menus(void)
{
int i;
HMENU hm = GetMenu(data[0].w);
#ifdef USE_SAVER
main_menu = hm;
#endif /* USE_SAVER */
/* Menu "File", Disable all */
EnableMenuItem(hm, IDM_FILE_NEW,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_FILE_OPEN,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_FILE_SAVE,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_FILE_EXIT,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_FILE_SCORE,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
/* No character available */
if (!character_generated)
{
/* Menu "File", Item "New" */
EnableMenuItem(hm, IDM_FILE_NEW, MF_BYCOMMAND | MF_ENABLED);
/* Menu "File", Item "Open" */
EnableMenuItem(hm, IDM_FILE_OPEN, MF_BYCOMMAND | MF_ENABLED);
}
/* A character available */
if (character_generated)
{
/* Menu "File", Item "Save" */
EnableMenuItem(hm, IDM_FILE_SAVE, MF_BYCOMMAND | MF_ENABLED);
}
/* Menu "File", Item "Exit" */
EnableMenuItem(hm, IDM_FILE_EXIT, MF_BYCOMMAND | MF_ENABLED);
/* Menu "File", Item "Show Scores" */
EnableMenuItem(hm, IDM_FILE_SCORE, MF_BYCOMMAND | MF_ENABLED);
/* Menu "Window::Visibility" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_VIS_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
CheckMenuItem(hm, IDM_WINDOW_VIS_0 + i,
(data[i].visible ? MF_CHECKED : MF_UNCHECKED));
EnableMenuItem(hm, IDM_WINDOW_VIS_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
/* Menu "Window::Font" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_FONT_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_FONT_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Window Position Fix" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_POS_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
CheckMenuItem(hm, IDM_WINDOW_POS_0 + i,
(data[i].posfix ? MF_CHECKED : MF_UNCHECKED));
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_POS_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Bizarre Display" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_BIZ_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
CheckMenuItem(hm, IDM_WINDOW_BIZ_0 + i,
(data[i].bizarre ? MF_CHECKED : MF_UNCHECKED));
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_BIZ_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Increase Tile Width" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_I_WID_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_I_WID_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Decrease Tile Width" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_D_WID_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_D_WID_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Increase Tile Height" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_I_HGT_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_I_HGT_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Window::Decrease Tile Height" */
for (i = 0; i < MAX_TERM_DATA; i++)
{
EnableMenuItem(hm, IDM_WINDOW_D_HGT_0 + i,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
if (data[i].visible)
{
EnableMenuItem(hm, IDM_WINDOW_D_HGT_0 + i,
MF_BYCOMMAND | MF_ENABLED);
}
}
/* Menu "Options", disable all */
EnableMenuItem(hm, IDM_OPTIONS_NO_GRAPHICS,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_OLD_GRAPHICS,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_24X24_GRAPHICS,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_NEW_GRAPHICS,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_BIGTILE,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_SOUND,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_SAVER,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
EnableMenuItem(hm, IDM_OPTIONS_LOW_PRIORITY,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
/* Menu "Options", Item "Map" */
if (use_graphics != GRAPHICS_NONE)
EnableMenuItem(GetMenu(data[0].w), IDM_OPTIONS_MAP, MF_BYCOMMAND | MF_ENABLED);
else
EnableMenuItem(GetMenu(data[0].w), IDM_OPTIONS_MAP,
MF_BYCOMMAND | MF_DISABLED | MF_GRAYED);
/* Menu "Options", update all */
CheckMenuItem(hm, IDM_OPTIONS_NO_GRAPHICS,
(arg_graphics == GRAPHICS_NONE ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_OLD_GRAPHICS,
(arg_graphics == GRAPHICS_ORIGINAL ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_24X24_GRAPHICS,
(arg_graphics == GRAPHICS_24X24 ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_NEW_GRAPHICS,
(arg_graphics == GRAPHICS_ADAM_BOLT ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_BIGTILE,
(arg_bigtile ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_SOUND,
(arg_sound ? MF_CHECKED : MF_UNCHECKED));
CheckMenuItem(hm, IDM_OPTIONS_BG,
(use_bg ? MF_CHECKED : MF_UNCHECKED));
#ifdef USE_SAVER
CheckMenuItem(hm, IDM_OPTIONS_SAVER,
(hwndSaver ? MF_CHECKED : MF_UNCHECKED));
#endif /* USE_SAVER */
CheckMenuItem(hm, IDM_OPTIONS_LOW_PRIORITY,
(low_priority ? MF_CHECKED : MF_UNCHECKED));
#ifdef USE_GRAPHICS
/* Menu "Options", Item "Graphics" */
EnableMenuItem(hm, IDM_OPTIONS_NO_GRAPHICS, MF_ENABLED);
/* Menu "Options", Item "Graphics" */
EnableMenuItem(hm, IDM_OPTIONS_OLD_GRAPHICS, MF_ENABLED);
/* Menu "Options", Item "Graphics" */
EnableMenuItem(hm, IDM_OPTIONS_24X24_GRAPHICS, MF_ENABLED);
/* Menu "Options", Item "Graphics" */
EnableMenuItem(hm, IDM_OPTIONS_NEW_GRAPHICS, MF_ENABLED);
/* Menu "Options", Item "Graphics" */
EnableMenuItem(hm, IDM_OPTIONS_BIGTILE, MF_ENABLED);
#endif /* USE_GRAPHICS */
#ifdef USE_SOUND
/* Menu "Options", Item "Sound" */
EnableMenuItem(hm, IDM_OPTIONS_SOUND, MF_ENABLED);
#endif /* USE_SOUND */
#ifdef USE_SAVER
/* Menu "Options", Item "ScreenSaver" */
EnableMenuItem(hm, IDM_OPTIONS_SAVER,
MF_BYCOMMAND | MF_ENABLED);
#endif /* USE_SAVER */
EnableMenuItem(hm, IDM_OPTIONS_LOW_PRIORITY,
MF_BYCOMMAND | MF_ENABLED);
}
/*
* Check for double clicked (or dragged) savefile
*
* Apparently, Windows copies the entire filename into the first
* piece of the "command line string". Perhaps we should extract
* the "basename" of that filename and append it to the "save" dir.
*/
static void check_for_save_file(LPSTR cmd_line)
{
char *s;
/* First arg */
s = cmd_line;
/* No args */
if (!s || !*s) return;
/* Extract filename */
strcat(savefile, s);
/* Validate the file */
validate_file(savefile);
/* Game in progress */
game_in_progress = TRUE;
Term_fresh();
/* Play game */
play_game(FALSE);
}
#ifdef USE_SAVER
#ifdef ALLOW_BORG
/*
* Hook into the inkey() function so that flushing keypresses
* doesn't affect us.
*
* ToDo: Try to implement recording and playing back of games
* by saving/reading the keypresses to/from a file. Note that
* interrupting certain actions (resting, running, and other
* repeated actions) would mess that up, so this would have to
* be switched off when recording.
*/
extern char (*inkey_hack)(int flush_first);
static char screensaver_inkey_hack_buffer[1024];
static screensaver_inkey_hack_index = 0;
static char screensaver_inkey_hack(int flush_first)
{
return screensaver_inkey_hack_buffer[screensaver_inkey_hack_index++];
}
#endif /* ALLOW_BORG */
/*
* Start the screensaver
*/
static void start_screensaver(void)
{
char path[1024];
bool file_exists;
#ifdef ALLOW_BORG
int i, j;
#endif /* ALLOW_BORG */
/* Filename of the screensaver savefile */
path_build(path, sizeof(path), ANGBAND_DIR_SAVE, saverfilename);
/* Does the file already exist? */
file_exists = check_file(path);
/* Set the savefile name */
if (file_exists)
strncpy(savefile, path, 1024);
/* Game in progress */
game_in_progress = TRUE;
Term_fresh();
/* Screensaver mode on */
SendMessage(data[0].w, WM_COMMAND, IDM_OPTIONS_SAVER, 0);
/* Low priority */
SendMessage(data[0].w, WM_COMMAND, IDM_OPTIONS_LOW_PRIORITY, 0);
#ifdef ALLOW_BORG
/*
* MegaHack - Try to start the Borg.
*
* The simulated keypresses will be processed when play_game()
* is called.
*/
inkey_hack = screensaver_inkey_hack;
j = 0;
/*
* If no savefile is present or then go through the steps necessary
* to create a random character. If a savefile already is present
* then the simulated keypresses will either clean away any [-more-]
* prompts (if the character is alive), or create a new random
* character.
*
* Luckily it's possible to send the same keypresses no matter if
* the character is alive, dead, or not even yet created.
*/
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Gender */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Race */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Class */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Modify options */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Reroll */
if (!file_exists)
{
/* Savefile name */
int n = strlen(saverfilename);
for (i = 0; i < n; i++)
screensaver_inkey_hack_buffer[j++] = saverfilename[i];
}
screensaver_inkey_hack_buffer[j++] = '\r'; /* Return */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Character info */
/*
* Make sure the "verify_special" options is off, so that we can
* get into Borg mode without confirmation.
*/
screensaver_inkey_hack_buffer[j++] = '='; /* Enter options screen */
screensaver_inkey_hack_buffer[j++] = '2'; /* Disturbance options */
/* Cursor down to "verify_special" */
for (i = 0; i < 13; i++)
screensaver_inkey_hack_buffer[j++] = '2';
screensaver_inkey_hack_buffer[j++] = 'n'; /* Switch off "verify_special" */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Leave disturbance options */
/*
* Make sure the "cheat_live" option is set, so that the Borg can
* automatically restart.
*/
screensaver_inkey_hack_buffer[j++] = '6'; /* Cheat options */
/* Cursor down to "cheat live" */
for (i = 0; i < OPT_cheat_live - OPT_CHEAT; i++)
screensaver_inkey_hack_buffer[j++] = '2';
screensaver_inkey_hack_buffer[j++] = 'y'; /* Switch on "cheat_live" */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Leave cheat options */
screensaver_inkey_hack_buffer[j++] = ESCAPE; /* Leave options */
/*
* Now start the Borg!
*/
screensaver_inkey_hack_buffer[j++] = KTRL('Z'); /* Enter borgmode */
screensaver_inkey_hack_buffer[j++] = 'z'; /* Run Borg */
#endif /* ALLOW_BORG */
/* Play game */
play_game((bool)!file_exists);
}
#endif /* USE_SAVER */
/*
* Process a menu command
*/
static void process_menus(WORD wCmd)
{
int i;
term_data *td;
OPENFILENAME ofn;
/* Analyze */
switch (wCmd)
{
/* New game */
case IDM_FILE_NEW:
{
if (!initialized)
{
#ifdef JP
plog("まだ初期化中です...");
#else
plog("You cannot do that yet...");
#endif
}
else if (game_in_progress)
{
#ifdef JP
plog("プレイ中は新しいゲームを始めることができません！");
#else
plog("You can't start a new game while you're still playing!");
#endif
}
else
{
game_in_progress = TRUE;
Term_flush();
play_game(TRUE);
quit(NULL);
}
break;
}
/* Open game */
case IDM_FILE_OPEN:
{
if (!initialized)
{
#ifdef JP
plog("まだ初期化中です...");
#else
plog("You cannot do that yet...");
#endif
}
else if (game_in_progress)
{
#ifdef JP
plog("プレイ中はゲームをロードすることができません！");
#else
plog("You can't open a new game while you're still playing!");
#endif
}
else
{
memset(&ofn, 0, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = data[0].w;
ofn.lpstrFilter = "Save Files (*.)\0*\0";
ofn.nFilterIndex = 1;
ofn.lpstrFile = savefile;
ofn.nMaxFile = 1024;
ofn.lpstrInitialDir = ANGBAND_DIR_SAVE;
ofn.Flags = OFN_FILEMUSTEXIST | OFN_NOCHANGEDIR;
if (GetOpenFileName(&ofn))
{
/* Load 'savefile' */
validate_file(savefile);
game_in_progress = TRUE;
Term_flush();
play_game(FALSE);
quit(NULL);
}
}
break;
}
/* Save game */
case IDM_FILE_SAVE:
{
if (game_in_progress && character_generated)
{
/* Paranoia */
if (!inkey_flag && !can_save)
{
#ifdef JP
plog("キー入力待ちのときにセーブすることは出来ません。");
#else
plog("You may not do that right now.");
#endif
break;
}
/* Hack -- Forget messages */
msg_flag = FALSE;
forget_lite();
forget_view();
clear_mon_lite();
/* Save the game */
do_cmd_save_game(FALSE);
}
else
{
#ifdef JP
plog("今、セーブすることは出来ません。");
#else
plog("You may not do that right now.");
#endif
}
break;
}
/* Show scores */
case IDM_FILE_SCORE:
{
char buf[1024];
/* Build the filename */
path_build(buf, sizeof(buf), ANGBAND_DIR_APEX, "scores.raw");
/* Open the binary high score file, for reading */
highscore_fd = fd_open(buf, O_RDONLY);
/* Paranoia -- No score file */
if (highscore_fd < 0)
{
msg_print("Score file unavailable.");
}
else
{
/* Save Screen */
screen_save();
/* Clear screen */
Term_clear();
/* Display the scores */
if (game_in_progress && character_generated)
predict_score();
else
display_scores_aux(0, MAX_HISCORES, -1, NULL);
/* Shut the high score file */
(void)fd_close(highscore_fd);
/* Forget the high score fd */
highscore_fd = -1;
/* Load screen */
screen_load();
/* Hack - Flush it */
Term_fresh();
}
break;
}
/* Open game */
case IDM_FILE_MOVIE:
{
if (!initialized)
{
#ifdef JP
plog("まだ初期化中です...");
#else
plog("You cannot do that yet...");
#endif
}
else if (game_in_progress)
{
#ifdef JP
plog("プレイ中はムービーをロードすることができません！");
#else
plog("You can't open a movie while you're playing!");
#endif
}
else
{
memset(&ofn, 0, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = data[0].w;
ofn.lpstrFilter = "Angband Movie Files (*.amv)\0*.amv\0";
ofn.nFilterIndex = 1;
ofn.lpstrFile = savefile;
ofn.nMaxFile = 1024;
ofn.lpstrInitialDir = ANGBAND_DIR_USER;
ofn.Flags = OFN_FILEMUSTEXIST | OFN_NOCHANGEDIR;
if (GetOpenFileName(&ofn))
{
/* Load 'savefile' */
prepare_browse_movie_aux(savefile);
play_game(FALSE);
quit(NULL);
return;
}
}
break;
}
/* Exit */
case IDM_FILE_EXIT:
{
if (game_in_progress && character_generated)
{
/* Paranoia */
if (!inkey_flag && !can_save)
{
#ifdef JP
plog("キー入力待ちのときにセーブすることは出来ません。");
#else
plog("You may not do that right now.");
#endif
break;
}
/* Hack -- Forget messages */
msg_flag = FALSE;
forget_lite();
forget_view();
clear_mon_lite();
/* Save the game */
Term_key_push(SPECIAL_KEY_QUIT);
break;
}
quit(NULL);
break;
}
case IDM_WINDOW_VIS_0:
{
#ifdef JP
plog("メインウィンドウは非表示にできません！");
#else
plog("You are not allowed to do that!");
#endif
break;
}
/* Window visibility */
case IDM_WINDOW_VIS_1:
case IDM_WINDOW_VIS_2:
case IDM_WINDOW_VIS_3:
case IDM_WINDOW_VIS_4:
case IDM_WINDOW_VIS_5:
case IDM_WINDOW_VIS_6:
case IDM_WINDOW_VIS_7:
{
i = wCmd - IDM_WINDOW_VIS_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
if (!td->visible)
{
td->visible = TRUE;
angband_term[i] = &td->t;
ShowWindow(td->w, SW_SHOW);
term_data_redraw(td);
}
else
{
td->visible = FALSE;
td->posfix = FALSE;
angband_term[i] = 0;
ShowWindow(td->w, SW_HIDE);
}
break;
}
/* Window fonts */
case IDM_WINDOW_FONT_0:
case IDM_WINDOW_FONT_1:
case IDM_WINDOW_FONT_2:
case IDM_WINDOW_FONT_3:
case IDM_WINDOW_FONT_4:
case IDM_WINDOW_FONT_5:
case IDM_WINDOW_FONT_6:
case IDM_WINDOW_FONT_7:
{
i = wCmd - IDM_WINDOW_FONT_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
term_change_font(td);
break;
}
/* Window Z Position */
case IDM_WINDOW_POS_1:
case IDM_WINDOW_POS_2:
case IDM_WINDOW_POS_3:
case IDM_WINDOW_POS_4:
case IDM_WINDOW_POS_5:
case IDM_WINDOW_POS_6:
case IDM_WINDOW_POS_7:
{
i = wCmd - IDM_WINDOW_POS_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
if (!td->posfix && td->visible)
{
td->posfix = TRUE;
term_window_pos(td, HWND_TOPMOST);
}
else
{
td->posfix = FALSE;
term_window_pos(td, data[0].w);
}
break;
}
/* Bizarre Display */
case IDM_WINDOW_BIZ_0:
case IDM_WINDOW_BIZ_1:
case IDM_WINDOW_BIZ_2:
case IDM_WINDOW_BIZ_3:
case IDM_WINDOW_BIZ_4:
case IDM_WINDOW_BIZ_5:
case IDM_WINDOW_BIZ_6:
case IDM_WINDOW_BIZ_7:
{
i = wCmd - IDM_WINDOW_BIZ_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
td->bizarre = !td->bizarre;
term_getsize(td);
term_window_resize(td);
break;
}
/* Increase Tile Width */
case IDM_WINDOW_I_WID_0:
case IDM_WINDOW_I_WID_1:
case IDM_WINDOW_I_WID_2:
case IDM_WINDOW_I_WID_3:
case IDM_WINDOW_I_WID_4:
case IDM_WINDOW_I_WID_5:
case IDM_WINDOW_I_WID_6:
case IDM_WINDOW_I_WID_7:
{
i = wCmd - IDM_WINDOW_I_WID_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
td->tile_wid += 1;
term_getsize(td);
term_window_resize(td);
break;
}
/* Decrease Tile Height */
case IDM_WINDOW_D_WID_0:
case IDM_WINDOW_D_WID_1:
case IDM_WINDOW_D_WID_2:
case IDM_WINDOW_D_WID_3:
case IDM_WINDOW_D_WID_4:
case IDM_WINDOW_D_WID_5:
case IDM_WINDOW_D_WID_6:
case IDM_WINDOW_D_WID_7:
{
i = wCmd - IDM_WINDOW_D_WID_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
td->tile_wid -= 1;
term_getsize(td);
term_window_resize(td);
break;
}
/* Increase Tile Height */
case IDM_WINDOW_I_HGT_0:
case IDM_WINDOW_I_HGT_1:
case IDM_WINDOW_I_HGT_2:
case IDM_WINDOW_I_HGT_3:
case IDM_WINDOW_I_HGT_4:
case IDM_WINDOW_I_HGT_5:
case IDM_WINDOW_I_HGT_6:
case IDM_WINDOW_I_HGT_7:
{
i = wCmd - IDM_WINDOW_I_HGT_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
td->tile_hgt += 1;
term_getsize(td);
term_window_resize(td);
break;
}
/* Decrease Tile Height */
case IDM_WINDOW_D_HGT_0:
case IDM_WINDOW_D_HGT_1:
case IDM_WINDOW_D_HGT_2:
case IDM_WINDOW_D_HGT_3:
case IDM_WINDOW_D_HGT_4:
case IDM_WINDOW_D_HGT_5:
case IDM_WINDOW_D_HGT_6:
case IDM_WINDOW_D_HGT_7:
{
i = wCmd - IDM_WINDOW_D_HGT_0;
if ((i < 0) || (i >= MAX_TERM_DATA)) break;
td = &data[i];
td->tile_hgt -= 1;
term_getsize(td);
term_window_resize(td);
break;
}
case IDM_OPTIONS_NO_GRAPHICS:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_graphics" */
if (arg_graphics != GRAPHICS_NONE)
{
arg_graphics = GRAPHICS_NONE;
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
}
break;
}
case IDM_OPTIONS_OLD_GRAPHICS:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_graphics" */
if (arg_graphics != GRAPHICS_ORIGINAL)
{
arg_graphics = GRAPHICS_ORIGINAL;
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
}
break;
}
case IDM_OPTIONS_24X24_GRAPHICS:
{
term_data *td = &data[0];
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_graphics" */
if (arg_graphics != GRAPHICS_24X24)
{
arg_graphics = GRAPHICS_24X24;
#ifdef JP
/* Auto apply bigtile */
if (!arg_bigtile)
{
arg_bigtile = TRUE;
/* Activate */
Term_activate(&td->t);
/* Resize the term */
Term_resize(td->cols, td->rows);
}
#endif
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
}
break;
}
case IDM_OPTIONS_NEW_GRAPHICS:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_graphics" */
if (arg_graphics != GRAPHICS_ADAM_BOLT)
{
arg_graphics = GRAPHICS_ADAM_BOLT;
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
}
break;
}
case IDM_OPTIONS_BIGTILE:
{
term_data *td = &data[0];
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_bigtile" */
arg_bigtile = !arg_bigtile;
/* Activate */
Term_activate(&td->t);
/* Resize the term */
Term_resize(td->cols, td->rows);
/* Redraw later */
InvalidateRect(td->w, NULL, TRUE);
break;
}
case IDM_OPTIONS_SOUND:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "arg_sound" */
arg_sound = !arg_sound;
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
break;
}
#ifdef USE_SAVER
case IDM_OPTIONS_SAVER:
{
if (hwndSaver)
{
DestroyWindow(hwndSaver);
hwndSaver = NULL;
screensaver_active = FALSE;
/* Switch main menu back on */
SetMenu(data[0].w, main_menu);
for (i = MAX_TERM_DATA - 1; i >= 0; --i)
{
td = &data[i];
if (td->visible)
{
/* Turn the Windows back to normal */
SetWindowLong(td->w, GWL_STYLE, td->dwStyle);
/* Push the window to the top */
SetWindowPos(td->w, HWND_TOP, 0, 0, 0, 0,
SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE);
}
}
ShowCursor(TRUE);
}
else
{
/* Create a screen saver window */
hwndSaver = CreateWindowEx(WS_EX_TOPMOST, "WindowsScreenSaverClass",
"Angband Screensaver",
WS_POPUP | WS_MAXIMIZE | WS_VISIBLE,
0, 0, GetSystemMetrics(SM_CXSCREEN),
GetSystemMetrics(SM_CYSCREEN),
NULL, NULL, hInstance, NULL);
if (hwndSaver)
{
for (i = MAX_TERM_DATA - 1; i >= 0; --i)
{
td = &data[i];
if (td->visible)
{
/* Switch off border and titlebar */
SetWindowLong(td->w, GWL_STYLE, WS_VISIBLE);
/* Switch off menu */
SetMenu(td->w, NULL);
/* Push the window to the top */
SetWindowPos(td->w, HWND_TOPMOST, 0, 0, 0, 0,
SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE);
}
}
ShowCursor(FALSE);
screensaver_active = TRUE;
}
else
{
#ifdef JP
plog("ウィンドウを作成出来ません");
#else
plog("Failed to create saver window");
#endif
}
}
break;
}
#endif /* USE_SAVER */
case IDM_OPTIONS_LOW_PRIORITY:
{
/* Lower or reset the priority of the current process */
if (low_priority)
SetPriorityClass(GetCurrentProcess(), IDLE_PRIORITY_CLASS);
else
SetPriorityClass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS);
/* Toggle priority */
low_priority = !low_priority;
break;
}
case IDM_OPTIONS_MAP:
{
windows_map();
break;
}
/* bg */
case IDM_OPTIONS_BG:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
/* Toggle "use_bg" */
use_bg = !use_bg;
init_bg();
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
break;
}
/* bg */
case IDM_OPTIONS_OPEN_BG:
{
/* Paranoia */
if (!inkey_flag)
{
plog("You may not do that right now.");
break;
}
else
{
memset(&ofn, 0, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = data[0].w;
ofn.lpstrFilter = "Bitmap Files (*.bmp)\0*.bmp\0";
ofn.nFilterIndex = 1;
ofn.lpstrFile = bg_bitmap_file;
ofn.nMaxFile = 1023;
ofn.lpstrInitialDir = NULL;
#ifdef JP
ofn.lpstrTitle = "壁紙を選んでね。";
#else
ofn.lpstrTitle = "Choose wall paper.";
#endif
ofn.Flags = OFN_FILEMUSTEXIST | OFN_HIDEREADONLY;
if (GetOpenFileName(&ofn))
{
/* Load bitmap */
use_bg = 1;
init_bg();
}
/* React to changes */
Term_xtra_win_react();
/* Hack -- Force redraw */
Term_key_push(KTRL('R'));
}
break;
}
case IDM_DUMP_SCREEN_HTML:
{
static char buf[1024] = "";
memset(&ofn, 0, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = data[0].w;
ofn.lpstrFilter = "HTML Files (*.html)\0*.html\0";
ofn.nFilterIndex = 1;
ofn.lpstrFile = buf;
ofn.nMaxFile = 1023;
ofn.lpstrDefExt = "html";
ofn.lpstrInitialDir = NULL;
#ifdef JP
ofn.lpstrTitle = "HTMLでスクリーンダンプを保存";
#else
ofn.lpstrTitle = "Save screen dump as HTML.";
#endif
ofn.Flags = OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT;
if (GetSaveFileName(&ofn))
{
do_cmd_save_screen_html_aux(buf, 0);
}
break;
}
case IDM_HELP_GENERAL:
{
if (game_in_progress)
{
if (character_generated)
{
/* Paranoia */
if (!inkey_flag && !can_save)
{
#ifdef JP
plog("キー入力待ちのときにヘルプを参照出来ません。");
#else
plog("You may not do that right now.");
#endif
break;
}
}
/* Go to do_cmd_help(); */
Term_keypress('?');
}
break;
}
case IDM_HELP_SPOILERS:
{
#ifdef JP
plog("デバッグモードでスポイラファイルを作成できます。");
#else
plog("You may make spoilers with debug-mode.");
#endif
break;
}
}
}
/*
* Redraw a section of a window
*/
void handle_wm_paint(HWND hWnd)
{
int x1, y1, x2, y2;
PAINTSTRUCT ps;
term_data *td;
/* Acquire proper "term_data" info */
td = (term_data *)GetWindowLong(hWnd, 0);
BeginPaint(hWnd, &ps);
if (td->map_active)
{
/* Redraw the map */
/* ToDo: Only redraw the necessary parts */
windows_map_aux();
}
else
{
/* Get the area that should be updated (rounding up/down) */
/* ToDo: Take the window borders into account */
x1 = (ps.rcPaint.left / td->tile_wid) - 1;
x2 = (ps.rcPaint.right / td->tile_wid) + 1;
y1 = (ps.rcPaint.top / td->tile_hgt) - 1;
y2 = (ps.rcPaint.bottom / td->tile_hgt) + 1;
/* Redraw */
if (td) term_data_redraw_section(td, x1, y1, x2, y2);
}
EndPaint(hWnd, &ps);
}
static bool process_keydown(WPARAM wParam, LPARAM lParam)
{
int i;
bool mc = FALSE;
bool ms = FALSE;
bool ma = FALSE;
/* Extract the modifiers */
if (GetKeyState(VK_CONTROL) & 0x8000) mc = TRUE;
if (GetKeyState(VK_SHIFT) & 0x8000) ms = TRUE;
if (GetKeyState(VK_MENU) & 0x8000) ma = TRUE;
Term_no_press = (ma) ? TRUE : FALSE;
/* Handle "special" keys */
if (special_key[(byte)(wParam)] || (ma && !ignore_key[(byte)(wParam)]) )
{
bool ext_key = (lParam & 0x1000000L) ? TRUE : FALSE;
bool numpad = FALSE;
/* Begin the macro trigger */
Term_keypress(31);
/* Send the modifiers */
if (mc) Term_keypress('C');
if (ms) Term_keypress('S');
if (ma) Term_keypress('A');
/* Extract "scan code" */
i = LOBYTE(HIWORD(lParam));
/* Introduce the scan code */
Term_keypress('x');
/* Extended key bit */
switch (wParam)
{
/* Numpad Enter and '/' are extended key */
case VK_DIVIDE:
Term_no_press = TRUE;
case VK_RETURN: /* Enter */
numpad = ext_key;
break;
/* Other extended keys are on full keyboard */
case VK_NUMPAD0:
case VK_NUMPAD1:
case VK_NUMPAD2:
case VK_NUMPAD3:
case VK_NUMPAD4:
case VK_NUMPAD5:
case VK_NUMPAD6:
case VK_NUMPAD7:
case VK_NUMPAD8:
case VK_NUMPAD9:
case VK_ADD:
case VK_MULTIPLY:
case VK_SUBTRACT:
case VK_SEPARATOR:
case VK_DECIMAL:
Term_no_press = TRUE;
case VK_CLEAR:
case VK_HOME:
case VK_END:
case VK_PRIOR: /* Page Up */
case VK_NEXT: /* Page Down */
case VK_INSERT:
case VK_DELETE:
case VK_UP:
case VK_DOWN:
case VK_LEFT:
case VK_RIGHT:
numpad = !ext_key;
}
/* Special modifiers for keypad keys */
if (numpad) Term_keypress('K');
/* Encode the hexidecimal scan code */
Term_keypress(hexsym[i/16]);
Term_keypress(hexsym[i%16]);
/* End the macro trigger */
Term_keypress(13);
return 1;
}
return 0;
}
LRESULT FAR PASCAL AngbandWndProc(HWND hWnd, UINT uMsg,
WPARAM wParam, LPARAM lParam)
{
HDC hdc;
term_data *td;
int i;
#ifdef USE_SAVER
static int iMouse = 0;
static WORD xMouse = 0;
static WORD yMouse = 0;
int dx, dy;
#endif /* USE_SAVER */
/* Acquire proper "term_data" info */
td = (term_data *)GetWindowLong(hWnd, 0);
/* Handle message */
switch (uMsg)
{
/* XXX XXX XXX */
case WM_NCCREATE:
{
SetWindowLong(hWnd, 0, (LONG)(my_td));
break;
}
/* XXX XXX XXX */
case WM_CREATE:
{
return 0;
}
case WM_GETMINMAXINFO:
{
MINMAXINFO FAR *lpmmi;
RECT rc;
lpmmi = (MINMAXINFO FAR *)lParam;
/* this message was sent before WM_NCCREATE */
if (!td) return 1;
/* Minimum window size is 80x24 */
rc.left = rc.top = 0;
rc.right = rc.left + 80 * td->tile_wid + td->size_ow1 + td->size_ow2;
rc.bottom = rc.top + 24 * td->tile_hgt + td->size_oh1 + td->size_oh2 + 1;
/* Adjust */
AdjustWindowRectEx(&rc, td->dwStyle, TRUE, td->dwExStyle);
/* Save minimum size */
lpmmi->ptMinTrackSize.x = rc.right - rc.left;
lpmmi->ptMinTrackSize.y = rc.bottom - rc.top;
return 0;
}
case WM_PAINT:
{
handle_wm_paint(hWnd);
return 0;
}
case WM_SYSKEYDOWN:
case WM_KEYDOWN:
{
#ifdef USE_SAVER
if (screensaver_active)
{
stop_screensaver();
return 0;
}
#endif /* USE_SAVER */
if (process_keydown(wParam, lParam))
return 0;
break;
}
case WM_CHAR:
{
if (Term_no_press) Term_no_press = FALSE;
else Term_keypress(wParam);
return 0;
}
#ifdef USE_SAVER
case WM_MBUTTONDOWN:
case WM_RBUTTONDOWN:
case WM_LBUTTONDOWN:
{
if (screensaver_active)
{
stop_screensaver();
return 0;
}
break;
}
case WM_MOUSEMOVE:
{
if (!screensaver_active) break;
if (iMouse)
{
dx = LOWORD(lParam) - xMouse;
dy = HIWORD(lParam) - yMouse;
if (dx < 0) dx = -dx;
if (dy < 0) dy = -dy;
if ((dx > MOUSE_SENS) || (dy > MOUSE_SENS))
{
stop_screensaver();
}
}
/* Save last location */
iMouse = 1;
xMouse = LOWORD(lParam);
yMouse = HIWORD(lParam);
return 0;
}
#else
case WM_LBUTTONDOWN:
{
mousex = MIN(LOWORD(lParam) / td->tile_wid, td->cols - 1);
mousey = MIN(HIWORD(lParam) / td->tile_hgt, td->rows - 1);
mouse_down = TRUE;
oldx = mousex;
oldy = mousey;
return 0;
}
case WM_LBUTTONUP:
{
HGLOBAL hGlobal;
LPSTR lpStr;
int i, j, sz;
int dx = abs(oldx - mousex) + 1;
int dy = abs(oldy - mousey) + 1;
int ox = (oldx > mousex) ? mousex : oldx;
int oy = (oldy > mousey) ? mousey : oldy;
mouse_down = FALSE;
paint_rect = FALSE;
#ifdef JP
sz = (dx + 3) * dy;
#else
sz = (dx + 2) * dy;
#endif
hGlobal = GlobalAlloc(GHND, sz + 1);
if (hGlobal == NULL) return 0;
lpStr = (LPSTR)GlobalLock(hGlobal);
for (i = 0; i < dy; i++)
{
#ifdef JP
char *s;
char **scr = data[0].t.scr->c;
C_MAKE(s, (dx + 1), char);
strncpy(s, &scr[oy + i][ox], dx);
if (ox > 0)
{
if (iskanji(scr[oy + i][ox - 1])) s[0] = ' ';
}
if (ox + dx < data[0].cols)
{
if (iskanji(scr[oy + i][ox + dx - 1])) s[dx - 1] = ' ';
}
for (j = 0; j < dx; j++)
{
if (s[j] == 127) s[j] = '#';
*lpStr++ = s[j];
}
#else
for (j = 0; j < dx; j++)
{
*lpStr++ = data[0].t.scr->c[oy + i][ox + j];
}
#endif
if (dy > 1)
{
*lpStr++ = '\r';
*lpStr++ = '\n';
}
}
GlobalUnlock(hGlobal);
if (OpenClipboard(hWnd) == 0)
{
GlobalFree(hGlobal);
return 0;
}
EmptyClipboard();
SetClipboardData(CF_TEXT, hGlobal);
CloseClipboard();
Term_redraw();
return 0;
}
case WM_MOUSEMOVE:
{
if (mouse_down)
{
int dx, dy;
int cx = MIN(LOWORD(lParam) / td->tile_wid, td->cols - 1);
int cy = MIN(HIWORD(lParam) / td->tile_hgt, td->rows - 1);
int ox, oy;
if (paint_rect)
{
dx = abs(oldx - mousex) + 1;
dy = abs(oldy - mousey) + 1;
ox = (oldx > mousex) ? mousex : oldx;
oy = (oldy > mousey) ? mousey : oldy;
Term_inversed_area(hWnd, ox, oy, dx, dy);
}
else
{
paint_rect = TRUE;
}
dx = abs(cx - mousex) + 1;
dy = abs(cy - mousey) + 1;
ox = (cx > mousex) ? mousex : cx;
oy = (cy > mousey) ? mousey : cy;
Term_inversed_area(hWnd, ox, oy, dx, dy);
oldx = cx;
oldy = cy;
}
return 0;
}
#endif /* USE_SAVER */
case WM_INITMENU:
{
setup_menus();
return 0;
}
case WM_CLOSE:
{
if (game_in_progress && character_generated)
{
if (!inkey_flag && !can_save)
{
#ifdef JP
plog("キー入力待ちのときにセーブすることは出来ません。");
#else
plog("You may not do that right now.");
#endif
return 0;
}
/* Hack -- Forget messages */
msg_flag = FALSE;
forget_lite();
forget_view();
clear_mon_lite();
/* Save the game */
Term_key_push(SPECIAL_KEY_QUIT);
return 0;
}
quit(NULL);
return 0;
}
case WM_QUERYENDSESSION:
{
if (game_in_progress && character_generated)
{
/* Hack -- Forget messages */
msg_flag = FALSE;
/* Mega-Hack -- Delay death */
if (p_ptr->chp < 0) death = FALSE;
/* If note-taking enabled, write session end to notes file */
if (take_notes) add_note_type(NOTE_SAVE_GAME);
/* Hardcode panic save */
panic_save = 1;
/* Forbid suspend */
signals_ignore_tstp();
/* Indicate panic save */
#ifdef JP
(void)strcpy(died_from, "(緊急セーブ)");
#else
(void)strcpy(died_from, "(panic save)");
#endif
/* Panic save */
(void)save_player();
}
quit(NULL);
return 0;
}
case WM_QUIT:
{
quit(NULL);
return 0;
}
case WM_COMMAND:
{
process_menus(LOWORD(wParam));
return 0;
}
case WM_SIZE:
{
/* this message was sent before WM_NCCREATE */
if (!td) return 1;
/* it was sent from inside CreateWindowEx */
if (!td->w) return 1;
/* was sent from WM_SIZE */
if (td->size_hack) return 1;
switch (wParam)
{
case SIZE_MINIMIZED:
{
/* Hide sub-windows */
for (i = 1; i < MAX_TERM_DATA; i++)
{
if (data[i].visible) ShowWindow(data[i].w, SW_HIDE);
}
return 0;
}
case SIZE_MAXIMIZED:
{
/* fall through */
}
case SIZE_RESTORED:
{
uint cols = (LOWORD(lParam) - td->size_ow1) / td->tile_wid;
uint rows = (HIWORD(lParam) - td->size_oh1) / td->tile_hgt;
/* New size */
if ((td->cols != cols) || (td->rows != rows))
{
/* Save the new size */
td->cols = cols;
td->rows = rows;
if (!IsZoomed(td->w) && !IsIconic(td->w))
{
normsize.x = td->cols;
normsize.y = td->rows;
}
/* Activate */
Term_activate(&td->t);
/* Resize the term */
Term_resize(td->cols, td->rows);
/* Redraw later */
InvalidateRect(td->w, NULL, TRUE);
}
td->size_hack = TRUE;
/* Show sub-windows */
for (i = 1; i < MAX_TERM_DATA; i++)
{
if (data[i].visible)
{
ShowWindow(data[i].w, SW_SHOW);
}
}
td->size_hack = FALSE;
return 0;
}
}
break;
}
case WM_PALETTECHANGED:
{
/* Ignore if palette change caused by itself */
if ((HWND)wParam == hWnd) return 0;
/* Fall through... */
}
case WM_QUERYNEWPALETTE:
{
if (!paletted) return 0;
hdc = GetDC(hWnd);
SelectPalette(hdc, hPal, FALSE);
i = RealizePalette(hdc);
/* if any palette entries changed, repaint the window. */
if (i) InvalidateRect(hWnd, NULL, TRUE);
ReleaseDC(hWnd, hdc);
return 0;
}
case WM_ACTIVATE:
{
if (wParam && !HIWORD(lParam))
{
/* Do something to sub-windows */
for (i = 1; i < MAX_TERM_DATA; i++)
{
if (!data[i].posfix)
term_window_pos(&data[i], hWnd);
}
/* Focus on main window */
SetFocus(hWnd);
return 0;
}
break;
}
case WM_ACTIVATEAPP:
{
if (IsIconic(td->w)) break;
for (i = 1; i < MAX_TERM_DATA; i++)
{
if(data[i].visible)
{
if (wParam == TRUE)
{
ShowWindow(data[i].w, SW_SHOW);
}
else
{
ShowWindow(data[i].w, SW_HIDE);
}
}
}
break;
}
#ifdef USE_MUSIC
case MM_MCINOTIFY:
{
if (wParam == MCI_NOTIFY_SUCCESSFUL)
{
PlayBgm(TRUE);
}
}
#endif
}
return DefWindowProc(hWnd, uMsg, wParam, lParam);
}
LRESULT FAR PASCAL AngbandListProc(HWND hWnd, UINT uMsg,
WPARAM wParam, LPARAM lParam)
{
term_data *td;
HDC hdc;
int i;
#ifdef USE_SAVER
static int iMouse = 0;
static WORD xMouse = 0;
static WORD yMouse = 0;
int dx, dy;
#endif /* USE_SAVER */
/* Acquire proper "term_data" info */
td = (term_data *)GetWindowLong(hWnd, 0);
/* Process message */
switch (uMsg)
{
/* XXX XXX XXX */
case WM_NCCREATE:
{
SetWindowLong(hWnd, 0, (LONG)(my_td));
break;
}
/* XXX XXX XXX */
case WM_CREATE:
{
return 0;
}
case WM_GETMINMAXINFO:
{
MINMAXINFO FAR *lpmmi;
RECT rc;
lpmmi = (MINMAXINFO FAR *)lParam;
/* this message was sent before WM_NCCREATE */
if (!td) return 1;
/* Minimum window size is 20x3 */
rc.left = rc.top = 0;
rc.right = rc.left + 20 * td->tile_wid + td->size_ow1 + td->size_ow2;
rc.bottom = rc.top + 3 * td->tile_hgt + td->size_oh1 + td->size_oh2 + 1;
/* Adjust */
AdjustWindowRectEx(&rc, td->dwStyle, TRUE, td->dwExStyle);
/* Save minimum size */
lpmmi->ptMinTrackSize.x = rc.right - rc.left;
lpmmi->ptMinTrackSize.y = rc.bottom - rc.top;
return 0;
}
case WM_SIZE:
{
uint cols;
uint rows;
/* this message was sent before WM_NCCREATE */
if (!td) return 1;
/* it was sent from inside CreateWindowEx */
if (!td->w) return 1;
/* was sent from inside WM_SIZE */
if (td->size_hack) return 1;
td->size_hack = TRUE;
cols = (LOWORD(lParam) - td->size_ow1) / td->tile_wid;
rows = (HIWORD(lParam) - td->size_oh1) / td->tile_hgt;
/* New size */
if ((td->cols != cols) || (td->rows != rows))
{
/* Save old term */
term *old_term = Term;
/* Save the new size */
td->cols = cols;
td->rows = rows;
/* Activate */
Term_activate(&td->t);
/* Resize the term */
Term_resize(td->cols, td->rows);
/* Activate */
Term_activate(old_term);
/* Redraw later */
InvalidateRect(td->w, NULL, TRUE);
/* HACK - Redraw all windows */
p_ptr->window = 0xFFFFFFFF;
window_stuff();
}
td->size_hack = FALSE;
return 0;
}
case WM_PAINT:
{
handle_wm_paint(hWnd);
return 0;
}
case WM_SYSKEYDOWN:
case WM_KEYDOWN:
{
#ifdef USE_SAVER
if (screensaver_active)
{
stop_screensaver();
return 0;
}
#endif /* USE_SAVER */
if (process_keydown(wParam, lParam))
return 0;
break;
}
case WM_CHAR:
{
if (Term_no_press) Term_no_press = FALSE;
else Term_keypress(wParam);
return 0;
}
#ifdef USE_SAVER
case WM_MBUTTONDOWN:
case WM_RBUTTONDOWN:
case WM_LBUTTONDOWN:
{
if (screensaver_active)
{
stop_screensaver();
return 0;
}
break;
}
case WM_MOUSEMOVE:
{
if (!screensaver_active) break;
if (iMouse)
{
dx = LOWORD(lParam) - xMouse;
dy = HIWORD(lParam) - yMouse;
if (dx < 0) dx = -dx;
if (dy < 0) dy = -dy;
if ((dx > MOUSE_SENS) || (dy > MOUSE_SENS))
{
stop_screensaver();
}
}
/* Save last location */
iMouse = 1;
xMouse = LOWORD(lParam);
yMouse = HIWORD(lParam);
return 0;
}
#endif /* USE_SAVER */
case WM_PALETTECHANGED:
{
/* ignore if palette change caused by itself */
if ((HWND)wParam == hWnd) return FALSE;
/* otherwise, fall through!!! */
}
case WM_QUERYNEWPALETTE:
{
if (!paletted) return 0;
hdc = GetDC(hWnd);
SelectPalette(hdc, hPal, FALSE);
i = RealizePalette(hdc);
/* if any palette entries changed, repaint the window. */
if (i) InvalidateRect(hWnd, NULL, TRUE);
ReleaseDC(hWnd, hdc);
return 0;
}
case WM_CLOSE:
{
if (td->visible)
{
td->visible = FALSE;
ShowWindow(td->w, SW_HIDE);
}
return 0;
}
}
return DefWindowProc(hWnd, uMsg, wParam, lParam);
}
#ifdef USE_SAVER
LRESULT FAR PASCAL AngbandSaverProc(HWND hWnd, UINT uMsg,
WPARAM wParam, LPARAM lParam)
{
static int iMouse = 0;
static WORD xMouse = 0;
static WORD yMouse = 0;
int dx, dy;
/* Process */
switch (uMsg)
{
/* XXX XXX XXX */
case WM_NCCREATE:
{
break;
}
case WM_SETCURSOR:
{
SetCursor(NULL);
return 0;
}
#if 0
case WM_ACTIVATE:
{
if (LOWORD(wParam) == WA_INACTIVE) break;
/* else fall through */
}
#endif /* 0 */
case WM_LBUTTONDOWN:
case WM_MBUTTONDOWN:
case WM_RBUTTONDOWN:
case WM_KEYDOWN:
{
stop_screensaver();
return 0;
}
case WM_MOUSEMOVE:
{
if (iMouse)
{
dx = LOWORD(lParam) - xMouse;
dy = HIWORD(lParam) - yMouse;
if (dx < 0) dx = -dx;
if (dy < 0) dy = -dy;
if ((dx > MOUSE_SENS) || (dy > MOUSE_SENS))
{
stop_screensaver();
}
}
/* Save last location */
iMouse = 1;
xMouse = LOWORD(lParam);
yMouse = HIWORD(lParam);
return 0;
}
case WM_CLOSE:
{
DestroyWindow(hwndSaver);
if (screensaver)
SendMessage(data[0].w, WM_CLOSE, 0, 0);
hwndSaver = NULL;
return 0;
}
}
/* Oops */
return DefWindowProc(hWnd, uMsg, wParam, lParam);
}
#endif /* USE_SAVER */
/*** Temporary Hooks ***/
/*
* Display warning message (see "z-util.c")
*/
static void hack_plog(cptr str)
{
/* Give a warning */
if (str)
{
#ifdef JP
MessageBox(NULL, str, "警告！",
MB_ICONEXCLAMATION | MB_OK);
#else
MessageBox(NULL, str, "Warning",
MB_ICONEXCLAMATION | MB_OK);
#endif
}
}
/*
* Display error message and quit (see "z-util.c")
*/
static void hack_quit(cptr str)
{
/* Give a warning */
if (str)
{
#ifdef JP
MessageBox(NULL, str, "エラー！",
MB_ICONEXCLAMATION | MB_OK | MB_ICONSTOP);
#else
MessageBox(NULL, str, "Error",
MB_ICONEXCLAMATION | MB_OK | MB_ICONSTOP);
#endif
}
/* Unregister the classes */
UnregisterClass(AppName, hInstance);
/* Destroy the icon */
if (hIcon) DestroyIcon(hIcon);
#ifdef USE_SAVER
if (screensaverSemaphore) CloseHandle(screensaverSemaphore);
#endif /* USE_SAVER */
/* Exit */
exit(0);
}
/*** Various hooks ***/
/*
* Display warning message (see "z-util.c")
*/
static void hook_plog(cptr str)
{
/* Warning */
if (str)
{
#ifdef JP
MessageBox(data[0].w, str, "警告！",
MB_ICONEXCLAMATION | MB_OK);
#else
MessageBox(data[0].w, str, "Warning",
MB_ICONEXCLAMATION | MB_OK);
#endif
}
}
/*
* Display error message and quit (see "z-util.c")
*/
static void hook_quit(cptr str)
{
int i;
/* Give a warning */
if (str)
{
#ifdef JP
MessageBox(data[0].w, str, "エラー！",
MB_ICONEXCLAMATION | MB_OK | MB_ICONSTOP);
#else
MessageBox(data[0].w, str, "Error",
MB_ICONEXCLAMATION | MB_OK | MB_ICONSTOP);
#endif
}
#ifdef USE_SAVER
if (!screensaver_active)
#endif /* USE_SAVER */
{
/* Save the preferences */
save_prefs();
}
/*** Could use 'Term_nuke_win()' XXX XXX XXX */
/* Destroy all windows */
for (i = MAX_TERM_DATA - 1; i >= 0; --i)
{
term_force_font(&data[i], NULL);
if (data[i].font_want) string_free(data[i].font_want);
if (data[i].w) DestroyWindow(data[i].w);
data[i].w = 0;
}
/* Free the bitmap stuff */
#ifdef USE_GRAPHICS
if (infGraph.hPalette) DeleteObject(infGraph.hPalette);
if (infGraph.hBitmap) DeleteObject(infGraph.hBitmap);
if (infMask.hPalette) DeleteObject(infMask.hPalette);
if (infMask.hBitmap) DeleteObject(infMask.hBitmap);
#endif /* USE_GRAPHICS */
/*** Free some other stuff ***/
DeleteObject(hbrYellow);
/* bg */
delete_bg();
#ifdef USE_MUSIC
if (use_sound) CloseBgm();
#endif
if (hPal) DeleteObject(hPal);
UnregisterClass(AppName, hInstance);
if (hIcon) DestroyIcon(hIcon);
exit(0);
}
/*** Initialize ***/
/*
* Init some stuff
*/
static void init_stuff(void)
{
int i;
char path[1024];
#ifdef USE_SAVER
char tmp[1024];
#endif /* USE_SAVER */
/* Get program name with full path */
GetModuleFileName(hInstance, path, 512);
/* Save the "program name" XXX XXX XXX */
argv0 = path;
/* Get the name of the "*.ini" file */
strcpy(path + strlen(path) - 4, ".INI");
#ifdef USE_SAVER
/* Try to get the path to the Angband folder */
if (screensaver)
{
/* Extract the filename of the savefile for the screensaver */
GetPrivateProfileString("Angband", "SaverFile", "", saverfilename, 1024, path);
GetPrivateProfileString("Angband", "AngbandPath", "", tmp, 1024, path);
sprintf(path, "%sangband.ini", tmp);
}
#endif /* USE_SAVER */
/* Save the the name of the ini-file */
ini_file = string_make(path);
/* Analyze the path */
i = strlen(path);
/* Get the path */
for (; i > 0; i--)
{
if (path[i] == '\\')
{
/* End of path */
break;
}
}
/* Add "lib" to the path */
strcpy(path + i + 1, "lib\\");
/* Validate the path */
validate_dir(path);
/* Init the file paths */
init_file_paths(path);
/* Hack -- Validate the paths */
validate_dir(ANGBAND_DIR_APEX);
validate_dir(ANGBAND_DIR_BONE);
validate_dir(ANGBAND_DIR_DATA);
validate_dir(ANGBAND_DIR_EDIT);
validate_dir(ANGBAND_DIR_FILE);
validate_dir(ANGBAND_DIR_HELP);
validate_dir(ANGBAND_DIR_INFO);
validate_dir(ANGBAND_DIR_PREF);
validate_dir(ANGBAND_DIR_SAVE);
validate_dir(ANGBAND_DIR_USER);
validate_dir(ANGBAND_DIR_XTRA);
/* Build the filename */
#ifdef JP
path_build(path, sizeof(path), ANGBAND_DIR_FILE, "news_j.txt");
#else
path_build(path, sizeof(path), ANGBAND_DIR_FILE, "news.txt");
#endif
/* Hack -- Validate the "news.txt" file */
validate_file(path);
#if 0
/* Build the "font" path */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "font");
/* Allocate the path */
ANGBAND_DIR_XTRA_FONT = string_make(path);
/* Validate the "font" directory */
validate_dir(ANGBAND_DIR_XTRA_FONT);
/* Build the filename */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA_FONT, "8X13.FON");
/* Hack -- Validate the basic font */
validate_file(path);
#endif
#ifdef USE_GRAPHICS
/* Build the "graf" path */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "graf");
/* Allocate the path */
ANGBAND_DIR_XTRA_GRAF = string_make(path);
/* Validate the "graf" directory */
validate_dir(ANGBAND_DIR_XTRA_GRAF);
#endif /* USE_GRAPHICS */
#ifdef USE_SOUND
/* Build the "sound" path */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "sound");
/* Allocate the path */
ANGBAND_DIR_XTRA_SOUND = string_make(path);
/* Validate the "sound" directory */
validate_dir(ANGBAND_DIR_XTRA_SOUND);
#endif /* USE_SOUND */
#ifdef USE_MUSIC
/* Build the "music" path */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "music");
/* Allocate the path */
ANGBAND_DIR_XTRA_MUSIC = string_make(path);
/* Validate the "music" directory */
validate_dir(ANGBAND_DIR_XTRA_MUSIC);
#endif /* USE_MUSIC */
/* Build the "help" path */
path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "help");
/* Allocate the path */
ANGBAND_DIR_XTRA_HELP = string_make(path);
/* Validate the "help" directory */
/* validate_dir(ANGBAND_DIR_XTRA_HELP); */
}
int FAR PASCAL WinMain(HINSTANCE hInst, HINSTANCE hPrevInst,
LPSTR lpCmdLine, int nCmdShow)
{
int i;
WNDCLASS wc;
HDC hdc;
MSG msg;
/* Unused */
(void)nCmdShow;
#ifdef USE_SAVER
if (lpCmdLine && ((*lpCmdLine == '-') || (*lpCmdLine == '/')))
{
lpCmdLine++;
switch (*lpCmdLine)
{
case 's':
case 'S':
{
screensaver = TRUE;
/* Only run one screensaver at the time */
screensaverSemaphore = CreateSemaphore(NULL, 0, 1, "AngbandSaverSemaphore");
if (!screensaverSemaphore) exit(0);
if (GetLastError() == ERROR_ALREADY_EXISTS)
{
CloseHandle(screensaverSemaphore);
exit(0);
}
break;
}
case 'P':
case 'p':
case 'C':
case 'c':
case 'A':
case 'a':
{
/*
* ToDo: implement preview, configuaration, and changing
* the password (as well as checking it).
*/
exit(0);
}
}
}
#endif /* USE_SAVER */
/* Initialize */
if (hPrevInst == NULL)
{
wc.style = CS_CLASSDC;
wc.lpfnWndProc = AngbandWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 4; /* one long pointer to term_data */
wc.hInstance = hInst;
wc.hIcon = hIcon = LoadIcon(hInst, "ANGBAND");
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = GetStockObject(BLACK_BRUSH);
wc.lpszMenuName = "ANGBAND";
wc.lpszClassName = AppName;
if (!RegisterClass(&wc)) exit(1);
wc.lpfnWndProc = AngbandListProc;
wc.lpszMenuName = NULL;
wc.lpszClassName = AngList;
if (!RegisterClass(&wc)) exit(2);
#ifdef USE_SAVER
wc.style = CS_VREDRAW | CS_HREDRAW | CS_SAVEBITS | CS_DBLCLKS;
wc.lpfnWndProc = AngbandSaverProc;
wc.hCursor = NULL;
wc.lpszMenuName = NULL;
wc.lpszClassName = "WindowsScreenSaverClass";
if (!RegisterClass(&wc)) exit(3);
#endif /* USE_SAVER */
}
/* Save globally */
hInstance = hInst;
/* Temporary hooks */
plog_aux = hack_plog;
quit_aux = hack_quit;
core_aux = hack_quit;
/* Prepare the filepaths */
init_stuff();
/* Initialize the keypress analyzer */
for (i = 0; special_key_list[i]; ++i)
{
special_key[special_key_list[i]] = TRUE;
}
/* Initialize the keypress analyzer */
for (i = 0; ignore_key_list[i]; ++i)
{
ignore_key[ignore_key_list[i]] = TRUE;
}
/* Determine if display is 16/256/true color */
hdc = GetDC(NULL);
colors16 = (GetDeviceCaps(hdc, BITSPIXEL) == 4);
paletted = ((GetDeviceCaps(hdc, RASTERCAPS) & RC_PALETTE) ? TRUE : FALSE);
ReleaseDC(NULL, hdc);
/* Initialize the colors */
for (i = 0; i < 256; i++)
{
byte rv, gv, bv;
/* Extract desired values */
rv = angband_color_table[i][1];
gv = angband_color_table[i][2];
bv = angband_color_table[i][3];
/* Extract the "complex" code */
win_clr[i] = PALETTERGB(rv, gv, bv);
/* Save the "simple" code */
angband_color_table[i][0] = win_pal[i];
}
/* Prepare the windows */
init_windows();
/* bg */
init_bg();
/* Activate hooks */
plog_aux = hook_plog;
quit_aux = hook_quit;
core_aux = hook_quit;
/* Set the system suffix */
ANGBAND_SYS = "win";
/* Set the keyboard suffix */
if (7 != GetKeyboardType(0))
ANGBAND_KEYBOARD = "0";
else
{
/* Japanese keyboard */
switch (GetKeyboardType(1))
{
case 0x0D01: case 0x0D02:
case 0x0D03: case 0x0D04:
case 0x0D05: case 0x0D06:
/* NEC PC-98x1 */
ANGBAND_KEYBOARD = "NEC98";
break;
default:
/* PC/AT */
ANGBAND_KEYBOARD = "JAPAN";
}
}
/* Catch nasty signals */
signals_init();
/* Initialize */
init_angband();
/* We are now initialized */
initialized = TRUE;
#ifdef USE_SAVER
if (screensaver)
{
/* Start the screensaver */
start_screensaver();
/* Paranoia */
quit(NULL);
}
#endif /* USE_SAVER */
if(lpCmdLine[0] == '-'){
switch(lpCmdLine[1])
{
case 'P':
case 'p':
{
if (!lpCmdLine[2]) break;
chuukei_server = TRUE;
if(connect_chuukei_server(&lpCmdLine[2])<0){
msg_print("connect fail");
return 0;
}
msg_print("connect");
msg_print(NULL);
break;
}
case 'C':
case 'c':
{
if (!lpCmdLine[2]) break;
chuukei_client = TRUE;
connect_chuukei_server(&lpCmdLine[2]);
play_game(FALSE);
quit(NULL);
return 0;
}
case 'X':
case 'x':
{
if (!lpCmdLine[2]) break;
prepare_browse_movie(&lpCmdLine[2]);
play_game(FALSE);
quit(NULL);
return 0;
}
}
}
/* Did the user double click on a save file? */
if(!chuukei_server) check_for_save_file(lpCmdLine);
#ifdef USE_MUSIC
/* Title Bgm */
Term_xtra_win_react_sound();
Term_xtra_win_music(BGM_TITLE);
#endif
/* Prompt the user */
#ifdef JP
prt("[ファイル] メニューの [新規] または [開く] を選択してください。", 23, 8);
#else
prt("[Choose 'New' or 'Open' from the 'File' menu]", 23, 17);
#endif
Term_fresh();
/* Process messages forever */
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
/* Paranoia */
quit(NULL);
/* Paranoia */
return (0);
}
#endif /* WINDOWS */