/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

/*
 * This code is based on original Tony Tough source code
 *
 * Copyright (c) 1997-2003 Nayma Software
 */

#include "common/textconsole.h"
#include "tony/mpal/mpalutils.h"
#include "tony/font.h"
#include "tony/input.h"
#include "tony/inventory.h"
#include "tony/loc.h"
#include "tony/tony.h"

namespace Tony {

/****************************************************************************\
*       RMFont Methods
\****************************************************************************/

RMFont::RMFont() {
	m_letter = NULL;
}

RMFont::~RMFont() {
	Unload();
}


/**
 * Dumps a font to a buffer
 * @param buf					Buffer for font contents
 * @param nChars				Number of characters (max 256)
 * @param dimx					X dimension in pixels
 * @param dimy					Y dimension in pixels
*
\****************************************************************************/

void DumpFontBMP(const char *filename, const byte *buf, int nChars, int charX, int charY, byte *pal) {
	error("DumpFontBMP not supported in ScummVM");
}


void RMFont::Load(const byte *buf, int nChars, int dimx, int dimy, uint32 palResID) {
	m_letter = new RMGfxSourceBuffer8RLEByte[nChars];

#if 0
	if (nChars == 112 && palResID == RES_F_PAL) {
		// Font parla
		DumpFontBMP("font_parla.bmp", buf, nChars, dimx, dimy, RMRes(palResID));
	} else if (nChars == 102 && palResID == RES_F_PAL) {
		// Font macc
		DumpFontBMP("font_macc.bmp", buf, nChars, dimx, dimy, RMRes(palResID));
	} else if (nChars == 85 && palResID == RES_F_PAL) {
		// Font obj
		DumpFontBMP("font_obj.bmp", buf, nChars, dimx, dimy, RMRes(palResID));
	} else if (nChars == 112 && palResID == RES_F_CPAL) {
		// Font credits
		DumpFontBMP("font_credits.bmp", buf, nChars, dimx, dimy, RMRes(palResID));
	}
#endif

	// Initialisation the fonts
	for (int i = 0; i < nChars; i++) {
		// Initialise the buffer with the letters
		m_letter[i].Init(buf + i * (dimx * dimy + 8) + 8, dimx, dimy);
		m_letter[i].LoadPaletteWA(palResID);
	}

	m_fontDimx = dimx;
	m_fontDimy = dimy;

	nLetters = nChars;
}

void RMFont::Load(uint32 resID, int nChars, int dimx, int dimy, uint32 palResID) {
	RMRes res(resID);

	if ((int)res.Size() < nChars * (dimy * dimx + 8))
		nChars = res.Size() / (dimy * dimx + 8);

	Load(res, nChars, dimx, dimy, palResID);
}

void RMFont::Unload(void) {
	if (m_letter != NULL) {
		delete[] m_letter;
		m_letter = NULL;
	}
}


RMGfxPrimitive *RMFont::MakeLetterPrimitive(byte bChar, int &nLength) {
	RMFontPrimitive *prim;
	int nLett;

	// Convert from character to glyph index
	nLett = ConvertToLetter(bChar);
	assert(nLett < nLetters);

	// Create primitive font
	prim = new RMFontPrimitive(this);
	prim->m_nChar = nLett;

	// Get the length of the character in pixels
	nLength = LetterLength(bChar);

	return prim;
}

void RMFont::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim2) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	RMFontPrimitive *prim = (RMFontPrimitive *)prim2;

	CORO_BEGIN_CODE(_ctx);

	// Call the draw method of the letter assigned to the primitive
	if (prim->m_nChar != -1)
		CORO_INVOKE_2(m_letter[prim->m_nChar].Draw, bigBuf, prim);

	CORO_END_CODE;
}

void RMFont::Close(void) {
	Unload();
}

int RMFont::StringLen(const RMString &text) {
	int len, i;

	len = 0;
	for (i = 0; i < text.Length() - 1; i++)
		len += LetterLength(text[i], text[i + 1]);
	len += LetterLength(text[i]);

	return len;
}

int RMFont::StringLen(char bChar, char bNext) {
	return LetterLength(bChar, bNext);
}

/****************************************************************************\
*       Metodi di RMFontColor
\****************************************************************************/

RMFontColor::RMFontColor() : RMFont() {
	m_r = m_g = m_b = 255;
}

RMFontColor::~RMFontColor() {

}

void RMFontColor::SetBaseColor(byte r1, byte g1, byte b1) {
	int r = (int)r1 << 16;
	int g = (int)g1 << 16;
	int b = (int)b1 << 16;

	int rstep = r / 14;
	int gstep = g / 14;
	int bstep = b / 14;

	int i;
	byte pal[768 * 3];

	// Check if we are already on the right colour
	if (m_r == r1 && m_g == g1 && m_b == b1)
		return;

	m_r = r1;
	m_g = g1;
	m_b = b1;

	// Constructs a new paletter for the font
	for (i = 1; i < 16; i++) {
		pal[i * 3 + 0] = r >> 16;
		pal[i * 3 + 1] = g >> 16;
		pal[i * 3 + 2] = b >> 16;

		r -= rstep;
		g -= gstep;
		b -= bstep;
	}

	pal[15 * 3 + 0] += 8;
	pal[15 * 3 + 1] += 8;
	pal[15 * 3 + 2] += 8;

	// Puts in all the letters
	for (i = 0; i < nLetters; i++)
		m_letter[i].LoadPaletteWA(pal);
}


/***************************************************************************\
*       RMFontParla Methods
\****************************************************************************/

void RMFontParla::Init(void) {
	int i;

	// bernie: Number of characters in the font
	int nchars =
	    112    // base
	    + 18    // polish
	    + 66    // russian
	    + 30    // czech
	    +  8    // french
	    +  5;   // deutsch

	Load(RES_F_PARL, nchars, 20, 20);

	// Initialise the f**king table
	lDefault = 13;
	hDefault = 18;
	Common::fill(&l2Table[0][0], &l2Table[0][0] + (256 * 256), '\0');
	for (i = 0; i < 256; i++) {
		cTable[i] = -1;
		lTable[i] = lDefault;
	}

	for (i = 0; i < 26; i++)
		cTable['A' + i] = i + 0;

	for (i = 0; i < 26; i++)
		cTable['a' + i] = i + 26;

	for (i = 0; i < 10; i++)
		cTable['0' + i] = i + 52;

	cTable[';'] = 62;
	cTable[','] = 63;
	cTable['.'] = 64;
	cTable[':'] = 65;
	cTable['-'] = 66;
	cTable['_'] = 67;
	cTable['+'] = 68;
	cTable['<'] = 69;
	cTable['>'] = 70;
	cTable['!'] = 71;
	//cTable['!'] = 72;  Exclamation countdown
	cTable['?'] = 73;
	//cTable['?'] = 74;  Question down
	cTable['('] = 75;
	cTable[')'] = 76;
	cTable['\"'] = 77;
	cTable['^'] = 77;
	cTable['/'] = 78;
	cTable[(byte)'Ј'] = 79;
	cTable['$'] = 80;
	cTable['%'] = 81;
	cTable['&'] = 82;
	cTable['='] = 83;
	cTable[(byte)'«'] = 84;
	cTable[(byte)'»'] = 85;
	cTable[(byte)'®'] = 86;
	cTable[(byte)'©'] = 87;
	cTable[(byte)'а'] = 88;
	cTable[(byte)'и'] = 89;
	cTable[(byte)'й'] = 89;
	cTable[(byte)'м'] = 90;
	cTable[(byte)'т'] = 91;
	cTable[(byte)'щ'] = 92;
	cTable[(byte)'д'] = 93;
	cTable[(byte)'л'] = 94;
	cTable[(byte)'п'] = 95;
	cTable[(byte)'ц'] = 96;
	cTable[(byte)'ь'] = 97;
	cTable[(byte)'я'] = 98;
	cTable[(byte)'е'] = 99;
	//cTable[' '] = 100;  e circlet
	//cTable[' '] = 101;  i circlet
	//cTable[' '] = 102;  o circlet
	//cTable[' '] = 103;  u circlet
	cTable[(byte)'с'] = 104;
	cTable[(byte)'С'] = 105;
	cTable[(byte)'з'] = 106;
	cTable[(byte)'ж'] = 107;
	cTable[(byte)'Ж'] = 108;
	cTable[(byte)'ш'] = 109;
	//cTable['ѓ'] = 110;  integral
	cTable['\''] = 111;

	// Little lengths
	lTable[' '] = 9;
	lTable['\''] = 5;
	lTable['.'] = 5;
	lTable[','] = 5;
	lTable[':'] = 5;
	lTable[';'] = 5;
	lTable['!'] = 5;
	lTable['?'] = 10;
	lTable['\"'] = 5;
	lTable['^'] = 5;
	lTable['('] = 7;
	lTable[')'] = 7;

	lTable['4'] = 10;

	lTable['a'] = 14;
	lTable['b'] = 15;
	lTable['c'] = 12;
	lTable['e'] = 12;
	lTable['i'] = 6;
	lTable['м'] = 6;
	lTable['l'] = 5;
	lTable['m'] = 16;
	lTable['n'] = 12;
	lTable['o'] = 11;
	lTable['p'] = 11;
	lTable['s'] = 12;
	lTable['u'] = 12;

	lTable['E'] = 10;
	lTable['F'] = 11;

	if (_vm->getLanguage() == Common::PL_POL) {	
		// Polish characters
		//AaCcEeLlNnOoSsZzZz
		//Ґ№ЖжКкЈіСсУуЊњЇїЏџ

		cTable[(byte)'Ґ'] = 112;
		cTable[(byte)'№'] = 113;
		cTable[(byte)'Ж'] = 114;
		cTable[(byte)'ж'] = 115;
		cTable[(byte)'К'] = 116;
		cTable[(byte)'к'] = 117;
		cTable[(byte)'Ј'] = 118;
		cTable[(byte)'і'] = 119;
		cTable[(byte)'С'] = 120;
		cTable[(byte)'с'] = 121;
		cTable[(byte)'У'] = 122;
		cTable[(byte)'у'] = 123;
		cTable[(byte)'Њ'] = 124;
		cTable[(byte)'њ'] = 125;
		cTable[(byte)'Ї'] = 126;
		cTable[(byte)'ї'] = 127;
		cTable[(byte)'Џ'] = 128;
		cTable[(byte)'џ'] = 129;

		lTable[(byte)'Ґ'] = 14;
		lTable[(byte)'№'] = 16;
		lTable[(byte)'Ж'] = 12;
		lTable[(byte)'ж'] = 12;
		lTable[(byte)'К'] = 11;
		lTable[(byte)'к'] = 12;
		lTable[(byte)'Ј'] = 14;
		lTable[(byte)'і'] = 9;
		lTable[(byte)'С'] = 10;
		lTable[(byte)'с'] = 11;
		lTable[(byte)'У'] = 13;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'Њ'] = 12;
		lTable[(byte)'њ'] = 12;
		lTable[(byte)'Ї'] = 13;
		lTable[(byte)'ї'] = 13;
		lTable[(byte)'Џ'] = 14;
		lTable[(byte)'џ'] = 13;

	} else if (_vm->getLanguage() == Common::RU_RUS) {

		// Russian Characters
		// WARNING: The Russian font uses many of the ISO-Latin-1 font,
		// allowing for further translations. To support Tonyin other langauges, 
		// these mappings could be used as a basis

		cTable[(byte)'А'] = 130;
		cTable[(byte)'Б'] = 131;
		cTable[(byte)'В'] = 132;
		cTable[(byte)'Г'] = 133;
		cTable[(byte)'Д'] = 134;
		cTable[(byte)'Е'] = 135;
		cTable[(byte)'Ё'] = 136;
		cTable[(byte)'Ж'] = 137;
		cTable[(byte)'З'] = 138;
		cTable[(byte)'И'] = 139;
		cTable[(byte)'Й'] = 140;
		cTable[(byte)'К'] = 141;
		cTable[(byte)'Л'] = 142;
		cTable[(byte)'М'] = 143;
		cTable[(byte)'Н'] = 144;
		cTable[(byte)'О'] = 145;
		cTable[(byte)'П'] = 146;
		cTable[(byte)'Р'] = 147;
		cTable[(byte)'С'] = 148;
		cTable[(byte)'Т'] = 149;
		cTable[(byte)'У'] = 150;
		cTable[(byte)'Ф'] = 151;
		cTable[(byte)'Х'] = 152;
		cTable[(byte)'Ц'] = 153;
		cTable[(byte)'Ч'] = 154;
		cTable[(byte)'Ш'] = 155;
		cTable[(byte)'Щ'] = 156;
		cTable[(byte)'Ь'] = 157;
		cTable[(byte)'Ъ'] = 158;
		cTable[(byte)'Ы'] = 159;
		cTable[(byte)'Э'] = 160;
		cTable[(byte)'Ю'] = 161;
		cTable[(byte)'Я'] = 162;

		cTable[(byte)'а'] = 163;
		cTable[(byte)'б'] = 164;
		cTable[(byte)'в'] = 165;
		cTable[(byte)'г'] = 166;
		cTable[(byte)'д'] = 167;
		cTable[(byte)'е'] = 168;
		cTable[(byte)'ё'] = 169;
		cTable[(byte)'ж'] = 170;
		cTable[(byte)'з'] = 171;
		cTable[(byte)'и'] = 172;
		cTable[(byte)'й'] = 173;
		cTable[(byte)'к'] = 174;
		cTable[(byte)'л'] = 175;
		cTable[(byte)'м'] = 176;
		cTable[(byte)'н'] = 177;
		cTable[(byte)'о'] = 178;
		cTable[(byte)'п'] = 179;
		cTable[(byte)'р'] = 180;
		cTable[(byte)'с'] = 181;
		cTable[(byte)'т'] = 182;
		cTable[(byte)'у'] = 183;
		cTable[(byte)'ф'] = 184;
		cTable[(byte)'х'] = 185;
		cTable[(byte)'ц'] = 186;
		cTable[(byte)'ч'] = 187;
		cTable[(byte)'ш'] = 188;
		cTable[(byte)'щ'] = 189;
		cTable[(byte)'ь'] = 190;
		cTable[(byte)'ъ'] = 191;
		cTable[(byte)'ы'] = 192;
		cTable[(byte)'э'] = 193;
		cTable[(byte)'ю'] = 194;
		cTable[(byte)'я'] = 195;

		lTable[(byte)'А'] = 13;
		lTable[(byte)'Б'] = 15;
		lTable[(byte)'В'] = 15;
		lTable[(byte)'Г'] = 11;
		lTable[(byte)'Д'] = 15;
		lTable[(byte)'Е'] = 11;
		lTable[(byte)'Ё'] = 11;
		lTable[(byte)'Ж'] = 15;
		lTable[(byte)'З'] = 10;
		lTable[(byte)'И'] = 13;
		lTable[(byte)'Й'] = 13;
		lTable[(byte)'К'] = 12;
		lTable[(byte)'Л'] = 13;
		lTable[(byte)'М'] = 14;
		lTable[(byte)'Н'] = 14;
		lTable[(byte)'О'] = 13;
		lTable[(byte)'П'] = 11;
		lTable[(byte)'Р'] = 12;
		lTable[(byte)'С'] = 12;
		lTable[(byte)'Т'] = 18;
		lTable[(byte)'У'] = 11;
		lTable[(byte)'Ф'] = 13;
		lTable[(byte)'Х'] = 12;
		lTable[(byte)'Ц'] = 13;
		lTable[(byte)'Ч'] = 12;
		lTable[(byte)'Ш'] = 17;
		lTable[(byte)'Щ'] = 18;
		lTable[(byte)'Ь'] = 16;
		lTable[(byte)'Ъ'] = 18;
		lTable[(byte)'Ы'] = 19;
		lTable[(byte)'Э'] = 11;
		lTable[(byte)'Ю'] = 16;
		lTable[(byte)'Я'] = 14;

		lTable[(byte)'а'] = 14;
		lTable[(byte)'б'] = 15;
		lTable[(byte)'в'] = 10;
		lTable[(byte)'г'] = 12;
		lTable[(byte)'д'] = 13;
		lTable[(byte)'е'] = 12;
		lTable[(byte)'ё'] = 12;
		lTable[(byte)'ж'] = 12;
		lTable[(byte)'з'] = 10;
		lTable[(byte)'и'] = 10;
		lTable[(byte)'й'] = 10;
		lTable[(byte)'к'] = 11;
		lTable[(byte)'л'] = 12;
		lTable[(byte)'м'] = 12;
		lTable[(byte)'н'] = 12;
		lTable[(byte)'о'] = 12;
		lTable[(byte)'п'] = 10;
		lTable[(byte)'р'] = 11;
		lTable[(byte)'с'] = 10;
		lTable[(byte)'т'] = 14;
		lTable[(byte)'у'] =  8;
		lTable[(byte)'ф'] = 11;
		lTable[(byte)'х'] = 11;
		lTable[(byte)'ц'] = 12;
		lTable[(byte)'ч'] = 10;
		lTable[(byte)'ш'] = 15;
		lTable[(byte)'щ'] = 16;
		lTable[(byte)'ь'] = 14;
		lTable[(byte)'ъ'] = 16;
		lTable[(byte)'ы'] = 16;
		lTable[(byte)'э'] =  9;
		lTable[(byte)'ю'] = 15;
		lTable[(byte)'я'] = 14;

	} else if (_vm->getLanguage() == Common::CZ_CZE) {
		// Czech
		cTable[(byte)'М'] = 196;
		cTable[(byte)'Љ'] = 197;
		cTable[(byte)'И'] = 198;
		cTable[(byte)'Ш'] = 199;
		cTable[(byte)'Ћ'] = 200;
		cTable[(byte)'Э'] = 201;
		cTable[(byte)'Б'] = 202;
		cTable[(byte)'Н'] = 203;
		cTable[(byte)'Й'] = 204;
		cTable[(byte)'П'] = 205;
		cTable[(byte)'Ќ'] = 206;
		cTable[(byte)'Т'] = 207;
		cTable[(byte)'У'] = 208;
		cTable[(byte)'Щ'] = 209;
		cTable[(byte)'Ъ'] = 210;

		cTable[(byte)'м'] = 211;
		cTable[(byte)'љ'] = 212;
		cTable[(byte)'и'] = 213;
		cTable[(byte)'ш'] = 214;
		cTable[(byte)'ћ'] = 215;
		cTable[(byte)'э'] = 216;
		cTable[(byte)'б'] = 217;
		cTable[(byte)'н'] = 218;
		cTable[(byte)'й'] = 219;
		cTable[(byte)'п'] = 220;
		cTable[(byte)'ќ'] = 221;
		cTable[(byte)'т'] = 222;
		cTable[(byte)'у'] = 223;
		cTable[(byte)'щ'] = 224;
		cTable[(byte)'ъ'] = 225;

		lTable[(byte)'М'] = 11;
		lTable[(byte)'Љ'] = 12;
		lTable[(byte)'И'] = 12;
		lTable[(byte)'Ш'] = 14;
		lTable[(byte)'Ћ'] = 13;
		lTable[(byte)'Э'] = 11;
		lTable[(byte)'Б'] = 13;
		lTable[(byte)'Н'] = 11;
		lTable[(byte)'Й'] = 11;
		lTable[(byte)'П'] = 15;
		lTable[(byte)'Ќ'] = 19;
		lTable[(byte)'Т'] = 10;
		lTable[(byte)'У'] = 13;
		lTable[(byte)'Щ'] = 13;
		lTable[(byte)'Ъ'] = 13;

		lTable[(byte)'м'] = 12;
		lTable[(byte)'љ'] = 12;
		lTable[(byte)'и'] = 12;
		lTable[(byte)'ш'] = 12;
		lTable[(byte)'ћ'] = 13;
		lTable[(byte)'э'] = 11;
		lTable[(byte)'б'] = 15;
		lTable[(byte)'н'] = 7;
		lTable[(byte)'й'] = 12;
		lTable[(byte)'п'] = 17;
		lTable[(byte)'ќ'] = 16;
		lTable[(byte)'т'] = 11;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'щ'] = 13;
		lTable[(byte)'ъ'] = 13;

	} else if (_vm->getLanguage() == Common::FR_FRA) {	
		// French

		cTable[(byte)'в'] = 226;
		cTable[(byte)'й'] = 227;
		cTable[(byte)'к'] = 228;
		cTable[(byte)'о'] = 229;
		cTable[(byte)'щ'] = 230;
		cTable[(byte)'ы'] = 231;
		cTable[(byte)'ф'] = 232;
		cTable[(byte)'ц'] = 233;

		lTable[(byte)'в'] = 15;
		lTable[(byte)'й'] = 12;
		lTable[(byte)'к'] = 12;
		lTable[(byte)'о'] =  9;
		lTable[(byte)'щ'] = 13;
		lTable[(byte)'ы'] = 13;
		lTable[(byte)'ф'] = 11;
		lTable[(byte)'ц'] = 11;

	} else if (_vm->getLanguage() == Common::DE_DEU) {
		cTable[(byte)'Я'] = 234;
		// 'SS' = 235
		cTable[(byte)'Д'] = 236;
		cTable[(byte)'Ц'] = 237;
		cTable[(byte)'Ь'] = 238;

		lTable[(byte)'Я'] = 15;
	}
}


/***************************************************************************\
*       RMFontMacc Methods
\****************************************************************************/

void RMFontMacc::Init(void) {
	int i;

	// bernie: Number of characters in the font
	int nchars =
	    102    // base
	    + 18    // polish
	    + 66    // russian
	    + 30    // czech
	    +  8    // francais
	    +  5;   // deutsch


	Load(RES_F_MACC, nchars, 11, 16);

	// Default
	lDefault = 10;
	hDefault = 17;
	Common::fill(&l2Table[0][0], &l2Table[0][0] + (256 * 256), '\0');

	for (i = 0; i < 256; i++) {
		cTable[i] = -1;
		lTable[i] = lDefault;
	}

	for (i = 0; i < 26; i++)
		cTable['A' + i] = i + 0;

	for (i = 0; i < 26; i++)
		cTable['a' + i] = i + 26;

	for (i = 0; i < 10; i++)
		cTable['0' + i] = i + 52;

	cTable['!'] = 62;
	//cTable['!'] = 63;         // ! rovescia
	cTable['\"'] = 64;
	cTable['$'] = 65;
	cTable['%'] = 66;
	cTable['&'] = 67;
	cTable['/'] = 68;
	cTable['('] = 69;
	cTable[')'] = 70;
	cTable['='] = 71;
	cTable['?'] = 72;
	//cTable['?'] = 73;        // ? rovescia
	cTable['*'] = 74;
	cTable['+'] = 75;
	cTable[(byte)'с'] = 76;
	cTable[';'] = 77;
	cTable[','] = 78;
	cTable['.'] = 79;
	cTable[':'] = 80;
	cTable['-'] = 81;
	cTable['<'] = 82;
	cTable['>'] = 83;
	cTable['/'] = 84;
	cTable[(byte)'я'] = 85;
	cTable[(byte)'а'] = 86;
	cTable[(byte)'д'] = 87;
	cTable[(byte)'е'] = 88;
	cTable[(byte)'и'] = 89;
	cTable[(byte)'л'] = 90;
	//cTable[(byte)''] = 91;          // e with ball
	cTable[(byte)'м'] = 92;
	cTable[(byte)'п'] = 93;
	//cTable[(byte)''] = 94;            // i with ball
	cTable[(byte)'т'] = 95;
	cTable[(byte)'ц'] = 96;
	//cTable[(byte)''] = 97;          // o with ball
	cTable[(byte)'щ'] = 98;
	cTable[(byte)'ь'] = 99;
	//cTable[(byte)''] = 100;         // u with ball
	cTable[(byte)'з'] = 101;

	if (_vm->getLanguage() == Common::PL_POL) {	
		// Polish characters
		//AaCcEeLlNnOoSsZzZz
		//Ґ№ЖжКкЈіСсУуЊњЇїЏџ

		cTable[(byte)'Ґ'] = 102;
		cTable[(byte)'№'] = 103;
		cTable[(byte)'Ж'] = 104;
		cTable[(byte)'ж'] = 105;
		cTable[(byte)'К'] = 106;
		cTable[(byte)'к'] = 107;
		cTable[(byte)'Ј'] = 108;
		cTable[(byte)'і'] = 109;
		cTable[(byte)'С'] = 110;
		cTable[(byte)'с'] = 111;
		cTable[(byte)'У'] = 112;
		cTable[(byte)'у'] = 113;
		cTable[(byte)'Њ'] = 114;
		cTable[(byte)'њ'] = 115;
		cTable[(byte)'Ї'] = 116;
		cTable[(byte)'ї'] = 117;
		cTable[(byte)'Џ'] = 118;
		cTable[(byte)'џ'] = 119;

		lTable[(byte)'Ґ'] = 14;
		lTable[(byte)'№'] = 16;
		lTable[(byte)'Ж'] = 12;
		lTable[(byte)'ж'] = 12;
		lTable[(byte)'К'] = 11;
		lTable[(byte)'к'] = 12;
		lTable[(byte)'Ј'] = 14;
		lTable[(byte)'і'] = 9;
		lTable[(byte)'С'] = 10;
		lTable[(byte)'с'] = 11;
		lTable[(byte)'У'] = 13;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'Њ'] = 12;
		lTable[(byte)'њ'] = 12;
		lTable[(byte)'Ї'] = 13;
		lTable[(byte)'ї'] = 13;
		lTable[(byte)'Џ'] = 14;
		lTable[(byte)'џ'] = 13;

	} else if (_vm->getLanguage() == Common::RU_RUS) {
		// Russian Characters
		// WARNING: The Russian font uses many of the ISO-Latin-1 font,
		// allowing for further translations. To support Tonyin other langauges, 
		// these mappings could be used as a basis
		cTable[(byte)'А'] = 120;
		cTable[(byte)'Б'] = 121;
		cTable[(byte)'В'] = 122;
		cTable[(byte)'Г'] = 123;
		cTable[(byte)'Д'] = 124;
		cTable[(byte)'Е'] = 125;
		cTable[(byte)'Ё'] = 126;
		cTable[(byte)'Ж'] = 127;
		cTable[(byte)'З'] = 128;
		cTable[(byte)'И'] = 129;
		cTable[(byte)'Й'] = 130;
		cTable[(byte)'К'] = 131;
		cTable[(byte)'Л'] = 132;
		cTable[(byte)'М'] = 133;
		cTable[(byte)'Н'] = 134;
		cTable[(byte)'О'] = 135;
		cTable[(byte)'П'] = 136;
		cTable[(byte)'Р'] = 137;
		cTable[(byte)'С'] = 138;
		cTable[(byte)'Т'] = 139;
		cTable[(byte)'У'] = 140;
		cTable[(byte)'Ф'] = 141;
		cTable[(byte)'Х'] = 142;
		cTable[(byte)'Ц'] = 143;
		cTable[(byte)'Ч'] = 144;
		cTable[(byte)'Ш'] = 145;
		cTable[(byte)'Щ'] = 146;
		cTable[(byte)'Ь'] = 147;
		cTable[(byte)'Ъ'] = 148;
		cTable[(byte)'Ы'] = 149;
		cTable[(byte)'Э'] = 150;
		cTable[(byte)'Ю'] = 151;
		cTable[(byte)'Я'] = 152;

		cTable[(byte)'а'] = 153;
		cTable[(byte)'б'] = 154;
		cTable[(byte)'в'] = 155;
		cTable[(byte)'г'] = 156;
		cTable[(byte)'д'] = 157;
		cTable[(byte)'е'] = 158;
		cTable[(byte)'ё'] = 159;
		cTable[(byte)'ж'] = 160;
		cTable[(byte)'з'] = 161;
		cTable[(byte)'и'] = 162;
		cTable[(byte)'й'] = 163;
		cTable[(byte)'к'] = 164;
		cTable[(byte)'л'] = 165;
		cTable[(byte)'м'] = 166;
		cTable[(byte)'н'] = 167;
		cTable[(byte)'о'] = 168;
		cTable[(byte)'п'] = 169;
		cTable[(byte)'р'] = 170;
		cTable[(byte)'с'] = 171;
		cTable[(byte)'т'] = 172;
		cTable[(byte)'у'] = 173;
		cTable[(byte)'ф'] = 174;
		cTable[(byte)'х'] = 175;
		cTable[(byte)'ц'] = 176;
		cTable[(byte)'ч'] = 177;
		cTable[(byte)'ш'] = 178;
		cTable[(byte)'щ'] = 179;
		cTable[(byte)'ь'] = 180;
		cTable[(byte)'ъ'] = 181;
		cTable[(byte)'ы'] = 182;
		cTable[(byte)'э'] = 183;
		cTable[(byte)'ю'] = 184;
		cTable[(byte)'я'] = 185;

		lTable[(byte)'А'] = 11;
		lTable[(byte)'Б'] = 11;
		lTable[(byte)'В'] = 11;
		lTable[(byte)'Г'] = 9;
		lTable[(byte)'Д'] = 10;
		lTable[(byte)'Е'] = 10;
		lTable[(byte)'Ё'] = 10;
		lTable[(byte)'Ж'] = 11;
		lTable[(byte)'З'] = 10;
		lTable[(byte)'И'] = 10;
		lTable[(byte)'Й'] = 10;
		lTable[(byte)'К'] = 11;
		lTable[(byte)'Л'] = 9;
		lTable[(byte)'М'] = 11;
		lTable[(byte)'Н'] = 10;
		lTable[(byte)'О'] = 11;
		lTable[(byte)'П'] = 8;
		lTable[(byte)'Р'] = 10;
		lTable[(byte)'С'] = 10;
		lTable[(byte)'Т'] = 11;
		lTable[(byte)'У'] = 11;
		lTable[(byte)'Ф'] = 11;
		lTable[(byte)'Х'] = 11;
		lTable[(byte)'Ц'] = 10;
		lTable[(byte)'Ч'] = 10;
		lTable[(byte)'Ш'] = 10;
		lTable[(byte)'Щ'] = 10;
		lTable[(byte)'Ь'] = 11;
		lTable[(byte)'Ъ'] = 11;
		lTable[(byte)'Ы'] = 11;
		lTable[(byte)'Э'] = 11;
		lTable[(byte)'Ю'] = 11;
		lTable[(byte)'Я'] = 11;

		lTable[(byte)'а'] = 10;
		lTable[(byte)'б'] = 10;
		lTable[(byte)'в'] = 11;
		lTable[(byte)'г'] = 10;
		lTable[(byte)'д'] = 9;
		lTable[(byte)'е'] = 10;
		lTable[(byte)'ё'] = 9;
		lTable[(byte)'ж'] = 10;
		lTable[(byte)'з'] = 9;
		lTable[(byte)'и'] = 11;
		lTable[(byte)'й'] = 11;
		lTable[(byte)'к'] = 11;
		lTable[(byte)'л'] = 11;
		lTable[(byte)'м'] = 11;
		lTable[(byte)'н'] = 11;
		lTable[(byte)'о'] = 10;
		lTable[(byte)'п'] = 9;
		lTable[(byte)'р'] = 11;
		lTable[(byte)'с'] = 10;
		lTable[(byte)'т'] = 9;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'ф'] = 10;
		lTable[(byte)'х'] = 11;
		lTable[(byte)'ц'] = 10;
		lTable[(byte)'ч'] = 10;
		lTable[(byte)'ш'] = 11;
		lTable[(byte)'щ'] = 11;
		lTable[(byte)'ь'] = 10;
		lTable[(byte)'ъ'] = 10;
		lTable[(byte)'ы'] = 10;
		lTable[(byte)'э'] =  9;
		lTable[(byte)'ю'] = 11;
		lTable[(byte)'я'] = 11;

	} else if (_vm->getLanguage() == Common::CZ_CZE) {
		// Czech

		cTable[(byte)'М'] = 186;
		cTable[(byte)'Љ'] = 187;
		cTable[(byte)'И'] = 188;
		cTable[(byte)'Ш'] = 189;
		cTable[(byte)'Ћ'] = 190;
		cTable[(byte)'Э'] = 191;
		cTable[(byte)'Б'] = 192;
		cTable[(byte)'Н'] = 193;
		cTable[(byte)'Й'] = 194;
		cTable[(byte)'П'] = 195;
		cTable[(byte)'Ќ'] = 196;
		cTable[(byte)'Т'] = 197;
		cTable[(byte)'У'] = 198;
		cTable[(byte)'Щ'] = 199;
		cTable[(byte)'Ъ'] = 200;

		cTable[(byte)'м'] = 201;
		cTable[(byte)'љ'] = 202;
		cTable[(byte)'и'] = 203;
		cTable[(byte)'ш'] = 204;
		cTable[(byte)'ћ'] = 205;
		cTable[(byte)'э'] = 206;
		cTable[(byte)'б'] = 207;
		cTable[(byte)'н'] = 208;
		cTable[(byte)'й'] = 209;
		cTable[(byte)'п'] = 210;
		cTable[(byte)'ќ'] = 211;
		cTable[(byte)'т'] = 212;
		cTable[(byte)'у'] = 213;
		cTable[(byte)'щ'] = 214;
		cTable[(byte)'ъ'] = 215;

		lTable[(byte)'М'] = 10;
		lTable[(byte)'Љ'] = 10;
		lTable[(byte)'И'] = 10;
		lTable[(byte)'Ш'] = 11;
		lTable[(byte)'Ћ'] = 9;
		lTable[(byte)'Э'] = 11;
		lTable[(byte)'Б'] = 11;
		lTable[(byte)'Н'] = 9;
		lTable[(byte)'Й'] = 10;
		lTable[(byte)'П'] = 11;
		lTable[(byte)'Ќ'] = 11;
		lTable[(byte)'Т'] = 11;
		lTable[(byte)'У'] = 11;
		lTable[(byte)'Щ'] = 11;
		lTable[(byte)'Ъ'] = 11;

		lTable[(byte)'м'] = 10;
		lTable[(byte)'љ'] = 9;
		lTable[(byte)'и'] = 10;
		lTable[(byte)'ш'] = 10;
		lTable[(byte)'ћ'] = 9;
		lTable[(byte)'э'] = 11;
		lTable[(byte)'б'] = 10;
		lTable[(byte)'н'] = 9;
		lTable[(byte)'й'] = 10;
		lTable[(byte)'п'] = 11;
		lTable[(byte)'ќ'] = 11;
		lTable[(byte)'т'] = 11;
		lTable[(byte)'у'] = 10;
		lTable[(byte)'щ'] = 11;
		lTable[(byte)'ъ'] = 11;

	} else if (_vm->getLanguage() == Common::FR_FRA) {
		// French

		cTable[(byte)'в'] = 226;
		cTable[(byte)'й'] = 227;
		cTable[(byte)'и'] = 228;
		cTable[(byte)'о'] = 229;
		cTable[(byte)'щ'] = 230;
		cTable[(byte)'ы'] = 231;
		cTable[(byte)'ф'] = 232;
		cTable[(byte)'ц'] = 233;

		lTable[(byte)'в'] = 10;
		lTable[(byte)'й'] = 10;
		lTable[(byte)'к'] = 10;
		lTable[(byte)'о'] = 8;
		lTable[(byte)'щ'] = 11;
		lTable[(byte)'ы'] = 11;
		lTable[(byte)'ф'] = 10;
		lTable[(byte)'ц'] = 10;

	} else if (_vm->getLanguage() == Common::DE_DEU) {
		// German

		cTable[(byte)'Я'] = 234;
		// 'SS' = 235
		cTable[(byte)'Д'] = 236;
		cTable[(byte)'Ц'] = 237;
		cTable[(byte)'Ь'] = 238;

		lTable[(byte)'Я'] = 11;
	}
}

/***************************************************************************\
*       RMFontCredits Methods
\****************************************************************************/

void RMFontCredits::Init(void) {
	int i;

	// bernie: Number of characters in the font
	int nchars =
	    112    // base
	    + 18    // polish
	    + 66    // russian
	    + 30    // czech
	    +  8    // french
	    +  2;   // deutsch


	Load(RES_F_CREDITS, nchars, 27, 28, RES_F_CPAL);

	// Default
	lDefault = 10;
	hDefault = 28;
	Common::fill(&l2Table[0][0], &l2Table[0][0] + (256 * 256), '\0');

	for (i = 0; i < 256; i++) {
		cTable[i] = -1;
		lTable[i] = lDefault;
	}

	for (i = 0; i < 26; i++)
		cTable['A' + i] = i + 0;

	for (i = 0; i < 26; i++)
		cTable['a' + i] = i + 26;


	cTable[(byte)'а'] = 52;
	cTable[(byte)'б'] = 53;
//	cTable[''] = 54; // a ^
//	cTable[''] = 55; // a pallini
	cTable[(byte)'и'] = 56;
	cTable[(byte)'й'] = 57;
//	cTable[''] = 58; // e ^
//	cTable[''] = 59; // e pallini
	cTable[(byte)'м'] = 60;
	cTable[(byte)'н'] = 61;
//	cTable[''] = 62; // i ^
//	cTable[''] = 63; // i pallini
	cTable[(byte)'т'] = 64;
	cTable[(byte)'у'] = 65;
//	cTable[''] = 66; // o ^
//	cTable[''] = 67; // o pallini
	cTable[(byte)'щ'] = 68;
	cTable[(byte)'ъ'] = 69;
//	cTable[''] = 70; // u ^
//	cTable[''] = 71; // u pallini
//	cTable[''] = 72; // y pallini
	cTable[(byte)'с'] = 73;
	cTable[(byte)'з'] = 74;
//	cTable[''] = 75; // o barrato
//	cTable[''] = 76; // ac
	cTable[(byte)'©'] = 77;
//	cTable[''] = 78; // ? rovesciato
	cTable['?'] = 79;
//	cTable[''] = 80; // ! rovesciato
	cTable['!'] = 81;
//	cTable[''] = 82; // 1/2
//	cTable[''] = 83; // 1/4
	cTable['('] = 84;
	cTable[')'] = 85;
	cTable[(byte)'«'] = 86;
	cTable[(byte)'»'] = 87;
//	cTable[''] = 88; // AE
	cTable[':'] = 89;
	cTable['%'] = 90;
	cTable['&'] = 91;
	cTable['/'] = 92;
	cTable['+'] = 93;
	cTable[';'] = 94;
	cTable[','] = 95;
	cTable['^'] = 96;
	cTable['='] = 97;
	cTable['_'] = 98;
	cTable['*'] = 99;
	cTable['.'] = 100;

	for (i = 0; i < 10; i++)
		cTable['0' + i] = i + 101;
	cTable['\''] = 111;

	lTable[' '] = 11;
	lTable[(byte)'Д'] = lTable['A'] = 19;
	lTable['B'] = 15;
	lTable['C'] = 14;
	lTable['D'] = 13;
	lTable['E'] = 14;
	lTable['F'] = 13;
	lTable['G'] = 16;
	lTable['H'] = 15;
	lTable['I'] = 5;
	lTable['J'] = 8;
	lTable['K'] = 15;
	lTable['L'] = 13;
	lTable['M'] = 17;
	lTable['N'] = 15;
	lTable['Ц'] = lTable['O'] = 14;
	lTable['P'] = 12;
	lTable['Q'] = 14;
	lTable['R'] = 14;
	lTable['S'] = 15;
	lTable['T'] = 11;
	lTable['Ь'] = lTable['U'] = 12;
	lTable['V'] = 12;
	lTable['W'] = 16;
	lTable['X'] = 12;
	lTable['Y'] = 13;
	lTable['Z'] = 14;

	lTable['a'] = 11;
	lTable['b'] = 9;
	lTable['c'] = 9;
	lTable['d'] = 10;
	lTable['e'] = 9;
	lTable['f'] = 8;
	lTable['g'] = 9;
	lTable['h'] = 10;
	lTable['i'] = 5;
	lTable['j'] = 6;
	lTable['k'] = 12;
	lTable['l'] = 6;
	lTable['m'] = 14;
	lTable['n'] = 10;
	lTable['o'] = 11;
	lTable['p'] = 11;
	lTable['q'] = 9;
	lTable['r'] = 9;
	lTable['s'] = 9;
	lTable['t'] = 6;
	lTable['u'] = 9;
	lTable['v'] = 10;
	lTable['w'] = 14;
	lTable['x'] = 9;
	lTable['y'] = 10;
	lTable['z'] = 9;

	lTable['0'] = 12;
	lTable['1'] = 8;
	lTable['2'] = 10;
	lTable['3'] = 11;
	lTable['4'] = 12;
	lTable['5'] = 11;
	lTable['6'] = 12;
	lTable['7'] = 10;
	lTable['8'] = 11;
	lTable['9'] = 10;

	lTable['/'] = 10;
	lTable['^'] = 9;
	lTable[','] = 5;
	lTable['.'] = 5;
	lTable[';'] = 5;
	lTable[':'] = 5;
	lTable['\''] = 5;

	if (_vm->getLanguage() == Common::PL_POL) {
		// Polish characters
		//AaCcEeLlNnOoSsZzZz
		//Ґ№ЖжКкЈіСсУуЊњЇїЏџ

		cTable[(byte)'Ґ'] = 112;
		cTable[(byte)'№'] = 113;
		cTable[(byte)'Ж'] = 114;
		cTable[(byte)'ж'] = 115;
		cTable[(byte)'К'] = 116;
		cTable[(byte)'к'] = 117;
		cTable[(byte)'Ј'] = 118;
		cTable[(byte)'і'] = 119;
		cTable[(byte)'С'] = 120;
		cTable[(byte)'с'] = 121;
		cTable[(byte)'У'] = 122;
		cTable[(byte)'у'] = 123;
		cTable[(byte)'Њ'] = 124;
		cTable[(byte)'њ'] = 125;
		cTable[(byte)'Ї'] = 126;
		cTable[(byte)'ї'] = 127;
		cTable[(byte)'Џ'] = 128;
		cTable[(byte)'џ'] = 129;

		lTable[(byte)'Ґ'] = 20;
		lTable[(byte)'№'] = 12;
		lTable[(byte)'Ж'] = 15;
		lTable[(byte)'ж'] = 10;
		lTable[(byte)'К'] = 15;
		lTable[(byte)'к'] = 10;
		lTable[(byte)'Ј'] = 14;
		lTable[(byte)'і'] = 11;
		lTable[(byte)'С'] = 16;
		lTable[(byte)'с'] = 10;
		lTable[(byte)'У'] = 15;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'Њ'] = 15;
		lTable[(byte)'њ'] = 10;
		lTable[(byte)'Ї'] = 15;
		lTable[(byte)'ї'] = 10;
		lTable[(byte)'Џ'] = 15;
		lTable[(byte)'џ'] = 10;

	} else if (_vm->getLanguage() == Common::RU_RUS) {
		// Russian Characters
		// WARNING: The Russian font uses many of the ISO-Latin-1 font,
		// allowing for further translations. To support Tonyin other langauges, 
		// these mappings could be used as a basis
		cTable[(byte)'А'] = 130;
		cTable[(byte)'Б'] = 131;
		cTable[(byte)'В'] = 132;
		cTable[(byte)'Г'] = 133;
		cTable[(byte)'Д'] = 134;
		cTable[(byte)'Е'] = 135;
		cTable[(byte)'Ё'] = 136;
		cTable[(byte)'Ж'] = 137;
		cTable[(byte)'З'] = 138;
		cTable[(byte)'И'] = 139;
		cTable[(byte)'Й'] = 140;
		cTable[(byte)'К'] = 141;
		cTable[(byte)'Л'] = 142;
		cTable[(byte)'М'] = 143;
		cTable[(byte)'Н'] = 144;
		cTable[(byte)'О'] = 145;
		cTable[(byte)'П'] = 146;
		cTable[(byte)'Р'] = 147;
		cTable[(byte)'С'] = 148;
		cTable[(byte)'Т'] = 149;
		cTable[(byte)'У'] = 150;
		cTable[(byte)'Ф'] = 151;
		cTable[(byte)'Х'] = 152;
		cTable[(byte)'Ц'] = 153;
		cTable[(byte)'Ч'] = 154;
		cTable[(byte)'Ш'] = 155;
		cTable[(byte)'Щ'] = 156;
		cTable[(byte)'Ь'] = 157;
		cTable[(byte)'Ъ'] = 158;
		cTable[(byte)'Ы'] = 159;
		cTable[(byte)'Э'] = 160;
		cTable[(byte)'Ю'] = 161;
		cTable[(byte)'Я'] = 162;

		cTable[(byte)'а'] = 163;
		cTable[(byte)'б'] = 164;
		cTable[(byte)'в'] = 165;
		cTable[(byte)'г'] = 166;
		cTable[(byte)'д'] = 167;
		cTable[(byte)'е'] = 168;
		cTable[(byte)'ё'] = 169;
		cTable[(byte)'ж'] = 170;
		cTable[(byte)'з'] = 171;
		cTable[(byte)'и'] = 172;
		cTable[(byte)'й'] = 173;
		cTable[(byte)'к'] = 174;
		cTable[(byte)'л'] = 175;
		cTable[(byte)'м'] = 176;
		cTable[(byte)'н'] = 177;
		cTable[(byte)'о'] = 178;
		cTable[(byte)'п'] = 179;
		cTable[(byte)'р'] = 180;
		cTable[(byte)'с'] = 181;
		cTable[(byte)'т'] = 182;
		cTable[(byte)'у'] = 183;
		cTable[(byte)'ф'] = 184;
		cTable[(byte)'х'] = 185;
		cTable[(byte)'ц'] = 186;
		cTable[(byte)'ч'] = 187;
		cTable[(byte)'ш'] = 188;
		cTable[(byte)'щ'] = 189;
		cTable[(byte)'ь'] = 190;
		cTable[(byte)'ъ'] = 191;
		cTable[(byte)'ы'] = 192;
		cTable[(byte)'э'] = 193;
		cTable[(byte)'ю'] = 194;
		cTable[(byte)'я'] = 195;

		lTable[(byte)'А'] = 20;
		lTable[(byte)'Б'] = 16;
		lTable[(byte)'В'] = 16;
		lTable[(byte)'Г'] = 14;
		lTable[(byte)'Д'] = 22;
		lTable[(byte)'Е'] = 15;
		lTable[(byte)'Ё'] = 15;
		lTable[(byte)'Ж'] = 20;
		lTable[(byte)'З'] = 12;
		lTable[(byte)'И'] = 16;
		lTable[(byte)'Й'] = 16;
		lTable[(byte)'К'] = 16;
		lTable[(byte)'Л'] = 22;
		lTable[(byte)'М'] = 18;
		lTable[(byte)'Н'] = 16;
		lTable[(byte)'О'] = 15;
		lTable[(byte)'П'] = 14;
		lTable[(byte)'Р'] = 13;
		lTable[(byte)'С'] = 15;
		lTable[(byte)'Т'] = 12;
		lTable[(byte)'У'] = 14;
		lTable[(byte)'Ф'] = 15;
		lTable[(byte)'Х'] = 13;
		lTable[(byte)'Ц'] = 16;
		lTable[(byte)'Ч'] = 14;
		lTable[(byte)'Ш'] = 23;
		lTable[(byte)'Щ'] = 23;
		lTable[(byte)'Ь'] = 10;
		lTable[(byte)'Ъ'] = 12;
		lTable[(byte)'Ы'] = 16;
		lTable[(byte)'Э'] = 12;
		lTable[(byte)'Ю'] = 20;
		lTable[(byte)'Я'] = 15;

		lTable[(byte)'а'] = 12;
		lTable[(byte)'б'] = 10;
		lTable[(byte)'в'] = 10;
		lTable[(byte)'г'] = 11;
		lTable[(byte)'д'] = 16;
		lTable[(byte)'е'] = 10;
		lTable[(byte)'ё'] = 11;
		lTable[(byte)'ж'] = 13;
		lTable[(byte)'з'] = 12;
		lTable[(byte)'и'] = 13;
		lTable[(byte)'й'] = 13;
		lTable[(byte)'к'] = 12;
		lTable[(byte)'л'] = 13;
		lTable[(byte)'м'] = 14;
		lTable[(byte)'н'] = 11;
		lTable[(byte)'о'] = 11;
		lTable[(byte)'п'] = 11;
		lTable[(byte)'р'] = 12;
		lTable[(byte)'с'] = 10;
		lTable[(byte)'т'] = 10;
		lTable[(byte)'у'] = 10;
		lTable[(byte)'ф'] = 11;
		lTable[(byte)'х'] = 10;
		lTable[(byte)'ц'] = 11;
		lTable[(byte)'ч'] = 10;
		lTable[(byte)'ш'] = 15;
		lTable[(byte)'щ'] = 15;
		lTable[(byte)'ь'] = 10;
		lTable[(byte)'ъ'] = 12;
		lTable[(byte)'ы'] = 16;
		lTable[(byte)'э'] = 11;
		lTable[(byte)'ю'] = 13;
		lTable[(byte)'я'] = 11;

	} else if (_vm->getLanguage() == Common::CZ_CZE) {
		// CZECH Language

		cTable[(byte)'М'] = 196;
		cTable[(byte)'Љ'] = 197;
		cTable[(byte)'И'] = 198;
		cTable[(byte)'Ш'] = 199;
		cTable[(byte)'Ћ'] = 200;
		cTable[(byte)'Э'] = 201;
		cTable[(byte)'Б'] = 202;
		cTable[(byte)'Н'] = 203;
		cTable[(byte)'Й'] = 204;
		cTable[(byte)'П'] = 205;
		cTable[(byte)'Ќ'] = 206;
		cTable[(byte)'Т'] = 207;
		cTable[(byte)'У'] = 208;
		cTable[(byte)'Щ'] = 209;
		cTable[(byte)'Ъ'] = 210;

		cTable[(byte)'м'] = 211;
		cTable[(byte)'љ'] = 212;
		cTable[(byte)'и'] = 213;
		cTable[(byte)'ш'] = 214;
		cTable[(byte)'ћ'] = 215;
		cTable[(byte)'э'] = 216;
		cTable[(byte)'б'] = 217;
		cTable[(byte)'н'] = 218;
		cTable[(byte)'й'] = 219;
		cTable[(byte)'п'] = 220;
		cTable[(byte)'ќ'] = 221;
		cTable[(byte)'т'] = 222;
		cTable[(byte)'у'] = 223;
		cTable[(byte)'щ'] = 224;
		cTable[(byte)'ъ'] = 225;

		lTable[(byte)'М'] = 15;
		lTable[(byte)'Љ'] = 15;
		lTable[(byte)'И'] = 15;
		lTable[(byte)'Ш'] = 15;
		lTable[(byte)'Ћ'] = 15;
		lTable[(byte)'Э'] = 14;
		lTable[(byte)'Б'] = 20;
		lTable[(byte)'Н'] = 7;
		lTable[(byte)'Й'] = 15;
		lTable[(byte)'П'] = 20;
		lTable[(byte)'Ќ'] = 19;
		lTable[(byte)'Т'] = 16;
		lTable[(byte)'У'] = 15;
		lTable[(byte)'Щ'] = 13;
		lTable[(byte)'Ъ'] = 13;

		lTable[(byte)'м'] = 11;
		lTable[(byte)'љ'] = 11;
		lTable[(byte)'и'] = 11;
		lTable[(byte)'ш'] = 11;
		lTable[(byte)'ћ'] = 11;
		lTable[(byte)'э'] = 10;
		lTable[(byte)'б'] = 12;
		lTable[(byte)'н'] = 6;
		lTable[(byte)'й'] = 10;
		lTable[(byte)'п'] = 15;
		lTable[(byte)'ќ'] = 12;
		lTable[(byte)'т'] = 11;
		lTable[(byte)'у'] = 11;
		lTable[(byte)'щ'] = 10;
		lTable[(byte)'ъ'] = 10;

	} else if (_vm->getLanguage() == Common::FR_FRA) {
		// French

		cTable[(byte)'в'] = 226;
		cTable[(byte)'й'] = 227;
		cTable[(byte)'к'] = 228;
		cTable[(byte)'о'] = 229;
		cTable[(byte)'щ'] = 230;
		cTable[(byte)'ы'] = 231;
		cTable[(byte)'ф'] = 232;
		cTable[(byte)'ц'] = 233;

		lTable[(byte)'в'] = 12;
		lTable[(byte)'й'] = 10;
		lTable[(byte)'к'] = 10;
		lTable[(byte)'о'] = 6;
		lTable[(byte)'щ'] = 10;
		lTable[(byte)'ы'] = 10;
		lTable[(byte)'ф'] = 11;
		lTable[(byte)'ц'] = 11;

	} else if (_vm->getLanguage() == Common::DE_DEU) {
		// German

		cTable[(byte)'Я'] = 234;
		// 'SS' = 235

		// old chars overrides
		cTable[(byte)'Д'] = cTable[(byte)'д'] = 55;
		cTable[(byte)'Ц'] = cTable[(byte)'ц'] = 67;
		cTable[(byte)'Ь'] = cTable[(byte)'ь'] = 71;

		lTable[(byte)'Я'] = 11;
	}
}


/***************************************************************************\
*       Metodi di RMFontObj
\****************************************************************************/

#define TOUPPER(a)  ((a) >='a'&&(a)<='z'?(a)+'A'-'a':(a))
#define TOLOWER(a)  ((a) >='A'&&(a)<='Z'?(a)+'a'-'A':(a))

void RMFontObj::SetBothCase(int nChar, int nNext, signed char spiazz) {
	l2Table[TOUPPER(nChar)][TOUPPER(nNext)] = spiazz;
	l2Table[TOUPPER(nChar)][TOLOWER(nNext)] = spiazz;
	l2Table[TOLOWER(nChar)][TOUPPER(nNext)] = spiazz;
	l2Table[TOLOWER(nChar)][TOLOWER(nNext)] = spiazz;
}


void RMFontObj::Init(void) {
	int i;

	//bernie: Number of characters in the font (solo maiuscolo)
	int nchars =
	    85    // base
	    +  9    // polish
	    + 33    // russian
	    + 15    // czech
	    +  0    // francais (no uppercase chars)
	    +  1;   // deutsch


	Load(RES_F_OBJ, nchars, 25, 30);

	// Initialise the f**king table
	lDefault = 26;
	hDefault = 30;
	Common::fill(&l2Table[0][0], &l2Table[0][0] + (256 * 256), '\0');

	for (i = 0; i < 256; i++) {
		cTable[i] = -1;
		lTable[i] = lDefault;
	}

	for (i = 0; i < 26; i++) {
		cTable['A' + i] = i + 0;
		cTable['a' + i] = i + 0;
	}

	for (i = 0; i < 10; i++)
		cTable['0' + i] = i + 26;

	cTable[','] = 36;
	cTable[';'] = 37;
	cTable['.'] = 38;
	cTable[':'] = 39;
	cTable['-'] = 40;
	cTable['+'] = 41;
	cTable['!'] = 42;
	// cTable['!'] = 43; Exclamation countdown
	cTable['?'] = 44;
	//cTable['?'] = 45;  Interrogativo alla rovescia
	cTable['/'] = 46;
	cTable['('] = 47;
	cTable[')'] = 48;
	cTable['='] = 49;
	cTable['\''] = 50;
	cTable['\"'] = 51;
	cTable[(byte)'Ј'] = 52;
	cTable[(byte)'$'] = 53;
	cTable[(byte)'%'] = 54;
	cTable[(byte)'&'] = 55;
	cTable[(byte)'^'] = 56;
	cTable[(byte)'*'] = 57;
	cTable[(byte)'<'] = 58;
	cTable[(byte)'>'] = 59;
	cTable[(byte)'«'] = 60;
	cTable[(byte)'»'] = 61;
	cTable[(byte)'ш'] = 62;
	cTable[(byte)'з'] = 63;
	//cTable[(byte)'ѓ'] = 64;   integral
	cTable[(byte)'С'] = 65;
	cTable[(byte)'®'] = 66;
	cTable[(byte)'©'] = 67;
	cTable[(byte)'Ж'] = 68;
	cTable[(byte)'Б'] = 69;
	cTable[(byte)'Д'] = cTable[(byte)'д'] = 70;
	cTable[(byte)'Е'] = 71;
	cTable[(byte)'И'] = 72;
	cTable[(byte)'Л'] = 73;
	//cTable[(byte)' '] = 74;   e circlet
	cTable[(byte)'М'] = 75;
	cTable[(byte)'П'] = 76;
	//cTable[(byte)' '] = 77;     i circlet
	cTable[(byte)'Т'] = 78;
	cTable[(byte)'Ц'] = cTable[(byte)'ц'] = 79;
	//cTable[(byte)' '] = 80;       o circlet
	cTable[(byte)'Щ'] = 81;
	cTable[(byte)'Ь'] = cTable[(byte)'ь'] = 82;
	//cTable[' '] = 83;     u circlet
	//cTable[' '] = 84;   y dieresi

	/* Little lengths */
	lTable[' '] = 11;
	lTable['.'] = 8;
	lTable['-'] = 12;
	lTable['\''] = 8;
	lTable['0'] = 20;
	lTable['1'] = 20;
	lTable['2'] = 15;
	lTable['3'] = 20;
	lTable['4'] = 20;
	lTable['5'] = 20;
	lTable['6'] = 20;
	lTable['7'] = 20;
	lTable['8'] = 20;
	lTable['9'] = 20;


	lTable['a'] = lTable['A'] = lTable['д'] = lTable['Д'] = 17;
	lTable['b'] = lTable['B'] = 17;
	lTable['c'] = lTable['C'] = 19;
	lTable['d'] = lTable['D'] = 17;
	lTable['e'] = lTable['E'] = 15;
	lTable['f'] = lTable['F'] = 17;
	lTable['g'] = lTable['G'] = 19;
	lTable['i'] = lTable['I'] = 16;
	lTable['h'] = lTable['H'] = 17;
	lTable['k'] = lTable['K'] = 17;
	lTable['l'] = lTable['L'] = 14;
	lTable['m'] = lTable['M'] = 19;
	lTable['n'] = lTable['N'] = 17;
	lTable['o'] = lTable['O'] = lTable['ц'] = lTable['Ц'] = 19;
	lTable['p'] = lTable['P'] = 17;
	lTable['q'] = lTable['Q'] = 19;
	lTable['r'] = lTable['R'] = 14;
	lTable['s'] = lTable['S'] = 13;
	lTable['t'] = lTable['T'] = 15;
	lTable['u'] = lTable['U'] = lTable['ь'] = lTable['Ь'] = 15;
	lTable['v'] = lTable['V'] = 13;
	lTable['x'] = lTable['X'] = 15;
	lTable['y'] = lTable['Y'] = 13;
	lTable['w'] = lTable['W'] = 19;
	lTable['z'] = lTable['Z'] = 20;
	lTable[(byte)'С'] = 17;

	/* Casi particolari */
	SetBothCase('C', 'C', 2);
	SetBothCase('A', 'T', -2);
	SetBothCase('R', 'S', 2);
	SetBothCase('H', 'I', -2);
	SetBothCase('T', 'S', 2);
	SetBothCase('O', 'R', 2);
	SetBothCase('O', 'L', 2);
	SetBothCase('O', 'G', 2);
	SetBothCase('Z', 'A', -1);
	SetBothCase('R', 'R', 1);
	SetBothCase('R', 'U', 3);

	if (_vm->getLanguage() == Common::PL_POL) {	
		// Polish characters
		//Ґ№ЖжКкЈіСсУуЊњЇїЏџ
		//AaCcEeLlNnOoSsZzZz
		cTable[(byte)'Ґ'] = cTable[(byte)'№'] = 85;
		lTable[(byte)'Ґ'] = lTable[(byte)'№'] = 20;

		cTable[(byte)'Ж'] = cTable[(byte)'ж'] = 86;
		lTable[(byte)'Ж'] = lTable[(byte)'ж'] = 22;

		cTable[(byte)'К'] = cTable[(byte)'к'] = 87;
		lTable[(byte)'К'] = lTable[(byte)'к'] = 17;

		cTable[(byte)'Ј'] = cTable[(byte)'і'] = 88;
		lTable[(byte)'Ј'] = lTable[(byte)'і'] = 19;

		cTable[(byte)'С'] = cTable[(byte)'с'] = 89;
		lTable[(byte)'С'] = lTable[(byte)'с'] = 17;

		cTable[(byte)'У'] = cTable[(byte)'у'] = 90;
		lTable[(byte)'У'] = lTable[(byte)'у'] = 22;

		cTable[(byte)'Њ'] = cTable[(byte)'њ'] = 91;
		lTable[(byte)'Њ'] = lTable[(byte)'њ'] = 15;

		cTable[(byte)'Ї'] = cTable[(byte)'ї'] = 92;
		lTable[(byte)'Ї'] = lTable[(byte)'ї'] = 21;

		cTable[(byte)'Џ'] = cTable[(byte)'џ'] = 93;
		lTable[(byte)'Џ'] = lTable[(byte)'џ'] = 21;

	} else if (_vm->getLanguage() == Common::RU_RUS) {
		// Russian Characters
	// WARNING: The Russian font uses many of the ISO-Latin-1 font,
		// allowing for further translations. To support Tonyin other langauges, 
		// these mappings could be used as a basis

		cTable[(byte)'Ґ'] = cTable[(byte)'№'] = 85;
		lTable[(byte)'Ґ'] = lTable[(byte)'№'] = 20;

		cTable[(byte)'А'] = cTable[(byte)'а'] = 94;
		cTable[(byte)'Б'] = cTable[(byte)'б'] = 95;
		cTable[(byte)'В'] = cTable[(byte)'в'] = 96;
		cTable[(byte)'Г'] = cTable[(byte)'г'] = 97;
		cTable[(byte)'Д'] = cTable[(byte)'д'] = 98;
		cTable[(byte)'Е'] = cTable[(byte)'е'] = 99;
		cTable[(byte)'Ё'] = cTable[(byte)'ё'] = 100;
		cTable[(byte)'Ж'] = cTable[(byte)'ж'] = 101;
		cTable[(byte)'З'] = cTable[(byte)'з'] = 102;
		cTable[(byte)'И'] = cTable[(byte)'и'] = 103;
		cTable[(byte)'Й'] = cTable[(byte)'й'] = 104;
		cTable[(byte)'К'] = cTable[(byte)'к'] = 105;
		cTable[(byte)'Л'] = cTable[(byte)'л'] = 106;
		cTable[(byte)'М'] = cTable[(byte)'м'] = 107;
		cTable[(byte)'Н'] = cTable[(byte)'н'] = 108;
		cTable[(byte)'О'] = cTable[(byte)'о'] = 109;
		cTable[(byte)'П'] = cTable[(byte)'п'] = 110;
		cTable[(byte)'Р'] = cTable[(byte)'р'] = 111;
		cTable[(byte)'С'] = cTable[(byte)'с'] = 112;
		cTable[(byte)'Т'] = cTable[(byte)'т'] = 113;
		cTable[(byte)'У'] = cTable[(byte)'у'] = 114;
		cTable[(byte)'Ф'] = cTable[(byte)'ф'] = 115;
		cTable[(byte)'Х'] = cTable[(byte)'х'] = 116;
		cTable[(byte)'Ц'] = cTable[(byte)'ц'] = 117;
		cTable[(byte)'Ч'] = cTable[(byte)'ч'] = 118;
		cTable[(byte)'Ш'] = cTable[(byte)'ш'] = 119;
		cTable[(byte)'Щ'] = cTable[(byte)'щ'] = 120;
		cTable[(byte)'Ь'] = cTable[(byte)'ь'] = 121;
		cTable[(byte)'Ъ'] = cTable[(byte)'ъ'] = 122;
		cTable[(byte)'Ы'] = cTable[(byte)'ы'] = 123;
		cTable[(byte)'Э'] = cTable[(byte)'э'] = 124;
		cTable[(byte)'Ю'] = cTable[(byte)'ю'] = 125;
		cTable[(byte)'Я'] = cTable[(byte)'я'] = 126;


		lTable[(byte)'А'] = lTable[(byte)'а'] = 18;
		lTable[(byte)'Б'] = lTable[(byte)'б'] = 18;
		lTable[(byte)'В'] = lTable[(byte)'в'] = 18;
		lTable[(byte)'Г'] = lTable[(byte)'г'] = 17;
		lTable[(byte)'Д'] = lTable[(byte)'д'] = 16;
		lTable[(byte)'Е'] = lTable[(byte)'е'] = 18;
		lTable[(byte)'Ё'] = lTable[(byte)'ё'] = 18;
		lTable[(byte)'Ж'] = lTable[(byte)'ж'] = 20;
		lTable[(byte)'З'] = lTable[(byte)'з'] = 18;
		lTable[(byte)'И'] = lTable[(byte)'и'] = 18;
		lTable[(byte)'Й'] = lTable[(byte)'й'] = 18;
		lTable[(byte)'К'] = lTable[(byte)'к'] = 18;
		lTable[(byte)'Л'] = lTable[(byte)'л'] = 16;
		lTable[(byte)'М'] = lTable[(byte)'м'] = 18;
		lTable[(byte)'Н'] = lTable[(byte)'н'] = 15;
		lTable[(byte)'О'] = lTable[(byte)'о'] = 22;
		lTable[(byte)'П'] = lTable[(byte)'п'] = 15;
		lTable[(byte)'Р'] = lTable[(byte)'р'] = 18;
		lTable[(byte)'С'] = lTable[(byte)'с'] = 22;
		lTable[(byte)'Т'] = lTable[(byte)'т'] = 19;
		lTable[(byte)'У'] = lTable[(byte)'у'] = 16;
		lTable[(byte)'Ф'] = lTable[(byte)'ф'] = 21;
		lTable[(byte)'Х'] = lTable[(byte)'х'] = 20;
		lTable[(byte)'Ц'] = lTable[(byte)'ц'] = 16;
		lTable[(byte)'Ч'] = lTable[(byte)'ч'] = 16;
		lTable[(byte)'Ш'] = lTable[(byte)'ш'] = 19;
		lTable[(byte)'Щ'] = lTable[(byte)'щ'] = 22;
		lTable[(byte)'Ь'] = lTable[(byte)'ь'] = 18;
		lTable[(byte)'Ъ'] = lTable[(byte)'ъ'] = 19;
		lTable[(byte)'Ы'] = lTable[(byte)'ы'] = 19;
		lTable[(byte)'Э'] = lTable[(byte)'э'] = 15;
		lTable[(byte)'Ю'] = lTable[(byte)'ю'] = 18;
		lTable[(byte)'Я'] = lTable[(byte)'я'] = 18;

	} else if (_vm->getLanguage() == Common::CZ_CZE) {
		// Czech

		cTable[(byte)'М'] = cTable[(byte)'м'] = 127;
		cTable[(byte)'Љ'] = cTable[(byte)'љ'] = 128;
		cTable[(byte)'И'] = cTable[(byte)'и'] = 129;
		cTable[(byte)'Ш'] = cTable[(byte)'ш'] = 130;
		cTable[(byte)'Ћ'] = cTable[(byte)'ћ'] = 131;
		cTable[(byte)'Э'] = cTable[(byte)'э'] = 132;
		cTable[(byte)'Б'] = cTable[(byte)'б'] = 133;
		cTable[(byte)'Н'] = cTable[(byte)'н'] = 134;
		cTable[(byte)'Й'] = cTable[(byte)'й'] = 135;
		cTable[(byte)'П'] = cTable[(byte)'п'] = 136;
		cTable[(byte)'Ќ'] = cTable[(byte)'ќ'] = 137;
		cTable[(byte)'Т'] = cTable[(byte)'т'] = 138;
		cTable[(byte)'У'] = cTable[(byte)'у'] = 139;
		cTable[(byte)'Щ'] = cTable[(byte)'щ'] = 140;
		cTable[(byte)'Ъ'] = cTable[(byte)'ъ'] = 141;

		lTable[(byte)'М'] = lTable[(byte)'м'] = 17;
		lTable[(byte)'Љ'] = lTable[(byte)'љ'] = 15;
		lTable[(byte)'И'] = lTable[(byte)'и'] = 22;
		lTable[(byte)'Ш'] = lTable[(byte)'ш'] = 18;
		lTable[(byte)'Ћ'] = lTable[(byte)'ћ'] = 21;
		lTable[(byte)'Э'] = lTable[(byte)'э'] = 16;
		lTable[(byte)'Б'] = lTable[(byte)'б'] = 18;
		lTable[(byte)'Н'] = lTable[(byte)'н'] = 19;
		lTable[(byte)'Й'] = lTable[(byte)'й'] = 17;
		lTable[(byte)'П'] = lTable[(byte)'п'] = 23;
		lTable[(byte)'Ќ'] = lTable[(byte)'ќ'] = 24;
		lTable[(byte)'Т'] = lTable[(byte)'т'] = 17;
		lTable[(byte)'У'] = lTable[(byte)'у'] = 22;
		lTable[(byte)'Щ'] = lTable[(byte)'щ'] = 16;
		lTable[(byte)'Ъ'] = lTable[(byte)'ъ'] = 16;

	} else if (_vm->getLanguage() == Common::FR_FRA) {	
		// French

		// Translate accented characters as normal letters

		cTable[(byte)'а'] = cTable[(byte)'б'] = cTable[(byte)'в'] = 0; // a
		lTable[(byte)'а'] = lTable[(byte)'б'] = lTable[(byte)'в'] = 17;

		cTable[(byte)'й'] = cTable[(byte)'и'] = 4; // e
		lTable[(byte)'й'] = lTable[(byte)'и'] = 15;

		cTable[(byte)'м'] = cTable[(byte)'н'] = cTable[(byte)'о'] = 8; // i
		lTable[(byte)'м'] = lTable[(byte)'н'] = lTable[(byte)'о'] = 16;

		cTable[(byte)'т'] = cTable[(byte)'у'] = cTable[(byte)'ф'] = cTable[(byte)'ц'] = 14; // o
		lTable[(byte)'т'] = lTable[(byte)'у'] = lTable[(byte)'ф'] = lTable[(byte)'ц'] = 19;

		cTable[(byte)'щ'] = cTable[(byte)'ы'] = 20; // u
		lTable[(byte)'щ'] = lTable[(byte)'ы'] = 15;

	} else if (_vm->getLanguage() == Common::DE_DEU) {
		// German

		cTable['Я'] = 142;
		// SS = 143

		lTable['Я'] = 24;
	}
}


/****************************************************************************\
*       RMText Methods
\****************************************************************************/

RMFontColor *RMText::m_fonts[4] = { NULL, NULL, NULL, NULL };
RMGfxClearTask RMText::m_clear;

void RMText::InitStatics() {
	Common::fill(&m_fonts[0], &m_fonts[4], (RMFontColor *)NULL);
}

RMText::RMText() {
	// Default colour: white
	m_r = m_g = m_b = 255;

	// Default length
	maxLineLength = 350;

	m_bTrasp0 = true;
	aHorType = HCENTER;
	aVerType = VTOP;
	SetPriority(150);
}

RMText::~RMText() {

}

void RMText::Unload() {
	if (m_fonts[0] != NULL) {
		delete m_fonts[0];
		delete m_fonts[1];
		delete m_fonts[2];
		delete m_fonts[3];
		m_fonts[0] =  m_fonts[1] = m_fonts[2] = m_fonts[3] = 0;
	}
}

void RMText::SetMaxLineLength(int max) {
	maxLineLength = max;
}

void RMText::RemoveThis(CORO_PARAM, bool &result) {
	// Here we can do checks on the number of frames, time spent, etc.
	result = true;
}


void RMText::WriteText(const RMString &text, int nFont, int *time) {
	// Initialises the font (only once)
	if (m_fonts[0] == NULL) {
		m_fonts[0] = new RMFontParla;
		m_fonts[0]->Init();
		m_fonts[1] = new RMFontObj;
		m_fonts[1]->Init();
		m_fonts[2] = new RMFontMacc;
		m_fonts[2]->Init();
		m_fonts[3] = new RMFontCredits;
		m_fonts[3]->Init();
	}

	WriteText(text, m_fonts[nFont], time);
}


void RMText::WriteText(const RMString &text, RMFontColor *font, int *time) {
	RMGfxPrimitive *prim;
	char *p, *old_p;
	int i, j, x, y;
	int len;
	int numchar;
	int width, height;
	char *string;
	int numlines;

	// Set the base colour
	font->SetBaseColor(m_r, m_g, m_b);

	// Destroy the buffer before starting
	Destroy();

	// If the string is empty, do nothing
	if (text == NULL || text[0] == '\0')
		return;

	// Divide the words into lines. In this cycle, X contains the maximum length reached by a line,
	// and the number of lines
	string = p = text;
	i = j = x = 0;
	while (*p != '\0') {
		j += font->StringLen(*p);
		if (j > (((aHorType == HLEFTPAR) && (i > 0)) ? maxLineLength - 25 : maxLineLength)) {
			j -= font->StringLen(*p, p[1]);
			if (j > x) x = j;

			// Back to the first usable space
			//
			// BERNIE: In the original, sentences containing words that exceed the
			// width of a line caused discontinuation of the whole sentence. 
			// This workaround has the partial word broken up so it will still display
			//
			old_p = p;
			while (*p != ' ' && *p != '-' && p > string) p--;

			if (p == string)
				p = old_p;

			// Check if there are any blanks to end
			while (*p == ' ' && *p != '\0') p++;
			if (*p == '\0')
				break;
			p--;
			i++;
			*p = '\0';
			j = 0;
		}
		p++;
	}

	if (j > x) x = j;

	i++;
	numlines = i;

	x += 8;

	// Starting position for the surface: X1, Y
	width = x;
	height = (numlines - 1) * font->LetterHeight() + font->m_fontDimy;

	// Create the surface
	Create(width, height);
	//AddPrim(new RMGfxPrimitive(&m_clear));
	Common::fill(m_buf, m_buf + width * height * 2, 0);

	p = string;

	y = 0;
	numchar = 0;
	for (; i > 0; i--) {
		// Measure the length of the line
		x = 0;
		j = font->StringLen(RMString(p));

		switch (aHorType) {
		case HLEFT:
			x = 0;
			break;

		case HLEFTPAR:
			if (i == numlines)
				x = 0;
			else
				x = 25;
			break;

		case HCENTER:
			x = width / 2 - j / 2;
			break;

		case HRIGHT:
			x = width - j - 1;
			break;
		}

		while (*p != '\0') {
			if (*p == ' ') {
				x += font->StringLen(*p);
				p++;
				continue;
			}

			prim = font->MakeLetterPrimitive(*p, len);
			prim->Dst().x1 = x;
			prim->Dst().y1 = y;
			AddPrim(prim);

			numchar++;

			x += font->StringLen(*p, p[1]);
			p++;
		}
		p++;
		y += font->LetterHeight();
	}

	if (time != NULL)
		*time = 1000 + numchar * (11 - GLOBALS.nCfgTextSpeed) * 14;
}

void RMText::ClipOnScreen(RMGfxPrimitive *prim) {
	// Don't let it go outside the screen
	if (prim->Dst().x1 < 5) prim->Dst().x1 = 5;
	if (prim->Dst().y1 < 5) prim->Dst().y1 = 5;
	if (prim->Dst().x1 + m_dimx > 635) prim->Dst().x1 = 635 - m_dimx;
	if (prim->Dst().y1 + m_dimy > 475) prim->Dst().y1 = 475 - m_dimy;
}

void RMText::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);
	// Horizontally
	if (aHorType == HCENTER)
		prim->Dst().TopLeft() -= RMPoint(m_dimx / 2, 0);
	else if (aHorType == HRIGHT)
		prim->Dst().TopLeft() -= RMPoint(m_dimx, 0);


	// Vertically
	if (aVerType == VTOP) {

	} else if (aVerType == VCENTER) {
		prim->Dst().y1 -= m_dimy / 2;

	} else if (aVerType == VBOTTOM) {
		prim->Dst().y1 -= m_dimy;
	}

	ClipOnScreen(prim);

	CORO_INVOKE_2(RMGfxWoodyBuffer::Draw, bigBuf, prim);

	CORO_END_CODE;
}

/****************************************************************************\
*       RMTextDialog Methods
\****************************************************************************/

RMTextDialog::RMTextDialog() : RMText() {
	m_startTime = 0;
	dst = RMPoint(0, 0);

	m_bSkipStatus = true;
	m_bShowed = true;
	m_bForceTime = false;
	m_bForceNoTime = false;
	m_bAlwaysDisplay = false;
	m_bNoTab = false;
	hCustomSkip = CORO_INVALID_PID_VALUE;
	hCustomSkip2 = CORO_INVALID_PID_VALUE;
	m_input = NULL;

	// Create the event for displaying the end
	hEndDisplay = CoroScheduler.createEvent(false, false);
}

RMTextDialog::~RMTextDialog() {
	CoroScheduler.closeEvent(hEndDisplay);
}

void RMTextDialog::Show(void) {
	m_bShowed = true;
}

void RMTextDialog::Hide(CORO_PARAM) {
	m_bShowed = false;
}

void RMTextDialog::WriteText(const RMString &text, int font, int *time) {
	RMText::WriteText(text, font, &m_time);

	if (time != NULL)
		*time = m_time;
}

void RMTextDialog::WriteText(const RMString &text, RMFontColor *font, int *time) {
	RMText::WriteText(text, font, &m_time);

	if (time != NULL)
		*time = m_time;
}


void RMTextDialog::SetSkipStatus(bool bEnabled) {
	m_bSkipStatus = bEnabled;
}

void RMTextDialog::ForceTime(void) {
	m_bForceTime = true;
}

void RMTextDialog::ForceNoTime(void) {
	m_bForceNoTime = true;
}

void RMTextDialog::SetNoTab(void) {
	m_bNoTab = true;
}

void RMTextDialog::SetForcedTime(uint32 dwTime) {
	m_time = dwTime;
}

void RMTextDialog::SetAlwaysDisplay(void) {
	m_bAlwaysDisplay = true;
}

void RMTextDialog::RemoveThis(CORO_PARAM, bool &result) {
	CORO_BEGIN_CONTEXT;
	bool expired;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	// Presume successful result
	result = true;

	// Don't erase the background
	if (m_bSkipStatus) {
		if (!(GLOBALS.bCfgDubbing && hCustomSkip2 != CORO_INVALID_PID_VALUE))
			if (GLOBALS.bCfgTimerizedText) {
				if (!m_bForceNoTime)
					if (_vm->GetTime() > (uint32)m_time + m_startTime)
						return;
			}

		if (!m_bNoTab)
			if (_vm->GetEngine()->GetInput().GetAsyncKeyState(Common::KEYCODE_TAB))
				return;

		if (!m_bNoTab)
			if (m_input)
				if (m_input->MouseLeftClicked() || m_input->MouseRightClicked())
					return;
	}
	// Erase the background
	else {
		if (!(GLOBALS.bCfgDubbing && hCustomSkip2 != CORO_INVALID_PID_VALUE))
			if (!m_bForceNoTime)
				if (_vm->GetTime() > (uint32)m_time + m_startTime)
					return;
	}

	// If time is forced
	if (m_bForceTime)
		if (_vm->GetTime() > (uint32)m_time + m_startTime)
			return;

	if (hCustomSkip != CORO_INVALID_PID_VALUE) {
		CORO_INVOKE_3(CoroScheduler.waitForSingleObject, hCustomSkip, 0, &_ctx->expired);
		// == WAIT_OBJECT_0
		if (!_ctx->expired)
			return;
	}

	if (GLOBALS.bCfgDubbing && hCustomSkip2 != CORO_INVALID_PID_VALUE) {
		CORO_INVOKE_3(CoroScheduler.waitForSingleObject, hCustomSkip2, 0, &_ctx->expired);
		// == WAIT_OBJECT_0
		if (!_ctx->expired)
			return;
	}

	result = false;

	CORO_END_CODE;
}

void RMTextDialog::Unregister(void) {
	RMGfxTask::Unregister();
	assert(m_nInList == 0);
	CoroScheduler.setEvent(hEndDisplay);
}

void RMTextDialog::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (m_startTime == 0)
		m_startTime = _vm->GetTime();

	if (m_bShowed) {
		if (GLOBALS.bCfgSottotitoli || m_bAlwaysDisplay) {
			prim->Dst().TopLeft() = dst;
			CORO_INVOKE_2(RMText::Draw, bigBuf, prim);
		}
	}

	CORO_END_CODE;
}

void RMTextDialog::SetCustomSkipHandle(uint32 hCustom) {
	hCustomSkip = hCustom;
}

void RMTextDialog::SetCustomSkipHandle2(uint32 hCustom) {
	hCustomSkip2 = hCustom;
}

void RMTextDialog::WaitForEndDisplay(CORO_PARAM) {
	CoroScheduler.waitForSingleObject(coroParam, hEndDisplay, CORO_INFINITE);
}

void RMTextDialog::SetInput(RMInput *input) {
	m_input = input;
}

/****************************************************************************\
*       RMTextDialogScrolling Methods
\****************************************************************************/

RMTextDialogScrolling::RMTextDialogScrolling() {
	curLoc = NULL;
}

RMTextDialogScrolling::RMTextDialogScrolling(RMLocation *loc) {
	curLoc = loc;
	startScroll = loc->ScrollPosition();
}

RMTextDialogScrolling::~RMTextDialogScrolling() {
}

void RMTextDialogScrolling::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim) {
	CORO_BEGIN_CONTEXT;
	RMPoint curDst;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->curDst = dst;

	if (curLoc != NULL)
		dst -= curLoc->ScrollPosition() - startScroll;

	CORO_INVOKE_2(RMTextDialog::Draw, bigBuf, prim);

	dst = _ctx->curDst;

	CORO_END_CODE;
}

void RMTextDialogScrolling::ClipOnScreen(RMGfxPrimitive *prim) {
	// We must not do anything!
}


/****************************************************************************\
*       RMTextItemName Methods
\****************************************************************************/

RMTextItemName::RMTextItemName() : RMText() {
	m_item = NULL;
	SetPriority(220);
}

RMTextItemName::~RMTextItemName() {

}

void RMTextItemName::DoFrame(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMLocation &loc, RMPointer &ptr, RMInventory &inv) {
	CORO_BEGIN_CONTEXT;
	RMItem *lastItem;
	uint32 hThread;
	CORO_END_CONTEXT(_ctx);

	RMString itemName;

	CORO_BEGIN_CODE(_ctx);

	_ctx->lastItem = m_item;

	// Adds to the list if there is need
	if (!m_nInList)
		bigBuf.AddPrim(new RMGfxPrimitive(this));

	// Update the scrolling co-ordinates
	m_curscroll = loc.ScrollPosition();

	// Check if we are on the inventory
	if (inv.ItemInFocus(m_mpos))
		m_item = inv.WhichItemIsIn(m_mpos);
	else
		m_item = loc.WhichItemIsIn(m_mpos);

	itemName = "";

	// If there an item, get its name
	if (m_item != NULL)
		m_item->GetName(itemName);

	// Write it
	WriteText(itemName, 1);

	// Handle the change If the selected item is different from the previous one
	if (_ctx->lastItem != m_item) {
		if (m_item == NULL)
			ptr.SetSpecialPointer(RMPointer::PTR_NONE);
		else {
			_ctx->hThread = mpalQueryDoAction(20, m_item->MpalCode(), 0);
			if (_ctx->hThread == CORO_INVALID_PID_VALUE)
				ptr.SetSpecialPointer(RMPointer::PTR_NONE);
			else
				CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->hThread, CORO_INFINITE);
		}
	}

	CORO_END_CODE;
}


void RMTextItemName::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	// If there is no text, it's pointless to continue
	if (m_buf == NULL)
		return;

	// Set the destination coordinates of the mouse
	prim->Dst().TopLeft() = m_mpos - RMPoint(0, 30);

	CORO_INVOKE_2(RMText::Draw, bigBuf, prim);

	CORO_END_CODE;
}

RMPoint RMTextItemName::GetHotspot() {
	if (m_item == NULL)
		return m_mpos + m_curscroll;
	else
		return m_item->Hotspot();
}

RMItem *RMTextItemName::GetSelectedItem() {
	return m_item;
}

bool RMTextItemName::IsItemSelected() {
	return m_item != NULL;
}

bool RMTextItemName::IsNormalItemSelected() {
	return m_item != NULL && m_itemName.Length() > 0;
}


/****************************************************************************\
*       RMDialogChoice Methods
\****************************************************************************/

RMDialogChoice::RMDialogChoice() {
	RMResRaw dlg1(RES_I_DLGTEXT);
	RMResRaw dlg2(RES_I_DLGTEXTLINE);
	RMRes dlgpal(RES_I_DLGTEXTPAL);

	DlgText.Init(dlg1, dlg1.Width(), dlg1.Height());
	DlgTextLine.Init(dlg2, dlg2.Width(), dlg2.Height());

	DlgText.LoadPaletteWA(dlgpal);
	DlgTextLine.LoadPaletteWA(dlgpal);

	hUnreg = CoroScheduler.createEvent(false, false);
	bRemoveFromOT = false;
}

RMDialogChoice::~RMDialogChoice() {
	CoroScheduler.closeEvent(hUnreg);
}

void RMDialogChoice::Unregister(void) {
	RMGfxWoodyBuffer::Unregister();
	assert(!m_nInList);
	CoroScheduler.pulseEvent(hUnreg);

	bRemoveFromOT = false;
}

void RMDialogChoice::Init(void) {
	m_numChoices = 0;
	m_drawedStrings = NULL;
	m_ptDrawStrings = NULL;
	m_curSelection = -1;

	Create(640, 477);
	SetPriority(140);
}


void RMDialogChoice::Close(void) {
	if (m_drawedStrings != NULL) {
		delete[] m_drawedStrings;
		m_drawedStrings = NULL;
	}

	if (m_ptDrawStrings != NULL) {
		delete[] m_ptDrawStrings;
		m_ptDrawStrings = NULL;
	}

	Destroy();
}

void RMDialogChoice::SetNumChoices(int num) {
	int i;

	m_numChoices = num;
	m_curAdded = 0;

	// Allocate space for drawn strings
	m_drawedStrings = new RMText[num];
	m_ptDrawStrings = new RMPoint[num];

	// Initialisation
	for (i = 0; i < m_numChoices; i++) {
		m_drawedStrings[i].SetColor(0, 255, 0);
		m_drawedStrings[i].SetAlignType(RMText::HLEFTPAR, RMText::VTOP);
		m_drawedStrings[i].SetMaxLineLength(600);
		m_drawedStrings[i].SetPriority(10);
	}
}

void RMDialogChoice::AddChoice(const RMString &string) {
	// Draw the string
	assert(m_curAdded < m_numChoices);
	m_drawedStrings[m_curAdded++].WriteText(string, 0);
}

void RMDialogChoice::Prepare(CORO_PARAM) {
	CORO_BEGIN_CONTEXT;
	int i;
	RMPoint ptPos;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	AddPrim(new RMGfxPrimitive(&DlgText, RMPoint(0, 0)));
	AddPrim(new RMGfxPrimitive(&DlgTextLine, RMPoint(0, 155)));
	AddPrim(new RMGfxPrimitive(&DlgTextLine, RMPoint(0, 155 + 83)));
	AddPrim(new RMGfxPrimitive(&DlgTextLine, RMPoint(0, 155 + 83 + 83)));
	AddPrim(new RMGfxPrimitive(&DlgTextLine, RMPoint(0, 155 + 83 + 83 + 83)));

	_ctx->ptPos.Set(20, 90);

	for (_ctx->i = 0; _ctx->i < m_numChoices; _ctx->i++) {
		AddPrim(new RMGfxPrimitive(&m_drawedStrings[_ctx->i], _ctx->ptPos));
		m_ptDrawStrings[_ctx->i] = _ctx->ptPos;
		_ctx->ptPos.Offset(0, m_drawedStrings[_ctx->i].Dimy() + 15);
	}

	CORO_INVOKE_0(DrawOT);
	ClearOT();

	m_ptDrawPos.Set(0, 480 - _ctx->ptPos.y);

	CORO_END_CODE;
}

void RMDialogChoice::SetSelected(CORO_PARAM, int pos) {
	CORO_BEGIN_CONTEXT;
	RMGfxBox box;
	RMRect rc;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (pos == m_curSelection)
		return;

	_ctx->box.SetPriority(5);

	if (m_curSelection != -1) {
		_ctx->box.SetColor(0xCC, 0xCC, 0xFF);
		_ctx->rc.TopLeft() = RMPoint(18, m_ptDrawStrings[m_curSelection].y);
		_ctx->rc.BottomRight() = _ctx->rc.TopLeft() + RMPoint(597, m_drawedStrings[m_curSelection].Dimy());
		AddPrim(new RMGfxPrimitive(&_ctx->box, _ctx->rc));

		AddPrim(new RMGfxPrimitive(&m_drawedStrings[m_curSelection], m_ptDrawStrings[m_curSelection]));
		CORO_INVOKE_0(DrawOT);
		ClearOT();
	}

	if (pos != -1) {
		_ctx->box.SetColor(100, 100, 100);
		_ctx->rc.TopLeft() = RMPoint(18, m_ptDrawStrings[pos].y);
		_ctx->rc.BottomRight() = _ctx->rc.TopLeft() + RMPoint(597, m_drawedStrings[pos].Dimy());
		AddPrim(new RMGfxPrimitive(&_ctx->box, _ctx->rc));
		AddPrim(new RMGfxPrimitive(&m_drawedStrings[pos], m_ptDrawStrings[pos]));
	}

	CORO_INVOKE_0(DrawOT);
	ClearOT();

	m_curSelection = pos;

	CORO_END_CODE;
}

void RMDialogChoice::Show(CORO_PARAM, RMGfxTargetBuffer *bigBuf) {
	CORO_BEGIN_CONTEXT;
	RMPoint destpt;
	int deltay;
	int starttime;
	int elaps;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_0(Prepare);
	m_bShow = false;

	if (!m_nInList && bigBuf != NULL)
		bigBuf->AddPrim(new RMGfxPrimitive(this));

	if (0) {
		m_bShow = true;
	} else {
		_ctx->starttime = _vm->GetTime();
		_ctx->deltay = 480 - m_ptDrawPos.y;
		_ctx->destpt = m_ptDrawPos;
		m_ptDrawPos.Set(0, 480);

		if (!m_nInList && bigBuf != NULL)
			bigBuf->AddPrim(new RMGfxPrimitive(this));
		m_bShow = true;

		_ctx->elaps = 0;
		while (_ctx->elaps < 700) {
			CORO_INVOKE_0(MainWaitFrame);
			MainFreeze();
			_ctx->elaps = _vm->GetTime() - _ctx->starttime;
			m_ptDrawPos.y = 480 - ((_ctx->deltay * 100) / 700 * _ctx->elaps) / 100;
			MainUnfreeze();
		}

		m_ptDrawPos.y = _ctx->destpt.y;
	}

	CORO_END_CODE;
}

void RMDialogChoice::Draw(CORO_PARAM, RMGfxTargetBuffer &bigBuf, RMGfxPrimitive *prim) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (m_bShow == false)
		return;

	prim->SetDst(m_ptDrawPos);
	CORO_INVOKE_2(RMGfxSourceBuffer16::Draw, bigBuf, prim);

	CORO_END_CODE;
}


void RMDialogChoice::Hide(CORO_PARAM) {
	CORO_BEGIN_CONTEXT;
	int deltay;
	int starttime;
	int elaps;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (1) {
		_ctx->starttime = _vm->GetTime();

		_ctx->deltay = 480 - m_ptDrawPos.y;
		_ctx->elaps = 0;
		while (_ctx->elaps < 700) {
			CORO_INVOKE_0(MainWaitFrame);
			MainFreeze();
			_ctx->elaps = _vm->GetTime() - _ctx->starttime;
			m_ptDrawPos.y = 480 - ((_ctx->deltay * 100) / 700 * (700 - _ctx->elaps)) / 100;
			MainUnfreeze();
		}
	}

	m_bShow = false;
	bRemoveFromOT = true;
	CORO_INVOKE_2(CoroScheduler.waitForSingleObject, hUnreg, CORO_INFINITE);

	CORO_END_CODE;
}


void RMDialogChoice::RemoveThis(CORO_PARAM, bool &result) {
	result = bRemoveFromOT;
}

void RMDialogChoice::DoFrame(CORO_PARAM, RMPoint ptMousePos) {
	CORO_BEGIN_CONTEXT;
	int i;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (ptMousePos.y > m_ptDrawPos.y) {
		for (_ctx->i = 0; _ctx->i < m_numChoices; _ctx->i++) {
			if ((ptMousePos.y >= m_ptDrawPos.y + m_ptDrawStrings[_ctx->i].y) && (ptMousePos.y < m_ptDrawPos.y + m_ptDrawStrings[_ctx->i].y + m_drawedStrings[_ctx->i].Dimy())) {
				CORO_INVOKE_1(SetSelected, _ctx->i);
				break;
			}
		}

		if (_ctx->i == m_numChoices)
			CORO_INVOKE_1(SetSelected, -1);
	}

	CORO_END_CODE;
}

int RMDialogChoice::GetSelection(void) {
	return m_curSelection;
}

} // End of namespace Tony