Logo Search packages:      
Sourcecode: scummvm version File versions  Download package

drascula.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: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/tags/release-0-11-1/engines/drascula/drascula.cpp $
 * $Id: drascula.cpp 30944 2008-02-23 22:50:18Z sev $
 *
 */

#include "common/events.h"
#include "common/keyboard.h"
#include "common/file.h"
#include "common/savefile.h"
#include "common/config-manager.h"

#include "base/plugins.h"
#include "base/version.h"

#include "sound/mixer.h"

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

namespace Drascula {

struct GameSettings {
      const char *gameid;
      const char *description;
      byte id;
      uint32 features;
      const char *detectname;
};

static const GameSettings drasculaSettings[] = {
      {"drascula", "Drascula game", 0, 0, 0},

      {NULL, NULL, 0, 0, NULL}
};

DrasculaEngine::DrasculaEngine(OSystem *syst, const DrasculaGameDescription *gameDesc) : Engine(syst), _gameDescription(gameDesc) {

      // Setup mixer
      if (!_mixer->isReady()) {
            warning("Sound initialization failed.");
      }

      _mixer->setVolumeForSoundType(Audio::Mixer::kSFXSoundType, ConfMan.getInt("sfx_volume"));
      _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, ConfMan.getInt("music_volume"));

      const GameSettings *g;

      const char *gameid = ConfMan.get("gameid").c_str();
      for (g = drasculaSettings; g->gameid; ++g)
            if (!scumm_stricmp(g->gameid, gameid))
                  _gameId = g->id;

      _rnd = new Common::RandomSource();
      syst->getEventManager()->registerRandomSource(*_rnd, "drascula");

      int cd_num = ConfMan.getInt("cdrom");
      if (cd_num >= 0)
            _system->openCD(cd_num);
}

DrasculaEngine::~DrasculaEngine() {
      salir_al_dos(0);

      delete _rnd;
}

static int x_obj[44] = {0, X_OBJ1, X_OBJ2, X_OBJ3, X_OBJ4, X_OBJ5, X_OBJ6, X_OBJ7, X_OBJ8, X_OBJ9, X_OBJ10,
                        X_OBJ11, X_OBJ12, X_OBJ13, X_OBJ14, X_OBJ15, X_OBJ16, X_OBJ17, X_OBJ18, X_OBJ19, X_OBJ20,
                        X_OBJ21, X_OBJ22, X_OBJ23, X_OBJ24, X_OBJ25, X_OBJ26, X_OBJ27, X_OBJ28, X_OBJ29, X_OBJ30,
                        X_OBJ31, X_OBJ32, X_OBJ33, X_OBJ34, X_OBJ35, X_OBJ36, X_OBJ37, X_OBJ38, X_OBJ39, X_OBJ40,
                        X_OBJ41, X_OBJ42, X_OBJ43};
static int y_obj[44] = {0, Y_OBJ1, Y_OBJ2, Y_OBJ3, Y_OBJ4, Y_OBJ5, Y_OBJ6, Y_OBJ7, Y_OBJ8, Y_OBJ9, Y_OBJ10,
                        Y_OBJ11, Y_OBJ12, Y_OBJ13, Y_OBJ14, Y_OBJ15, Y_OBJ16, Y_OBJ17, Y_OBJ18, Y_OBJ19, Y_OBJ20,
                        Y_OBJ21, Y_OBJ22, Y_OBJ23, Y_OBJ24, Y_OBJ25, Y_OBJ26, Y_OBJ27, Y_OBJ28, Y_OBJ29, Y_OBJ30,
                        Y_OBJ31, Y_OBJ32, Y_OBJ33, Y_OBJ34, Y_OBJ35, Y_OBJ36, Y_OBJ37, Y_OBJ38, Y_OBJ39, Y_OBJ40,
                        Y_OBJ41, Y_OBJ42, Y_OBJ43};
static int x_pol[44] = {0, 1, 42, 83, 124, 165, 206, 247, 83, 1, 206,
                        1, 42, 83, 124, 165, 206, 247, 83, 1, 206,
                        247, 83, 165, 1, 206, 42, 124, 83, 1, 247,
                        83, 165, 1, 206, 42, 124, 83, 1, 247, 42,
                        1, 165, 206};
static int y_pol[44] = {0, 1, 1, 1, 1, 1, 1, 1, 27, 27, 1,
                                    27, 27, 27, 27, 27, 27, 27, 1, 1, 27,
                                    1, 1, 1, 1, 1, 27, 27, 27, 27, 27,
                                    1, 1, 1, 1, 1, 27, 27, 27, 27, 27,
                                    27, 1, 1};
static int x_barra[] = {6, 51, 96, 141, 186, 232, 276, 321};
static int x1d_menu[] = {280, 40, 80, 120, 160, 200, 240, 0, 40, 80, 120,
                                    160, 200, 240, 0, 40, 80, 120, 160, 200, 240, 0,
                                    40, 80, 120, 160, 200, 240, 0};
static int y1d_menu[] = {0, 0, 0, 0, 0, 0, 0, 25, 25, 25, 25, 25, 25, 25,
                                    50, 50, 50, 50, 50, 50, 50, 75, 75, 75, 75, 75, 75, 75, 100};
static int frame_x[20] = {43, 87, 130, 173, 216, 259};
static int interf_x[] ={ 1, 65, 129, 193, 1, 65, 129 };
static int interf_y[] ={ 51, 51, 51, 51, 83, 83, 83 };
static char mirar_t[3][88] = {TEXT100, TEXT101, TEXT54};
static char mirar_v[3][14] = {"100.als", "101.als", "54.als"};
static char poder_t[6][88] = {TEXT11, TEXT109, TEXT111, TEXT110, TEXT115, TEXT116};
static char poder_v[6][14] = {"11.als", "109.als", "111.als", "110.als", "115.als", "116.als"};

int DrasculaEngine::init() {
      // Initialize backend
      _system->beginGFXTransaction();
            initCommonGFX(false);
      _system->initSize(320, 200);
      _system->endGFXTransaction();

      return 0;
}

int DrasculaEngine::go() {
      num_ejec = 0;

      for (;;) {
            VGA = (byte *)malloc(320 * 200);
            memset(VGA, 0, 64000);

            lleva_objeto = 0;
            menu_bar = 0; menu_scr = 0; hay_nombre = 0;
            frame_y = 0;
            hare_x = -1; hare_se_mueve = 0; sentido_hare = 3; num_frame = 0; hare_se_ve = 1;
            comprueba_flags = 1;
            rompo = 0; rompo2 = 0;
            anda_a_objeto = 0;
            paso_x = PASO_HARE_X; paso_y = PASO_HARE_Y;
            alto_hare = ALTO_PERSONAJE; ancho_hare = ANCHO_PERSONAJE; alto_pies = PIES_HARE;
            alto_habla = ALTO_HABLA_HARE; ancho_habla = ANCHO_HABLA_HARE;
            hay_respuesta = 0;
            conta_ciego_vez = 0;
            cambio_de_color = 0;
            rompo_y_salgo = 0;
            vb_x = 120; sentido_vb = 1; vb_se_mueve = 0; frame_vb = 1;
            frame_piano = 0;
            frame_borracho = 0;
            frame_velas = 0;
            cont_sv = 0;
            term_int = 0;
            con_voces = 1;
            hay_que_load = 0;
            corta_musica = 0;
            hay_seleccion = 0;
            Leng = 0;
            UsingMem = 0;
            GlobalSpeed = 0;
            frame_ciego = 0;
            frame_ronquido = 0;
            frame_murcielago = 0;
            c_mirar = 0;
            c_poder = 0;
            ald = NULL;

            asigna_memoria();
            carga_info();

            num_ejec++;

            if (num_ejec != 6) {
                  lee_dibujos("95.alg");
                  descomprime_dibujo(dir_mesa, 1);
            }

            if (num_ejec == 6)
                  dir_pendulo = dir_dibujo3;

            if (num_ejec == 1) {
                  con_voces = 0;
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);
            } else if (num_ejec == 2) {
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  lee_dibujos("pts.alg");
                  descomprime_dibujo(dir_dibujo2, 1);
            } else if (num_ejec == 3) {
                  lee_dibujos("aux13.alg");
                  descomprime_dibujo(dir_dibujo1, COMPLETA);
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, 1);
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
            } else if (num_ejec == 4) {
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  if (hay_que_load == 0)
                        animacion_rayo();
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, 1);
                  borra_pantalla();
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);
            } else if (num_ejec == 5) {
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
            } else if (num_ejec == 6) {
                  x_igor = 105, y_igor = 85, sentido_igor = 1;
                  x_dr = 62, y_dr = 99, sentido_dr = 1;
                  frame_pen = 0;
                  flag_tv = 0;

                  dir_pendulo = dir_dibujo3;

                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);

                  lee_dibujos("95.alg");
                  descomprime_dibujo(dir_mesa, 1);
            }
            memset(nombre_icono, 0, sizeof(nombre_icono));
            strcpy(nombre_icono[1], "look");
            strcpy(nombre_icono[2], "take");
            strcpy(nombre_icono[3], "open");
            strcpy(nombre_icono[4], "close");
            strcpy(nombre_icono[5], "talk");
            strcpy(nombre_icono[6], "push");

            paleta_hare();
            if (!escoba()) {
                  salir_al_dos(0);
                  break;
            }
            salir_al_dos(0);
            if (num_ejec == 6)
                  break;
            printf("next part of engine hit: %d\n", num_ejec + 1);
      }

      return 0;
}

void DrasculaEngine::salir_al_dos(int r) {
      if (hay_sb == 1)
            ctvd_end();
      borra_pantalla();
      Negro();
      MusicFadeout();
      stopmusic();
      libera_memoria();
      free(VGA);
}

void DrasculaEngine::asigna_memoria() {
      dir_zona_pantalla = (byte *)malloc(64000);
      assert(dir_zona_pantalla);
      dir_dibujo1 = (byte *)malloc(64000);
      assert(dir_dibujo1);
      dir_hare_fondo = (byte *)malloc(64000);
      assert(dir_hare_fondo);
      dir_dibujo3 = (byte *)malloc(64000);
      assert(dir_dibujo3);
      dir_dibujo2 = (byte *)malloc(64000);
      assert(dir_dibujo2);
      dir_mesa = (byte *)malloc(64000);
      assert(dir_mesa);
      dir_hare_dch = (byte *)malloc(64000);
      assert(dir_hare_dch);
      dir_hare_frente = (byte *)malloc(64000);
      assert(dir_hare_frente);
}

void DrasculaEngine::libera_memoria() {
      free(dir_zona_pantalla);
      free(dir_dibujo1);
      free(dir_hare_fondo);
      free(dir_dibujo2);
      free(dir_mesa);
      free(dir_dibujo3);
      free(dir_hare_dch);
      free(dir_hare_frente);
}

void DrasculaEngine::carga_info() {
      hay_sb = 1;
      con_voces = 0;
      hay_que_load = 0;
}

void DrasculaEngine::lee_dibujos(const char *NamePcc) {
      unsigned int con, x = 0;
      unsigned int fExit = 0;
      byte ch, rep;
      Common::File file;
      byte *auxPun;

      file.open(NamePcc);
      if (!file.isOpen())
            error("missing game data %s %c", NamePcc, 7);

      Buffer_pcx = (byte *)malloc(65000);
      auxPun = Buffer_pcx;
      file.seek(128);
      while (!fExit) {
            ch = file.readByte();
            rep = 1;
            if ((ch & 192) == 192) {
                  rep = (ch & 63);
                  ch = file.readByte();
            }
            for (con = 0; con < rep; con++) {
                  *auxPun++ = ch;
                  x++;
                  if (x > 64000)
                        fExit = 1;
            }
      }

      file.read(cPal, 768);
      file.close();
}

void DrasculaEngine::descomprime_dibujo(byte *dir_escritura, int plt) {
      memcpy(dir_escritura, Buffer_pcx, 64000);
      free(Buffer_pcx);
      asigna_rgb((byte *)cPal, plt);
      if (plt > 1)
            funde_rgb(plt);
}

void DrasculaEngine::paleta_hare() {
      int color, componente;

      for (color = 235; color < 253; color++)
            for (componente = 0; componente < 3; componente++)
                  palHare[color][componente] = palJuego[color][componente];

}

void DrasculaEngine::hare_oscuro() {
      int color, componente;

      for (color = 235; color < 253; color++ )
            for (componente = 0; componente < 3; componente++)
                  palJuego[color][componente] = palHareOscuro[color][componente];

      ActualizaPaleta();
}

void DrasculaEngine::asigna_rgb(byte *dir_lectura, int plt) {
      int x, cnt = 0;

      for (x = 0; x < plt; x++) {
            palJuego[x][0] = dir_lectura[cnt++] / 4;
            palJuego[x][1] = dir_lectura[cnt++] / 4;
            palJuego[x][2] = dir_lectura[cnt++] / 4;
      }
      ActualizaPaleta();
}

void DrasculaEngine::funde_rgb(int plt) {}

void DrasculaEngine::Negro() {
      int color, componente;
      DacPalette256 palNegra;

      for (color = 0; color < 256; color++)
            for (componente = 0; componente < 3; componente++)
                  palNegra[color][componente] = 0;

      palNegra[254][0] = 0x3F;
      palNegra[254][1] = 0x3F;
      palNegra[254][2] = 0x15;

      setvgapalette256((byte *)&palNegra);
}

void DrasculaEngine::ActualizaPaleta() {
      setvgapalette256((byte *)&palJuego);
}

void DrasculaEngine::setvgapalette256(byte *PalBuf) {
      byte pal[256 * 4];
      int i;

      for (i = 0; i < 256; i++) {
            pal[i * 4 + 0] = PalBuf[i * 3 + 0] * 4;
            pal[i * 4 + 1] = PalBuf[i * 3 + 1] * 4;
            pal[i * 4 + 2] = PalBuf[i * 3 + 2] * 4;
            pal[i * 4 + 3] = 0;
      }
      _system->setPalette(pal, 0, 256);
      _system->updateScreen();
}

void DrasculaEngine::DIBUJA_FONDO(int xorg, int yorg, int xdes, int ydes, int Ancho,
                                                  int Alto, byte *Origen, byte *Destino) {
      int x;
      Destino += xdes + ydes * 320;
      Origen += xorg + yorg * 320;
      for (x = 0; x < Alto; x++) {
            memcpy(Destino, Origen, Ancho);
            Destino += 320;
            Origen += 320;
      }
}

void DrasculaEngine::DIBUJA_BLOQUE(int xorg, int yorg, int xdes, int ydes, int Ancho,
                                                   int Alto, byte *Origen, byte *Destino) {
      int y, x;

      Destino += xdes + ydes * 320;
      Origen += xorg + yorg * 320;

      for (y = 0; y < Alto; y++)
            for (x = 0; x < Ancho; x++)
                  if (Origen[x + y * 320] != 255)
                        Destino[x + y * 320] = Origen[x + y * 320];
}

void DrasculaEngine::DIBUJA_BLOQUE_CUT(int *Array, byte *Origen, byte *Destino) {
      int y, x;
      int xorg = Array[0];
      int yorg = Array[1];
      int xdes = Array[2];
      int ydes = Array[3];
      int Ancho = Array[4];
      int Alto = Array[5];

      if (ydes < 0) {
            yorg += -ydes;
            Alto += ydes;
            ydes = 0;
      }
      if (xdes < 0) {
            xorg += -xdes;
            Ancho += xdes;
            xdes = 0;
      }
      if ((xdes + Ancho) > 319)
            Ancho -= (xdes + Ancho) - 320;
      if ((ydes + Alto) > 199)
            Alto -= (ydes + Alto) - 200;

      Destino += xdes + ydes * 320;
      Origen += xorg + yorg * 320;

      for (y = 0; y < Alto; y++)
            for (x = 0; x < Ancho; x++)
                  if (Origen[x + y * 320] != 255)
                        Destino[x + y * 320] = Origen[x + y * 320];
}

void DrasculaEngine::VUELCA_PANTALLA(int xorg, int yorg, int xdes, int ydes, int Ancho, int Alto, byte *Buffer) {
      int x;
      byte *ptr = VGA;

      ptr += xdes + ydes * 320;
      Buffer += xorg + yorg * 320;
      for (x = 0; x < Alto; x++) {
            memcpy(ptr, Buffer, Ancho);
            ptr += 320;
            Buffer += 320;
      }

      _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
      _system->updateScreen();
}

bool DrasculaEngine::escoba() {
      int n;

      dir_texto = dir_mesa;

      musica_antes = -1;

      if (num_ejec != 2) {
            int soc = 0;
            for (n = 0; n < 6; n++) {
                  soc = soc + ANCHO_PERSONAJE;
                  frame_x[n] = soc;
            }
      }

      for (n = 1; n < 50; n++)
            objetos_que_tengo[n] = 0;

      for (n = 0; n < NUM_BANDERAS; n++)
            flags[n] = 0;

      if (num_ejec == 2) {
            flags[16] = 1;
            flags[17] = 1;
            flags[27] = 1;
      }

      for (n = 1; n < 7; n++)
            objetos_que_tengo[n] = n;

      if (num_ejec == 1) {
            agarra_objeto(28);
            buffer_teclado();

            if (hay_que_load == 0)
                  animacion_1_1();

            sin_verbo();
            lee_dibujos("2aux62.alg");
            descomprime_dibujo(dir_dibujo2, 1);
            sentido_hare = 1;
            obj_saliendo = 104;
            if (hay_que_load != 0)
                  para_cargar(nom_partida);
            else {
                  carga_escoba("62.ald");
                  hare_x = -20;
                  hare_y = 56;
                  lleva_al_hare(65, 145);
            }
      } else if (num_ejec == 2) {
            suma_objeto(28);
            buffer_teclado();
            sentido_hare = 3;
            obj_saliendo = 162;
            if (hay_que_load == 0)
                  carga_escoba("14.ald");
            else
                  para_cargar(nom_partida);
      } else if (num_ejec == 3) {
            suma_objeto(28);
            suma_objeto(11);
            suma_objeto(14);
            suma_objeto(22);
            suma_objeto(9);
            suma_objeto(20);
            suma_objeto(19);
            flags[1] = 1;
            buffer_teclado();
            sentido_hare = 1;
            obj_saliendo = 99;
            if (hay_que_load == 0)
                  carga_escoba("20.ald");
            else
                  para_cargar(nom_partida);
      } else if (num_ejec == 4) {
            suma_objeto(28);
            suma_objeto(9);
            suma_objeto(20);
            suma_objeto(22);
        buffer_teclado();
            obj_saliendo = 100;
            if (hay_que_load == 0) {
                  carga_escoba("21.ald");
                  sentido_hare = 0;
                  hare_x = 235;
                  hare_y = 164;
            } else
                  para_cargar(nom_partida);
      } else if (num_ejec == 5) {
            suma_objeto(28);
            suma_objeto(7);
            suma_objeto(9);
            suma_objeto(11);
            suma_objeto(13);
            suma_objeto(14);
            suma_objeto(15);
            suma_objeto(17);
            suma_objeto(20);
        buffer_teclado();
            sentido_hare = 1;
            obj_saliendo = 100;
            if (hay_que_load == 0) {
                  carga_escoba("45.ald");
            } else
                  para_cargar(nom_partida);
      } else if (num_ejec == 6) {
            suma_objeto(28);
            suma_objeto(9);

            buffer_teclado();
            sentido_hare = 1;
            obj_saliendo = 104;
        if (hay_que_load == 0)
                  carga_escoba("58.ald");
        else
                  para_cargar(nom_partida);
        if (hay_que_load == 0)
                  animacion_1_6();
        else {
                  lee_dibujos("auxdr.alg");
                  descomprime_dibujo(dir_dibujo2, 1);
            }
      }

bucles:
      if (hare_se_mueve == 0) {
            paso_x = PASO_HARE_X;
            paso_y = PASO_HARE_Y;
      }
      if (hare_se_mueve == 0 && anda_a_objeto == 1) {
            sentido_hare = sentido_final;
            anda_a_objeto = 0;
      }

      if (num_ejec == 2) {
            if ((!strcmp(num_room, "3.alg")) && (hare_x == 279) && (hare_y + alto_hare == 101))
                  animacion_1_2();
            else if ((!strcmp(num_room, "14.alg")) && (hare_x == 214) && (hare_y + alto_hare == 121))
                  lleva_al_hare(190, 130);
            else if ((!strcmp(num_room, "14.alg")) && (hare_x == 246) && (hare_y + alto_hare == 112))
                  lleva_al_hare(190, 130);
      }

      mueve_cursor();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      if (music_status() == 0 && musica_room != 0)
            playmusic(musica_room);

      MirarRaton();

      if (menu_scr == 0 && lleva_objeto == 1)
            comprueba_objetos();

      if (boton_dch == 1 && menu_scr == 1) {
            if (num_ejec == 2)
                  lee_dibujos(fondo_y_menu);
            else
                  lee_dibujos("99.alg");
            descomprime_dibujo(dir_hare_fondo, 1);
            setvgapalette256((byte *)&palJuego);
            menu_scr = 0;
            espera_soltar();
            if (num_ejec != 3)
                  cont_sv = 0;
      }
      if (boton_dch == 1 && menu_scr == 0) {
            hare_se_mueve = 0;
            if (sentido_hare == 2)
                  sentido_hare = 1;
            if (num_ejec == 4)
                  lee_dibujos("icons2.alg");
            else if (num_ejec == 5)
                  lee_dibujos("icons3.alg");
            else if (num_ejec == 6)
                  lee_dibujos("iconsp.alg");
            else
                  lee_dibujos("icons.alg");
            descomprime_dibujo(dir_hare_fondo, 1);
            menu_scr = 1;
            espera_soltar();
            sin_verbo();
            if (num_ejec != 3)
                  cont_sv = 0;
      }

      if (boton_izq == 1 && menu_bar == 1) {
            elige_en_barra();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (boton_izq == 1 && lleva_objeto == 0) {
            if (comprueba1())
                  return true;
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (boton_izq == 1 && lleva_objeto == 1) {
            if (comprueba2())
                  return true;
            if (num_ejec != 3)
                  cont_sv = 0;
      }

      if (y_raton < 24 && menu_scr == 0)
            menu_bar = 1;
      else
            menu_bar = 0;

      Common::KeyCode key = getscan();
      if (key == Common::KEYCODE_F1 && menu_scr == 0) {
            elige_verbo(1);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F2 && menu_scr == 0) {
            elige_verbo(2);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F3 && menu_scr == 0) {
            elige_verbo(3);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F4 && menu_scr == 0) {
            elige_verbo(4);
            cont_sv = 0;
      } else if (key == Common::KEYCODE_F5 && menu_scr == 0) {
            elige_verbo(5);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F6 && menu_scr == 0) {
            elige_verbo(6);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F9) {
            mesa();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F10) {
            saves();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_F8) {
            sin_verbo();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_v) {
            con_voces = 1;
            print_abc(SYS2, 96, 86);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            delay(1410);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_t) {
            con_voces = 0;
            print_abc(SYS3, 94, 86);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            delay(1460);
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_DELETE) {
            if (num_ejec == 4)
                  carga_partida("gsave00");
            else
                  confirma_go();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (key == Common::KEYCODE_ESCAPE) {
            confirma_salir();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else if (num_ejec == 6 && key == Common::KEYCODE_0 && !strcmp(num_room, "61.alg")) {
             lee_dibujos("alcbar.alg");
             descomprime_dibujo(dir_dibujo1, 255);
      } else if (cont_sv == 1500) {
            salva_pantallas();
            if (num_ejec != 3)
                  cont_sv = 0;
      } else {
            if (num_ejec != 3)
                  cont_sv++;
      }
      goto bucles;
}

void DrasculaEngine::agarra_objeto(int objeto) {
      if (num_ejec == 6)
            lee_dibujos("iconsp.alg");
      else if (num_ejec == 4 || num_ejec == 5)
            lee_dibujos("icons2.alg");
      else
            lee_dibujos("icons.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      elige_objeto(objeto);
      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
}

void DrasculaEngine::elige_objeto(int objeto) {
      if (num_ejec == 5) {
            if (lleva_objeto == 1 && menu_scr == 0  && objeto_que_lleva != 16)
                  suma_objeto(objeto_que_lleva);
      } else {
            if (lleva_objeto == 1 && menu_scr == 0)
                  suma_objeto(objeto_que_lleva);
      }
      DIBUJA_FONDO(x1d_menu[objeto], y1d_menu[objeto], 0, 0, ANCHOBJ,ALTOBJ, dir_hare_fondo, dir_dibujo3);
      lleva_objeto = 1;
      objeto_que_lleva = objeto;
}

int DrasculaEngine::resta_objeto(int osj) {
      int h, q = 0;

      for (h = 1; h < 43; h++) {
            if (objetos_que_tengo[h] == osj) {
                  objetos_que_tengo[h] = 0;
                  q = 1;
                  break;
            }
      }

      if (q == 1)
            return 0;
      else
            return 1;
}

void DrasculaEngine::animacion_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;
            borra_pantalla();
            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;
            borra_pantalla();
            lee_dibujos("cielo.alg");
            descomprime_dibujo(dir_zona_pantalla, 256);
            Negro();
            VUELCA_PANTALLA(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);
            VUELCA_PANTALLA(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;
            borra_pantalla();
            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;
            lee_dibujos("cielo2.alg");
            descomprime_dibujo(dir_zona_pantalla, 256);
            VUELCA_PANTALLA(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;
            borra_pantalla();

            lee_dibujos("96.alg");
            descomprime_dibujo(dir_hare_frente, COMPLETA);
            lee_dibujos("103.alg");
            descomprime_dibujo(dir_dibujo1, MEDIA);
            lee_dibujos("104.alg");
            descomprime_dibujo(dir_dibujo3, 1);
            lee_dibujos("aux104.alg");
            descomprime_dibujo(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++) {
                        DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
                        DIBUJA_FONDO(interf_x[l], interf_y[l], 156, 45, 63, 31, dir_dibujo2, dir_zona_pantalla);
                        VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                        if (getscan() == Common::KEYCODE_ESCAPE) {
                              term_int = 1;
                              break;
                        }
                        pausa(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++) {
                  DIBUJA_FONDO(0, 0, 320 - l, 0, l, 200, dir_dibujo3, dir_zona_pantalla);
                  DIBUJA_FONDO(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;

                  DIBUJA_BLOQUE_CUT(pos_pixel, dir_dibujo2, dir_zona_pantalla);
                  VUELCA_PANTALLA(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;
            DIBUJA_FONDO(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;

            borra_pantalla();

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

            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            habla_igor_dch(TEXTI8, "I8.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(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;
            borra_pantalla();
            color_solo = ROJO;
            lee_dibujos("plan1.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(10);
            habla_solo(TEXTD4,"d4.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            lee_dibujos("plan1.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            VUELCA_PANTALLA(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;
            borra_pantalla();
            lee_dibujos("plan2.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(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;
            borra_pantalla();
            lee_dibujos("plan3.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(20);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            habla_solo(TEXTD7, "d7.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            lee_dibujos("plan3.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            habla_solo(TEXTD8, "d8.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            borra_pantalla();
            lee_dibujos("100.alg");
            descomprime_dibujo(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();
            borra_pantalla();
            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;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(1);
            sentido_dr = 0;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(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;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(1);
            sentido_dr = 1;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            habla_igor_dch(TEXTI2, "I2.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            pausa(13);
            habla_dr_dch(TEXTD13,"d13.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            sentido_dr = 3;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(1);
            sentido_dr = 0;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
            VUELCA_PANTALLA(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;
            pausa(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;
            borra_pantalla();

            playmusic(2);
            pausa(5);
            fliplay("intro.bin", 12);
            term_int = 1;
      }
      borra_pantalla();
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, COMPLETA);
      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
}

void DrasculaEngine::animacion_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;

            lee_dibujos("an11y13.alg");
            descomprime_dibujo(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;

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

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

            borra_pantalla();
            stopmusic();
            corta_musica = 1;
            memset(dir_zona_pantalla, 0, 64000);
            color_solo = BLANCO;
            pausa(80);

            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            habla_solo(TEXTBJ1, "BJ1.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            borra_pantalla();
            lee_dibujos("bj.alg");
            descomprime_dibujo(dir_zona_pantalla, MEDIA);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            Negro();
            VUELCA_PANTALLA(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;
            borra_pantalla();

            lee_dibujos("16.alg");
            descomprime_dibujo(dir_dibujo1, MEDIA);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            lee_dibujos("auxbj.alg");
            descomprime_dibujo(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;

            lee_dibujos("97g.alg");
            descomprime_dibujo(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;
            lee_dibujos("97.alg");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            descomprime_dibujo(dir_hare_dch, 1);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            pausa(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;
            refresca_pantalla();
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(110);
            habla_solo(TEXTBJ11, "BJ11.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            refresca_pantalla();
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            pausa(118);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            lleva_al_hare(132, 97 + alto_hare);
            pausa(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;
            pausa(8);
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            hablar(TEXT225, "225.als");
            pausa(76);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            sentido_hare = 1;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            hablar(TEXT226, "226.als");
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(30);
            if ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE))
                  break;
            hablar(TEXT227,"227.als");
            FundeAlNegro(0);
            break;
      }
}

void DrasculaEngine::sin_verbo() {
      int c = 171;
      if (menu_scr == 1)
            c = 0;
      if (num_ejec == 5) {
            if (lleva_objeto == 1 && objeto_que_lleva != 16)
                  suma_objeto(objeto_que_lleva);
      } else {
            if (lleva_objeto == 1)
                  suma_objeto(objeto_que_lleva);
      }
      DIBUJA_FONDO(0, c, 0, 0, ANCHOBJ,ALTOBJ, dir_hare_fondo, dir_dibujo3);

      lleva_objeto = 0;
      hay_nombre = 0;
}

void DrasculaEngine::para_cargar(char nom_game[]) {
      musica_antes = musica_room;
      menu_scr = 0;
      if (num_ejec != 1)
            borra_pantalla();
      carga_partida(nom_game);
      if (num_ejec == 2 || num_ejec == 3 || num_ejec == 5) {
            delete ald;
            ald = NULL;
      }
      carga_escoba(datos_actuales);
      sin_verbo();
}

static char *getLine(Common::File *fp, char *buf, int len) {
      int c;
      char *b;

      for (;;) {
            b = buf;
            while (!fp->eos()) {
                  c = fp->readByte() ^ 0xff;
                  if (c == '\r')
                        continue;
                  if (c == '\n')
                        break;
                  if (b - buf >= (len - 1))
                        break;
                  *b++ = c;
            }
            *b = '\0';
            if (fp->eos() && b == buf)
                  return NULL;
            if (b != buf)
                  break;
      }
      return buf;
}

void DrasculaEngine::carga_escoba(const char *nom_fich) {
      int soc, l, martin, obj_salir;
      float chiquez, pequegnez = 0;
      char pant1[20], pant2[20], pant3[20], pant4[20];
      char para_codificar[20];
      char buffer[256];

      hay_nombre = 0;

      strcpy(para_codificar, nom_fich);
      canal_p(para_codificar);
      strcpy(datos_actuales, nom_fich);

      buffer_teclado();

      ald = new Common::File;
      ald->open(nom_fich);
      if (!ald->isOpen()) {
            error("missing data file");
      }
      int size = ald->size();

      getLine(ald, buffer, size);
      sscanf(buffer, "%s", num_room);
      strcat(num_room, ".alg");

      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &musica_room);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", pantalla_disco);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &nivel_osc);

      if (num_ejec == 2) {
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &martin);
            if (martin == 0)
                  goto martini;
            ancho_hare = martin;
            getLine(ald, buffer, size);
            sscanf(buffer, "%d",&alto_hare);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d",&alto_pies);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d",&paso_x);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d",&paso_y);

            getLine(ald, buffer, size);
            sscanf(buffer, "%s",pant1);
            getLine(ald, buffer, size);
            sscanf(buffer, "%s",pant2);
            getLine(ald, buffer, size);
            sscanf(buffer, "%s",pant3);
            getLine(ald, buffer, size);
            sscanf(buffer, "%s",pant4);

            lee_dibujos(pant2);
            descomprime_dibujo(dir_hare_dch, 1);
            lee_dibujos(pant1);
            descomprime_dibujo(dir_hare_frente, 1);
            lee_dibujos(pant4);
            descomprime_dibujo(dir_hare_fondo, 1);

            strcpy(fondo_y_menu, pant4);
      }

martini:

      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &objs_room);

      for (l = 0; l < objs_room; l++) {
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &num_obj[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%s", nombre_obj[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &x1[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &y1[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &x2[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &y2[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &sitiobj_x[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &sitiobj_y[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &sentidobj[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &visible[l]);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &espuerta[l]);
            if (espuerta[l] != 0) {
                  getLine(ald, buffer, size);
                  sscanf(buffer, "%s", alapantallakeva[l]);
                  getLine(ald, buffer, size);
                  sscanf(buffer, "%d", &x_alakeva[l]);
                  getLine(ald, buffer, size);
                  sscanf(buffer, "%d", &y_alakeva[l]);
                  getLine(ald, buffer, size);
                  sscanf(buffer, "%d", &sentido_alkeva[l]);
                  getLine(ald, buffer, size);
                  sscanf(buffer, "%d", &alapuertakeva[l]);
                  puertas_cerradas(l);
            }
      }

      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &suelo_x1);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &suelo_y1);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &suelo_x2);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &suelo_y2);

      if (num_ejec != 2) {
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &lejos);
            getLine(ald, buffer, size);
            sscanf(buffer, "%d", &cerca);
      }
      delete ald;
      ald = NULL;
      canal_p(para_codificar);

      if (num_ejec == 2) {
            if (martin == 0) {
                  paso_x = PASO_HARE_X;
                  paso_y = PASO_HARE_Y;
                  alto_hare = ALTO_PERSONAJE;
                  ancho_hare = ANCHO_PERSONAJE;
                  alto_pies = PIES_HARE;
                  lee_dibujos("97.alg");
                  descomprime_dibujo(dir_hare_dch, 1);
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, 1);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);

                  strcpy(fondo_y_menu, "99.alg");
            }
      }

      obj_salir = -1;
      for (l = 0; l < objs_room; l++) {
            if (num_obj[l] == obj_saliendo)
                  obj_salir = l;
      }

      if (num_ejec == 2) {
            if (hare_x == -1) {
                  assert(obj_salir != -1);
                  hare_x = x_alakeva[obj_salir];
                  hare_y = y_alakeva[obj_salir] - alto_hare;
            }
            hare_se_mueve = 0;
      }
      lee_dibujos(pantalla_disco);
      descomprime_dibujo(dir_dibujo3, 1);

      lee_dibujos(num_room);
      descomprime_dibujo(dir_dibujo1, MEDIA);

      DIBUJA_FONDO(0, 171, 0, 0, ANCHOBJ, ALTOBJ, dir_hare_fondo, dir_dibujo3);

      color_hare();
      if (nivel_osc != 0)
            funde_hare(nivel_osc);
      paleta_hare_claro();
      color_hare();
      funde_hare(nivel_osc + 2);
      paleta_hare_oscuro();

      hare_claro();
      cambio_de_color = -1;

      if (num_ejec == 2)
            color_abc(VERDE_CLARO);

      if (num_ejec != 2) {
            for (l = 0; l <= suelo_y1; l++)
                  factor_red[l] = lejos;
            for (l = suelo_y1; l <= 201; l++)
                  factor_red[l] = cerca;

            chiquez = (float)(cerca - lejos) / (float)(suelo_y2 - suelo_y1);
            for (l = suelo_y1; l <= suelo_y2; l++) {
                  factor_red[l] = (int)(lejos + pequegnez);
                  pequegnez = pequegnez + chiquez;
            }
      }

      if (!strcmp(num_room, "24.alg")) {
            for (l = suelo_y1 - 1; l > 74; l--) {
                  factor_red[l] = (int)(lejos - pequegnez);
                  pequegnez = pequegnez + chiquez;
            }
      }

      if (!strcmp(num_room, "54.alg")) {
            for (l = suelo_y1 - 1; l > 84; l--) {
                  factor_red[l] = (int)(lejos - pequegnez);
                  pequegnez = pequegnez + chiquez;
            }
      }

      if (num_ejec != 2) {
            if (hare_x == -1) {
                  assert(obj_salir != -1);
                  hare_x = x_alakeva[obj_salir];
                  hare_y = y_alakeva[obj_salir];
                  alto_hare = (ALTO_PERSONAJE * factor_red[hare_y]) / 100;
                  ancho_hare = (ANCHO_PERSONAJE * factor_red[hare_y]) / 100;
                  hare_y = hare_y - alto_hare;
            } else {
                  alto_hare = (ALTO_PERSONAJE * factor_red[hare_y]) / 100;
                  ancho_hare = (ANCHO_PERSONAJE * factor_red[hare_y]) / 100;
            }
            hare_se_mueve = 0;
      }

      if (num_ejec == 2) {
            soc = 0;
            for (l = 0; l < 6; l++) {
                  soc = soc + ancho_hare;
                  frame_x[l] = soc;
            }
      }

      if (num_ejec == 5)
            hare_se_ve = 1;

      actualiza_datos();

      if (num_ejec == 1)
            espuerta[7] = 0;

      if (!strcmp(num_room, "14.alg") && flags[39] == 1)
            musica_room = 16;
      else if (!strcmp(num_room, "15.alg") && flags[39] == 1)
            musica_room = 16;
      if (!strcmp(num_room, "14.alg") && flags[5] == 1)
            musica_room = 0;
      else if (!strcmp(num_room, "15.alg") && flags[5] == 1)
            musica_room = 0;

      if (musica_antes != musica_room && musica_room != 0)
            playmusic(musica_room);
      if (musica_room == 0)
            stopmusic();

      if ((!strcmp(num_room, "9.alg")) || (strcmp(num_room, "2.alg"))
                  || (!strcmp(num_room, "14.alg")) || (!strcmp(num_room, "18.alg"))
                  || (!strcmp(num_room, "26.alg")))
            conta_ciego_vez = vez();

      if (!strcmp(num_room, "24.alg") && flags[29] == 1)
            animacion_7_4();
      if (!strcmp(num_room, "45.alg"))
            hare_se_ve = 0;
      if (!strcmp(num_room, "49.alg") && flags[7] == 0)
            animacion_4_5();

      refresca_pantalla();
}

void DrasculaEngine::borra_pantalla() {
      memset(VGA, 0, 64000);
      _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
      _system->updateScreen();
}

void DrasculaEngine::lleva_al_hare(int punto_x, int punto_y) {
      if (num_ejec == 5 || num_ejec == 6) {
            if (hare_se_ve == 0) {
                  hare_x = sitio_x;
                  hare_y = sitio_y;
                  goto fin;
            }
      }
      sitio_x = punto_x;
      sitio_y = punto_y;
      empieza_andar();

      for (;;) {
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            if (hare_se_mueve == 0)
                  break;
      }

      if (anda_a_objeto == 1) {
            anda_a_objeto = 0;
            sentido_hare = sentido_final;
      }
fin:
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::mueve_cursor() {
      int pos_cursor[8];

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

      actualiza_refresco_antes();
      pon_hare();
      actualiza_refresco();

      if (!strcmp(texto_nombre, "hacker") && hay_nombre == 1) {
            if (_color != ROJO && menu_scr == 0)
                  color_abc(ROJO);
      } else if (menu_scr == 0 && _color != VERDE_CLARO)
            color_abc(VERDE_CLARO);
      if (hay_nombre == 1 && menu_scr == 0)
            centra_texto(texto_nombre, x_raton, y_raton);
      if (menu_scr == 1)
            menu_sin_volcar();
      else if (menu_bar == 1)
            barra_menu();

      pos_cursor[0] = 0;
      pos_cursor[1] = 0;
      pos_cursor[2] = x_raton - 20;
      pos_cursor[3] = y_raton - 17;
      pos_cursor[4] = ANCHOBJ;
      pos_cursor[5] = ALTOBJ;
      DIBUJA_BLOQUE_CUT(pos_cursor, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::comprueba_objetos() {
      int l, veo = 0;

      for (l = 0; l < objs_room; l++) {
            if (x_raton > x1[l] && y_raton > y1[l]
                        && x_raton < x2[l] && y_raton < y2[l]
                        && visible[l] == 1 && espuerta[l] == 0) {
                  strcpy(texto_nombre, nombre_obj[l]);
                  hay_nombre = 1;
                  veo = 1;
            }
      }

      if (num_ejec == 2) {
            if (x_raton > hare_x + 2 && y_raton > hare_y + 2
                        && x_raton < hare_x + ancho_hare - 2 && y_raton < hare_y + alto_hare - 2) {
                  strcpy(texto_nombre, "hacker");
                  hay_nombre = 1;
                  veo = 1;
            }
      } else {
            if (x_raton > hare_x + 2 && y_raton > hare_y + 2
                        && x_raton < hare_x + ancho_hare - 2 && y_raton < hare_y + alto_hare - 2 && veo == 0) {
                  strcpy(texto_nombre, "hacker");
                  hay_nombre = 1;
                  veo = 1;
            }
      }

      if (veo == 0)
            hay_nombre = 0;
}

void DrasculaEngine::espera_soltar() {
      update_events();
}

void DrasculaEngine::MirarRaton() {
      update_events();
}

void DrasculaEngine::elige_en_barra() {
      int n, num_verbo = -1;

      for (n = 0; n < 7; n++)
            if (x_raton > x_barra[n] && x_raton < x_barra[n + 1])
                  num_verbo = n;

      if (num_verbo < 1)
            sin_verbo();
      else
            elige_verbo(num_verbo);
}

bool DrasculaEngine::comprueba1() {
      int l;

      if (menu_scr == 1)
            saca_objeto();
      else {
            for (l = 0; l < objs_room; l++) {
                  if (x_raton >= x1[l] && y_raton >= y1[l]
                              && x_raton <= x2[l] && y_raton <= y2[l] && rompo == 0) {
                        if (sal_de_la_habitacion(l))
                              return true;
                        if (rompo == 1)
                              break;
                  }
            }

            if (x_raton > hare_x && y_raton > hare_y
                        && x_raton < hare_x + ancho_hare && y_raton < hare_y + alto_hare)
                  rompo = 1;

            for (l = 0; l < objs_room; l++) {
                  if (x_raton > x1[l] && y_raton > y1[l]
                              && x_raton < x2[l] && y_raton < y2[l] && rompo == 0) {
                        sitio_x = sitiobj_x[l];
                        sitio_y = sitiobj_y[l];
                        sentido_final = sentidobj[l];
                        rompo = 1;
                        anda_a_objeto = 1;
                        empieza_andar();
                  }
            }

            if (rompo == 0) {
                  sitio_x = x_raton;
                  sitio_y = y_raton;

                  if (sitio_x < suelo_x1)
                        sitio_x = suelo_x1;
                  if (sitio_x > suelo_x2)
                        sitio_x = suelo_x2;
                  if (sitio_y < suelo_y1 + alto_pies)
                        sitio_y = suelo_y1 + alto_pies;
                  if (sitio_y > suelo_y2)
                        sitio_y = suelo_y2;

                  empieza_andar();
            }
            rompo = 0;
      }

      return false;
}

bool DrasculaEngine::comprueba2() {
      int l;

      if (menu_scr == 1) {
            if (coge_objeto())
                  return true;
      } else {
            if (!strcmp(texto_nombre, "hacker") && hay_nombre == 1) {
                  if (banderas(50))
                        return true;
            } else {
                  for (l = 0; l < objs_room; l++) {
                        if (x_raton > x1[l] && y_raton > y1[l]
                                    && x_raton < x2[l] && y_raton < y2[l] && visible[l] == 1) {
                              sentido_final = sentidobj[l];
                              anda_a_objeto = 1;
                              lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                              if (banderas(num_obj[l]))
                                    return true;
                              if (num_ejec == 4)
                                    break;
                        }
                  }
            }
      }

      return false;
}

Common::KeyCode DrasculaEngine::getscan() {
      update_events();

      return _keyPressed.keycode;
}

void DrasculaEngine::update_events() {
      Common::Event event;
      Common::EventManager *eventMan = _system->getEventManager();

      AudioCD.updateCD();

      while (eventMan->pollEvent(event)) {
      switch (event.type) {
            case Common::EVENT_KEYDOWN:
                  _keyPressed = event.kbd;
                  break;
            case Common::EVENT_KEYUP:
                  _keyPressed.keycode = Common::KEYCODE_INVALID;
                  break;
            case Common::EVENT_MOUSEMOVE:
                  x_raton = event.mouse.x;
                  y_raton = event.mouse.y;
                  break;
            case Common::EVENT_LBUTTONDOWN:
                  boton_izq = 1;
                  break;
            case Common::EVENT_LBUTTONUP:
                  boton_izq = 0;
                  break;
            case Common::EVENT_RBUTTONDOWN:
                  boton_dch = 1;
                  break;
            case Common::EVENT_RBUTTONUP:
                  boton_dch = 0;
                  break;
            case Common::EVENT_QUIT:
                  // TODO
                  salir_al_dos(0);
                  exit(0);
                  break;
            default:
                  break;
            }
      }
}

void DrasculaEngine::elige_verbo(int verbo) {
      int c = 171;

      if (menu_scr == 1)
            c = 0;
      if (num_ejec == 5) {
            if (lleva_objeto == 1 && objeto_que_lleva != 16)
                  suma_objeto(objeto_que_lleva);
      } else {
            if (lleva_objeto == 1)
                  suma_objeto(objeto_que_lleva);
      }

      DIBUJA_FONDO(ANCHOBJ * verbo, c, 0, 0, ANCHOBJ, ALTOBJ, dir_hare_fondo, dir_dibujo3);

      lleva_objeto = 1;
      objeto_que_lleva = verbo;
}

void DrasculaEngine::mesa() {
      int nivel_master, nivel_voc, nivel_cd;

      DIBUJA_BLOQUE(1, 56, 73, 63, 177, 97, dir_mesa, dir_zona_pantalla);
      VUELCA_PANTALLA(73, 63, 73, 63, 177, 97, dir_zona_pantalla);

      for (;;) {
            nivel_master = 72 + 61 - ((_mixer->getVolumeForSoundType(Audio::Mixer::kPlainSoundType) / 16) * 4);
            nivel_voc = 72 + 61 - ((_mixer->getVolumeForSoundType(Audio::Mixer::kSFXSoundType) / 16) * 4);
            nivel_cd = 72 + 61 - ((_mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16) * 4);

            refresca_pantalla();

            DIBUJA_BLOQUE(1, 56, 73, 63, 177, 97, dir_mesa, dir_zona_pantalla);

            DIBUJA_FONDO(183, 56, 82, nivel_master, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kPlainSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla);
            DIBUJA_FONDO(183, 56, 138, nivel_voc, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kSFXSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla);
            DIBUJA_FONDO(183, 56, 194, nivel_cd, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla);

            cursor_mesa();

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

            MirarRaton();

            if (boton_dch == 1)
                  break;
            if (boton_izq == 1) {
                  if (x_raton > 80 && x_raton < 121) {
                        int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kPlainSoundType) / 16;
                        if (y_raton < nivel_master && vol < 15)
                              vol++;
                        if (y_raton > nivel_master && vol > 0)
                              vol--;
                        _mixer->setVolumeForSoundType(Audio::Mixer::kPlainSoundType, vol * 16);
                  }

                  if (x_raton > 136 && x_raton < 178) {
                        int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kSFXSoundType) / 16;
                        if (y_raton < nivel_voc && vol < 15)
                              vol++;
                        if (y_raton > nivel_voc && vol > 0)
                              vol--;
                        _mixer->setVolumeForSoundType(Audio::Mixer::kSFXSoundType, vol * 16);
                  }

                  if (x_raton > 192 && x_raton < 233) {
                        int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16;
                        if (y_raton < nivel_cd && vol < 15)
                              vol++;
                        if (y_raton > nivel_cd && vol > 0)
                              vol--;
                        _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, vol * 16);
                  }
            }

      }

      espera_soltar();
}

void DrasculaEngine::saves() {
      char nombres[10][23];
      char fichero[13];
      int n, n2, num_sav = 0, y = 27;
      Common::InSaveFile *sav;

      borra_pantalla();

      if (!(sav = _saveFileMan->openForLoading("saves.epa"))) {
            error("Can't open saves.epa file.");
      }
      for (n = 0; n < NUM_SAVES; n++)
            sav->read(nombres[n], 23);
      delete sav;

      lee_dibujos("savescr.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);

      color_abc(VERDE_CLARO);

      for (;;) {
            y = 27;
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            for (n = 0; n < NUM_SAVES; n++) {
                  print_abc(nombres[n], 116, y);
                  y = y + 9;
            }
            print_abc(select, 117, 15);
            cursor_mesa();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            y = 27;

            MirarRaton();

            if (boton_izq == 1) {
                  for (n = 0; n < NUM_SAVES; n++) {
                        if (x_raton > 115 && y_raton > y + (9 * n) && x_raton < 115 + 175 && y_raton < y + 10 + (9 * n)) {
                              strcpy(select, nombres[n]);

                              if (strcmp(select, "*"))
                                    hay_seleccion = 1;
                              else {
                                    introduce_nombre();
                                    strcpy(nombres[n], select);
                                    if (hay_seleccion == 1) {
                                          // FIXME: Just use:
                                          //sprintf(fichero, "gsave%02d", n+1);
                                          if (n == 0)
                                                strcpy(fichero, "gsave01");
                                          if (n == 1)
                                                strcpy(fichero, "gsave02");
                                          if (n == 2)
                                                strcpy(fichero, "gsave03");
                                          if (n == 3)
                                                strcpy(fichero, "gsave04");
                                          if (n == 4)
                                          strcpy(fichero, "gsave05");
                                          if (n == 5)
                                                strcpy(fichero, "gsave06");
                                          if (n == 6)
                                                strcpy(fichero, "gsave07");
                                          if (n == 7)
                                                strcpy(fichero, "gsave08");
                                          if (n == 8)
                                                strcpy(fichero, "gsave09");
                                          if (n == 9)
                                                strcpy(fichero, "gsave10");
                                          para_grabar(fichero);
                                          Common::OutSaveFile *tsav;
                                          if (!(tsav = _saveFileMan->openForSaving("saves.epa"))) {
                                                error("Can't open saves.epa file.");
                                          }
                                          for (n = 0; n < NUM_SAVES; n++)
                                                tsav->write(nombres[n], 23);
                                          tsav->finalize();
                                          delete tsav;
                                    }
                              }

                              print_abc(select, 117, 15);
                              y = 27;
                              for (n2 = 0; n2 < NUM_SAVES; n2++) {
                                    print_abc(nombres[n2], 116, y);
                                    y = y + 9;
                              }
                              if (hay_seleccion == 1) {
                                    // FIXME: Just use:
                                    //sprintf(fichero, "gsave%02d", n+1);
                                    if (n == 0)
                                          strcpy(fichero, "gsave01");
                                    if (n == 1)
                                          strcpy(fichero, "gsave02");
                                    if (n == 2)
                                          strcpy(fichero, "gsave03");
                                    if (n == 3)
                                          strcpy(fichero, "gsave04");
                                    if (n == 4)
                                          strcpy(fichero, "gsave05");
                                    if (n == 5)
                                          strcpy(fichero, "gsave06");
                                    if (n == 6)
                                          strcpy(fichero, "gsave07");
                                    if (n == 7)
                                          strcpy(fichero, "gsave08");
                                    if (n == 8)
                                          strcpy(fichero, "gsave09");
                                    if (n == 9)
                                          strcpy(fichero, "gsave10");
                              }
                              num_sav = n;
                        }
                  }

                  if (x_raton > 117 && y_raton > 15 && x_raton < 295 && y_raton < 24 && hay_seleccion == 1) {
                        introduce_nombre();
                        strcpy(nombres[num_sav], select);
                        print_abc(select, 117, 15);
                        y = 27;
                        for (n2 = 0; n2 < NUM_SAVES; n2++) {
                              print_abc(nombres[n2], 116, y);
                              y = y + 9;
                        }
                  }

                  if (x_raton > 125 && y_raton > 123 && x_raton < 199 && y_raton < 149 && hay_seleccion == 1) {
                        para_cargar(fichero);
                        break;
                  } else if (x_raton > 208 && y_raton > 123 && x_raton < 282 && y_raton < 149 && hay_seleccion == 1) {
                        para_grabar(fichero);
                        Common::OutSaveFile *tsav;
                        if (!(tsav = _saveFileMan->openForSaving("saves.epa"))) {
                              error("Can't open saves.epa file.");
                        }
                        for (n = 0; n < NUM_SAVES; n++)
                              tsav->write(nombres[n], 23);
                        tsav->finalize();
                        delete tsav;
                  } else if (x_raton > 168 && y_raton > 154 && x_raton < 242 && y_raton < 180)
                        break;
                  else if (hay_seleccion == 0) {
                        print_abc("elige una partida", 117, 15);
                  }
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  delay(400);
            }
            y = 26;
      }

      borra_pantalla();
      lee_dibujos(num_room);
      descomprime_dibujo(dir_dibujo1, MEDIA);
      buffer_teclado();
      hay_seleccion = 0;
}

void DrasculaEngine::print_abc(const char *dicho, int x_pantalla, int y_pantalla) {
      int pos_texto[8];
      int y_de_letra = 0, x_de_letra = 0, h, longitud;
      longitud = strlen(dicho);

      for (h = 0; h < longitud; h++) {
            y_de_letra = Y_ABC;
            char c = toupper(dicho[h]);
            if (c == 'A')
                  x_de_letra = X_A;
            else if (c == 'B')
                  x_de_letra = X_B;
            else if (c == 'C')
                  x_de_letra = X_C;
            else if (c == 'D')
                  x_de_letra = X_D;
            else if (c == 'E')
                  x_de_letra = X_E;
            else if (c == 'F')
                  x_de_letra = X_F;
            else if (c == 'G')
                  x_de_letra = X_G;
            else if (c == 'H')
                  x_de_letra = X_H;
            else if (c == 'I')
                  x_de_letra = X_I;
            else if (c == 'J')
                  x_de_letra = X_J;
            else if (c == 'K')
                  x_de_letra = X_K;
            else if (c == 'L')
                  x_de_letra = X_L;
            else if (c == 'M')
                  x_de_letra = X_M;
            else if (c == 'N')
                  x_de_letra = X_N;
//TODO      else if (c == '')
//                x_de_letra = X_GN;
            else if (c == '')
                  x_de_letra = X_GN;
            else if (c == 'O')
                  x_de_letra = X_O;
            else if (c == 'P')
                  x_de_letra = X_P;
            else if (c == 'Q')
                  x_de_letra = X_Q;
            else if (c == 'R')
                  x_de_letra = X_R;
            else if (c == 'S')
                  x_de_letra = X_S;
            else if (c == 'T')
                  x_de_letra = X_T;
            else if (c == 'U')
                  x_de_letra = X_U;
            else if (c == 'V')
                  x_de_letra = X_V;
            else if (c == 'W')
                  x_de_letra = X_W;
            else if (c == 'X')
                  x_de_letra = X_X;
            else if (c == 'Y')
                  x_de_letra = X_Y;
            else if (c == 'Z')
                  x_de_letra = X_Z;
            else if (/*c == 0xa7 ||*/ c == ' ')
                  x_de_letra = ESPACIO;
            else {
                  y_de_letra = Y_SIGNOS;
                  if (c == '.')
                        x_de_letra = X_PUNTO;
                  else if (c == ',')
                        x_de_letra = X_COMA;
                  else if (c == '-')
                        x_de_letra = X_GUION;
                  else if (c == '?')
                        x_de_letra = X_CIERRA_INTERROGACION;
//TODO                  else if (c == '')
//                      x_de_letra = X_ABRE_INTERROGACION;
                  else if (c == '"')
                        x_de_letra = X_COMILLAS;
                  else if (c == '!')
                        x_de_letra = X_CIERRA_EXCLAMACION;
//TODO                  else if (c == '')
//                      x_de_letra = X_ABRE_EXCLAMACION;
                  else if (c == ';')
                        x_de_letra = X_PUNTO_Y_COMA;
                  else if (c == '>')
                        x_de_letra = X_MAYOR_QUE;
                  else if (c == '<')
                        x_de_letra = X_MENOR_QUE;
                  else if (c == '$')
                        x_de_letra = X_DOLAR;
                  else if (c == '%')
                        x_de_letra = X_POR_CIENTO;
                  else if (c == ':')
                        x_de_letra = X_DOS_PUNTOS;
                  else if (c == '&')
                        x_de_letra = X_AND;
                  else if (c == '/')
                        x_de_letra = X_BARRA;
                  else if (c == '(')
                        x_de_letra = X_ABRE_PARENTESIS;
                  else if (c == ')')
                        x_de_letra = X_CIERRA_PARENTESIS;
                  else if (c == '*')
                        x_de_letra = X_ASTERISCO;
                  else if (c == '+')
                        x_de_letra = X_MAS;
                  else if (c == '1')
                        x_de_letra = X_N1;
                  else if (c == '2')
                        x_de_letra = X_N2;
                  else if (c == '3')
                        x_de_letra = X_N3;
                  else if (c == '4')
                        x_de_letra = X_N4;
                  else if (c == '5')
                        x_de_letra = X_N5;
                  else if (c == '6')
                        x_de_letra = X_N6;
                  else if (c == '7')
                        x_de_letra = X_N7;
                  else if (c == '8')
                        x_de_letra = X_N8;
                  else if (c == '9')
                        x_de_letra = X_N9;
                  else if (c == '0')
                        x_de_letra = X_N0;
                  else
                        y_de_letra = Y_ACENTOS;
/*
                  if (c == '')
                        x_de_letra = X_A;
                  else if (c == '')
                        x_de_letra = X_B;
                  else if (c == '')
                        x_de_letra = X_C;
                  else if (c == '')
                        x_de_letra = X_D;
                  else if (c == '')
                        x_de_letra = X_E;
                  else if (c == '')
                        x_de_letra = X_F;
                  else if (c == '')
                        x_de_letra = X_G;
                  else if (c == '')
                        x_de_letra = X_H;
                  else if (c == '')
                        x_de_letra = X_I;
                  else if (c == '')
                        x_de_letra = X_J;
                  else if (c == '')
                        x_de_letra = X_K;
                  else if (c == '')
                        x_de_letra = X_L;
                  else if (c == '')
                        x_de_letra = X_M;
                  else if (c == '')
                        x_de_letra = X_N;
                  else if (c == '')
                        x_de_letra = X_GN;
                  else if (c == '\'')
                        x_de_letra = X_O;
                  else if (c == '')
                        x_de_letra = X_P;
                  else if (c == '')
                        x_de_letra = X_P;
                  else if (c == '')
                        x_de_letra = X_A;
                  else if (c == '')
                        x_de_letra = X_B;
                  else if (c == '')
                        x_de_letra = X_C;
                  else if (c == '')
                        x_de_letra = X_D;
                  else if (c == '')
                        x_de_letra = X_E;
                  else if (c == '')
                        x_de_letra = X_F;
                  else if (c == '')
                        x_de_letra = X_G;
                  else if (c == '')
                        x_de_letra = X_H;
                  else if (c == '')
                        x_de_letra = X_I;
                  else if (c == '')
                        x_de_letra = X_J;
                  else if (c == '')
                        x_de_letra = X_K;
                  else if (c == '')
                        x_de_letra = X_L;
                  else if (c == '')
                        x_de_letra = X_M;
                  else if (c == '')
                        x_de_letra = X_N;
                  else if (c == '')
                        x_de_letra = X_GN;
*/          }

            pos_texto[0] = x_de_letra;
            pos_texto[1] = y_de_letra;
            pos_texto[2] = x_pantalla;
            pos_texto[3] = y_pantalla;
            pos_texto[4] = ANCHO_LETRAS;
            pos_texto[5] = ALTO_LETRAS;

            DIBUJA_BLOQUE_CUT(pos_texto, dir_texto, dir_zona_pantalla);

            x_pantalla = x_pantalla + ANCHO_LETRAS;
            if (x_pantalla > 317) {
                  x_pantalla = 0;
                  y_pantalla = y_pantalla + ALTO_LETRAS + 2;
            }
      }
}

void DrasculaEngine::delay(int ms) {
      _system->delayMillis(ms * 2); // originaly was 1
}

void DrasculaEngine::confirma_go() {
      byte key;

      color_abc(ROJO);
      refresca_pantalla();
      centra_texto(SYS0, 160, 87);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      for (;;) {
            key = getscan();
            if (key != 0)
                  break;
      }

      if (key == Common::KEYCODE_DELETE) {
            stopmusic();
            carga_partida("gsave00");
      }
}

void DrasculaEngine::confirma_salir() {
      byte key;

      color_abc(ROJO);
      refresca_pantalla();
      centra_texto(SYS1, 160, 87);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      for (;;) {
            key = getscan();
            if (key != 0)
                  break;
      }

      if (key == Common::KEYCODE_ESCAPE) {
            stopmusic();
            salir_al_dos(0);
      }
}

void DrasculaEngine::salva_pantallas() {
      int xr, yr;

      borra_pantalla();

      lee_dibujos("sv.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      //TODO inicio_ghost();
      //TODO carga_ghost();

      MirarRaton();
      xr = x_raton;
      yr = y_raton;

      for (;;) {
            //TODO efecto(dir_dibujo1);
            MirarRaton();
            if (boton_dch == 1 || boton_izq == 1)
                  break;
            if (x_raton != xr)
                  break;
            if (y_raton != yr)
                  break;
      }
      //TODO fin_ghost();
      lee_dibujos(num_room);
      descomprime_dibujo(dir_dibujo1, MEDIA);
}

void DrasculaEngine::fliplay(const char *filefli, int vel) {
      OpenSSN(filefli, vel);
      while (PlayFrameSSN() && (!term_int)) {
            if (getscan() == Common::KEYCODE_ESCAPE)
                  term_int = 1;
      }
      EndSSN();
}

void DrasculaEngine::FundeDelNegro(int VelocidadDeFundido) {
      char fundido;
      unsigned int color, componente;

      DacPalette256 palFundido;

      for (fundido = 0; fundido < 64; fundido++) {
            for (color = 0; color < 256; color++) {
                  for (componente = 0; componente < 3; componente++) {
                        palFundido[color][componente] = LimitaVGA(palJuego[color][componente] - 63 + fundido);
                  }
            }
            pausa(VelocidadDeFundido);

            setvgapalette256((byte *)&palFundido);
      }
}

void DrasculaEngine::color_abc(int cl) {
      _color = cl;

      if (cl == 0) {
            palJuego[254][0] = 0;
            palJuego[254][1] = 0;
            palJuego[254][2] = 0;
      } else if (cl == 1) {
            palJuego[254][0] = 0x10;
            palJuego[254][1] = 0x3E;
            palJuego[254][2] = 0x28;
      } else if (cl == 3) {
            palJuego[254][0] = 0x16;
            palJuego[254][1] = 0x3F;
            palJuego[254][2] = 0x16;
      } else if (cl == 4) {
            palJuego[254][0] = 0x9;
            palJuego[254][1] = 0x3F;
            palJuego[254][2] = 0x12;
      } else if (cl == 5) {
            palJuego[254][0] = 0x3F;
            palJuego[254][1] = 0x3F;
            palJuego[254][2] = 0x15;
      } else if (cl == 7) {
            palJuego[254][0] = 0x38;
            palJuego[254][1] = 0;
            palJuego[254][2] = 0;
      } else if (cl == 8) {
            palJuego[254][0] = 0x3F;
            palJuego[254][1] = 0x27;
            palJuego[254][2] = 0x0B;
      } else if (cl == 9) {
            palJuego[254][0] = 0x2A;
            palJuego[254][1] = 0;
            palJuego[254][2] = 0x2A;
      } else if (cl == 10) {
            palJuego[254][0] = 0x30;
            palJuego[254][1] = 0x30;
            palJuego[254][2] = 0x30;
      } else if (cl == 11) {
            palJuego[254][0] = 98;
            palJuego[254][1] = 91;
            palJuego[254][2] = 100;
      };

      setvgapalette256((byte *)&palJuego);
}

char DrasculaEngine::LimitaVGA(char valor) {
      return (valor & 0x3F) * (valor > 0);
}

void DrasculaEngine::centra_texto(const char *mensaje, int x_texto, int y_texto) {
      char bb[200], m2[200], m1[200], mb[10][50];
      char m3[200];
      int h, fil, x_texto3, x_texto2, x_texto1, conta_f = 0, ya = 0;

      strcpy(m1, " ");
      strcpy(m2, " ");
      strcpy(m3, " ");
      strcpy(bb, " ");

      for (h = 0; h < 10; h++)
            strcpy(mb[h], " ");

      if (x_texto > 160)
            ya = 1;

      strcpy(m1, mensaje);
      if (x_texto < 60)
            x_texto = 60;
      if (x_texto > 255)
            x_texto = 255;

      x_texto1 = x_texto;

      if (ya == 1)
            x_texto1 = 315 - x_texto;

      x_texto2 = (strlen(m1) / 2) * ANCHO_LETRAS;

tut:
      strcpy(bb, m1);
      scumm_strrev(bb);

      if (x_texto1 < x_texto2) {
            strcpy(m3, strrchr(m1, ' '));
            strcpy(m1, strstr(bb, " "));
            scumm_strrev(m1);
            m1[strlen(m1) - 1] = '\0';
            strcat(m3, m2);
            strcpy(m2, m3);
      };

      x_texto2 = (strlen(m1) / 2) * ANCHO_LETRAS;
      if (x_texto1 < x_texto2)
            goto tut;
      strcpy(mb[conta_f], m1);

      if (!strcmp(m2, ""))
            goto imprimir;
      scumm_strrev(m2);
      m2[strlen(m2) - 1] = '\0';
      scumm_strrev(m2);
      strcpy(m1, m2);
      strcpy(m2, "");
      conta_f++;

      goto tut;

imprimir:

      fil = y_texto - (((conta_f + 3) * ALTO_LETRAS));

      for (h = 0; h < conta_f + 1; h++) {
            x_texto3 = strlen(mb[h]) / 2;
            print_abc(mb[h], ((x_texto) - x_texto3 * ANCHO_LETRAS) - 1, fil);
            fil = fil + ALTO_LETRAS + 2;
      }
}

void DrasculaEngine::comienza_sound(const char *fichero) {
      if (hay_sb == 1) {
            sku = new Common::File;
            sku->open(fichero);
            if (!sku->isOpen()) {
                  error("no puedo abrir archivo de voz");
            }
      }
      ctvd_init(2);
      ctvd_speaker(1);
      ctvd_output(sku);
}

void DrasculaEngine::anima(const char *animacion, int FPS) {
      Common::File FileIn;
      unsigned j;
      int NFrames = 1;
      int cnt = 2;

      AuxBuffLast = (byte *)malloc(65000);
      AuxBuffDes = (byte *)malloc(65000);

      FileIn.open(animacion);

      if (!FileIn.isOpen()) {
            error("No encuentro un fichero de animacion.");
      }

      FileIn.read(&NFrames, sizeof(NFrames));
      FileIn.read(&Leng, sizeof(Leng));
      AuxBuffOrg = (byte *)malloc(Leng);
      FileIn.read(AuxBuffOrg, Leng);
      FileIn.read(cPal, 768);
      carga_pcx(AuxBuffOrg);
      free(AuxBuffOrg);
      memcpy(VGA, AuxBuffDes, 64000);
      _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
      _system->updateScreen();
      set_dac(cPal);
      memcpy(AuxBuffLast, AuxBuffDes, 64000);
      WaitForNext(FPS);
      while (cnt < NFrames) {
            FileIn.read(&Leng, sizeof(Leng));
            AuxBuffOrg = (byte *)malloc(Leng);
            FileIn.read(AuxBuffOrg, Leng);
            FileIn.read(cPal, 768);
            carga_pcx(AuxBuffOrg);
            free(AuxBuffOrg);
            for (j = 0;j < 64000; j++) {
                  VGA[j] = AuxBuffLast[j] = AuxBuffDes[j] ^ AuxBuffLast[j];
            }
            _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
            _system->updateScreen();
            WaitForNext(FPS);
            cnt++;
            byte key = getscan();
            if (key == Common::KEYCODE_ESCAPE)
                  term_int = 1;
            if (key != 0)
                  break;
      }
      free(AuxBuffLast);
      free(AuxBuffDes);
      FileIn.close();
}

void DrasculaEngine::animafin_sound_corte() {
      if (hay_sb == 1) {
            ctvd_stop();
            delete sku;
            ctvd_terminate();
      }
}

void DrasculaEngine::FundeAlNegro(int VelocidadDeFundido) {
      char fundido;
      unsigned int color, componente;

      DacPalette256 palFundido;

      for (fundido = 63; fundido >= 0; fundido--) {
            for (color = 0; color < 256; color++) {
                  for (componente = 0; componente < 3; componente++) {
                        palFundido[color][componente] = LimitaVGA(palJuego[color][componente] - 63 + fundido);
                  }
            }
            pausa(VelocidadDeFundido);

            setvgapalette256((byte *)&palFundido);
      }
}

void DrasculaEngine::pausa(int cuanto) {
      _system->delayMillis(cuanto * 30); // was originaly 2
}

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);
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      DIBUJA_FONDO(interf_x[l] + 24, interf_y[l], 0, 45, 39, 31, dir_dibujo2, dir_zona_pantalla);
      DIBUJA_FONDO(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);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }
}

void DrasculaEngine::pon_igor() {
      int pos_igor[6];

      pos_igor[0] = 1;
      if (num_ejec == 4) {
            pos_igor[1] = 138;
      } else {
            if (sentido_igor == 3)
                  pos_igor[1] = 138;
            else if (sentido_igor == 1)
                  pos_igor[1] = 76;
      }
      pos_igor[2] = x_igor;
      pos_igor[3] = y_igor;
      pos_igor[4] = 54;
      pos_igor[5] = 61;

      DIBUJA_BLOQUE_CUT(pos_igor, dir_hare_frente, dir_zona_pantalla);
}

void DrasculaEngine::pon_dr() {
      int pos_dr[6];

      if (sentido_dr == 1)
            pos_dr[0] = 47;
      else if (sentido_dr == 0)
            pos_dr[0] = 1;
      else if (sentido_dr == 3)
            pos_dr[0] = 93;
      pos_dr[1] = 122;
      pos_dr[2] = x_dr;
      pos_dr[3] = y_dr;
      pos_dr[4] = 45;
      pos_dr[5] = 77;

      DIBUJA_BLOQUE_CUT(pos_dr, dir_hare_fondo, dir_zona_pantalla);
}

void DrasculaEngine::pon_bj() {
      int pos_bj[6];

      if (sentido_bj == 3)
            pos_bj[0] = 10;
      else if (sentido_bj == 0)
            pos_bj[0] = 37;
      pos_bj[1] = 99;
      pos_bj[2] = x_bj;
      pos_bj[3] = y_bj;
      pos_bj[4] = 26;
      pos_bj[5] = 76;

      DIBUJA_BLOQUE_CUT(pos_bj, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::habla_igor_dch(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 56, 82, 108, 134, 160, 186, 212, 238 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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(7);

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

      actualiza_refresco_antes();

      pon_igor();
      pon_dr();
      DIBUJA_FONDO(x_igor + 17, y_igor, x_igor + 17, y_igor, 37, 24, dir_dibujo1, dir_zona_pantalla);

      DIBUJA_BLOQUE(x_habla[cara], 148, x_igor + 17, y_igor, 25, 24, dir_hare_frente, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, x_igor + 26, y_igor);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      pon_igor();
      pon_dr();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_dr_izq(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 1, 40, 79, 118, 157, 196, 235, 274 };
      int cara;

      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(7);

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

      actualiza_refresco_antes();

      pon_igor();
      pon_dr();

      DIBUJA_FONDO(x_dr, y_dr, x_dr, y_dr, 38, 31, dir_dibujo1, dir_zona_pantalla);
      DIBUJA_BLOQUE(x_habla[cara], 90, x_dr, y_dr, 38, 31, dir_hare_fondo, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, x_dr + 19, y_dr);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      pon_igor();
      pon_dr();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_dr_dch(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 1, 40, 79, 118, 157, 196, 235, 274 };
      int cara;

      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(7);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();

      pon_igor();
      pon_dr();

      DIBUJA_FONDO(x_dr, y_dr, x_dr, y_dr, 45, 31, dir_dibujo1, dir_zona_pantalla);
      DIBUJA_BLOQUE(x_habla[cara], 58, x_dr + 7, y_dr, 38, 31, dir_hare_fondo, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, x_dr + 19, y_dr);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      pon_igor();
      pon_dr();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_solo(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int longitud;
      longitud = strlen(dicho);

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

      color_abc(color_solo);

      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:

      if (con_voces == 0)
            centra_texto(dicho, 156, 90);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
            goto bucless;
      }
}

void DrasculaEngine::habla_igor_frente(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 56, 86, 116, 146, 176, 206, 236, 266 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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(7);

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

      actualiza_refresco_antes();

      pon_igor();
      if (num_ejec != 4) {
            pon_dr();
            DIBUJA_FONDO(x_igor, y_igor, x_igor, y_igor, 29, 25, dir_dibujo1, dir_zona_pantalla);
      }
      DIBUJA_BLOQUE(x_habla[cara], 173, x_igor, y_igor, 29, 25, dir_hare_frente, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, x_igor + 26, y_igor);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }

      if (num_ejec != 4) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            pon_igor();
            pon_dr();
      }
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_tabernero(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[9] = { 1, 23, 45, 67, 89, 111, 133, 155, 177 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(MARRON);

      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:

      if (music_status() == 0)
            playmusic(musica_room);

      cara = _rnd->getRandomNumber(8);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 2, 121, 44, 21, 24, dir_hare_dch, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 132, 45);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::hipo(int contador) {
      int y = 0, sentido = 0;
      if (num_ejec == 3)
            y = -1;

comienza:
      contador--;

      refresca_pantalla();
      if (num_ejec == 3)
            VUELCA_PANTALLA(0, 0, 0, y, 320, 200, dir_zona_pantalla);
      else
            VUELCA_PANTALLA(0, 1, 0, y, 320, 198, dir_zona_pantalla);

      if (sentido == 0)
            y++;
      else
            y--;

      if (num_ejec == 3) {
            if (y == 1)
                  sentido = 1;
            if (y == -1)
                  sentido = 0;
      } else {
            if (y == 2)
                  sentido = 1;
            if (y == 0)
                  sentido = 0;
      }
      if (contador > 0)
            goto comienza;

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::fin_sound() {
      delay(1);

      if (hay_sb == 1) {
            while (LookForFree() != 0);
            delete sku;
      }
}

void DrasculaEngine::habla_bj(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[5] = { 64, 92, 120, 148, 176 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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(4);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_bj + 2, y_bj - 1, x_bj + 2, y_bj - 1, 27, 40,
                        dir_dibujo1, dir_zona_pantalla);

      DIBUJA_BLOQUE(x_habla[cara], 99, x_bj + 2, y_bj - 1, 27, 40,
                        dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, x_bj + 7, y_bj);

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

      pausa(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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::hablar(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int suma_1_pixel = 0;
      if (num_ejec == 1)
            suma_1_pixel = 1;

      int y_mask_habla = 170;
      int x_habla_dch[6] = { 1, 25, 49, 73, 97, 121 };
      int x_habla_izq[6] = { 145, 169, 193, 217, 241, 265 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

      if (num_ejec == 6) {
            if (flags[0] == 0 && (!strcmp(num_room, "102.alg"))) {
                  habla_pen(dicho, filename);
                  return;
            }
            if (flags[0] == 0 && (!strcmp(num_room, "58.alg"))) {
                  habla_pen2(dicho, filename);
                  return;
            }
      }

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

      if (num_ejec == 1) {
            if (factor_red[hare_y + alto_hare] == 100)
                  suma_1_pixel = 0;
      }

      if (num_ejec == 2)
            buffer_teclado();

      if (num_ejec == 4) {
            if (strcmp(num_room, "24.alg") || flags[29] == 0)
                  color_abc(AMARILLO);
      } else {
            color_abc(AMARILLO);
      }
      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(5);

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

      actualiza_refresco_antes();
      if (num_ejec == 2)
            DIBUJA_FONDO(hare_x, hare_y, ANCHOBJ + 1, 0, ancho_hare, alto_habla - 1, dir_zona_pantalla, dir_dibujo3);
      else
            DIBUJA_FONDO(hare_x, hare_y, ANCHOBJ + 1, 0, ancho_hare * factor_red[hare_y + alto_hare] / 100,
                        (alto_habla - 1) * factor_red[hare_y + alto_hare] / 100, dir_zona_pantalla, dir_dibujo3);

      pon_hare();

      if (num_ejec == 2) {
            if (!strcmp(fondo_y_menu, "99.alg") || !strcmp(fondo_y_menu, "994.alg"))
                  DIBUJA_FONDO(ANCHOBJ + 1, 0, hare_x, hare_y, ancho_hare, alto_habla - 1, dir_dibujo3, dir_zona_pantalla);
      } else {
            DIBUJA_FONDO(ANCHOBJ + 1, 0, hare_x, hare_y, ancho_hare * factor_red[hare_y + alto_hare] / 100,
                        (alto_habla - 1) * factor_red[hare_y + alto_hare] / 100, dir_dibujo3, dir_zona_pantalla);
      }

      if (sentido_hare == 0) {
            if (num_ejec == 2)
                  DIBUJA_BLOQUE(x_habla_dch[cara], y_mask_habla, hare_x + 12, hare_y, ancho_habla, alto_habla,
                                    dir_hare_dch, dir_zona_pantalla);
            else
                  reduce_hare_chico(x_habla_izq[cara], y_mask_habla, hare_x + 8 * factor_red[hare_y + alto_hare] / 100,
                                    hare_y, ancho_habla, alto_habla, factor_red[hare_y + alto_hare],
                                    dir_hare_dch, dir_zona_pantalla);

            actualiza_refresco();
      } else if (sentido_hare == 1) {
            if (num_ejec == 2)
                  DIBUJA_BLOQUE(x_habla_dch[cara], y_mask_habla, hare_x + 8, hare_y, ancho_habla, alto_habla,
                              dir_hare_dch, dir_zona_pantalla);
            else
                  reduce_hare_chico(x_habla_dch[cara], y_mask_habla, hare_x + 12 * factor_red[hare_y + alto_hare] / 100,
                              hare_y, ancho_habla,alto_habla, factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            actualiza_refresco();
      } else if (sentido_hare == 2) {
            reduce_hare_chico(x_habla_izq[cara], y_mask_habla,
                                    suma_1_pixel + hare_x + 12 * factor_red[hare_y + alto_hare] / 100,
                                    hare_y, ancho_habla, alto_habla, factor_red[hare_y + alto_hare],
                                    dir_hare_frente, dir_zona_pantalla);
            actualiza_refresco();
      } else if (sentido_hare == 3) {
            reduce_hare_chico(x_habla_dch[cara], y_mask_habla,
                                    suma_1_pixel + hare_x + 8 * factor_red[hare_y + alto_hare] / 100,
                                    hare_y, ancho_habla,alto_habla, factor_red[hare_y + alto_hare],
                                    dir_hare_frente, dir_zona_pantalla);
            actualiza_refresco();
      }

      if (con_voces == 0)
            centra_texto(dicho, hare_x, hare_y);

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

      pausa(3);

      byte key = getscan();
      if (num_ejec == 1) {
            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;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      if (num_ejec == 1) {
            if (music_status() == 0 && flags[11] == 0 && corta_musica == 0)
                  playmusic(musica_room);
      }
}

void DrasculaEngine::playmusic(int p) {
      AudioCD.stop();
      AudioCD.play(p - 1, 1, 0, 0);
}

void DrasculaEngine::stopmusic() {
      AudioCD.stop();
}

int DrasculaEngine::music_status() {
      return AudioCD.isPlaying();
}

void DrasculaEngine::refresca_pantalla() {
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();
      if (num_ejec == 3) {
            if (flags[0] == 0)
                  pon_hare();
            else
                  DIBUJA_BLOQUE(113, 54, hare_x - 20, hare_y - 1, 77, 89, dir_dibujo3, dir_zona_pantalla);
      } else {
            pon_hare();
      }
      actualiza_refresco();
}

void DrasculaEngine::carga_partida(const char *nom_game) {
      int l, n_ejec2;
      Common::InSaveFile *sav;

      canal_p(nom_game);
      if (!(sav = _saveFileMan->openForLoading("nom_game"))) {
            error("missing savegame file");
      }

      n_ejec2 = sav->readSint32LE();
      if (n_ejec2 != num_ejec) {
            canal_p(nom_game);
            strcpy(nom_partida, nom_game);
            error("TODO");
            salir_al_dos(n_ejec2);
      }
      sav->read(datos_actuales, 20);
      hare_x = sav->readSint32LE();
      hare_y = sav->readSint32LE();
      sentido_hare = sav->readSint32LE();

      for (l = 1; l < 43; l++) {
            objetos_que_tengo[l] = sav->readSint32LE();
      }

      for (l = 0; l < NUM_BANDERAS; l++) {
            flags[l] = sav->readSint32LE();
      }

      lleva_objeto = sav->readSint32LE();
      objeto_que_lleva = sav->readSint32LE();

      canal_p(nom_game);
}

void DrasculaEngine::canal_p(const char *fich){
      return;
      // TODO

      Common::File ald2, ald3;

      char fich2[13];
      char car;

      strcpy(fich2, "top");

      ald3.open(fich);
      if (!ald3.isOpen()) {
            error("no puedo abrir el archivo codificado");
      }

      ald2.open(fich2, Common::File::kFileWriteMode);
      if (!ald2.isOpen()) {
            error("no puedo abrir el archivo destino");
      }

      car = ald3.readByte();
      while (!ald3.eos()) {
            ald2.writeByte(codifica(car));
            car = ald3.readByte();
      }

      ald2.close();
      ald3.close();
      //remove(fich);   // FIXME: Not portable
      //rename(fich2, fich);  // FIXME: Not portable
}

void DrasculaEngine::puertas_cerradas(int l) {
      if (num_ejec == 1 || num_ejec == 3 || num_ejec == 5 || num_ejec == 6)
            return;
      else if (num_ejec == 2) {
            if (num_obj[l] == 138 && flags[0] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 138 && flags[0] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 136 && flags[8] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 136 && flags[8] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 156 && flags[16] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 156 && flags[16] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 163 && flags[17] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 163 && flags[17] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 177 && flags[15] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 177 && flags[15] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 175 && flags[40] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 175 && flags[40] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 173 && flags[36] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 173 && flags[36] == 1)
                  espuerta[l] = 1;
      } else if (num_ejec == 4) {
            if (num_obj[l] == 101 && flags[0] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 101 && flags[0] == 1 && flags[28] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 103 && flags[0] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 103 && flags[0] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 104 && flags[1] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 104 && flags[1] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 105 && flags[1] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 105 && flags[1] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 106 && flags[2] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 106 && flags[2] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 107 && flags[2] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 107 && flags[2] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 110 && flags[6] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 110 && flags[6] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 114 && flags[4] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 114 && flags[4] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 115 && flags[4] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 115 && flags[4] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 116 && flags[5] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 116 && flags[5] == 1 && flags[23] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 117 && flags[5] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 117 && flags[5] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 120 && flags[8] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 120 && flags[8] == 1)
                  espuerta[l] = 1;
            else if (num_obj[l] == 122 && flags[7] == 0)
                  espuerta[l] = 0;
            else if (num_obj[l] == 122 && flags[7] == 1)
                  espuerta[l] = 1;
      }
}

void DrasculaEngine::color_hare() {
      int color, componente;

      for (color = 235; color < 253; color++) {
            for (componente = 0; componente < 3; componente++) {
                  palJuego[color][componente] = palHare[color][componente];
            }
      }
      ActualizaPaleta();
}

void DrasculaEngine::funde_hare(int oscuridad) {
      char fundido;
      unsigned int color, componente;

      for (fundido = oscuridad; fundido >= 0; fundido--) {
            for (color = 235; color < 253; color++) {
                  for (componente = 0; componente < 3; componente++)
                        palJuego[color][componente] = LimitaVGA(palJuego[color][componente] - 8 + fundido);
            }
      }

      ActualizaPaleta();
}

void DrasculaEngine::paleta_hare_claro() {
      int color, componente;

      for (color = 235; color < 253; color++) {
            for (componente = 0; componente < 3; componente++)
                  palHareClaro[color][componente] = palJuego[color][componente];
      }
}

void DrasculaEngine::paleta_hare_oscuro() {
      int color, componente;

      for (color = 235; color < 253; color++) {
            for (componente = 0; componente < 3; componente++)
                  palHareOscuro[color][componente] = palJuego[color][componente];
      }
}

void DrasculaEngine::hare_claro() {
      int color, componente;

      for (color = 235; color < 253; color++) {
            for (componente = 0; componente < 3; componente++)
                  palJuego[color][componente] = palHareClaro[color][componente];
      }

      ActualizaPaleta();
}

void DrasculaEngine::empieza_andar() {
      hare_se_mueve = 1;

      paso_x = PASO_HARE_X;
      paso_y = PASO_HARE_Y;

      if (num_ejec == 2) {
            if ((sitio_x < hare_x) && (sitio_y <= (hare_y + alto_hare)))
                  cuadrante_1();
            else if ((sitio_x < hare_x) && (sitio_y > (hare_y + alto_hare)))
                  cuadrante_3();
            else if ((sitio_x > hare_x + ancho_hare) && (sitio_y <= (hare_y + alto_hare)))
                  cuadrante_2();
            else if ((sitio_x > hare_x + ancho_hare) && (sitio_y > (hare_y + alto_hare)))
                  cuadrante_4();
            else if (sitio_y < hare_y + alto_hare)
                  anda_parriba();
            else if (sitio_y > hare_y + alto_hare)
                  anda_pabajo();
      } else {
            if ((sitio_x < hare_x + ancho_hare / 2 ) && (sitio_y <= (hare_y + alto_hare)))
                  cuadrante_1();
            else if ((sitio_x < hare_x + ancho_hare / 2) && (sitio_y > (hare_y + alto_hare)))
                  cuadrante_3();
            else if ((sitio_x > hare_x + ancho_hare / 2) && (sitio_y <= (hare_y + alto_hare)))
                  cuadrante_2();
            else if ((sitio_x > hare_x + ancho_hare / 2) && (sitio_y > (hare_y + alto_hare)))
                  cuadrante_4();
            else
                  hare_se_mueve = 0;
      }
      conta_vez = vez();
}

void DrasculaEngine::actualiza_refresco() {
      if (num_ejec == 1) {
            if (!strcmp(num_room, "63.alg"))
                  refresca_63();
            else if (!strcmp(num_room, "62.alg"))
                  refresca_62();
      } else if (num_ejec == 2) {
            if (!strcmp(num_room, "3.alg"))
                  refresca_3();
            else if (!strcmp(num_room, "2.alg"))
                  refresca_2();
            else if (!strcmp(num_room, "4.alg"))
                  refresca_4();
            else if (!strcmp(num_room, "5.alg"))
                  refresca_5();
            else if (!strcmp(num_room, "15.alg"))
                  refresca_15();
            else if (!strcmp(num_room, "17.alg"))
                  refresca_17();
            else if (!strcmp(num_room, "18.alg"))
                  refresca_18();
            else if (!strcmp(num_room, "10.alg"))
                  mapa();
      } else if (num_ejec == 3) {
            if (!strcmp(num_room, "20.alg"))
                  refresca_20();
            else if (!strcmp(num_room, "13.alg"))
                  refresca_13();
      } else if (num_ejec == 4) {
            if (!strcmp(num_room, "29.alg"))
                  refresca_29();
            else if (!strcmp(num_room, "26.alg"))
                  refresca_26();
            else if (!strcmp(num_room, "27.alg"))
                  refresca_27();
            else if (!strcmp(num_room, "31.alg"))
                  refresca_31();
            else if (!strcmp(num_room, "34.alg"))
                  refresca_34();
            else if (!strcmp(num_room, "35.alg"))
                  refresca_35();
      } else if (num_ejec == 5) {
            if (!strcmp(num_room, "45.alg"))
                  mapa();
            else if (!strcmp(num_room, "50.alg"))
                  refresca_50();
            else if (!strcmp(num_room, "57.alg"))
                  refresca_57();
      } else if (num_ejec == 6) {
            if (!strcmp(num_room, "60.alg"))
                  refresca_60();
            else if (!strcmp(num_room, "61.alg"))
                  refresca_61();
            else if (!strcmp(num_room, "58.alg"))
                  refresca_58();
      }
 }

void DrasculaEngine::actualiza_refresco_antes() {
      if (num_ejec == 1) {
            if (!strcmp(num_room, "62.alg"))
                  refresca_62_antes();
            else if (!strcmp(num_room, "16.alg"))
                  pon_bj();
      } else if (num_ejec == 2) {
            if (!strcmp(num_room, "1.alg"))
                  refresca_1_antes();
            else if (!strcmp(num_room, "3.alg"))
                  refresca_3_antes();
            else if (!strcmp(num_room, "5.alg"))
                  refresca_5_antes();
            else if (!strcmp(num_room, "6.alg"))
                  refresca_6_antes();
            else if (!strcmp(num_room, "7.alg"))
                  refresca_7_antes();
            else if (!strcmp(num_room, "9.alg"))
                  refresca_9_antes();
            else if (!strcmp(num_room, "12.alg"))
                  refresca_12_antes();
            else if (!strcmp(num_room, "14.alg"))
                  refresca_14_antes();
            else if (!strcmp(num_room, "16.alg"))
                  refresca_16_antes();
            else if (!strcmp(num_room, "17.alg"))
                  refresca_17_antes();
            else if (!strcmp(num_room, "18.alg"))
                  refresca_18_antes();
      } else if (num_ejec == 3) {
            // nothing
      } else if (num_ejec == 4) {
            if (!strcmp(num_room, "21.alg"))
                  refresca_21_antes();
            else if (!strcmp(num_room, "22.alg"))
                  refresca_22_antes();
            else if (!strcmp(num_room, "23.alg"))
                  refresca_23_antes();
            else if (!strcmp(num_room, "24.alg"))
                  refresca_24_antes();
            else if (!strcmp(num_room, "26.alg"))
                  refresca_26_antes();
            else if (!strcmp(num_room, "27.alg"))
                  refresca_27_antes();
            else if (!strcmp(num_room, "29.alg"))
                  refresca_29_antes();
            else if (!strcmp(num_room, "30.alg"))
                  refresca_30_antes();
            else if (!strcmp(num_room, "31.alg"))
                  refresca_31_antes();
            else if (!strcmp(num_room, "34.alg"))
                  refresca_34_antes();
            else if (!strcmp(num_room, "35.alg"))
                  refresca_35_antes();
      } else if (num_ejec == 5) {
            if (!strcmp(num_room,"49.alg"))
                  refresca_49_antes();
            else if (!strcmp(num_room,"53.alg"))
                  refresca_53_antes();
            else if (!strcmp(num_room,"54.alg"))
                  refresca_54_antes();
            else if (!strcmp(num_room,"56.alg"))
                  refresca_56_antes();
      } else if (num_ejec == 6) {
            if (!strcmp(num_room, "102.alg"))
                  refresca_pendulo();
            else if (!strcmp(num_room, "58.alg"))
                  refresca_58_antes();
            else if (!strcmp(num_room, "59.alg"))
                  refresca_59_antes();
            else if (!strcmp(num_room, "60.alg"))
                  refresca_60_antes();
      }
}

void DrasculaEngine::pon_hare() {
      int pos_hare[6];
      int r;

      if (hare_se_mueve == 1 && paso_x == PASO_HARE_X) {
            for (r = 0; r < paso_x; r++) {
                  if (num_ejec == 1) {
                        if (sentido_hare == 0 && sitio_x - r == hare_x + ancho_hare / 2) {
                              hare_se_mueve = 0;
                              paso_x = PASO_HARE_X;
                              paso_y = PASO_HARE_Y;
                        }
                        if (sentido_hare == 1 && sitio_x + r == hare_x + ancho_hare / 2) {
                              hare_se_mueve = 0;
                              paso_x = PASO_HARE_X;
                              paso_y = PASO_HARE_Y;
                              hare_x = sitio_x - ancho_hare / 2;
                              hare_y = sitio_y - alto_hare;
                        }
                  } else if (num_ejec == 2) {
                        if (sentido_hare == 0 && sitio_x - r == hare_x) {
                              hare_se_mueve = 0;
                              paso_x = PASO_HARE_X;
                              paso_y = PASO_HARE_Y;
                        }
                        if (sentido_hare == 1 && sitio_x + r == hare_x + ancho_hare) {
                              hare_se_mueve = 0;
                              paso_x = PASO_HARE_X;
                              paso_y = PASO_HARE_Y;
                              hare_x = sitio_x - ancho_hare + 4;
                              hare_y = sitio_y - alto_hare;
                        }
                  }
            }
      }
      if (hare_se_mueve == 1 && paso_y == PASO_HARE_Y) {
            for (r = 0; r < paso_y; r++) {
                  if (sentido_hare == 2 && sitio_y - r == hare_y + alto_hare) {
                        hare_se_mueve = 0;
                        paso_x = PASO_HARE_X;
                        paso_y = PASO_HARE_Y;
                  }
                  if (sentido_hare == 3 && sitio_y + r == hare_y + alto_hare) {
                        hare_se_mueve = 0;
                        paso_x = PASO_HARE_X;
                        paso_y = PASO_HARE_Y;
                  }
            }
      }

      if (num_ejec == 1 || num_ejec == 4 || num_ejec == 5 || num_ejec == 6) {
            if (hare_se_ve == 0)
                  goto no_vuelco;
      }

      if (hare_se_mueve == 0) {
            pos_hare[0] = 0;
            pos_hare[1] = DIF_MASK_HARE;
            pos_hare[2] = hare_x;
            pos_hare[3] = hare_y;
            if (num_ejec == 2) {
                  pos_hare[4] = ancho_hare;
                  pos_hare[5] = alto_hare;
            } else {
                  pos_hare[4] = ANCHO_PERSONAJE;
                  pos_hare[5] = ALTO_PERSONAJE;
            }

            if (sentido_hare == 0) {
                  pos_hare[1] = 0;
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            } else if (sentido_hare == 1)
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            else if (sentido_hare == 2)
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_fondo, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_fondo, dir_zona_pantalla);
            else
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_frente, dir_zona_pantalla);
                  else
                        reduce_hare_chico( pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla);
      } else if (hare_se_mueve == 1) {
            pos_hare[0] = frame_x[num_frame];
            pos_hare[1] = frame_y + DIF_MASK_HARE;
            pos_hare[2] = hare_x;
            pos_hare[3] = hare_y;
            if (num_ejec == 2) {
                  pos_hare[4] = ancho_hare;
                  pos_hare[5] = alto_hare;
            } else {
                  pos_hare[4] = ANCHO_PERSONAJE;
                  pos_hare[5] = ALTO_PERSONAJE;
            }
            if (sentido_hare == 0) {
                  pos_hare[1] = 0;
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            } else if (sentido_hare == 1) {
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            } else if (sentido_hare == 2) {
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_fondo, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_fondo, dir_zona_pantalla);
            } else {
                  if (num_ejec == 2)
                        DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_frente, dir_zona_pantalla);
                  else
                        reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5],
                                                      factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla);
            }

no_vuelco:
            aumenta_num_frame();
      }
}

void DrasculaEngine::menu_sin_volcar() {
      int h, n, x;
      char texto_icono[13];

      x = sobre_que_objeto();
      strcpy(texto_icono, nombre_icono[x]);

      for (n = 1; n < 43; n++) {
            h = objetos_que_tengo[n];

            if (h != 0) {
                  if (num_ejec == 6)
                        DIBUJA_FONDO(x_pol[n], y_pol[n], x_obj[n], y_obj[n],
                                    ANCHOBJ, ALTOBJ, dir_mesa, dir_zona_pantalla);
                  else
                        DIBUJA_FONDO(x_pol[n], y_pol[n], x_obj[n], y_obj[n],
                                    ANCHOBJ, ALTOBJ, dir_hare_frente, dir_zona_pantalla);
            }
            DIBUJA_BLOQUE(x1d_menu[h], y1d_menu[h], x_obj[n], y_obj[n],
                        ANCHOBJ, ALTOBJ, dir_hare_fondo, dir_zona_pantalla);
      }

      if (x < 7)
            print_abc(texto_icono, x_obj[x] - 2, y_obj[x] - 7);
}

void DrasculaEngine::barra_menu() {
      int n, sobre_verbo = 1;

      for (n = 0; n < 7; n++) {
            if (x_raton > x_barra[n] && x_raton < x_barra[n + 1])
                  sobre_verbo = 0;
            DIBUJA_BLOQUE(ANCHOBJ * n, ALTOBJ * sobre_verbo, x_barra[n], 2,
                                    ANCHOBJ, ALTOBJ, dir_hare_fondo, dir_zona_pantalla);
            sobre_verbo = 1;
      }
}

void DrasculaEngine::saca_objeto() {
      int h = 0, n;

      refresca_pantalla();

      for (n = 1; n < 43; n++){
            if (sobre_que_objeto() == n) {
                  h = objetos_que_tengo[n];
                  objetos_que_tengo[n] = 0;
                  if (h != 0)
                        lleva_objeto = 1;
            }
      }

      espera_soltar();

      if (lleva_objeto == 1)
            elige_objeto(h);
}

bool DrasculaEngine::sal_de_la_habitacion(int l) {
      char salgo[13];

      if (num_ejec == 1) {
            if (num_obj[l] == 105 && flags[0] == 0)
                  hablar(TEXT442, "442.als");
            else {
                  puertas_cerradas(l);

                  if (espuerta[l] != 0) {
                        lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                        sentido_hare = sentidobj[l];
                        refresca_pantalla();
                        VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                        hare_se_mueve = 0;
                        sentido_hare = sentido_alkeva[l];
                        obj_saliendo = alapuertakeva[l];
                        rompo = 1;
                        musica_antes = musica_room;

                        if (num_obj[l] == 105) {
                              animacion_2_1();
                              return true;
                        }
                        borra_pantalla();
                        strcpy(salgo, alapantallakeva[l]);
                        strcat(salgo, ".ald");
                        hare_x = -1;
                        carga_escoba(salgo);
                  }
            }
      } else if (num_ejec == 2) {
            puertas_cerradas(l);
            if (espuerta[l] != 0) {
                  lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                  hare_se_mueve = 0;
                  sentido_hare = sentido_alkeva[l];
                  obj_saliendo = alapuertakeva[l];
                  rompo = 1;
                  musica_antes = musica_room;
                  if (num_obj[l] == 136)
                        animacion_2_2();
                  if (num_obj[l] == 124)
                        animacion_3_2();
                  if (num_obj[l] == 173) {
                        animacion_35_2();
                        return true;
                  } if (num_obj[l] == 146 && flags[39] == 1) {
                        flags[5] = 1;
                        flags[11] = 1;
                  }
                  if (num_obj[l] == 176 && flags[29] == 1) {
                        flags[29] = 0;
                        resta_objeto(23);
                        suma_objeto(11);
                  }
                  borra_pantalla();
                  delete ald;
                  ald = NULL;
                  strcpy(salgo, alapantallakeva[l]);
                  strcat(salgo, ".ald");
                  hare_x =- 1;
                  carga_escoba(salgo);
            }
      } else if (num_ejec == 3) {
            puertas_cerradas(l);
            if (espuerta[l] != 0 && visible[l] == 1) {
                  lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                  sentido_hare = sentidobj[l];
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hare_se_mueve = 0;
                  sentido_hare = sentido_alkeva[l];
                  obj_saliendo = alapuertakeva[l];
                  rompo = 1;
                  musica_antes = musica_room;
                  borra_pantalla();
                  strcpy(salgo, alapantallakeva[l]);
                  strcat(salgo, ".ald");
                  hare_x =- 1;
                  carga_escoba(salgo);
            }
      } else if (num_ejec == 4) {
            puertas_cerradas(l);
            if (espuerta[l] != 0) {
                  lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                  sentido_hare = sentidobj[l];
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hare_se_mueve = 0;
                  sentido_hare = sentido_alkeva[l];
                  obj_saliendo = alapuertakeva[l];
                  rompo = 1;
                  musica_antes = musica_room;

                  if (num_obj[l] == 108)
                        lleva_al_hare(171, 78);
                  borra_pantalla();
                  strcpy(salgo, alapantallakeva[l]);
                  strcat(salgo, ".ald");
                  hare_x = -1;
                  carga_escoba(salgo);
            }
      } else if (num_ejec == 5) {
            puertas_cerradas(l);
            if (espuerta[l] != 0 && visible[l] == 1) {
                  lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                  sentido_hare = sentidobj[l];
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hare_se_mueve = 0;
                  sentido_hare = sentido_alkeva[l];
                  obj_saliendo = alapuertakeva[l];
                  rompo = 1;
                  musica_antes = musica_room;
                  hare_se_ve = 1;
                  borra_pantalla();
                  strcpy(salgo, alapantallakeva[l]);
                  strcat(salgo, ".ald");
                  hare_x = -1;
                  carga_escoba(salgo);
        }
      } else if (num_ejec == 6) {
            puertas_cerradas(l);

            if (espuerta[l] != 0) {
                  lleva_al_hare(sitiobj_x[l], sitiobj_y[l]);
                  sentido_hare = sentidobj[l];
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hare_se_mueve = 0;
                  sentido_hare = sentido_alkeva[l];
                  obj_saliendo = alapuertakeva[l];
                  rompo = 1;
                  musica_antes = musica_room;
                  borra_pantalla();
                  strcpy(salgo, alapantallakeva[l]);
                  strcat(salgo, ".ald");
                  hare_x = -1;
                  carga_escoba(salgo);

                  if (obj_saliendo == 105)
                        animacion_19_6();
            }
      }

      return false;
}

bool DrasculaEngine::coge_objeto() {
      int h, n;
      h = objeto_que_lleva;
      comprueba_flags = 1;

      refresca_pantalla();
      menu_sin_volcar();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      if (objeto_que_lleva < 7)
            goto usando_verbos;

      for (n = 1; n < 43; n++) {
            if (sobre_que_objeto() == n && objetos_que_tengo[n] == 0) {
                  objetos_que_tengo[n] = h;
                  lleva_objeto = 0;
                  comprueba_flags = 0;
            }
      }

usando_verbos:

      if (comprueba_flags == 1) {
            if (comprueba_banderas_menu())
                  return true;
      }
      espera_soltar();
      if (lleva_objeto == 0)
            sin_verbo();

      return false;
}

bool DrasculaEngine::banderas(int fl) {
      hare_se_mueve = 0;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      hay_respuesta = 1;

      if (menu_scr == 1) {
            if (num_ejec == 1) {
                  if (objeto_que_lleva == MIRAR && fl == 28)
                        hablar(TEXT328, "328.als");
            } else if (num_ejec == 2) {
                  if ((objeto_que_lleva == MIRAR && fl == 22 && flags[23] == 0)
                              || (objeto_que_lleva == ABRIR && fl == 22 && flags[23] == 0)) {
                        hablar(TEXT164, "164.als");
                        flags[23] = 1;
                        sin_verbo();
                        suma_objeto(7);
                        suma_objeto(18);
                  } else if (objeto_que_lleva == MIRAR && fl == 22 && flags[23] == 1)
                        hablar(TEXT307, "307.als");
                  else if (objeto_que_lleva == MIRAR && fl == 7)
                        hablar(TEXT143, "143.als");
                  else if (objeto_que_lleva == HABLAR && fl == 7)
                        hablar(TEXT144, "144.als");
                  else if (objeto_que_lleva == MIRAR && fl == 8)
                        hablar(TEXT145, "145.als");
                  else if (objeto_que_lleva == HABLAR && fl == 8)
                        hablar(TEXT146, "146.als");
                  else if (objeto_que_lleva == MIRAR && fl == 9)
                        hablar(TEXT147, "147.als");
                  else if (objeto_que_lleva == HABLAR && fl == 9)
                        hablar(TEXT148, "148.als");
                  else if (objeto_que_lleva == MIRAR && fl == 10)
                        hablar(TEXT151, "151.als");
                  else if (objeto_que_lleva == MIRAR && fl == 11)
                        hablar(TEXT152, "152.als");
                  else if (objeto_que_lleva == HABLAR && fl == 11)
                        hablar(TEXT153, "153.als");
                  else if (objeto_que_lleva == MIRAR && fl == 12)
                        hablar(TEXT154, "154.als");
                  else if (objeto_que_lleva == MIRAR && fl == 13)
                        hablar(TEXT155, "155.als");
                  else if (objeto_que_lleva == MIRAR && fl == 14)
                        hablar(TEXT157, "157.als");
                  else if (objeto_que_lleva == MIRAR && fl == 15)
                        hablar(TEXT58, "58.als");
                  else if (objeto_que_lleva == MIRAR && fl == 16)
                        hablar(TEXT158, "158.als");
                  else if (objeto_que_lleva == MIRAR && fl == 17)
                        hablar(TEXT159, "159.als");
                  else if (objeto_que_lleva == MIRAR && fl == 18)
                        hablar(TEXT160, "160.als");
                  else if (objeto_que_lleva == MIRAR && fl == 19)
                        hablar(TEXT161, "161.als");
                  else if (objeto_que_lleva == MIRAR && fl == 20)
                        hablar(TEXT162, "162.als");
                  else if (objeto_que_lleva == MIRAR && fl == 23)
                        hablar(TEXT152, "152.als");
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 3) {
                  if (objeto_que_lleva == MIRAR && fl == 22)
                        hablar(TEXT307, "307.als");
                  else if (objeto_que_lleva == MIRAR && fl == 28)
                        hablar(TEXT328, "328.als");
                  else if (objeto_que_lleva == MIRAR && fl == 7)
                        hablar(TEXT143, "143.als");
                  else if (objeto_que_lleva == HABLAR && fl == 7)
                        hablar(TEXT144, "144.als");
                  else if (objeto_que_lleva == MIRAR && fl == 8)
                        hablar(TEXT145, "145.als");
                  else if (objeto_que_lleva == HABLAR && fl == 8)
                        hablar(TEXT146, "146.als");
                  else if (objeto_que_lleva == MIRAR && fl == 9)
                        hablar(TEXT147, "147.als");
                  else if (objeto_que_lleva == HABLAR && fl == 9)
                        hablar(TEXT148, "148.als");
                  else if (objeto_que_lleva == MIRAR && fl == 10)
                        hablar(TEXT151, "151.als");
                  else if (objeto_que_lleva == MIRAR && fl == 11)
                        hablar(TEXT152, "152.als");
                  else if (objeto_que_lleva == HABLAR && fl == 11)
                        hablar(TEXT153, "153.als");
                  else if (objeto_que_lleva == MIRAR && fl == 12)
                        hablar(TEXT154, "154.als");
                  else if (objeto_que_lleva == MIRAR && fl == 13)
                        hablar(TEXT155, "155.als");
                  else if (objeto_que_lleva == MIRAR && fl == 14)
                        hablar(TEXT157, "157.als");
                  else if (objeto_que_lleva == MIRAR && fl == 15)
                        hablar(TEXT58, "58.als");
                  else if (objeto_que_lleva == MIRAR && fl == 16)
                        hablar(TEXT158, "158.als");
                  else if (objeto_que_lleva == MIRAR && fl == 17)
                        hablar(TEXT159, "159.als");
                  else if (objeto_que_lleva == MIRAR && fl == 18)
                        hablar(TEXT160, "160.als");
                  else if (objeto_que_lleva == MIRAR && fl == 19)
                        hablar(TEXT161, "161.als");
                  else if (objeto_que_lleva == MIRAR && fl == 20)
                        hablar(TEXT162, "162.als");
                  else if (objeto_que_lleva == MIRAR && fl == 23)
                        hablar(TEXT152, "152.als");
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 4) {
                  if ((objeto_que_lleva == 18 && fl == 19) || (objeto_que_lleva == 19 && fl == 18)) {
                        sin_verbo();
                        elige_objeto(21);
                        resta_objeto(18);
                        resta_objeto(19);
                  } else if ((objeto_que_lleva == 14 && fl == 19) || (objeto_que_lleva == 19 && fl == 14))
                        hablar(TEXT484, "484.als");
                  else if (objeto_que_lleva == MIRAR && fl == 28)
                        hablar(TEXT328, "328.als");
                  else if (objeto_que_lleva == MIRAR && fl == 7)
                        hablar(TEXT478, "478.als");
                  else if (objeto_que_lleva == MIRAR && fl == 8)
                        hablar(TEXT480, "480.als");
                  else if (objeto_que_lleva == MIRAR && fl == 9) {
                        hablar(TEXT482, "482.als");
                        hablar(TEXT483, "483.als");
                  } else if (objeto_que_lleva == MIRAR && fl == 10)
                        hablar(TEXT485, "485.als");
                  else if (objeto_que_lleva == MIRAR && fl == 11)
                        hablar(TEXT488, "488.als");
                  else if (objeto_que_lleva == MIRAR && fl == 12)
                        hablar(TEXT486, "486.als");
                  else if (objeto_que_lleva == MIRAR && fl == 13)
                        hablar(TEXT490, "490.als");
                  else if (objeto_que_lleva == MIRAR && fl == 14)
                        hablar(TEXT122, "122.als");
                  else if (objeto_que_lleva == MIRAR && fl == 15)
                        hablar(TEXT117, "117.als");
                  else if (objeto_que_lleva == HABLAR && fl == 15)
                        hablar(TEXT118, "118.als");
                  else if (objeto_que_lleva == ABRIR && fl == 15)
                        hablar(TEXT119, "119.als");
                  else if (objeto_que_lleva == MIRAR && fl == 16)
                        hablar(TEXT491, "491.als");
                  else if (objeto_que_lleva == MIRAR && fl == 17)
                        hablar(TEXT478, "478.als");
                  else if (objeto_que_lleva == MIRAR && fl == 18)
                        hablar(TEXT493, "493.als");
                  else if (objeto_que_lleva == MIRAR && fl == 19) {
                        hablar(TEXT494, "494.als");
                        hablar(TEXT495, "495.als");
                  } else if (objeto_que_lleva == MIRAR && fl == 20)
                        hablar(TEXT162, "162.als");
                  else if (objeto_que_lleva == MIRAR && fl == 21)
                        hablar(TEXT496, "496.als");
                  else if (objeto_que_lleva == MIRAR && fl == 22)
                        hablar(TEXT161, "161.als");
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 5) {
                  if (objeto_que_lleva == MIRAR && fl == 28)
                        hablar(TEXT328, "328.als");
                  else if (objeto_que_lleva == MIRAR && fl == 7)
                        hablar(TEXT478,"478.als");
                  else if (objeto_que_lleva == MIRAR && fl == 8)
                        hablar(TEXT120,"120.als");
                  else if (objeto_que_lleva == MIRAR && fl == 9) {
                        hablar(TEXT482, "482.als");
                        hablar(TEXT483, "483.als");
                  } else if (objeto_que_lleva == MIRAR && fl == 11)
                        hablar(TEXT488, "488.als");
                  else if (objeto_que_lleva == MIRAR && fl == 13)
                        hablar(TEXT490, "490.als");
                  else if (objeto_que_lleva == MIRAR && fl == 14)
                        hablar(TEXT121, "121.als");
                  else if (objeto_que_lleva == MIRAR && fl == 15)
                        hablar(TEXT117, "117.als");
                  else if (objeto_que_lleva == HABLAR && fl == 15)
                        hablar(TEXT118, "118.als");
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 6) {
                  if (objeto_que_lleva == MIRAR && fl == 28)
                        hablar(TEXT328, "328.als");
                  else if (objeto_que_lleva == MIRAR && fl == 9) {
                        hablar(TEXT482, "482.als");
                        hablar(TEXT483, "483.als");
                  } else if (objeto_que_lleva == MIRAR && fl == 20)
                        hablar(TEXT123, "123.als");
                  else if (objeto_que_lleva == MIRAR && fl == 21)
                        hablar(TEXT441, "441.als");
                  else
                        hay_respuesta = 0;
            }
      } else {
            if (num_ejec == 1) {
                  if (objeto_que_lleva == MIRAR && fl == 50)
                        hablar(TEXT309, "309.als");
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(TEXT310, "310.als");
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar(TEXT311, "311.als");
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar(TEXT312, "312.als");
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar(TEXT313, "313.als");
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar(TEXT314, "314.als");
                  else if (!strcmp(num_room, "62.alg"))
                        pantalla_62(fl);
                  else if (!strcmp(num_room, "63.alg"))
                        pantalla_63(fl);
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 2) {
                  if (objeto_que_lleva == MIRAR && fl == 50)
                        hablar(TEXT308, "308.als");
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(TEXT310, "310.als");
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar(TEXT311, "311.als");
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar(TEXT312, "312.als");
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar(TEXT313, "313.als");
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar(TEXT314, "314.als");
                  else if (objeto_que_lleva == 11 && fl == 50 && flags[22] == 0 && strcmp(num_room, "18.alg"))
                        hablar(TEXT315, "315.als");
                  else if (objeto_que_lleva == 13 && fl == 50)
                        hablar(TEXT156, "156.als");
                  else if (objeto_que_lleva == 20 && fl == 50)
                        hablar(TEXT163, "163.als");
                  else if (!strcmp(num_room, "1.alg"))
                        pantalla_1(fl);
                  else if (!strcmp(num_room, "3.alg"))
                        pantalla_3(fl);
                  else if (!strcmp(num_room, "4.alg"))
                        pantalla_4(fl);
                  else if (!strcmp(num_room, "5.alg"))
                        pantalla_5(fl);
                  else if (!strcmp(num_room, "6.alg"))
                        pantalla_6(fl);
                  else if (!strcmp(num_room, "7.alg"))
                        pantalla_7(fl);
                  else if (!strcmp(num_room, "8.alg"))
                        pantalla_8(fl);
                  else if (!strcmp(num_room, "9.alg"))
                        pantalla_9(fl);
                  else if (!strcmp(num_room, "12.alg"))
                        pantalla_12(fl);
                  else if (!strcmp(num_room, "14.alg"))
                        pantalla_14(fl);
                  else if (!strcmp(num_room, "15.alg"))
                        pantalla_15(fl);
                  else if (!strcmp(num_room, "16.alg"))
                        pantalla_16(fl);
                  else if (!strcmp(num_room, "17.alg"))
                        pantalla_17(fl);
                  else if (!strcmp(num_room, "18.alg"))
                        pantalla_18(fl);
                  else if (!strcmp(num_room, "19.alg"))
                        pantalla_19(fl);
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 3) {
                  if (objeto_que_lleva == MIRAR && fl == 50)
                        hablar(TEXT308, "308.als");
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(TEXT310, "310.als");
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar(TEXT311, "311.als");
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar(TEXT312, "312.als");
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar(TEXT313, "313.als");
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar(TEXT314, "314.als");
                  else if (!strcmp(num_room, "13.alg")) {
                        if (pantalla_13(fl))
                              return true;
                  } else
                        hay_respuesta = 0;
            } else if (num_ejec == 4) {
                  if (!strcmp(num_room, "28.alg"))
                        hablar(TEXT178, "178.als");
                  else if (objeto_que_lleva == MIRAR && fl == 50)
                        hablar(TEXT309, "309.als");
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(TEXT310, "310.als");
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar(TEXT311, "311.als");
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar(TEXT312, "312.als");
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar(TEXT313, "313.als");
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar(TEXT314, "314.als");
                  else if (objeto_que_lleva == 8 && fl == 50 && flags[18] == 0)
                        hablar(TEXT481, "481.als");
                  else if (objeto_que_lleva == 9 && fl == 50)
                        hablar(TEXT484, "484.als");
                  else if (objeto_que_lleva == 12 && fl == 50 && flags[18] == 0)
                        hablar(TEXT487, "487.als");
                  else if (objeto_que_lleva == 20 && fl == 50)
                        hablar(TEXT487, "487.als");
                  else if (!strcmp(num_room, "21.alg"))
                        if (pantalla_21(fl))
                              return true;
                  else if (!strcmp(num_room, "22.alg"))
                        pantalla_22(fl);
                  else if (!strcmp(num_room, "23.alg"))
                        pantalla_23(fl);
                  else if (!strcmp(num_room, "24.alg"))
                        pantalla_24(fl);
                  else if (!strcmp(num_room, "26.alg"))
                        pantalla_26(fl);
                  else if (!strcmp(num_room, "27.alg"))
                        pantalla_27(fl);
                  else if (!strcmp(num_room, "29.alg"))
                        pantalla_29(fl);
                  else if (!strcmp(num_room, "30.alg"))
                        pantalla_30(fl);
                  else if (!strcmp(num_room, "31.alg"))
                        pantalla_31(fl);
                  else if (!strcmp(num_room, "34.alg"))
                        pantalla_34(fl);
                  else if (!strcmp(num_room, "35.alg"))
                        pantalla_35(fl);
                  else if (!strcmp(num_room, "44.alg"))
                        pantalla_44(fl);
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 5) {
                  if (objeto_que_lleva == MIRAR && fl == 50)
                        hablar("Cuanto mas me miro, mas me gusto.", "54.als");
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(".y luego como me cierro?.", "19.als");
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar("Tendre que abrirme primero .no?.", "19.als");
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar("Estoy bien donde estoy.", "19.als");
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar("Ya me tengo.", "11.als");
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar("hola yo.", "16.als");
                  else if (objeto_que_lleva == 20 && fl == 50)
                        hablar(TEXT487, "487.als");
                  else if (!strcmp(num_room, "49.alg"))
                        pantalla_49(fl);
                  else if (!strcmp(num_room, "53.alg"))
                        pantalla_53(fl);
                  else if (!strcmp(num_room, "54.alg"))
                        pantalla_54(fl);
                  else if (!strcmp(num_room, "55.alg"))
                        pantalla_55(fl);
                  else if (!strcmp(num_room, "56.alg"))
                        if (pantalla_56(fl))
                              return true;
                  else
                        hay_respuesta = 0;
            } else if (num_ejec == 6) {
                  if (objeto_que_lleva == MIRAR && fl == 50 && flags[0] == 0)
                        hablar(TEXT308, "308.als");
                  else if (objeto_que_lleva == MIRAR && fl == 50 && flags[0] == 0)
                        hablar(TEXT310, "250.als" );
                  else if (objeto_que_lleva == ABRIR && fl == 50)
                        hablar(TEXT310, "310.als" );
                  else if (objeto_que_lleva == CERRAR && fl == 50)
                        hablar(TEXT311, "311.als" );
                  else if (objeto_que_lleva == MOVER && fl == 50)
                        hablar(TEXT312, "312.als" );
                  else if (objeto_que_lleva == COGER && fl == 50)
                        hablar(TEXT313, "313.als" );
                  else if (objeto_que_lleva == HABLAR && fl == 50)
                        hablar(TEXT314, "314.als" );
                  else if (!strcmp(num_room, "102.alg"))
                        pantalla_pendulo(fl);
                  else if (!strcmp(num_room, "58.alg"))
                        pantalla_58(fl);
                  else if (!strcmp(num_room, "59.alg"))
                        pantalla_59(fl);
                  else if (!strcmp(num_room, "60.alg")) {
                        if (pantalla_60(fl))
                              return true;
                  } else if (!strcmp(num_room, "61.alg"))
                        pantalla_61(fl);
                  else
                        hay_respuesta = 0;
            }
      }
      if (hay_respuesta == 0 && hay_nombre == 1)
            pantalla_0();
      else if (hay_respuesta == 0 && menu_scr == 1)
            pantalla_0();

      return false;
}

void DrasculaEngine::cursor_mesa() {
      int pos_cursor[8];

      pos_cursor[0] = 225;
      pos_cursor[1] = 56;
      pos_cursor[2] = x_raton - 20;
      pos_cursor[3] = y_raton - 12;
      pos_cursor[4] = 40;
      pos_cursor[5] = 25;

      DIBUJA_BLOQUE_CUT(pos_cursor, dir_mesa, dir_zona_pantalla);
}

void DrasculaEngine::introduce_nombre() {
      Common::KeyCode key;
      int v = 0, h = 0;
      char select2[23];
      strcpy(select2, "                      ");
      for (;;) {
            buffer_teclado();
            select2[v] = '-';
            DIBUJA_FONDO(115, 14, 115, 14, 176, 9, dir_dibujo1, dir_zona_pantalla);
            print_abc(select2, 117, 15);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            key = getscan();
            if (key != 0) {
                  if (key == Common::KEYCODE_q)
                        select2[v] = 'q';
                  else if (key == Common::KEYCODE_w)
                        select2[v] = 'w';
                  else if (key == Common::KEYCODE_e)
                        select2[v] = 'e';
                  else if (key == Common::KEYCODE_r)
                        select2[v] = 'r';
                  else if (key == Common::KEYCODE_t)
                        select2[v] = 't';
                  else if (key == Common::KEYCODE_y)
                        select2[v] = 'y';
                  else if (key == Common::KEYCODE_u)
                        select2[v] = 'u';
                  else if (key == Common::KEYCODE_i)
                        select2[v] = 'i';
                  else if (key == Common::KEYCODE_o)
                        select2[v] = 'o';
                  else if (key == Common::KEYCODE_p)
                        select2[v] = 'p';
                  else if (key == Common::KEYCODE_a)
                        select2[v] = 'a';
                  else if (key == Common::KEYCODE_s)
                        select2[v] = 's';
                  else if (key == Common::KEYCODE_d)
                        select2[v] = 'd';
                  else if (key == Common::KEYCODE_f)
                        select2[v] = 'f';
                  else if (key == Common::KEYCODE_g)
                        select2[v] = 'g';
                  else if (key == Common::KEYCODE_h)
                        select2[v] = 'h';
                  else if (key == Common::KEYCODE_j)
                        select2[v] = 'j';
                  else if (key == Common::KEYCODE_k)
                        select2[v] = 'k';
                  else if (key == Common::KEYCODE_l)
                        select2[v] = 'l';
                  else if ((key == Common::KEYCODE_LCTRL) || (key == Common::KEYCODE_RCTRL))
                        select2[v] = '';
                  else if (key == Common::KEYCODE_z)
                        select2[v] = 'z';
                  else if (key == Common::KEYCODE_x)
                        select2[v] = 'x';
                  else if (key == Common::KEYCODE_c)
                        select2[v] = 'c';
                  else if (key == Common::KEYCODE_v)
                        select2[v] = 'v';
                  else if (key == Common::KEYCODE_b)
                        select2[v] = 'b';
                  else if (key == Common::KEYCODE_n)
                        select2[v] = 'n';
                  else if (key == Common::KEYCODE_m)
                        select2[v] = 'm';
                  else if (key == Common::KEYCODE_1)
                        select2[v] = '1';
                  else if (key == Common::KEYCODE_2)
                        select2[v] = '2';
                  else if (key == Common::KEYCODE_3)
                        select2[v] = '3';
                  else if (key == Common::KEYCODE_4)
                        select2[v] = '4';
                  else if (key == Common::KEYCODE_5)
                        select2[v] = '5';
                  else if (key == Common::KEYCODE_6)
                        select2[v] = '6';
                  else if (key == Common::KEYCODE_7)
                        select2[v] = '7';
                  else if (key == Common::KEYCODE_8)
                        select2[v] = '8';
                  else if (key == Common::KEYCODE_9)
                        select2[v] = '9';
                  else if (key == Common::KEYCODE_0)
                        select2[v] = '0';
                  else if (key == Common::KEYCODE_SPACE)
                        select2[v] = '';
                  else if (key == ESC)
                        break;
                  else if (key == Common::KEYCODE_RETURN) {
                              select2[v] = '\0';
                              h = 1;
                              break;
                  } else if (key == Common::KEYCODE_BACKSPACE)
                        select2[v] = '\0';
                  else
                        v--;

                  if (key == Common::KEYCODE_BACKSPACE)
                        v--;
                  else
                        v++;
            }
            if (v == 22)
                  v = 21;
            else if (v == -1)
                  v = 0;
      }
      if (h == 1) {
            strcpy(select, select2);
            hay_seleccion = 1;
      }
}

void DrasculaEngine::para_grabar(char nom_game[]) {
      graba_partida(nom_game);
      comienza_sound("99.als");
      fin_sound();
}

void DrasculaEngine::OpenSSN(const char *Name, int Pause) {
      MiVideoSSN = (byte *)malloc(64256);
      GlobalSpeed = 1000 / Pause;
      FrameSSN = 0;
      UsingMem = 0;
      if (MiVideoSSN == NULL)
            return;
      _Sesion = new Common::File;
      _Sesion->open(Name);
      mSesion = TryInMem(_Sesion);
      LastFrame = _system->getMillis();
}

int DrasculaEngine::PlayFrameSSN() {
      int Exit = 0;
      int Lengt;
      byte *BufferSSN;

      if (!UsingMem)
            _Sesion->read(&CHUNK, 1);
      else {
            memcpy(&CHUNK, mSesion, 1);
            mSesion += 1;
      }
      switch (CHUNK) {
      case SET_PALET:
            if (!UsingMem)
                  _Sesion->read(dacSSN, 768);
            else {
                  memcpy(dacSSN, mSesion, 768);
                  mSesion += 768;
            }
            set_dacSSN(dacSSN);
            break;
      case EMPTY_FRAME:
            WaitFrameSSN();
            break;
      case INIT_FRAME:
            if (!UsingMem) {
                  _Sesion->read(&CMP, 1);
                  _Sesion->read(&Lengt, 4);
            } else {
                  memcpy(&CMP, mSesion, 1);
                  mSesion += 1;
                  memcpy(&Lengt, mSesion, 4);
                  mSesion += 4;
            }
            if (CMP == CMP_RLE) {
                  if (!UsingMem) {
                        BufferSSN = (byte *)malloc(Lengt);
                        _Sesion->read(BufferSSN, Lengt);
                  } else {
                        BufferSSN = (byte *)malloc(Lengt);
                        memcpy(BufferSSN, mSesion, Lengt);
                        mSesion += Lengt;
                  }
                  Des_RLE(BufferSSN, MiVideoSSN);
                  free(BufferSSN);
                  if (FrameSSN) {
                        WaitFrameSSN();
                        MixVideo(VGA, MiVideoSSN);
                        _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
                  } else {
                        WaitFrameSSN();
                        memcpy(VGA, MiVideoSSN, 64000);
                        _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
                  }
                  _system->updateScreen();
                  FrameSSN++;
            } else {
                  if (CMP == CMP_OFF) {
                        if (!UsingMem) {
                              BufferSSN = (byte *)malloc(Lengt);
                              _Sesion->read(BufferSSN, Lengt);
                        } else {
                              BufferSSN = (byte *)malloc(Lengt);
                              memcpy(BufferSSN, mSesion, Lengt);
                              mSesion += Lengt;
                        }
                        Des_OFF(BufferSSN, MiVideoSSN, Lengt);
                        free(BufferSSN);
                        if (FrameSSN) {
                              WaitFrameSSN();
                              MixVideo(VGA, MiVideoSSN);
                              _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
                        } else {
                              WaitFrameSSN();
                              memcpy(VGA, MiVideoSSN, 64000);
                              _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200);
                        }
                        _system->updateScreen();
                        FrameSSN++;
                  }
            }
            break;
      case END_ANIM:
            Exit = 1;
            break;
      default:
            Exit = 1;
            break;
      }

      return (!Exit);
}

void DrasculaEngine::EndSSN() {
      free(MiVideoSSN);
      if (UsingMem)
            free(pointer);
      else {
            _Sesion->close();
            delete _Sesion;
      }
}

byte *DrasculaEngine::TryInMem(Common::File *Sesion) {
      int Lengt;

      Sesion->seek(0, SEEK_END);
      Lengt = Sesion->pos();
      Sesion->seek(0, SEEK_SET);
      pointer = (byte *)malloc(Lengt);
      if (pointer == NULL)
            return NULL;
      Sesion->read(pointer, Lengt);
      UsingMem = 1;
      Sesion->close();
      delete Sesion;
      return pointer;
}

void DrasculaEngine::set_dacSSN(byte *PalBuf) {
      setvgapalette256((byte *)PalBuf);
}

void DrasculaEngine::Des_OFF(byte *BufferOFF, byte *MiVideoOFF, int Lenght) {
      int x = 0;
      unsigned char Reps;
      int Offset;

      memset(MiVideoSSN, 0, 64000);
      while (x < Lenght) {
            Offset = BufferOFF[x] + BufferOFF[x + 1] * 256;
            Reps = BufferOFF[x + 2];
            memcpy(MiVideoOFF + Offset, &BufferOFF[x + 3], Reps);
            x += 3 + Reps;
      }
}

void DrasculaEngine::Des_RLE(byte *BufferRLE, byte *MiVideoRLE) {
      signed int con = 0;
      unsigned int X = 0;
      unsigned int fExit = 0;
      char ch, rep;
      while (!fExit) {
            ch = *BufferRLE++;
            rep = 1;
            if ((ch & 192) == 192) {
                  rep = (ch & 63);
                  ch =* BufferRLE++;
            }
            for (con = 0; con < rep; con++) {
                  *MiVideoRLE++ = ch;
                  X++;
                  if (X > 64000)
                        fExit = 1;
            }
      }
}

void DrasculaEngine::MixVideo(byte *OldScreen, byte *NewScreen) {
      int x;
      for (x = 0; x < 64000; x++)
            OldScreen[x] ^= NewScreen[x];
}

void DrasculaEngine::WaitFrameSSN() {
      uint32 now;
      while ((now = _system->getMillis()) - LastFrame < ((uint32) GlobalSpeed))
            _system->delayMillis(GlobalSpeed - (now - LastFrame));
      LastFrame = LastFrame + GlobalSpeed;
}

byte *DrasculaEngine::carga_pcx(byte *NamePcc) {
      signed int con = 0;
      unsigned int X = 0;
      unsigned int fExit = 0;
      char ch, rep;
      byte *AuxPun;

      AuxPun = AuxBuffDes;

      while (!fExit) {
            ch = *NamePcc++;
            rep = 1;
            if ((ch & 192) == 192) {
                  rep = (ch & 63);
                  ch = *NamePcc++;
            }
            for (con = 0; con< rep; con++) {
                  *AuxPun++ = ch;
                  X++;
                  if (X > 64000)
                        fExit = 1;
            }
      }
      return AuxBuffDes;
}

void DrasculaEngine::set_dac(byte *dac) {
      setvgapalette256((byte *)dac);
}

void DrasculaEngine::WaitForNext(int FPS) {
      _system->delayMillis(1000 / FPS);
}

int DrasculaEngine::vez() {
      return _system->getMillis() / 20; // originaly was 1
}

void DrasculaEngine::reduce_hare_chico(int xx1, int yy1, int xx2, int yy2, int ancho, int alto, int factor, byte *dir_inicio, byte *dir_fin) {
      float suma_x, suma_y;
      int n, m;
      float pixel_x, pixel_y;
      int pos_pixel[6];

      nuevo_ancho = (ancho * factor) / 100;
      nuevo_alto = (alto * factor) / 100;

      suma_x = ancho / nuevo_ancho;
      suma_y = alto / nuevo_alto;

      pixel_x = xx1;
      pixel_y = yy1;

      for (n = 0; n < nuevo_alto; n++) {
            for (m = 0; m < nuevo_ancho; m++) {
                  pos_pixel[0] = (int)pixel_x;
                  pos_pixel[1] = (int)pixel_y;
                  pos_pixel[2] = xx2 + m;
                  pos_pixel[3] = yy2 + n;
                  pos_pixel[4] = 1;
                  pos_pixel[5] = 1;

                  DIBUJA_BLOQUE_CUT(pos_pixel, dir_inicio, dir_fin);

                  pixel_x = pixel_x + suma_x;
            }
            pixel_x = xx1;
            pixel_y = pixel_y + suma_y;
      }
}

char DrasculaEngine::codifica(char car) {
      return ~car;
}

void DrasculaEngine::cuadrante_1() {
      float distancia_x, distancia_y;

      if (num_ejec == 2)
            distancia_x = hare_x + ancho_hare - sitio_x;
      else
            distancia_x = hare_x + ancho_hare / 2 - sitio_x;

      distancia_y = (hare_y + alto_hare) - sitio_y;

      if (distancia_x < distancia_y) {
            direccion_hare = 0;
            sentido_hare = 2;
            paso_x = (int)(distancia_x / (distancia_y / PASO_HARE_Y));
      } else {
            direccion_hare = 7;
            sentido_hare = 0;
            paso_y = (int)(distancia_y / (distancia_x / PASO_HARE_X));
      }
}

void DrasculaEngine::cuadrante_2() {
      float distancia_x, distancia_y;

      if (num_ejec == 2)
            distancia_x = abs(hare_x + ancho_hare - sitio_x);
      else
            distancia_x = abs(hare_x + ancho_hare / 2 - sitio_x);

      distancia_y = (hare_y + alto_hare) - sitio_y;

      if (distancia_x < distancia_y) {
            direccion_hare = 1;
            sentido_hare = 2;
            paso_x = (int)(distancia_x / (distancia_y / PASO_HARE_Y));
      } else {
            direccion_hare = 2;
            sentido_hare = 1;
            paso_y = (int)(distancia_y / (distancia_x / PASO_HARE_X));
      }
}

void DrasculaEngine::cuadrante_3() {
      float distancia_x, distancia_y;

      if (num_ejec == 2)
            distancia_x = hare_x + ancho_hare - sitio_x;
      else
            distancia_x = hare_x + ancho_hare / 2 - sitio_x;

      distancia_y = sitio_y - (hare_y + alto_hare);

      if (distancia_x < distancia_y) {
            direccion_hare = 5;
            sentido_hare = 3;
            paso_x = (int)(distancia_x / (distancia_y / PASO_HARE_Y));
      } else {
            direccion_hare = 6;
            sentido_hare = 0;
            paso_y = (int)(distancia_y / (distancia_x / PASO_HARE_X));
      }
}

void DrasculaEngine::cuadrante_4() {
      float distancia_x, distancia_y;

      if (num_ejec == 2)
            distancia_x = abs(hare_x + ancho_hare - sitio_x);
      else
            distancia_x = abs(hare_x + ancho_hare / 2 - sitio_x);

      distancia_y = sitio_y - (hare_y + alto_hare);

      if (distancia_x < distancia_y) {
            direccion_hare = 4;
            sentido_hare = 3;
            paso_x = (int)(distancia_x / (distancia_y / PASO_HARE_Y));
      } else {
            direccion_hare = 3;
            sentido_hare = 1;
            paso_y = (int)(distancia_y / (distancia_x / PASO_HARE_X));
      }
}

void DrasculaEngine::refresca_62() {
      int borracho_x[] = { 1, 42, 83, 124, 165, 206, 247, 1 };

      DIBUJA_BLOQUE(1, 1, 0, 0, 62, 142, dir_dibujo2, dir_zona_pantalla);

      if (hare_y + alto_hare < 89) {
            DIBUJA_BLOQUE(205, 1, 180, 9, 82, 80, dir_dibujo3, dir_zona_pantalla);
            DIBUJA_FONDO(borracho_x[frame_borracho], 82, 170, 50, 40, 53, dir_dibujo3, dir_zona_pantalla);
      }
}

void DrasculaEngine::refresca_63() {
      DIBUJA_BLOQUE(1, 154, 83, 122, 131, 44, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_62_antes() {
      int velas_y[] = { 158, 172, 186 };
      int cirio_x[] = { 14, 19, 24 };
      int pianista_x[] = {1, 91, 61, 31, 91, 31, 1, 61, 31 };
      int borracho_x[] = {1, 42, 83, 124, 165, 206, 247, 1 };
      int diferencia;

      DIBUJA_FONDO(123, velas_y[frame_velas], 142, 14, 39, 13, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_FONDO(cirio_x[frame_velas], 146, 311, 80, 4, 8, dir_dibujo3, dir_zona_pantalla);

      if (parpadeo == 5)
            DIBUJA_FONDO(1, 149, 127, 52, 9, 5, dir_dibujo3, dir_zona_pantalla);

      if (hare_x > 101 && hare_x < 155)
            DIBUJA_FONDO(31, 138, 178, 51, 18, 16, dir_dibujo3, dir_zona_pantalla);

      if (flags[11] == 0)
            DIBUJA_FONDO(pianista_x[frame_piano], 157, 245, 130, 29, 42, dir_dibujo3, dir_zona_pantalla);
      else if (flags[5] == 0)
            DIBUJA_FONDO(145, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
      else
            DIBUJA_FONDO(165, 140, 229, 117, 43, 59, dir_dibujo3, dir_zona_pantalla);

      if (flags[12] == 1)
            DIBUJA_FONDO(borracho_x[frame_borracho], 82, 170, 50, 40, 53, dir_dibujo3, dir_zona_pantalla);

      diferencia = vez() - conta_ciego_vez;
      if (diferencia > 6) {
            if (flags[12] == 1) {
                  frame_borracho++;
                  if (frame_borracho == 8) {
                        frame_borracho = 0;
                        flags[12] = 0;
                  }
            } else if ((_rnd->getRandomNumber(94) == 15) && (flags[13] == 0))
                  flags[12] = 1;

            frame_velas++;
            if (frame_velas == 3)
                  frame_velas = 0;
            frame_piano++;
            if (frame_piano == 9)
                  frame_piano = 0;
            parpadeo = _rnd->getRandomNumber(10);
            conta_ciego_vez = vez();
      }
}

void DrasculaEngine::graba_partida(char nom_game[]) {
      Common::OutSaveFile *out;
      int l;

      if (!(out = _saveFileMan->openForSaving(nom_game))) {
            error("no puedo abrir el archivo");
      }
      out->writeSint32LE(num_ejec);
      out->write(datos_actuales, 20);
      out->writeSint32LE(hare_x);
      out->writeSint32LE(hare_y);
      out->writeSint32LE(sentido_hare);

      for (l = 1; l < 43; l++) {
            out->writeSint32LE(objetos_que_tengo[l]);
      }

      for (l = 0; l < NUM_BANDERAS; l++) {
            out->writeSint32LE(flags[l]);
      }

      out->writeSint32LE(lleva_objeto);
      out->writeSint32LE(objeto_que_lleva);

      out->finalize();
      if (out->ioFailed())
            warning("Can't write file '%s'. (Disk full?)", nom_game);

      delete out;
      canal_p(nom_game);
}

void DrasculaEngine::aumenta_num_frame() {
      diff_vez = vez() - conta_vez;

      if (diff_vez >= 6) {
            conta_vez = vez();
            num_frame++;
            if (num_frame == 6)
                  num_frame = 0;

            if (direccion_hare == 0) {
                  hare_x = hare_x - paso_x;
                  hare_y = hare_y - paso_y;
            } else if (direccion_hare == 7) {
                  hare_x = hare_x - paso_x;
                  hare_y = hare_y - paso_y;
            } else if (direccion_hare == 1) {
                  hare_x = hare_x + paso_x;
                  hare_y = hare_y - paso_y;
            } else if (direccion_hare == 2) {
                  hare_x = hare_x + paso_x;
                  hare_y = hare_y - paso_y;
            } else if (direccion_hare == 3) {
                  hare_x = hare_x + paso_x;
                  hare_y = hare_y + paso_y;
            } else if (direccion_hare == 4) {
                  hare_x = hare_x + paso_x;
                  hare_y = hare_y + paso_y;
            } else if (direccion_hare == 5) {
                  hare_x = hare_x - paso_x;
                  hare_y = hare_y + paso_y;
            } else if (direccion_hare == 6) {
                  hare_x = hare_x - paso_x;
                  hare_y = hare_y + paso_y;
            }
      }

      if (num_ejec != 2) {
            diferencia_y = (int)(alto_hare - nuevo_alto);
            diferencia_x = (int)(ancho_hare - nuevo_ancho);
            hare_y = hare_y + diferencia_y;
            hare_x = hare_x + diferencia_x;
            alto_hare = (int)nuevo_alto;
            ancho_hare = (int)nuevo_ancho;
      }
}

int DrasculaEngine::sobre_que_objeto() {
      int n = 0;

      for (n = 1; n < 43; n++) {
            if (x_raton > x_obj[n] && y_raton > y_obj[n]
                        && x_raton < x_obj[n] + ANCHOBJ && y_raton < y_obj[n] + ALTOBJ)
                  break;
      }

      return n;
}

bool DrasculaEngine::comprueba_banderas_menu() {
      int h, n;

      for (n = 0; n < 43; n++) {
            if (sobre_que_objeto() == n) {
                  h = objetos_que_tengo[n];
                  if (h != 0)
                        if (banderas(h))
                              return true;
            }
      }

      return false;
}

void DrasculaEngine::pantalla_0() {
      if (num_ejec == 1) {
            if (objeto_que_lleva == MIRAR)
                  hablar(TEXT54, "54.als");
            else if (objeto_que_lleva == MOVER)
                  hablar(TEXT19, "19.als");
            else if (objeto_que_lleva == COGER)
                  hablar(TEXT11, "11.als");
            else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT16, "16.als");
            else
                  hablar(TEXT11,"11.als");
      } else if (num_ejec == 2) {
            if (objeto_que_lleva == MIRAR) {
                  hablar(mirar_t[c_mirar], mirar_v[c_mirar]);
                  c_mirar++;
                  if (c_mirar == 3)
                        c_mirar = 0;
            } else if (objeto_que_lleva == MOVER) {
                  hablar(TEXT19, "19.als");
            } else if (objeto_que_lleva == COGER) {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            } else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT16, "16.als");
            else {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            }
      } else if (num_ejec == 3) {
            if (objeto_que_lleva == MIRAR)
                  hablar(TEXT316, "316.als");
            else if (objeto_que_lleva == MOVER)
                  hablar(TEXT317, "317.als");
            else if (objeto_que_lleva == COGER)
                  hablar(TEXT318, "318.als");
            else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT319, "319.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT319, "319.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT320, "320.als");
            else
                  hablar(TEXT318, "318.als");
      } else if (num_ejec == 4) {
        if (objeto_que_lleva == MIRAR) {
                  hablar(mirar_t[c_mirar], mirar_v[c_mirar]);
                  c_mirar++; 
                  if (c_mirar == 3)
                        c_mirar = 0;
            } else if (objeto_que_lleva == MOVER)
                  hablar(TEXT19, "19.als");
            else if (objeto_que_lleva == COGER) {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            } else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT16, "16.als");
            else {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            }
      } else if (num_ejec == 5) {
            if (objeto_que_lleva == MIRAR) {
                  hablar(mirar_t[c_mirar], mirar_v[c_mirar]);
                  c_mirar++;
                  if (c_mirar == 3)
                        c_mirar = 0;
            } else if (objeto_que_lleva == MOVER)
                  hablar(TEXT19, "19.als");
            else if (objeto_que_lleva == COGER) {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            } else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT16, "16.als");
            else {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            }
      } else if (num_ejec == 6) {
            if (objeto_que_lleva == MIRAR) {
                  hablar(mirar_t[c_mirar], mirar_v[c_mirar]);
                  c_mirar++;
                  if (c_mirar == 3)
                        c_mirar = 0;
            } else if (objeto_que_lleva == MOVER)
                  hablar(TEXT19, "19.als");
            else if (objeto_que_lleva == COGER) {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            } else if (objeto_que_lleva == ABRIR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == CERRAR)
                  hablar(TEXT9, "9.als");
            else if (objeto_que_lleva == HABLAR)
                  hablar(TEXT16, "16.als");
            else {
                  hablar(poder_t[c_poder], poder_v[c_poder]);
                  c_poder++;
                  if (c_poder == 6)
                        c_poder = 0;
            }
      }
}

void DrasculaEngine::pantalla_62(int fl) {
      if (objeto_que_lleva == HABLAR && fl == 53)
            conversa("op_13.cal");
      else if (objeto_que_lleva == HABLAR && fl == 52 && flags[0] == 0)
            animacion_3_1();
      else if (objeto_que_lleva == HABLAR && fl == 52 && flags[0] == 1)
            hablar(TEXT109, "109.als");
      else if (objeto_que_lleva == HABLAR && fl == 54)
            animacion_4_1();
      else if (objeto_que_lleva == MIRAR && fl == 100)
            hablar(TEXT168, "168.als");
      else if (objeto_que_lleva == HABLAR && fl == 100)
            hablar(TEXT169, "169.als");
      else if (objeto_que_lleva == COGER && fl == 100)
            hablar(TEXT170, "170.als");
      else if (objeto_que_lleva == MIRAR && fl == 101)
            hablar(TEXT171, "171.als");
      else if (objeto_que_lleva == MIRAR && fl == 102)
            hablar(TEXT167, "167.als");
      else if (objeto_que_lleva == MIRAR && fl == 103)
            hablar(TEXT166, "166.als");
      else hay_respuesta = 0;
}

void DrasculaEngine::pantalla_63(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 110)
            hablar(TEXT172, "172.als");
      else if (objeto_que_lleva == MIRAR && fl == 109)
            hablar(TEXT173, "173.als");
      else if (objeto_que_lleva == MOVER && fl == 109)
            hablar(TEXT174, "174.als");
      else if (objeto_que_lleva == MIRAR && fl == 108)
            hablar(TEXT334, "334.als");
      else if (objeto_que_lleva == HABLAR && fl == 108)
            hablar(TEXT333, "333.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::conversa(const char *nom_fich) {
      int h;
      int juego1 = 1, juego2 = 1, juego3 = 1, juego4 = 1;
      char frase1[78];
      char frase2[78];
      char frase3[78];
      char frase4[78];
      char para_codificar[13];
      char suena1[13];
      char suena2[13];
      char suena3[13];
      char suena4[13];
      int longitud;
      int respuesta1;
      int respuesta2;
      int respuesta3;
      int usado1 = 0;
      int usado2 = 0;
      int usado3 = 0;
      char buffer[256];

      rompo_y_salgo = 0;

      strcpy(para_codificar, nom_fich);
      canal_p(para_codificar);

      if (num_ejec == 5)
            sin_verbo();

      ald = new Common::File;
      ald->open(nom_fich);
      if (!ald->isOpen()) {
            error("missing data file");
      }
      int size = ald->size();

      getLine(ald, buffer, size);
      sscanf(buffer, "%s", frase1);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", frase2);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", frase3);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", frase4);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", suena1);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", suena2);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", suena3);
      getLine(ald, buffer, size);
      sscanf(buffer, "%s", suena4);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &respuesta1);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &respuesta2);
      getLine(ald, buffer, size);
      sscanf(buffer, "%d", &respuesta3);
      delete ald;
      ald = NULL;
      canal_p(para_codificar);

      if (num_ejec == 2 && !strcmp(nom_fich, "op_5.cal") && flags[38] == 1 && flags[33] == 1) {
            strcpy(frase3, TEXT405);
            strcpy(suena3, "405.als");
            respuesta3 = 31;
      }

      if (num_ejec == 6 && !strcmp(nom_fich, "op_5.cal") && flags[7] == 1) {
            strcpy(frase3, TEXT273);
            strcpy(suena3, "273.als");
            respuesta3 = 14;
      }

      if (num_ejec == 6 && !strcmp(nom_fich, "op_5.cal") && flags[10] == 1) {
            strcpy(frase3, ".cuanto.queda.para.que.acabe.el.partido?");
            strcpy(suena3, "274.als");
            respuesta3 = 15;
      }

      longitud = strlen(frase1);
      for (h = 0; h < longitud; h++)
            if (frase1[h] == (char)0xa7)
                  frase1[h] = ' ';

      longitud = strlen(frase2);
      for (h = 0; h < longitud; h++)
            if (frase2[h] == (char)0xa7)
                  frase2[h] = ' ';

      longitud = strlen(frase3);
      for (h = 0; h < longitud; h++)
            if (frase3[h] == (char)0xa7)
                  frase3[h] = ' ';

      longitud = strlen(frase4);
      for (h = 0; h < longitud; h++)
            if (frase4[h] == (char)0xa7)
                  frase4[h] = ' ';

      lee_dibujos("car.alg");
      descomprime_dibujo(dir_hare_fondo,1);
/* TODO this is limit for mouse, but we can't implement this
      ent.w.ax =  8;
      ent.w.cx =  1;
      ent.w.dx = 31;
      int386(0x33, &ent, &sal);
*/
      color_abc(VERDE_CLARO);

bucle_opc:

      refresca_pantalla();

      if (num_ejec == 1 || num_ejec == 4 || num_ejec == 6) {
            if (music_status() == 0 && flags[11] == 0)
                  playmusic(musica_room);
      } else if (num_ejec == 2) {
            if (music_status() == 0 && flags[11] == 0 && musica_room != 0)
                  playmusic(musica_room);
      } else if (num_ejec == 3 || num_ejec == 5) {
            if (music_status() == 0)
                  playmusic(musica_room);
      }

      MirarRaton();

      if (y_raton > 0 && y_raton < 9) {
            if (usado1 == 1 && _color != BLANCO)
                  color_abc(BLANCO);
            else if (usado1 == 0 && _color != VERDE_CLARO)
                  color_abc(VERDE_CLARO);
      } else if (y_raton > 8 && y_raton < 17) {
            if (usado2 == 1 && _color != BLANCO)
                  color_abc(BLANCO);
            else if (usado2 == 0 && _color != VERDE_CLARO)
                  color_abc(VERDE_CLARO);
      } else if (y_raton > 16 && y_raton < 25) {
            if (usado3 == 1 && _color != BLANCO)
                  color_abc(BLANCO);
            else if (usado3 == 0 && _color != VERDE_CLARO)
                  color_abc(VERDE_CLARO);
      } else if (_color != VERDE_CLARO)
            color_abc(VERDE_CLARO);

      if (y_raton > 0 && y_raton < 9)
            juego1 = 2;
      else if (y_raton > 8 && y_raton < 17)
            juego2 = 2;
      else if (y_raton > 16 && y_raton < 25)
            juego3 = 2;
      else if (y_raton > 24 && y_raton < 33)
            juego4 = 2;

      print_abc_opc(frase1, 1, 2, juego1);
      print_abc_opc(frase2, 1, 10, juego2);
      print_abc_opc(frase3, 1, 18, juego3);
      print_abc_opc(frase4, 1, 26, juego4);

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

      if ((boton_izq == 1) && (juego1 == 2)) {
            usado1 = 1;
            hablar(frase1, suena1);
            if (num_ejec == 3)
                  grr();
            else
                  responde(respuesta1);
      } else if ((boton_izq == 1) && (juego2 == 2)) {
            usado2 = 1;
            hablar(frase2, suena2);
            if (num_ejec == 3)
                  grr();
            else
                  responde(respuesta2);
      } else if ((boton_izq == 1) && (juego3 == 2)) {
            usado3 = 1;
            hablar(frase3, suena3);
            if (num_ejec == 3)
                  grr();
            else
                  responde(respuesta3);
      } else if ((boton_izq == 1) && (juego4 == 2)) {
            hablar(frase4, suena4);
            rompo_y_salgo = 1;
      }

      if (boton_izq == 1)
            color_abc(VERDE_CLARO);

      if (usado1 == 0)
            juego1 = 1;
      else
            juego1 = 3;
      if (usado2 == 0)
            juego2 = 1;
      else
            juego2 = 3;
      if (usado3 == 0)
            juego3 = 1;
      else
            juego3 = 3;

      juego4 = 1;

      if (rompo_y_salgo == 0)
            goto bucle_opc;

      if (num_ejec == 2)
            lee_dibujos(fondo_y_menu);
      else
            lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      if (num_ejec != 5)
            sin_verbo();
}

void DrasculaEngine::animacion_3_1() {
      lee_dibujos("an11y13.alg");
      descomprime_dibujo(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;

      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_dch, 1);
}

void DrasculaEngine::animacion_4_1() {
      lee_dibujos("an12.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      hablar(TEXT205,"205.als");

      actualiza_refresco_antes();

      DIBUJA_FONDO(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
      VUELCA_PANTALLA(228,112, 228,112, 47,60, dir_zona_pantalla);

      pausa(3);

      actualiza_refresco_antes();

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

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

      pausa(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;
      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_dch, 1);
}

void DrasculaEngine::print_abc_opc(const char *dicho, int x_pantalla, int y_pantalla, int juego) {
      int pos_texto[6];
      int y_de_signos, y_de_letra, x_de_letra = 0, h, longitud;
      longitud = strlen(dicho);

      for (h = 0; h < longitud; h++) {
            if (juego == 1) {
                  y_de_letra = Y_ABC_OPC_1;
                  y_de_signos = Y_SIGNOS_OPC_1;
            } else if (juego == 3) {
                  y_de_letra = Y_ABC_OPC_3;
                  y_de_signos = Y_SIGNOS_OPC_3;
            } else {
                  y_de_letra = Y_ABC_OPC_2;
                  y_de_signos = Y_SIGNOS_OPC_2;
            }

            char c = toupper(dicho[h]);
            if (c == 'A')
                  x_de_letra = X_A_OPC;
//          else if (c == '')
//                x_de_letra = X_A_OPC;
//          else if (c == '')
//                x_de_letra = X_A_OPC;
//          else if (c == '')
//                x_de_letra = X_A_OPC;
            else if (c == 'B'
                  )x_de_letra = X_B_OPC;
            else if (c == 'C')
                  x_de_letra = X_C_OPC;
//          else if (c == '')
//                x_de_letra = X_C_OPC;
//          else if (c == '')
//                x_de_letra = X_C_OPC;
            else if (c == 'D')
                  x_de_letra = X_D_OPC;
            else if (c == 'E')
                  x_de_letra = X_E_OPC;
//          else if (c == '')
//                x_de_letra = X_E_OPC;
//          else if (c == '')
//                x_de_letra = X_E_OPC;
//          else if (c == '')
//                x_de_letra = X_E_OPC;
            else if (c == 'F')
                  x_de_letra = X_F_OPC;
            else if (c == 'G')
                  x_de_letra = X_G_OPC;
            else if (c == 'H')
                  x_de_letra = X_H_OPC;
            else if (c == 'I')
                  x_de_letra = X_I_OPC;
//          else if (c == '')
//                x_de_letra = X_I_OPC;
//          else if (c == '')
//                x_de_letra = X_I_OPC;
//          else if (c == '')
//                x_de_letra = X_I_OPC;
            else if (c == 'J')
                  x_de_letra = X_J_OPC;
            else if (c == 'K')
                  x_de_letra = X_K_OPC;
            else if (c == 'L')
                  x_de_letra = X_L_OPC;
            else if (c == 'M')
                  x_de_letra = X_M_OPC;
            else if (c == 'N')
                  x_de_letra = X_N_OPC;
//          else if (c == ''')
//                x_de_letra = X_GN_OPC;
            else if (c == 'O')
                  x_de_letra = X_O_OPC;
//          else if (c == '')
//                x_de_letra = X_O_OPC;
//          else if (c == '')
//                x_de_letra = X_O_OPC;
//          else if (c == '')
//                x_de_letra = X_O_OPC;
            else if (c == 'P')
                  x_de_letra = X_P_OPC;
            else if (c == 'Q')
                  x_de_letra = X_Q_OPC;
            else if (c == 'R')
                  x_de_letra = X_R_OPC;
            else if (c == 'S')
                  x_de_letra = X_S_OPC;
            else if (c == 'T')
                  x_de_letra = X_T_OPC;
            else if (c == 'U')
                  x_de_letra = X_U_OPC;
//          else if (c == '')
//                x_de_letra = X_U_OPC;
//          else if (c == '')
//                x_de_letra = X_U_OPC;
//          else if (c == '')
//                x_de_letra = X_U_OPC;
            else if (c == 'V')
                  x_de_letra = X_V_OPC;
            else if (c == 'W')
                  x_de_letra = X_W_OPC;
            else if (c == 'X')
                  x_de_letra = X_X_OPC;
            else if (c == 'Y')
                  x_de_letra = X_Y_OPC;
            else if (c == 'Z')
                  x_de_letra = X_Z_OPC;
//          else if (c == ' ')
//                x_de_letra = ESPACIO_OPC;
            else
                  y_de_letra = y_de_signos;

            if (c == '.')
                  x_de_letra = X_PUNTO_OPC;
            else if (c == ',')
                  x_de_letra = X_COMA_OPC;
            else if (c == '-')
                  x_de_letra = X_GUION_OPC;
            else if (c == '?')
                  x_de_letra = X_CIERRA_INTERROGACION_OPC;
//          else if (c == '')
//                x_de_letra = X_ABRE_INTERROGACION_OPC;
            else if (c == '"')
                  x_de_letra = X_COMILLAS_OPC;
//          else if (c == '!')
//                x_de_letra = X_CIERRA_EXCLAMACION_OPC;
            else if (c == '')
                  x_de_letra = X_ABRE_EXCLAMACION_OPC;
            else if (c == ';')
                  x_de_letra = X_PUNTO_Y_COMA_OPC;
            else if (c == '>')
                  x_de_letra = X_MAYOR_QUE_OPC;
            else if (c == '<')
                  x_de_letra = X_MENOR_QUE_OPC;
            else if (c == '$')
                  x_de_letra = X_DOLAR_OPC;
            else if (c == '%')
                  x_de_letra = X_POR_CIENTO_OPC;
            else if (c == ':')
                  x_de_letra = X_DOS_PUNTOS_OPC;
            else if (c == '&')
                  x_de_letra = X_AND_OPC;
            else if (c == '/')
                  x_de_letra = X_BARRA_OPC;
            else if (c == '(')
                  x_de_letra = X_ABRE_PARENTESIS_OPC;
            else if (c == ')')
                  x_de_letra = X_CIERRA_PARENTESIS_OPC;
            else if (c == '*')
                  x_de_letra = X_ASTERISCO_OPC;
            else if (c == '+')
                  x_de_letra = X_MAS_OPC;
            else if (c == '1')
                  x_de_letra = X_N1_OPC;
            else if (c == '2')
                  x_de_letra = X_N2_OPC;
            else if (c == '3')
                  x_de_letra = X_N3_OPC;
            else if (c == '4')
                  x_de_letra = X_N4_OPC;
            else if (c == '5')
                  x_de_letra = X_N5_OPC;
            else if (c == '6')
                  x_de_letra = X_N6_OPC;
            else if (c == '7')
                  x_de_letra = X_N7_OPC;
            else if (c == '8')
                  x_de_letra = X_N8_OPC;
            else if (c == '9')
                  x_de_letra = X_N9_OPC;
            else if (c == '0')
                  x_de_letra = X_N0_OPC;

            pos_texto[0] = x_de_letra;
            pos_texto[1] = y_de_letra;
            pos_texto[2] = x_pantalla;
            pos_texto[3] = y_pantalla;
            pos_texto[4] = ANCHO_LETRAS_OPC;
            pos_texto[5] = ALTO_LETRAS_OPC;

            DIBUJA_BLOQUE_CUT(pos_texto, dir_hare_fondo, dir_zona_pantalla);

            x_pantalla = x_pantalla + ANCHO_LETRAS_OPC;
      }
}

void DrasculaEngine::responde(int funcion) {
      if (num_ejec == 1) {
            if (funcion == 10)
                  habla_borracho(TEXTB1, "B1.als");
            else if (funcion == 11)
                  habla_borracho(TEXTB2, "B2.als");
            else if (funcion == 12)
                  habla_borracho(TEXTB3, "B3.als");
      } else if (num_ejec == 2) {
            if (funcion == 8)
                  animacion_8_2();
            else if (funcion == 9)
                  animacion_9_2();
            else if (funcion == 10)
                  animacion_10_2();
            else if (funcion == 15)
                  animacion_15_2();
            else if (funcion == 16)
                  animacion_16_2();
            else if (funcion == 17)
                  animacion_17_2();
            else if (funcion == 19)
                  animacion_19_2();
            else if (funcion == 20)
                  animacion_20_2();
            else if (funcion == 21)
                  animacion_21_2();
            else if (funcion == 23)
                  animacion_23_2();
            else if (funcion == 28)
                  animacion_28_2();
            else if (funcion == 29)
                  animacion_29_2();
            else if (funcion == 30)
                  animacion_30_2();
            else if (funcion == 31)
                  animacion_31_2();
      } else if (num_ejec == 4) {
            if (funcion == 2)
                  animacion_2_4();
            else if (funcion == 3)
                  animacion_3_4();
            else if (funcion == 4)
                  animacion_4_4();
      } else if (num_ejec == 5) {
            if (funcion == 2)
                  animacion_2_5();
            else if (funcion == 3)
                  animacion_3_5();
            else if (funcion == 6)
                  animacion_6_5();
            else if (funcion == 7)
                  animacion_7_5();
            else if (funcion == 8)
                  animacion_8_5();
            else if (funcion == 15)
                  animacion_15_5();
            else if (funcion == 16)
                  animacion_16_5();
            else if (funcion == 17)
                  animacion_17_5();
      } else if (num_ejec == 6) {
            if (funcion == 2)
                  animacion_2_6();
            else if (funcion == 3)
                  animacion_3_6();
            else if (funcion == 4)
                  animacion_4_6();
            else if (funcion == 11)
                  animacion_11_6();
            else if (funcion == 12)
                  animacion_12_6();
            else if (funcion == 13)
                  animacion_13_6();
            else if (funcion == 14)
                  animacion_14_6();
            else if (funcion == 15)
                  animacion_15_6();
      }
}

void DrasculaEngine::habla_pianista(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;
      int x_habla[4] = { 97, 145, 193, 241 };
      int cara;
      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 139, 228, 112, 47, 60,
                        dir_hare_dch, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 221, 128);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_borracho(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 1, 21, 41, 61, 81, 101, 121, 141 };
      int cara;
      int longitud;
      longitud = strlen(dicho);

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

      lee_dibujos("an11y13.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      flags[13] = 1;

bebiendo:

      if (flags[12] == 1) {
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            goto bebiendo;
      }

      buffer_teclado();

      color_abc(VERDE_OSCURO);

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

bucless:

      cara = _rnd->getRandomNumber(7);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 29, 177, 50, 19, 19, dir_hare_frente, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 181, 54);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      flags[13] = 0;
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      if (num_ejec <= 3) {
            if (music_status() == 0 && flags[11] == 0)
                  playmusic(musica_room);
      }
}

void DrasculaEngine::suma_objeto(int osj) {
      int h, puesto = 0;

      for (h = 1; h < 43; h++) {
            if (objetos_que_tengo[h] == osj)
                  puesto = 1;
      }

      if (puesto == 0) {
            for (h = 1; h < 43; h++) {
                  if (objetos_que_tengo[h] == 0) {
                        objetos_que_tengo[h] = osj;
                        puesto = 1;
                        break;
                  }
            }
      }
}

void DrasculaEngine::fin_sound_corte() {
      if (hay_sb == 1) {
            ctvd_stop();
            delete sku;
            ctvd_terminate();
      }
}

void DrasculaEngine::MusicFadeout() {
      int org_vol = _mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType);
      for (;;) {
            int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType);
            vol -= 10;
                  if (vol < 0)
                        vol = 0;
            _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, vol);
            if (vol == 0)
                  break;
            update_events();
            _system->updateScreen();
            _system->delayMillis(50);
      }
      AudioCD.stop();
      _system->delayMillis(100);
      _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, org_vol);
}

void DrasculaEngine::ctvd_end() {
      _mixer->stopHandle(_soundHandle);
}

void DrasculaEngine::ctvd_stop() {
      _mixer->stopHandle(_soundHandle);
}

void DrasculaEngine::ctvd_terminate() {
//    _mixer->stopHandle(_soundHandle);
}

void DrasculaEngine::ctvd_speaker(int flag) {}

void DrasculaEngine::ctvd_output(Common::File *file_handle) {}

void DrasculaEngine::ctvd_init(int b) {
      int soundSize = sku->size();
      byte *soundData = (byte *)malloc(soundSize);
      sku->seek(32);
      sku->read(soundData, soundSize);
      _mixer->playRaw(Audio::Mixer::kSFXSoundType, &_soundHandle, soundData, soundSize - 64,
                              11025, Audio::Mixer::FLAG_AUTOFREE | Audio::Mixer::FLAG_UNSIGNED);
}

int DrasculaEngine::LookForFree() {
      return _mixer->isSoundHandleActive(_soundHandle);
}

void DrasculaEngine::actualiza_datos() {
      if (num_ejec == 1) {
            // nothing
      } else if (num_ejec == 2) {
            if (!strcmp(num_room,"2.alg") && flags[40] == 0)
                  visible[3] = 0;
            else if (!strcmp(num_room, "3.alg") && flags[3] == 1)
                  visible[8] = 0;
            else if (!strcmp(num_room, "6.alg") && flags[1] == 1 && flags[10] == 0) {
                  visible[2] = 0;
                  visible[4] = 1;
            } else if (!strcmp(num_room, "7.alg") && flags[35] == 1)
                  visible[3] = 0;
            else if (!strcmp(num_room, "14.alg") && flags[5] == 1)
                  visible[4] = 0;
            else if (!strcmp(num_room, "18.alg") && flags[28] == 1)
                  visible[2] = 0;
      } else if (num_ejec == 3) {
            // nothing
      } else if (num_ejec == 4) {
            if (!strcmp(num_room, "23.alg") && flags[0] == 0 && flags[11] == 0) 
                  visible[2] = 1;
            if (!strcmp(num_room, "23.alg") && flags[0] == 1 && flags[11] == 0) 
                  visible[2] = 0;
            if (!strcmp(num_room, "21.alg") && flags[10] == 1) 
                  visible[2] = 0;
            if (!strcmp(num_room, "22.alg") && flags[26] == 1) {
                  visible[2] = 0; 
                  visible[1] = 1;
            }
            if (!strcmp(num_room, "22.alg") && flags[27] == 1) 
                  visible[3] = 0;
            if (!strcmp(num_room, "26.alg") && flags[21] == 0) 
                  strcpy(nombre_obj[2], "HUNCHBACKED");
            if (!strcmp(num_room, "26.alg") && flags[18] == 1) 
                  visible[2] = 0;
            if (!strcmp(num_room, "26.alg") && flags[12] == 1) 
                  visible[1] = 0;
            if (!strcmp(num_room, "35.alg") && flags[14] == 1) 
                  visible[2] = 0;
            if (!strcmp(num_room, "35.alg") && flags[17] == 1) 
                  visible[3] = 1;
            if (!strcmp(num_room, "35.alg") && flags[15] == 1) 
                  visible[1] = 0;
      } else if (num_ejec == 5) {
            if (!strcmp(num_room,"49.alg") && flags[6] == 1)
                  visible[2] = 0;
            if (!strcmp(num_room,"49.alg") && flags[6] == 0)
                  visible[1] = 0;
            if (!strcmp(num_room,"49.alg") && flags[6] == 1)
                  visible[1] = 1;
            if (!strcmp(num_room,"45.alg") && flags[6] == 1)
                  visible[3] = 1;
            if (!strcmp(num_room,"53.alg") && flags[2] == 1)
                  visible[3] = 0;
            if (!strcmp(num_room,"54.alg") && flags[13] == 1)
                  visible[3] = 0;
            if (!strcmp(num_room,"55.alg") && flags[8] == 1)
                  visible[1] = 0;
      } else if (num_ejec == 6) {
            if ((!strcmp(num_room, "58.alg")) && flags[8] == 0)
                  espuerta[1] = 0;
            if ((!strcmp(num_room, "58.alg")) && flags[8] == 1)
                  espuerta[1] = 1;
            if (!strcmp(num_room, "59.alg"))
                  espuerta[1] = 0;
            if (!strcmp(num_room, "60.alg")) {
                  sentido_dr = 0;
                  x_dr = 155; 
                  y_dr = 69;
            }
      }
}

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

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

      sentido_hare = 0;
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      lee_dibujos("an2_1.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("an2_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);

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

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 55, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++){
            x++;
            DIBUJA_FONDO(x, 109, 201, 87, 50, 52, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

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

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(201,87, 201,87, 50,52, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 55, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }
      x = 0;

      for (n = 0; n < 2; n++) {
            x++;
            DIBUJA_FONDO(x, 109, 201, 87, 50, 52, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(201, 87, 201, 87, 50, 52, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      fin_sound();

      pausa (4);

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

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

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

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

      borra_pantalla();
      lee_dibujos("ciego1.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("ciego2.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("ciego3.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("ciego4.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("ciego5.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(10);

      habla_ciego(TEXTD68, "d68.als", "44472225500022227555544444664447222550002222755554444466");
      pausa(5);
      habla_hacker(TEXTD57, "d57.als");
      pausa(6);
      habla_ciego(TEXTD69,"d69.als","444722255000222275555444446655033336666664464402256555005504450005446");
      pausa(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");
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      _system->delayMillis(1);
      habla_hacker(TEXTD64, "d64.als");
      habla_ciego(TEXTD76, "d76.als", "5555500004445550330244472225500022227555544444662755644446666005204402266222003332222774440446665555005550335544444");

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(14);

      borra_pantalla();

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

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

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

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

void DrasculaEngine::animacion_10_2() {
      habla_pianista(TEXTP12, "P12.als");
      hablar(TEXT361, "361.als");
      pausa(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::animacion_14_2() {
      int n, pos_cabina[6];
      int l = 0;

      lee_dibujos("an14_2.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("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) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            pon_hare();
            pon_vb();
            pos_cabina[3] = n;
            DIBUJA_BLOQUE_CUT(pos_cabina, dir_hare_fondo, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            l = l + 1;
      }

      flags[24] = 1;

      descomprime_dibujo(dir_dibujo1, 1);

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

      fin_sound();

      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
}

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

void DrasculaEngine::animacion_16_2() {
      int l;

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

      borra_pantalla();

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

      color_abc(VERDE_OSCURO);

      lee_dibujos("his1.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      centra_texto(HIS1, 180, 180);
      VUELCA_PANTALLA(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;

      borra_pantalla();
      lee_dibujos("his2.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      centra_texto(HIS2, 180, 180);
      VUELCA_PANTALLA(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;

      borra_pantalla();
      lee_dibujos("his3.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      centra_texto(HIS3, 180, 180);
      VUELCA_PANTALLA(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);

      borra_pantalla();
      lee_dibujos("his4_1.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("his4_2.alg");
      descomprime_dibujo(dir_dibujo3, 1);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo3, dir_zona_pantalla);
      centra_texto(HIS1, 180, 180);
      VUELCA_PANTALLA(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++) {
            DIBUJA_FONDO(0, 0, 0, l, 320, 200 - l, dir_dibujo3, dir_zona_pantalla);
            DIBUJA_FONDO(0, 200 - l, 0, 0, 320, l, dir_dibujo1, dir_zona_pantalla);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            key = getscan();
            if (key != 0)
                  goto asco;
      }

      pausa(5);
      FundeAlNegro(2);
      borra_pantalla();

asco:
      lee_dibujos(pantalla_disco);
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos(num_room);
      descomprime_dibujo(dir_dibujo1, MEDIA);
      Negro();
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      FundeDelNegro(0);
      if (musica_room != 0)
            playmusic(musica_room);
      else
            stopmusic();
}

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

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

void DrasculaEngine::animacion_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);
            animacion_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::animacion_21_2() {
      habla_vbpuerta(TEXTVB6, "VB6.als");
}

void DrasculaEngine::animacion_23_2() {
      lee_dibujos("an24.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      flags[21] = 1;

      if (flags[25] == 0) {
            habla_vb(TEXTVB13, "VB13.als");
            habla_vb(TEXTVB14, "VB14.als");
            pausa(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;
      animacion_14_2();
      if (flags[25] == 0)
            habla_vb(TEXTVB17, "VB17.als");
      pausa(8);
      sentido_vb = 1;
      habla_vb(TEXTVB18, "VB18.als");

      if (flags[29] == 0)
            animacion_23_anexo();
      else
            animacion_23_anexo2();

      sentido_vb = 2;
      animacion_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
            animacion_27_2();

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

void DrasculaEngine::animacion_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};

      lee_dibujos("an23.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 34; n++) {
            DIBUJA_BLOQUE(p_x, p_y, p_x, p_y, 36, 74, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x[n], y[n], p_x, p_y, 36, 74, dir_hare_fondo, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(p_x, p_y, p_x, p_y, 36, 74, dir_zona_pantalla);
            pausa(5);
      }

      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
}

void DrasculaEngine::animacion_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};

      pausa(50);

      lee_dibujos("an23_2.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 14; n++) {
            DIBUJA_BLOQUE(p_x, p_y, p_x, p_y, 33, 71, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x[n], y[n], p_x, p_y, 33, 71, dir_hare_fondo, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(p_x,p_y, p_x,p_y, 33,71, dir_zona_pantalla);
            pausa(5);
      }

      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo,1);
}

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

      lee_dibujos("an14_2.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("18.alg");
      descomprime_dibujo(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) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);

            actualiza_refresco_antes();
            pon_hare();
            pon_vb();

            pos_cabina[3] = n;

            DIBUJA_BLOQUE_CUT(pos_cabina, dir_hare_fondo, dir_zona_pantalla);

            actualiza_refresco();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      }

      fin_sound();

      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
}

void DrasculaEngine::animacion_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::animacion_28_2() {
      habla_vb(TEXTVB27, "VB27.als");
      habla_vb(TEXTVB28, "VB28.als");
      habla_vb(TEXTVB29, "VB29.als");
      habla_vb(TEXTVB30, "VB30.als");
}

void DrasculaEngine::animacion_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::animacion_30_2() {
      habla_vb(TEXTVB31, "VB31.als");
      hablar(TEXT396, "396.als");
}

void DrasculaEngine::animacion_31_2() {
      habla_vb(TEXTVB44, "VB44.als");
      lleva_vb(-50);
      pausa(15);
      lleva_al_hare(159, 140);
      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      sentido_hare = 2;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(78);
      sentido_hare = 0;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(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");
      pausa(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::animacion_35_2() {
      int n, x = 0;

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      lee_dibujos("an35_1.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("an35_2.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 70, 90, 46, 80, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(70,90, 70,90, 46,80,dir_zona_pantalla);
            x = x + 46;
            pausa(3);
      }

      x = 0;
      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 82, 70, 90, 46, 80, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(70, 90, 70, 90, 46, 80, dir_zona_pantalla);
            x = x + 46;
            pausa(3);
      }

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

            x = x + 46;

            pausa(3);
      }

      x = 0;
      for (n = 0; n < 2; n++) {
            x++;
            DIBUJA_FONDO(x, 82, 70, 90, 46, 80, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(70, 90, 70,90, 46, 80,dir_zona_pantalla);
            x = x + 46;
            pausa(3);
      }

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

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

      pausa(19);

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

      pausa(10);

      FundeAlNegro(2);
}

void DrasculaEngine::habla_vb(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[6] = {1, 27, 53, 79, 105, 131};
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(VON_BRAUN);

      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);
      }

      DIBUJA_FONDO(vb_x + 5, 64, ANCHOBJ + 1, 0, 25, 27, dir_dibujo1, dir_dibujo3);

bucless:

      if (sentido_vb == 1) {
            cara = _rnd->getRandomNumber(5);
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);

            pon_hare();
            pon_vb();

            DIBUJA_FONDO(ANCHOBJ + 1, 0, vb_x + 5, 64, 25, 27, dir_dibujo3, dir_zona_pantalla);
            DIBUJA_BLOQUE(x_habla[cara], 34, vb_x + 5, 64, 25, 27, dir_hare_frente, dir_zona_pantalla);
            actualiza_refresco();
      }

      if (con_voces == 0)
            centra_texto(dicho, vb_x, 66);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      if (music_status() == 0 && flags[11] == 0 && musica_room != 0)
            playmusic(musica_room);
}

void DrasculaEngine::habla_vbpuerta(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(VON_BRAUN);

      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:

      refresca_pantalla();
      if (con_voces == 0)
            centra_texto(dicho, 150, 80);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      if (music_status() == 0 && flags[11] == 0 && musica_room != 0)
            playmusic(musica_room);
}

void DrasculaEngine::habla_ciego(const char *dicho, const char *filename, const char *sincronia) {
      byte *num_cara;
      int p = 0;
      int pos_ciego[6];
      int cara = 0;

      int longitud;
      longitud = strlen(dicho);

      buffer_teclado();

      color_abc(VON_BRAUN);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      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);
      }

      pos_ciego[1] = 2;
      pos_ciego[2] = 73;
      pos_ciego[3] = 1;
      pos_ciego[4] = 126;
      pos_ciego[5] = 149;

bucless:
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      pos_ciego[5] = 149;
      char c = toupper(sincronia[p]);
      if (c == '0')
            cara = 0;
      if (c == '1')
            cara = 1;
      if (c == '2')
            cara = 2;
      if (c == '3')
            cara = 3;
      if (c == '4')
            cara = 4;
      if (c == '5')
            cara = 5;
      if (c == '6')
            cara = 6;
      if (c == '7')
            cara = 7;

      if (cara == 0 || cara == 2 || cara == 4 || cara == 6)
            pos_ciego[0] = 1;
      else
            pos_ciego[0] = 132;

      if (cara == 0)
            num_cara = dir_dibujo3;
      else if (cara == 1)
            num_cara = dir_dibujo3;
      else if (cara == 2)
            num_cara = dir_hare_dch;
      else if (cara == 3)
            num_cara = dir_hare_dch;
      else if (cara == 4)
            num_cara = dir_hare_fondo;
      else if (cara == 5)
            num_cara = dir_hare_fondo;
      else {
            num_cara = dir_hare_frente;
            pos_ciego[5] = 146;
      }

      DIBUJA_BLOQUE_CUT( pos_ciego, num_cara, dir_zona_pantalla);

      if (con_voces == 0)
            centra_texto(dicho, 310, 71);

      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(2);
      p++;

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

void DrasculaEngine::habla_hacker(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      color_abc(AMARILLO);

      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:
      if (con_voces == 0)
            centra_texto(dicho, 156, 170);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

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

      key = 0;
}

void DrasculaEngine::anda_pabajo() {
      direccion_hare = 4;
      sentido_hare = 3;
      paso_x = 0;
}

void DrasculaEngine::anda_parriba() {
      direccion_hare = 0;
      sentido_hare = 2;
      paso_x = 0;
}

void DrasculaEngine::pon_vb() {
      int pos_vb[6];

      if (vb_se_mueve == 0) {
            pos_vb[0] = 256;
            pos_vb[1] = 129;
            pos_vb[2] = vb_x;
            pos_vb[3] = 66;
            pos_vb[4] = 33;
            pos_vb[5] = 69;
            if (sentido_vb == 0)
                  pos_vb[0] = 222;
        else if (sentido_vb == 1)
                  pos_vb[0] = 188;
      } else {
            pos_vb[2] = vb_x;
            pos_vb[3] = 66;
            pos_vb[4] = 28;
            pos_vb[5] = 68;

            if (sentido_vb == 0) {
                  pos_vb[0] = frame_vb;
                  pos_vb[1] = 62;
            } else {
                  pos_vb[0] = frame_vb;
                  pos_vb[1] = 131;
            }

            frame_vb = frame_vb + 29;
            if (frame_vb > 146)
                  frame_vb = 1;
      }

    DIBUJA_BLOQUE_CUT(pos_vb, dir_hare_frente, dir_zona_pantalla);
}

void DrasculaEngine::lleva_vb(int punto_x) {
      if (punto_x < vb_x)
            sentido_vb = 0;
      else
            sentido_vb = 1;

      vb_se_mueve = 1;

      for (;;) {
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            if (sentido_vb == 0) {
                  vb_x = vb_x - 5;
                  if (vb_x <= punto_x)
                        break;
            } else {
                  vb_x = vb_x + 5;
                  if (vb_x >= punto_x)
                        break;
            }
            pausa(5);
      }

    vb_se_mueve = 0;
}

void DrasculaEngine::hipo_sin_nadie(int contador){
      int y = 0, sentido = 0;
      if (num_ejec == 3)
            y = -1;

comienza:
      contador--;

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      if (num_ejec == 3)
            VUELCA_PANTALLA(0, 0, 0, y, 320, 200, dir_zona_pantalla);
      else
            VUELCA_PANTALLA(0, 1, 0, y, 320, 198, dir_zona_pantalla);

      if (sentido == 0)
            y++;
      else
            y--;

      if (num_ejec == 3) {
            if (y == 1)
                  sentido = 1;
            if (y == -1)
                  sentido = 0;
      } else {
            if (y == 2)
                  sentido = 1;
            if (y == 0)
                  sentido = 0;
      }
      if (contador > 0)
            goto comienza;

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::abre_puerta(int nflag, int n_puerta) {
      if (flags[nflag] == 0) {
            if (num_ejec == 1 || num_ejec == 4) {
                  if (nflag == 7) {
                        comienza_sound("s3.als");
                        flags[nflag] = 1;
                  }
            } else {
                  comienza_sound("s3.als");
                  flags[nflag] = 1;
            }

            if (n_puerta != NO_PUERTA)
                  puertas_cerradas(n_puerta);
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            fin_sound();
            if (num_ejec != 5)
                  sin_verbo();
      }
}

void DrasculaEngine::mapa() {
      int l, veo = 0;

      for (l = 0; l < objs_room; l++) {
            if (x_raton > x1[l] && y_raton > y1[l]
                        && x_raton < x2[l] && y_raton < y2[l]
                        && visible[l] == 1) {
                  strcpy(texto_nombre, nombre_obj[l]);
                  hay_nombre = 1;
                  veo = 1;
            }
      }

      if (veo == 0)
            hay_nombre = 0;
}

void DrasculaEngine::refresca_1_antes() {
      int cambio_col_antes = cambio_de_color;

      if (hare_x > 98 && hare_x < 153)
            cambio_de_color = 1;
      else
            cambio_de_color = 0;

      if (cambio_col_antes != cambio_de_color && cambio_de_color == 1)
            hare_oscuro();
      if (cambio_col_antes != cambio_de_color && cambio_de_color == 0)
            hare_claro();

      if (flags[8] == 0)
            DIBUJA_FONDO(2, 158, 208, 67, 27, 40, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_2(){
      int pos_murci[6];
      int diferencia;
      int murci_x[] = {0, 38, 76, 114, 152, 190, 228, 266,
                              0, 38, 76, 114, 152, 190, 228, 266,
                              0, 38, 76, 114, 152, 190,
                              0, 48, 96, 144, 192, 240,
                              30, 88, 146, 204, 262,
                              88, 146, 204, 262,
                              88, 146, 204, 262};

      int murci_y[] = {179, 179, 179, 179, 179, 179, 179, 179,
                              158, 158, 158, 158, 158, 158, 158, 158,
                              137, 137, 137, 137, 137, 137,
                              115, 115, 115, 115, 115, 115,
                              78, 78, 78, 78, 78,
                              41, 41, 41, 41,
                              4, 4, 4, 4};

      if (frame_murcielago == 41)
            frame_murcielago = 0;

      pos_murci[0] = murci_x[frame_murcielago];
      pos_murci[1] = murci_y[frame_murcielago];

      if (frame_murcielago < 22) {
            pos_murci[4] = 37;
            pos_murci[5] = 21;
      } else if (frame_murcielago > 27) {
            pos_murci[4] = 57;
            pos_murci[5] = 36;
      } else {
            pos_murci[4] = 47;
            pos_murci[5] = 22;
      }

      pos_murci[2] = 239;
      pos_murci[3] = 19;

      DIBUJA_BLOQUE_CUT(pos_murci, dir_dibujo3, dir_zona_pantalla);
      diferencia = vez() - conta_ciego_vez;
      if (diferencia >= 6) {
            frame_murcielago++;
            conta_ciego_vez = vez();
      }

      DIBUJA_BLOQUE(29, 37, 58, 114, 57, 39, dir_dibujo3, dir_zona_pantalla);
      mapa();
}

void DrasculaEngine::refresca_3_antes() {
      if (flags[3] == 1)
            DIBUJA_FONDO(258, 110, 85, 44, 23, 53, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_3() {
      if (hare_y + alto_hare < 118)
            DIBUJA_BLOQUE(129, 110, 194, 36, 126, 88, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_BLOQUE(47, 57, 277, 143, 43, 50, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_4() {
      int cambio_col_antes = cambio_de_color;
      if (hare_x > 190)
            cambio_de_color = 1;
      else
            cambio_de_color = 0;

      if (cambio_col_antes != cambio_de_color && cambio_de_color == 1)
            hare_oscuro();
      if (cambio_col_antes != cambio_de_color && cambio_de_color == 0)
            hare_claro();
}

void DrasculaEngine::refresca_5() {
      DIBUJA_BLOQUE(114, 130, 211, 87, 109, 69, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_15() {
      DIBUJA_BLOQUE(1, 154, 83, 122, 131, 44, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_17() {
      DIBUJA_BLOQUE(48, 135, 78, 139, 80, 30, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_18() {
      if (flags[24] == 1)
            DIBUJA_BLOQUE(177, 1, 69, 29, 142, 130, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_BLOQUE(105, 132, 109, 108, 196, 65, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_5_antes(){
      if (flags[8] == 0)
            DIBUJA_FONDO(256, 152, 208, 67, 27, 40, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_6_antes() {
      int cambio_col_antes = cambio_de_color;

      if ((hare_x > 149 && hare_y + alto_hare > 160 && hare_x < 220 && hare_y + alto_hare < 188) ||
                  (hare_x > 75 && hare_y + alto_hare > 183 && hare_x < 145))
            cambio_de_color = 0;
      else
            cambio_de_color = 1;

      if (cambio_col_antes != cambio_de_color && cambio_de_color == 1)
            hare_oscuro();
      if (cambio_col_antes != cambio_de_color && cambio_de_color == 0)
            hare_claro();

      if (flags[1] == 0)
            DIBUJA_FONDO(97, 117, 34, 148, 36, 31, dir_dibujo3, dir_zona_pantalla);
      if (flags[0] == 0)
            DIBUJA_FONDO(3, 103, 185, 69, 23, 76, dir_dibujo3, dir_zona_pantalla);
      if (flags[2] == 0)
            DIBUJA_FONDO(28, 100, 219, 72, 64, 97, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_7_antes() {
      if (flags[35] == 0)
            DIBUJA_FONDO(1, 72, 158, 162, 19, 12, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_9_antes() {
      int ciego_x[] = {26, 68, 110, 152, 194, 236, 278, 26, 68};
      int ciego_y[] = {51, 51, 51, 51, 51, 51, 51, 127, 127};
      int diferencia;

      DIBUJA_BLOQUE(ciego_x[frame_ciego], ciego_y[frame_ciego], 122, 57, 41, 72, dir_dibujo3, dir_zona_pantalla);
      if (flags[9] == 0) {
            diferencia = vez() - conta_ciego_vez;
            if (diferencia >= 11) {
                  frame_ciego++;
                  conta_ciego_vez = vez();
            }
            if (frame_ciego == 9)
                  frame_ciego = 0;
      } else
            frame_ciego = 3;
}

void DrasculaEngine::refresca_12_antes() {
      if (flags[16] == 0)
            DIBUJA_FONDO(1, 131, 106, 117, 55, 68, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_14_antes() {
      int velas_y[] = {158, 172, 186};
      int cirio_x[] = {14, 19, 24};
      int pianista_x[] = {1, 91, 61, 31, 91, 31, 1, 61, 31};
      int borracho_x[] = {1, 42, 83, 124, 165, 206, 247, 1};
      int diferencia;

      DIBUJA_FONDO(123, velas_y[frame_velas], 142, 14, 39, 13, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_FONDO(cirio_x[frame_velas], 146, 311, 80, 4, 8, dir_dibujo3, dir_zona_pantalla);

      if (parpadeo == 5)
            DIBUJA_FONDO(1, 149, 127, 52, 9, 5, dir_dibujo3, dir_zona_pantalla);
      if (hare_x > 101 && hare_x < 155)
            DIBUJA_FONDO(31, 138, 178, 51, 18, 16, dir_dibujo3, dir_zona_pantalla);
      if (flags[11] == 0)
            DIBUJA_FONDO(pianista_x[frame_piano], 157, 245, 130, 29, 42, dir_dibujo3, dir_zona_pantalla);
      else if (flags[5] == 0)
            DIBUJA_FONDO(145, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
      else
            DIBUJA_FONDO(165, 140, 229, 117, 43, 59, dir_dibujo3, dir_zona_pantalla);

      if (flags[12] == 1)
            DIBUJA_FONDO(borracho_x[frame_borracho], 82, 170, 50, 40, 53, dir_dibujo3, dir_zona_pantalla);
      diferencia = vez() - conta_ciego_vez;
      if (diferencia > 6) {
            if (flags[12] == 1) {
                  frame_borracho++;
                  if (frame_borracho == 8) {
                        frame_borracho = 0;
                        flags[12] = 0;
                  }
            } else if ((_rnd->getRandomNumber(94) == 15) && (flags[13] == 0))
                  flags[12] = 1;

            frame_velas++;
            if (frame_velas == 3)
                  frame_velas = 0;
            frame_piano++;
            if (frame_piano == 9)
                  frame_piano = 0;
            parpadeo = _rnd->getRandomNumber(10);
            conta_ciego_vez = vez();
      }
}

void DrasculaEngine::refresca_16_antes() {
      if (flags[17] == 0)
            DIBUJA_FONDO(1, 103, 24, 72, 33, 95, dir_dibujo3, dir_zona_pantalla);
      if (flags[19] == 1)
            DIBUJA_FONDO(37, 151, 224, 115, 56, 47, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_17_antes() {
      if (flags[15] == 1)
            DIBUJA_FONDO(1, 135, 108, 65, 44, 63, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_18_antes() {
      int diferencia;
      int ronquido_x[] = {95, 136, 95, 136, 95, 95, 95, 95, 136, 95, 95, 95, 95, 95, 95, 95};
      int ronquido_y[] = {18, 18, 56, 56, 94, 94, 94, 94, 94, 18, 18, 18, 18, 18, 18, 18};

      if (flags[21] == 0) {
            DIBUJA_FONDO(1, 69, 120, 58, 56, 61, dir_dibujo3, dir_zona_pantalla);
            DIBUJA_FONDO(ronquido_x[frame_ronquido], ronquido_y[frame_ronquido], 124, 59, 40, 37, dir_dibujo3, dir_zona_pantalla);
      } else
            pon_vb();

      diferencia = vez() - conta_ciego_vez;
      if (diferencia > 9) {
            frame_ronquido++;
            if (frame_ronquido == 16)
                  frame_ronquido = 0;
            conta_ciego_vez = vez();
      }
}

void DrasculaEngine::grr() {
      int longitud;
      longitud = 30;

      buffer_teclado();

      color_abc(VERDE_OSCURO);

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

      refresca_pantalla();
      DIBUJA_FONDO(253, 110, 150, 65, 20, 30, dir_dibujo3, dir_zona_pantalla);

      if (con_voces == 0)
            centra_texto(".groaaarrrrgghhh!", 153, 65);

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

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

bool DrasculaEngine::pantalla_13(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 51) {
            hablar(TEXT411, "411.als");
            sentido_hare = 3;
            hablar(TEXT412, "412.als");
            strcpy(nombre_obj[1], "yoda");
      } else if (objeto_que_lleva == HABLAR && fl == 51)
            conversa("op_7.cal");
      else if (objeto_que_lleva == 19 && fl == 51)
            animacion_1_3();
      else if (objeto_que_lleva == 9 && fl == 51) {
            animacion_2_3();
            return true;
      } else
            hay_respuesta = 0;
      return false;
}

void DrasculaEngine::refresca_13() {
      if (hare_x > 55 && flags[3] == 0)
            animacion_6_3();
      if (flags[1] == 0)
            DIBUJA_BLOQUE(185, 110, 121, 65, 67, 88, dir_dibujo3, dir_zona_pantalla);
      if (flags[2] == 0)
            DIBUJA_BLOQUE(185, 21, 121, 63, 67, 88, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_BLOQUE(3, 127, 99, 102, 181, 71, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_20() {
      DIBUJA_BLOQUE(1, 137, 106, 121, 213, 61, dir_dibujo3, dir_zona_pantalla);
}

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

void DrasculaEngine::animacion_2_3() {
      flags[0] = 1;
      playmusic(13);
      animacion_3_3();
      playmusic(13);
      animacion_4_3();
      flags[1] = 1;
      refresca_pantalla();
      VUELCA_PANTALLA(120, 0, 120, 0, 200, 200, dir_zona_pantalla);
      animacion_5_3();
      flags[0] = 0;
      flags[1] = 1;

      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      lleva_al_hare(332, 127);
      libera_memoria();
}

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

      lee_dibujos("an2y_1.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("an2y_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("an2y_3.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }
}

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

      lee_dibujos("any_1.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("any_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("any_3.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 4; n++){
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, px, py, 77, 89, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 91, px, py, 77, 89, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, px, py, 77, 89, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }

    x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 91, px, py, 77, 89, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, px, py, 77, 89, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 77, 89, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 91, px, py, 77, 89, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 77, 89, dir_zona_pantalla);
            x = x + 77;
            pausa(3);
      }
}

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

      lee_dibujos("an3y_1.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("an3y_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("an3y_3.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(px,py, px,py, 71,72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 2, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(px, py, px, py, 71, 72, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, px, py, 71, 72, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 71, 72, dir_zona_pantalla);
            x = x + 71;
            pausa(3);
      }
}

void DrasculaEngine::animacion_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;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      flags[1] = 0;

      lee_dibujos("an4y.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      for (frame = 0; frame < 6; frame++) {
            pausa(3);
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(yoda_x[frame], yoda_y[frame], px, py,   78, 90,     dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(px, py, px, py, 78, 90, dir_zona_pantalla);
      }

      flags[2] = 1;

      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::animacion_rayo() {
      lee_dibujos("anr_1.alg");
      descomprime_dibujo(dir_hare_frente, MEDIA);
      lee_dibujos("anr_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("anr_3.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("anr_4.alg");
      descomprime_dibujo(dir_dibujo1, 1);
      lee_dibujos("anr_5.alg");
      descomprime_dibujo(dir_dibujo3, 1);

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

      pausa(50);

      comienza_sound("s5.als");

      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_hare_dch);
      pausa(3);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_hare_fondo);
      pausa(3);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_dibujo1);
      pausa(3);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_hare_fondo);
      pausa(3);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_dibujo3);
      pausa(3);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_hare_frente);
      fin_sound();
}

void DrasculaEngine::animacion_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::animacion_3_4() {
      habla_igor_sentado(TEXTI19, "I19.als");
      habla_igor_sentado(TEXTI20, "I20.als");
      hablar(TEXT281, "281.als");
}

void DrasculaEngine::animacion_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::habla_igor_sentado(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[4] = { 80, 102, 124, 146 };
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 109, 207, 92, 21, 23, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 221, 102);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::animacion_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::animacion_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");
            pausa(5);
            lleva_al_hare(114, 170);
            sentido_hare = 3;
            hablar(TEXT431, "431.als");
            habla_bj(TEXTBJ20, "BJ20.als");
            sentido_hare = 2;
            pausa(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;
                  refresca_pantalla();
                  VUELCA_PANTALLA(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::animacion_2_5() {
      habla_bj(TEXTBJ22, "BJ22.als");
}

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

void DrasculaEngine::animacion_4_5() {
      flags[7] = 1;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      hablar(TEXT228, "228.als");
      habla_lobo(TEXTL1, "L1.als");
      habla_lobo(TEXTL2, "L2.als");
      pausa(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");
      pausa(33);
      hablar(TEXT232, "232.als");
      habla_lobo(TEXTL8, "L8.als");
}

void DrasculaEngine::animacion_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;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      lee_dibujos("3an5_1.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("3an5_2.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      for (frame = 0; frame < 9; frame++) {
            pausa(3);
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(hueso_x[frame], hueso_y[frame], pixel_x, pixel_y, 97, 64, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(pixel_x, pixel_y, pixel_x,pixel_y, 97,64, dir_zona_pantalla);
      }

      DIBUJA_FONDO(52, 161, 198, 81, 26, 24, dir_dibujo3, dir_zona_pantalla);
      VUELCA_PANTALLA(198, 81, 198, 81, 26, 24, dir_zona_pantalla);

      for (frame = 0; frame < 9; frame++) {
            pausa(3);
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(hueso_x[frame], hueso_y[frame], pixel_x, pixel_y, 97, 64, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(pixel_x, pixel_y, pixel_x,pixel_y, 97, 64, dir_zona_pantalla);
      }

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

      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      for (h = 0; h < (200 - 18); h++)
            DIBUJA_FONDO(0, 53, 0, h, 320, 19, dir_hare_frente,  dir_zona_pantalla);

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

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

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

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

      lee_dibujos("99.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      borra_pantalla();

      lee_dibujos("49.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
}

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

void DrasculaEngine::animacion_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");
      pausa(34);
      habla_lobo(TEXTL14, "L14.als");
}

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

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

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

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

void DrasculaEngine::animacion_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);
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(27);
      anima("rayo1.bin", 23);
      comienza_sound("s5.als");
      anima("rayo2.bin", 17);
      sentido_hare = 1;
      refresca_pantalla();
      VUELCA_PANTALLA(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);
            }

            lee_dibujos("3an11_1.alg");
            descomprime_dibujo(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);

                  pausa(4);
                  refresca_pantalla();
                  DIBUJA_BLOQUE(rayo_x[frame], 1, 41, 0, 44, 44, dir_hare_fondo, dir_zona_pantalla);
                  DIBUJA_BLOQUE(frusky_x[frame], 113, 205, 50, 38, 86, dir_dibujo3, dir_zona_pantalla);
                  VUELCA_PANTALLA(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);

                  pausa(4);
                  refresca_pantalla();
                  DIBUJA_BLOQUE(elfrusky_x[frame], 47, 192, 39, 66, 106, dir_hare_fondo, dir_zona_pantalla);
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            }

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

            flags[1] = 1;

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

            lee_dibujos("99.alg");
            descomprime_dibujo(dir_hare_fondo, 1);

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

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

void DrasculaEngine::animacion_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];

      lee_dibujos("auxfr.alg");
      descomprime_dibujo(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;
      refresca_pantalla();
      DIBUJA_BLOQUE_CUT(pos_frusky, dir_hare_fondo, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(15);

      playmusic(18);

      for (;;) {
            refresca_pantalla();
            pos_frusky[0] = frus_x[frame];
            pos_frusky[1] = frus_y[frame];
            pos_frusky[2] = frank_x;
            DIBUJA_BLOQUE_CUT( pos_frusky, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(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;
            }
            pausa(6);
      }
}

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

void DrasculaEngine::animacion_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::animacion_16_5() {
      habla_mus(TEXTE8, "E8.als");
}

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

void DrasculaEngine::refresca_49_antes() {
      if (flags[6] == 0)
            DIBUJA_FONDO(2, 136, 176, 81, 49, 62, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_53_antes() {
      if (flags[1] == 0)
            DIBUJA_BLOQUE(2, 113, 205, 50, 38, 86, dir_dibujo3, dir_zona_pantalla);
      if (flags[2] == 0)
            DIBUJA_FONDO(41, 159, 27, 117, 25, 40, dir_dibujo3, dir_zona_pantalla);
      if (flags[9] == 1)
            DIBUJA_FONDO(67, 184, 56, 93, 32, 15, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_54_antes() {
      if (flags[5] == 1)
            DIBUJA_FONDO(168, 156, 187, 111, 7, 11, dir_dibujo3, dir_zona_pantalla);
      if (flags[12] == 1)
            DIBUJA_FONDO(16, 156, 190, 64, 18, 24, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_56_antes() {
      if (flags[10] == 0)
            DIBUJA_FONDO(2, 126, 42, 67, 57, 67, dir_dibujo3, dir_zona_pantalla);
      if (flags[11] == 1)
            DIBUJA_FONDO(60, 160, 128, 97, 103, 38, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_50() {
      DIBUJA_BLOQUE(4, 153, 118, 95, 67, 44, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_57() {
      DIBUJA_BLOQUE(7, 113, 166, 61, 62, 82, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::pantalla_49(int fl){
      if (objeto_que_lleva == HABLAR && fl ==51)
            conversa("op_9.cal");
      else if (objeto_que_lleva == MIRAR && fl == 51)
            hablar(TEXT132, "132.als");
      else if ((objeto_que_lleva == 8 && fl == 51) || (objeto_que_lleva == 8 && fl == 203))
            animacion_5_5();
      else if (objeto_que_lleva == MIRAR && fl == 200)
            hablar(TEXT133, "133.als");
      else if (objeto_que_lleva == HABLAR && fl == 200)
            hablar(TEXT134, "134.als");
      else if (objeto_que_lleva == MIRAR && fl == 201)
            hablar(TEXT135, "135.als");
      else if (objeto_que_lleva == MIRAR && fl == 203)
            hablar(TEXT137, "137.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_53(int fl) {
      if (objeto_que_lleva == COGER && fl == 120) {
            agarra_objeto(16);
            visible[3] = 0;
      } else if (objeto_que_lleva == MIRAR && fl == 121)
            hablar(TEXT128, "128.als");
      else if (objeto_que_lleva == MIRAR && fl == 209)
            hablar(TEXT129, "129.als");
      else if (objeto_que_lleva == MOVER && fl == 123)
            animacion_11_5();
      else if (objeto_que_lleva == MIRAR && fl == 52)
            hablar(TEXT447, "447.als");
      else if (objeto_que_lleva == HABLAR && fl == 52)
            hablar(TEXT131, "131.als");
      else if (objeto_que_lleva == 12 && fl == 52)
            animacion_10_5();
      else if (objeto_que_lleva == 15 && fl == 52)
            animacion_9_5();
      else if (objeto_que_lleva == 16 && fl == 121) {
            flags[2] = 1;
            sin_verbo();
            actualiza_datos();
      } else if (objeto_que_lleva == 16) {
            hablar(TEXT439, "439.als");
            sin_verbo();
            visible[3] = 1;
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_54(int fl) {
      if ((objeto_que_lleva == HABLAR && fl == 118) || (objeto_que_lleva == MIRAR && fl == 118 && flags[0] == 0))
            animacion_1_5();
      else if (objeto_que_lleva == MIRAR && fl == 118 && flags[0]==1)
            hablar(TEXT124, "124.als");
      else if (objeto_que_lleva == MIRAR && fl == 53)
            hablar(TEXT127, "127.als");
      else if (objeto_que_lleva == HABLAR && fl == 53 && flags[14] == 0) {
            hablar(TEXT288, "288.als");
            flags[12] = 1;
            pausa(10);
            habla_mus(TEXTE1, "E1.als");
            hablar(TEXT289, "289.als");
            habla_mus(TEXTE2, "E2.als");
            habla_mus(TEXTE3, "E3.als");
            conversa("op_10.cal");
            flags[12] = 0;
            flags[14] = 1;
      } else if (objeto_que_lleva == HABLAR && fl == 53 && flags[14] == 1)
            hablar(TEXT109, "109.als");
      else if (objeto_que_lleva == COGER && fl == 9999 && flags[13] == 0) {
            agarra_objeto(8);
            flags[13] = 1;
            habla_mus(TEXTE10, "e10.als");
            actualiza_datos();
      } else if (objeto_que_lleva == ABRIR && fl == 119)
            hablar(TEXT125, "125.als");
      else if (objeto_que_lleva == MIRAR && fl == 119)
            hablar(TEXT126, "126.als");
      else if (objeto_que_lleva == 10 && fl == 119) {
            pausa(4);
            hablar(TEXT436, "436.als");
            sin_verbo();
            resta_objeto(10);
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_55(int fl) {
      if (objeto_que_lleva == COGER && fl == 122) {
            agarra_objeto(12);
            flags[8] = 1;
            actualiza_datos();
      } else if (objeto_que_lleva == MIRAR && fl == 122)
            hablar(TEXT138, "138.als");
      else if (objeto_que_lleva == MIRAR && fl == 204)
            hablar(TEXT139, "139.als");
      else if (objeto_que_lleva == MIRAR && fl == 205)
            hablar(TEXT140, "140.als");
      else if (fl == 206) {
            comienza_sound("s11.als");
            anima("det.bin", 17);
            fin_sound();
            lleva_al_hare(hare_x - 3, hare_y + alto_hare + 6);
      } else
            hay_respuesta = 0;
}

bool DrasculaEngine::pantalla_56(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 124) {
            animacion_14_5();
            return true;
      } else if (objeto_que_lleva == MIRAR && fl == 124)
            hablar(TEXT450, "450.als");
      else if (objeto_que_lleva == ABRIR && fl == 207)
            hablar(TEXT141, "141.als");
      else if (objeto_que_lleva == MIRAR && fl == 208)
            hablar(TEXT142, "142.als");
      else
            hay_respuesta = 0;

      return false;
}

void DrasculaEngine::habla_lobo(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[9] = {52, 79, 106, 133, 160, 187, 214, 241, 268};
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      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(8);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 136, 198, 81, 26, 24, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 203, 78);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_mus(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = { 16, 35, 54, 73, 92, 111, 130, 149};
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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(7);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 156, 190, 64, 18, 24, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 197, 64);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::animacion_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;

      lee_dibujos("auxig2.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("auxdr.alg");
      descomprime_dibujo(dir_dibujo2, 1);
      lee_dibujos("car.alg");
      descomprime_dibujo(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);
      borra_pantalla();
      lee_dibujos("time1.alg");
      descomprime_dibujo(dir_zona_pantalla, 1);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      delay(930);
      borra_pantalla();
      Negro();
      hare_se_ve = 0;
      flags[0] = 0;
      refresca_pantalla();
      VUELCA_PANTALLA(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);
      borra_pantalla();
      lee_dibujos("time1.alg");
      descomprime_dibujo(dir_zona_pantalla,1);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      delay(900);
      borra_pantalla();
      Negro();
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      FundeDelNegro(1);
      hablar(TEXT258, "258.als");
      habla_dr_dch(TEXTD31, "d31.als");
      animacion_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");
      borra_pantalla();
      carga_escoba("102.ald");
      activa_pendulo();
}

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

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

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

void DrasculaEngine::animacion_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) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            pos_pen[3] = n;
            DIBUJA_BLOQUE_CUT(pos_pen, dir_dibujo3, dir_zona_pantalla);

            actualiza_refresco();

            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(2);
      }

      flags[3] = 1;
}

void DrasculaEngine::animacion_6_6() {
      anima("rct.bin", 11);
      borra_pantalla();
      sin_verbo();
      resta_objeto(20);
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("97.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("99.alg");
      descomprime_dibujo(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::animacion_7_6() {
      flags[8] = 1;
      actualiza_datos();
}

void DrasculaEngine::animacion_9_6() {
      int v_cd;

      anima("fin.bin", 14);
      playmusic(13);
      flags[5] = 1;
      anima("drf.bin", 16);
      FundeAlNegro(0);
      borra_pantalla();
      hare_x = -1;
      obj_saliendo = 108;
      carga_escoba("59.ald");
      strcpy(num_room, "nada.alg");
      lee_dibujos("nota2.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      Negro();
      sentido_hare = 1;
      hare_x -= 21;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      FundeDelNegro(0);
      pausa(96);
      lleva_al_hare(116, 178);
      sentido_hare = 2;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      playmusic(9);
      borra_pantalla();
      lee_dibujos("nota.alg");
      descomprime_dibujo(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;
      borra_pantalla();
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, COMPLETA);
      lee_dibujos("nota2.alg");
      descomprime_dibujo(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");
      refresca_pantalla();
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_zona_pantalla, dir_dibujo1);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      color_abc(VERDE_CLARO);
      habla_solo("GOOOOOOOOOOOOOOOL", "s15.als");
      lee_dibujos("nota2.alg");
      descomprime_dibujo(dir_dibujo1, 1);
      sentido_hare = 0;
      refresca_pantalla();
      VUELCA_PANTALLA(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);
      borra_pantalla();
      fliplay("qpc.bin", 1);
      MusicFadeout();
      stopmusic();
      borra_pantalla();
      _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, v_cd * 16);
      playmusic(3);
      fliplay("crd.bin", 1);
      stopmusic();
}

void DrasculaEngine::animacion_10_6() {
      comienza_sound ("s14.als");
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();
      DIBUJA_FONDO(164, 85, 155, 48, 113, 114, dir_dibujo3, dir_zona_pantalla);

      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      fin_sound();
      habla_taber2(TEXTT23, "t23.als");
      flags[7] = 1;
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      FundeDelNegro(0);
      pausa(96);
      lleva_al_hare(116, 178);
      sentido_hare = 2;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      playmusic(9);
      borra_pantalla();
      lee_dibujos("nota.alg");
      descomprime_dibujo(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;
      borra_pantalla();
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, COMPLETA);
      lee_dibujos("nota2.alg");
      descomprime_dibujo(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");
      refresca_pantalla();
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_zona_pantalla, dir_dibujo1);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      color_abc(VERDE_CLARO);
      habla_solo("GOOOOOOOOOOOOOOOL", "s15.als");
      lee_dibujos("nota2.alg");
      descomprime_dibujo(dir_dibujo1, 1);
}

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

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

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

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

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

void DrasculaEngine::animacion_18_6() {
      sin_verbo();
      resta_objeto(21);
      anima("beb.bin", 10);
}

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

      actualiza_refresco_antes();
      pon_hare();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(6);
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      comienza_sound("s4.als");
      pausa(6);
      fin_sound();
}

void DrasculaEngine::activa_pendulo() {
      flags[1] = 2;
      hare_se_ve = 0;
      strcpy(num_room, "102.alg");
      lee_dibujos("102.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("an_p1.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("an_p2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("an_p3.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      DIBUJA_FONDO(0, 171, 0, 0, ANCHOBJ, ALTOBJ, dir_hare_fondo, dir_dibujo3);

      conta_ciego_vez = vez();
}

void DrasculaEngine::habla_pen(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[8] = {112, 138, 164, 190, 216, 242, 268, 294};
      int cara;

      int longitud;
      longitud = strlen(dicho);

      flags[1] = 1;

      refresca_pantalla();
      DIBUJA_BLOQUE(44, 145, 145, 105, 25, 29, dir_dibujo3, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

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

      buffer_teclado();

      color_abc(AMARILLO);

      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(7);

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

      actualiza_refresco_antes();

      DIBUJA_BLOQUE(x_habla[cara], 145, 145, 105, 25, 29, dir_dibujo3, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 160, 105);

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

      pausa(3);

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

      flags[1] = 0;
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_pen2(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[5]={122, 148, 174, 200, 226};
      int cara;

      int longitud;
      longitud = strlen(dicho);

      flags[1] = 1;

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

      buffer_teclado();

      color_abc(AMARILLO);

      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(4);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 171, 173, 116, 25, 28, dir_dibujo3, dir_zona_pantalla);

      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 195, 107);

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

      pausa(3);

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

      flags[1] = 0;
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_taber2(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[6] = {1, 23, 45, 67, 89, 111};
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(MARRON);

      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(5);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 130, 151, 43, 21, 24, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 132, 45);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::refresca_58() {
      if (hare_se_ve == 1)
            DIBUJA_BLOQUE(67, 139, 140, 147, 12, 16, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_60() {
      if (hare_y - 10 < y_dr && flags[5] == 0)
            pon_dr();
}

void DrasculaEngine::refresca_61() {
      DIBUJA_BLOQUE(1, 154, 83, 122, 131, 44, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_58_antes() {
      if (flags[0] == 0)
            DIBUJA_FONDO(1, 156, 143, 120, 120, 43, dir_dibujo3, dir_zona_pantalla);
      if (flags[1] == 2)
            DIBUJA_BLOQUE(252, 171, 173, 116, 25, 28, dir_dibujo3, dir_zona_pantalla);
      if (flags[1] == 0 && flags[0] == 0)
            DIBUJA_BLOQUE(278, 171, 173, 116, 25, 28, dir_dibujo3, dir_zona_pantalla);
      if (flags[2] == 0) {
            pon_igor();
            pon_dr();
      }
      if (flags[3] == 1)
            DIBUJA_BLOQUE(1, 29, 204, 0, 18, 125, dir_dibujo3, dir_zona_pantalla);
      if (flags[8] == 1)
            DIBUJA_FONDO(20, 60, 30, 64, 46, 95, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_59_antes() {
      if (flags[4] == 0)
            DIBUJA_BLOQUE(1, 146, 65, 106, 83, 40, dir_dibujo3, dir_zona_pantalla);
      if (flags[9] == 1) {
            DIBUJA_FONDO(65, 103, 65, 103, 49, 38, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(1, 105, 65, 103, 49, 38, dir_dibujo3, dir_zona_pantalla);
      }
}

void DrasculaEngine::refresca_60_antes() {
      int velas_y[] = {158, 172, 186};
      int diferencia;

      if (flags[5] == 0)
            pon_dr();

      DIBUJA_FONDO(123, velas_y[frame_velas], 142, 14, 39, 13, dir_dibujo3, dir_zona_pantalla);

      if (flag_tv == 1)
            DIBUJA_FONDO(114, 158, 8, 30, 8, 23, dir_dibujo3, dir_zona_pantalla);

      diferencia = vez() - conta_ciego_vez;
      parpadeo = _rnd->getRandomNumber(7);
      if (parpadeo == 5 && flag_tv == 0)
            flag_tv = 1;
      else if (parpadeo == 5 && flag_tv == 1)
            flag_tv = 0;
      if (diferencia > 6) {
            frame_velas++;
            if (frame_velas == 3)
                  frame_velas = 0;
            conta_ciego_vez = vez();
      }
}

void DrasculaEngine::pantalla_58(int fl) {
      if (objeto_que_lleva == MOVER && fl == 103)
            animacion_7_6();
      else if (objeto_que_lleva == MIRAR && fl == 104)
            hablar(TEXT454, "454.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_59(int fl) {
      if ((objeto_que_lleva == HABLAR && fl == 51) || (objeto_que_lleva == MIRAR && fl == 51)) {
            flags[9] = 1;
            hablar(TEXT259, "259.als");
            habla_bj_cama(TEXTBJ13, "bj13.als");
            hablar(TEXT263, "263.als");
            habla_bj_cama(TEXTBJ14, "bj14.als");
            pausa(40);
            hablar(TEXT264, "264.als");
            habla_bj_cama(TEXTBJ15, "BJ15.als");
            hablar(TEXT265, "265.als");
            flags[9] = 0;
            if (flags[11] == 0) {
                  comienza_sound("s12.als");
                  delay(40);
                  fin_sound();
                  delay(10);
                  lleva_al_hare(174, 168);
                  sentido_hare = 2;
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  pausa(40);
                  comienza_sound("s12.als");
                  pausa(19);
                  fin_sound_corte();
                  hare_se_ve = 0;
                  refresca_pantalla();
                  DIBUJA_BLOQUE(101, 34, hare_x - 4, hare_y - 1, 37, 70, dir_dibujo3, dir_zona_pantalla);
                  DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_zona_pantalla, dir_dibujo1);
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hare_se_ve = 1;
                  borra_pantalla();
                  lee_dibujos("tlef0.alg");
                  descomprime_dibujo(dir_dibujo1, COMPLETA);
                  lee_dibujos("tlef1.alg");
                  descomprime_dibujo(dir_dibujo3, 1);
                  lee_dibujos("tlef2.alg");
                  descomprime_dibujo(dir_hare_frente, 1);
                  lee_dibujos("tlef3.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
                  habla_htel(TEXT240, "240.als");

                  color_abc(VON_BRAUN);
                  habla_solo(TEXTVB58, "VB58.als");
                  habla_htel(TEXT241, "241.als");
                  color_abc(VON_BRAUN);
                  habla_solo(TEXTVB59, "VB59.als");
                  habla_htel(TEXT242, "242.als");
                  color_abc(VON_BRAUN);
                  habla_solo(TEXTVB60, "VB60.als");
                  habla_htel(TEXT196, "196.als");
                  color_abc(VON_BRAUN);
                  habla_solo(TEXTVB61,"VB61.als");
                  habla_htel(TEXT244, "244.als");
                  color_abc(VON_BRAUN);
                  habla_solo(TEXTVB62, "VB62.als");
                  borra_pantalla();
                  lee_dibujos("aux59.alg");
                  descomprime_dibujo(dir_dibujo3, 1);
                  lee_dibujos("96.alg");
                  descomprime_dibujo(dir_hare_frente, COMPLETA);
                  lee_dibujos("99.alg");
                  descomprime_dibujo(dir_hare_fondo, 1);
                  lee_dibujos("59.alg");
                  descomprime_dibujo(dir_dibujo1, MEDIA);
                  sentido_hare = 3;
                  hablar(TEXT245, "245.als");
                  sin_verbo();
                  flags[11] = 1;
            }
      } else
            hay_respuesta = 0;
}

bool DrasculaEngine::pantalla_60(int fl) {
      if (objeto_que_lleva == MOVER && fl == 112)
            animacion_10_6();
      else if (objeto_que_lleva == MIRAR && fl == 112)
            hablar(TEXT440, "440.als");
      else if (objeto_que_lleva == HABLAR && fl == 52) {
            hablar(TEXT266, "266.als");
            habla_taber2(TEXTT1, "t1.als");
            conversa("op_12.cal");
            sin_verbo();
            objeto_que_lleva = 0;
      } else if (objeto_que_lleva == HABLAR && fl == 115)
            hablar(TEXT455, "455.als");
      else if (objeto_que_lleva == HABLAR && fl == 56)
            hablar(TEXT455, "455.als");
      else if (objeto_que_lleva == MIRAR && fl == 114)
            hablar(TEXT167, "167.als");
      else if (objeto_que_lleva == MIRAR && fl == 113)
            hablar(TEXT168, "168.als");
      else if (objeto_que_lleva == COGER && fl == 113)
            hablar(TEXT170, "170.als");
      else if (objeto_que_lleva == MOVER && fl == 113)
            hablar(TEXT170, "170.als");
      else if (objeto_que_lleva == HABLAR && fl == 113)
            hablar(TEXT169, "169.als");
      else if (objeto_que_lleva == 21 && fl == 56)
            animacion_18_6();
      else if (objeto_que_lleva == 9 && fl == 56 && flags[6] == 1) {
            animacion_9_6();
            return true;
      } else if (objeto_que_lleva == 9 && fl == 56 && flags[6] == 0) {
            anima("cnf.bin", 14);
            hablar(TEXT455, "455.als");
      } else
            hay_respuesta = 0;

      return false;
}

void DrasculaEngine::pantalla_61(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 116)
            hablar(TEXT172, "172.als");
      else if (objeto_que_lleva == MIRAR && fl == 117)
            hablar(TEXT173, "173.als");
      else if (objeto_que_lleva == MOVER && fl == 117)
            hablar(TEXT174, "174.als");
      else if (objeto_que_lleva == ABRIR && fl == 117)
            hablar(TEXT174, "174.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::habla_bj_cama(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[5] = {51, 101, 151, 201, 251};
      int cara;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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(4);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(65, 103, 65, 103, 49, 38, dir_dibujo1, dir_zona_pantalla);
      DIBUJA_BLOQUE(x_habla[cara], 105, 65, 103, 49, 38, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 104, 102);

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

      pausa(3);

      int key = getscan();
      if (key != 0)
            ctvd_stop();
      buffer_teclado();
      if (hay_sb == 1) {
            if (LookForFree() != 0)
                  goto bucless;
            delete sku;
            ctvd_terminate();
      } else {
            longitud = longitud - 2;
            if (longitud > 0)
                  goto bucless;
      }
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_htel(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;
      char *num_cara;

      int x_habla[3] = {1, 94, 187};
      int cara, pantalla;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(AMARILLO);

      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(2);
      pantalla = _rnd->getRandomNumber(2);

      if (cara == 0 && pantalla == 0)
            num_cara = (char *)dir_dibujo3;
      else if (pantalla == 1)
            num_cara = (char *)dir_hare_frente;
      else
            num_cara = (char *)dir_hare_fondo;

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

      DIBUJA_FONDO(x_habla[cara], 1, 45, 24, 92, 108, (byte *)num_cara, dir_zona_pantalla);

      if (con_voces == 0)
            centra_texto(dicho, 90, 50);

      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(3);

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

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::refresca_pendulo() {
      int pendulo_x[] = {40, 96, 152, 208, 264, 40, 96, 152, 208, 208, 152, 264, 40, 96, 152, 208, 264};
      int diferencia;

      if (frame_pen <= 4)
            dir_pendulo = dir_dibujo3;
      else if (frame_pen <= 11)
            dir_pendulo = dir_hare_dch;
      else
            dir_pendulo = dir_hare_frente;

      DIBUJA_FONDO(pendulo_x[frame_pen], 19, 152, 0, 55, 125, dir_pendulo, dir_zona_pantalla);

      if (flags[1] == 2)
            DIBUJA_BLOQUE(18, 145, 145, 105, 25, 29, dir_dibujo3, dir_zona_pantalla);

      if (flags[1] == 0)
            DIBUJA_BLOQUE(44, 145, 145, 105, 25, 29, dir_dibujo3, dir_zona_pantalla);

      diferencia = vez() - conta_ciego_vez;
      if (diferencia > 8) {
            frame_pen++;
            if (frame_pen == 17)
                  frame_pen = 0;
            conta_ciego_vez = vez();
      }
}

void DrasculaEngine::pantalla_pendulo(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 100)
            hablar(TEXT452, "452.als");
      else if (objeto_que_lleva == MIRAR && fl == 101)
            hablar (TEXT123, "123.als");
      else if (objeto_que_lleva == COGER && fl == 101)
            agarra_objeto(20);
      else if (objeto_que_lleva == 20 && fl == 100)
            animacion_6_6();
      else if (objeto_que_lleva == COGER || objeto_que_lleva == ABRIR)
            hablar(TEXT453, "453.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::refresca_21_antes() {
      if (flags[0] == 1)
            DIBUJA_FONDO(2, 171, 84, 126, 17, 26, dir_dibujo3, dir_zona_pantalla);

      if (flags[10] == 1)
            DIBUJA_FONDO(20, 163, 257, 149, 14, 34, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_22_antes() {
      if (flags[24] == 1)
            DIBUJA_FONDO(2, 187, 107, 106, 62, 12, dir_dibujo3, dir_zona_pantalla);

      if (flags[27] == 0)
            DIBUJA_FONDO(32, 181, 203, 88, 13, 5, dir_dibujo3, dir_zona_pantalla);

      if (flags[26] == 0)
            DIBUJA_FONDO(2, 133, 137, 83, 29, 53, dir_dibujo3, dir_zona_pantalla);
      else
            DIBUJA_FONDO(65, 174, 109, 145, 55, 25, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_23_antes() {
      if (flags[11] == 1 && flags[0] == 0)
            DIBUJA_FONDO(87, 171, 237, 110, 20, 28, dir_dibujo3, dir_zona_pantalla);

      if (flags[0] == 1)
            DIBUJA_FONDO(29, 126, 239, 94, 57, 73, dir_dibujo3, dir_zona_pantalla);

      if (flags[1] == 1)
            DIBUJA_BLOQUE(1, 135, 7, 94, 27, 64, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_24_antes() {
      if (flags[1] == 1)
            DIBUJA_FONDO(1, 163, 225, 124, 12, 36, dir_dibujo3, dir_zona_pantalla);

      if (flags[2] == 1)
            DIBUJA_FONDO(14, 153, 30, 107, 23, 46, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_26_antes() {
      int diferencia;

      if (flags[2] == 1)
            DIBUJA_FONDO(1, 130, 87, 44, 50, 69, dir_dibujo3, dir_zona_pantalla);

      if (flags[12] == 1)
            DIBUJA_FONDO(52, 177, 272, 103, 27, 22, dir_dibujo3, dir_zona_pantalla);

      if (flags[18] == 0)
            DIBUJA_FONDO(80, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);

      if (parpadeo == 5 && flags[18] == 0)
            DIBUJA_FONDO(52, 172, 226, 106, 3, 4, dir_dibujo3, dir_zona_pantalla);

      diferencia = vez() - conta_ciego_vez;
      if (diferencia >= 10) {
            parpadeo = _rnd->getRandomNumber(10);
            conta_ciego_vez = vez();
      }

      if (flags[20] == 1)
            DIBUJA_FONDO(182, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_27_antes() {
      if (flags[5] == 1)
            DIBUJA_BLOQUE(1, 175, 59, 109, 17, 24, dir_dibujo3, dir_zona_pantalla);

      if (flags[6] == 1)
            DIBUJA_BLOQUE(19, 177, 161, 103, 18, 22, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_29_antes() {
      if (flags[4] == 1)
            DIBUJA_FONDO(12, 113, 247, 49, 41, 84, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_30_antes() {
      if (flags[4] == 1)
            DIBUJA_FONDO(1, 148, 148, 66, 35, 51, dir_dibujo3, dir_zona_pantalla);

      if (flags[16] == 1)
            DIBUJA_FONDO(37, 173, 109, 84, 20, 26, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_31_antes() {
      if (flags[13] == 1)
            DIBUJA_FONDO(1, 163, 116, 41, 61, 36, dir_dibujo3, dir_zona_pantalla);

      if (flags[5] == 1)
            DIBUJA_FONDO(1, 78, 245, 63, 30, 84, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_34_antes() {
      if (flags[7] == 1)
            DIBUJA_FONDO(99, 127, 73, 41, 79, 72, dir_dibujo3, dir_zona_pantalla);

      if (flags[8] == 1)
            DIBUJA_FONDO(36, 129, 153, 41, 62, 65, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_35_antes() {
      if (flags[14] == 1)
            DIBUJA_FONDO(1, 86, 246, 65, 68, 87, dir_dibujo3, dir_zona_pantalla);

      if (flags[17] == 0 && flags[15] == 1)
            DIBUJA_FONDO(111, 150, 118, 52, 40, 23, dir_dibujo3, dir_zona_pantalla);

      if (flags[17] == 1)
            DIBUJA_FONDO(70, 150, 118, 52, 40, 23, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_26() {
      if (flags[29] == 1)
            DIBUJA_BLOQUE(93, 1, hare_x, hare_y, 45, 78, dir_hare_fondo, dir_zona_pantalla);

      DIBUJA_BLOQUE(233, 107, 17, 102, 66, 92, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_27() {
      DIBUJA_BLOQUE(38, 177, 103, 171, 21, 22, dir_dibujo3, dir_zona_pantalla);
      DIBUJA_BLOQUE(60, 162, 228, 156, 18, 37, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_29() {
      DIBUJA_BLOQUE(1, 180, 150, 126, 10, 17, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_31() {
      DIBUJA_BLOQUE(63, 190, 223, 157, 17, 9, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_34() {
      DIBUJA_BLOQUE(5, 171, 234, 126, 29, 23, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::refresca_35() {
      DIBUJA_BLOQUE(1, 174, 54, 152, 195, 25, dir_dibujo3, dir_zona_pantalla);
}

void DrasculaEngine::pantalla_1(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 118) {
            hablar(TEXT1, "1.als");
            pausa(10);
            hablar(TEXT2, "2.als");
      } else if (objeto_que_lleva == COGER && fl == 118)
            hablar(TEXT5, "5.als");
      else if (objeto_que_lleva == ABRIR && fl == 118)
            hablar(TEXT3, "3.als");
      else if (objeto_que_lleva == CERRAR && fl == 118)
            hablar(TEXT4, "4.als");
      else if (objeto_que_lleva == HABLAR && fl == 118)
            hablar(TEXT6, "6.als");
      else if (objeto_que_lleva == MIRAR && fl == 119)
            hablar(TEXT8, "8.als");
      else if (objeto_que_lleva == MOVER && fl == 119)
            hablar(TEXT13, "13.als");
      else if (objeto_que_lleva == CERRAR && fl == 119)
            hablar(TEXT10, "10.als");
      else if (objeto_que_lleva == HABLAR && fl == 119)
            hablar(TEXT12, "12.als");
      else if (objeto_que_lleva == MIRAR && fl == 120 && flags[8] == 0)
            hablar(TEXT14, "14.als");
      else if (objeto_que_lleva == MOVER && fl == 120)
            hablar(TEXT13, "13.als");
      else if (objeto_que_lleva == ABRIR && fl == 120)
            hablar(TEXT18, "18.als");
      else if (objeto_que_lleva == HABLAR && fl == 120)
            hablar(TEXT15, "15.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_3(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 129)
            hablar(TEXT21, "21.als");
      else if (objeto_que_lleva == COGER && fl == 129)
            hablar(TEXT5, "5.als");
      else if (objeto_que_lleva == MOVER && fl == 129)
            hablar(TEXT24, "24.als");
      else if (objeto_que_lleva == ABRIR && fl == 129)
            hablar(TEXT22, "22.als");
      else if (objeto_que_lleva == CERRAR && fl == 129)
            hablar(TEXT10, "10.als");
      else if (objeto_que_lleva == HABLAR && fl == 129) {
            hablar(TEXT23, "23.als"); 
            pausa(6);
            hablar_sinc(TEXT50, "50.als", "11111111111144432554433");
      } else if (objeto_que_lleva == MIRAR && fl == 131)
            hablar(TEXT27, "27.als");
      else if (objeto_que_lleva == COGER && fl == 131)
            hablar(TEXT5, "5.als");
      else if (objeto_que_lleva == MOVER && fl == 131)
            hablar(TEXT24, "24.als");
      else if (objeto_que_lleva == ABRIR && fl == 131)
            hablar(TEXT22, "22.als");
      else if (objeto_que_lleva == CERRAR && fl == 131)
            hablar(TEXT10, "10.als");
      else if (objeto_que_lleva == HABLAR && fl == 131)
            hablar(TEXT23, "23.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 132)
            hablar(TEXT28, "28.als");
      else if (objeto_que_lleva == COGER && fl == 132)
            hablar(TEXT5, "5.als");
      else if (objeto_que_lleva == MOVER && fl == 132)
            hablar(TEXT24, "24.als");
      else if (objeto_que_lleva == ABRIR && fl == 132)
            hablar(TEXT22, "22.als");
      else if (objeto_que_lleva == CERRAR && fl == 132)
            hablar(TEXT10, "10.als");
      else if (objeto_que_lleva == HABLAR && fl == 132)
            hablar(TEXT23, "23.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 133)
            hablar(TEXT321, "321.als");
      else if (objeto_que_lleva == COGER && fl == 133)
            hablar(TEXT31, "31.als");
      else if (objeto_que_lleva == MOVER && fl == 133)
            hablar(TEXT34, "34.als");
      else if (objeto_que_lleva == ABRIR && fl == 133)
            hablar(TEXT30, "30.als");
      else if (objeto_que_lleva == CERRAR && fl == 133)
            hablar(TEXT10, "10.als");
      else if (objeto_que_lleva == HABLAR && fl == 133) {
            hablar_sinc(TEXT322, "322.als", "13333334125433333333"); 
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(25);
            hablar(TEXT33, "33.als");
      } else if (objeto_que_lleva == MIRAR && fl == 165) {
            hablar(TEXT149, "149.als");
            hablar(TEXT150, "150.als");
      } else if (objeto_que_lleva == COGER && fl == 165) {
            DIBUJA_FONDO(0, 0, 0,0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(44, 1, hare_x, hare_y, 41, 70, dir_dibujo2, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(4);
            agarra_objeto(10);
            flags[3] = 1;
            visible[8] = 0;
      } else if (objeto_que_lleva == MIRAR && fl == 166)
            hablar(TEXT55, "55.als");
      else if (objeto_que_lleva == COGER && fl == 166)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == 14 && fl == 166 && flags[37] == 0) {
            animacion_7_2();
            agarra_objeto(8);
      } else if (objeto_que_lleva == 14 && fl == 166 && flags[37] == 1)
            hablar(TEXT323, "323.als");
      else if (objeto_que_lleva == MIRAR && fl == 211)
            hablar(TEXT184, "184.als");
      else if (objeto_que_lleva == HABLAR && fl == 211) {
            hablar(TEXT185, "185.als");
            hablar(TEXT186, "186.als");
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_4(int fl) {        
      if (objeto_que_lleva == MOVER && fl == 189 && flags[34] == 0) {
            hablar(TEXT327, "327.als");
            agarra_objeto(13);
            flags[34] = 1;
            if (flags[7] == 1 && flags[26] == 1 && flags[34] == 1 && flags[35] == 1 && flags[37] == 1)
                  flags[38] = 1;
      } else if (objeto_que_lleva == MIRAR && fl == 189)
            hablar(TEXT182, "182.als");
      else if (objeto_que_lleva == MIRAR && fl == 207)
            hablar(TEXT175, "175.als");
      else if (objeto_que_lleva == HABLAR && fl == 207)
            hablar(TEXT176, "176.als");
      else if (objeto_que_lleva == MIRAR && fl == 208)
            hablar(TEXT177, "177.als");
      else if (objeto_que_lleva == MIRAR && fl == 209)
            hablar(TEXT179, "179.als");
      else if (objeto_que_lleva == MIRAR && fl == 210)
            hablar(TEXT180, "180.als");
      else if (objeto_que_lleva == ABRIR && fl == 210)
            hablar(TEXT181, "181.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_5(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 136 && flags[8]==0) hablar(TEXT14, "14.als");     
      else if (objeto_que_lleva == MOVER && fl == 136)
            hablar(TEXT13, "13.als");
      else if (objeto_que_lleva == ABRIR && fl == 136)
            hablar(TEXT18, "18.als");
      else if (objeto_que_lleva == HABLAR && fl == 136)
            hablar(TEXT15, "15.als");
      else if (objeto_que_lleva == 10 && fl == 136) {
            animacion_5_2();
            resta_objeto(10);
      } else if (objeto_que_lleva == MIRAR && fl == 212)
            hablar(TEXT187, "187.als");
      else if (objeto_que_lleva == HABLAR && fl == 212)
            hablar(TEXT188, "188.als");
      else if (objeto_que_lleva == MIRAR && fl == 213)
            hablar(TEXT189, "189.als");
      else if (objeto_que_lleva == ABRIR && fl == 213)
            hablar(TEXT190, "190.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_6(int fl){
      if (objeto_que_lleva == MIRAR && fl==144) {
            hablar(TEXT41, "41.als");     
            hablar(TEXT42, "42.als");
      } else if (objeto_que_lleva == COGER && fl == 144)
            hablar(TEXT43, "43.als");
      else if (objeto_que_lleva == MIRAR && fl == 138)
            hablar(TEXT35, "35.als");
      else if (objeto_que_lleva == ABRIR && fl == 138)
            abre_puerta(0, 1);
      else if (objeto_que_lleva == CERRAR && fl == 138)
            cierra_puerta(0, 1);
      else if (objeto_que_lleva == HABLAR && fl == 138)
            hablar(TEXT6, "6.als");
      else if (objeto_que_lleva == MIRAR && fl == 143)
            hablar(TEXT37, "37.als");     
      else if (objeto_que_lleva == COGER && fl == 143)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == MOVER && fl == 143)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == ABRIR && fl == 143 && flags[2] == 0) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      actualiza_refresco_antes();
      DIBUJA_BLOQUE(228, 102, hare_x + 5, hare_y - 1, 47, 73, dir_dibujo3, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(10);
      comienza_sound("s3.als");
      flags[2] = 1;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      fin_sound();
      } else if (objeto_que_lleva == CERRAR && fl == 143 && flags[2] == 1) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            flags[2] = 0;
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(228, 102, hare_x + 5, hare_y - 1, 47, 73, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(5);
            comienza_sound("s4.als"); 
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            fin_sound();
      } else if (objeto_que_lleva == HABLAR && fl == 143)
            hablar(TEXT38, "38.als");
      else if (objeto_que_lleva == MIRAR && fl == 139)
            hablar(TEXT36, "36.als");     
      else if (objeto_que_lleva == ABRIR && fl == 139 && flags[1] == 0) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(267, 1, hare_x - 14, hare_y - 2, 52, 73, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(19);
            comienza_sound("s3.als");
            flags[1] = 1; 
            visible[4] = 1;
            visible[2] = 0;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            fin_sound();
      } else if (objeto_que_lleva == MIRAR && fl == 140)
            hablar(TEXT147, "147.als");     
      else if (objeto_que_lleva == COGER && fl == 140) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(267, 1, hare_x - 14, hare_y - 2, 52, 73, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(19);
            agarra_objeto(9);
            visible[4] = 0;
            flags[10] = 1;
      } else if (objeto_que_lleva == ABRIR && fl == 140)
            hay_respuesta = 1;
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_7(int fl){
      if (objeto_que_lleva == MIRAR && fl == 169)
            hablar(TEXT44, "44.als");
      else if (objeto_que_lleva == MIRAR && fl == 164)
            hablar(TEXT35, "35.als" );
      else if (objeto_que_lleva == COGER && fl == 190) {
            agarra_objeto(17);
            flags[35] = 1;
            visible[3] = 0;
            if (flags[7] == 1 && flags[26] == 1 && flags[34] == 1 && flags[35] == 1 && flags[37] == 1)
                  flags[38] = 1;
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_8(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 147 && flags[7] == 0) {
            hablar(TEXT58, "58.als");
            agarra_objeto(15);
            flags[7] = 1;
            if (flags[7] == 1 && flags[26] == 1 && flags[34] == 1 && flags[35] == 1 && flags[37] == 1)
                  flags[38] = 1;
      } else if (objeto_que_lleva == MIRAR && fl == 147)
            hablar(TEXT59, "59.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_9(int fl){
      if (objeto_que_lleva == MIRAR && fl == 150)
            hablar(TEXT35, "35.als");     
      else if (objeto_que_lleva == HABLAR && fl == 150)
            hablar(TEXT6, "6.als");
      else if (objeto_que_lleva == MIRAR && fl == 51)
            hablar(TEXT60, "60.als");     
      else if (objeto_que_lleva == HABLAR && fl == 51 && flags[4] == 0)
            animacion_4_2();
      else if (objeto_que_lleva == HABLAR && fl == 51 && flags[4] == 1)
            animacion_33_2();
      else if (objeto_que_lleva == 7 && fl == 51) {
            animacion_6_2();
            resta_objeto(7);
            agarra_objeto(14);}
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_12(int fl){
      if (objeto_que_lleva == MIRAR && fl == 154)
            hablar(TEXT329, "329.als");     
      else if (objeto_que_lleva == HABLAR && fl == 154)
            hablar(TEXT330, "330.als");
      else if (objeto_que_lleva == MOVER && fl == 155)
            hablar(TEXT48, "48.als");
      else if (objeto_que_lleva == HABLAR && fl == 155)
            hablar(TEXT331, "331.als");
      else if (objeto_que_lleva == MIRAR && fl == 156)
            hablar(TEXT35, "35.als");     
      else if (objeto_que_lleva == MOVER && fl == 156)
            hablar(TEXT48, "48.als");
      else if (objeto_que_lleva == HABLAR && fl == 156)
            hablar(TEXT50, "50.als");
      else if (objeto_que_lleva == ABRIR && fl == 156)
            abre_puerta(16, 4);
      else if (objeto_que_lleva == CERRAR && fl == 156)
            cierra_puerta(16, 4);
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_14(int fl) {
      if (objeto_que_lleva == HABLAR && fl == 54 && flags[39] == 0) 
            animacion_12_2();    
      else if (objeto_que_lleva == HABLAR && fl == 54 && flags[39] == 1) 
            hablar(TEXT109, "109.als");    
      else if (objeto_que_lleva == 12 && fl == 54)
            animacion_26_2();     
      else if (objeto_que_lleva == HABLAR && fl == 52 && flags[5] == 0)
            animacion_11_2();     
      else if (objeto_que_lleva == HABLAR && fl == 52 && flags[5] == 1)
            animacion_36_2();     
      else if (objeto_que_lleva == HABLAR && fl == 53)
            animacion_13_2();     
      else if (objeto_que_lleva == MIRAR && fl == 200)
            hablar(TEXT165, "165.als");
      else if (objeto_que_lleva == MIRAR && fl == 201)
            hablar(TEXT166, "166.als");
      else if (objeto_que_lleva == MIRAR && fl == 202)
            hablar(TEXT167, "167.als");
      else if (objeto_que_lleva == MIRAR && fl == 203)
            hablar(TEXT168, "168.als");
      else if (objeto_que_lleva == COGER && fl == 203)
            hablar(TEXT170, "170.als");
      else if (objeto_que_lleva == MOVER && fl == 203)
            hablar(TEXT170, "170.als");
      else if (objeto_que_lleva == HABLAR && fl == 203)
            hablar(TEXT169, "169.als");
      else if (objeto_que_lleva == MIRAR && fl == 204)
            hablar(TEXT171, "171.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_15(int fl) {
      if (objeto_que_lleva == HABLAR && fl == 188)
            hablar(TEXT333, "333.als");    
      else if (objeto_que_lleva == MIRAR && fl == 188)
            hablar(TEXT334, "334.als");    
      else if (objeto_que_lleva == 19 && fl == 188 && flags[27] == 0)
            hablar(TEXT335, "335.als"); 
      else if (objeto_que_lleva == 19 && fl == 188 && flags[27] == 1) { 
            hablar(TEXT336, "336.als"); 
            sentido_hare = 3;
            hablar(TEXT337, "337.als"); 
            hablar_sinc(TEXT46, "46.als", "4442444244244");
            sentido_hare = 1;
      } else if (objeto_que_lleva == 18 && fl == 188 && flags[26] == 0) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(133, 135, hare_x + 6, hare_y, 39, 63, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            comienza_sound("s8.als");
            fin_sound();
            hablar(TEXT338, "338.als");
            flags[27] = 0;
            agarra_objeto(19);
            resta_objeto(18);
      } else if (objeto_que_lleva == MOVER && fl == 188 && flags[27] == 0) {
            animacion_34_2();
            hablar(TEXT339, "339.als");
            agarra_objeto(16);
            flags[26] = 1;
            flags[27] = 1;
            if (flags[7] == 1 && flags[26] == 1 && flags[34] == 1 && flags[35] == 1 && flags[37] == 1)
                  flags[38] = 1;
      } else if (objeto_que_lleva == MIRAR && fl == 205)
            hablar(TEXT172, "172.als");
      else if (objeto_que_lleva == MIRAR && fl == 206)
            hablar(TEXT173, "173.als");
      else if (objeto_que_lleva == MOVER && fl == 206)
            hablar(TEXT174, "174.als");
      else if (objeto_que_lleva == ABRIR && fl == 206)
            hablar(TEXT174, "174.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_16(int fl) {
      if (objeto_que_lleva == HABLAR && fl == 163)
            hablar(TEXT6, "6.als");
      else if (objeto_que_lleva == ABRIR && fl == 163)
            abre_puerta(17, 0);
      else if (objeto_que_lleva == CERRAR && fl == 163)
            cierra_puerta(17, 0);
      else if (objeto_que_lleva == MIRAR && fl == 183)
            hablar(TEXT340, "340.als");     
      else if (objeto_que_lleva == HABLAR && fl == 183) {
            hablar(TEXT341, "341.als");
            pausa(10);
            hablar_sinc(TEXT50, "50.als", "11111111111144432554433");
            pausa(3);
            habla_baul("bla, bla, bla.", "d83.als");
      } else if (objeto_que_lleva == ABRIR && fl == 183) {
            abre_puerta(19, NO_PUERTA);
            if (flags[20] == 0) {
                  flags[20] = 1;
                  sentido_hare = 3;
                  refresca_pantalla();
                  VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
                  hablar(TEXT342, "342.als");
                  agarra_objeto(22);
            }
      } else if (objeto_que_lleva == CERRAR && fl == 183)
            cierra_puerta(19, NO_PUERTA);
      else if (objeto_que_lleva == MIRAR && fl == 185)
            hablar(TEXT37, "37.als");     
      else if (objeto_que_lleva == COGER && fl == 185)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == MOVER && fl == 185)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == HABLAR && fl == 185)
            hablar(TEXT38, "38.als");
      else if (objeto_que_lleva == MIRAR && fl == 187) {
            hablar(TEXT343, "343.als");     
            sentido_hare = 3;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            hablar(TEXT344, "344.als"); 
      } else if (objeto_que_lleva == HABLAR && fl == 187)
            hablar(TEXT345, "345.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_17(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 177)
            hablar(TEXT35, "35.als");     
      else if (objeto_que_lleva == HABLAR && fl == 177 && flags[18] == 0)
            hablar(TEXT6, "6.als");
      else if (objeto_que_lleva == HABLAR && fl == 177 && flags[18] == 1)
            animacion_18_2();
      else if (objeto_que_lleva == ABRIR && fl == 177 && flags[18] == 1)
            hablar(TEXT346, "346.als");
      else if (objeto_que_lleva == ABRIR && fl == 177 && flags[14] == 0 && flags[18] == 0)
            animacion_22_2();
      else if (objeto_que_lleva == ABRIR && fl == 177 && flags[14] == 1)
            abre_puerta(15, 1);
      else if (objeto_que_lleva == CERRAR && fl == 177 && flags[14] == 1)
            cierra_puerta(15, 1);
      else if (objeto_que_lleva == 11 && fl == 50 && flags[22] == 0) {
            hablar(TEXT347, "347.als");
            flags[29] = 1;
            agarra_objeto(23);
            resta_objeto(11);
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_18(int fl) {
      if (objeto_que_lleva == HABLAR && fl == 55 && flags[36] == 0)
            animacion_24_2();    
      else if (objeto_que_lleva == HABLAR && fl == 55 && flags[36] == 1)
            hablar(TEXT109, "109.als");    
      else if (objeto_que_lleva == MIRAR && fl == 181)
            hablar(TEXT348, "348.als");     
      else if (objeto_que_lleva == COGER && fl == 182) {
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(44, 1, hare_x, hare_y, 41, 70, dir_dibujo2, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(4);
            agarra_objeto(12); 
            visible[2] = 0; 
            flags[28] = 1;
      } else if (objeto_que_lleva == MIRAR && fl == 182)
            hablar(TEXT154, "154.als");
      else if (objeto_que_lleva == 8 && fl == 55 && flags[38] == 0 && flags[33] == 1)
            hablar(TEXT349, "349.als");
      else if (objeto_que_lleva == 13 && fl == 55 && flags[38] == 0 && flags[33] == 1)
            hablar(TEXT349, "349.als");
      else if (objeto_que_lleva == 15 && fl == 55 && flags[38] == 0 && flags[33] == 1)
            hablar(TEXT349, "349.als");
      else if (objeto_que_lleva == 16 && fl == 55 && flags[38] == 0 && flags[33] == 1)
            hablar(TEXT349, "349.als");
      else if (objeto_que_lleva == 17 && fl == 55 && flags[38] == 0 && flags[33] == 1)
            hablar(TEXT349, "349.als");
      else if (objeto_que_lleva == 8 && fl == 55 && flags[38] == 1 && flags[33] == 1)
            animacion_24_2();
      else if (objeto_que_lleva == 13 && fl == 55 && flags[38] == 1 && flags[33] == 1)
            animacion_24_2(); 
      else if (objeto_que_lleva == 15 && fl == 55 && flags[38] == 1 && flags[33] == 1)
            animacion_24_2(); 
      else if (objeto_que_lleva == 16 && fl == 55 && flags[38] == 1 && flags[33] == 1)
            animacion_24_2(); 
      else if (objeto_que_lleva == 17 && fl == 55 && flags[38] == 1 && flags[33] == 1)
            animacion_24_2(); 
      else if (objeto_que_lleva == 11 && fl == 50 && flags[22] == 0) {
            sentido_hare = 3;
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
            actualiza_refresco_antes();
            DIBUJA_BLOQUE(1, 1, hare_x - 1, hare_y + 3, 42, 67, dir_dibujo2, dir_zona_pantalla);
            actualiza_refresco();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            pausa(6);
            hablar(TEXT347, "347.als");
            flags[29] = 1; 
            agarra_objeto(23); 
            resta_objeto(11);
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_19(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 214)
            hablar(TEXT191, "191.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::hablar_sinc(const char *dicho, const char *filename, const char *sincronia) {
      int suma_1_pixel = 1;
      int y_mask_habla = 170;
      int x_habla_dch[6] = {1, 25, 49, 73, 97, 121};
      int x_habla_izq[6] = {145, 169, 193, 217, 241, 265};
      int p, cara = 0;

      int longitud;
      longitud = strlen(dicho);

      buffer_teclado();

      color_abc(AMARILLO);

      if (factor_red[hare_y + alto_hare] == 100)
            suma_1_pixel = 0;

      p = 0;

      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:

      if (sincronia[p] == '0')
            cara = 0;
      if (sincronia[p] == '1')
            cara = 1;
      if (sincronia[p] == '2')
            cara = 2;
      if (sincronia[p] == '3')
            cara = 3;
      if (sincronia[p] == '4')
            cara = 4;
      if (sincronia[p] == '5')
            cara = 5;
      if (sincronia[p] == '6')
            cara = 6;
      if (sincronia[p] == '7')
            cara = 7;

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

      actualiza_refresco_antes();
      DIBUJA_FONDO(hare_x, hare_y, ANCHOBJ + 1, 0, (int)(((float)ancho_hare / 100) * factor_red[hare_y + alto_hare]),
                        (int)(((float)(alto_habla - 1) / 100) * factor_red[hare_y + alto_hare]), dir_zona_pantalla, dir_dibujo3);
      pon_hare();
      DIBUJA_FONDO(ANCHOBJ + 1, 0, hare_x, hare_y, (int)(((float)ancho_hare / 100) * factor_red[hare_y + alto_hare]),
                        (int)(((float)(alto_habla - 1) / 100) * factor_red[hare_y + alto_hare]), dir_dibujo3, dir_zona_pantalla);

      if (sentido_hare == 0) {
            reduce_hare_chico(x_habla_izq[cara], y_mask_habla, (int)(hare_x + ((float)8 / 100) * factor_red[hare_y + alto_hare]),
                                          hare_y, ancho_habla, alto_habla, factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            actualiza_refresco();
      } else if (sentido_hare == 1) {
            reduce_hare_chico(x_habla_dch[cara], y_mask_habla, (int)(hare_x + ((float)12 / 100) * factor_red[hare_y + alto_hare]),
                                          hare_y, ancho_habla, alto_habla, factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla);
            actualiza_refresco();
      } else if (sentido_hare == 2) {
            reduce_hare_chico(x_habla_izq[cara], y_mask_habla,
                                    (int)(suma_1_pixel + hare_x + ((float)12 / 100) * factor_red[hare_y + alto_hare]), hare_y,
                                    ancho_habla, alto_habla, factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla);
            actualiza_refresco();
      } else if (sentido_hare == 3) {
            reduce_hare_chico(x_habla_dch[cara], y_mask_habla,
                                    (int)(suma_1_pixel + hare_x + ((float)8 / 100) * factor_red[hare_y + alto_hare]), hare_y,
                                    ancho_habla, alto_habla, factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla);
            actualiza_refresco();
      }

      if (con_voces == 0)
            centra_texto(dicho, hare_x, hare_y);

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

      p++;
      pausa(3);

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

void DrasculaEngine::habla_baul(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;
      int cara = 0, cara_antes;
      int longitud;

      longitud = strlen(dicho);

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

      buffer_teclado();

      cara_antes = flags[19];

      color_abc(MARRON);

      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:

      if (cara == 1)
            cara = 0;
      else
            cara = 1;

      flags[19] = cara;
      refresca_pantalla();

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

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

      pausa(4);

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

      flags[19] = cara_antes;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::cierra_puerta(int nflag, int n_puerta) {
      if (flags[nflag] == 1) {
            comienza_sound("s4.als");
            flags[nflag] = 0;
            if (n_puerta != NO_PUERTA)
                  puertas_cerradas(n_puerta);
            refresca_pantalla();
            VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
            fin_sound();
            sin_verbo();
      }
}

void DrasculaEngine::animacion_12_2() {
      lee_dibujos("an12.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      hablar(TEXT356, "356.als");

      actualiza_refresco_antes();

      DIBUJA_FONDO(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
      VUELCA_PANTALLA(228, 112, 228, 112, 47, 60, dir_zona_pantalla);

      pausa(3);

      actualiza_refresco_antes();

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

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

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

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

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

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

      lee_dibujos("an12.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      hablar(TEXT392, "392.als");

      actualiza_refresco_antes();

      DIBUJA_FONDO(1, 139, 228, 112, 47, 60, dir_hare_dch, dir_zona_pantalla);
      VUELCA_PANTALLA(228, 112, 228, 112, 47, 60, dir_zona_pantalla);

      pausa(3);

      actualiza_refresco_antes();

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

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

      pausa(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");

      lee_dibujos("an26.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      for (n = 0; n < 6; n++){
            x++;
            DIBUJA_FONDO(x, 1, 225, 113, 50, 59, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(225,113, 225,113, 50,59, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

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

      fin_sound_corte();
      x = 0;
      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 121, 225, 113, 50, 59, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(225, 113, 225, 113, 50, 59, dir_zona_pantalla);
            x = x + 50;
            pausa(3);
      }

      agarra_objeto(11);
      resta_objeto(12);

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

void DrasculaEngine::animacion_11_2() {
      lee_dibujos("an11y13.alg");
      descomprime_dibujo(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");
      pausa(40);
      habla_tabernero("No, nada", "d82.als");

      lee_dibujos("974.alg");
      descomprime_dibujo(dir_hare_dch, 1);
}

void DrasculaEngine::animacion_13_2() {
      lee_dibujos("an11y13.alg");
      descomprime_dibujo(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"); 

      lee_dibujos("964.alg");
      descomprime_dibujo(dir_hare_frente, 1);
}

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

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

      sentido_hare=2;
      refresca_pantalla();
      VUELCA_PANTALLA(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::animacion_24_2() {
      if (hare_x < 178)
            lleva_al_hare(208, 136);
      sentido_hare = 3;
      refresca_pantalla();
      pausa(3);
      sentido_hare = 0;

      hablar(TEXT356, "356.als");

      lee_dibujos("an24.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      animacion_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::animacion_32_2() {
      int n, x = 0;

      lee_dibujos("an32_1.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("an32_2.alg");
      descomprime_dibujo(dir_hare_fondo, 1);

      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 113, 53, 65, 81, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
            x = x + 65;
            pausa(4);
      }

      x = 0;
      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(x, 83, 113, 53, 65, 81, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
            x = x + 65;
            pausa(4);
      }

      x = 0;
      for (n = 0; n < 4; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 113, 53, 65, 81, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(113, 53, 113, 53, 65, 81, dir_zona_pantalla);
            x = x + 65;
            pausa(4);
      }

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

      lee_dibujos("aux18.alg");
      descomprime_dibujo(dir_dibujo3, 1);
}

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

      sentido_hare = 1;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      lee_dibujos("an34_1.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("an34_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      for (n = 0; n < 3; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 218, 79, 83, 75, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
            x = x + 83;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 3; n++) {
            x++;
            DIBUJA_FONDO(x, 77, 218, 79, 83, 75, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
            x = x + 83;
            pausa(3);
      }

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

      for (n = 0; n < 3; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 218, 79, 83, 75, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(218, 79, 218, 79, 83,75, dir_zona_pantalla);
            x = x + 83;
            pausa(3);
      }
      fin_sound();

      pausa(30);

      DIBUJA_FONDO(1, 77, 218, 79, 83, 75, dir_hare_dch, dir_zona_pantalla);
      VUELCA_PANTALLA(218, 79, 218, 79, 83, 75, dir_zona_pantalla);
      pausa(3);

      lee_dibujos("994.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("974.alg");
      descomprime_dibujo(dir_hare_dch, 1);
}

void DrasculaEngine::animacion_36_2() {
      lee_dibujos("an11y13.alg");
      descomprime_dibujo(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");
      pausa(40);
      habla_tabernero("No, nada", "d82.als");

      lee_dibujos("974.alg");
      descomprime_dibujo(dir_hare_dch, 1);
}

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

      lee_dibujos("an7_1.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("an7_2.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("an7_3.alg");
      descomprime_dibujo(dir_hare_frente, 1);

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

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

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

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64,   51, 73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }
      lee_dibujos("an7_4.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("an7_5.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("an7_6.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos("an7_7.alg");
      descomprime_dibujo(dir_dibujo3, 1);

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1,     80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1,     80, 64, 51,73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1,  dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64,   51, 73, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64, 51, 73, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 2; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }
      lee_dibujos("an7_8.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("an7_9.alg");
      descomprime_dibujo(dir_hare_dch, 1);

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64,   51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 75, 80, 64, 51, 73, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
            DIBUJA_BLOQUE(x, 1, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(80, 64, 80, 64, 51, 73, dir_zona_pantalla);
            x = x + 51;
            pausa(3);
      }


      DIBUJA_FONDO(80, 64, 80, 64, 51, 73, dir_dibujo1, dir_zona_pantalla);
      DIBUJA_BLOQUE(1, 75, 80, 64, 51, 73, dir_hare_dch, dir_zona_pantalla);
      VUELCA_PANTALLA(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;

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

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

      sentido_hare = 0;
      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

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

      DIBUJA_FONDO(1, 1, 213, 66,   53,84, dir_hare_fondo, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 213, 66, 53, 84, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84,dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 86, 213, 66, 53, 84, dir_hare_fondo, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 213, 66, 53, 84, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 213, 66,   53, 84, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 86, 213, 66, 53, 84, dir_hare_dch, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 213, 66,   53, 84, dir_hare_frente, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

      comienza_sound("s1.als");

      x = 0;

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

      x = 0;

      for (n = 0; n < 6; n++) {
            x++;
            DIBUJA_FONDO(x, 1, 213, 66, 53, 84, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(213, 66, 213, 66, 53, 84, dir_zona_pantalla);
            x = x + 52;
            pausa(3);
      }

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

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

      borra_pantalla();
      lee_dibujos("ciego1.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("ciego2.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("ciego3.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("ciego4.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("ciego5.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(1);

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

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(10);

      borra_pantalla();

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

      flags[9] = 0;
}

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

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

      borra_pantalla();
      lee_dibujos("ciego1.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("ciego2.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("ciego3.alg");
      descomprime_dibujo(dir_hare_dch, 1);
      lee_dibujos("ciego4.alg");
      descomprime_dibujo(dir_hare_fondo, 1);
      lee_dibujos("ciego5.alg");
      descomprime_dibujo(dir_hare_frente, 1);

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(10);

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

      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

      pausa(14);

      borra_pantalla();

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

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

bool DrasculaEngine::pantalla_21(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 101 && flags[28] == 0)
            hablar(TEXT419, "419.als"); 
      else if (objeto_que_lleva == ABRIR && fl == 101 && flags[28] == 1)
            abre_puerta(0, 1); 
      else if (objeto_que_lleva == CERRAR && fl == 101)
            cierra_puerta(0, 1);
      else if(objeto_que_lleva == COGER && fl == 141) {
            agarra_objeto(19);
            visible[2] = 0;
            flags[10] = 1;
      } else if(objeto_que_lleva == 7 && fl == 101) {
            flags[28] = 1;
            abre_puerta(0, 1);
            sin_verbo();
      } else if (objeto_que_lleva == 21 && fl == 179) {
            animacion_9_4();
            return true;
      } else
            hay_respuesta = 0;

      return false;
}

void DrasculaEngine::pantalla_22(int fl) {
      if (objeto_que_lleva == COGER && fl == 140)
            hablar(TEXT7, "7.als");
      else if (objeto_que_lleva == 11 && fl == 140) {
            agarra_objeto(18);
            visible[1] = 0;
            flags[24] = 1;
      } else if (objeto_que_lleva == 22 && fl == 52) {
            anima("up.bin",14);
            flags[26]=1;
            comienza_sound("s1.als");
            hipo(14);
            fin_sound();
            sin_verbo();
            resta_objeto(22);
            actualiza_datos();
            sentido_hare = 3;
            hablar(TEXT499, "499.als");
            hablar(TEXT500, "500.als");
      } else if (objeto_que_lleva == MIRAR && fl == 52)
            hablar(TEXT497, "497.als");  
      else if (objeto_que_lleva == HABLAR && fl == 52)
            hablar(TEXT498, "498.als");  
      else if (objeto_que_lleva == COGER && fl == 180 && flags[26] == 0)
            hablar(TEXT420, "420.als");  
      else if (objeto_que_lleva == COGER && fl == 180 && flags[26] == 1) {
            agarra_objeto(7);
            visible[3] = 0;
            flags[27] = 1;
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_23(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 103) {
            abre_puerta(0, 0);
            actualiza_datos();
      } else if(objeto_que_lleva == CERRAR && fl == 103) {
            cierra_puerta(0, 0);
            actualiza_datos();
      } else if(objeto_que_lleva == ABRIR && fl == 104)
            abre_puerta(1, 1); 
      else if(objeto_que_lleva == CERRAR && fl == 104)
            cierra_puerta(1, 1);
      else if(objeto_que_lleva == COGER && fl == 142) {
            agarra_objeto(8);
            visible[2] = 0;
            flags[11] = 1;
            if (flags[22] == 1 && flags[14] == 1)
                  flags[18] = 1;
            if (flags[18] == 1)
                  animacion_6_4();
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_24(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 105)
            abre_puerta(1, 0); 
      else if (objeto_que_lleva == CERRAR && fl == 105)
            cierra_puerta(1, 0);
      else if (objeto_que_lleva == ABRIR && fl == 106)
            abre_puerta(2, 1); 
      else if (objeto_que_lleva == CERRAR && fl == 106)
            cierra_puerta(2, 1);
      else if (objeto_que_lleva == MIRAR && fl == 151)
            hablar(TEXT461, "461.als");
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_26(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 107 && flags[30] == 0)
            abre_puerta(2, 0); 
      else if (objeto_que_lleva == ABRIR && fl == 107 && flags[30] == 1)
            hablar(TEXT421, "421.als"); 
      else if (objeto_que_lleva == CERRAR && fl == 107)
            cierra_puerta(2, 0);
      else if (objeto_que_lleva == 10 && fl == 50 && flags[18] == 1 && flags[12] == 1)
            animacion_5_4();
      else if (objeto_que_lleva == 8 && fl == 50 && flags[18] == 1 && flags[12] == 1)
            animacion_5_4();
      else if (objeto_que_lleva == 12 && fl == 50 && flags[18] == 1 && flags[12] == 1)
            animacion_5_4();
      else if (objeto_que_lleva == 16 && fl == 50 && flags[18] == 1 && flags[12] == 1)
            animacion_5_4();
      else if (objeto_que_lleva == COGER && fl == 143 && flags[18] == 1) {
            lleva_al_hare(260, 180);
            agarra_objeto(10);
            visible[1] = 0;
            flags[12] = 1; 
            cierra_puerta(2, 0);
            sentido_hare = 2;
            habla_igorpuerta(TEXTI27, "I27.als");
            flags[30] = 1;
            habla_igorpuerta(TEXTI28, "I28.als");
            lleva_al_hare(153, 180);
      } else if (objeto_que_lleva == COGER && fl == 143 && flags[18] == 0) {
            lleva_al_hare(260, 180);
            DIBUJA_FONDO(80, 78, 199, 94, 38, 27, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(199, 94, 199, 94, 38, 27, dir_zona_pantalla);
            pausa(3);
            habla_igor_peluca(TEXTI25, "I25.als");
            lleva_al_hare(153, 180);
      } else if (objeto_que_lleva == HABLAR && fl == 51)
            animacion_1_4();
      else if (objeto_que_lleva == ABRIR && fl == 167)
            hablar(TEXT467, "467.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 164)
            hablar(TEXT470, "470.als"); 
      else if (objeto_que_lleva == ABRIR && fl == 164)
            hablar(TEXT471, "471.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 163)
            hablar(TEXT472, "472.als"); 
      else if (objeto_que_lleva == COGER && fl == 163)
            hablar(TEXT473, "473.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 165)
            hablar(TEXT474, "474.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 168)
            hablar(TEXT476, "476.als"); 
      else if (objeto_que_lleva == COGER && fl == 168)
            hablar(TEXT477, "477.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_27(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 110)
            abre_puerta(6, 1); 
      else if (objeto_que_lleva == CERRAR && fl == 110)
            cierra_puerta(6, 1);
      else if (objeto_que_lleva == ABRIR && fl == 116 && flags[23] == 0)
            hablar(TEXT419, "419.als");
      else if (objeto_que_lleva == ABRIR && fl == 116 && flags[23] == 1)
            abre_puerta(5, 3); 
      else if (objeto_que_lleva == 17 && fl == 116) {
            flags[23] = 1;
            abre_puerta(5,3);
            sin_verbo();
      } else if (objeto_que_lleva == MIRAR && fl == 175)
            hablar(TEXT429, "429.als"); 
      else if (fl == 150)
            hablar(TEXT460, "460.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_29(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 114)
            abre_puerta(4, 1);  
      else if (objeto_que_lleva == CERRAR && fl == 114)
            cierra_puerta(4, 1); 
      else if (objeto_que_lleva == MIRAR && fl == 152)
            hablar(TEXT463, "463.als"); 
      else if (objeto_que_lleva == ABRIR && fl == 152)
            hablar(TEXT464, "464.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 153)
            hablar(TEXT465, "465.als"); 
      else if (objeto_que_lleva == COGER && fl == 154)
            hablar(TEXT466, "466.als"); 
      else if (objeto_que_lleva == ABRIR && fl == 156)
            hablar(TEXT467, "467.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_30(int fl) {
      if (objeto_que_lleva == ABRIR && fl == 115)
            abre_puerta(4, 0);  
      else if (objeto_que_lleva == CERRAR && fl == 115)
            cierra_puerta(4, 0); 
      else if (objeto_que_lleva == ABRIR && fl == 144 && flags[19] == 0)
            hablar(TEXT422, "422.als");
      else if (objeto_que_lleva == ABRIR && fl == 144 && flags[19] == 1 && flags[22] == 1)
            abre_puerta(16, 1);
      else if (objeto_que_lleva == ABRIR && fl == 144 && flags[19] == 1 && flags[22] == 0) {
            abre_puerta(16, 1);
            hablar(TEXT423, "423.als");
            flags[22] = 1;
            agarra_objeto(12);
            if (flags[11] == 1 && flags[14] == 1)
                  flags[18] = 1;
            if (flags[18] == 1)
                  animacion_6_2();
      } else if (objeto_que_lleva == CERRAR && fl == 144)
            cierra_puerta(16, 1); 
      else if (objeto_que_lleva == 13 && fl == 144) {
            hablar(TEXT424, "424.als");
            flags[19] = 1;
      } else if (objeto_que_lleva == ABRIR && fl == 157)
            hablar(TEXT468, "468.als"); 
      else if (objeto_que_lleva == MIRAR && fl == 158)
            hablar(TEXT469, "469.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_31(int fl) {
      if (objeto_que_lleva == COGER && fl == 145) {
            agarra_objeto(11);
            visible[1] = 0;
            flags[13] = 1;
      } else if (objeto_que_lleva == ABRIR && fl == 117)
            abre_puerta(5, 0);  
      else if (objeto_que_lleva == CERRAR && fl == 117)
            cierra_puerta(5, 0); 
      else if (objeto_que_lleva == MIRAR && fl == 161)
            hablar(TEXT470, "470.als"); 
      else if (objeto_que_lleva == ABRIR && fl == 161)
            hablar(TEXT471, "471.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_34(int fl) {
      if (objeto_que_lleva == MOVER && fl == 146)
            animacion_8_4(); 
      else if (objeto_que_lleva == MIRAR && fl == 146)
            hablar(TEXT458, "458.als");
      else if (objeto_que_lleva == COGER && fl == 146)
            hablar(TEXT459, "459.als");
      else if (objeto_que_lleva == ABRIR && fl == 120 && flags[25] == 1)
            abre_puerta(8, 2); 
      else if (objeto_que_lleva == ABRIR && fl == 120 && flags[25] == 0) {
            abre_puerta(8, 2);
            sentido_hare = 3;
            hablar(TEXT425, "425.als");
            agarra_objeto(14);
            flags[25] = 1;
      } else if (objeto_que_lleva == CERRAR && fl == 120)
            cierra_puerta(8, 2);
      else
            hay_respuesta=0;
}

void DrasculaEngine::pantalla_35(int fl) {
      if (objeto_que_lleva == COGER && fl == 148) {
            agarra_objeto(16);
            visible[2] = 0;
            flags[14] = 1;
      if (flags[11] == 1 && flags[22] == 1)
            flags[18] = 1;
      if (flags[18] == 1)
            animacion_6_4();
      } else if (objeto_que_lleva == COGER && fl == 147) {
            hablar(TEXT426, "426.als");
            agarra_objeto(15);
            visible[1] = 0;
            flags[15] = 1;
            flags[17] = 1;
            actualiza_datos();
      } else if (objeto_que_lleva == COGER && fl == 149) {
            agarra_objeto(13);
            visible[3] = 0;
            flags[17] = 0;
      } else
            hay_respuesta = 0;
}

void DrasculaEngine::pantalla_44(int fl) {
      if (objeto_que_lleva == MIRAR && fl == 172)
            hablar(TEXT428, "428.als"); 
      else
            hay_respuesta = 0;
}

void DrasculaEngine::habla_igorpuerta(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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:

      refresca_pantalla();
      if (con_voces == 0)
            centra_texto(dicho, 87, 66);
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

void DrasculaEngine::habla_igor_peluca(const char *dicho, const char *filename) {
      int tiempou;
      long tiempol;

      int x_habla[4] = {119, 158, 197, 236};
      int cara = 0;

      int longitud;
      longitud = strlen(dicho);

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

      buffer_teclado();

      color_abc(BLANCO);

      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:

      _rnd->getRandomNumber(3);

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

      actualiza_refresco_antes();

      DIBUJA_FONDO(x_habla[cara], 78, 199, 94, 38, 27, dir_dibujo3, dir_zona_pantalla);
      pon_hare();
      actualiza_refresco();

      if (con_voces == 0)
            centra_texto(dicho, 221, 102);

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

      pausa(3);

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

      refresca_pantalla();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
}

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

            actualiza_refresco_antes();

            DIBUJA_FONDO(131, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(199, 95, 199, 95, 50, 66, dir_zona_pantalla);

            pausa(3);

            actualiza_refresco_antes();

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

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

            pausa(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");

            actualiza_refresco_antes();

            DIBUJA_FONDO(131, 133, 199, 95, 50, 66, dir_dibujo3, dir_zona_pantalla);
            VUELCA_PANTALLA(199, 95, 199, 95, 50, 66, dir_zona_pantalla);
            pausa(2);

            actualiza_refresco_antes();

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

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

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

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

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

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

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

      strcpy(room, num_room);
      strcpy(num_room, "26.alg");
      borra_pantalla();
      lee_dibujos("26.alg");
      descomprime_dibujo(dir_dibujo1, MEDIA);
      lee_dibujos("aux26.alg");
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos("auxigor.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla);
      refresca_26_antes();
      x_igor = 104;
      y_igor = 71;
      pon_igor();
      VUELCA_PANTALLA(0, 0, 0, 0, 320, 200, dir_zona_pantalla);
      pausa(40);
      habla_igor_frente(TEXTI26, "I26.als");
      strcpy(num_room, room);
      borra_pantalla();
      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      lee_dibujos(pantalla_disco);
      descomprime_dibujo(dir_dibujo3, 1);
      lee_dibujos(num_room);
      descomprime_dibujo(dir_dibujo1, MEDIA);
      sin_verbo();
      refresca_pantalla();
}

void DrasculaEngine::animacion_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};

      lee_dibujos("an_8.alg");
      descomprime_dibujo(dir_hare_frente, 1);

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

      lee_dibujos("96.alg");
      descomprime_dibujo(dir_hare_frente, 1);
      abre_puerta(7, 2);
}

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

} // End of namespace Drascula

Generated by  Doxygen 1.6.0   Back to index