/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, see <http://gnu.org/licenses/>.
 */

#include <math.h>
#include <time.h>
#include <ctype.h>

#include "system4.h"
#include "system4/ain.h"
#include "system4/cg.h"
#include "system4/string.h"
#include "system4/utfsjis.h"

#include "hll.h"
#include "iarray.h"
#include "audio.h"
#include "input.h"
#include "queue.h"
#include "gfx/gfx.h"
#include "gfx/font.h"
#include "sact.h"
#include "vm/page.h"
#include "xsystem4.h"
#include "sact.h"
#include "AnteaterADVEngine.h"
#include "CharSpriteManager.h"

HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, JoypadQuake_Set, int num, int type, int magnitude);
HLL_WARN_UNIMPLEMENTED(0, int,  StoatSpriteEngine, SP_SetBrightness, int sp_no, int brightness);
HLL_WARN_UNIMPLEMENTED(0, int,  StoatSpriteEngine, SP_GetBrightness, int sp_no);
HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, SetVolumeMixerMasterGroupNum, int n);
HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, SetVolumeMixerSEGroupNum, int n);
HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, SetVolumeMixerBGMGroupNum, int n);

static int StoatSpriteEngine_SP_SetDrawMethod(int sp_no, int method)
{
	struct sact_sprite *sp = sact_get_sprite(sp_no);
	if (!sp) return 0;
	switch (method) {
	case 0: return sprite_set_draw_method(sp, DRAW_METHOD_NORMAL);
	case 1: return sprite_set_draw_method(sp, DRAW_METHOD_ADDITIVE);
	case 3: return sprite_set_draw_method(sp, DRAW_METHOD_SCREEN);
	default:
		WARNING("unknown draw method: %d", method);
		return 0;
	}
}

static int StoatSpriteEngine_SP_GetDrawMethod(int sp_no)
{
	struct sact_sprite *sp = sact_try_get_sprite(sp_no);
	if (!sp) return DRAW_METHOD_NORMAL;
	int method = sprite_get_draw_method(sp);
	switch (method) {
	case DRAW_METHOD_NORMAL: return 0;
	case DRAW_METHOD_ADDITIVE: return 1;
	case DRAW_METHOD_SCREEN: return 3;
	default:
		WARNING("unknown draw method: %d", method);
		return 0;
	}
}

struct text_style text_sprite_ts = {
	.face = FONT_GOTHIC,
	.size = 16.0f,
	.bold_width = 0.0f,
	.weight = FW_NORMAL,
	.edge_left = 0.0f,
	.edge_up = 0.0f,
	.edge_right = 0.0f,
	.edge_down = 0.0f,
	.color = { .r = 255, .g = 255, .b = 255, .a = 255 },
	.edge_color = { .r = 0, .g = 0, .b = 0, .a = 255 },
	.scale_x = 1.0,
	.space_scale_x = 1.0,
	.font_spacing = 0.0,
	.font_size = NULL,
};

static int extract_sjis_char(char *src, char *dst)
{
	if (SJIS_2BYTE(*src)) {
		dst[0] = src[0];
		dst[1] = src[1];
		dst[2] = '\0';
		return 2;
	}
	dst[0] = src[0];
	dst[1] = '\0';
	return 1;
}

bool StoatSpriteEngine_SP_SetTextSprite(int sp_no, struct string *text)
{
	if (text->size < 1)
		return false;

	char s[3];
	extract_sjis_char(text->text, s);
	int w = text_sprite_ts.size;
	int h = text_sprite_ts.size;
	// XXX: System40.exe lies about the height of half-width characters.
	//      E.g. a size 64 letter "H" is reported as 32 pixels tall.
	//      Probably doesn't matter...?
	if (isascii(s[0]))
		w /= 2;
	struct sact_sprite *sp = sact_create_sprite(sp_no, w, h, 0, 0, 0, 0);
	sprite_get_texture(sp); // XXX: force initialization of texture
	gfx_render_text(&sp->texture, 0.0f, 0, s, &text_sprite_ts, false);
	sprite_dirty(sp);
	return true;
}

void StoatSpriteEngine_SP_SetTextSpriteType(int type)
{
	text_sprite_ts.face = type;
}

void StoatSpriteEngine_SP_SetTextSpriteSize(int size)
{
	if (text_sprite_ts.size != size)
		text_sprite_ts.font_size = NULL;
	text_sprite_ts.size = size;
}

void StoatSpriteEngine_SP_SetTextSpriteColor(int r, int g, int b)
{
	text_sprite_ts.color = (SDL_Color) { .r = r, .g = g, .b = b, .a = 255 };
}

void StoatSpriteEngine_SP_SetTextSpriteBoldWeight(float weight)
{
	//NOTICE("StoatSpriteEngine.SP_SetTextSpriteBoldWeight(%f)", weight);
}

void StoatSpriteEngine_SP_SetTextSpriteEdgeWeight(float weight)
{
	text_sprite_ts.edge_left = weight;
	text_sprite_ts.edge_up = weight;
	text_sprite_ts.edge_right = weight;
	text_sprite_ts.edge_down = weight;
}

void StoatSpriteEngine_SP_SetTextSpriteEdgeColor(int r, int g, int b)
{
	text_sprite_ts.edge_color = (SDL_Color) { .r = r, .g = g, .b = b, .a = 255 };
}

bool StoatSpriteEngine_SP_SetDashTextSprite(int sp_no, int width, int height)
{
	struct sact_sprite *sp = sact_create_sprite(sp_no, width, height, 0, 0, 0, 0);
	sprite_get_texture(sp); // XXX: force initialization of texture
	gfx_render_dash_text(&sp->texture, &text_sprite_ts);
	sprite_dirty(sp);
	return true;
}

//static void StoatSpriteEngine_FPS_SetShow(bool bShow);
//static bool StoatSpriteEngine_FPS_GetShow(void);
//static float StoatSpriteEngine_FPS_Get(void);

HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, VIEW_SetOffsetPos, int x, int y);

static bool keep_previous_view = true;
HLL_WARN_UNIMPLEMENTED((keep_previous_view = on, true), bool, StoatSpriteEngine, KeepPreviousView_SetMode, bool on);
HLL_WARN_UNIMPLEMENTED(keep_previous_view, bool, StoatSpriteEngine, KeepPreviousView_GetMode);

/*
 * NOTE: The multisprite "type" alters the behavior of the multisprite functions.
 *
 *     Type 0 - Default y pos is 300; linked message frame by default
 *     Type 5 - Text sprites; SetCG has no effect; SetText only works on type 5
 */


struct multisprite {
	int type;
	int no;
	int z;
	Point pos;
	Point default_pos;
	int origin_mode;
	int alpha;
	int cg;
	bool cg_dirty;
	bool moving;
	struct {
		Point start;
		Point end;
		int start_alpha;
		int end_alpha;
		int begin_wait_time;
		int time;
		float move_accel;
	} move;
	struct {
		int no;
		int time;
	} trans;
	bool linked_message_frame;
	struct sact_sprite sp;
	struct text_style ts;
};

struct sp_table {
	struct multisprite **sprites;
	int nr_sprites;
};

#define NR_SP_TYPES 64

struct sp_table sp_types[NR_SP_TYPES] = {0};

static struct multisprite *multisprite_alloc(int type, int n)
{
	struct multisprite *ms = xcalloc(1, sizeof(struct multisprite));
	sp_types[type].sprites[n] = ms;

	ms->type = type;
	ms->no = n;
	ms->origin_mode = 1;
	ms->alpha = 255;
	ms->z = 1;
	if (type == 0) {
		ms->sp.rect.y = 300;
		ms->linked_message_frame = true;
	} else if (type == 5) {
		ms->ts = (struct text_style) {
			.face = FONT_GOTHIC,
			.size = 16.0f,
			.bold_width = 0.0f,
			.weight = FW_NORMAL,
			.edge_left = 0.0f,
			.edge_up = 0.0f,
			.edge_right = 0.0f,
			.edge_down = 0.0f,
			.color = { .r = 255, .g = 255, .b = 255, .a = 255 },
			.edge_color = { .r = 0, .g = 0, .b = 0, .a = 255 },
		};
	}
	ms->ts.scale_x = 1.0f;
	ms->ts.space_scale_x = 1.0f;
	ms->ts.font_spacing = 0.0f;
	ms->ts.font_size = NULL;
	sprite_init(&ms->sp);
	sprite_dirty(&ms->sp);
	return ms;
}

static void realloc_sprite_table(struct sp_table *table, int n)
{
	table->sprites = xrealloc_array(table->sprites, table->nr_sprites, n, sizeof(struct multisprite*));
	table->nr_sprites = n;
}

static struct multisprite *multisprite_get(int type, int n)
{
	if (type < 0 || type >= NR_SP_TYPES)
		return NULL;
	if (n < 0)
		return NULL;
	if (n >= sp_types[type].nr_sprites) {
		realloc_sprite_table(&sp_types[type], n + 256);
	}
	if (!sp_types[type].sprites[n]) {
		multisprite_alloc(type, n);
		sprite_init_color(&sp_types[type].sprites[n]->sp, 1, 1, 0, 0, 0, 255);
	}
	return sp_types[type].sprites[n];
}

static void multisprite_free(struct multisprite *sp)
{
	if (!sp)
		return;
	if (sp_types[sp->type].sprites[sp->no] == NULL)
		VM_ERROR("Double free of multisprite");
	sp_types[sp->type].sprites[sp->no] = NULL;
	sprite_free(&sp->sp);
	free(sp);

}

static void multisprite_reset_cg(struct multisprite *sp)
{
	sp->cg = 0;
	sp->cg_dirty = true;
}

static int StoatSpriteEngine_Init(void *imain_system, int cg_cache_size)
{
	sact_init(cg_cache_size, false);
	for (int i = 0; i < NR_SP_TYPES; i++) {
		sp_types[i].nr_sprites = 16;
		sp_types[i].sprites = xcalloc(16, sizeof(struct multisprite*));
	}
	return 1;
}

static void multisprite_clear(void)
{
	for (int t = 0; t < NR_SP_TYPES; t++) {
		for (int no = 0; no < sp_types[t].nr_sprites; no++) {
			multisprite_free(sp_types[t].sprites[no]);
			sp_types[t].sprites[no] = NULL;
		}
	}
}

static void StoatSpriteEngine_ModuleFini(void)
{
	sact_ModuleFini();
	multisprite_clear();
	CharSpriteManager_Clear();
}

static void multisprite_update_pos(struct multisprite *ms)
{
	Point off = { 0, 0 };
	int w = sprite_get_width(&ms->sp);
	int h = sprite_get_height(&ms->sp);
	switch (ms->origin_mode) {
	case 1: off = (Point) { 0,    0    }; break;
	case 2: off = (Point) { -w/2, 0    }; break;
	case 3: off = (Point) { -w,   0    }; break;
	case 4: off = (Point) { 0,    -h/2 }; break;
	case 5: off = (Point) { -w/2, -h/2 }; break;
	case 6: off = (Point) { -w,   -h/2 }; break;
	case 7: off = (Point) { 0,    -h   }; break;
	case 8: off = (Point) { -w/2, -h   }; break;
	case 9: off = (Point) { -w,   -h   }; break;
	default:
		// why...
		off = (Point) { ms->origin_mode, (3*h)/4 };
		break;
	}

	sprite_set_pos(&ms->sp, ms->pos.x + off.x, ms->pos.y + off.y);
}

static void multisprite_update(struct multisprite *ms)
{
	sprite_set_z(&ms->sp, ms->z);
	sprite_set_blend_rate(&ms->sp, ms->alpha);
	if (ms->cg_dirty) {
		if (ms->cg) {
			if (ms->type != 5)
				sprite_set_cg_from_asset(&ms->sp, ms->cg);
			sprite_set_show(&ms->sp, true);
		} else {
			sprite_set_show(&ms->sp, false);
		}
		ms->cg_dirty = false;
	}
	multisprite_update_pos(ms);
}

static int StoatSpriteEngine_SP_GetMaxZ(void)
{
	int max_z = sact_SP_GetMaxZ();
	for (int t = 0; t < NR_SP_TYPES; t++) {
		for (int i = 0; i < sp_types[t].nr_sprites; i++) {
			if (sp_types[t].sprites[i] && max_z < sp_types[t].sprites[i]->sp.sp.z)
				max_z = sp_types[t].sprites[i]->sp.sp.z;
		}
	}
	return max_z;
}

static bool StoatSpriteEngine_MultiSprite_SetCG(int type, int n, int cg_no)
{
	if (cg_no && !sact_CG_IsExist(cg_no)) {
		WARNING("Invalid CG number: %d", cg_no);
		return false;
	}
	if (type == 5)
		return true;

	struct multisprite *ms = multisprite_get(type, n);
	ms->cg = cg_no;
	ms->cg_dirty = true;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetPos(int type, int n, int x, int y)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->pos.x = x;
	ms->pos.y = y;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetDefaultPos(int type, int n, int x, int y)
{
	struct multisprite *sp = multisprite_get(type, n);
	if (!sp) return false;
	sp->default_pos.x = x;
	sp->default_pos.y = y;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetZ(int type, int n, int z)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->z = z;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetAlpha(int type, int n, int alpha)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->alpha = alpha;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetTransitionInfo(int type, int n, int trans_no, int trans_time)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	// FIXME: when does this transition actually occur?
	ms->trans.no = trans_no;
	ms->trans.time = trans_time;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetLinkedMessageFrame(int type, int n, bool link)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->linked_message_frame = link;
	return true;
}

HLL_WARN_UNIMPLEMENTED(1, bool, StoatSpriteEngine, MultiSprite_SetParentMessageFrameNum,
		       int type, int n, int message_area_num);

static bool StoatSpriteEngine_MultiSprite_SetOriginPosMode(int type, int n, int mode)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->origin_mode = mode;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetText(int type, int n, struct string *text)
{
	if (type != 5)
		return true;

	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;

	int w = text->size * (ms->ts.size/2);
	int h = ms->ts.size;
	sprite_init_color(&ms->sp, w, h, 0, 0, 0, 0);
	sprite_get_texture(&ms->sp); // XXX: force initialization of texture
	gfx_render_text(&ms->sp.texture, 0.0f, 0, text->text, &ms->ts, false);
	sprite_dirty(&ms->sp);

	ms->cg = 1;
	ms->cg_dirty = true;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_SetCharSpace(int type, int n, int char_space)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.font_spacing = char_space;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetType(int type, int n, int font_type)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.face = font_type;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetSize(int type, int n, int size)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.size = size;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetColor(int type, int n, int r, int g, int b)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.color.r = r;
	ms->ts.color.g = g;
	ms->ts.color.b = b;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetBoldWeight(int type, int n, float weight)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.weight = weight * 1000; // FIXME: use float value internally
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetEdgeWeight(int type, int n, float weight)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	text_style_set_edge_width(&ms->ts, weight);
	return true;
}

static bool StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetEdgeColor(int type, int n, int r, int g, int b)
{
	if (type != 5)
		return true;
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->ts.edge_color.r = r;
	ms->ts.edge_color.g = g;
	ms->ts.edge_color.b = b;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_GetTransitionInfo(int type, int n, int *trans_no, int *trans_time)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	*trans_no = ms->trans.no;
	*trans_time = ms->trans.time;
	return true;
}

static int StoatSpriteEngine_MultiSprite_GetCG(int type, int n)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	return ms->cg;
}

static bool StoatSpriteEngine_MultiSprite_GetPos(int type, int n, int *x, int *y)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	*x = ms->pos.x;
	*y = ms->pos.y;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_GetAlpha(int type, int n, int *alpha)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	*alpha = ms->alpha;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_ResetDefaultPos(int type, int n)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->pos = ms->default_pos;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_ResetAllDefaultPos(int type)
{
	for (int i = 0; i < sp_types[type].nr_sprites; i++) {
		if (sp_types[type].sprites[i]) {
			sp_types[type].sprites[i]->pos = sp_types[type].sprites[i]->default_pos;
		}
	}
	return true;
}

static void StoatSpriteEngine_MultiSprite_ResetAllCG(void)
{
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			if (sp_types[i].sprites[j]) {
				multisprite_reset_cg(sp_types[i].sprites[j]);
			}
		}
	}
}

static void StoatSpriteEngine_MultiSprite_SetAllShowMessageFrame(bool show)
{
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			if (sp_types[i].sprites[j] && sp_types[i].sprites[j]->linked_message_frame) {
				sprite_set_show(&sp_types[i].sprites[j]->sp, show);
			}
		}
	}
}

static bool StoatSpriteEngine_MultiSprite_BeginMove(int type, int n, int x0, int y0, int x1, int y1, int t, int begin_wait_time, float move_accel)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->move.start.x = x0;
	ms->move.start.y = y0;
	ms->move.start_alpha = ms->alpha;
	ms->move.end.x = x1;
	ms->move.end.y = y1;
	ms->move.end_alpha = ms->alpha;
	ms->move.time = t;
	ms->move.begin_wait_time = begin_wait_time;
	ms->move.move_accel = move_accel;
	ms->moving = true;
	return true;
}

static bool StoatSpriteEngine_MultiSprite_BeginMoveWithAlpha(int type, int n, int x0, int y0, int a0, int x1, int y1, int a1, int t, int begin_wait_time, float move_accel)
{
	struct multisprite *ms = multisprite_get(type, n);
	if (!ms) return false;
	ms->move.start.x = x0;
	ms->move.start.y = y0;
	ms->move.start_alpha = a0;
	ms->move.end.x = x1;
	ms->move.end.y = y1;
	ms->move.end_alpha = a1;
	ms->move.time = t;
	ms->move.begin_wait_time = begin_wait_time;
	ms->move.move_accel = move_accel;
	ms->moving = true;
	return true;
}

static int StoatSpriteEngine_MultiSprite_GetMaxMoveTotalTime(void)
{
	int t = 0;
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			struct multisprite *ms = sp_types[i].sprites[j];
			if (ms && ms->moving) {
				t = max(t, ms->move.time + ms->move.begin_wait_time);
			}
		}
	}
	return t;
}

static void multisprite_set_move_current_time(struct multisprite *ms, int time)
{
	if (!time || time <= ms->move.begin_wait_time) {
		ms->pos = ms->move.start;
		return;
	}

	// adjust for begin wait
	time -= ms->move.begin_wait_time;

	if (time >= ms->move.time) {
		ms->pos = ms->move.end;
		return;
	}

	// calculate (x,y) at time/move_time
	int d_x = ms->move.end.x - ms->move.start.x;
	int d_y = ms->move.end.y - ms->move.start.y;
	double percent = (double)time / ms->move.time;
	// TODO: acceleration
	ms->pos.x = ms->move.start.x + (d_x * percent);
	ms->pos.y = ms->move.start.y + (d_y * percent);
}

static void StoatSpriteEngine_MultiSprite_SetAllMoveCurrentTime(int time)
{
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			struct multisprite *ms = sp_types[i].sprites[j];
			if (ms && ms->moving) {
				multisprite_set_move_current_time(ms, time);
			}
		}
	}
}

static void StoatSpriteEngine_MultiSprite_EndAllMove(void)
{
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			struct multisprite *ms = sp_types[i].sprites[j];
			if (ms && ms->moving) {
				ms->pos = ms->move.end;
				ms->moving = false;
			}
		}
	}
}

static bool StoatSpriteEngine_MultiSprite_UpdateView(void)
{
	for (int i = 0; i < NR_SP_TYPES; i++) {
		for (int j = 0; j < sp_types[i].nr_sprites; j++) {
			if (sp_types[i].sprites[j]) {
				multisprite_update(sp_types[i].sprites[j]);
			}
		}
	}
	return true;
}

//static void StoatSpriteEngine_MultiSprite_Rebuild(void);
HLL_WARN_UNIMPLEMENTED( , void, StoatSpriteEngine, MultiSprite_Rebuild);

static bool StoatSpriteEngine_MultiSprite_Encode(struct page **data)
{
	struct iarray_writer out;
	iarray_init_writer(&out, "MSP");

	int nr_sprites = 0;
	unsigned nr_sprites_pos = iarray_writer_pos(&out);
	iarray_write(&out, 0);

	for (int t = 0; t < NR_SP_TYPES; t++) {
		if (!sp_types[t].nr_sprites)
			continue;
		for (int no = 0; no < sp_types[t].nr_sprites; no++) {
			struct multisprite *sp = sp_types[t].sprites[no];
			if (!sp)
				continue;
			iarray_write(&out, sp->type);
			iarray_write(&out, sp->no);
			iarray_write(&out, sp->z);
			iarray_write(&out, sp->pos.x);
			iarray_write(&out, sp->pos.y);
			iarray_write(&out, sp->default_pos.x);
			iarray_write(&out, sp->default_pos.y);
			iarray_write(&out, sp->origin_mode);
			iarray_write(&out, sp->alpha);
			iarray_write(&out, sp->cg);
			iarray_write(&out, sp->moving);
			iarray_write(&out, sp->move.start.x);
			iarray_write(&out, sp->move.start.y);
			iarray_write(&out, sp->move.end.x);
			iarray_write(&out, sp->move.end.y);
			iarray_write(&out, sp->move.start_alpha);
			iarray_write(&out, sp->move.end_alpha);
			iarray_write(&out, sp->move.begin_wait_time);
			iarray_write(&out, sp->move.time);
			iarray_write_float(&out, sp->move.move_accel);
			iarray_write(&out, sp->trans.no);
			iarray_write(&out, sp->trans.time);
			iarray_write(&out, sp->linked_message_frame);
			iarray_write(&out, sp->ts.color.r);
			iarray_write(&out, sp->ts.color.g);
			iarray_write(&out, sp->ts.color.b);
			iarray_write(&out, sp->ts.color.a);
			iarray_write(&out, sp->ts.edge_color.r);
			iarray_write(&out, sp->ts.edge_color.g);
			iarray_write(&out, sp->ts.edge_color.b);
			iarray_write(&out, sp->ts.edge_color.a);
			iarray_write(&out, sp->ts.size);
			iarray_write(&out, sp->ts.weight);
			iarray_write(&out, sp->ts.face);
			iarray_write(&out, sp->ts.edge_left);
			iarray_write(&out, sp->ts.edge_up);
			iarray_write(&out, sp->ts.edge_right);
			iarray_write(&out, sp->ts.edge_down);
			iarray_write(&out, sp->ts.font_spacing);
			nr_sprites++;
		}
	}
	iarray_write_at(&out, nr_sprites_pos, nr_sprites);

	if (*data) {
		delete_page_vars(*data);
		free_page(*data);
	}
	*data = iarray_to_page(&out);
	iarray_free_writer(&out);
	return true;
}

static bool StoatSpriteEngine_MultiSprite_Decode(struct page **data)
{
	struct iarray_reader in;
	if (!iarray_init_reader(&in, *data, "MSP")) {
		WARNING("MultiSprite_Decode: invalid data");
		return false;
	}

	multisprite_clear();

	int nr_sprites = iarray_read(&in);
	for (int i = 0; i < nr_sprites; i++) {
		int type = iarray_read(&in);
		int no = iarray_read(&in);
		struct multisprite *sp = multisprite_get(type, no);
		sp->z = iarray_read(&in);
		sp->pos.x = iarray_read(&in);
		sp->pos.y = iarray_read(&in);
		sp->default_pos.x = iarray_read(&in);
		sp->default_pos.y = iarray_read(&in);
		sp->origin_mode = iarray_read(&in);
		sp->alpha = iarray_read(&in);
		sp->cg = iarray_read(&in);
		sp->cg_dirty = true;
		sp->moving = iarray_read(&in);
		sp->move.start.x = iarray_read(&in);
		sp->move.start.y = iarray_read(&in);
		sp->move.end.x = iarray_read(&in);
		sp->move.end.y = iarray_read(&in);
		sp->move.start_alpha = iarray_read(&in);
		sp->move.end_alpha = iarray_read(&in);
		sp->move.begin_wait_time = iarray_read(&in);
		sp->move.time = iarray_read(&in);
		sp->move.move_accel = iarray_read_float(&in);
		sp->trans.no = iarray_read(&in);
		sp->trans.time = iarray_read(&in);
		sp->linked_message_frame = iarray_read(&in);
		sp->ts.color.r = iarray_read(&in);
		sp->ts.color.g = iarray_read(&in);
		sp->ts.color.b = iarray_read(&in);
		sp->ts.color.a = iarray_read(&in);
		sp->ts.edge_color.r = iarray_read(&in);
		sp->ts.edge_color.g = iarray_read(&in);
		sp->ts.edge_color.b = iarray_read(&in);
		sp->ts.edge_color.a = iarray_read(&in);
		sp->ts.size = iarray_read(&in);
		sp->ts.weight = iarray_read(&in);
		sp->ts.face = iarray_read(&in);
		sp->ts.edge_left = iarray_read(&in);
		sp->ts.edge_up = iarray_read(&in);
		sp->ts.edge_right = iarray_read(&in);
		sp->ts.edge_down = iarray_read(&in);
		sp->ts.font_spacing = iarray_read(&in);
	}

	return !in.error;
}

int StoatSpriteEngine_SYSTEM_IsResetOnce(void)
{
	return 0;
}

static bool config_over_frame_rate_sleep = true;

void StoatSpriteEngine_SYSTEM_SetConfigOverFrameRateSleep(bool on)
{
	config_over_frame_rate_sleep = !!on;
}

bool StoatSpriteEngine_SYSTEM_GetConfigOverFrameRateSleep(void)
{
	return config_over_frame_rate_sleep;
}

static bool config_sleep_by_inactive_window = false;

void StoatSpriteEngine_SYSTEM_SetConfigSleepByInactiveWindow(bool on)
{
	config_sleep_by_inactive_window = !!on;
}

bool StoatSpriteEngine_SYSTEM_GetConfigSleepByInactiveWindow(void)
{
	return config_sleep_by_inactive_window;
}

static bool read_message_skipping = false;

void StoatSpriteEngine_SYSTEM_SetReadMessageSkipping(bool on)
{
	read_message_skipping = !!on;
}


bool StoatSpriteEngine_SYSTEM_GetReadMessageSkipping(void)
{
	return read_message_skipping;
}

static bool config_frame_skip_while_message_skip = true;

void StoatSpriteEngine_SYSTEM_SetConfigFrameSkipWhileMessageSkip(bool on)
{
	config_frame_skip_while_message_skip = !!on;
}

bool StoatSpriteEngine_SYSTEM_GetConfigFrameSkipWhileMessageSkip(void)
{
	return config_frame_skip_while_message_skip;
}

static bool invalidate_frame_skip_while_message_skip = false;

void StoatSpriteEngine_SYSTEM_SetInvalidateFrameSkipWhileMessageSkip(bool on)
{
	invalidate_frame_skip_while_message_skip = !!on;
}

bool StoatSpriteEngine_SYSTEM_GetInvalidateFrameSkipWhileMessageSkip(void)
{
	return invalidate_frame_skip_while_message_skip;
}

//static int StoatSpriteEngine_Debug_GetCurrentAllocatedMemorySize(void);
//static int StoatSpriteEngine_Debug_GetMaxAllocatedMemorySize(void);
//static int StoatSpriteEngine_Debug_GetFillRate(void);
//static int StoatSpriteEngine_MUSIC_ReloadParam(struct string **text);

HLL_LIBRARY(StoatSpriteEngine,
	    HLL_EXPORT(_ModuleFini, StoatSpriteEngine_ModuleFini),
	    HLL_EXPORT(SetVolumeMixerMasterGroupNum, StoatSpriteEngine_SetVolumeMixerMasterGroupNum),
	    HLL_EXPORT(SetVolumeMixerSEGroupNum, StoatSpriteEngine_SetVolumeMixerSEGroupNum),
	    HLL_EXPORT(SetVolumeMixerBGMGroupNum, StoatSpriteEngine_SetVolumeMixerBGMGroupNum),
	    HLL_EXPORT(Init, StoatSpriteEngine_Init),
	    HLL_TODO_EXPORT(Error, SACT2_Error),
	    HLL_EXPORT(SetWP_Color, sact_SetWP_Color),
	    HLL_EXPORT(GetScreenWidth, sact_GetScreenWidth),
	    HLL_EXPORT(GetScreenHeight, sact_GetScreenHeight),
	    HLL_EXPORT(GetMainSurfaceNumber, sact_GetMainSurfaceNumber),
	    HLL_EXPORT(Update, sact_Update),
	    HLL_EXPORT(SP_GetUnuseNum, sact_SP_GetUnuseNum),
	    HLL_EXPORT(SP_Count, sact_SP_Count),
	    HLL_EXPORT(SP_Enum, sact_SP_Enum),
	    HLL_EXPORT(SP_GetMaxZ, StoatSpriteEngine_SP_GetMaxZ),
	    HLL_EXPORT(SP_SetCG, sact_SP_SetCG),
	    HLL_EXPORT(SP_SetCGFromFile, sact_SP_SetCGFromFile),
	    HLL_EXPORT(SP_SaveCG, sact_SP_SaveCG),
	    HLL_EXPORT(SP_Create, sact_SP_Create),
	    HLL_EXPORT(SP_CreatePixelOnly, sact_SP_CreatePixelOnly),
	    HLL_TODO_EXPORT(SP_CreateCustom, SACT2_SP_CreateCustom),
	    HLL_EXPORT(SP_Delete, sact_SP_Delete),
	    HLL_EXPORT(SP_DeleteAll, sact_SP_DeleteAll),
	    HLL_EXPORT(SP_SetPos, sact_SP_SetPos),
	    HLL_EXPORT(SP_SetX, sact_SP_SetX),
	    HLL_EXPORT(SP_SetY, sact_SP_SetY),
	    HLL_EXPORT(SP_SetZ, sact_SP_SetZ),
	    HLL_EXPORT(SP_SetBlendRate, sact_SP_SetBlendRate),
	    HLL_EXPORT(SP_SetShow, sact_SP_SetShow),
	    HLL_EXPORT(SP_SetDrawMethod, StoatSpriteEngine_SP_SetDrawMethod),
	    HLL_EXPORT(SP_IsUsing, sact_SP_IsUsing),
	    HLL_EXPORT(SP_ExistAlpha, sact_SP_ExistsAlpha),
	    HLL_EXPORT(SP_GetPosX, sact_SP_GetPosX),
	    HLL_EXPORT(SP_GetPosY, sact_SP_GetPosY),
	    HLL_EXPORT(SP_GetWidth, sact_SP_GetWidth),
	    HLL_EXPORT(SP_GetHeight, sact_SP_GetHeight),
	    HLL_EXPORT(SP_GetZ, sact_SP_GetZ),
	    HLL_EXPORT(SP_GetBlendRate, sact_SP_GetBlendRate),
	    HLL_EXPORT(SP_GetShow, sact_SP_GetShow),
	    HLL_EXPORT(SP_GetDrawMethod, StoatSpriteEngine_SP_GetDrawMethod),
	    HLL_EXPORT(SP_SetTextHome, sact_SP_SetTextHome),
	    HLL_EXPORT(SP_SetTextLineSpace, sact_SP_SetTextLineSpace),
	    HLL_EXPORT(SP_SetTextCharSpace, sact_SP_SetTextCharSpace),
	    HLL_EXPORT(SP_SetTextPos, sact_SP_SetTextPos),
	    HLL_EXPORT(SP_TextDraw, sact_SP_TextDraw),
	    HLL_EXPORT(SP_TextClear, sact_SP_TextClear),
	    HLL_EXPORT(SP_TextHome, sact_SP_TextHome),
	    HLL_EXPORT(SP_TextNewLine, sact_SP_TextNewLine),
	    HLL_TODO_EXPORT(SP_TextBackSpace, SACT2_SP_TextBackSpace),
	    HLL_EXPORT(SP_TextCopy, sact_SP_TextCopy),
	    HLL_EXPORT(SP_GetTextHomeX, sact_SP_GetTextHomeX),
	    HLL_EXPORT(SP_GetTextHomeY, sact_SP_GetTextHomeY),
	    HLL_EXPORT(SP_GetTextCharSpace, sact_SP_GetTextCharSpace),
	    HLL_EXPORT(SP_GetTextPosX, sact_SP_GetTextPosX),
	    HLL_EXPORT(SP_GetTextPosY, sact_SP_GetTextPosY),
	    HLL_EXPORT(SP_GetTextLineSpace, sact_SP_GetTextLineSpace),
	    HLL_EXPORT(SP_IsPtIn, sact_SP_IsPtIn),
	    HLL_EXPORT(SP_IsPtInRect, sact_SP_IsPtInRect),
	    HLL_EXPORT(SP_SetTextSprite, StoatSpriteEngine_SP_SetTextSprite),
	    HLL_EXPORT(SP_SetTextSpriteType, StoatSpriteEngine_SP_SetTextSpriteType),
	    HLL_EXPORT(SP_SetTextSpriteSize, StoatSpriteEngine_SP_SetTextSpriteSize),
	    HLL_EXPORT(SP_SetTextSpriteColor, StoatSpriteEngine_SP_SetTextSpriteColor),
	    HLL_EXPORT(SP_SetTextSpriteBoldWeight, StoatSpriteEngine_SP_SetTextSpriteBoldWeight),
	    HLL_EXPORT(SP_SetTextSpriteEdgeWeight, StoatSpriteEngine_SP_SetTextSpriteEdgeWeight),
	    HLL_EXPORT(SP_SetTextSpriteEdgeColor, StoatSpriteEngine_SP_SetTextSpriteEdgeColor),
	    HLL_EXPORT(SP_SetDashTextSprite, StoatSpriteEngine_SP_SetDashTextSprite),
	    HLL_TODO_EXPORT(FPS_SetShow, StoatSpriteEngine_FPS_SetShow),
	    HLL_TODO_EXPORT(FPS_GetShow, StoatSpriteEngine_FPS_GetShow),
	    HLL_TODO_EXPORT(FPS_Get, StoatSpriteEngine_FPS_Get),
	    HLL_EXPORT(GAME_MSG_GetNumof, sact_GAME_MSG_GetNumOf),
	    HLL_TODO_EXPORT(GAME_MSG_Get, SACT2_GAME_MSG_Get),
	    HLL_EXPORT(IntToZenkaku, sact_IntToZenkaku),
	    HLL_EXPORT(IntToHankaku, sact_IntToHankaku),
	    HLL_TODO_EXPORT(StringPopFront, SACT2_StringPopFront),
	    HLL_EXPORT(Mouse_GetPos, sact_Mouse_GetPos),
	    HLL_EXPORT(Mouse_SetPos, sact_Mouse_SetPos),
	    HLL_EXPORT(Mouse_ClearWheel, mouse_clear_wheel),
	    HLL_EXPORT(Mouse_GetWheel, mouse_get_wheel),
	    HLL_EXPORT(Joypad_ClearKeyDownFlag, sact_Joypad_ClearKeyDownFlag),
	    HLL_EXPORT(Joypad_IsKeyDown, sact_Joypad_IsKeyDown),
	    HLL_TODO_EXPORT(Joypad_GetNumof, SACT2_Joypad_GetNumof),
	    HLL_EXPORT(JoypadQuake_Set, StoatSpriteEngine_JoypadQuake_Set),
	    HLL_EXPORT(Joypad_GetAnalogStickStatus, sact_Joypad_GetAnalogStickStatus),
	    HLL_EXPORT(Joypad_GetDigitalStickStatus, sact_Joypad_GetDigitalStickStatus),
	    HLL_EXPORT(Key_ClearFlag, sact_Key_ClearFlag),
	    HLL_EXPORT(Key_IsDown, sact_Key_IsDown),
	    HLL_EXPORT(KEY_GetState, key_is_down),
	    HLL_EXPORT(Timer_Get, vm_time),
	    HLL_EXPORT(CG_IsExist, sact_CG_IsExist),
	    HLL_EXPORT(CG_GetMetrics, sact_CG_GetMetrics),
	    HLL_TODO_EXPORT(CSV_Load, SACT2_CSV_Load),
	    HLL_TODO_EXPORT(CSV_Save, SACT2_CSV_Save),
	    HLL_TODO_EXPORT(CSV_SaveAs, SACT2_CSV_SaveAs),
	    HLL_TODO_EXPORT(CSV_CountLines, SACT2_CSV_CountLines),
	    HLL_TODO_EXPORT(CSV_CountColumns, SACT2_CSV_CountColumns),
	    HLL_TODO_EXPORT(CSV_Get, SACT2_CSV_Get),
	    HLL_TODO_EXPORT(CSV_Set, SACT2_CSV_Set),
	    HLL_TODO_EXPORT(CSV_GetInt, SACT2_CSV_GetInt),
	    HLL_TODO_EXPORT(CSV_SetInt, SACT2_CSV_SetInt),
	    HLL_TODO_EXPORT(CSV_Realloc, SACT2_CSV_Realloc),
	    HLL_EXPORT(Music_IsExist, bgm_exists),
	    HLL_EXPORT(Music_Prepare, bgm_prepare),
	    HLL_EXPORT(Music_Unprepare, bgm_unprepare),
	    HLL_EXPORT(Music_Play, bgm_play),
	    HLL_EXPORT(Music_Stop, bgm_stop),
	    HLL_EXPORT(Music_IsPlay, bgm_is_playing),
	    HLL_EXPORT(Music_SetLoopCount, bgm_set_loop_count),
	    HLL_EXPORT(Music_GetLoopCount, bgm_get_loop_count),
	    HLL_EXPORT(Music_SetLoopStartPos, bgm_set_loop_start_pos),
	    HLL_EXPORT(Music_SetLoopEndPos, bgm_set_loop_end_pos),
	    HLL_EXPORT(Music_Fade, bgm_fade),
	    HLL_EXPORT(Music_StopFade, bgm_stop_fade),
	    HLL_EXPORT(Music_IsFade, bgm_is_fading),
	    HLL_EXPORT(Music_Pause, bgm_pause),
	    HLL_EXPORT(Music_Restart, bgm_restart),
	    HLL_EXPORT(Music_IsPause, bgm_is_paused),
	    HLL_EXPORT(Music_GetPos, bgm_get_pos),
	    HLL_EXPORT(Music_GetLength, bgm_get_length),
	    HLL_EXPORT(Music_GetSamplePos, bgm_get_sample_pos),
	    HLL_EXPORT(Music_GetSampleLength, bgm_get_sample_length),
	    HLL_EXPORT(Music_Seek, bgm_seek),
	    HLL_EXPORT(Sound_IsExist, wav_exists),
	    HLL_EXPORT(Sound_GetUnuseChannel, wav_get_unused_channel),
	    HLL_EXPORT(Sound_Prepare, wav_prepare),
	    HLL_EXPORT(Sound_Unprepare, wav_unprepare),
	    HLL_EXPORT(Sound_Play, wav_play),
	    HLL_EXPORT(Sound_Stop, wav_stop),
	    HLL_EXPORT(Sound_IsPlay, wav_is_playing),
	    HLL_EXPORT(Sound_SetLoopCount, wav_set_loop_count),
	    HLL_EXPORT(Sound_GetLoopCount, wav_get_loop_count),
	    HLL_EXPORT(Sound_Fade, wav_fade),
	    HLL_EXPORT(Sound_StopFade, wav_stop_fade),
	    HLL_EXPORT(Sound_IsFade, wav_is_fading),
	    HLL_EXPORT(Sound_GetPos, wav_get_pos),
	    HLL_EXPORT(Sound_GetLength, wav_get_length),
	    HLL_EXPORT(Sound_ReverseLR, wav_reverse_LR),
	    HLL_EXPORT(Sound_GetVolume, wav_get_volume),
	    HLL_EXPORT(Sound_GetTimeLength, wav_get_time_length),
	    HLL_TODO_EXPORT(Sound_GetGroupNum, wav_get_group_num),
	    HLL_EXPORT(Sound_GetGroupNumFromDataNum, wav_get_group_num_from_data_num),
	    HLL_TODO_EXPORT(Sound_PrepareFromFile, wav_prepare_from_file),
	    HLL_EXPORT(System_GetDate, get_date),
	    HLL_EXPORT(System_GetTime, get_time),
	    HLL_TODO_EXPORT(CG_RotateRGB, SACT2_CG_RotateRGB),
	    HLL_EXPORT(CG_BlendAMapBin, sact_CG_BlendAMapBin),
	    HLL_TODO_EXPORT(Debug_Pause, SACT2_Debug_Pause),
	    HLL_TODO_EXPORT(Debug_GetFuncStack, SACT2_Debug_GetFuncStack),
	    HLL_EXPORT(SP_GetAMapValue, sact_SP_GetAMapValue),
	    HLL_EXPORT(SP_GetPixelValue, sact_SP_GetPixelValue),
	    HLL_EXPORT(SP_SetBrightness, StoatSpriteEngine_SP_SetBrightness),
	    HLL_EXPORT(SP_GetBrightness, StoatSpriteEngine_SP_GetBrightness),
	    HLL_TODO_EXPORT(SP_CreateCopy, SACTDX_SP_CreateCopy),
	    HLL_TODO_EXPORT(Joypad_GetAnalogStickStatus, SACTDX_Joypad_GetAnalogStickStatus),
	    HLL_TODO_EXPORT(GetDigitalStickStatus, SACTDX_GetDigitalStickStatus),
	    HLL_TODO_EXPORT(FFT_rdft, SACTDX_FFT_rdft),
	    HLL_TODO_EXPORT(FFT_hanning_window, SACTDX_FFT_hanning_window),
	    HLL_TODO_EXPORT(Music_AnalyzeSampleData, SACTDX_Music_AnalyzeSampleData),
	    HLL_TODO_EXPORT(Key_ClearFlagNoCtrl, SACTDX_Key_ClearFlagNoCtrl),
	    HLL_TODO_EXPORT(Key_ClearFlagOne, SACTDX_Key_ClearFlagOne),
	    HLL_EXPORT(TRANS_Begin, sact_TRANS_Begin),
	    HLL_EXPORT(TRANS_Update, sact_TRANS_Update),
	    HLL_EXPORT(TRANS_End, sact_TRANS_End),
	    HLL_TODO_EXPORT(VIEW_SetMode, SACTDX_VIEW_SetMode),
	    HLL_TODO_EXPORT(VIEW_GetMode, SACTDX_VIEW_GetMode),
	    HLL_EXPORT(VIEW_SetOffsetPos, StoatSpriteEngine_VIEW_SetOffsetPos),
	    HLL_TODO_EXPORT(DX_GetUsePower2Texture, SACTDX_DX_GetUsePower2Texture),
	    HLL_TODO_EXPORT(DX_SetUsePower2Texture, SACTDX_DX_SetUsePower2Texture),
	    HLL_EXPORT(KeepPreviousView_SetMode, StoatSpriteEngine_KeepPreviousView_SetMode),
	    HLL_EXPORT(KeepPreviousView_GetMode, StoatSpriteEngine_KeepPreviousView_GetMode),
	    HLL_EXPORT(MultiSprite_SetCG, StoatSpriteEngine_MultiSprite_SetCG),
	    HLL_EXPORT(MultiSprite_SetPos, StoatSpriteEngine_MultiSprite_SetPos),
	    HLL_EXPORT(MultiSprite_SetDefaultPos, StoatSpriteEngine_MultiSprite_SetDefaultPos),
	    HLL_EXPORT(MultiSprite_SetZ, StoatSpriteEngine_MultiSprite_SetZ),
	    HLL_EXPORT(MultiSprite_SetAlpha, StoatSpriteEngine_MultiSprite_SetAlpha),
	    HLL_EXPORT(MultiSprite_SetTransitionInfo, StoatSpriteEngine_MultiSprite_SetTransitionInfo),
	    HLL_EXPORT(MultiSprite_SetLinkedMessageFrame, StoatSpriteEngine_MultiSprite_SetLinkedMessageFrame),
	    HLL_EXPORT(MultiSprite_SetParentMessageFrameNum, StoatSpriteEngine_MultiSprite_SetParentMessageFrameNum),
	    HLL_EXPORT(MultiSprite_SetOriginPosMode, StoatSpriteEngine_MultiSprite_SetOriginPosMode),
	    HLL_EXPORT(MultiSprite_SetText, StoatSpriteEngine_MultiSprite_SetText),
	    HLL_EXPORT(MultiSprite_SetCharSpace, StoatSpriteEngine_MultiSprite_SetCharSpace),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetType, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetType),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetSize, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetSize),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetColor, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetColor),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetBoldWeight, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetBoldWeight),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetEdgeWeight, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetEdgeWeight),
	    HLL_EXPORT(MultiSprite_CharSpriteProperty_SetEdgeColor, StoatSpriteEngine_MultiSprite_CharSpriteProperty_SetEdgeColor),
	    HLL_EXPORT(MultiSprite_GetTransitionInfo, StoatSpriteEngine_MultiSprite_GetTransitionInfo),
	    HLL_EXPORT(MultiSprite_GetCG, StoatSpriteEngine_MultiSprite_GetCG),
	    HLL_EXPORT(MultiSprite_GetPos, StoatSpriteEngine_MultiSprite_GetPos),
	    HLL_EXPORT(MultiSprite_GetAlpha, StoatSpriteEngine_MultiSprite_GetAlpha),
	    HLL_EXPORT(MultiSprite_ResetDefaultPos, StoatSpriteEngine_MultiSprite_ResetDefaultPos),
	    HLL_EXPORT(MultiSprite_ResetAllDefaultPos, StoatSpriteEngine_MultiSprite_ResetAllDefaultPos),
	    HLL_EXPORT(MultiSprite_ResetAllCG, StoatSpriteEngine_MultiSprite_ResetAllCG),
	    HLL_EXPORT(MultiSprite_SetAllShowMessageFrame, StoatSpriteEngine_MultiSprite_SetAllShowMessageFrame),
	    HLL_EXPORT(MultiSprite_BeginMove, StoatSpriteEngine_MultiSprite_BeginMove),
	    HLL_EXPORT(MultiSprite_BeginMoveWithAlpha, StoatSpriteEngine_MultiSprite_BeginMoveWithAlpha),
	    HLL_EXPORT(MultiSprite_GetMaxMoveTotalTime, StoatSpriteEngine_MultiSprite_GetMaxMoveTotalTime),
	    HLL_EXPORT(MultiSprite_SetAllMoveCurrentTime, StoatSpriteEngine_MultiSprite_SetAllMoveCurrentTime),
	    HLL_EXPORT(MultiSprite_EndAllMove, StoatSpriteEngine_MultiSprite_EndAllMove),
	    HLL_EXPORT(MultiSprite_UpdateView, StoatSpriteEngine_MultiSprite_UpdateView),
	    HLL_EXPORT(MultiSprite_Rebuild, StoatSpriteEngine_MultiSprite_Rebuild),
	    HLL_EXPORT(MultiSprite_Encode, StoatSpriteEngine_MultiSprite_Encode),
	    HLL_EXPORT(MultiSprite_Decode, StoatSpriteEngine_MultiSprite_Decode),
	    HLL_EXPORT(CharSpriteManager_CreateHandle, CharSpriteManager_CreateHandle),
	    HLL_EXPORT(CharSpriteManager_ReleaseHandle, CharSpriteManager_ReleaseHandle),
	    HLL_EXPORT(CharSpriteManager_Clear, CharSpriteManager_Clear),
	    HLL_EXPORT(CharSpriteManager_Rebuild, CharSpriteManager_Rebuild),
	    HLL_EXPORT(CharSpriteManager_Save, CharSpriteManager_Save),
	    HLL_EXPORT(CharSpriteManager_Load, CharSpriteManager_Load),
	    HLL_EXPORT(CharSprite_Release, CharSprite_Release),
	    HLL_EXPORT(CharSprite_SetChar, CharSprite_SetChar),
	    HLL_EXPORT(CharSprite_SetPos, CharSprite_SetPos),
	    HLL_EXPORT(CharSprite_SetZ, CharSprite_SetZ),
	    HLL_EXPORT(CharSprite_SetAlphaRate, CharSprite_SetAlphaRate),
	    HLL_EXPORT(CharSprite_SetShow, CharSprite_SetShow),
	    HLL_EXPORT(CharSprite_GetChar, CharSprite_GetChar),
	    HLL_EXPORT(CharSprite_GetAlphaRate, CharSprite_GetAlphaRate),
	    HLL_EXPORT(SYSTEM_IsResetOnce, StoatSpriteEngine_SYSTEM_IsResetOnce),
	    HLL_EXPORT(SYSTEM_SetConfigOverFrameRateSleep, StoatSpriteEngine_SYSTEM_SetConfigOverFrameRateSleep),
	    HLL_EXPORT(SYSTEM_GetConfigOverFrameRateSleep, StoatSpriteEngine_SYSTEM_GetConfigOverFrameRateSleep),
	    HLL_EXPORT(SYSTEM_SetConfigSleepByInactiveWindow, StoatSpriteEngine_SYSTEM_SetConfigSleepByInactiveWindow),
	    HLL_EXPORT(SYSTEM_GetConfigSleepByInactiveWindow, StoatSpriteEngine_SYSTEM_GetConfigSleepByInactiveWindow),
	    HLL_EXPORT(SYSTEM_SetReadMessageSkipping, StoatSpriteEngine_SYSTEM_SetReadMessageSkipping),
	    HLL_EXPORT(SYSTEM_GetReadMessageSkipping, StoatSpriteEngine_SYSTEM_GetReadMessageSkipping),
	    HLL_EXPORT(SYSTEM_SetConfigFrameSkipWhileMessageSkip, StoatSpriteEngine_SYSTEM_SetConfigFrameSkipWhileMessageSkip),
	    HLL_EXPORT(SYSTEM_GetConfigFrameSkipWhileMessageSkip, StoatSpriteEngine_SYSTEM_GetConfigFrameSkipWhileMessageSkip),
	    HLL_EXPORT(SYSTEM_SetInvalidateFrameSkipWhileMessageSkip, StoatSpriteEngine_SYSTEM_SetInvalidateFrameSkipWhileMessageSkip),
	    HLL_EXPORT(SYSTEM_GetInvalidateFrameSkipWhileMessageSkip, StoatSpriteEngine_SYSTEM_GetInvalidateFrameSkipWhileMessageSkip),
	    HLL_EXPORT(ADVSceneKeeper_AddADVScene, ADVSceneKeeper_AddADVScene),
	    HLL_EXPORT(ADVSceneKeeper_GetNumofADVScene, ADVSceneKeeper_GetNumofADVScene),
	    HLL_EXPORT(ADVSceneKeeper_GetADVScene, ADVSceneKeeper_GetADVScene),
	    HLL_EXPORT(ADVSceneKeeper_Clear, ADVSceneKeeper_Clear),
	    HLL_EXPORT(ADVSceneKeeper_Save, ADVSceneKeeper_Save),
	    HLL_EXPORT(ADVSceneKeeper_Load, ADVSceneKeeper_Load),
	    HLL_EXPORT(ADVLogList_Clear, ADVLogList_Clear),
	    HLL_EXPORT(ADVLogList_AddText, ADVLogList_AddText),
	    HLL_EXPORT(ADVLogList_AddNewLine, ADVLogList_AddNewLine),
	    HLL_EXPORT(ADVLogList_AddNewPage, ADVLogList_AddNewPage),
	    HLL_EXPORT(ADVLogList_AddVoice, ADVLogList_AddVoice),
	    HLL_EXPORT(ADVLogList_SetEnable, ADVLogList_SetEnable),
	    HLL_EXPORT(ADVLogList_IsEnable, ADVLogList_IsEnable),
	    HLL_EXPORT(ADVLogList_GetNumofADVLog, ADVLogList_GetNumofADVLog),
	    HLL_EXPORT(ADVLogList_GetNumofADVLogText, ADVLogList_GetNumofADVLogText),
	    HLL_EXPORT(ADVLogList_GetADVLogText, ADVLogList_GetADVLogText),
	    // XXX: StoatSpriteEngine interface differs from AnteaterADVEngine here
	    HLL_EXPORT(ADVLogList_GetADVLogVoice, ADVLogList_GetADVLogVoiceLast),
	    HLL_EXPORT(ADVLogList_Save, ADVLogList_Save),
	    HLL_EXPORT(ADVLogList_Load, ADVLogList_Load),
	    HLL_TODO_EXPORT(Debug_GetCurrentAllocatedMemorySize, StoatSpriteEngine_Debug_GetCurrentAllocatedMemorySize),
	    HLL_TODO_EXPORT(Debug_GetMaxAllocatedMemorySize, StoatSpriteEngine_Debug_GetMaxAllocatedMemorySize),
	    HLL_TODO_EXPORT(Debug_GetFillRate, StoatSpriteEngine_Debug_GetFillRate),
	    HLL_TODO_EXPORT(MUSIC_ReloadParam, StoatSpriteEngine_MUSIC_ReloadParam));