Files
kichikuou_system3-sdl2/src/sys/ags.cpp
T

559 lines
15 KiB
C++

/*
ALICE SOFT SYSTEM 3 for Win32
[ AGS ]
*/
#include "ags.h"
#include <string.h>
#include "crc32.h"
#include "../fileio.h"
extern SDL_Window* g_window;
static SDL_Surface* display_surface;
#define SET_TEXT(n, x1, y1, x2, y2, f) { \
text_w[n].sx = x1; \
text_w[n].sy = y1; \
text_w[n].ex = x2; \
text_w[n].ey = y2; \
text_w[n].frame = f; \
}
#define SET_MENU(n, x1, y1, x2, y2, f) { \
menu_w[n].sx = x1; \
menu_w[n].sy = y1; \
menu_w[n].ex = x2; \
menu_w[n].ey = y2; \
menu_w[n].frame = f; \
}
#define SET_BOX(n, c, x1, y1, x2, y2) { \
box[n].color = c; \
box[n].sx = x1; \
box[n].sy = y1; \
box[n].ex = x2; \
box[n].ey = y2; \
}
AGS::AGS(NACT* parent, const char* fontfile) : nact(parent), dirty(false)
{
sdlRenderer = SDL_CreateRenderer(g_window, -1, 0);
SDL_RenderSetLogicalSize(sdlRenderer, 640, 400);
sdlTexture = SDL_CreateTexture(sdlRenderer, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STATIC, 640, 400); // TOOD: pixelformat?
// DIBSection 8bpp * 3 (表, 裏, メニュー)
for(int i = 0; i < 3; i++) {
hBmpScreen[i] = SDL_CreateRGBSurface(0, 640, 480, 32, 0, 0, 0, 0);
SDL_LockSurface(hBmpScreen[i]);
// TODO: clear surface
// memset(lpBmpScreen[i], 0, 640 * 480 * sizeof(DWORD));
// 仮想VRAMへのポインタ取得
for(int j = 0; j < 480; j++) {
vram[i][j] = surface_line(hBmpScreen[i], j);
}
}
// DIBSection 24bpp * 1 (最終出力先)
display_surface = hBmpDest = SDL_CreateRGBSurface(0, 640, 480, 32, 0, 0, 0, 0);
SDL_LockSurface(hBmpDest);
// TODO: clear surface
// フォント
TTF_Init();
if (fontfile) {
rw_font = SDL_RWFromFile(fontfile, "rb");
if (!rw_font)
parent->fatal("Cannot open font file %s", fontfile);
} else {
rw_font = open_resource(FONT_RESOURCE_NAME, "fonts");
if (!rw_font)
parent->fatal("Cannot open default font");
}
if (rw_font) {
hFont16 = TTF_OpenFontRW(rw_font, 0, 16);
SDL_RWseek(rw_font, 0, SEEK_SET);
hFont24 = TTF_OpenFontRW(rw_font, 0, 24);
SDL_RWseek(rw_font, 0, SEEK_SET);
hFont32 = TTF_OpenFontRW(rw_font, 0, 32);
SDL_RWseek(rw_font, 0, SEEK_SET);
hFont48 = TTF_OpenFontRW(rw_font, 0, 48);
SDL_RWseek(rw_font, 0, SEEK_SET);
hFont64 = TTF_OpenFontRW(rw_font, 0, 64);
if (!hFont16 || !hFont24 || !hFont32 || !hFont48 || !hFont64) {
parent->fatal("TTF_OpenFontRW failed: %s", TTF_GetError());
}
}
// カーソル初期化
for(int i = 0; i < 10; i++) {
hCursor[i] = NULL;
}
// GAIJI.DAT読み込み
memset(gaiji, 0, sizeof(gaiji));
FILEIO* fio = new FILEIO();
if(fio->Fopen("GAIJI.DAT", FILEIO_READ_BINARY)) {
int d1, d2;
while((d1 = fio->Fgetc()) != EOF) {
d2 = fio->Fgetc();
// jis to sjis
d1 += (d2 & 1) ? 0x1f : 0x7d;
d1 += (d1 > 0x7f) ? 1 : 0;
d2 = ((d2 - 0x21) >> 1) + 0x81;
d2 += (d2 > 0x9f) ? 0x40 : 0;
uint16 code = (d1 & 0xff) | ((d2 & 0xff) << 8);
if(0xeb9f <= code && code <= 0xebfc) {
for(int i = 0; i < 32; i++) {
gaiji[code - 0xeb9f][i] = fio->Fgetc();
}
} else if(0xec40 <= code && code <= 0xec9e) {
for(int i = 0; i < 32; i++) {
gaiji[code - 0xec40 + 94][i] = fio->Fgetc();
}
} else {
fio->Fseek(32, FILEIO_SEEK_CUR);
}
}
fio->Fclose();
}
delete fio;
// SYSTEM3 初期化
// ACG.DAT
strcpy_s(acg, 16, "ACG.DAT");
// パレット
memset(program_palette, 0, sizeof(program_palette));
program_palette[0x00] = SETPALETTE16(0x0, 0x0, 0x0);
program_palette[0x01] = SETPALETTE16(0x0, 0x0, 0xa);
program_palette[0x02] = SETPALETTE16(0xa, 0x0, 0x0);
program_palette[0x03] = SETPALETTE16(0xa, 0x0, 0xa);
program_palette[0x04] = SETPALETTE16(0x0, 0x0, 0x0);
program_palette[0x05] = SETPALETTE16(0x0, 0xa, 0xa);
program_palette[0x06] = SETPALETTE16(0xa, 0xa, 0x0);
program_palette[0x07] = SETPALETTE16(0xd, 0xd, 0xd);
program_palette[0x08] = SETPALETTE16(0x7, 0x7, 0x7);
program_palette[0x09] = SETPALETTE16(0x0, 0x0, 0xf);
program_palette[0x0a] = SETPALETTE16(0xf, 0x0, 0x0);
program_palette[0x0b] = SETPALETTE16(0xf, 0x0, 0xf);
program_palette[0x0c] = SETPALETTE16(0x0, 0xf, 0x0);
program_palette[0x0d] = SETPALETTE16(0x0, 0xf, 0xf);
program_palette[0x0e] = SETPALETTE16(0xf, 0xf, 0x0);
program_palette[0x0f] = SETPALETTE16(0xf, 0xf, 0xf);
if (nact->sys_ver == 1) {
program_palette[0x10] = SETPALETTE16(0x0, 0x0, 0x0);
program_palette[0x11] = SETPALETTE16(0x0, 0x0, 0xf);
program_palette[0x12] = SETPALETTE16(0xf, 0x0, 0x0);
program_palette[0x13] = SETPALETTE16(0xf, 0x0, 0xf);
program_palette[0x14] = SETPALETTE16(0x0, 0xf, 0x0);
program_palette[0x15] = SETPALETTE16(0x0, 0xf, 0xf);
program_palette[0x16] = SETPALETTE16(0xf, 0xf, 0x0);
program_palette[0x17] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x18] = SETPALETTE16(0x0, 0x0, 0x0);
program_palette[0x19] = SETPALETTE16(0x0, 0x0, 0xf);
program_palette[0x1a] = SETPALETTE16(0xf, 0x0, 0x0);
program_palette[0x1b] = SETPALETTE16(0xf, 0x0, 0xf);
program_palette[0x1c] = SETPALETTE16(0x0, 0xf, 0x0);
program_palette[0x1d] = SETPALETTE16(0x0, 0xf, 0xf);
program_palette[0x1e] = SETPALETTE16(0xf, 0xf, 0x0);
}
program_palette[0x1f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x2f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x3f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x4f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x5f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x6f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x7f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x8f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0x9f] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0xaf] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0xbf] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0xcf] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0xdf] = SETPALETTE16(0xf, 0xf, 0xf);
program_palette[0xef] = SETPALETTE16(0xf, 0xf, 0xf);
// This improves text antialias
for (int i = 1; i <= 0xf; i++)
program_palette[0xf0 + i] = SETPALETTE16(i, i, i);
memcpy(screen_palette, program_palette, sizeof(program_palette));
// Bコマンド
for(int i = 0; i < 10; i++) {
// ウィンドウの初期位置はシステムによって異なる
switch (nact->crc32_a) {
case CRC32_BUNKASAI:
SET_TEXT(i, 24, 304, 616, 384, false);
SET_MENU(i, 440, 18, 620, 178, true);
break;
case CRC32_CRESCENT:
SET_TEXT(i, 24, 288, 616, 378, false);
// 本来は横メニュー
SET_MENU(i, 464, 50, 623, 240, true);
break;
case CRC32_DPS:
case CRC32_DPS_SG:
//case CRC32_DPS_SG2:
case CRC32_DPS_SG3:
SET_TEXT(i, 48, 288, 594, 393, false);
//SET_MENU(i, 48, 288, 584, 393, false);
SET_MENU(i, 48, 288, 594, 393, false);
break;
case CRC32_FUKEI:
SET_TEXT(i, 44, 282, 593, 396, false);
SET_MENU(i, 460, 14, 635, 214, false);
break;
case CRC32_INTRUDER:
SET_TEXT(i, 8, 280, 629, 393, false);
SET_MENU(i, 448, 136, 623, 340, true);
break;
case CRC32_TENGU:
SET_TEXT(i, 44, 282, 593, 396, false);
SET_MENU(i, 452, 14, 627, 214, false);
break;
case CRC32_TOUSHIN_HINT:
SET_TEXT(i, 8, 311, 623, 391, false);
SET_MENU(i, 452, 14, 627, 214, true);
break;
case CRC32_VAMPIRE:
SET_TEXT(i, 8, 255, 615, 383, false);
SET_MENU(i, 448, 11, 615, 224, false);
break;
case CRC32_YAKATA:
SET_TEXT(i, 48, 288, 594, 393, false);
SET_MENU(i, 452, 14, 627, 214, false);
break;
case CRC32_DALK_HINT:
SET_TEXT(i, 24, 308, 376, 386, false);
SET_MENU(i, 404, 28, 604, 244, true);
break;
case CRC32_RANCE3_HINT:
SET_TEXT(i, 104, 304, 615, 383, false);
SET_MENU(i, 464, 24, 623, 200, true);
break;
case CRC32_YAKATA2:
SET_TEXT(i, 104, 304, 620, 382, false);
SET_MENU(i, 420, 28, 620, 244, true);
break;
default:
SET_TEXT(i, 8, 311, 623, 391, true);
SET_MENU(i, 464, 80, 623, 240, true);
break;
}
text_w[i].push = false;
text_w[i].screen = NULL;
text_w[i].window = NULL;
menu_w[i].push = true;
menu_w[i].screen = NULL;
menu_w[i].window = NULL;
}
// Eコマンド
for(int i = 0; i < 20; i++) {
// SET_BOX(i, 0, 0, 0, 631, 399);
SET_BOX(i, 0, 0, 0, 639, 399);
}
if (nact->sys_ver == 2) {
if(nact->crc32_a == CRC32_SDPS && (nact->crc32_b == CRC32_SDPS_TONO || nact->crc32_b == CRC32_SDPS_KAIZOKU)) {
SET_BOX(0, 0, 40, 8, 598, 271);
} else if(nact->crc32_a == CRC32_PROSTUDENTG_FD) {
SET_BOX(0, 0, 64, 13, 407, 289);
SET_BOX(1, 0, 24, 298, 111, 390);
SET_BOX(2, 0, 0, 0, 639, 307);
SET_BOX(3, 0, 0, 0, 319, 399);
SET_BOX(4, 0, (16*8), 310, ((77*8)-1), 390);
SET_BOX(5, 0, (4*8), 310, ((76*8)-1), 390);
SET_BOX(6, 0, (2*8), 317, ((56*8)-1), 389);
SET_BOX(7, 15, 64, 13, 407, 289);
SET_BOX(8, 0, 0, 0, 319, 399);
SET_BOX(9, 0, 320, 0, 639, 40);
}
}
// 画面選択
src_screen = dest_screen = 0;
// 画面サイズ
screen_height = 400;
scroll = 400;
// メッセージ表示
text_dest_x = text_w[0].sx;
text_dest_y = text_w[0].sy + 2;
text_space = 2;
text_font_size = 16;
if (nact->sys_ver == 1) {
text_font_color = 15 + 16;
text_frame_color = 15 + 16;
text_back_color = 0 + 16;
} else {
text_font_color = 15;
text_frame_color = 15;
text_back_color = 0;
}
// メニュー表示
menu_dest_x = 2;
menu_dest_y = 0;
menu_font_size = 16;
if (nact->sys_ver == 1) {
menu_font_color = 15 + 16;
menu_frame_color = 15 + 16;
menu_back_color = 0 + 16;
} else {
menu_font_color = 15;
menu_frame_color = 15;
menu_back_color = 0;
}
menu_fix = false;
draw_hankaku = false;
draw_menu = false;
// CG表示
set_cg_dest = false;
cg_dest_x = cg_dest_y = 0;
for(int i = 0; i < MAX_CG; i++) {
extract_palette_cg[i] = true;
}
get_palette = extract_palette = extract_cg = true;
palette_bank = -1;
// マウスカーソル
cursor_color = 15;
cursor_index = 0;
// フェード状態
fader = false;
memset(fader_screen, 0, sizeof(fader_screen));
}
AGS::~AGS()
{
// 退避領域の開放
for(int i = 0; i < 10; i++) {
if(menu_w[i].screen) {
free(menu_w[i].screen);
}
if(menu_w[i].window) {
free(menu_w[i].window);
}
if(text_w[i].screen) {
free(text_w[i].screen);
}
if(text_w[i].window) {
free(text_w[i].window);
}
}
// カーソル開放
for(int i = 0; i < 10; i++) {
if(hCursor[i]) {
SDL_FreeCursor(hCursor[i]);
}
}
// フォント開放
if (rw_font) {
TTF_CloseFont(hFont16);
TTF_CloseFont(hFont24);
TTF_CloseFont(hFont32);
TTF_CloseFont(hFont48);
TTF_CloseFont(hFont64);
SDL_RWclose(rw_font);
}
// surface開放
for(int i = 0; i < 3; i++) {
SDL_FreeSurface(hBmpScreen[i]);
}
SDL_FreeSurface(hBmpDest);
SDL_DestroyTexture(sdlTexture);
SDL_DestroyRenderer(sdlRenderer);
}
void AGS::set_palette(int index, int r, int g, int b)
{
if(index < 16) {
screen_palette[index] = program_palette[index] = SETPALETTE16(r, g, b);
} else {
screen_palette[index] = program_palette[index] = SETPALETTE256(r, g, b);
}
}
uint8 AGS::get_pixel(int dest, int x, int y)
{
if(vram[dest][y][x] & 0x80000000) {
return 0;
} else {
return (uint8)vram[dest][y][x];
}
}
void AGS::set_pixel(int dest, int x, int y, uint8 color)
{
vram[dest][y][x] = color;
}
void AGS::fade_start()
{
memcpy(fader_screen, hBmpDest->pixels, sizeof(fader_screen));
}
void AGS::fade_end()
{
memcpy(hBmpDest->pixels, fader_screen, sizeof(fader_screen));
}
void AGS::fade_out(int depth, bool white)
{
// 通常画面 → 白黒画面
int fx = fade_x[depth];
int fy = fade_y[depth];
fader = true;
for(int y = 0; y < 480; y += 4) {
uint32* dest = surface_line(hBmpDest, y + fy) + fx;
for(int x = 0; x < 640; x += 4) {
dest[x] = white ? 0xffffff : 0;
}
}
// 画面更新
invalidate_screen(0, 0, 640, screen_height);
}
void AGS::fade_in(int depth)
{
// 白黒画面 → 通常画面
int fx = fade_x[depth];
int fy = fade_y[depth];
fader = (depth == 15) ? false : true;
for(int y = 0; y < 480; y += 4) {
uint32* src = &fader_screen[640 * (y + fy) + fx];
uint32* dest = surface_line(hBmpDest, y + fy) + fx;
for(int x = 0; x < 640; x += 4) {
dest[x] = src[x];
}
}
// 画面更新
invalidate_screen(0, 0, 640, screen_height);
}
void AGS::flush_screen(bool update)
{
if(update) {
for(int y = 0; y < screen_height; y++) {
uint32* src = vram[0][y];
uint32* dest = surface_line(hBmpDest, y);
for(int x = 0; x < 640; x++) {
if (nact->sys_ver == 3 && src[x] & 0x80000000) {
// あゆみちゃん物語 フルカラー実写版
dest[x] = src[x] & 0xffffff;
} else {
dest[x] = screen_palette[src[x] & 0xff];
}
}
}
}
invalidate_screen(0, 0, 640, screen_height);
}
void AGS::draw_screen(int sx, int sy, int width, int height)
{
if(fader) {
for(int y = sy; y < (sy + height) && y < 480; y++) {
uint32* src = vram[0][y];
uint32* dest = &fader_screen[640 * y];
for(int x = sx; x < (sx + width) && x < 640; x++) {
uint32 a=src[x];
if (nact->sys_ver == 3 && src[x] & 0x80000000) {
// あゆみちゃん物語 フルカラー実写版
dest[x] = src[x] & 0xffffff;
} else {
dest[x] = screen_palette[src[x] & 0xff];
}
}
}
} else {
for(int y = sy; y < (sy + height) && y < 480; y++) {
uint32* src = vram[0][y];
uint32* dest = surface_line(hBmpDest, y);
for(int x = sx; x < (sx + width) && x < 640; x++) {
uint32 a=src[x];
if (nact->sys_ver == 3 && src[x] & 0x80000000) {
// あゆみちゃん物語 フルカラー実写版
dest[x] = src[x] & 0xffffff;
} else {
dest[x] = screen_palette[src[x] & 0xff];
}
}
}
invalidate_screen(sx, sy, width, height);
}
}
void AGS::invalidate_screen(int sx, int sy, int width, int height)
{
int top = screen_height == 400 ? sy + (scroll - 400) : sy;
if (top < 0) {
height += top;
top = 0;
}
uint32* pixels = surface_line(hBmpDest, top) + sx;
if (sy + height > screen_height)
height = screen_height - sy;
if (sx + width > hBmpDest->w)
width = hBmpDest->w - sx;
SDL_Rect rect = {sx, sy, width, height};
SDL_UpdateTexture(sdlTexture, &rect, pixels, hBmpDest->pitch);
dirty = true;
}
void AGS::update_screen()
{
if (!dirty)
return;
SDL_RenderClear(sdlRenderer);
SDL_RenderCopy(sdlRenderer, sdlTexture, NULL, NULL);
SDL_RenderPresent(sdlRenderer);
dirty = false;
}
void AGS::save_screenshot(const char* path)
{
SDL_Surface* sf = SDL_CreateRGBSurface(0, 640, screen_height, 32, 0, 0, 0, 0);
SDL_Rect r = {0, 0, 640, screen_height};
SDL_UnlockSurface(hBmpDest);
SDL_BlitSurface(hBmpDest, &r, sf, NULL);
SDL_LockSurface(hBmpDest);
if (SDL_SaveBMP(sf, path) != 0) {
SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, "system3",
SDL_GetError(), g_window);
SDL_ClearError();
}
SDL_FreeSurface(sf);
}
#ifdef __EMSCRIPTEN__
extern "C" {
void* EMSCRIPTEN_KEEPALIVE sdl_getDisplaySurface() {
if (SDL_MUSTLOCK(display_surface))
return NULL;
return display_surface->pixels;
}
}
#endif