scummvm/engines/drascula/animation.cpp

/* 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.
 *
 * $URL$
 * $Id$
 *
 */

#include "drascula/drascula.h"
#include "drascula/texts.h"

namespace Drascula {

static const int interf_x[] ={ 1, 65, 129, 193, 1, 65, 129 };
static const int interf_y[] ={ 51, 51, 51, 51, 83, 83, 83 };

void DrasculaEngine::animation_1_1() {
	int l, l2, p;
	int pos_pixel[6];

	while (term_int == 0) {
		playmusic(29);
		fliplay("logoddm.bin", 9);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		delay(600);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		delay(340);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		playmusic(26);
		delay(500);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		fliplay("logoalc.bin", 8);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		loadPic("cielo.alg");
		decompressPic(dir_zona_pantalla, 256);
		Negro();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		FundeDelNegro(2);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		delay(900);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		color_abc(ROJO);
		centra_texto("Transilvanya, 1993 d.c.", 160, 100);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		delay(1000);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		delay(1200);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		fliplay("scrollb.bin", 9);

		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		comienza_sound("s5.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("scr2.bin", 17);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		fin_sound_corte();
		anima("scr3.bin", 17);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		loadPic("cielo2.alg");
		decompressPic(dir_zona_pantalla, 256);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		FundeAlNegro(1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();

		loadPic("96.alg");
		decompressPic(dir_hare_frente, COMPLETA);
		loadPic("103.alg");
		decompressPic(dir_dibujo1, MEDIA);
		loadPic("104.alg");
		decompressPic(dir_dibujo3, 1);
		loadPic("aux104.alg");
		decompressPic(dir_dibujo2, 1);

		playmusic(4);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		delay(400);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		for (l2 = 0; l2 < 3; l2++)
			for (l = 0; l < 7; l++) {
				copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
				copyBackground(interf_x[l], interf_y[l], 156, 45, 63, 31, dir_dibujo2, dir_zona_pantalla);
				updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
				if (getscan() == Common::KEYCODE_ESCAPE) {
					term_int = 1;
					break;
				}
				pause(3);
			}
			if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
				break;

		l2 = 0; p = 0;
		pos_pixel[3] = 45;
		pos_pixel[4] = 63;
		pos_pixel[5] = 31;

		for (l = 0; l < 180; l++) {
			copyBackground(0, 0, 320 - l, 0, l, 200, dir_dibujo3, dir_zona_pantalla);
			copyBackground(l, 0, 0, 0, 320 - l, 200, dir_dibujo1, dir_zona_pantalla);

			pos_pixel[0] = interf_x[l2];
			pos_pixel[1] = interf_y[l2];
			pos_pixel[2] = 156 - l;

			copyRectClip(pos_pixel, dir_dibujo2, dir_zona_pantalla);
			updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
			p++;
			if (p == 6) {
				p = 0;
				l2++;
			}
			if (l2 == 7)
				l2 = 0;
			if (getscan() == Common::KEYCODE_ESCAPE) {
				term_int = 1;
				break;
			}
		}
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		copyBackground(0, 0, 0, 0, 320, 200, dir_zona_pantalla, dir_dibujo1);

		habla_dr_grande(TEXTD1, "D1.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		clearRoom();

		loadPic("100.alg");
		decompressPic(dir_dibujo1, MEDIA);
		loadPic("auxigor.alg");
		decompressPic(dir_hare_frente, 1);
		loadPic("auxdr.alg");
		decompressPic(dir_hare_fondo, 1);
		sentido_dr = 0;
		x_dr = 129;
		y_dr = 95;
		sentido_igor = 1;
		x_igor = 66;
		y_igor = 97;

		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_igor_dch(TEXTI8, "I8.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_dr_izq(TEXTD2, "d2.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_dr_izq(TEXTD3, "d3.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("lib.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("lib2.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		color_solo = ROJO;
		loadPic("plan1.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(10);
		habla_solo(TEXTD4,"d4.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		loadPic("plan1.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_solo(TEXTD5, "d5.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("lib2.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		loadPic("plan2.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(20);
		habla_solo(TEXTD6, "d6.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("lib2.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		loadPic("plan3.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(20);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_solo(TEXTD7, "d7.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		loadPic("plan3.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_solo(TEXTD8, "d8.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		loadPic("100.alg");
		decompressPic(dir_dibujo1, MEDIA);
		MusicFadeout();
		stopmusic();
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_dch(TEXTI9, "I9.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_dr_izq(TEXTD9, "d9.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_dch(TEXTI10, "I10.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		playmusic(11);
		habla_dr_izq(TEXTD10, "d10.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("rayo1.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		comienza_sound("s5.als");
		anima("rayo2.bin", 15);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("frel2.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("frel.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("frel.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		fin_sound_corte();
		clearRoom();
		Negro();
		playmusic(23);
		FundeDelNegro(0);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_dr = 1;
		habla_igor_dch(TEXTI1, "I1.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_dr_dch(TEXTD11, "d11.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_dr = 3;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(1);
		sentido_dr = 0;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_dr_izq(TEXTD12, "d12.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_dr = 3;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(1);
		sentido_dr = 1;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_igor_dch(TEXTI2, "I2.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		pause(13);
		habla_dr_dch(TEXTD13,"d13.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_dr = 3;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(1);
		sentido_dr = 0;
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		pon_igor();
		pon_dr();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		habla_dr_izq(TEXTD14, "d14.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_dch(TEXTI3, "I3.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_dr_izq(TEXTD15, "d15.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_dch(TEXTI4, "I4.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_dr_izq(TEXTD16, "d16.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_dch(TEXTI5, "I5.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_igor = 3;
		habla_dr_izq(TEXTD17, "d17.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		pause(18);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_igor_frente(TEXTI6, "I6.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		FundeAlNegro(0);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();

		playmusic(2);
		pause(5);
		fliplay("intro.bin", 12);
		term_int = 1;
	}
	clearRoom();
	loadPic("96.alg");
	decompressPic(dir_hare_frente, COMPLETA);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
}

void DrasculaEngine::habla_dr_grande(const char *dicho, const char *filename) {
	int tiempou;
	long tiempol;
	int x_habla[4] = {47, 93, 139, 185};
	int cara;
	int l = 0;

	int longitud;
	longitud = strlen(dicho);

	tiempol = _system->getMillis();
	tiempou = (unsigned int)tiempol / 2;
	_rnd->setSeed(tiempou);

	buffer_teclado();

	color_abc(ROJO);

	if (hay_sb == 1) {
		sku = new Common::File;
		sku->open(filename);
		if (!sku->isOpen()) {
			error("no puedo abrir archivo de voz");
		}
		ctvd_init(2);
		ctvd_speaker(1);
		ctvd_output(sku);
	}

bucless:

	cara = _rnd->getRandomNumber(3);
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	copyBackground(interf_x[l] + 24, interf_y[l], 0, 45, 39, 31, dir_dibujo2, dir_zona_pantalla);
	copyBackground(x_habla[cara], 1, 171, 68, 45, 48, dir_dibujo2, dir_zona_pantalla);
	l++;
	if (l == 7)
		l = 0;

	if (con_voces == 0)
		centra_texto(dicho, 191, 69);

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(3);

	byte key = getscan();
	if (key == Common::KEYCODE_ESCAPE)
		term_int = 1;

	if (key != 0)
		ctvd_stop();
	buffer_teclado();
	if (hay_sb == 1) {
		if (LookForFree() != 0)
			goto bucless;
		delete sku;
		sku = NULL;
		ctvd_terminate();
	} else {
		longitud = longitud - 2;
		if (longitud > 0)
			goto bucless;
	}
}

void DrasculaEngine::animation_2_1() {
	int l;

	lleva_al_hare(231, 91);
	hare_se_ve = 0;

	term_int = 0;

	for (;;) {
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		anima("ag.bin", 14);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		loadPic("an11y13.alg");
		decompressPic(dir_hare_dch, 1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		habla_tabernero(TEXTT22, "T22.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		loadPic("97.alg");
		decompressPic(dir_hare_dch, 1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		pause(4);
		comienza_sound("s1.als");
		hipo(18);
		fin_sound();
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		clearRoom();
		stopmusic();
		corta_musica = 1;
		memset(dir_zona_pantalla, 0, 64000);
		color_solo = BLANCO;
		pause(80);

		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_solo(TEXTBJ1, "BJ1.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();
		loadPic("bj.alg");
		decompressPic(dir_zona_pantalla, MEDIA);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		Negro();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		FundeDelNegro(1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		color_solo = AMARILLO;
		habla_solo(TEXT214, "214.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		clearRoom();

		loadPic("16.alg");
		decompressPic(dir_dibujo1, MEDIA);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		loadPic("auxbj.alg");
		decompressPic(dir_dibujo3, 1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		strcpy(num_room, "16.alg");

		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		for (l = 0; l < 200; l++)
			factor_red[l] = 99;
		x_bj = 170;
		y_bj = 90;
		sentido_bj = 0;
		hare_x = 91;
		hare_y = 95;
		sentido_hare = 1;
		hare_se_ve = 1;
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		loadPic("97g.alg");
		decompressPic(dir_hare_dch, 1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		anima("lev.bin", 15);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;

		lleva_al_hare(100 + ancho_hare / 2, 99 + alto_hare);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_hare = 1;
		hare_x = 100;
		hare_y = 95;

		habla_bj(TEXTBJ2, "BJ2.als");
		hablar(TEXT215, "215.als");
		habla_bj(TEXTBJ3, "BJ3.als");
		hablar(TEXT216, "216.als");
		habla_bj(TEXTBJ4, "BJ4.als");
		habla_bj(TEXTBJ5, "BJ5.als");
		habla_bj(TEXTBJ6, "BJ6.als");
		hablar(TEXT217, "217.als");
		habla_bj(TEXTBJ7, "BJ7.als");
		hablar(TEXT218, "218.als");
		habla_bj(TEXTBJ8, "BJ8.als");
		hablar(TEXT219, "219.als");
		habla_bj(TEXTBJ9, "BJ9.als");
		hablar(TEXT220, "220.als");
		hablar(TEXT221, "221.als");
		habla_bj(TEXTBJ10, "BJ10.als");
		hablar(TEXT222, "222.als");
		anima("gaf.bin", 15);
		anima("bjb.bin", 14);
		playmusic(9);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		loadPic("97.alg");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		decompressPic(dir_hare_dch, 1);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		updateRoom();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		pause(120);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_solo(TEXT223, "223.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		color_solo = BLANCO;
		updateRoom();
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(110);
		habla_solo(TEXTBJ11, "BJ11.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		updateRoom();
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		pause(118);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		lleva_al_hare(132, 97 + alto_hare);
		pause(60);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		hablar(TEXT224, "224.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		habla_bj(TEXTBJ12, "BJ12.als");
		lleva_al_hare(157, 98 + alto_hare);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		anima("bes.bin", 16);
		playmusic(11);
		anima("rap.bin", 16);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_hare = 3;
		strcpy(num_room, "no_bj.alg");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		pause(8);
		updateRoom();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		hablar(TEXT225, "225.als");
		pause(76);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		sentido_hare = 1;
		updateRoom();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		hablar(TEXT226, "226.als");
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		updateRoom();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(30);
		if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
			break;
		hablar(TEXT227,"227.als");
		FundeAlNegro(0);
		break;
	}
}

void DrasculaEngine::animation_3_1() {
	loadPic("an11y13.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT192, "192.als");
	habla_tabernero(TEXTT1, "t1.als");
	hablar(TEXT193, "193.als");
	habla_tabernero(TEXTT2, "t2.als");
	hablar(TEXT194, "194.als");
	habla_tabernero(TEXTT3, "t3.als");
	hablar(TEXT195, "195.als");
	habla_tabernero(TEXTT4, "t4.als");
	hablar(TEXT196, "196.als");
	habla_tabernero(TEXTT5, "t5.als");
	habla_tabernero(TEXTT6, "t6.als");
	hablar(TEXT197, "197.als");
	habla_tabernero(TEXTT7, "t7.als");
	hablar(TEXT198, "198.als");
	habla_tabernero(TEXTT8, "t8.als");
	hablar(TEXT199, "199.als");
	habla_tabernero(TEXTT9, "t9.als");
	hablar(TEXT200, "200.als");
	hablar(TEXT201, "201.als");
	hablar(TEXT202, "202.als");

	flags[0] = 1;

	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_4_1() {
	loadPic("an12.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT205,"205.als");

	updateRefresh_pre();

	copyBackground(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	updateScreen(228,112, 228,112, 47,60, dir_zona_pantalla);

	pause(3);

	updateRefresh_pre();

	copyBackground(49, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	pon_hare();

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(3);
	stopmusic();
	flags[11] = 1;

	habla_pianista(TEXTP1, "p1.als");
	hablar(TEXT206, "206.als");
	habla_pianista(TEXTP2, "p2.als");
	hablar(TEXT207, "207.als");
	habla_pianista(TEXTP3, "p3.als");
	hablar(TEXT208, "208.als");
	habla_pianista(TEXTP4, "p4.als");
	hablar(TEXT209, "209.als");

	flags[11] = 0;
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_1_2() {
	lleva_al_hare(178, 121);
	lleva_al_hare(169, 135);
}

void DrasculaEngine::animation_2_2() {
	int n, x=0;

	sentido_hare = 0;
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	pon_hare();
	updateRefresh();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	loadPic("an2_1.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("an2_2.alg");
	decompressPic(dir_hare_dch, 1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	copyBackground(1, 1, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
		updateScreen(201,87, 201,87, 50,52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 55, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
		updateScreen(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++){
		x++;
		copyBackground(x, 109, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
		updateScreen(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	x = 0;
	comienza_sound("s2.als");

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
		updateScreen(201,87, 201,87, 50,52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 55, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
		updateScreen(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}
	x = 0;

	for (n = 0; n < 2; n++) {
		x++;
		copyBackground(x, 109, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
		updateScreen(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	fin_sound();

	pause (4);

	comienza_sound("s1.als");
	hipo_sin_nadie(12);
	fin_sound();
}

void DrasculaEngine::animation_3_2() {
	lleva_al_hare(163, 106);
	lleva_al_hare(287, 101);
	sentido_hare = 0;
}

void DrasculaEngine::animation_4_2() {
	stopmusic();
	flags[9] = 1;

	pause(12);
	hablar(TEXTD56, "d56.als");
	pause(8);

	clearRoom();
	loadPic("ciego1.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("ciego2.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("ciego3.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("ciego4.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("ciego5.alg");
	decompressPic(dir_hare_frente, 1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(10);

	habla_ciego(TEXTD68, "d68.als", "44472225500022227555544444664447222550002222755554444466");
	pause(5);
	habla_hacker(TEXTD57, "d57.als");
	pause(6);
	habla_ciego(TEXTD69,"d69.als","444722255000222275555444446655033336666664464402256555005504450005446");
	pause(4);
	habla_hacker(TEXTD58,"d58.als");
	habla_ciego(TEXTD70,"d70.als", "4447222550002222755554444466550333226220044644550044755665500440006655556666655044744656550446470046");
	delay(14);
	habla_hacker(TEXTD59,"d59.als");
	habla_ciego(TEXTD71,"d71.als", "550330227556444744446660004446655544444722255000222275555444446644444");
	habla_hacker(TEXTD60,"d60.als");
	habla_ciego(TEXTD72,"d72.als", "55033022755644455550444744400044504447222550002222755554444466000");
	habla_hacker(TEXTD61,"d61.als");
	habla_ciego(TEXTD73,"d73.als", "55033022755644444447227444466644444722255000222275555444446664404446554440055655022227500544446044444446");
	habla_hacker(TEXTD62,"d62.als");
	habla_ciego(TEXTD74,"d74.als", "55033022755644444472244472225500022227555544444662550002222755444446666055522275550005550022200222000222666");
	habla_hacker(TEXTD63,"d63.als");
	habla_ciego(TEXTD75,"d75.als", "44447774444555500222205550444444466666225266444755444722255000222275555444446633223220044022203336227555770550444660557220553302224477777550550550222635533000662220002275572227025555");
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	_system->delayMillis(1);
	habla_hacker(TEXTD64, "d64.als");
	habla_ciego(TEXTD76, "d76.als", "5555500004445550330244472225500022227555544444662755644446666005204402266222003332222774440446665555005550335544444");

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(14);

	clearRoom();

	playmusic(musica_room);
	loadPic("9.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("aux9.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	sin_verbo();

	flags[9] = 0;
	flags[4] = 1;
}

void DrasculaEngine::animation_8_2() {
	habla_pianista(TEXTP6, "P6.als");
	hablar(TEXT358, "358.als");
	habla_pianista(TEXTP7, "P7.als");
	habla_pianista(TEXTP8, "P8.als");
}

void DrasculaEngine::animation_9_2() {
	habla_pianista(TEXTP9, "P9.als");
	habla_pianista(TEXTP10, "P10.als");
	habla_pianista(TEXTP11, "P11.als");
}

void DrasculaEngine::animation_10_2() {
	habla_pianista(TEXTP12, "P12.als");
	hablar(TEXT361, "361.als");
	pause(40);
	habla_pianista(TEXTP13, "P13.als");
	hablar(TEXT362, "362.als");
	habla_pianista(TEXTP14, "P14.als");
	hablar(TEXT363, "363.als");
	habla_pianista(TEXTP15, "P15.als");
	hablar(TEXT364, "364.als");
	habla_pianista(TEXTP16, "P16.als");
}

void DrasculaEngine::animation_14_2() {
	int n, pos_cabina[6];
	int l = 0;

	loadPic("an14_2.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an14_1.alg");

	pos_cabina[0] = 150;
	pos_cabina[1] = 6;
	pos_cabina[2] = 69;
	pos_cabina[3] = -160;
	pos_cabina[4] = 158;
	pos_cabina[5] = 161;

	for (n = -160; n <= 0; n = n + 5 + l) {
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		updateRefresh_pre();
		pon_hare();
		pon_vb();
		pos_cabina[3] = n;
		copyRectClip(pos_cabina, dir_hare_fondo, dir_zona_pantalla);
		updateRefresh();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		l = l + 1;
	}

	flags[24] = 1;

	decompressPic(dir_dibujo1, 1);

	comienza_sound("s7.als");
	hipo(15);

	fin_sound();

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
}

void DrasculaEngine::animation_15_2() {
	habla_borracho(TEXTB8, "B8.als");
	pause(7);
	habla_borracho(TEXTB9, "B9.als");
	habla_borracho(TEXTB10, "B10.als");
	habla_borracho(TEXTB11, "B11.als");
}

void DrasculaEngine::animation_16_2() {
	int l;

	habla_borracho(TEXTB12, "B12.als");
	hablar(TEXT371, "371.als");

	clearRoom();

	playmusic(32);
	int key = getscan();
	if (key != 0)
		goto asco;

	color_abc(VERDE_OSCURO);

	loadPic("his1.alg");
	decompressPic(dir_dibujo1, MEDIA);
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	centra_texto(HIS1, 180, 180);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	key = getscan();
	if (key != 0)
		goto asco;

	_system->delayMillis(4);
	key = getscan();
	if (key != 0)
		goto asco;

	FundeAlNegro(1);
	key = getscan();
	if (key != 0)
		goto asco;

	clearRoom();
	loadPic("his2.alg");
	decompressPic(dir_dibujo1, MEDIA);
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	centra_texto(HIS2, 180, 180);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	key = getscan();
	if (key != 0)
		goto asco;

	_system->delayMillis(4);
	key = getscan();
	if (key != 0)
		goto asco;

	FundeAlNegro(1);
	key = getscan();
	if (key != 0)
		goto asco;

	clearRoom();
	loadPic("his3.alg");
	decompressPic(dir_dibujo1, MEDIA);
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	centra_texto(HIS3, 180, 180);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	key = getscan();
	if (key != 0)
		goto asco;

	_system->delayMillis(4);
	key = getscan();
	if (key != 0)
		goto asco;

	FundeAlNegro(1);

	clearRoom();
	loadPic("his4_1.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("his4_2.alg");
	decompressPic(dir_dibujo3, 1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo3, dir_zona_pantalla);
	centra_texto(HIS1, 180, 180);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	key = getscan();
	if (key != 0)
		goto asco;

	_system->delayMillis(4);
	key = getscan();
	if (key != 0)
		goto asco;

	for (l = 1; l < 200; l++) {
		copyBackground(0, 0, 0, l, 320, 200 - l, dir_dibujo3, dir_zona_pantalla);
		copyBackground(0, 200 - l, 0, 0, 320, l, dir_dibujo1, dir_zona_pantalla);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		key = getscan();
		if (key != 0)
			goto asco;
	}

	pause(5);
	FundeAlNegro(2);
	clearRoom();

asco:
	loadPic(roomDisk);
	decompressPic(dir_dibujo3, 1);
	loadPic(num_room);
	decompressPic(dir_dibujo1, MEDIA);
	Negro();
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	FundeDelNegro(0);
	if (musica_room != 0)
		playmusic(musica_room);
	else
		stopmusic();
}

void DrasculaEngine::animation_17_2() {
	habla_borracho(TEXTB13, "B13.als");
	habla_borracho(TEXTB14, "B14.als");
	flags[40] = 1;
}

void DrasculaEngine::animation_19_2() {
	habla_vbpuerta(TEXTVB5, "VB5.als");
}

void DrasculaEngine::animation_20_2() {
	habla_vbpuerta(TEXTVB7, "VB7.als");
	habla_vbpuerta(TEXTVB8, "VB8.als");
	hablar(TEXT383, "383.als");
	habla_vbpuerta(TEXTVB9, "VB9.als");
	hablar(TEXT384, "384.als");
	habla_vbpuerta(TEXTVB10, "VB10.als");
	hablar(TEXT385, "385.als");
	habla_vbpuerta(TEXTVB11, "VB11.als");
	if (flags[23] == 0) {
		hablar(TEXT350, "350.als");
		habla_vbpuerta(TEXTVB57, "VB57.als");
	} else {
		hablar(TEXT386, "386.als");
		habla_vbpuerta(TEXTVB12, "VB12.als");
		flags[18] = 0;
		flags[14] = 1;
		abre_puerta(15, 1);
		sal_de_la_habitacion(1);
		animation_23_2();
		sal_de_la_habitacion(0);
		flags[21] = 0;
		flags[24] = 0;
		sentido_vb = 1;
		vb_x = 120;

		rompo_y_salgo = 1;
	}
}

void DrasculaEngine::animation_21_2() {
	habla_vbpuerta(TEXTVB6, "VB6.als");
}

void DrasculaEngine::animation_23_2() {
	loadPic("an24.alg");
	decompressPic(dir_hare_frente, 1);

	flags[21] = 1;

	if (flags[25] == 0) {
		habla_vb(TEXTVB13, "VB13.als");
		habla_vb(TEXTVB14, "VB14.als");
		pause(10);
		hablar(TEXT387, "387.als");
	}

	habla_vb(TEXTVB15, "VB15.als");
	lleva_vb(42);
	sentido_vb = 1;
	habla_vb(TEXTVB16, "VB16.als");
	sentido_vb = 2;
	lleva_al_hare(157, 147);
	lleva_al_hare(131, 149);
	sentido_hare = 0;
	animation_14_2();
	if (flags[25] == 0)
		habla_vb(TEXTVB17, "VB17.als");
	pause(8);
	sentido_vb = 1;
	habla_vb(TEXTVB18, "VB18.als");

	if (flags[29] == 0)
		animation_23_anexo();
	else
		animation_23_anexo2();

	sentido_vb = 2;
	animation_25_2();
	lleva_vb(99);

	if (flags[29] == 0) {
		habla_vb(TEXTVB19, "VB19.als");
		if (flags[25] == 0) {
			habla_vb(TEXTVB20,"VB20.als");
			if (resta_objeto(7) == 0)
				flags[30] = 1;
			if (resta_objeto(18) == 0)
				flags[31] = 1;
			if (resta_objeto(19) == 0)
				flags[32] = 1;
		}
		habla_vb(TEXTVB21, "VB21.als");
	} else
		animation_27_2();

	flags[25] = 1;
	rompo_y_salgo = 1;
}

void DrasculaEngine::animation_23_anexo() {
	int n, p_x = hare_x + 2, p_y = hare_y - 3;
	int x[] = {1, 38, 75, 112, 75, 112, 75, 112, 149, 112, 149, 112, 149, 186, 223, 260,
				1, 38, 75, 112, 149, 112, 149, 112, 149, 112, 149, 186, 223, 260, 260, 260, 260, 223};
	int y[] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 76, 76, 76, 76, 76, 76, 76,
				76, 76, 76, 76, 76, 76, 76, 1, 1, 1, 1};

	loadPic("an23.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 34; n++) {
		copyRect(p_x, p_y, p_x, p_y, 36, 74, dir_dibujo1, dir_zona_pantalla);
		copyRect(x[n], y[n], p_x, p_y, 36, 74, dir_hare_fondo, dir_zona_pantalla);
		updateRefresh();
		updateScreen(p_x, p_y, p_x, p_y, 36, 74, dir_zona_pantalla);
		pause(5);
	}

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
}

void DrasculaEngine::animation_23_anexo2() {
	int n, p_x = hare_x + 4, p_y = hare_y;
	int x[] = {1, 35, 69, 103, 137, 171, 205, 239, 273, 1, 35, 69, 103, 137};
	int y[] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 73, 73, 73, 73, 73};

	pause(50);

	loadPic("an23_2.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 14; n++) {
		copyRect(p_x, p_y, p_x, p_y, 33, 71, dir_dibujo1, dir_zona_pantalla);
		copyRect(x[n], y[n], p_x, p_y, 33, 71, dir_hare_fondo, dir_zona_pantalla);
		updateRefresh();
		updateScreen(p_x,p_y, p_x,p_y, 33,71, dir_zona_pantalla);
		pause(5);
	}

	loadPic("99.alg");
	decompressPic(dir_hare_fondo,1);
}

void DrasculaEngine::animation_25_2() {
	int n, pos_cabina[6];

	loadPic("an14_2.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("18.alg");
	decompressPic(dir_dibujo1, 1);

	pos_cabina[0] = 150;
	pos_cabina[1] = 6;
	pos_cabina[2] = 69;
	pos_cabina[3] = 0;
	pos_cabina[4] = 158;
	pos_cabina[5] = 161;

	flags[24] = 0;

	comienza_sound("s6.als");

	for (n = 0; n >= -160; n = n - 8) {
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);

		updateRefresh_pre();
		pon_hare();
		pon_vb();

		pos_cabina[3] = n;

		copyRectClip(pos_cabina, dir_hare_fondo, dir_zona_pantalla);

		updateRefresh();
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	}

	fin_sound();

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
}

void DrasculaEngine::animation_27_2() {
	flags[22] = 1;

	sin_verbo();
	resta_objeto(23);
	suma_objeto(11);

	habla_vb(TEXTVB23, "VB23.als");
	habla_vb(TEXTVB24, "VB24.als");
	if (flags[30] == 1)
		suma_objeto(7);
	if (flags[31] == 1)
		suma_objeto(18);
	if (flags[32] == 1)
		suma_objeto(19);
	habla_vb(TEXTVB25,"VB25.als");
	habla_vb(TEXTVB26,"VB26.als");
}

void DrasculaEngine::animation_28_2() {
	habla_vb(TEXTVB27, "VB27.als");
	habla_vb(TEXTVB28, "VB28.als");
	habla_vb(TEXTVB29, "VB29.als");
	habla_vb(TEXTVB30, "VB30.als");
}

void DrasculaEngine::animation_29_2() {
	if (flags[33] == 0) {
		habla_vb(TEXTVB32, "VB32.als");
		hablar(TEXT398, "398.als");
		habla_vb(TEXTVB33, "VB33.als");
		hablar(TEXT399, "399.als");
		habla_vb(TEXTVB34, "VB34.als");
		habla_vb(TEXTVB35, "VB35.als");
		hablar(TEXT400, "400.als");
		habla_vb(TEXTVB36, "VB36.als");
		habla_vb(TEXTVB37, "VB37.als");
		hablar(TEXT386, "386.als");
		habla_vb(TEXTVB38, "VB38.als");
		habla_vb(TEXTVB39, "VB39.als");
		hablar(TEXT401, "401.als");
		habla_vb(TEXTVB40, "VB40.als");
		habla_vb(TEXTVB41, "VB41.als");
		flags[33] = 1;
	} else
		habla_vb(TEXTVB43, "VB43.als");

	hablar(TEXT402, "402.als");
	habla_vb(TEXTVB42, "VB42.als");

	if (flags[38] == 0) {
		hablar(TEXT403, "403.als");
		rompo_y_salgo = 1;
	} else
		hablar(TEXT386, "386.als");
}

void DrasculaEngine::animation_30_2() {
	habla_vb(TEXTVB31, "VB31.als");
	hablar(TEXT396, "396.als");
}

void DrasculaEngine::animation_31_2() {
	habla_vb(TEXTVB44, "VB44.als");
	lleva_vb(-50);
	pause(15);
	lleva_al_hare(159, 140);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	sentido_hare = 2;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(78);
	sentido_hare = 0;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(22);
	hablar(TEXT406, "406.als");
	lleva_vb(98);
	habla_vb(TEXTVB45, "VB45.als");
	habla_vb(TEXTVB46, "VB46.als");
	habla_vb(TEXTVB47, "VB47.als");
	hablar(TEXT407, "407.als");
	habla_vb(TEXTVB48, "VB48.als");
	habla_vb(TEXTVB49, "VB49.als");
	hablar(TEXT408, "408.als");
	habla_vb(TEXTVB50, "VB50.als");
	habla_vb(TEXTVB51, "VB51.als");
	hablar(TEXT409, "409.als");
	habla_vb(TEXTVB52, "VB52.als");
	habla_vb(TEXTVB53, "VB53.als");
	pause(12);
	habla_vb(TEXTVB54, "VB54.als");
	habla_vb(TEXTVB55, "VB55.als");
	hablar(TEXT410, "410.als");
	habla_vb(TEXTVB56, "VB56.als");

	rompo_y_salgo = 1;

	flags[38] = 0;
	flags[36] = 1;
	sin_verbo();
	resta_objeto(8);
	resta_objeto(13);
	resta_objeto(15);
	resta_objeto(16);
	resta_objeto(17);
	suma_objeto(20);
}

void DrasculaEngine::animation_35_2() {
	int n, x = 0;

	lleva_al_hare(96, 165);
	lleva_al_hare(79, 165);

	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	loadPic("an35_1.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an35_2.alg");
	decompressPic(dir_hare_frente, 1);

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 70, 90, 46, 80, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(70,90, 70,90, 46,80,dir_zona_pantalla);
		x = x + 46;
		pause(3);
	}

	x = 0;
	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 82, 70, 90, 46, 80, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(70, 90, 70, 90, 46, 80, dir_zona_pantalla);
		x = x + 46;
		pause(3);
	}

	x = 0;
	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 70, 90, 46, 80, dir_hare_frente, dir_zona_pantalla);
		updateScreen(70, 90, 70, 90, 46, 80, dir_zona_pantalla);

		x = x + 46;

		pause(3);
	}

	x = 0;
	for (n = 0; n < 2; n++) {
		x++;
		copyBackground(x, 82, 70, 90, 46, 80, dir_hare_frente, dir_zona_pantalla);
		updateScreen(70, 90, 70,90, 46, 80,dir_zona_pantalla);
		x = x + 46;
		pause(3);
	}

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(19);

	comienza_sound("s1.als");
	hipo_sin_nadie(18);
	fin_sound();

	pause(10);

	FundeAlNegro(2);
}

void DrasculaEngine::animation_1_3() {
	hablar(TEXT413, "413.als");
	grr();
	pause(50);
	hablar(TEXT414, "414.als");
}

void DrasculaEngine::animation_2_3() {
	flags[0] = 1;
	playmusic(13);
	animation_3_3();
	playmusic(13);
	animation_4_3();
	flags[1] = 1;
	updateRoom();
	updateScreen(120, 0, 120, 0, 200, 200, dir_zona_pantalla);
	animation_5_3();
	flags[0] = 0;
	flags[1] = 1;

	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);

	lleva_al_hare(332, 127);
}

void DrasculaEngine::animation_3_3() {
	int n, x = 0;
	int px = hare_x - 20, py = hare_y - 1;

	loadPic("an2y_1.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("an2y_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("an2y_3.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}
}

void DrasculaEngine::animation_4_3() {
	int n, x = 0;
	int px = 120, py = 63;

	loadPic("any_1.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("any_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("any_3.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 4; n++){
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, px, py, 77, 89, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 91, px, py, 77, 89, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, px, py, 77, 89, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 91, px, py, 77, 89, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, px, py, 77, 89, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 91, px, py, 77, 89, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 77, 89, dir_zona_pantalla);
		x = x + 77;
		pause(3);
	}
}

void DrasculaEngine::animation_5_3() {
	int n, x = 0;
	int px = hare_x - 20, py = hare_y - 1;

	loadPic("an3y_1.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("an3y_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("an3y_3.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
		updateScreen(px,py, px,py, 71,72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 2, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(px, py, px, py, 71, 72, dir_zona_pantalla);
		x = x + 71;
		pause(3);
	}
}

void DrasculaEngine::animation_6_3() {
	int frame = 0, px = 112, py = 62;
	int yoda_x[] = { 3 ,82, 161, 240, 3, 82 };
	int yoda_y[] = { 3, 3, 3, 3, 94, 94 };

	hare_se_mueve = 0;
	flags[3] = 1;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	flags[1] = 0;

	loadPic("an4y.alg");
	decompressPic(dir_hare_frente, 1);

	for (frame = 0; frame < 6; frame++) {
		pause(3);
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		copyRect(yoda_x[frame], yoda_y[frame], px, py,	78, 90,	dir_hare_frente, dir_zona_pantalla);
		updateScreen(px, py, px, py, 78, 90, dir_zona_pantalla);
	}

	flags[2] = 1;

	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);

	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::animation_rayo() {
	loadPic("anr_1.alg");
	decompressPic(dir_hare_frente, MEDIA);
	loadPic("anr_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("anr_3.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("anr_4.alg");
	decompressPic(dir_dibujo1, 1);
	loadPic("anr_5.alg");
	decompressPic(dir_dibujo3, 1);

	updateScreen(0, 0, 0, 0, 320, 200, dir_hare_frente);

	pause(50);

	comienza_sound("s5.als");

	updateScreen(0, 0, 0, 0, 320, 200, dir_hare_dch);
	pause(3);
	updateScreen(0, 0, 0, 0, 320, 200, dir_hare_fondo);
	pause(3);
	updateScreen(0, 0, 0, 0, 320, 200, dir_dibujo1);
	pause(3);
	updateScreen(0, 0, 0, 0, 320, 200, dir_hare_fondo);
	pause(3);
	updateScreen(0, 0, 0, 0, 320, 200, dir_dibujo3);
	pause(3);
	updateScreen(0, 0, 0, 0, 320, 200, dir_hare_frente);
	fin_sound();
}

void DrasculaEngine::animation_2_4() {
	habla_igor_sentado(TEXTI16, "I16.als");
	hablar(TEXT278, "278.als");
	habla_igor_sentado(TEXTI17, "I17.als");
	hablar(TEXT279, "279.als");
	habla_igor_sentado(TEXTI18, "I18.als");
}

void DrasculaEngine::animation_3_4() {
	habla_igor_sentado(TEXTI19, "I19.als");
	habla_igor_sentado(TEXTI20, "I20.als");
	hablar(TEXT281, "281.als");
}

void DrasculaEngine::animation_4_4() {
	hablar(TEXT287, "287.als");
	habla_igor_sentado(TEXTI21, "I21.als");
	hablar(TEXT284, "284.als");
	habla_igor_sentado(TEXTI22, "I22.als");
	hablar(TEXT285, "285.als");
	habla_igor_sentado(TEXTI23, "I23.als");
}

void DrasculaEngine::animation_7_4() {
	Negro();
	hablar(TEXT427, "427.als");
	FundeDelNegro(1);
	resta_objeto(8);
	resta_objeto(10);
	resta_objeto(12);
	resta_objeto(16);
	suma_objeto(17);
	flags[30] = 0;
	flags[29] = 0;
}

void DrasculaEngine::animation_1_5() {
	if (flags[0] == 0) {
		hablar(TEXT430, "430.als");
		habla_bj(TEXTBJ16, "BJ16.als");
		habla_bj(TEXTBJ17, "BJ17.als");
		habla_bj(TEXTBJ18, "BJ18.als");
		hablar(TEXT217, "217.als");
		habla_bj(TEXTBJ19, "BJ19.als");
		hablar(TEXT229, "229.als");
		pause(5);
		lleva_al_hare(114, 170);
		sentido_hare = 3;
		hablar(TEXT431, "431.als");
		habla_bj(TEXTBJ20, "BJ20.als");
		sentido_hare = 2;
		pause(4);
		hablar(TEXT438, "438.als");
		sitio_x = 120;
		sitio_y = 157;
		anda_a_objeto = 1;
		sentido_final = 1;
		empieza_andar();
		habla_bj(TEXTBJ21, "BJ21.als");

		for (;;) {
			if (hare_se_mueve == 0)
				break;
			updateRoom();
			updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		}

		sentido_hare = 1;
		hablar(TEXT229, "229.als");
		flags[0] = 1;
	}

	sentido_hare = 1;
	conversa("op_8.cal");
}

void DrasculaEngine::animation_2_5() {
	habla_bj(TEXTBJ22, "BJ22.als");
}

void DrasculaEngine::animation_3_5() {
	habla_bj(TEXTBJ23, "BJ23.als");
	agarra_objeto(10);
	rompo_y_salgo = 1;
}

void DrasculaEngine::animation_4_5() {
	flags[7] = 1;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	hablar(TEXT228, "228.als");
	habla_lobo(TEXTL1, "L1.als");
	habla_lobo(TEXTL2, "L2.als");
	pause(23);
	hablar(TEXT229, "229.als");
	habla_lobo(TEXTL3, "L3.als");
	habla_lobo(TEXTL4, "L4.als");
	hablar(TEXT230, "230.als");
	habla_lobo(TEXTL5, "L5.als");
	hablar(TEXT231, "231.als");
	habla_lobo(TEXTL6, "L6.als");
	habla_lobo(TEXTL7, "L7.als");
	pause(33);
	hablar(TEXT232, "232.als");
	habla_lobo(TEXTL8, "L8.als");
}

void DrasculaEngine::animation_5_5(){
	int h;
	int frame = 0;
	int hueso_x[] = {1, 99, 197, 1, 99, 197, 1, 99, 197};
	int hueso_y[] = {1, 1, 1, 66, 66, 66, 131, 131, 131};
	int vuela_x[] = {1, 63, 125, 187, 249};
	int pixel_x = hare_x - 53, pixel_y = hare_y - 9;

	sin_verbo();
	resta_objeto(8);

	lleva_al_hare(hare_x - 19, hare_y + alto_hare);
	sentido_hare = 1;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	loadPic("3an5_1.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("3an5_2.alg");
	decompressPic(dir_hare_frente, 1);

	for (frame = 0; frame < 9; frame++) {
		pause(3);
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		copyRect(hueso_x[frame], hueso_y[frame], pixel_x, pixel_y, 97, 64, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(pixel_x, pixel_y, pixel_x,pixel_y, 97,64, dir_zona_pantalla);
	}

	copyBackground(52, 161, 198, 81, 26, 24, dir_dibujo3, dir_zona_pantalla);
	updateScreen(198, 81, 198, 81, 26, 24, dir_zona_pantalla);

	for (frame = 0; frame < 9; frame++) {
		pause(3);
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		copyRect(hueso_x[frame], hueso_y[frame], pixel_x, pixel_y, 97, 64, dir_hare_frente, dir_zona_pantalla);
		updateScreen(pixel_x, pixel_y, pixel_x,pixel_y, 97, 64, dir_zona_pantalla);
	}

	flags[6] = 1;
	actualiza_datos();
	pause(12);

	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	for (h = 0; h < (200 - 18); h++)
		copyBackground(0, 53, 0, h, 320, 19, dir_hare_frente, dir_zona_pantalla);

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	loadPic("101.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("3an5_3.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("3an5_4.alg");
	decompressPic(dir_hare_dch, 1);

	updateScreen(0, 0, 0, 0, 320, 200, dir_dibujo1);
	pause(9);
	for (frame = 0; frame < 5; frame++) {
		pause(3);
		copyBackground(vuela_x[frame], 1, 174, 79, 61, 109, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(174, 79, 174, 79, 61, 109, dir_zona_pantalla);
	}
	for (frame = 0; frame < 5; frame++) {
		pause(3);
		copyBackground(vuela_x[frame], 1, 174, 79, 61, 109, dir_hare_dch, dir_zona_pantalla);
		updateScreen(174, 79, 174, 79, 61, 109, dir_zona_pantalla);
	}
	updateScreen(0, 0, 0, 0, 320, 200, dir_dibujo1);

	comienza_sound("s1.als");
	fin_sound();

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);

	clearRoom();

	loadPic("49.alg");
	decompressPic(dir_dibujo1, MEDIA);
}

void DrasculaEngine::animation_6_5() {
	habla_lobo(TEXTL9, "L9.als");
	hablar(TEXT234, "234.als");
}

void DrasculaEngine::animation_7_5() {
	habla_lobo(TEXTL10, "L10.als");
	hablar(TEXT236, "236.als");
	habla_lobo(TEXTL11, "L11.als");
	habla_lobo(TEXTL12, "L12.als");
	habla_lobo(TEXTL13, "L13.als");
	pause(34);
	habla_lobo(TEXTL14, "L14.als");
}

void DrasculaEngine::animation_8_5() {
	habla_lobo(TEXTL15, "L15.als");
	hablar(TEXT238, "238.als");
	habla_lobo(TEXTL16, "L16.als");
}

void DrasculaEngine::animation_9_5() {
	flags[4] = 1;
	hablar(TEXT401, "401.als");
	sin_verbo();
	resta_objeto(15);
}

void DrasculaEngine::animation_10_5() {
	flags[3] = 1;
	hablar(TEXT401, "401.als");
	sin_verbo();
	resta_objeto(12);
}

void DrasculaEngine::animation_11_5() {
	flags[9] = 1;
	if (flags[2] == 1 && flags[3] == 1 && flags[4] == 1)
		animation_12_5();
	else {
		flags[9] = 0;
		hablar(TEXT33, "33.als");
	}
}

void DrasculaEngine::animation_12_5() {
	DacPalette256 palFondo1;
	DacPalette256 palFondo2;
	DacPalette256 palFondo3;

	int frame;
	const int rayo_x[] = {1, 46, 91, 136, 181, 226, 271, 181};
	const int frusky_x[] = {100, 139, 178, 217, 100, 178, 217, 139, 100, 139};
	const int elfrusky_x[] = {1, 68, 135, 1, 68, 135, 1, 68, 135, 68, 1, 135, 68, 135, 68};
	//const int humo_x[] = {1, 29, 57, 85, 113, 141, 169, 197, 225};
	int color, componente;
	char fundido;

	playmusic(26);
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(27);
	anima("rayo1.bin", 23);
	comienza_sound("s5.als");
	anima("rayo2.bin", 17);
	sentido_hare = 1;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	hare_oscuro();

	for (color = 0; color < 255; color++)
		for (componente = 0; componente < 3; componente++) {
			palFondo1[color][componente] = palJuego[color][componente];
			palFondo2[color][componente] = palJuego[color][componente];
			palFondo3[color][componente] = palJuego[color][componente];
		}

	for (fundido = 1; fundido >= 0; fundido--) {
		for (color = 0; color < 128; color++)
			for (componente = 0; componente < 3; componente++)
				palFondo1[color][componente] = LimitaVGA(palFondo1[color][componente] - 8 + fundido);
	}

	for (fundido = 2; fundido >= 0; fundido--) {
		for (color = 0; color < 128; color++)
			for (componente = 0; componente < 3; componente++)
				palFondo2[color][componente] = LimitaVGA(palFondo2[color][componente] - 8 + fundido);
	}

	for (fundido = 3; fundido >= 0; fundido--) {
		for (color = 0; color < 128; color++)
			for (componente = 0; componente < 3; componente++)
				palFondo3[color][componente] = LimitaVGA(palFondo3[color][componente] - 8 + fundido);
	}

	loadPic("3an11_1.alg");
	decompressPic(dir_hare_fondo, 1);

	for (frame = 0; frame < 8; frame++) {
		if (frame == 2 || frame == 4 || frame == 8 || frame==10)
			setvgapalette256((byte *)&palFondo1);
		else if (frame == 1 || frame == 5 || frame == 7 || frame == 9)
			setvgapalette256((byte *)&palFondo2);
		else
			setvgapalette256((byte *)&palFondo3);

		pause(4);
		updateRoom();
		copyRect(rayo_x[frame], 1, 41, 0, 44, 44, dir_hare_fondo, dir_zona_pantalla);
		copyRect(frusky_x[frame], 113, 205, 50, 38, 86, dir_dibujo3, dir_zona_pantalla);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	}

	fin_sound_corte();

	for (frame = 0; frame < 15; frame++) {
		if (frame == 2 || frame == 4 || frame == 7 || frame == 9)
			setvgapalette256((byte *)&palFondo1);
		else if (frame == 1 || frame == 5)
			setvgapalette256((byte *)&palJuego);
		else
			setvgapalette256((byte *)&palFondo2);

		pause(4);
		updateRoom();
		copyRect(elfrusky_x[frame], 47, 192, 39, 66, 106, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	}

	anima("frel.bin", 16);
	clearRoom();
	hare_claro();
	ActualizaPaleta();

	flags[1] = 1;

	animation_13_5();
	comienza_sound("s1.als");
	hipo(12);
	fin_sound();

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);

	lleva_al_hare(40, 169);
	lleva_al_hare(-14, 175);

	rompo = 1;
	musica_antes = musica_room;
	hare_se_ve = 1;
	clearRoom();
	sentido_hare = 1;
	hare_se_mueve = 0;
	hare_x = -1;
	obj_saliendo = 104;
	sin_verbo();
	carga_escoba("57.ald");
}

void DrasculaEngine::animation_13_5() {
	int frank_x = 199;
	int frame = 0;
	int frus_x[] = {1, 46, 91, 136, 181, 226, 271};
	int frus_y[] = {1, 1, 1, 1, 1, 1, 1, 89};
	int pos_frusky[6];

	loadPic("auxfr.alg");
	decompressPic(dir_hare_fondo, 1);

	pos_frusky[3] = 81;
	pos_frusky[4] = 44;
	pos_frusky[5] = 87;
	pos_frusky[0] = 1;
	pos_frusky[1] = 1;
	pos_frusky[2] = frank_x;
	updateRoom();
	copyRectClip(pos_frusky, dir_hare_fondo, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(15);

	playmusic(18);

	for (;;) {
		updateRoom();
		pos_frusky[0] = frus_x[frame];
		pos_frusky[1] = frus_y[frame];
		pos_frusky[2] = frank_x;
		copyRectClip( pos_frusky, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		frank_x = frank_x - 5;
		frame++;
		if (frank_x <= -45)
			break;
		if (frame == 7) {
			frame = 0;
			sentido_hare = 3;
		}
		pause(6);
	}
}

void DrasculaEngine::animation_14_5() {
	flags[11] = 1;
	comienza_sound("s3.als");
	updateRoom();
	updateScreen(0, 0, 0,0 , 320, 200, dir_zona_pantalla);
	fin_sound();
	pause(17);
	sentido_hare = 3;
	hablar(TEXT246,"246.als");
	lleva_al_hare(89, 160);
	flags[10] = 1;
	comienza_sound("s7.als");
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	fin_sound();
	pause(14);
	sentido_hare = 3;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	habla_solo(TEXTD18, "d18.als");
	FundeAlNegro(1);
}

void DrasculaEngine::animation_15_5() {
	habla_mus(TEXTE4, "E4.als");
	habla_mus(TEXTE5, "E5.als");
	habla_mus(TEXTE6, "E6.als");
	hablar(TEXT291, "291.als");
	habla_mus(TEXTE7, "E7.als");
}

void DrasculaEngine::animation_16_5() {
	habla_mus(TEXTE8, "E8.als");
}

void DrasculaEngine::animation_17_5() {
	habla_mus(TEXTE9, "E9.als");
}

void DrasculaEngine::animation_1_6() {
	int l;

	sentido_hare = 0;
	hare_x = 103;
	hare_y = 108;
	flags[0] = 1;
	for (l = 0; l < 200; l++)
		factor_red[l] = 98;

	loadPic("auxig2.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("auxdr.alg");
	decompressPic(dir_dibujo2, 1);
	loadPic("car.alg");
	decompressPic(dir_hare_fondo, 1);
	habla_dr_dch(TEXTD19, "D19.als");
	hablar(TEXT247, "247.als");
	habla_dr_dch(TEXTD20, "d20.als");
	habla_dr_dch(TEXTD21, "d21.als");
	hablar(TEXT248, "248.als");
	habla_dr_dch(TEXTD22, "d22.als");
	hablar(TEXT249, "249.als");
	habla_dr_dch(TEXTD23, "d23.als");
	conversa("op_11.cal");
	habla_dr_dch(TEXTD26, "d26.als");

	anima("fum.bin", 15);

	habla_dr_dch(TEXTD27, "d27.als");
	hablar(TEXT254, "254.als");
	habla_dr_dch(TEXTD28, "d28.als");
	hablar(TEXT255, "255.als");
	habla_dr_dch(TEXTD29, "d29.als");
	FundeAlNegro(1);
	clearRoom();
	loadPic("time1.alg");
	decompressPic(dir_zona_pantalla, 1);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	delay(930);
	clearRoom();
	Negro();
	hare_se_ve = 0;
	flags[0] = 0;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	FundeDelNegro(1);
	hablar(TEXT256, "256.als");
	habla_dr_dch(TEXTD30, "d30.als");
	hablar(TEXT257, "257.als");
	FundeAlNegro(0);
	clearRoom();
	loadPic("time1.alg");
	decompressPic(dir_zona_pantalla,1);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	delay(900);
	clearRoom();
	Negro();
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	FundeDelNegro(1);
	hablar(TEXT258, "258.als");
	habla_dr_dch(TEXTD31, "d31.als");
	animation_5_6();
	habla_dr_dch(TEXTD32, "d32.als");
	habla_igor_dch(TEXTI11, "I11.als");
	sentido_igor = 3;
	habla_dr_dch(TEXTD33, "d33.als");
	habla_igor_frente(TEXTI12, "I12.als");
	habla_dr_dch(TEXTD34, "d34.als");
	sentido_dr = 0;
	habla_dr_izq(TEXTD35, "d35.als");
	clearRoom();
	carga_escoba("102.ald");
	activa_pendulo();
}

void DrasculaEngine::animation_2_6() {
	habla_dr_dch(TEXTD24, "d24.als");
}

void DrasculaEngine::animation_3_6() {
	habla_dr_dch(TEXTD24, "d24.als");
}

void DrasculaEngine::animation_4_6() {
	habla_dr_dch(TEXTD25, "d25.als");
}

void DrasculaEngine::animation_5_6() {
	int n, pos_pen[6];

	pos_pen[0] = 1;
	pos_pen[1] = 29;
	pos_pen[2] = 204;
	pos_pen[3] = -125;
	pos_pen[4] = 18;
	pos_pen[5] = 125;

	anima("man.bin", 14);

	for (n = -125; n <= 0; n = n + 2) {
		copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
		updateRefresh_pre();
		pos_pen[3] = n;
		copyRectClip(pos_pen, dir_dibujo3, dir_zona_pantalla);

		updateRefresh();

		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
		pause(2);
	}

	flags[3] = 1;
}

void DrasculaEngine::animation_6_6() {
	anima("rct.bin", 11);
	clearRoom();
	sin_verbo();
	resta_objeto(20);
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	rompo = 1;
	obj_saliendo = 104;
	hare_x = -1;
	sin_verbo();
	carga_escoba("58.ald");
	hare_se_ve = 1;
	sentido_hare = 1;
	anima("hbp.bin", 14);

	sentido_hare = 3;
	flags[0] = 1;
	flags[1] = 0;
	flags[2] = 1;
}

void DrasculaEngine::animation_7_6() {
	flags[8] = 1;
	actualiza_datos();
}

void DrasculaEngine::animation_9_6() {
	int v_cd;

	anima("fin.bin", 14);
	playmusic(13);
	flags[5] = 1;
	anima("drf.bin", 16);
	FundeAlNegro(0);
	clearRoom();
	hare_x = -1;
	obj_saliendo = 108;
	carga_escoba("59.ald");
	strcpy(num_room, "nada.alg");
	loadPic("nota2.alg");
	decompressPic(dir_dibujo1, MEDIA);
	Negro();
	sentido_hare = 1;
	hare_x -= 21;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	FundeDelNegro(0);
	pause(96);
	lleva_al_hare(116, 178);
	sentido_hare = 2;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	playmusic(9);
	clearRoom();
	loadPic("nota.alg");
	decompressPic(dir_dibujo1, COMPLETA);
	color_abc(BLANCO);
	habla_solo(TEXTBJ24, "bj24.als");
	habla_solo(TEXTBJ25, "bj25.als");
	habla_solo(TEXTBJ26, "bj26.als");
	habla_solo(TEXTBJ27, "bj27.als");
	habla_solo(TEXTBJ28, "bj28.als");
	sentido_hare = 3;
	clearRoom();
	loadPic("96.alg");
	decompressPic(dir_hare_frente, COMPLETA);
	loadPic("nota2.alg");
	decompressPic(dir_dibujo1, MEDIA);
	hablar(TEXT296, "296.als");
	hablar(TEXT297, "297.als");
	hablar(TEXT298, "298.als");
	sentido_hare = 1;
	hablar(TEXT299, "299.als");
	hablar(TEXT300, "300.als");
	updateRoom();
	copyBackground(0, 0, 0, 0, 320, 200, dir_zona_pantalla, dir_dibujo1);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	color_abc(VERDE_CLARO);
	habla_solo("GOOOOOOOOOOOOOOOL", "s15.als");
	loadPic("nota2.alg");
	decompressPic(dir_dibujo1, 1);
	sentido_hare = 0;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	hablar(TEXT301, "301.als");
	v_cd = _mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16;
	v_cd = v_cd + 4;
	playmusic(17);
	FundeAlNegro(1);
	clearRoom();
	fliplay("qpc.bin", 1);
	MusicFadeout();
	stopmusic();
	clearRoom();
	_mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, v_cd * 16);
	playmusic(3);
	fliplay("crd.bin", 1);
	stopmusic();
}

void DrasculaEngine::animation_10_6() {
	comienza_sound ("s14.als");
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateRefresh_pre();
	copyBackground(164, 85, 155, 48, 113, 114, dir_dibujo3, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	fin_sound();
	habla_taber2(TEXTT23, "t23.als");
	flags[7] = 1;
}

void DrasculaEngine::animation_11_6() {
	habla_taber2(TEXTT10, "t10.als");
	hablar(TEXT268, "268.als");
	habla_taber2(TEXTT11, "t11.als");
}

void DrasculaEngine::animation_12_6() {
	habla_taber2(TEXTT12, "t12.als");
	hablar(TEXT270, "270.als");
	habla_taber2(TEXTT13, "t13.als");
	habla_taber2(TEXTT14, "t14.als");
}

void DrasculaEngine::animation_13_6() {
	habla_taber2(TEXTT15, "t15.als");
}

void DrasculaEngine::animation_14_6() {
	habla_taber2(TEXTT24, "t24.als");
	suma_objeto(21);
	flags[10] = 1;
	rompo_y_salgo = 1;
}

void DrasculaEngine::animation_15_6() {
	habla_taber2(TEXTT16, "t16.als");
}

void DrasculaEngine::animation_18_6() {
	flags[6] = 1;
	sin_verbo();
	resta_objeto(21);
	anima("beb.bin", 10);
}

void DrasculaEngine::animation_19_6() {
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	copyBackground(140, 23, 161, 69, 35, 80, dir_dibujo3, dir_zona_pantalla);

	updateRefresh_pre();
	pon_hare();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(6);
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	comienza_sound("s4.als");
	pause(6);
	fin_sound();
}

void DrasculaEngine::animation_12_2() {
	loadPic("an12.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT356, "356.als");

	updateRefresh_pre();

	copyBackground(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	updateScreen(228, 112, 228, 112, 47, 60, dir_zona_pantalla);

	pause(3);

	updateRefresh_pre();

	copyBackground(49, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	pon_hare();

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(3);
	stopmusic();
	flags[11] = 1;

	habla_pianista(TEXTP5, "P5.als");
	conversa("op_1.cal");

	flags[11] = 0;
	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_26_2() {
	int n, x = 0;

	loadPic("an12.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT392, "392.als");

	updateRefresh_pre();

	copyBackground(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	updateScreen(228, 112, 228, 112, 47, 60, dir_zona_pantalla);

	pause(3);

	updateRefresh_pre();

	copyBackground(49, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
	pon_hare();

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(3);
	stopmusic();
	flags[11] = 1;

	habla_pianista(TEXTP5, "P5.als");
	hablar(TEXT393, "393.als");
	habla_pianista(TEXTP17, "P17.als");
	habla_pianista(TEXTP18, "P18.als");
	habla_pianista(TEXTP19, "P19.als");

	loadPic("an26.alg");
	decompressPic(dir_hare_dch, 1);
	for (n = 0; n < 6; n++){
		x++;
		copyBackground(x, 1, 225, 113, 50, 59, dir_hare_dch, dir_zona_pantalla);
		updateScreen(225,113, 225,113, 50,59, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	x = 0;
	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 61, 225, 113, 50, 59, dir_hare_dch, dir_zona_pantalla);
		updateScreen(225, 113, 225, 113, 50, 59, dir_zona_pantalla);
		x = x + 50;
		if (n == 2)
			comienza_sound("s9.als");
		pause(3);
	}

	fin_sound_corte();
	x = 0;
	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 121, 225, 113, 50, 59, dir_hare_dch, dir_zona_pantalla);
		updateScreen(225, 113, 225, 113, 50, 59, dir_zona_pantalla);
		x = x + 50;
		pause(3);
	}

	agarra_objeto(11);
	resta_objeto(12);

	flags[11] = 0;
	flags[39] = 1;
	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
	musica_room = 16;
}

void DrasculaEngine::animation_11_2() {
	loadPic("an11y13.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT352, "352.als");
	habla_tabernero(TEXTT1, "T1.als");
	hablar(TEXT353, "353.als");
	habla_tabernero(TEXTT17, "T17.als");
	hablar(TEXT354, "354.als");
	habla_tabernero(TEXTT18, "T18.als");
	hablar(TEXT355, "355.als");
	pause(40);
	habla_tabernero("No, nada", "d82.als");

	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_13_2() {
	loadPic("an11y13.alg");
	decompressPic(dir_hare_frente, 1);

	if (flags[41] == 0) {
		hablar(TEXT103, "103.als");
		habla_borracho(TEXTB4, "B4.als");
		flags[12] = 1;
		hablar(TEXT367, "367.als");
		habla_borracho(TEXTB5, "B5.als");
		flags[12] = 1;
		hablar(TEXT368, "368.als");
		habla_borracho(TEXTB6, "B6.als");
		habla_borracho(TEXTB7, "B7.als");
		flags[41] = 1;
	}
	conversa("op_2.cal");

	loadPic("964.alg");
	decompressPic(dir_hare_frente, 1);
}

void DrasculaEngine::animation_18_2() {
	hablar(TEXT378, "378.als");
	habla_vbpuerta(TEXTVB4, "VB4.als");
	conversa("op_3.cal");
}

void DrasculaEngine::animation_22_2() {
	hablar(TEXT374,"374.als");

	sentido_hare=2;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	comienza_sound("s13.als");
	fin_sound();
	sentido_hare = 1;

	habla_vbpuerta(TEXTVB1, "VB1.als");
	hablar(TEXT375, "375.als");
	habla_vbpuerta(TEXTVB2, "VB2.als");
	hablar(TEXT376, "376.als");
	habla_vbpuerta(TEXTVB3, "VB3.als");

	flags[18] = 1;
}

void DrasculaEngine::animation_24_2() {
	if (hare_x < 178)
		lleva_al_hare(208, 136);
	sentido_hare = 3;
	updateRoom();
	pause(3);
	sentido_hare = 0;

	hablar(TEXT356, "356.als");

	loadPic("an24.alg");
	decompressPic(dir_hare_frente, 1);

	animation_32_2();

	flags[21] = 1;

	habla_vb(TEXTVB22, "VB22.als");

	if (flags[22] == 0)
		conversa("op_4.cal");
	else
		conversa("op_5.cal");

	sal_de_la_habitacion(0);
	flags[21] = 0;
	flags[24] = 0;
	sentido_vb = 1;
	vb_x = 120;
}

void DrasculaEngine::animation_32_2() {
	int n, x = 0;

	loadPic("an32_1.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("an32_2.alg");
	decompressPic(dir_hare_fondo, 1);

	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(x, 1, 113, 53, 65, 81, dir_dibujo3, dir_zona_pantalla);
		updateScreen(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
		x = x + 65;
		pause(4);
	}

	x = 0;
	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(x, 83, 113, 53, 65, 81, dir_dibujo3, dir_zona_pantalla);
		updateScreen(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
		x = x + 65;
		pause(4);
	}

	x = 0;
	for (n = 0; n < 4; n++) {
		x++;
		copyBackground(x, 1, 113, 53, 65, 81, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
		x = x + 65;
		pause(4);
	}

	x = 0;
	for (n = 0; n < 3; n++) {
		x++;
		copyBackground(x, 83, 113, 53, 65, 81, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
		x = x + 65;
		if (n < 2)
			pause(4);
	}

	loadPic("aux18.alg");
	decompressPic(dir_dibujo3, 1);
}

void DrasculaEngine::animation_34_2() {
	int n, x = 0;

	sentido_hare = 1;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	loadPic("an34_1.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an34_2.alg");
	decompressPic(dir_hare_dch, 1);

	for (n = 0; n < 3; n++) {
		x++;
		copyBackground(x, 1, 218, 79, 83, 75, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
		x = x + 83;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 3; n++) {
		x++;
		copyBackground(x, 77, 218, 79, 83, 75, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
		x = x + 83;
		pause(3);
	}

	x = 0;
	comienza_sound("s8.als");

	for (n = 0; n < 3; n++) {
		x++;
		copyBackground(x, 1, 218, 79, 83, 75,	dir_hare_dch, dir_zona_pantalla);
		updateScreen(218, 79, 218, 79, 83,75, dir_zona_pantalla);
		x = x + 83;
		pause(3);
	}
	fin_sound();

	pause(30);

	copyBackground(1, 77, 218, 79, 83, 75, dir_hare_dch, dir_zona_pantalla);
	updateScreen(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
	pause(3);

	loadPic("994.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_36_2() {
	loadPic("an11y13.alg");
	decompressPic(dir_hare_dch, 1);

	hablar(TEXT404, "404.als");
	habla_tabernero(TEXTT19, "T19.als");
	habla_tabernero(TEXTT20, "T20.als");
	habla_tabernero(TEXTT21, "T21.als");
	hablar(TEXT355, "355.als");
	pause(40);
	habla_tabernero("No, nada", "d82.als");

	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
}

void DrasculaEngine::animation_7_2() {
	int n, x = 0;

	loadPic("an7_1.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an7_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("an7_3.alg");
	decompressPic(dir_hare_frente, 1);

	if (flags[3] == 1)
		copyBackground(258, 110, 85, 44, 23, 53, dir_dibujo3, dir_dibujo1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);

	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64,	51, 73, dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}
	loadPic("an7_4.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an7_5.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("an7_6.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("an7_7.alg");
	decompressPic(dir_dibujo3, 1);

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1,	80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1,	80, 64, 51,73, dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64,	51, 73, dir_hare_frente, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64, 51, 73, dir_dibujo3, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 2; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_dibujo3, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}
	loadPic("an7_8.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an7_9.alg");
	decompressPic(dir_hare_dch, 1);

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64,	51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
		copyRect(x, 1, 80, 64, 51, 73,	dir_hare_dch, dir_zona_pantalla);
		updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
		x = x + 51;
		pause(3);
	}


	copyBackground(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
	copyRect(1, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
	updateScreen(80, 64, 80, 64, 51, 73, dir_zona_pantalla);

	flags[37] = 1;

	if (flags[7] == 1 && flags[26] == 1 && flags[34] == 1 && flags[35] == 1 && flags[37] == 1)
		flags[38] = 1;

	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("aux3.alg");
	decompressPic(dir_dibujo3, 1);
}

void DrasculaEngine::animation_5_2() {
	int n, x = 0;

	sentido_hare = 0;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	loadPic("an5_1.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("an5_2.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("an5_3.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("an5_4.alg");
	decompressPic(dir_dibujo3, 1);

	copyBackground(1, 1, 213, 66,	53,84, dir_hare_fondo, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 213, 66, 53, 84, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84,dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 86, 213, 66, 53, 84, dir_hare_fondo, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 213, 66, 53, 84, dir_hare_dch, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 213, 66,	53, 84, dir_hare_dch, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 86, 213, 66, 53, 84, dir_hare_dch, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 213, 66,	53, 84, dir_hare_frente, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	comienza_sound("s1.als");

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 86, 213, 66, 53, 84, dir_hare_frente, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}
	fin_sound_corte();

	x = 0;

	for (n = 0; n < 6; n++) {
		x++;
		copyBackground(x, 1, 213, 66, 53, 84,	dir_dibujo3, dir_zona_pantalla);
		updateScreen(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
		x = x + 52;
		pause(3);
	}

	loadPic("994.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("974.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("964.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("aux5.alg");
	decompressPic(dir_dibujo3, 1);
	flags[8] = 1;
	hare_x = hare_x - 4;
	hablar_sinc(TEXT46, "46.als", "4442444244244");
	sin_verbo();
}

void DrasculaEngine::animation_6_2() {
	stopmusic();
	flags[9] = 1;

	clearRoom();
	loadPic("ciego1.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("ciego2.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("ciego3.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("ciego4.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("ciego5.alg");
	decompressPic(dir_hare_frente, 1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(1);

	if (flags[4] == 1)
		habla_hacker(TEXTD66, "d66.als");
	pause(6);
	habla_ciego(TEXTD78, "d78.als",
				"004447222550002222755554444466222000220555002220550444446666662220000557550033344477222522665444466663337446055504446550550550222633003330000666622044422755722270255566667555655007222777");
	pause(4);
	habla_hacker(TEXTD67, "d67.als");

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(10);

	clearRoom();

	playmusic(musica_room);
	loadPic("9.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("aux9.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	sin_verbo();

	flags[9] = 0;
}

void DrasculaEngine::animation_33_2() {
	stopmusic();
	flags[9] = 1;

	pause(12);
	hablar(TEXTD56, "d56.als" );
	pause(8);

	clearRoom();
	loadPic("ciego1.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("ciego2.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("ciego3.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("ciego4.alg");
	decompressPic(dir_hare_fondo, 1);
	loadPic("ciego5.alg");
	decompressPic(dir_hare_frente, 1);

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(10);

	habla_ciego(TEXTD68, "d68.als", "44472225500022227555544444472225500022227555544444664466");
	pause(5);
	habla_hacker(TEXTD57, "d57.als");
	pause(6);
	_system->delayMillis(1000);
	habla_ciego(TEXTD77, "d77.als", "56665004444447222550002222755554444466555033022755555000444444444444444444444444444444");
	habla_hacker(TEXTD65, "d65.als");

	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

	pause(14);

	clearRoom();

	playmusic(musica_room);
	loadPic("9.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("aux9.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("97.alg");
	decompressPic(dir_hare_dch, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	sin_verbo();

	flags[33] = 1;
	flags[9] = 0;
}

void DrasculaEngine::animation_1_4() {
	if (flags[21] == 0) {
		strcpy(nombre_obj[2], "igor");
		hablar(TEXT275, "275.als");

		updateRefresh_pre();

		copyBackground(131, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
		updateScreen(199, 95, 199, 95, 50, 66, dir_zona_pantalla);

		pause(3);

		updateRefresh_pre();

		copyBackground(182, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
		pon_hare();

		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

		pause(3);
		flags[18] = 1;
		flags[20] = 1;

		habla_igor_sentado(TEXTI13, "I13.als");
		habla_igor_sentado(TEXTI14, "I14.als");
		habla_igor_sentado(TEXTI15, "I15.als");
		flags[21] = 1;
	} else {
		hablar(TEXT356, "356.als");

		updateRefresh_pre();

		copyBackground(131, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
		updateScreen(199, 95, 199, 95, 50, 66, dir_zona_pantalla);
		pause(2);

		updateRefresh_pre();

		copyBackground(182, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
		pon_hare();

		updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

		flags[18] = 1;
		flags[20] = 1;

		hablar(TEXT276, "276.als");
		pause(14);
		habla_igor_sentado(TEXTI6, "I6.als");
	}

	conversa("op_6.cal");
	flags[20] = 0;
	flags[18] = 0;
}

void DrasculaEngine::animation_5_4(){
	sentido_hare = 3;
	loadPic("anh_dr.alg");
	decompressPic(dir_hare_fondo, 1);
	lleva_al_hare(99, 160);
	lleva_al_hare(38, 177);
	hare_se_ve = 0;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	delay(800);
	anima("bio.bin", 14);
	flags[29] = 1;
	hare_x = 95;
	hare_y = 82;
	updateRoom();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	abre_puerta(2, 0);
	loadPic("auxigor.alg");
	decompressPic(dir_hare_frente, 1);
	x_igor = 100;
	y_igor = 65;
	habla_igor_frente(TEXTI29, "I29.ALS");
	habla_igor_frente(TEXTI30, "I30.als");
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic("99.alg");
	decompressPic(dir_hare_fondo, 1);
	hare_se_ve = 1;
	FundeAlNegro(0);
	sal_de_la_habitacion(0);
}

void DrasculaEngine::animation_6_4() {
	char room[13];

	strcpy(room, num_room);
	strcpy(num_room, "26.alg");
	clearRoom();
	loadPic("26.alg");
	decompressPic(dir_dibujo1, MEDIA);
	loadPic("aux26.alg");
	decompressPic(dir_dibujo3, 1);
	loadPic("auxigor.alg");
	decompressPic(dir_hare_frente, 1);
	copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
	update_26_pre();
	x_igor = 104;
	y_igor = 71;
	pon_igor();
	updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
	pause(40);
	habla_igor_frente(TEXTI26, "I26.als");
	strcpy(num_room, room);
	clearRoom();
	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	loadPic(roomDisk);
	decompressPic(dir_dibujo3, 1);
	loadPic(num_room);
	decompressPic(dir_dibujo1, MEDIA);
	sin_verbo();
	updateRoom();
}

void DrasculaEngine::animation_8_4() {
	int frame;
	int estanteria_x[] = {1, 75, 149, 223, 1, 75, 149, 223, 149, 223, 149, 223, 149, 223};
	int estanteria_y[] = {1, 1, 1, 1, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74};

	loadPic("an_8.alg");
	decompressPic(dir_hare_frente, 1);

	for (frame = 0; frame < 14; frame++) {
		pause(2);
		copyBackground(estanteria_x[frame], estanteria_y[frame], 77, 45, 73, 72, dir_hare_frente, dir_zona_pantalla);
		updateScreen(77, 45, 77, 45, 73, 72, dir_zona_pantalla);
	}

	loadPic("96.alg");
	decompressPic(dir_hare_frente, 1);
	abre_puerta(7, 2);
}

void DrasculaEngine::animation_9_4() {
	anima("st.bin", 14);
	FundeAlNegro(1);
}


} // End of namespace Drascula