diff options
Diffstat (limited to 'engines/drascula/drascula.cpp')
-rw-r--r-- | engines/drascula/drascula.cpp | 6859 |
1 files changed, 6859 insertions, 0 deletions
diff --git a/engines/drascula/drascula.cpp b/engines/drascula/drascula.cpp new file mode 100644 index 0000000000..df433e12f0 --- /dev/null +++ b/engines/drascula/drascula.cpp @@ -0,0 +1,6859 @@ +/* ScummVM - Graphic Adventure Engine + * + * ScummVM is the legal property of its developers, whose names + * are too numerous to list here. Please refer to the COPYRIGHT + * file distributed with this source distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + * + * $URL$ + * $Id$ + * + */ + +#include "common/stdafx.h" + +#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) : Engine(syst) { + + // 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(); + + 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() { + // Detect game + if (!initGame()) { + GUIErrorMessage("No valid games were found in the specified directory."); + return -1; + } + + // Initialize backend + _system->beginGFXTransaction(); + initCommonGFX(false); + _system->initSize(320, 200); + _system->endGFXTransaction(); + + return 0; +} + + +int DrasculaEngine::go() { + num_ejec = 1; + + 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; + cual_ejec = 0; 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; + + asigna_memoria(); + carga_info(); + + lee_dibujos("95.alg"); + descomprime_dibujo(dir_mesa, 1); + + lee_dibujos("96.alg"); + descomprime_dibujo(dir_hare_frente, COMPLETA); + if (num_ejec == 1) { + 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("pts.alg"); + descomprime_dibujo(dir_dibujo2, 1); + } + 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); + } + 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 soc, l, n; + + dir_texto = dir_mesa; + + musica_antes = -1; + + soc = 0; + for (l = 0; l < 6; l++) { + soc = soc + ANCHO_PERSONAJE; + frame_x[l] = soc; + } + + for (n = 1; n < 43; 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_1("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_2("14.ald"); + else + para_cargar(nom_partida); + } + +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 == 1) + lee_dibujos("99.alg"); + else if (num_ejec == 2) + lee_dibujos(fondo_y_menu); + descomprime_dibujo(dir_hare_fondo, 1); + setvgapalette256((byte *)&palJuego); + menu_scr = 0; + espera_soltar(); + cont_sv = 0; + } + if (boton_dch == 1 && menu_scr == 0) { + hare_se_mueve = 0; + if (sentido_hare == 2) + sentido_hare = 1; + lee_dibujos("icons.alg"); + descomprime_dibujo(dir_hare_fondo, 1); + menu_scr = 1; + espera_soltar(); + sin_verbo(); + cont_sv = 0; + } + + if (boton_izq == 1 && menu_bar == 1) { + elige_en_barra(); + cont_sv = 0; + } else if (boton_izq == 1 && lleva_objeto == 0) { + if (comprueba1()) + return true; + cont_sv = 0; + } else if (boton_izq == 1 && lleva_objeto == 1) { + comprueba2(); + 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); + cont_sv = 0; + } else if (key == Common::KEYCODE_F2 && menu_scr == 0) { + elige_verbo(2); + cont_sv = 0; + } else if (key == Common::KEYCODE_F3 && menu_scr == 0) { + elige_verbo(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); + cont_sv = 0; + } else if (key == Common::KEYCODE_F6 && menu_scr == 0) { + elige_verbo(6); + cont_sv = 0; + } else if (key == Common::KEYCODE_F9) { + mesa(); + cont_sv = 0; + } else if (key == Common::KEYCODE_F10) { + saves(); + cont_sv = 0; + } else if (key == Common::KEYCODE_F8) { + sin_verbo(); + 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); + 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); + cont_sv = 0; + } else if (key == Common::KEYCODE_DELETE) { + confirma_go(); + cont_sv = 0; + } else if (key == Common::KEYCODE_ESCAPE) { + confirma_salir(); + cont_sv = 0; + } else if (cont_sv == 1500) { + salva_pantallas(); + cont_sv = 0; + } else + cont_sv++; + goto bucles; +} + +void DrasculaEngine::agarra_objeto(int objeto) { + 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 (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); +} + +bool 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; + } + + num_ejec = 2; + return true; +} + +void DrasculaEngine::sin_verbo() { + int c = 171; + if (menu_scr == 1) + c = 0; + 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 == 2) + borra_pantalla(); + carga_partida(nom_game); + if (num_ejec == 1) { + carga_escoba_1(datos_actuales); + } else if (num_ejec == 2) { + ald->close(); + carga_escoba_2(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_1(const char *nom_fich) { + int l, obj_salir; + float chiquez, pequegnez = 0; + char para_codificar[13]; + 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); + + 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); + + getLine(ald, buffer, size); + sscanf(buffer, "%d", &lejos); + getLine(ald, buffer, size); + sscanf(buffer, "%d", &cerca); + delete ald; + + canal_p(para_codificar); + + for (l = 0; l < objs_room; l++) { + if (num_obj[l] == obj_saliendo) + obj_salir = l; + } + + 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; + + 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 (hare_x == -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; + + actualiza_datos(); + + espuerta[7] = 0; + + if (musica_antes != musica_room) + playmusic(musica_room); + refresca_pantalla(); +} + +void DrasculaEngine::carga_escoba_2(const char *nom_fich) { + int soc, l, martin, obj_salir; + 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); + + 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); + + delete ald; + + canal_p(para_codificar); + + 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"); + } + + for (l = 0; l < objs_room; l++) { + if (num_obj[l] == obj_saliendo) + obj_salir = l; + } + + if (hare_x == -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; + + color_abc(VERDE_CLARO); + + soc = 0; + for (l = 0; l < 6; l++) { + soc = soc + ancho_hare; + frame_x[l] = soc; + } + + actualiza_datos(); + + 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"))) + conta_ciego_vez = vez(); + + 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) { + 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; + } + 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 == 1) + 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; + } + else 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; + } + + 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; +} + +void DrasculaEngine::comprueba2() { + int l; + + if (menu_scr == 1) + coge_objeto(); + else { + if (!strcmp(texto_nombre, "hacker") && hay_nombre == 1) + banderas(50); + 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]); + banderas(num_obj[l]); + } + } + } +} + +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 (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, 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) { + 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) { + 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[190], m2[190], m1[190], mb[10][40]; + char m3[190]; + 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 (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 = time (NULL); + 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(); + 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; + } + + 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; + + contador = contador; + +comienza: + contador--; + + refresca_pantalla(); + VUELCA_PANTALLA(0, 1, 0, y, 320, 198, dir_zona_pantalla); + + if (sentido == 0) + y++; + else + y--; + 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 = 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); + + tiempol = _system->getMillis(); + tiempou = (unsigned int)tiempol / 2; + _rnd->setSeed(tiempou); + + if (factor_red[hare_y + alto_hare] == 100) + suma_1_pixel = 0; + + if (num_ejec == 2) + 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(5); + + DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); + + actualiza_refresco_antes(); + if (num_ejec == 1) + 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); + else if (num_ejec == 2) + DIBUJA_FONDO(hare_x, hare_y, ANCHOBJ + 1, 0, ancho_hare, alto_habla - 1, + dir_zona_pantalla, dir_dibujo3); + pon_hare(); + + if (num_ejec == 1) + 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); + else if (num_ejec == 2) + DIBUJA_FONDO(ANCHOBJ + 1, 0, hare_x, hare_y, + ancho_hare, alto_habla - 1, + dir_dibujo3, dir_zona_pantalla); + + if (sentido_hare == 0) { + if (num_ejec == 1) + 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); + else 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); + actualiza_refresco(); + } else if (sentido_hare == 1) { + if (num_ejec == 1) + 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); + else 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); + 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(); + 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); + rename(fich2, fich); +} + +void DrasculaEngine::puertas_cerradas (int l) { + if (num_ejec == 1) + return; + + 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; +} + +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 == 1) { + 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; + } else 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(); + } + conta_vez = vez(); +} + +void DrasculaEngine::actualiza_refresco() { + if (!strcmp(num_room, "63.alg")) + refresca_63(); + else if (!strcmp(num_room, "62.alg")) + refresca_62(); + else 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(); +} + +void DrasculaEngine::actualiza_refresco_antes() { + if (!strcmp(num_room, "62.alg")) + refresca_62_antes(); + else 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")) + if (num_ejec == 1) + pon_bj(); + else if (num_ejec == 2) { + refresca_16_antes(); + } + else if (!strcmp(num_room,"17.alg")) + refresca_17_antes(); + else if (!strcmp(num_room,"18.alg")) + refresca_18_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) + 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 == 1) { + pos_hare[4] = ANCHO_PERSONAJE; + pos_hare[5] = ALTO_PERSONAJE; + } else if (num_ejec == 2) { + pos_hare[4] = ancho_hare; + pos_hare[5] = alto_hare; + } + + if (sentido_hare == 0) { + pos_hare[1] = 0; + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla); + } else if (sentido_hare == 1) + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla); + else if (sentido_hare == 2) + if (num_ejec == 1) + 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_fondo, dir_zona_pantalla); + else + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_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 == 1) { + pos_hare[4] = ANCHO_PERSONAJE; + pos_hare[5] = ALTO_PERSONAJE; + } else if (num_ejec == 2) { + pos_hare[4] = ancho_hare; + pos_hare[5] = alto_hare; + } + if (sentido_hare == 0) { + pos_hare[1] = 0; + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla); + } else if (sentido_hare == 1) + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_hare, dir_hare_dch, dir_zona_pantalla); + else if (sentido_hare == 2) + if (num_ejec == 1) + 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_fondo, dir_zona_pantalla); + else + if (num_ejec == 1) + 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 (num_ejec == 2) + DIBUJA_BLOQUE_CUT(pos_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) + 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) + if (animacion_2_1()) + return true; + borra_pantalla(); + strcpy(salgo, alapantallakeva[l]); + strcat(salgo, ".ald"); + hare_x = -1; + carga_escoba_1(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(); + 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(); + ald->close(); + strcpy(salgo, alapantallakeva[l]); + strcat(salgo, ".ald"); + hare_x =- 1; + carga_escoba_2(salgo); + } + } + + return false; +} + +void 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) { + comprueba_banderas_menu(); + } + espera_soltar(); + if (lleva_objeto == 0) + sin_verbo(); +} + +void 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 (objeto_que_lleva == MIRAR && fl == 28) + hablar(TEXT328, "328.als"); + 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 (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, "62.alg")) + pantalla_62(fl); + else if (!strcmp(num_room, "63.alg")) + pantalla_63(fl); + else + hay_respuesta = 0; + } + if (hay_respuesta == 0 && hay_nombre == 1) + pantalla_0(); + else if (hay_respuesta == 0 && menu_scr == 1) + pantalla_0(); +} + +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 = CLOCKS_PER_SEC / Pause; + FrameSSN = 0; + UsingMem = 0; + if (MiVideoSSN == NULL) + return; + _Sesion = new Common::File; + _Sesion->open(Name); + mSesion = TryInMem(_Sesion); + LastFrame = clock(); +} + +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() { + while (clock() < LastFrame + GlobalSpeed) {}; + 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); +} + +float 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 = 0, distancia_y; + + if (num_ejec == 1) + distancia_x = hare_x + ancho_hare / 2 - sitio_x; + else if (num_ejec == 2) + distancia_x = hare_x + ancho_hare - 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 / ((int)distancia_y / PASO_HARE_Y); + } else { + direccion_hare = 7; + sentido_hare = 0; + paso_y = (int)distancia_y / ((int)distancia_x / PASO_HARE_X); + } +} + +void DrasculaEngine::cuadrante_2() { + float distancia_x = 0, distancia_y; + + if (num_ejec == 1) + distancia_x = abs(hare_x + ancho_hare / 2 - sitio_x); + else if (num_ejec == 2) + distancia_x = abs(hare_x + ancho_hare - 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 / ((int)distancia_y / PASO_HARE_Y); + } else { + direccion_hare = 2; + sentido_hare = 1; + paso_y = (int)distancia_y / ((int)distancia_x / PASO_HARE_X); + } +} + +void DrasculaEngine::cuadrante_3() { + float distancia_x = 0, distancia_y; + + if (num_ejec == 1) + distancia_x = hare_x + ancho_hare / 2 - sitio_x; + else if (num_ejec == 2) + distancia_x = hare_x + ancho_hare - 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 / ((int)distancia_y / PASO_HARE_Y); + } else { + direccion_hare = 6; + sentido_hare = 0; + paso_y = (int)distancia_y / ((int)distancia_x / PASO_HARE_X); + } +} + +void DrasculaEngine::cuadrante_4() { + float distancia_x = 0, distancia_y; + + if (num_ejec == 1) + distancia_x = abs(hare_x + ancho_hare / 2 - sitio_x); + else if (num_ejec == 2) + distancia_x = abs(hare_x + ancho_hare - 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 / ((int)distancia_y / PASO_HARE_Y); + } else { + direccion_hare = 3; + sentido_hare = 1; + paso_y = (int)distancia_y / ((int)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 = (int)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 = (int)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 >= 5.7) { + 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 == 1) { + diferencia_y = alto_hare - (int)nuevo_alto; + diferencia_x = ancho_hare - (int)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; + + 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; +} + +void 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) + banderas(h); + } + } +} + +void DrasculaEngine::pantalla_0() { + if (objeto_que_lleva == MIRAR) { + if (num_ejec == 1) + hablar(TEXT54, "54.als"); + else if (num_ejec == 2) { + 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) + if (num_ejec == 1) + hablar(TEXT11, "11.als" ); + else if (num_ejec == 2) { + 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 { + if (num_ejec == 1) + hablar(TEXT11, "11.als"); + else if (num_ejec == 1) { + 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_2(); + 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); + + 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; + 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; + } + + 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 + 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) + 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); + + 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); + responde(respuesta1); + } else if ((boton_izq == 1) && (juego2 == 2)) { + usado2 = 1; + hablar(frase2, suena2); + responde(respuesta2); + } else if ((boton_izq == 1) && (juego3 == 2)) { + usado3 = 1; + hablar(frase3, suena3); + 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 == 1) + lee_dibujos("99.alg"); + else if (num_ejec == 2) + lee_dibujos(fondo_y_menu); + descomprime_dibujo(dir_hare_fondo, 1); + 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 (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 (funcion == 8) + animacion_8(); + else if (funcion == 9) + animacion_9(); + else if (funcion == 10) + animacion_10(); + else if (funcion == 15) + animacion_15(); + else if (funcion == 16) + animacion_16(); + else if (funcion == 17) + animacion_17(); + else if (funcion == 19) + animacion_19(); + else if (funcion == 20) + animacion_20(); + else if (funcion == 21) + animacion_21(); + else if (funcion == 23) + animacion_23(); + else if (funcion == 28) + animacion_28(); + else if (funcion == 29) + animacion_29(); + else if (funcion == 30) + animacion_30(); + else if (funcion == 31) + animacion_31(); +} + +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 (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 (!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; +} + +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() { + habla_pianista(TEXTP6, "P6.als"); + hablar(TEXT358, "358.als"); + habla_pianista(TEXTP7, "P7.als"); + habla_pianista(TEXTP8, "P8.als"); +} + +void DrasculaEngine::animacion_9() { + habla_pianista(TEXTP9, "P9.als"); + habla_pianista(TEXTP10, "P10.als"); + habla_pianista(TEXTP11, "P11.als"); +} + +void DrasculaEngine::animacion_10() { + 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() { + 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() { + 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() { + 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() { + habla_borracho(TEXTB13, "B13.als"); + habla_borracho(TEXTB14, "B14.als"); + flags[40] = 1; +} + +void DrasculaEngine::animacion_19() { + habla_vbpuerta(TEXTVB5, "VB5.als"); +} + +void DrasculaEngine::animacion_20() { + 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(); + 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() { + habla_vbpuerta(TEXTVB6, "VB6.als"); +} + +void DrasculaEngine::animacion_23() { + 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(); + 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(); + 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(); + + 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() { + 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() { + 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(){ + habla_vb(TEXTVB27, "VB27.als"); + habla_vb(TEXTVB28, "VB28.als"); + habla_vb(TEXTVB29, "VB29.als"); + habla_vb(TEXTVB30, "VB30.als"); +} + +void DrasculaEngine::animacion_29(){ + 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(){ + habla_vb(TEXTVB31, "VB31.als"); + hablar(TEXT396, "396.als"); +} + +void DrasculaEngine::animacion_31(){ + 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() { + 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); + + // TODO + salir_al_dos(3); +} + +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; + int pos_ciego[6]; + int cara = 0; + + int longitud; + longitud = strlen(dicho); + + buffer_teclado(); + + color_abc(VON_BRAUN); + + // FIXME: We can't do this to a read-only string! +#if 0 + for (p = 0; sincronia[p]; p++) + sincronia[p] = toupper(sincronia[p]); +#endif + + p = 0; + 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; + 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; + + 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; + contador = contador; + +comienza: + contador--; + + DIBUJA_FONDO(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); + VUELCA_PANTALLA(0, 1, 0, y, 320, 198, dir_zona_pantalla); + + if (sentido == 0) + y++; + else + y--; + 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) { + 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(); + 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(); + } +} + + + +} // End of namespace Drascula |