/*
 *  Copyright (C) 2000-2004  The Exult Team
 *
 *  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, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#include "SDL_events.h"

#include <typeinfo>
#include "files/U7file.h"
#include "files/utils.h"
#include "flic/playfli.h"
#include "gamewin.h"
#include "Audio.h"
#include "bggame.h"
#include "sigame.h"
#include "palette.h"
#include "databuf.h"
#include "font.h"
#include "txtscroll.h"
#include "data/exult_bg_flx.h"
#include "exult.h"
#include "Configuration.h"
#include "shapeid.h"

#ifndef ALPHA_LINUX_CXX
#  include <cctype>
#  include <cstring>
#endif

#ifndef UNDER_CE
using std::abs;
using std::rand;
using std::strchr;
using std::strlen;
using std::toupper;
#endif

enum
{
	ultima_text_shp = 0x0D,
	butterfly_shp = 0x0E,
	lord_british_shp = 0x11,
	trees_shp = 0x12,
	
	guardian_mouth_shp = 0x1E,
	guardian_forehead_shp = 0x1F,
	guardian_eyes_shp = 0x20
};

enum
{
	bird_song_midi = 0,
	home_song_midi = 1,
	guardian_midi = 2,
	menu_midi = 3,
	credits_midi = 4,
	quotes_midi = 5
};

BG_Game::BG_Game()
	: shapes(ENDSHAPE_FLX)
{
	add_shape("gumps/check",2);
	add_shape("gumps/fileio",3);
	add_shape("gumps/fntext",4);
	add_shape("gumps/loadbtn",5);
	add_shape("gumps/savebtn",6);
	add_shape("gumps/halo",7);
	add_shape("gumps/disk",24);
	add_shape("gumps/heart",25);
	add_shape("gumps/statatts",28);
	add_shape("gumps/musicbtn",29);
	add_shape("gumps/speechbtn",30);
	add_shape("gumps/soundbtn",31);	
	add_shape("gumps/spellbook",43);
	add_shape("gumps/statsdisplay",47);
	add_shape("gumps/combat",46);
	add_shape("gumps/quitbtn",56);
	add_shape("gumps/yesnobox",69);
	add_shape("gumps/yesbtn",70);
	add_shape("gumps/nobtn",71);
	add_shape("gumps/book",32);
	add_shape("gumps/scroll",55);
	add_shape("gumps/combatmode",12);
	add_shape("gumps/slider",14);
	add_shape("gumps/slider_diamond",15);
	add_shape("gumps/slider_right",16);
	add_shape("gumps/slider_left",17);

	add_shape("gumps/box", 0);
	add_shape("gumps/crate", 1);
	add_shape("gumps/barrel", 8);
	add_shape("gumps/bag", 9);
	add_shape("gumps/backpack", 10);
	add_shape("gumps/basket", 11);
	add_shape("gumps/chest", 22);
	add_shape("gumps/shipshold", 26);
	add_shape("gumps/drawer", 27);
	add_shape("gumps/woodsign", 49);
	add_shape("gumps/tombstone", 50);
	add_shape("gumps/goldsign", 51);
	add_shape("gumps/body", 53);

	add_shape("sprites/map", 22);
	add_shape("sprites/cheatmap", 12);

	add_resource("files/shapes/count", 0, 9);
	add_resource("files/shapes/0", "<STATIC>/shapes.vga", 0);
	add_resource("files/shapes/1", "<STATIC>/faces.vga", 0);
	add_resource("files/shapes/2", "<STATIC>/gumps.vga", 0);
	add_resource("files/shapes/3", "<STATIC>/sprites.vga", 0);
	add_resource("files/shapes/4", MAINSHP_FLX, 0);
	add_resource("files/shapes/5", "<STATIC>/endshape.flx", 0);
	add_resource("files/shapes/6", "<STATIC>/fonts.vga", 0);
	add_resource("files/shapes/7", "<DATA>/exult.flx", 0);
	add_resource("files/shapes/8", "<DATA>/exult_bg.flx", 0);

	add_resource("files/gameflx", "<DATA>/exult_bg.flx", 0);

	add_resource("config/defaultkeys", "<DATA>/exult_bg.flx", 13);

	add_resource("palettes/count", 0, 18);
	add_resource("palettes/0", PALETTES_FLX, 0);
	add_resource("palettes/1", PALETTES_FLX, 1);
	add_resource("palettes/2", PALETTES_FLX, 2);
	add_resource("palettes/3", PALETTES_FLX, 3);
	add_resource("palettes/4", PALETTES_FLX, 4);
	add_resource("palettes/5", PALETTES_FLX, 5);
	add_resource("palettes/6", PALETTES_FLX, 6);
	add_resource("palettes/7", PALETTES_FLX, 7);
	add_resource("palettes/8", PALETTES_FLX, 8);
	add_resource("palettes/9", PALETTES_FLX, 10);
	add_resource("palettes/10", PALETTES_FLX, 11);
	add_resource("palettes/11", PALETTES_FLX, 12);
	add_resource("palettes/12", "<STATIC>/intropal.dat", 0);
	add_resource("palettes/13", "<STATIC>/intropal.dat", 1);
	add_resource("palettes/14", "<STATIC>/intropal.dat", 2);
	add_resource("palettes/15", "<STATIC>/intropal.dat", 3);
	add_resource("palettes/16", "<STATIC>/intropal.dat", 4);
	add_resource("palettes/17", "<STATIC>/intropal.dat", 5);
	
	add_resource("xforms/count", 0, 20);
	add_resource("xforms/0", "<STATIC>/xform.tbl", 0);
	add_resource("xforms/1", "<STATIC>/xform.tbl", 1);
	add_resource("xforms/2", "<STATIC>/xform.tbl", 2);
	add_resource("xforms/3", "<STATIC>/xform.tbl", 3);
	add_resource("xforms/4", "<STATIC>/xform.tbl", 4);
	add_resource("xforms/5", "<STATIC>/xform.tbl", 5);
	add_resource("xforms/6", "<STATIC>/xform.tbl", 6);
	add_resource("xforms/7", "<STATIC>/xform.tbl", 7);
	add_resource("xforms/8", "<STATIC>/xform.tbl", 8);
	add_resource("xforms/9", "<STATIC>/xform.tbl", 9);
	add_resource("xforms/10", "<STATIC>/xform.tbl", 10);
	add_resource("xforms/11", "<STATIC>/xform.tbl", 11);
	add_resource("xforms/12", "<STATIC>/xform.tbl", 12);
	add_resource("xforms/13", "<STATIC>/xform.tbl", 13);
	add_resource("xforms/14", "<STATIC>/xform.tbl", 14);
	add_resource("xforms/15", "<STATIC>/xform.tbl", 15);
	add_resource("xforms/16", "<STATIC>/xform.tbl", 16);
	add_resource("xforms/17", "<STATIC>/xform.tbl", 17);
	add_resource("xforms/18", "<STATIC>/xform.tbl", 18);
	add_resource("xforms/19", "<STATIC>/xform.tbl", 19);
	
	fontManager.add_font("MENU_FONT", MAINSHP_FLX, 9, 1);
	fontManager.add_font("END2_FONT", ENDGAME, 4, -1);
	fontManager.add_font("END3_FONT", ENDGAME, 5, -2);
	fontManager.add_font("NORMAL_FONT", FONTS_VGA, 0, -1);
}

BG_Game::~BG_Game()
{
}

class UserSkipException : public UserBreakException
{
};


#define WAITDELAY(x) switch(wait_delay(x)) { \
			case 1: throw UserBreakException(); break; \
			case 2: throw UserSkipException(); break; \
			}

#define WAITDELAYCYCLE(x) switch (wait_delay((x), 16, 78)) { \
			case 1: throw UserBreakException(); break; \
			case 2: throw UserSkipException(); break; \
			}

#define WAITDELAYCYCLE2(x) switch (wait_delay((x), 250, 5)) { \
			case 1: throw UserBreakException(); break; \
			case 2: throw UserSkipException(); break; \
			}

#define WAITDELAYCYCLE3(x) switch (wait_delay((x), 240, 15)) { \
			case 1: throw UserBreakException(); break; \
			case 2: throw UserSkipException(); break; \
			}

void BG_Game::play_intro()
{
	gwin->clear_screen(true);

	Audio::get_ptr()->stop_music();

	// TODO: check/fix other resolutions

	// these backups store the area under the guardian shapes being drawn
	// the cbackups are 'clean' backups, ie. just background
	// the others may have other shapes on them, if those are static
	Image_buffer *backup, *backup2, *backup3;
	Image_buffer *cbackup, *cbackup2, *cbackup3;

	backup = backup2 = backup3 = 0;
	cbackup = cbackup2 = cbackup3 = 0;

	try
	{
		/********************************************************************
		 Lord British Presents
		********************************************************************/
		
		scene_lord_british();

		/********************************************************************
		 Ultima VII logo w/Trees
		********************************************************************/

		scene_butterfly();

		/********************************************************************
		 Enter guardian
		 TODO: reduce sudden facial movements in speech
		********************************************************************/
		
		scene_guardian();

		// TODO: transition (zoom out to PC) scene missing

		/********************************************************************
		 PC screen
		********************************************************************/

		scene_desk();

		/********************************************************************
		 The Moongate
		********************************************************************/
		
		scene_moongate();
	}
	catch(const UserBreakException &x)
	{
		// Waste disposal
		FORGET_OBJECT(backup); FORGET_OBJECT(backup2); FORGET_OBJECT(backup3);
		FORGET_OBJECT(cbackup); FORGET_OBJECT(cbackup2); FORGET_OBJECT(cbackup3);
	}
	
	// Fade out the palette...
	pal->fade_out(c_fade_out_time);
	
	// ... and clean the screen.
	gwin->clear_screen(true);
	
	// Stop all audio output
	Audio::get_ptr()->cancel_streams();
}

void BG_Game::scene_lord_british()
{
	Font *font = fontManager.get_font("END2_FONT");

	const char *txt_msg[] = { "with help from",
			"The Exult Team"};

	// Lord British presents...  (sh. 0x11)
	pal->load("<STATIC>/intropal.dat",3);
	sman->paint_shape(topx,topy,shapes.get_shape(lord_british_shp,0));
	
	// insert our own intro text
	font->center_text(ibuf, centerx, centery+50, txt_msg[0]);
	font->center_text(ibuf, centerx, centery+65, txt_msg[1]);

	pal->fade_in(c_fade_in_time);
	if(1 == wait_delay(2000))
		throw UserBreakException();
	pal->fade_out(c_fade_out_time);
	gwin->clear_screen(true);
}


#define	BUTTERFLY_FRAME_DURATION	16

#define	BUTTERFLY_SUB_FRAMES	3

#define	BUTTERFLY(x,y,frame,delay)	do {	\
		win->get(backup, topx + (x) - butterfly->get_xleft(),	\
				topy + (y) - butterfly->get_yabove());	\
		sman->paint_shape(topx + x, topy + y, shapes.get_shape(butterfly_shp, frame));	\
		win->show();	\
		WAITDELAY(delay);	\
		win->put(backup, topx + (x) - butterfly->get_xleft(),	\
				topy + (y) - butterfly->get_yabove());	\
		} while(0)

#define	BUTTERFLY_FLAP()	do {	\
			if ((rand() % 5)<4) {	\
				if (frame == 3)	\
					dir = -1;	\
				else if (frame == 0)	\
					dir = +1;	\
				frame += dir;	\
			} } while(0)

static int butterfly_x[] =
{
	6,18,30,41,52,62,70,78,86,95,
	104,113,122,132,139,146,151,155,157,158,
	157,155,151,146,139,132,124,116,108,102,
	96,93,93,93,95,99,109,111,118,125,
	132,140,148,157,164,171,178,184,190,196,
	203,211,219,228,237,246,254,259,262,264,
	265,265,263,260,256,251,245,239,232,226,
	219,212,208,206,206,209,212,216,220,224,
	227,234,231,232,233,233,233,233,234,236,
	239,243,247,250,258,265
};

static int butterfly_y[] =
{
	155,153,151,150,149,148,148,148,148,149,
	150,150,150,149,147,142,137,131,125,118,
	110,103,98,94,92,91,91,91,92,95,
	99,104,110,117,123,127,131,134,135,135,
	135,135,135,134,132,129,127,123,119,115,
	112,109,104,102,101,102,109,109,114,119,
	125,131,138,144,149,152,156,158,159,159,
	158,155,150,144,137,130,124,118,112,105,
	99,93,86,80,73,66,59,53,47,42,
	38,35,32,29,26,25
};

static const int butterfly_num_coords = sizeof(butterfly_x)/sizeof(int);

static int butterfly_end_frames[] = { 3, 4, 3, 4, 3, 2, 1, 0 };
static int butterfly_end_delay[] = { 167, 416, 250, 416, 416, 416, 416, 333 };


void BG_Game::scene_butterfly()
{
	Font *font = fontManager.get_font("END2_FONT");
	Image_buffer *backup = 0;
	Shape_frame *butterfly = 0;
	const char *txt_msg = "Driven by Exult";
	int	i, j, frame, dir;
	
	try
	{
		pal->load("<STATIC>/intropal.dat",4);

		// Load the butterfly shape
		butterfly = shapes.get_shape(butterfly_shp,0);
		backup = win->create_buffer(butterfly->get_width(), butterfly->get_height());
		
		// Start playing the birdsongs while still faded out
		play_midi(bird_song_midi);

		// trees with "Ultima VII" on top of 'em
		sman->paint_shape(topx,topy,shapes.get_shape(trees_shp,0));
		sman->paint_shape(topx+160,topy+50,shapes.get_shape(ultima_text_shp,0));
		
		// again display our own text
		font->center_text(ibuf, centerx, centery+50, txt_msg);

		// Keep it dark for some more time, playing the music 
		WAITDELAY(3500);

		// Finally fade in
		pal->fade_in(c_fade_in_time);
		WAITDELAY(12500);

		// clear 'Exult' text
		sman->paint_shape(topx,topy,shapes.get_shape(trees_shp,0));
		sman->paint_shape(topx+160,topy+50,shapes.get_shape(ultima_text_shp,0));
		win->show();

		//
		// Move the butterfly along its path
		//
		frame = 0;
		Sint32 delay = BUTTERFLY_FRAME_DURATION;
		Sint32 ticks = SDL_GetTicks();
		for(i=0; i < butterfly_num_coords-1; ++i)
		{
			for(j=0; j < BUTTERFLY_SUB_FRAMES; ++j)
			{

				ticks = SDL_GetTicks();
				int x = butterfly_x[i] + j*(butterfly_x[i+1] - butterfly_x[i])/BUTTERFLY_SUB_FRAMES;
				int y = butterfly_y[i] + j*(butterfly_y[i+1] - butterfly_y[i])/BUTTERFLY_SUB_FRAMES;
				BUTTERFLY(x, y, frame, delay);

				// Flap the wings; but not always, so that the butterfly "glides" from time to time
				BUTTERFLY_FLAP();

				// Calculate the difference between the time we wanted to spent and the time
				// we actually spent; then adjust 'delay' accordingly
				ticks = SDL_GetTicks() - ticks;
				delay = (delay + (2*BUTTERFLY_FRAME_DURATION - ticks)) / 2;
				
				// ... but maybe we also have to skip frames..
				if( delay < 0 )
				{
					// Calculate how many frames we should skip
					int frames_to_skip = (-delay) / BUTTERFLY_FRAME_DURATION + 1;
					int new_index = i*BUTTERFLY_SUB_FRAMES + j + frames_to_skip;
					i = new_index / BUTTERFLY_SUB_FRAMES;
					j = new_index % BUTTERFLY_SUB_FRAMES;
					
					// Did we skip over the end?
					if ( i >= butterfly_num_coords-1 )
						break;

					while(frames_to_skip--)
						BUTTERFLY_FLAP();

					delay = 0;
				}
			}
		}

		// Finally, let it flutter a bit on the end spot
		for(i=0; i<8; i++) {
			BUTTERFLY(butterfly_x[butterfly_num_coords-1],
						butterfly_y[butterfly_num_coords-1],
						butterfly_end_frames[i],
						butterfly_end_delay[i]);
		}
		
		WAITDELAY(2000);
		
		// Wait till the music finished playing
		while(Audio::get_ptr()->is_track_playing(bird_song_midi))
			WAITDELAY(20);
	}
	catch(const UserSkipException &x)
	{
	}
}

#define	FLASH_SHAPE(x,y,shape,frame, delay)	do {	\
		sman->paint_shape(x,y,shapes.get_shape(shape,frame));	\
		win->show();	\
		WAITDELAYCYCLE(delay);	\
		win->put(backup,(x)-s->get_xleft(),(y)-s->get_yabove());	\
		} while(0)

#define	EYES_DIST		12
#define	FORHEAD_DIST	49

void BG_Game::scene_guardian()
{
	Image_buffer *backup = 0, *backup2 = 0, *backup3 = 0;
	Image_buffer *cbackup = 0, *cbackup2 = 0, *cbackup3 = 0;
	Image_buffer *plasma;
	char *txt = 0;

	try
	{
		char *txt_ptr, *txt_end, *next_txt;
		Shape_frame *s, *s2, *s3;
		Uint32 ticks;
		int i;

		// Start background music
		play_midi(guardian_midi);
		
		// create buffer containing a blue 'plasma' screen
		plasma = win->create_buffer(gwin->get_width(),
							gwin->get_height());
		gwin->plasma(gwin->get_width(), gwin->get_height(), 0, 0, 16, 16+76);
		win->get(plasma, 0, 0);

		pal->load("<STATIC>/intropal.dat",2);
		pal->set_color(1,0,0,0); //UGLY hack... set font background to black
		pal->apply();

		//play static SFX
		Audio::get_ptr()->play_sound_effect(115, MIX_MAX_VOLUME, 0, 0);

		//TODO: timing?
		win->show();
		WAITDELAYCYCLE(100);
		
		//
		// Show some "static" alternating with the blue plasma
		//
		ticks = SDL_GetTicks();
		while(1)
		{
			win->get_ibuf()->fill_static(0, 7, 15);
			win->show();
			WAITDELAY(0);
			if (SDL_GetTicks() > ticks + 400)
				break;
		}

		win->put(plasma,0,0); win->show();
		WAITDELAYCYCLE(100);

		ticks = SDL_GetTicks();
		while(1)
		{
			win->get_ibuf()->fill_static(0, 7, 15);
			win->show();
			WAITDELAY(0);
			if (SDL_GetTicks() > ticks + 200)
				break;
		}

		win->put(plasma,0,0); win->show();
		WAITDELAYCYCLE(200);

		ticks = SDL_GetTicks();
		while(1)
		{
			win->get_ibuf()->fill_static(0, 7, 15);
			win->show();
			WAITDELAY(0);
			if (SDL_GetTicks() > ticks + 100)
				break;
		}
		
		win->put(plasma,0,0); win->show();

		FORGET_OBJECT(plasma);

		
		//
		// First 'popup' (sh. 0x21)
		//
		s = shapes.get_shape(0x21, 0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		win->get(backup, centerx-53-s->get_xleft(), centery-68-s->get_yabove());
		for(i=8; i>=-8; i--)
		{
			FLASH_SHAPE(centerx-53, centery-68, 0x21, 1+abs(i),70);
		}
		FORGET_OBJECT(backup);
		WAITDELAYCYCLE(800);


		//
		// Second 'popup' (sh. 0x22)
		//
		s = shapes.get_shape(0x22, 0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		win->get(backup, centerx - s->get_xleft(), centery-45 - s->get_yabove());
		for(i=9; i>=-9; i--)
		{
			FLASH_SHAPE(centerx, centery-45, 0x22, 9-abs(i),70);
		}
		FORGET_OBJECT(backup);
		WAITDELAYCYCLE(800);


		//
		// Successful 'popup' (sh. 0x23)
		//
		s = shapes.get_shape(0x23, 0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		cbackup = win->create_buffer(s->get_width(), s->get_height());

		win->get(cbackup, centerx - s->get_xleft(), centery - s->get_yabove());
		sman->paint_shape(centerx,centery,s); // frame 0 is static background
		win->get(backup, centerx- s->get_xleft(), centery- s->get_yabove());
		for(i=1; i<16; i++)
		{
			FLASH_SHAPE(centerx, centery, 0x23, i,70);
		}
		
		win->put(cbackup, centerx - s->get_xleft(), centery - s->get_yabove());
		FORGET_OBJECT(backup);
		FORGET_OBJECT(cbackup);


		//
		// Actual appearance
		//


		// mouth
		s = shapes.get_shape(guardian_mouth_shp,0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		cbackup = win->create_buffer(s->get_width(), s->get_height());
		win->get(cbackup, centerx - s->get_xleft(), centery - s->get_yabove());
		sman->paint_shape(centerx,centery,s); // frame 0 is background
		win->get(backup, centerx - s->get_xleft(), centery - s->get_yabove());
		// eyes
		s2 = shapes.get_shape(guardian_eyes_shp,0);
		backup2 = win->create_buffer(s2->get_width(), s2->get_height());
		cbackup2 = win->create_buffer(s2->get_width(), s2->get_height());
		win->get(cbackup2, centerx - s2->get_xleft(),
			 centery-EYES_DIST - s2->get_yabove());
		sman->paint_shape(centerx,centery-EYES_DIST,s2); // frame 0 is background
		win->get(backup2, centerx - s2->get_xleft(),
			 centery-EYES_DIST - s2->get_yabove());
		// forehead
		s3 = shapes.get_shape(guardian_forehead_shp,0);
		cbackup3 = win->create_buffer(s3->get_width(), s3->get_height());
		win->get(cbackup3, centerx - s3->get_xleft(),
			 centery-FORHEAD_DIST - s3->get_yabove());
	       	sman->paint_shape(centerx,centery-FORHEAD_DIST,s3); // forehead isn't animated

		// prepare Guardian speech
		Font *font = fontManager.get_font("END3_FONT");
		U7object textobj(MAINSHP_FLX, 0x0D);
		size_t txt_len;
		next_txt = txt_ptr = txt = textobj.retrieve(txt_len);
		if (Audio::get_ptr()->is_speech_enabled())
			Audio::get_ptr()->playfile(INTROSND,false);
		int txt_height = font->get_text_height();
		int txt_ypos = gwin->get_height()-txt_height-16;

		// backup text area
		backup3 = win->create_buffer(gwin->get_width(),txt_height);
		win->get(backup3, 0, txt_ypos);

		int speech_delay[] = { 29, 71, 59, 47, 47, 62, 79, 
				       55, 90, 104, 80, 65, 55, 120 };
		// start speech
		for(int speech_item=0; speech_item<14; speech_item++)
		{
			unsigned long ticks = SDL_GetTicks();
			unsigned long end_ticks = ticks+speech_delay[speech_item]*50;
			i=0;
			do
			{
				// convoluted mess to get eye movement acceptable
				int eye_frame = 1 + 3*((i/12) % 4) + ((i%50>47&&(i/12)%4!=3)?i%50-47:0);
				sman->paint_shape(centerx,centery-EYES_DIST,
						shapes.get_shape(guardian_eyes_shp, eye_frame));
		
				sman->paint_shape(centerx,centery,
						  shapes.get_shape(guardian_mouth_shp,1 + i % 13));
		
				if (i == 0)
				{
					txt_ptr = next_txt;
					txt_end = strchr(txt_ptr, '\r');
					*txt_end = '\0';
					next_txt = txt_end+2;
				}

				font->center_text(win->get_ib8(), centerx, txt_ypos, txt_ptr);
		
				win->show();
				WAITDELAYCYCLE(50);
		
				win->put(backup3, 0, txt_ypos);
				win->put(backup, centerx - s->get_xleft(),
					     centery - s->get_yabove());
				win->put(backup2, centerx - s2->get_xleft(),
					     centery-EYES_DIST - s2->get_yabove());
				ticks = SDL_GetTicks();
				++i;
			} while (ticks<end_ticks);
		}

		win->put(backup3, 0, txt_ypos);
		win->put(cbackup, centerx - s->get_xleft(), centery - s->get_yabove());
		win->put(cbackup2, centerx - s2->get_xleft(), 
			 centery-EYES_DIST - s2->get_yabove());
		win->put(cbackup3, centerx - s3->get_xleft(),
			 centery-FORHEAD_DIST - s3->get_yabove());
		
		FORGET_ARRAY(txt);
		FORGET_OBJECT(backup);
		FORGET_OBJECT(backup2);
		FORGET_OBJECT(backup3);
		FORGET_OBJECT(cbackup);
		FORGET_OBJECT(cbackup2);
		FORGET_OBJECT(cbackup3);

		// G. disappears again (sp. 0x23 again)
		s = shapes.get_shape(0x23, 0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		cbackup = win->create_buffer(s->get_width(), s->get_height());
		win->get(cbackup, centerx- s->get_xleft(), centery- s->get_yabove());
		sman->paint_shape(centerx,centery,s); // frame 0 is background
		win->get(backup, centerx - s->get_xleft(), centery - s->get_yabove());
		for(i=15; i>0; i--)
		{
			FLASH_SHAPE(centerx, centery, 0x23, i, 70);
		}
		win->put(cbackup, centerx- s->get_xleft(), centery- s->get_yabove());
		FORGET_OBJECT(backup);
		FORGET_OBJECT(cbackup);

		win->show();
		WAITDELAYCYCLE(1000);
		
		Audio::get_ptr()->stop_music();
		
		//
		// White dot
		//
		s = shapes.get_shape(0x14, 0);
		backup = win->create_buffer(s->get_width()+2, s->get_height()+2);
		win->get(backup, centerx - 1, centery - 1);
		ticks = SDL_GetTicks();
		for(i = 0; i < 100; i++)
		{
			int x = centerx + rand()%3 - 1;
			int y = centery + rand()%3 - 1;
			FLASH_SHAPE(x, y, 0x14, 0, 0);
			if (SDL_GetTicks() - ticks > 400)
				break;
		}
		FORGET_OBJECT(backup);
	}
	catch(const UserBreakException &x)
	{
		// Waste disposal
		FORGET_ARRAY(txt);
		FORGET_OBJECT(backup); FORGET_OBJECT(backup2); FORGET_OBJECT(backup3);
		FORGET_OBJECT(cbackup); FORGET_OBJECT(cbackup2); FORGET_OBJECT(cbackup3);
		FORGET_OBJECT(plasma);
		
		if(typeid(x) != typeid(UserSkipException))
			throw x;
	}
}

void BG_Game::scene_desk()
{
	Shape_frame *s;
	Image_buffer *backup = 0;
	int i;

	try
	{
		play_midi(home_song_midi);
		
		gwin->clear_screen();
		pal->load("<STATIC>/intropal.dat",1);
		pal->apply();

		// draw monitor (sh. 0x07, 0x08, 0x09, 0x0A: various parts of monitor)
		sman->paint_shape(centerx, centery, shapes.get_shape(0x07,0));
		sman->paint_shape(centerx, centery, shapes.get_shape(0x09,0));
		sman->paint_shape(centerx, centery, shapes.get_shape(0x08,0));
		sman->paint_shape(centerx, centery, shapes.get_shape(0x0A,0));

		// draw white dot in center of monitor (sh. 0x14)
		sman->paint_shape(centerx+12, centery-22, shapes.get_shape(0x14,0));

		// draw arm hitting pc (sh. 0x0C)
		s = shapes.get_shape(0x0C, 0);
		backup = win->create_buffer(s->get_width(), s->get_height());
		for (i=0; i<9; i++) {
			win->get(backup, centerx-96-30*abs(i%4-2) - s->get_xleft(),
				 centery+100 - s->get_yabove());
			sman->paint_shape(centerx-96-30*abs(i%4-2), centery+100, s);
			win->show();
			win->put(backup, centerx-96-30*abs(i%4-2) - s->get_xleft(),
				 centery+100 - s->get_yabove());
			WAITDELAY(1); //just to catch events
		}

		// screen comes back up (sh. 0x1D)
		sman->paint_shape(centerx+12, centery-22, shapes.get_shape(0x1D,0));
		win->show();
		FORGET_OBJECT(backup);

		// "Something is obviously amiss"
		sman->paint_shape(centerx, centery+50, shapes.get_shape(0x15,0));
		win->show();
		WAITDELAY(4000);

		// TODO: misaligned?

		// scroll right (sh. 0x06: map to the right of the monitor)
		for(i=0;i<194;i+=4) {
			sman->paint_shape(centerx-i,centery, shapes.get_shape(0x07,0));
			sman->paint_shape(centerx-i,centery, shapes.get_shape(0x09,0));
			sman->paint_shape(centerx-i,centery, shapes.get_shape(0x08,0));
			sman->paint_shape(centerx-i,centery, shapes.get_shape(0x0A,0));
			sman->paint_shape(centerx-i+12, centery-22, 
					  shapes.get_shape(0x1D,0));
			sman->paint_shape(topx+320-i,topy, shapes.get_shape(0x06,0));

			if (i > 20 && i < 175) {
				// "It has been a long time..."
				sman->paint_shape(centerx, centery+50, 
						  shapes.get_shape(0x16,0));
			}
			win->show();
			WAITDELAY(30);
		}

		// scroll down (sh. 0x0B: mouse + orb of moons, below map)
		for(i=0;i<=50;i+=2) {
			sman->paint_shape(centerx-194, centery-i,
					  shapes.get_shape(0x07,0));
			sman->paint_shape(centerx-194, centery-i,
					  shapes.get_shape(0x09,0));
			sman->paint_shape(centerx-194, centery-i,
					  shapes.get_shape(0x08,0));
			sman->paint_shape(centerx-194, centery-i,
					  shapes.get_shape(0x0A,0));
			sman->paint_shape(centerx-194+12, centery-22-i,
					  shapes.get_shape(0x1D,0));
			sman->paint_shape(topx+319-194, topy-i,
					  shapes.get_shape(0x06,0));
			sman->paint_shape(topx+319, topy+199-i,
					  shapes.get_shape(0x0B,0));
			// "The mystical Orb beckons you"
			sman->paint_shape(centerx, topy, shapes.get_shape(0x17,0));

			win->show();
			WAITDELAYCYCLE2(50);
		}
		WAITDELAYCYCLE2(1000);

		sman->paint_shape(centerx-194, centery-50, shapes.get_shape(0x07,0));
		sman->paint_shape(centerx-194, centery-50, shapes.get_shape(0x09,0));
		sman->paint_shape(centerx-194, centery-50, shapes.get_shape(0x08,0));
		sman->paint_shape(centerx-194, centery-50, shapes.get_shape(0x0A,0));
		sman->paint_shape(centerx-182, centery-72, shapes.get_shape(0x1D,0));
		sman->paint_shape(topx+319-194, topy-50, shapes.get_shape(0x06,0));
		sman->paint_shape(topx+319, topy+149, shapes.get_shape(0x0B,0));
		// "It has opened gateways to Britannia in the past"
		sman->paint_shape(centerx, topy, shapes.get_shape(0x18,0));
		win->show();

		WAITDELAYCYCLE2(3000);
	}
	catch(const UserBreakException &x)
	{
		// Waste disposal
		FORGET_OBJECT(backup);
		
		throw x;
	}
}

void BG_Game::scene_moongate()
{
	// sh. 0x02, 0x03, 0x04, 0x05: various parts of moongate
	// sh. 0x00, 0x01: parting trees before clearing

	int i;
		
	gwin->clear_screen();
    pal->load("<STATIC>/intropal.dat",5);
	pal->apply();

	// "Behind your house is the circle of stones"
	sman->paint_shape(centerx, centery+50, shapes.get_shape(0x19,0));
	win->show();

	// TODO: fade in screen while text is onscreen

	WAITDELAY(3000);

	// TODO: misaligned?
	for(i=120;i>=-170;i-=6) {
		sman->paint_shape(centerx+1,centery+1,
				  shapes.get_shape(0x02,0));
		sman->paint_shape(centerx+1,centery+1,
				  shapes.get_shape(0x03,0));
		sman->paint_shape(centerx+1,centery+1,
				  shapes.get_shape(0x04,0));
		sman->paint_shape(centerx+1,centery+1,
				  shapes.get_shape(0x05,0));

		sman->paint_shape(centerx+i,topy, shapes.get_shape(0x00,0));
		sman->paint_shape(centerx-i,topy, shapes.get_shape(0x01,0));

		// "Why is a moongate already there?"
		sman->paint_shape(centerx,centery+50,shapes.get_shape(0x1A,0));
		win->show();
		WAITDELAYCYCLE3(50);
	}

	sman->paint_shape(centerx+1, centery+1, shapes.get_shape(0x02,0));
	sman->paint_shape(centerx+1, centery+1, shapes.get_shape(0x03,0));
	sman->paint_shape(centerx+1, centery+1, shapes.get_shape(0x04,0));
	sman->paint_shape(centerx+1, centery+1, shapes.get_shape(0x05,0));

	// "You have but one path to the answer"
	sman->paint_shape(centerx, centery+50, shapes.get_shape(0x1C,0));
	win->show();

	// TODO: zoom (run) into moongate

	WAITDELAYCYCLE3(3000);

	// Wait till the music finished playing
	while(Audio::get_ptr()->is_track_playing(home_song_midi))
		WAITDELAYCYCLE3(50);
}

void BG_Game::top_menu()
{
	play_midi(menu_midi, true);
		
	sman->paint_shape(topx,topy,menushapes.get_shape(0x2,0));
	pal->load("<STATIC>/intropal.dat",0);
	pal->fade_in(60);	
}

void BG_Game::show_journey_failed()
{
	pal->fade_out(50);
	sman->paint_shape(topx,topy,menushapes.get_shape(0x2,0));
	journey_failed_text();
}
	
void BG_Game::end_game(bool success) 
{
	int	i, j, next = 0;
	int	starty;
	int	centerx = gwin->get_width() /2;
	int 	topy = (gwin->get_height()-200)/2;
	Font *font = fontManager.get_font("MENU_FONT");

	if(!success) {
		TextScroller text(MAINSHP_FLX, 0x15,
				  font,0);
		gwin->clear_screen();
		pal->load("<STATIC>/intropal.dat",0);
		for(uint32 i=0; i<text.get_count(); i++) {
			text.show_line(gwin, topx, topx+320, topy+20+i*12, i);
		}
		
		pal->fade_in(c_fade_in_time);
		wait_delay(10000);
		pal->fade_out(c_fade_out_time);
		
		gwin->clear_screen();
		font->center_text(ibuf, centerx, centery-10, "The end of Ultima VII");
		pal->fade_in(c_fade_in_time);
		wait_delay(4000);
	    pal->fade_out(c_fade_out_time);
		
		gwin->clear_screen();
		font->center_text(ibuf, centerx, centery-10, "The end of Britannia as you know it!");
		pal->fade_in(c_fade_in_time);
		wait_delay(4000);
		pal->fade_out(c_fade_out_time);
		gwin->clear_screen(true);
		return;
	}

	// Audio buffer
	size_t	size;
	uint8	*buffer;
	
	// Fli Buffers
	size_t	flisize;
	char	*fli_b[3];

	// Clear screen
	gwin->clear_screen(true);

	U7object flic1(ENDGAME, 0);
	U7object flic2(ENDGAME, 1);
	U7object flic3(ENDGAME, 2);
	U7object speech1(ENDGAME, 7);
	U7object speech2(ENDGAME, 8);
	U7object speech3(ENDGAME, 9);

	/* There seems to be something wrong with the shapes. Needs investigating
	U7object shapes(ENDGAME, 10);
	shapes.retrieve("endgame.shp");
	Shape_file sf("endgame.shp");
	int x = get_width()/2-160;
	int y = get_height()/2-100;
	cout << "Shape in Endgame.dat has " << sf.get_num_frames() << endl;
	*/

	fli_b[0] = flic1.retrieve(flisize);
	playfli fli1(fli_b[0]+8, flisize-8);

	fli_b[1] = flic2.retrieve(flisize);
	playfli fli2(fli_b[1]+8, flisize-8);

	fli_b[2] = flic3.retrieve(flisize);
	playfli fli3(fli_b[2]+8, flisize-8);

	buffer = (uint8 *) speech1.retrieve(size);
	
	fli1.play(win, 0, 0, 0);
	
	// Start endgame music.
	Audio *audio = Audio::get_ptr();
	int music_offset = 0;
	if (audio) {
		MyMidiPlayer *midi = audio->get_midi();
		if (midi) {
			midi->load_patches(true);
			if (midi->is_fm_synth()) music_offset = 2;
		}
		audio->start_music(ENDSCORE_XMI,1+music_offset,false);
	}
	
	// A little hack
	bool do_break = false;
	do {

		for (i = 0; i < 240; i++)
		{
			next = fli1.play(win, 0, 1, next);
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;
		
		for (i = 1; i < 150; i++)
		{
			next = fli1.play(win, i, i+1, next);
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;

		if (audio) audio->play (buffer+8, size-8, false);
		FORGET_ARRAY(buffer);
		Font *endfont2 = fontManager.get_font("END2_FONT");
		Font *endfont3 = fontManager.get_font("END3_FONT");
		Font *normal = fontManager.get_font("NORMAL_FONT");

		const char 	*message = "No. You cannot do that! You must not!";
		int	height = topy+200 - endfont2->get_text_height()*2;
		int	width = (gwin->get_width() - endfont2->get_text_width(message)) / 2;

		for (i = 150; i < 204; i++)
		{
			next = fli1.play(win, i, i, next);
			endfont2->draw_text(ibuf, width, height, message);
			
			win->show();
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;

		// Set new music
		if (audio) audio->start_music(ENDSCORE_XMI,2+music_offset,false);

		// Set speech
		
		buffer = (uint8 *) speech2.retrieve(size);
		if (audio) audio->play (buffer+8, size-8, false);
		FORGET_ARRAY(buffer);

		message = "Damn you Avatar!  Damn you!";
		width = (gwin->get_width() - endfont2->get_text_width(message)) / 2;

		for (i = 0; i < 100; i++)
		{
			next = fli2.play(win, i, i, next);
			endfont2->draw_text(ibuf, width, height, message);
			
			win->show();
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;

		Palette *pal = fli2.get_palette();
		next = SDL_GetTicks();
		for (i = 1000 + next; next < i; next += 10)
		{
			// Speed related frame skipping detection
			int skip_frame = Game_window::get_instance()->get_frame_skipping() && SDL_GetTicks() >= next;
			while (SDL_GetTicks() < next)
				;
			if (!skip_frame)
			{
				pal->set_brightness ((i - next) / 10);
				pal->apply();
			}
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;

		pal->set_brightness(80);	// Set readable brightness
		// Text message 1

		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);

		// Paint text
		message = "The Black Gate is destroyed.";
		width = (gwin->get_width() - normal->get_text_width(message)) / 2;
		height = (gwin->get_height() - normal->get_text_height()) / 2;
		
		normal->draw_text (ibuf, width, height, message);

		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for 3 seconds
		for (i = 0; i < 30; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);

		
		// Now the second text message


		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);

		// Paint text
		message = "The Guardian has been stopped.";
		width = (gwin->get_width() - normal->get_text_width(message)) / 2;

		normal->draw_text (ibuf, width, height, message);

		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for approx 3 seonds
		for (i = 0; i < 30; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);

		next = fli3.play(win, 0, 0, next);
		pal = fli3.get_palette();
		next = SDL_GetTicks();
		for (i = 1000 + next; next < i; next += 10)
		{
			// Speed related frame skipping detection
			int skip_frame = Game_window::get_instance()->get_frame_skipping() && SDL_GetTicks() >= next;
			while (SDL_GetTicks() < next)
				;
			if (!skip_frame)
			{
				pal->set_brightness (100 - (i-next) / 10);
				pal->apply();
			}
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;
		
		buffer = (uint8 *) speech3.retrieve(size);
		if (audio) audio->play (buffer+8, size-8, false);
		FORGET_ARRAY(buffer);

		playfli::fliinfo finfo;
		fli3.info (&finfo);
		
		int	m;
		const char *txt_screen0[] = {
			"Avatar! You think you have won>",
			"Think again! You are unable to",
			"leave britannia, whereas I am free",
			"to enter other worlds",
			"Perhaps your puny Earth shall be",
			"my NEXT target!."
		};

		starty = (gwin->get_height() - endfont3->get_text_height()*8)/2;

		next = SDL_GetTicks();
		for (i = next+28000; i > next; )
		{
			for (j = 0; j < finfo.frames; j++)
			{
				next = fli3.play(win, j, j, next);
				for(m=0; m<6; m++)
					endfont3->center_text(ibuf, centerx, starty+endfont3->get_text_height()*m, txt_screen0[m]);

				win->show ();
				if (wait_delay (10)) { do_break = true; break; }
			}
		}
		if (do_break) break;

		
		next = SDL_GetTicks();
		for (i = 1000 + next; next < i; next += 10)
		{
			// Speed related frame skipping detection
			int skip_frame = Game_window::get_instance()->get_frame_skipping() && SDL_GetTicks() >= next;
			while (SDL_GetTicks() < next)
				;
			if (!skip_frame)
			{
				pal->set_brightness ((i - next) / 10);
				pal->apply();
			}
			if (wait_delay (0)) { do_break = true; break; }
		}
		if (do_break) break;

		// Text Screen 1

		pal->set_brightness(80);	// Set readable brightness
		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);


		const char *txt_screen1[] = {
			"In the months following the climactic",
			"battle at The Black Gate, Britannia",
			"is set upon the long road to recovery",
			"from its various plights.",
			" ",
			"Upon your return to Britain,",
			"Lord British decreed that",
			"The Fellowship be outlawed",
			"and all of the branches were",
			"soon destroyed."
		};

		starty = (gwin->get_height() - normal->get_text_height()*10)/2;
		
		for(i=0; i<10; i++)
			normal->draw_text (ibuf, centerx-normal->get_text_width(txt_screen1[i])/2, starty+normal->get_text_height()*i, txt_screen1[i]);

		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for 20 seonds (only 10 at the moment)
		for (i = 0; i < 100; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);

		if (wait_delay (10)) { do_break = true; break; }
		if (do_break) break;

		// Text Screen 2

		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);

		const char *txt_screen2[] = {
			"The frustration you feel at having been",
			"stranded in Britannia is somewhat",
			"alleviated by the satisfaction that you",
			"solved the gruesome murders committed",
			"by The Fellowship and even avenged the",
			"death of Spark's father."
		};

		starty = (gwin->get_height() - normal->get_text_height()*6)/2;
		
		for(i=0; i<6; i++)
			normal->draw_text (ibuf, centerx-normal->get_text_width(txt_screen2[i])/2, starty+normal->get_text_height()*i, txt_screen2[i]);


		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for 20 seonds (only 8 at the moment)
		for (i = 0; i < 80; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);

		if (wait_delay (10)) break;

		// Text Screen 3 

		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);

		const char *txt_screen3[] = {
			"And although you are, at the moment,",
			"helpless to do anything about",
			"The Guardian's final threat,",
			"another thought nags at you...",
			"what became of Batlin, the fiend",
			"who got away?"
		};

		starty = (gwin->get_height() - normal->get_text_height()*6)/2;
		
		for(i=0; i<6; i++)
			normal->draw_text (ibuf, centerx-normal->get_text_width(txt_screen3[i])/2, starty+normal->get_text_height()*i, txt_screen3[i]);

		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for 20 seonds (only 8 at the moment)
		for (i = 0; i < 80; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);

		if (wait_delay (10)) break;

		// Text Screen 4

		// Paint backgound black
		win->fill8(0,gwin->get_width(),gwin->get_height(),0,0);

		const char *txt_screen4[] = {
			"That is another story...", 
			"one that will take you",
			"to a place called",
			"The Serpent Isle..."
		};

		starty = (gwin->get_height() - normal->get_text_height()*4)/2;
		
		for(i=0; i<4; i++)
			normal->draw_text (ibuf, centerx-normal->get_text_width(txt_screen4[i])/2, starty+normal->get_text_height()*i, txt_screen4[i]);


		// Fade in for 1 sec (50 cycles)
		pal->fade (50, 1, 0);

		// Display text for 10 seonds (only 5 at the moment)
		for (i = 0; i < 50; i++) if (wait_delay (100)) { do_break = true; break; }
		if (do_break) break;

		// Fade out for 1 sec (50 cycles)
		pal->fade (50, 0, 0);
	}
	while (0);

	if (audio) {
		audio->stop_music();
		MyMidiPlayer *midi = audio->get_midi();
		if (midi) midi->load_patches(false);
	}

	gwin->clear_screen(true);
	FORGET_ARRAY(buffer);
	FORGET_ARRAY(fli_b[0]);
	FORGET_ARRAY(fli_b[1]);
	FORGET_ARRAY(fli_b[2]);
}

void BG_Game::show_quotes()
{
	play_midi(quotes_midi);
	TextScroller quotes(MAINSHP_FLX, 0x10, 
			fontManager.get_font("MENU_FONT"),
			menushapes.extract_shape(0x14)
			);
	gwin->get_pal()->load("<STATIC>/intropal.dat",6);
	quotes.run(gwin);
	gwin->get_pal()->load("<STATIC>/intropal.dat",0);
}

void BG_Game::show_credits()
{
	
	play_midi(credits_midi);
	TextScroller credits(MAINSHP_FLX, 0x0E, 
			fontManager.get_font("MENU_FONT"),
			menushapes.extract_shape(0x14)
			);
	gwin->get_pal()->load("<STATIC>/intropal.dat",6);
	if(credits.run(gwin)) {	// Watched through the entire sequence?
		std::ofstream quotesflg;
		U7open(quotesflg, "<SAVEGAME>/quotes.flg");
		quotesflg.close();
	}
		
	gwin->get_pal()->load("<STATIC>/intropal.dat",0);
}

bool BG_Game::new_game(Vga_file &shapes)
{
	SDL_EnableUNICODE(1);

	int menuy = topy+110;
	Font *font = fontManager.get_font("MENU_FONT");

	// Need to know if SI is installed
	bool si_installed = SI_Game::is_installed();

	U7object faces_u7o("<DATA>/exult_bg.flx", EXULT_BG_FLX_MR_INTRO_SHP);
	size_t shapesize;
	char *shape_buf = faces_u7o.retrieve(shapesize);
	BufferDataSource faces_ds(shape_buf, shapesize);
	Shape_file faces_shape(&faces_ds);

	const int max_name_len = 16;
	char npc_name[max_name_len+1];
	char disp_name[max_name_len+2];
	npc_name[0] = 0;
	int sex = 0;
	int selected = 0;
	int num_choices = 4;
	gwin->get_pal()->load("<STATIC>/intropal.dat",6);
	SDL_Event event;
	bool editing = true;
	bool redraw = true;
	bool ok = true;
	do
	{
		if (redraw)
		{
			win->fill8(0,gwin->get_width(),90,0,menuy);
			sman->paint_shape(topx+10,menuy+10,shapes.get_shape(0xC, selected==0?1:0));

			Shape_frame *sex_shape = shapes.get_shape(0xA, selected==1?1:0);
			sman->paint_shape(topx+10,menuy+25,sex_shape);
			int sex_width = sex_shape->get_width()+10;
			if (sex_width > 35) sex_width += 25; 
			else sex_width = 60;

			if (si_installed)
			{
				sman->paint_shape(topx+sex_width,menuy+25,shapes.get_shape(0xB,sex%2));

				if (sex >= 2)
				{
					sman->paint_shape(topx+250,menuy+10,faces_shape.get_frame(7-sex));
				}
				else
					sman->paint_shape(topx+250,menuy+10,shapes.get_shape(sex,0));
			}
			else
			{
				sman->paint_shape(topx+sex_width,menuy+25,shapes.get_shape(0xB,sex));
				sman->paint_shape(topx+250,menuy+10,shapes.get_shape(sex,0));
			}

			sman->paint_shape(topx+10,topy+180,shapes.get_shape(0x8,selected==2?1:0));
			sman->paint_shape(centerx+10,topy+180,shapes.get_shape(0x7,selected==3?1:0));
			if(selected==0)
				snprintf(disp_name, max_name_len+2, "%s_", npc_name);
			else
				snprintf(disp_name, max_name_len+2, "%s", npc_name);
			font->draw_text(ibuf, topx+60, menuy+10, disp_name);
			gwin->get_pal()->apply();
			redraw = false;
		}
		SDL_WaitEvent(&event);
		if(event.type==SDL_KEYDOWN)
		{
			redraw = true;
			switch(event.key.keysym.sym)
			{
			case SDLK_SPACE:
				if(selected==0)
				{
					int len = strlen(npc_name);
					if(len<max_name_len)
					{
						npc_name[len] = ' ';
						npc_name[len+1] = 0;
					}
				}
				else if(selected==1)
				{
					if (si_installed)
					{
						sex++;
						if (sex >= 8) sex = 0;
					}
					else
						sex = !sex;
				}
				else if(selected==2)
				{
					editing=false;
					ok = true;
				}
				else if(selected==3)
				{
					editing = false;
					ok = false;
				}
				break;
			case SDLK_LEFT:
				if(selected==1)
				{
					if (si_installed)
					{
						sex--;
						if (sex < 0) sex = 7;
					}
					else
						sex = !sex;
				}
				break;

			case SDLK_RIGHT:
				if(selected==1)
				{
					if (si_installed)
					{
						sex++;
						if (sex >= 8) sex = 0;
					}
					else
						sex = !sex;
				}
				break;
			case SDLK_ESCAPE:
				editing = false;
				ok = false;
				break;
			case SDLK_TAB:
			case SDLK_DOWN:
				++selected;
				if(selected==num_choices)
					selected = 0;
				break;
			case SDLK_UP:
				--selected;
				if(selected<0)
					selected = num_choices-1;
				break;
			case SDLK_RETURN:
				if(selected<2) 
					++selected;
				else if(selected==2)
				{
					editing=false;
					ok = true;
				}
				else
				{
					editing = false;
					ok = false;
				}
				break;
			case SDLK_BACKSPACE:
				if(selected==0)
				{
					if(strlen(npc_name)>0)
						npc_name[strlen(npc_name)-1] = 0;
				}
				break;
			default:
				{
					if (selected == 0) // on the text input field?
					{
						int len = strlen(npc_name);
						char chr = 0;

						if ((event.key.keysym.unicode & 0xFF80) == 0)
							chr = event.key.keysym.unicode & 0x7F;

						if (chr >= ' ' && len < max_name_len)
						{
							npc_name[len] = chr;
							npc_name[len+1] = 0;
						}
					}
					else
					{
						redraw = false;
					}
				}
				break;
			}
		}
	}
	while(editing);

	FORGET_ARRAY(shape_buf);

	if(ok)
	{
#ifdef DEBUG
		std::cout << "Skin is: " << (3-(sex/2)) << " Sex is: " << (sex%2) << std::endl;
#endif
		set_avskin(3-(sex/2));
		set_avname (npc_name);
		set_avsex (sex%2);
		gwin->get_pal()->fade_out(c_fade_out_time);
		gwin->clear_screen(true);	
		ok =gwin->init_gamedat(true);
	}
	win->fill8(0,gwin->get_width(),90,0,menuy);

	SDL_EnableUNICODE(0);

	return ok;
}

bool BG_Game::is_installed()
{
	std::string buf("<BLACKGATE_STATIC>/endgame.dat");
	bool foundbg = U7exists(buf);
	bool foundbgflx = U7exists("<DATA>/exult_bg.flx");

	if (foundbg)
		std::cout << "Black Gate   : found" << std::endl;
	else
		std::cout << "Black Gate   : not found (" 
				  << get_system_path(buf) << ")" << std::endl;

	if (foundbgflx)
		std::cout << "exult_bg.flx : found" << std::endl;
	else
		std::cout << "exult_bg.flx : not found (" 
				  << get_system_path("<DATA>/exult_bg.flx")
				  << ")" << std::endl;

	return (foundbg && foundbgflx);
}