/* 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/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" namespace Drascula { struct GameSettings { const char *gameid; const char *description; byte id; uint32 features; const char *detectname; }; static const GameSettings drasculaSettings[] = { {"drascula", "Drascula game", 0, 0, 0}, {NULL, NULL, 0, 0, NULL} }; DrasculaEngine::DrasculaEngine(OSystem *syst, const DrasculaGameDescription *gameDesc) : Engine(syst), _gameDescription(gameDesc) { // Setup mixer _mixer->setVolumeForSoundType(Audio::Mixer::kSFXSoundType, ConfMan.getInt("sfx_volume")); _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, ConfMan.getInt("music_volume")); const GameSettings *g; const char *gameid = ConfMan.get("gameid").c_str(); for (g = drasculaSettings; g->gameid; ++g) if (!scumm_stricmp(g->gameid, gameid)) _gameId = g->id; _rnd = new Common::RandomSource(); syst->getEventManager()->registerRandomSource(*_rnd, "drascula"); int cd_num = ConfMan.getInt("cdrom"); if (cd_num >= 0) _system->openCD(cd_num); _lang = 0; } DrasculaEngine::~DrasculaEngine() { delete _rnd; } struct ItemLocation { int x; int y; }; ItemLocation itemLocations[] = { { 0, 0 }, // empty { 5, 10 }, { 50, 10 }, { 95, 10 }, // 1-3 { 140, 10 }, { 185, 10 }, { 230, 10 }, // 4-6 { 275, 10 }, { 5, 40 }, { 50, 40 }, // 7-9 { 95, 40 }, { 140, 40 }, { 185, 40 }, // 10-12 { 230, 40 }, { 275, 40 }, { 5, 70 }, // 13-15 { 50, 70 }, { 95, 70 }, { 140, 70 }, // 16-18 { 185, 70 }, { 230, 70 }, { 275, 70 }, // 19-21 { 5, 100 }, { 50, 100 }, { 95, 100 }, // 22-24 { 140, 100 }, { 185, 100 }, { 230, 100 }, // 25-27 { 275, 100 }, { 5, 130 }, { 50, 130 }, // 28-30 { 95, 130 }, { 140, 130 }, { 185, 130 }, // 31-33 { 230, 130 }, { 275, 130 }, { 5, 160 }, // 34-36 { 50, 160 }, { 95, 160 }, { 140, 160 }, // 37-39 { 185, 160 }, { 230, 160 }, { 275, 160 }, // 40-42 { 275, 160 } // 43 }; static const 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 const 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 const int x_barra[] = {6, 51, 96, 141, 186, 232, 276, 321}; static const 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 const 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}; int DrasculaEngine::init() { // Initialize backend _system->beginGFXTransaction(); initCommonGFX(false); _system->initSize(320, 200); _system->endGFXTransaction(); switch (getLanguage()) { case Common::EN_ANY: _lang = 0; break; case Common::ES_ESP: _lang = 1; break; case Common::DE_DEU: _lang = 2; break; case Common::FR_FRA: _lang = 3; break; case Common::IT_ITA: _lang = 4; break; default: warning("Unknown game language. Falling back to English"); _lang = 0; } return 0; } int DrasculaEngine::go() { num_ejec = 1; // values from 1 to 6 will start each part of game hay_que_load = 0; for (;;) { int i; 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; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; alto_hare = CHARACTER_HEIGHT; ancho_hare = CHARACTER_WIDTH; alto_pies = PIES_HARE; alto_talk = ALTO_TALK_HARE; ancho_talk = ANCHO_TALK_HARE; hay_answer = 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; corta_musica = 0; hay_seleccion = 0; Leng = 0; UsingMem = 0; GlobalSpeed = 0; frame_ciego = 0; frame_ronquido = 0; frame_murcielago = 0; c_mirar = 0; c_poder = 0; ald = NULL; sku = NULL; allocMemory(); hay_sb = 1; withVoices = 0; hay_seleccion = 0; if (num_ejec != 6) { loadPic("95.alg"); decompressPic(dir_mesa, 1); } if (num_ejec == 1) { loadPic("96.alg"); decompressPic(dir_hare_frente, COMPLETE_PAL); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); loadPic("97.alg"); decompressPic(dir_hare_dch, 1); } else if (num_ejec == 2) { loadPic("96.alg"); decompressPic(dir_hare_frente, COMPLETE_PAL); loadPic("pts.alg"); decompressPic(dir_dibujo2, 1); } else if (num_ejec == 3) { loadPic("aux13.alg"); decompressPic(dir_dibujo1, COMPLETE_PAL); loadPic("96.alg"); decompressPic(dir_hare_frente, 1); loadPic("97.alg"); decompressPic(dir_hare_dch, 1); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); } else if (num_ejec == 4) { loadPic("96.alg"); decompressPic(dir_hare_frente, COMPLETE_PAL); if (hay_que_load == 0) animation_rayo(); loadPic("96.alg"); decompressPic(dir_hare_frente, 1); clearRoom(); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); loadPic("97.alg"); decompressPic(dir_hare_dch, 1); } else if (num_ejec == 5) { loadPic("96.alg"); decompressPic(dir_hare_frente, COMPLETE_PAL); loadPic("97.alg"); decompressPic(dir_hare_dch, 1); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); } else if (num_ejec == 6) { x_igor = 105, y_igor = 85, sentido_igor = 1; x_dr = 62, y_dr = 99, sentido_dr = 1; frame_pen = 0; flag_tv = 0; dir_pendulo = dir_dibujo3; loadPic("96.alg"); decompressPic(dir_hare_frente, COMPLETE_PAL); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); loadPic("97.alg"); decompressPic(dir_hare_dch, 1); loadPic("95.alg"); decompressPic(dir_mesa, 1); } memset(iconName, 0, sizeof(iconName)); for (i = 0; i < 6; i++) strcpy(iconName[i + 1], _textverbs[_lang][i]); paleta_hare(); if (!escoba()) { releaseGame(); break; } releaseGame(); if (num_ejec == 6) break; num_ejec++; } return 0; } void DrasculaEngine::releaseGame() { if (hay_sb == 1) ctvd_end(); clearRoom(); black(); MusicFadeout(); stopMusic(); freeMemory(); free(VGA); } void DrasculaEngine::allocMemory() { 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::freeMemory() { 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::loadPic(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::decompressPic(byte *dir_escritura, int plt) { memcpy(dir_escritura, Buffer_pcx, 64000); free(Buffer_pcx); setRGB((byte *)cPal, plt); } void DrasculaEngine::paleta_hare() { int color, componente; for (color = 235; color < 253; color++) for (componente = 0; componente < 3; componente++) palHare[color][componente] = gamePalette[color][componente]; } void DrasculaEngine::hare_oscuro() { int color, componente; for (color = 235; color < 253; color++ ) for (componente = 0; componente < 3; componente++) gamePalette[color][componente] = palHareOscuro[color][componente]; updatePalette(); } void DrasculaEngine::setRGB(byte *dir_lectura, int plt) { int x, cnt = 0; for (x = 0; x < plt; x++) { gamePalette[x][0] = dir_lectura[cnt++] / 4; gamePalette[x][1] = dir_lectura[cnt++] / 4; gamePalette[x][2] = dir_lectura[cnt++] / 4; } updatePalette(); } void DrasculaEngine::black() { 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; setPalette((byte *)&palNegra); } void DrasculaEngine::updatePalette() { setPalette((byte *)&gamePalette); } void DrasculaEngine::setPalette(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::copyBackground(int xorg, int yorg, int xdes, int ydes, int width, int height, byte *src, byte *dest) { dest += xdes + ydes * 320; src += xorg + yorg * 320; for (int x = 0; x < height; x++) { memcpy(dest, src, width); dest += 320; src += 320; } } void DrasculaEngine::copyRect(int xorg, int yorg, int xdes, int ydes, int width, int height, byte *src, byte *dest) { int y, x; dest += xdes + ydes * 320; src += xorg + yorg * 320; for (y = 0; y < height; y++) for (x = 0; x < width; x++) if (src[x + y * 320] != 255) dest[x + y * 320] = src[x + y * 320]; } void DrasculaEngine::copyRectClip(int *Array, byte *src, byte *dest) { int y, x; int xorg = Array[0]; int yorg = Array[1]; int xdes = Array[2]; int ydes = Array[3]; int width = Array[4]; int height = Array[5]; if (ydes < 0) { yorg += -ydes; height += ydes; ydes = 0; } if (xdes < 0) { xorg += -xdes; width += xdes; xdes = 0; } if ((xdes + width) > 319) width -= (xdes + width) - 320; if ((ydes + height) > 199) height -= (ydes + height) - 200; dest += xdes + ydes * 320; src += xorg + yorg * 320; for (y = 0; y < height; y++) for (x = 0; x < width; x++) if (src[x + y * 320] != 255) dest[x + y * 320] = src[x + y * 320]; } void DrasculaEngine::updateScreen(int xorg, int yorg, int xdes, int ydes, int width, int height, byte *buffer) { byte *ptr = VGA; ptr += xdes + ydes * 320; buffer += xorg + yorg * 320; for (int x = 0; x < height; x++) { memcpy(ptr, buffer, width); ptr += 320; buffer += 320; } _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200); _system->updateScreen(); } bool DrasculaEngine::escoba() { int n; if (_lang == kSpanish) dir_texto = dir_hare_dch; else dir_texto = dir_mesa; previousMusic = -1; if (num_ejec != 2) { int soc = 0; for (n = 0; n < 6; n++) { soc = soc + CHARACTER_WIDTH; frame_x[n] = soc; } } for (n = 1; n < 43; n++) inventoryObjects[n] = 0; for (n = 0; n < NUM_FLAGS; n++) flags[n] = 0; if (num_ejec == 2) { flags[16] = 1; flags[17] = 1; flags[27] = 1; } for (n = 1; n < 7; n++) inventoryObjects[n] = n; if (num_ejec == 1) { pickObject(28); if (hay_que_load == 0) animation_1_1(); withoutVerb(); loadPic("2aux62.alg"); decompressPic(dir_dibujo2, 1); sentido_hare = 1; obj_saliendo = 104; if (hay_que_load != 0) { if (!para_cargar(nom_partida)) { return true; } } else { carga_escoba("62.ald"); hare_x = -20; hare_y = 56; lleva_al_hare(65, 145); } } else if (num_ejec == 2) { suma_objeto(28); sentido_hare = 3; obj_saliendo = 162; if (hay_que_load == 0) carga_escoba("14.ald"); else { if (!para_cargar(nom_partida)) { return true; } } } else if (num_ejec == 3) { suma_objeto(28); suma_objeto(11); suma_objeto(14); suma_objeto(22); suma_objeto(9); suma_objeto(20); suma_objeto(19); flags[1] = 1; sentido_hare = 1; obj_saliendo = 99; if (hay_que_load == 0) carga_escoba("20.ald"); else { if (!para_cargar(nom_partida)) { return true; } } } else if (num_ejec == 4) { suma_objeto(28); suma_objeto(9); suma_objeto(20); suma_objeto(22); obj_saliendo = 100; if (hay_que_load == 0) { carga_escoba("21.ald"); sentido_hare = 0; hare_x = 235; hare_y = 164; } else { if (!para_cargar(nom_partida)) { return true; } } } else if (num_ejec == 5) { suma_objeto(28); suma_objeto(7); suma_objeto(9); suma_objeto(11); suma_objeto(13); suma_objeto(14); suma_objeto(15); suma_objeto(17); suma_objeto(20); sentido_hare = 1; obj_saliendo = 100; if (hay_que_load == 0) { carga_escoba("45.ald"); } else { if (!para_cargar(nom_partida)) { return true; } } } else if (num_ejec == 6) { suma_objeto(28); suma_objeto(9); sentido_hare = 1; obj_saliendo = 104; if (hay_que_load == 0) { carga_escoba("58.ald"); animation_1_6(); } else { if (!para_cargar(nom_partida)) { return true; } loadPic("auxdr.alg"); decompressPic(dir_dibujo2, 1); } } bucles: if (hare_se_mueve == 0) { step_x = PASO_HARE_X; step_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 (roomNumber == 3 && (hare_x == 279) && (hare_y + alto_hare == 101)) animation_1_2(); else if (roomNumber == 14 && (hare_x == 214) && (hare_y + alto_hare == 121)) lleva_al_hare(190, 130); else if (roomNumber == 14 && (hare_x == 246) && (hare_y + alto_hare == 112)) lleva_al_hare(190, 130); } mueve_cursor(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); if (num_ejec == 2) { if (musicStatus() == 0 && roomMusic != 0) playMusic(roomMusic); } else { if (musicStatus() == 0) playMusic(roomMusic); } updateEvents(); if (menu_scr == 0 && lleva_objeto == 1) comprueba_objetos(); if (button_dch == 1 && menu_scr == 1) { delay(100); if (num_ejec == 2) loadPic(fondo_y_menu); else loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); setPalette((byte *)&gamePalette); menu_scr = 0; updateEvents(); if (num_ejec != 3) cont_sv = 0; } if (button_dch == 1 && menu_scr == 0) { delay(100); hare_se_mueve = 0; if (sentido_hare == 2) sentido_hare = 1; if (num_ejec == 4) loadPic("icons2.alg"); else if (num_ejec == 5) loadPic("icons3.alg"); else if (num_ejec == 6) loadPic("iconsp.alg"); else loadPic("icons.alg"); decompressPic(dir_hare_fondo, 1); menu_scr = 1; updateEvents(); withoutVerb(); if (num_ejec != 3) cont_sv = 0; } if (button_izq == 1 && menu_bar == 1) { delay(100); elige_en_barra(); if (num_ejec != 3) cont_sv = 0; } else if (button_izq == 1 && lleva_objeto == 0) { delay(100); if (comprueba1()) return true; if (num_ejec != 3) cont_sv = 0; } else if (button_izq == 1 && lleva_objeto == 1) { if (comprueba2()) return true; if (num_ejec != 3) cont_sv = 0; } if (mouseY < 24 && menu_scr == 0) menu_bar = 1; else menu_bar = 0; Common::KeyCode key = getscan(); if (key == Common::KEYCODE_F1 && menu_scr == 0) { elige_verbo(1); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F2 && menu_scr == 0) { elige_verbo(2); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F3 && menu_scr == 0) { elige_verbo(3); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F4 && menu_scr == 0) { elige_verbo(4); cont_sv = 0; } else if (key == Common::KEYCODE_F5 && menu_scr == 0) { elige_verbo(5); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F6 && menu_scr == 0) { elige_verbo(6); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F9) { mesa(); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F10) { if (!saves()) return true; if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_F8) { withoutVerb(); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_v) { withVoices = 1; print_abc(_textsys[_lang][2], 96, 86); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); delay(1410); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_t) { withVoices = 0; print_abc(_textsys[_lang][3], 94, 86); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); delay(1460); if (num_ejec != 3) cont_sv = 0; } else if (key == Common::KEYCODE_ESCAPE) { if (!confirma_salir()) return false; if (num_ejec != 3) cont_sv = 0; } else if (num_ejec == 6 && key == Common::KEYCODE_0 && roomNumber == 61) { loadPic("alcbar.alg"); decompressPic(dir_dibujo1, 255); } else if (cont_sv == 1500) { salva_pantallas(); if (num_ejec != 3) cont_sv = 0; } else { if (num_ejec != 3) cont_sv++; } goto bucles; } void DrasculaEngine::pickObject(int objeto) { if (num_ejec == 6) loadPic("iconsp.alg"); else if (num_ejec == 4) loadPic("icons2.alg"); else if (num_ejec == 5) loadPic("icons3.alg"); else loadPic("icons.alg"); decompressPic(dir_hare_fondo, 1); chooseObject(objeto); if (num_ejec == 2) loadPic(fondo_y_menu); else loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); } void DrasculaEngine::chooseObject(int objeto) { if (num_ejec == 5) { if (lleva_objeto == 1 && menu_scr == 0 && pickedObject != 16) suma_objeto(pickedObject); } else { if (lleva_objeto == 1 && menu_scr == 0) suma_objeto(pickedObject); } copyBackground(x1d_menu[objeto], y1d_menu[objeto], 0, 0, OBJWIDTH,OBJHEIGHT, dir_hare_fondo, dir_dibujo3); lleva_objeto = 1; pickedObject = objeto; } int DrasculaEngine::resta_objeto(int osj) { int result = 1; for (int h = 1; h < 43; h++) { if (inventoryObjects[h] == osj) { inventoryObjects[h] = 0; result = 0; break; } } return result; } void DrasculaEngine::withoutVerb() { int c = 171; if (menu_scr == 1) c = 0; if (num_ejec == 5) { if (lleva_objeto == 1 && pickedObject != 16) suma_objeto(pickedObject); } else { if (lleva_objeto == 1) suma_objeto(pickedObject); } copyBackground(0, c, 0, 0, OBJWIDTH,OBJHEIGHT, dir_hare_fondo, dir_dibujo3); lleva_objeto = 0; hay_nombre = 0; } bool DrasculaEngine::para_cargar(char nom_game[]) { previousMusic = roomMusic; menu_scr = 0; if (num_ejec != 1) clearRoom(); if (!carga_partida(nom_game)) return false; if (num_ejec == 2 || num_ejec == 3 || num_ejec == 5) { delete ald; ald = NULL; } carga_escoba(currentData); withoutVerb(); return true; } static char *getLine(Common::File *fp, char *buf, int len) { byte c; char *b; for (;;) { b = buf; while (!fp->eos()) { c = ~fp->readByte(); if (c == '\r') continue; if (c == '\n' || b - buf >= (len - 1)) break; *b++ = c; } *b = '\0'; if (fp->eos() && b == buf) return NULL; if (b != buf) break; } return buf; } void DrasculaEngine::carga_escoba(const char *nom_fich) { int soc, l, martin = 0, obj_salir = 0; float chiquez = 0, pequegnez = 0; char pant1[20], pant2[20], pant3[20], pant4[20]; char para_codificar[20]; char buffer[256]; hay_nombre = 0; strcpy(para_codificar, nom_fich); strcpy(currentData, nom_fich); ald = new Common::File; ald->open(nom_fich); if (!ald->isOpen()) { error("missing data file"); } int size = ald->size(); getLine(ald, buffer, size); roomNumber = atoi(buffer); getLine(ald, buffer, size); sscanf(buffer, "%d", &roomMusic); getLine(ald, buffer, size); sscanf(buffer, "%s", roomDisk); getLine(ald, buffer, size); sscanf(buffer, "%d", &nivel_osc); if (num_ejec == 2) { getLine(ald, buffer, size); sscanf(buffer, "%d", &martin); if (martin == 0) goto martini; ancho_hare = martin; getLine(ald, buffer, size); sscanf(buffer, "%d",&alto_hare); getLine(ald, buffer, size); sscanf(buffer, "%d",&alto_pies); getLine(ald, buffer, size); sscanf(buffer, "%d",&step_x); getLine(ald, buffer, size); sscanf(buffer, "%d",&step_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); loadPic(pant2); decompressPic(dir_hare_dch, 1); loadPic(pant1); decompressPic(dir_hare_frente, 1); loadPic(pant4); decompressPic(dir_hare_fondo, 1); strcpy(fondo_y_menu, pant4); } martini: getLine(ald, buffer, size); sscanf(buffer, "%d", &numRoomObjs); for (l = 0; l < numRoomObjs; l++) { getLine(ald, buffer, size); sscanf(buffer, "%d", &num_obj[l]); getLine(ald, buffer, size); sscanf(buffer, "%s", objName[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", &isDoor[l]); if (isDoor[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]); updateDoor(l); } } getLine(ald, buffer, size); sscanf(buffer, "%d", &suelo_x1); getLine(ald, buffer, size); sscanf(buffer, "%d", &suelo_y1); getLine(ald, buffer, size); sscanf(buffer, "%d", &suelo_x2); getLine(ald, buffer, size); sscanf(buffer, "%d", &suelo_y2); if (num_ejec != 2) { getLine(ald, buffer, size); sscanf(buffer, "%d", &far); getLine(ald, buffer, size); sscanf(buffer, "%d", &near); } delete ald; ald = NULL; if (num_ejec == 2) { if (martin == 0) { step_x = PASO_HARE_X; step_y = PASO_HARE_Y; alto_hare = CHARACTER_HEIGHT; ancho_hare = CHARACTER_WIDTH; alto_pies = PIES_HARE; loadPic("97.alg"); decompressPic(dir_hare_dch, 1); loadPic("96.alg"); decompressPic(dir_hare_frente, 1); loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); strcpy(fondo_y_menu, "99.alg"); } } for (l = 0; l < numRoomObjs; l++) { if (num_obj[l] == obj_saliendo) obj_salir = l; } if (num_ejec == 2) { if (hare_x == -1) { hare_x = x_alakeva[obj_salir]; hare_y = y_alakeva[obj_salir] - alto_hare; } hare_se_mueve = 0; } loadPic(roomDisk); decompressPic(dir_dibujo3, 1); char rm[20]; sprintf(rm, "%i.alg", roomNumber); loadPic(rm); decompressPic(dir_dibujo1, HALF_PAL); copyBackground(0, 171, 0, 0, OBJWIDTH, OBJHEIGHT, dir_hare_fondo, dir_dibujo3); color_hare(); if (nivel_osc != 0) funde_hare(nivel_osc); paleta_hare_claro(); color_hare(); funde_hare(nivel_osc + 2); paleta_hare_oscuro(); hare_claro(); cambio_de_color = -1; if (num_ejec == 2) color_abc(LIGHT_GREEN); if (num_ejec != 2) { for (l = 0; l <= suelo_y1; l++) factor_red[l] = far; for (l = suelo_y1; l <= 201; l++) factor_red[l] = near; chiquez = (float)(near - far) / (float)(suelo_y2 - suelo_y1); for (l = suelo_y1; l <= suelo_y2; l++) { factor_red[l] = (int)(far + pequegnez); pequegnez = pequegnez + chiquez; } } if (roomNumber == 24) { for (l = suelo_y1 - 1; l > 74; l--) { factor_red[l] = (int)(far - pequegnez); pequegnez = pequegnez + chiquez; } } if (num_ejec == 5 && roomNumber == 54) { for (l = suelo_y1 - 1; l > 84; l--) { factor_red[l] = (int)(far - pequegnez); pequegnez = pequegnez + chiquez; } } if (num_ejec != 2) { if (hare_x == -1) { hare_x = x_alakeva[obj_salir]; hare_y = y_alakeva[obj_salir]; alto_hare = (CHARACTER_HEIGHT * factor_red[hare_y]) / 100; ancho_hare = (CHARACTER_WIDTH * factor_red[hare_y]) / 100; hare_y = hare_y - alto_hare; } else { alto_hare = (CHARACTER_HEIGHT * factor_red[hare_y]) / 100; ancho_hare = (CHARACTER_WIDTH * factor_red[hare_y]) / 100; } hare_se_mueve = 0; } if (num_ejec == 2) { soc = 0; for (l = 0; l < 6; l++) { soc = soc + ancho_hare; frame_x[l] = soc; } } if (num_ejec == 5) hare_se_ve = 1; updateData(); if (num_ejec == 1) isDoor[7] = 0; if (num_ejec == 2) { if (roomNumber == 14 && flags[39] == 1) roomMusic = 16; else if (roomNumber == 15 && flags[39] == 1) roomMusic = 16; if (roomNumber == 14 && flags[5] == 1) roomMusic = 0; else if (roomNumber == 15 && flags[5] == 1) roomMusic = 0; if (previousMusic != roomMusic && roomMusic != 0) playMusic(roomMusic); if (roomMusic == 0) stopMusic(); } else { if (previousMusic != roomMusic && roomMusic != 0) playMusic(roomMusic); } if (num_ejec == 2) { if (roomNumber == 9 || roomNumber == 2 || roomNumber == 14 || roomNumber == 18) conta_ciego_vez = vez(); } if (num_ejec == 4) { if (roomNumber == 26) conta_ciego_vez = vez(); } if (num_ejec == 4 && roomNumber == 24 && flags[29] == 1) animation_7_4(); if (num_ejec == 5) { if (roomNumber == 45) hare_se_ve = 0; if (roomNumber == 49 && flags[7] == 0) animation_4_5(); } updateRoom(); } void DrasculaEngine::clearRoom() { memset(VGA, 0, 64000); _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200); _system->updateScreen(); } void DrasculaEngine::lleva_al_hare(int punto_x, int punto_y) { if (num_ejec == 5 || num_ejec == 6) { if (hare_se_ve == 0) { hare_x = sitio_x; hare_y = sitio_y; goto fin; } } sitio_x = punto_x; sitio_y = punto_y; empieza_andar(); for (;;) { updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); if (hare_se_mueve == 0) break; } if (anda_a_objeto == 1) { anda_a_objeto = 0; sentido_hare = sentido_final; } fin: updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); } void DrasculaEngine::mueve_cursor() { int pos_cursor[8]; copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); updateRefresh_pre(); pon_hare(); updateRefresh(); if (!strcmp(texto_nombre, "hacker") && hay_nombre == 1) { if (_color != RED && menu_scr == 0) color_abc(RED); } else if (menu_scr == 0 && _color != LIGHT_GREEN) color_abc(LIGHT_GREEN); if (hay_nombre == 1 && menu_scr == 0) centra_texto(texto_nombre, mouseX, mouseY); 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] = mouseX - 20; pos_cursor[3] = mouseY - 17; pos_cursor[4] = OBJWIDTH; pos_cursor[5] = OBJHEIGHT; copyRectClip(pos_cursor, dir_dibujo3, dir_zona_pantalla); } void DrasculaEngine::comprueba_objetos() { int l, veo = 0; for (l = 0; l < numRoomObjs; l++) { if (mouseX > x1[l] && mouseY > y1[l] && mouseX < x2[l] && mouseY < y2[l] && visible[l] == 1 && isDoor[l] == 0) { strcpy(texto_nombre, objName[l]); hay_nombre = 1; veo = 1; } } if (num_ejec == 2) { if (mouseX > hare_x + 2 && mouseY > hare_y + 2 && mouseX < hare_x + ancho_hare - 2 && mouseY < hare_y + alto_hare - 2) { strcpy(texto_nombre, "hacker"); hay_nombre = 1; veo = 1; } } else { if (mouseX > hare_x + 2 && mouseY > hare_y + 2 && mouseX < hare_x + ancho_hare - 2 && mouseY < hare_y + alto_hare - 2 && veo == 0) { strcpy(texto_nombre, "hacker"); hay_nombre = 1; veo = 1; } } if (veo == 0) hay_nombre = 0; } void DrasculaEngine::elige_en_barra() { int n, num_verbo = -1; for (n = 0; n < 7; n++) if (mouseX > x_barra[n] && mouseX < x_barra[n + 1]) num_verbo = n; if (num_verbo < 1) withoutVerb(); else elige_verbo(num_verbo); } bool DrasculaEngine::comprueba1() { int l; if (menu_scr == 1) removeObject(); else { for (l = 0; l < numRoomObjs; l++) { if (mouseX >= x1[l] && mouseY >= y1[l] && mouseX <= x2[l] && mouseY <= y2[l] && rompo == 0) { if (sal_de_la_habitacion(l)) return true; if (rompo == 1) break; } } if (mouseX > hare_x && mouseY > hare_y && mouseX < hare_x + ancho_hare && mouseY < hare_y + alto_hare) rompo = 1; for (l = 0; l < numRoomObjs; l++) { if (mouseX > x1[l] && mouseY > y1[l] && mouseX < x2[l] && mouseY < 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 = mouseX; sitio_y = mouseY; if (sitio_x < suelo_x1) sitio_x = suelo_x1; if (sitio_x > suelo_x2) sitio_x = suelo_x2; if (sitio_y < suelo_y1 + alto_pies) sitio_y = suelo_y1 + alto_pies; if (sitio_y > suelo_y2) sitio_y = suelo_y2; empieza_andar(); } rompo = 0; } return false; } bool DrasculaEngine::comprueba2() { int l; if (menu_scr == 1) { if (coge_objeto()) return true; } else { if (!strcmp(texto_nombre, "hacker") && hay_nombre == 1) { if (banderas(50)) return true; } else { for (l = 0; l < numRoomObjs; l++) { if (mouseX > x1[l] && mouseY > y1[l] && mouseX < x2[l] && mouseY < y2[l] && visible[l] == 1) { sentido_final = sentidobj[l]; anda_a_objeto = 1; lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); if (banderas(num_obj[l])) return true; if (num_ejec == 4) break; } } } } return false; } Common::KeyCode DrasculaEngine::getscan() { updateEvents(); return _keyPressed.keycode; } void DrasculaEngine::updateEvents() { 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: mouseX = event.mouse.x; mouseY = event.mouse.y; break; case Common::EVENT_LBUTTONDOWN: button_izq = 1; break; case Common::EVENT_LBUTTONUP: button_izq = 0; break; case Common::EVENT_RBUTTONDOWN: button_dch = 1; break; case Common::EVENT_RBUTTONUP: button_dch = 0; break; case Common::EVENT_QUIT: // TODO releaseGame(); exit(0); break; default: break; } } } void DrasculaEngine::elige_verbo(int verbo) { int c = 171; if (menu_scr == 1) c = 0; if (num_ejec == 5) { if (lleva_objeto == 1 && pickedObject != 16) suma_objeto(pickedObject); } else { if (lleva_objeto == 1) suma_objeto(pickedObject); } copyBackground(OBJWIDTH * verbo, c, 0, 0, OBJWIDTH, OBJHEIGHT, dir_hare_fondo, dir_dibujo3); lleva_objeto = 1; pickedObject = verbo; } void DrasculaEngine::mesa() { int nivel_master, nivel_voc, nivel_cd; copyRect(1, 56, 73, 63, 177, 97, dir_mesa, dir_zona_pantalla); updateScreen(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); updateRoom(); copyRect(1, 56, 73, 63, 177, 97, dir_mesa, dir_zona_pantalla); copyBackground(183, 56, 82, nivel_master, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kPlainSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla); copyBackground(183, 56, 138, nivel_voc, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kSFXSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla); copyBackground(183, 56, 194, nivel_cd, 39, 2 + ((_mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16) * 4), dir_mesa, dir_zona_pantalla); cursor_mesa(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); updateEvents(); if (button_dch == 1) { delay(100); break; } if (button_izq == 1) { delay(100); if (mouseX > 80 && mouseX < 121) { int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kPlainSoundType) / 16; if (mouseY < nivel_master && vol < 15) vol++; if (mouseY > nivel_master && vol > 0) vol--; _mixer->setVolumeForSoundType(Audio::Mixer::kPlainSoundType, vol * 16); } if (mouseX > 136 && mouseX < 178) { int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kSFXSoundType) / 16; if (mouseY < nivel_voc && vol < 15) vol++; if (mouseY > nivel_voc && vol > 0) vol--; _mixer->setVolumeForSoundType(Audio::Mixer::kSFXSoundType, vol * 16); } if (mouseX > 192 && mouseX < 233) { int vol = _mixer->getVolumeForSoundType(Audio::Mixer::kMusicSoundType) / 16; if (mouseY < nivel_cd && vol < 15) vol++; if (mouseY > nivel_cd && vol > 0) vol--; _mixer->setVolumeForSoundType(Audio::Mixer::kMusicSoundType, vol * 16); } } } updateEvents(); } bool DrasculaEngine::saves() { char nombres[10][23]; char fichero[50]; char fileEpa[50]; int n, n2, num_sav = 0, y = 27; Common::InSaveFile *sav; clearRoom(); snprintf(fileEpa, 50, "%s.epa", _targetName.c_str()); if (!(sav = _saveFileMan->openForLoading(fileEpa))) { Common::OutSaveFile *epa; if (!(epa = _saveFileMan->openForSaving(fileEpa))) error("Can't open %s file", fileEpa); for (n = 0; n < NUM_SAVES; n++) epa->writeString("*\n"); epa->finalize(); delete epa; if (!(sav = _saveFileMan->openForLoading(fileEpa))) { error("Can't open %s file", fileEpa); } } for (n = 0; n < NUM_SAVES; n++) sav->readLine(nombres[n], 23); delete sav; loadPic("savescr.alg"); decompressPic(dir_dibujo1, HALF_PAL); color_abc(LIGHT_GREEN); for (;;) { y = 27; copyBackground(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(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); y = 27; updateEvents(); if (button_izq == 1) { delay(100); for (n = 0; n < NUM_SAVES; n++) { if (mouseX > 115 && mouseY > y + (9 * n) && mouseX < 115 + 175 && mouseY < 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) { snprintf(fichero, 50, "%s%02d", _targetName.c_str(), n + 1); para_grabar(fichero); Common::OutSaveFile *tsav; if (!(tsav = _saveFileMan->openForSaving(fileEpa))) { error("Can't open %s file", fileEpa); } for (n = 0; n < NUM_SAVES; n++) { tsav->writeString(nombres[n]); tsav->writeString("\n"); } 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) { snprintf(fichero, 50, "%s%02d", _targetName.c_str(), n + 1); } num_sav = n; } } if (mouseX > 117 && mouseY > 15 && mouseX < 295 && mouseY < 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 (mouseX > 125 && mouseY > 123 && mouseX < 199 && mouseY < 149 && hay_seleccion == 1) { if (!para_cargar(fichero)) return false; break; } else if (mouseX > 208 && mouseY > 123 && mouseX < 282 && mouseY < 149 && hay_seleccion == 1) { para_grabar(fichero); Common::OutSaveFile *tsav; if (!(tsav = _saveFileMan->openForSaving(fileEpa))) { error("Can't open %s file", fileEpa); } for (n = 0; n < NUM_SAVES; n++) { tsav->writeString(nombres[n]); tsav->writeString("\n"); } tsav->finalize(); delete tsav; } else if (mouseX > 168 && mouseY > 154 && mouseX < 242 && mouseY < 180) break; else if (hay_seleccion == 0) { print_abc("elige una partida", 117, 15); } updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); delay(400); } y = 26; delay(10); } clearRoom(); char rm[20]; sprintf(rm, "%i.alg", roomNumber); loadPic(rm); decompressPic(dir_dibujo1, HALF_PAL); hay_seleccion = 0; return true; } struct charInfo { }; void DrasculaEngine::print_abc(const char *said, int x_pantalla, int y_pantalla) { int pos_texto[8]; int y_de_letra = 0, x_de_letra = 0, h, length; length = strlen(said); for (h = 0; h < length; h++) { y_de_letra = (_lang == kSpanish) ? Y_ABC_ESP : Y_ABC; int c = toupper(said[h]); if (c == '\245') x_de_letra = X_GN; else if (c == '\244') x_de_letra = X_GN; else if (c >= 'A' && c <= 'N') x_de_letra = X_A + (c - 'A') * 9; else if (c >= 'O' && c <= 'Z') x_de_letra = X_O + (c - 'O') * 9; else if (c == 0xa7 || c == ' ') x_de_letra = SPACE; else { y_de_letra = (_lang == kSpanish) ? Y_SIGNOS_ESP : Y_SIGNOS; if (c == '.') x_de_letra = X_DOT; else if (c == ',') x_de_letra = X_COMA; else if (c == '-') x_de_letra = X_HYPHEN; else if (c == '?') x_de_letra = X_CIERRA_INTERROGACION; else if (c == '\250') x_de_letra = X_ABRE_INTERROGACION; // else if (c == '\'') // FIXME // x_de_letra = SPACE; // space for now else if (c == '"') x_de_letra = X_COMILLAS; else if (c == '!') x_de_letra = X_CIERRA_EXCLAMACION; else if (c == '\255') x_de_letra = X_ABRE_EXCLAMACION; else if (c == ';') x_de_letra = X_PUNTO_Y_COMA; else if (c == '>') x_de_letra = X_GREATER_THAN; else if (c == '<') x_de_letra = X_LESSER_THAN; else if (c == '$') x_de_letra = X_DOLAR; else if (c == '%') x_de_letra = X_PERCENT; 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_BRACKET_OPEN; else if (c == ')') x_de_letra = X_BRACKET_CLOSE; else if (c == '*') x_de_letra = X_ASTERISCO; else if (c == '+') x_de_letra = X_PLUS; else if (c >= '1' && c <= '9') x_de_letra = X_N1 + (c - '1') * 9; // "0" is mapped after "9" in the game's font // (it's mapped before "1" normally) else if (c == '0') x_de_letra = X_N0; else y_de_letra=Y_ACENTOS; if (c == '\240') x_de_letra=X_A; else if (c =='\202') x_de_letra = X_A + 1 * 9; // B else if (c =='\241') x_de_letra = X_A + 2 * 9; // C else if (c =='\242') x_de_letra = X_A + 3 * 9; // D else if (c =='\243') x_de_letra = X_A + 4 * 9; // E else if (c =='\205') x_de_letra = X_A + 5 * 9; // F else if (c =='\212') x_de_letra = X_A + 6 * 9; // G else if (c =='\215') x_de_letra = X_A + 7 * 9; // H else if (c =='\225') x_de_letra = X_A + 8 * 9; // I else if (c =='\227') x_de_letra = X_A + 9 * 9; // J else if (c =='\203') x_de_letra = X_A + 10 * 9; // K else if (c =='\210') x_de_letra = X_A + 11 * 9; // L else if (c =='\214') x_de_letra = X_A + 12 * 9; // M else if (c =='\223') x_de_letra = X_A + 13 * 9; // N else if (c =='\226') x_de_letra = X_GN; else if (c =='\047') x_de_letra = X_O; else if (c =='\200') x_de_letra = X_O + 1 * 9; // P else if (c =='\207') x_de_letra = X_O + 1 * 9; // P else if (c =='\265') x_de_letra = X_A; else if (c =='\220') x_de_letra = X_A + 1 * 9; // B else if (c =='\326') x_de_letra = X_A + 2 * 9; // C else if (c =='\340') x_de_letra = X_A + 3 * 9; // D else if (c =='\351') x_de_letra = X_A + 4 * 9; // E else if (c =='\267') x_de_letra = X_A + 5 * 9; // F else if (c =='\324') x_de_letra = X_A + 6 * 9; // G else if (c =='\336') x_de_letra = X_A + 7 * 9; // H else if (c =='\343') x_de_letra = X_A + 8 * 9; // I else if (c =='\353') x_de_letra = X_A + 9 * 9; // J else if (c =='\266') x_de_letra = X_A + 10 * 9; // K else if (c =='\322') x_de_letra = X_A + 11 * 9; // L else if (c =='\327') x_de_letra = X_A + 12 * 9; // M else if (c =='\342') x_de_letra = X_A + 13 * 9; // N else if (c =='\352') 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] = CHAR_WIDTH; pos_texto[5] = CHAR_HEIGHT; copyRectClip(pos_texto, dir_texto, dir_zona_pantalla); x_pantalla = x_pantalla + CHAR_WIDTH; if (x_pantalla > 317) { x_pantalla = 0; y_pantalla = y_pantalla + CHAR_HEIGHT + 2; } } } void DrasculaEngine::delay(int ms) { _system->delayMillis(ms * 2); // originaly was 1 } bool DrasculaEngine::confirma_salir() { byte key; color_abc(RED); updateRoom(); centra_texto(_textsys[_lang][1], 160, 87); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); delay(100); for (;;) { key = getscan(); if (key != 0) break; } if (key == Common::KEYCODE_ESCAPE) { stopMusic(); return false; } return true; } void DrasculaEngine::salva_pantallas() { int xr, yr; byte *copia, *ghost; Common::File file; float coeff = 0, coeff2 = 0; int count = 0; int count2 = 0; int tempLine[320]; int tempRow[200]; // FIXME: that part (*.ghost) need RE from efecto.lib file for some gfx special effect // for now ignore clearRoom(); loadPic("sv.alg"); decompressPic(dir_dibujo1, HALF_PAL); // inicio_ghost(); copia = (byte *)malloc(64000); ghost = (byte *)malloc(65536); // carga_ghost(); file.open("ghost.drv"); if (!file.isOpen()) error("Cannot open file ghost.drv"); file.read(ghost, 65536); file.close(); updateEvents(); xr = mouseX; yr = mouseY; for (;;) { // efecto(dir_dibujo1); memcpy(copia, dir_dibujo1, 64000); coeff += 0.1f; coeff2 = coeff; if (++count > 319) count = 0; for (int i = 0; i < 320; i++) { tempLine[i] = (int)(sin(coeff2) * 16); coeff2 += 0.02f; if (tempLine[i] < 0) tempLine[i] += 200; if (tempLine[i] > 199) tempLine[i] -= 200; } coeff2 = coeff; for (int i = 0; i < 200; i++) { tempRow[i] = (int)(sin(coeff2) * 16); coeff2 += 0.02f; if (tempRow[i] < 0) tempRow[i] += 320; if (tempRow[i] > 319) tempRow[i] -= 320; } if (++count2 > 199) count2 = 0; int x1_, y1_, off1, off2; for (int i = 0; i < 200; i++) { for (int j = 0; j < 320; j++) { x1_ = j + tempRow[i]; if (x1_ < 0) x1_ += 320; if (x1_ > 319) x1_ -= 319; y1_ = i + count2; if (y1_ < 0) y1_ += 200; if (y1_ > 199) y1_ -= 200; off1 = 320 * y1_ + x1_; x1_ = j + count; if (x1_ < 0) x1_ += 320; if (x1_ > 319) x1_ -= 320; y1_ = i + tempLine[j]; if (y1_ < 0) y1_ += 200; if (y1_ > 199) y1_ -= 200; off2 = 320 * y1_ + x1_; VGA[320 * i + j] = ghost[dir_dibujo1[off2] + (copia[off1] << 8)]; } } _system->copyRectToScreen((const byte *)VGA, 320, 0, 0, 320, 200); _system->updateScreen(); _system->delayMillis(20); // end of efecto() updateEvents(); if (button_dch == 1 || button_izq == 1) break; if (mouseX != xr) break; if (mouseY != yr) break; } // fin_ghost(); free(copia); free(ghost); char rm[20]; sprintf(rm, "%i.alg", roomNumber); loadPic(rm); decompressPic(dir_dibujo1, HALF_PAL); } 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(gamePalette[color][componente] - 63 + fundido); } } pause(VelocidadDeFundido); setPalette((byte *)&palFundido); } } void DrasculaEngine::color_abc(int cl) { _color = cl; if (cl == 0) { gamePalette[254][0] = 0; gamePalette[254][1] = 0; gamePalette[254][2] = 0; } else if (cl == 1) { gamePalette[254][0] = 0x10; gamePalette[254][1] = 0x3E; gamePalette[254][2] = 0x28; } else if (cl == 3) { gamePalette[254][0] = 0x16; gamePalette[254][1] = 0x3F; gamePalette[254][2] = 0x16; } else if (cl == 4) { gamePalette[254][0] = 0x9; gamePalette[254][1] = 0x3F; gamePalette[254][2] = 0x12; } else if (cl == 5) { gamePalette[254][0] = 0x3F; gamePalette[254][1] = 0x3F; gamePalette[254][2] = 0x15; } else if (cl == 7) { gamePalette[254][0] = 0x38; gamePalette[254][1] = 0; gamePalette[254][2] = 0; } else if (cl == 8) { gamePalette[254][0] = 0x3F; gamePalette[254][1] = 0x27; gamePalette[254][2] = 0x0B; } else if (cl == 9) { gamePalette[254][0] = 0x2A; gamePalette[254][1] = 0; gamePalette[254][2] = 0x2A; } else if (cl == 10) { gamePalette[254][0] = 0x30; gamePalette[254][1] = 0x30; gamePalette[254][2] = 0x30; } else if (cl == 11) { gamePalette[254][0] = 98; gamePalette[254][1] = 91; gamePalette[254][2] = 100; }; setPalette((byte *)&gamePalette); } char DrasculaEngine::LimitaVGA(char valor) { return (valor & 0x3F) * (valor > 0); } void DrasculaEngine::centra_texto(const char *mensaje, int x_texto, int y_texto) { char bb[200], m2[200], m1[200], mb[10][50]; char m3[200]; int h, fil, x_texto3, x_texto2, x_texto1, conta_f = 0, ya = 0; strcpy(m1, " "); strcpy(m2, " "); strcpy(m3, " "); strcpy(bb, " "); for (h = 0; h < 10; h++) strcpy(mb[h], " "); if (x_texto > 160) ya = 1; strcpy(m1, mensaje); x_texto = CLIP(x_texto, 60, 255); x_texto1 = x_texto; if (ya == 1) x_texto1 = 315 - x_texto; x_texto2 = (strlen(m1) / 2) * CHAR_WIDTH; 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) * CHAR_WIDTH; 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) * CHAR_HEIGHT)); for (h = 0; h < conta_f + 1; h++) { x_texto3 = strlen(mb[h]) / 2; print_abc(mb[h], ((x_texto) - x_texto3 * CHAR_WIDTH) - 1, fil); fil = fil + CHAR_HEIGHT + 2; } } void DrasculaEngine::playSound(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); } bool DrasculaEngine::anima(const char *animation, int FPS) { Common::File FileIn; unsigned j; int NFrames = 1; int cnt = 2; AuxBuffLast = (byte *)malloc(65000); AuxBuffDes = (byte *)malloc(65000); FileIn.open(animation); if (!FileIn.isOpen()) { error("No encuentro un fichero de animation."); } FileIn.read(&NFrames, sizeof(NFrames)); FileIn.read(&Leng, sizeof(Leng)); AuxBuffOrg = (byte *)malloc(Leng); FileIn.read(AuxBuffOrg, Leng); FileIn.read(cPal, 768); loadPCX(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); loadPCX(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(); return ((term_int == 1) || (getscan() == Common::KEYCODE_ESCAPE)); } void DrasculaEngine::animastopSound_corte() { if (hay_sb == 1) { ctvd_stop(); delete sku; sku = NULL; 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(gamePalette[color][componente] - 63 + fundido); } } pause(VelocidadDeFundido); setPalette((byte *)&palFundido); } } void DrasculaEngine::pause(int cuanto) { _system->delayMillis(cuanto * 30); // was originaly 2 } void DrasculaEngine::pon_igor() { int pos_igor[6]; pos_igor[0] = 1; if (num_ejec == 4) { pos_igor[1] = 138; } else { if (sentido_igor == 3) pos_igor[1] = 138; else if (sentido_igor == 1) pos_igor[1] = 76; } pos_igor[2] = x_igor; pos_igor[3] = y_igor; pos_igor[4] = 54; pos_igor[5] = 61; copyRectClip(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 && num_ejec == 1) 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; if (num_ejec == 6) copyRectClip(pos_dr, dir_dibujo2, dir_zona_pantalla); else copyRectClip(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; copyRectClip(pos_bj, dir_dibujo3, dir_zona_pantalla); } void DrasculaEngine::hipo(int counter) { int y = 0, sentido = 0; if (num_ejec == 3) y = -1; comienza: counter--; updateRoom(); if (num_ejec == 3) updateScreen(0, 0, 0, y, 320, 200, dir_zona_pantalla); else updateScreen(0, 1, 0, y, 320, 198, dir_zona_pantalla); if (sentido == 0) y++; else y--; if (num_ejec == 3) { if (y == 1) sentido = 1; if (y == -1) sentido = 0; } else { if (y == 2) sentido = 1; if (y == 0) sentido = 0; } if (counter > 0) goto comienza; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); } void DrasculaEngine::stopSound() { delay(1); if (hay_sb == 1) { while (LookForFree() != 0); delete sku; sku = NULL; } } void DrasculaEngine::playMusic(int p) { AudioCD.stop(); AudioCD.play(p - 1, 1, 0, 0); } void DrasculaEngine::stopMusic() { AudioCD.stop(); } int DrasculaEngine::musicStatus() { return AudioCD.isPlaying(); } void DrasculaEngine::updateRoom() { copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); updateRefresh_pre(); if (num_ejec == 3) { if (flags[0] == 0) pon_hare(); else copyRect(113, 54, hare_x - 20, hare_y - 1, 77, 89, dir_dibujo3, dir_zona_pantalla); } else { pon_hare(); } updateRefresh(); } bool DrasculaEngine::carga_partida(const char *nom_game) { int l, n_ejec2; Common::InSaveFile *sav; if (!(sav = _saveFileMan->openForLoading(nom_game))) { error("missing savegame file"); } n_ejec2 = sav->readSint32LE(); if (n_ejec2 != num_ejec) { strcpy(nom_partida, nom_game); num_ejec = n_ejec2 - 1; hay_que_load = 1; return false; } sav->read(currentData, 20); hare_x = sav->readSint32LE(); hare_y = sav->readSint32LE(); sentido_hare = sav->readSint32LE(); for (l = 1; l < 43; l++) { inventoryObjects[l] = sav->readSint32LE(); } for (l = 0; l < NUM_FLAGS; l++) { flags[l] = sav->readSint32LE(); } lleva_objeto = sav->readSint32LE(); pickedObject = sav->readSint32LE(); hay_que_load = 0; return true; } void DrasculaEngine::updateDoor(int doorNum) { if (num_ejec == 1 || num_ejec == 3 || num_ejec == 5 || num_ejec == 6) return; else if (num_ejec == 2) { if (num_obj[doorNum] == 138) isDoor[doorNum] = flags[0]; else if (num_obj[doorNum] == 136) isDoor[doorNum] = flags[8]; else if (num_obj[doorNum] == 156) isDoor[doorNum] = flags[16]; else if (num_obj[doorNum] == 163) isDoor[doorNum] = flags[17]; else if (num_obj[doorNum] == 177) isDoor[doorNum] = flags[15]; else if (num_obj[doorNum] == 175) isDoor[doorNum] = flags[40]; else if (num_obj[doorNum] == 173) isDoor[doorNum] = flags[36]; } else if (num_ejec == 4) { if (num_obj[doorNum] == 101 && flags[0] == 0) isDoor[doorNum] = 0; else if (num_obj[doorNum] == 101 && flags[0] == 1 && flags[28] == 1) isDoor[doorNum] = 1; else if (num_obj[doorNum] == 103) isDoor[doorNum] = flags[0]; else if (num_obj[doorNum] == 104) isDoor[doorNum] = flags[1]; else if (num_obj[doorNum] == 105) isDoor[doorNum] = flags[1]; else if (num_obj[doorNum] == 106) isDoor[doorNum] = flags[2]; else if (num_obj[doorNum] == 107) isDoor[doorNum] = flags[2]; else if (num_obj[doorNum] == 110) isDoor[doorNum] = flags[6]; else if (num_obj[doorNum] == 114) isDoor[doorNum] = flags[4]; else if (num_obj[doorNum] == 115) isDoor[doorNum] = flags[4]; else if (num_obj[doorNum] == 116 && flags[5] == 0) isDoor[doorNum] = 0; else if (num_obj[doorNum] == 116 && flags[5] == 1 && flags[23] == 1) isDoor[doorNum] = 1; else if (num_obj[doorNum] == 117) isDoor[doorNum] = flags[5]; else if (num_obj[doorNum] == 120) isDoor[doorNum] = flags[8]; else if (num_obj[doorNum] == 122) isDoor[doorNum] = flags[7]; } } void DrasculaEngine::color_hare() { int color, componente; for (color = 235; color < 253; color++) { for (componente = 0; componente < 3; componente++) { gamePalette[color][componente] = palHare[color][componente]; } } updatePalette(); } 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++) gamePalette[color][componente] = LimitaVGA(gamePalette[color][componente] - 8 + fundido); } } updatePalette(); } void DrasculaEngine::paleta_hare_claro() { int color, componente; for (color = 235; color < 253; color++) { for (componente = 0; componente < 3; componente++) palHareClaro[color][componente] = gamePalette[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] = gamePalette[color][componente]; } } void DrasculaEngine::hare_claro() { int color, componente; for (color = 235; color < 253; color++) { for (componente = 0; componente < 3; componente++) gamePalette[color][componente] = palHareClaro[color][componente]; } updatePalette(); } void DrasculaEngine::empieza_andar() { hare_se_mueve = 1; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; if (num_ejec == 2) { if ((sitio_x < hare_x) && (sitio_y <= (hare_y + alto_hare))) quadrant_1(); else if ((sitio_x < hare_x) && (sitio_y > (hare_y + alto_hare))) quadrant_3(); else if ((sitio_x > hare_x + ancho_hare) && (sitio_y <= (hare_y + alto_hare))) quadrant_2(); else if ((sitio_x > hare_x + ancho_hare) && (sitio_y > (hare_y + alto_hare))) quadrant_4(); else if (sitio_y < hare_y + alto_hare) anda_parriba(); else if (sitio_y > hare_y + alto_hare) anda_pabajo(); } else { if ((sitio_x < hare_x + ancho_hare / 2 ) && (sitio_y <= (hare_y + alto_hare))) quadrant_1(); else if ((sitio_x < hare_x + ancho_hare / 2) && (sitio_y > (hare_y + alto_hare))) quadrant_3(); else if ((sitio_x > hare_x + ancho_hare / 2) && (sitio_y <= (hare_y + alto_hare))) quadrant_2(); else if ((sitio_x > hare_x + ancho_hare / 2) && (sitio_y > (hare_y + alto_hare))) quadrant_4(); else hare_se_mueve = 0; } conta_vez = vez(); } void DrasculaEngine::pon_hare() { int pos_hare[6]; int r; if (hare_se_mueve == 1 && step_x == PASO_HARE_X) { for (r = 0; r < step_x; r++) { if (num_ejec != 2) { if (sentido_hare == 0 && sitio_x - r == hare_x + ancho_hare / 2) { hare_se_mueve = 0; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; } if (sentido_hare == 1 && sitio_x + r == hare_x + ancho_hare / 2) { hare_se_mueve = 0; step_x = PASO_HARE_X; step_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; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; } if (sentido_hare == 1 && sitio_x + r == hare_x + ancho_hare) { hare_se_mueve = 0; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; hare_x = sitio_x - ancho_hare + 4; hare_y = sitio_y - alto_hare; } } } } if (hare_se_mueve == 1 && step_y == PASO_HARE_Y) { for (r = 0; r < step_y; r++) { if (sentido_hare == 2 && sitio_y - r == hare_y + alto_hare) { hare_se_mueve = 0; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; } if (sentido_hare == 3 && sitio_y + r == hare_y + alto_hare) { hare_se_mueve = 0; step_x = PASO_HARE_X; step_y = PASO_HARE_Y; } } } if (num_ejec == 1 || num_ejec == 4 || num_ejec == 5 || num_ejec == 6) { if (hare_se_ve == 0) goto no_vuelco; } if (hare_se_mueve == 0) { pos_hare[0] = 0; pos_hare[1] = DIF_MASK_HARE; pos_hare[2] = hare_x; pos_hare[3] = hare_y; if (num_ejec == 2) { pos_hare[4] = ancho_hare; pos_hare[5] = alto_hare; } else { pos_hare[4] = CHARACTER_WIDTH; pos_hare[5] = CHARACTER_HEIGHT; } if (sentido_hare == 0) { pos_hare[1] = 0; if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_dch, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla); } else if (sentido_hare == 1) { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_dch, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla); } else if (sentido_hare == 2) { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_fondo, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_fondo, dir_zona_pantalla); } else { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_frente, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla); } } else if (hare_se_mueve == 1) { pos_hare[0] = frame_x[num_frame]; pos_hare[1] = frame_y + DIF_MASK_HARE; pos_hare[2] = hare_x; pos_hare[3] = hare_y; if (num_ejec == 2) { pos_hare[4] = ancho_hare; pos_hare[5] = alto_hare; } else { pos_hare[4] = CHARACTER_WIDTH; pos_hare[5] = CHARACTER_HEIGHT; } if (sentido_hare == 0) { pos_hare[1] = 0; if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_dch, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla); } else if (sentido_hare == 1) { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_dch, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_dch, dir_zona_pantalla); } else if (sentido_hare == 2) { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_fondo, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_fondo, dir_zona_pantalla); } else { if (num_ejec == 2) copyRectClip(pos_hare, dir_hare_frente, dir_zona_pantalla); else reduce_hare_chico(pos_hare[0], pos_hare[1], pos_hare[2], pos_hare[3], pos_hare[4], pos_hare[5], factor_red[hare_y + alto_hare], dir_hare_frente, dir_zona_pantalla); } no_vuelco: aumenta_num_frame(); } } void DrasculaEngine::menu_sin_volcar() { int h, n, x; char texto_icono[13]; x = sobre_que_objeto(); strcpy(texto_icono, iconName[x]); for (n = 1; n < 43; n++) { h = inventoryObjects[n]; if (h != 0) { if (num_ejec == 6) copyBackground(x_pol[n], y_pol[n], itemLocations[n].x, itemLocations[n].y, OBJWIDTH, OBJHEIGHT, dir_mesa, dir_zona_pantalla); else copyBackground(x_pol[n], y_pol[n], itemLocations[n].x, itemLocations[n].y, OBJWIDTH, OBJHEIGHT, dir_hare_frente, dir_zona_pantalla); } copyRect(x1d_menu[h], y1d_menu[h], itemLocations[n].x, itemLocations[n].y, OBJWIDTH, OBJHEIGHT, dir_hare_fondo, dir_zona_pantalla); } if (x < 7) print_abc(texto_icono, itemLocations[x].x - 2, itemLocations[x].y - 7); } void DrasculaEngine::barra_menu() { int n, sobre_verbo = 1; for (n = 0; n < 7; n++) { if (mouseX > x_barra[n] && mouseX < x_barra[n + 1]) sobre_verbo = 0; copyRect(OBJWIDTH * n, OBJHEIGHT * sobre_verbo, x_barra[n], 2, OBJWIDTH, OBJHEIGHT, dir_hare_fondo, dir_zona_pantalla); sobre_verbo = 1; } } void DrasculaEngine::removeObject() { int h = 0, n; updateRoom(); for (n = 1; n < 43; n++){ if (sobre_que_objeto() == n) { h = inventoryObjects[n]; inventoryObjects[n] = 0; if (h != 0) lleva_objeto = 1; } } updateEvents(); if (lleva_objeto == 1) chooseObject(h); } bool DrasculaEngine::sal_de_la_habitacion(int l) { char salgo[13]; if (num_ejec == 1) { if (num_obj[l] == 105 && flags[0] == 0) talk(_text[_lang][442], "442.als"); else { updateDoor(l); if (isDoor[l] != 0) { lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); sentido_hare = sentidobj[l]; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hare_se_mueve = 0; sentido_hare = sentido_alkeva[l]; obj_saliendo = alapuertakeva[l]; rompo = 1; previousMusic = roomMusic; if (num_obj[l] == 105) { animation_2_1(); return true; } clearRoom(); strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x = -1; carga_escoba(salgo); } } } else if (num_ejec == 2) { updateDoor(l); if (isDoor[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; previousMusic = roomMusic; if (num_obj[l] == 136) animation_2_2(); if (num_obj[l] == 124) animation_3_2(); if (num_obj[l] == 173) { animation_35_2(); return true; } if (num_obj[l] == 146 && flags[39] == 1) { flags[5] = 1; flags[11] = 1; } if (num_obj[l] == 176 && flags[29] == 1) { flags[29] = 0; resta_objeto(23); suma_objeto(11); } clearRoom(); delete ald; ald = NULL; strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x =- 1; carga_escoba(salgo); } } else if (num_ejec == 3) { updateDoor(l); if (isDoor[l] != 0 && visible[l] == 1) { lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); sentido_hare = sentidobj[l]; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hare_se_mueve = 0; sentido_hare = sentido_alkeva[l]; obj_saliendo = alapuertakeva[l]; rompo = 1; previousMusic = roomMusic; clearRoom(); strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x =- 1; carga_escoba(salgo); } } else if (num_ejec == 4) { updateDoor(l); if (isDoor[l] != 0) { lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); sentido_hare = sentidobj[l]; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hare_se_mueve = 0; sentido_hare = sentido_alkeva[l]; obj_saliendo = alapuertakeva[l]; rompo = 1; previousMusic = roomMusic; if (num_obj[l] == 108) lleva_al_hare(171, 78); clearRoom(); strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x = -1; carga_escoba(salgo); } } else if (num_ejec == 5) { updateDoor(l); if (isDoor[l] != 0 && visible[l] == 1) { lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); sentido_hare = sentidobj[l]; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hare_se_mueve = 0; sentido_hare = sentido_alkeva[l]; obj_saliendo = alapuertakeva[l]; rompo = 1; previousMusic = roomMusic; hare_se_ve = 1; clearRoom(); strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x = -1; carga_escoba(salgo); } } else if (num_ejec == 6) { updateDoor(l); if (isDoor[l] != 0) { lleva_al_hare(sitiobj_x[l], sitiobj_y[l]); sentido_hare = sentidobj[l]; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hare_se_mueve = 0; sentido_hare = sentido_alkeva[l]; obj_saliendo = alapuertakeva[l]; rompo = 1; previousMusic = roomMusic; clearRoom(); strcpy(salgo, alapantallakeva[l]); strcat(salgo, ".ald"); hare_x = -1; carga_escoba(salgo); if (obj_saliendo == 105) animation_19_6(); } } return false; } bool DrasculaEngine::coge_objeto() { int h, n; h = pickedObject; comprueba_flags = 1; updateRoom(); menu_sin_volcar(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); if (pickedObject < 7) goto usando_verbos; for (n = 1; n < 43; n++) { if (sobre_que_objeto() == n && inventoryObjects[n] == 0) { inventoryObjects[n] = h; lleva_objeto = 0; comprueba_flags = 0; } } usando_verbos: if (comprueba_flags == 1) { if (comprueba_banderas_menu()) return true; } updateEvents(); if (lleva_objeto == 0) withoutVerb(); return false; } bool DrasculaEngine::banderas(int fl) { hare_se_mueve = 0; updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); hay_answer = 1; if (menu_scr == 1) { if (num_ejec == 1) { if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); } else if (num_ejec == 2) { if ((pickedObject == kVerbLook && fl == 22 && flags[23] == 0) || (pickedObject == kVerbOpen && fl == 22 && flags[23] == 0)) { talk(_text[_lang][164], "164.als"); flags[23] = 1; withoutVerb(); suma_objeto(7); suma_objeto(18); } else if (pickedObject == kVerbLook && fl == 22 && flags[23] == 1) talk(_text[_lang][307], "307.als"); else if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); else if (pickedObject == kVerbLook && fl == 7) talk(_text[_lang][143], "143.als"); else if (pickedObject == kVerbTalk && fl == 7) talk(_text[_lang][144], "144.als"); else if (pickedObject == kVerbLook && fl == 8) talk(_text[_lang][145], "145.als"); else if (pickedObject == kVerbTalk && fl == 8) talk(_text[_lang][146], "146.als"); else if (pickedObject == kVerbLook && fl == 9) talk(_text[_lang][147], "147.als"); else if (pickedObject == kVerbTalk && fl == 9) talk(_text[_lang][148], "148.als"); else if (pickedObject == kVerbLook && fl == 10) talk(_text[_lang][151], "151.als"); else if (pickedObject == kVerbLook && fl == 11) talk(_text[_lang][152], "152.als"); else if (pickedObject == kVerbTalk && fl == 11) talk(_text[_lang][153], "153.als"); else if (pickedObject == kVerbLook && fl == 12) talk(_text[_lang][154], "154.als"); else if (pickedObject == kVerbLook && fl == 13) talk(_text[_lang][155], "155.als"); else if (pickedObject == kVerbLook && fl == 14) talk(_text[_lang][157], "157.als"); else if (pickedObject == kVerbLook && fl == 15) talk(_text[_lang][58], "58.als"); else if (pickedObject == kVerbLook && fl == 16) talk(_text[_lang][158], "158.als"); else if (pickedObject == kVerbLook && fl == 17) talk(_text[_lang][159], "159.als"); else if (pickedObject == kVerbLook && fl == 18) talk(_text[_lang][160], "160.als"); else if (pickedObject == kVerbLook && fl == 19) talk(_text[_lang][161], "161.als"); else if (pickedObject == kVerbLook && fl == 20) talk(_text[_lang][162], "162.als"); else if (pickedObject == kVerbLook && fl == 23) talk(_text[_lang][152], "152.als"); else hay_answer = 0; } else if (num_ejec == 3) { if (pickedObject == kVerbLook && fl == 22) talk(_text[_lang][307], "307.als"); else if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); else if (pickedObject == kVerbLook && fl == 7) talk(_text[_lang][143], "143.als"); else if (pickedObject == kVerbTalk && fl == 7) talk(_text[_lang][144], "144.als"); else if (pickedObject == kVerbLook && fl == 8) talk(_text[_lang][145], "145.als"); else if (pickedObject == kVerbTalk && fl == 8) talk(_text[_lang][146], "146.als"); else if (pickedObject == kVerbLook && fl == 9) talk(_text[_lang][147], "147.als"); else if (pickedObject == kVerbTalk && fl == 9) talk(_text[_lang][148], "148.als"); else if (pickedObject == kVerbLook && fl == 10) talk(_text[_lang][151], "151.als"); else if (pickedObject == kVerbLook && fl == 11) talk(_text[_lang][152], "152.als"); else if (pickedObject == kVerbTalk && fl == 11) talk(_text[_lang][153], "153.als"); else if (pickedObject == kVerbLook && fl == 12) talk(_text[_lang][154], "154.als"); else if (pickedObject == kVerbLook && fl == 13) talk(_text[_lang][155], "155.als"); else if (pickedObject == kVerbLook && fl == 14) talk(_text[_lang][157], "157.als"); else if (pickedObject == kVerbLook && fl == 15) talk(_text[_lang][58], "58.als"); else if (pickedObject == kVerbLook && fl == 16) talk(_text[_lang][158], "158.als"); else if (pickedObject == kVerbLook && fl == 17) talk(_text[_lang][159], "159.als"); else if (pickedObject == kVerbLook && fl == 18) talk(_text[_lang][160], "160.als"); else if (pickedObject == kVerbLook && fl == 19) talk(_text[_lang][161], "161.als"); else if (pickedObject == kVerbLook && fl == 20) talk(_text[_lang][162], "162.als"); else if (pickedObject == kVerbLook && fl == 23) talk(_text[_lang][152], "152.als"); else hay_answer = 0; } else if (num_ejec == 4) { if ((pickedObject == 18 && fl == 19) || (pickedObject == 19 && fl == 18)) { withoutVerb(); chooseObject(21); resta_objeto(18); resta_objeto(19); } else if ((pickedObject == 14 && fl == 19) || (pickedObject == 19 && fl == 14)) talk(_text[_lang][484], "484.als"); else if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); else if (pickedObject == kVerbLook && fl == 7) talk(_text[_lang][478], "478.als"); else if (pickedObject == kVerbLook && fl == 8) talk(_text[_lang][480], "480.als"); else if (pickedObject == kVerbLook && fl == 9) { talk(_text[_lang][482], "482.als"); talk(_text[_lang][483], "483.als"); } else if (pickedObject == kVerbLook && fl == 10) talk(_text[_lang][485], "485.als"); else if (pickedObject == kVerbLook && fl == 11) talk(_text[_lang][488], "488.als"); else if (pickedObject == kVerbLook && fl == 12) talk(_text[_lang][486], "486.als"); else if (pickedObject == kVerbLook && fl == 13) talk(_text[_lang][490], "490.als"); else if (pickedObject == kVerbLook && fl == 14) talk(_text[_lang][122], "122.als"); else if (pickedObject == kVerbLook && fl == 15) talk(_text[_lang][117], "117.als"); else if (pickedObject == kVerbTalk && fl == 15) talk(_text[_lang][118], "118.als"); else if (pickedObject == kVerbOpen && fl == 15) talk(_text[_lang][119], "119.als"); else if (pickedObject == kVerbLook && fl == 16) talk(_text[_lang][491], "491.als"); else if (pickedObject == kVerbLook && fl == 17) talk(_text[_lang][478], "478.als"); else if (pickedObject == kVerbLook && fl == 18) talk(_text[_lang][493], "493.als"); else if (pickedObject == kVerbLook && fl == 19) { talk(_text[_lang][494], "494.als"); talk(_text[_lang][495], "495.als"); } else if (pickedObject == kVerbLook && fl == 20) talk(_text[_lang][162], "162.als"); else if (pickedObject == kVerbLook && fl == 21) talk(_text[_lang][496], "496.als"); else if (pickedObject == kVerbLook && fl == 22) talk(_text[_lang][161], "161.als"); else hay_answer = 0; } else if (num_ejec == 5) { if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); else if (pickedObject == kVerbLook && fl == 7) talk(_text[_lang][478],"478.als"); else if (pickedObject == kVerbLook && fl == 8) talk(_text[_lang][120], "120.als"); else if (pickedObject == kVerbLook && fl == 9) { talk(_text[_lang][482], "482.als"); talk(_text[_lang][483], "483.als"); } else if (pickedObject == kVerbLook && fl == 11) talk(_text[_lang][488], "488.als"); else if (pickedObject == kVerbLook && fl == 13) talk(_text[_lang][490], "490.als"); else if (pickedObject == kVerbLook && fl == 14) talk(_text[_lang][121], "121.als"); else if (pickedObject == kVerbLook && fl == 15) talk(_text[_lang][117], "117.als"); else if (pickedObject == kVerbTalk && fl == 15) talk(_text[_lang][118], "118.als"); else if (pickedObject == kVerbOpen && fl == 15) talk(_text[_lang][119], "119.als"); else if (pickedObject == kVerbLook && fl == 17) talk(_text[_lang][478], "478.als"); else if (pickedObject == kVerbLook && fl == 20) talk(_text[_lang][162], "162.als"); else hay_answer = 0; } else if (num_ejec == 6) { if (pickedObject == kVerbLook && fl == 28) talk(_text[_lang][328], "328.als"); else if (pickedObject == kVerbLook && fl == 9) { talk(_text[_lang][482], "482.als"); talk(_text[_lang][483], "483.als"); } else if (pickedObject == kVerbLook && fl == 20) talk(_text[_lang][123], "123.als"); else if (pickedObject == kVerbLook && fl == 21) talk(_text[_lang][441], "441.als"); else hay_answer = 0; } } else { if (num_ejec == 1) { if (pickedObject == kVerbLook && fl == 50) talk(_text[_lang][308], "308.als"); else if (pickedObject == kVerbOpen && fl == 50) talk(_text[_lang][310], "310.als"); else if (pickedObject == kVerbClose && fl == 50) talk(_text[_lang][311], "311.als"); else if (pickedObject == kVerbMove && fl == 50) talk(_text[_lang][312], "312.als"); else if (pickedObject == kVerbPick && fl == 50) talk(_text[_lang][313], "313.als"); else if (pickedObject == kVerbTalk && fl == 50) talk(_text[_lang][314], "314.als"); else if (roomNumber == 62) room_62(fl); else if (roomNumber == 63) room_63(fl); else hay_answer = 0; } else if (num_ejec == 2) { if (pickedObject == kVerbLook && fl == 50) talk(_text[_lang][308], "308.als"); else if (pickedObject == kVerbOpen && fl == 50) talk(_text[_lang][310], "310.als"); else if (pickedObject == kVerbClose && fl == 50) talk(_text[_lang][311], "311.als"); else if (pickedObject == kVerbMove && fl == 50) talk(_text[_lang][312], "312.als"); else if (pickedObject == kVerbPick && fl == 50) talk(_text[_lang][313], "313.als"); else if (pickedObject == kVerbTalk && fl == 50) talk(_text[_lang][314], "314.als"); // Note: the original check was strcmp(num_room, "18.alg") else if (pickedObject == 11 && fl == 50 && flags[22] == 0 && roomNumber != 18) talk(_text[_lang][315], "315.als"); else if (pickedObject == 13 && fl == 50) talk(_text[_lang][156], "156.als"); else if (pickedObject == 20 && fl == 50) talk(_text[_lang][163], "163.als"); else if (roomNumber == 1) room_1(fl); else if (roomNumber == 3) room_3(fl); else if (roomNumber == 4) room_4(fl); else if (roomNumber == 5) room_5(fl); else if (roomNumber == 6) room_6(fl); else if (roomNumber == 7) room_7(fl); else if (roomNumber == 8) room_8(fl); else if (roomNumber == 9) room_9(fl); else if (roomNumber == 12) room_12(fl); else if (roomNumber == 14) room_14(fl); else if (roomNumber == 15) room_15(fl); else if (roomNumber == 16) room_16(fl); else if (roomNumber == 17) room_17(fl); else if (roomNumber == 18) room_18(fl); else if (roomNumber == 19) room_19(fl); else hay_answer = 0; } else if (num_ejec == 3) { if (pickedObject == kVerbLook && fl == 50) talk(_text[_lang][309], "309.als"); else if (pickedObject == kVerbOpen && fl == 50) talk(_text[_lang][310], "310.als"); else if (pickedObject == kVerbClose && fl == 50) talk(_text[_lang][311], "311.als"); else if (pickedObject == kVerbMove && fl == 50) talk(_text[_lang][312], "312.als"); else if (pickedObject == kVerbPick && fl == 50) talk(_text[_lang][313], "313.als"); else if (pickedObject == kVerbTalk && fl == 50) talk(_text[_lang][314], "314.als"); else if (roomNumber == 13) { if (room_13(fl)) return true; } else hay_answer = 0; } else if (num_ejec == 4) { if (roomNumber == 28) talk(_text[_lang][178], "178.als"); else if (pickedObject == kVerbLook && fl == 50) talk(_text[_lang][309], "309.als"); else if (pickedObject == kVerbOpen && fl == 50) talk(_text[_lang][310], "310.als"); else if (pickedObject == kVerbClose && fl == 50) talk(_text[_lang][311], "311.als"); else if (pickedObject == kVerbMove && fl == 50) talk(_text[_lang][312], "312.als"); else if (pickedObject == kVerbPick && fl == 50) talk(_text[_lang][313], "313.als"); else if (pickedObject == kVerbTalk && fl == 50) talk(_text[_lang][314], "314.als"); else if (pickedObject == 8 && fl == 50 && flags[18] == 0) talk(_text[_lang][481], "481.als"); else if (pickedObject == 9 && fl == 50) talk(_text[_lang][484], "484.als"); else if (pickedObject == 12 && fl == 50 && flags[18] == 0) talk(_text[_lang][487], "487.als"); else if (pickedObject == 20 && fl == 50) talk(_text[_lang][487], "487.als"); else if (roomNumber == 21) { if (room_21(fl)) return true; } else if (roomNumber == 22) room_22(fl); else if (roomNumber == 23) room_23(fl); else if (roomNumber == 24) room_24(fl); else if (roomNumber == 26) room_26(fl); else if (roomNumber == 27) room_27(fl); else if (roomNumber == 29) room_29(fl); else if (roomNumber == 30) room_30(fl); else if (roomNumber == 31) room_31(fl); else if (roomNumber == 34) room_34(fl); else if (roomNumber == 35) room_35(fl); else if (roomNumber == 44) room_44(fl); else hay_answer = 0; } else if (num_ejec == 5) { if (pickedObject == kVerbLook && fl == 50) talk("Cuanto mas me miro, mas me gusto", "54.als"); else if (pickedObject == kVerbOpen && fl == 50) talk("y luego como me cierro", "19.als"); else if (pickedObject == kVerbClose && fl == 50) talk("Tendre que abrirme primero no", "19.als"); else if (pickedObject == kVerbMove && fl == 50) talk("Estoy bien donde estoy", "19.als"); else if (pickedObject == kVerbPick && fl == 50) talk("Ya me tengo", "11.als"); else if (pickedObject == kVerbTalk && fl == 50) talk("hola yo", "16.als"); else if (pickedObject == 20 && fl == 50) talk(_text[_lang][487], "487.als"); else if (roomNumber == 49) room_49(fl); else if (roomNumber == 53) room_53(fl); else if (roomNumber == 54) room_54(fl); else if (roomNumber == 55) room_55(fl); else if (roomNumber == 56) { if (room_56(fl)) return true; } else hay_answer = 0; } else if (num_ejec == 6) { if (pickedObject == kVerbLook && fl == 50 && flags[0] == 1) talk(_text[_lang][308], "308.als"); else if (pickedObject == kVerbLook && fl == 50 && flags[0] == 0) talk(_text[_lang][310], "250.als" ); else if (pickedObject == kVerbOpen && fl == 50) talk(_text[_lang][310], "310.als" ); else if (pickedObject == kVerbClose && fl == 50) talk(_text[_lang][311], "311.als" ); else if (pickedObject == kVerbMove && fl == 50) talk(_text[_lang][312], "312.als" ); else if (pickedObject == kVerbPick && fl == 50) talk(_text[_lang][313], "313.als" ); else if (pickedObject == kVerbTalk && fl == 50) talk(_text[_lang][314], "314.als" ); else if (roomNumber == 102) room_pendulo(fl); else if (roomNumber == 58) room_58(fl); else if (roomNumber == 59) room_59(fl); else if (roomNumber == 60) { if (room_60(fl)) return true; } else if (roomNumber == 61) room_61(fl); else hay_answer = 0; } } if (hay_answer == 0 && hay_nombre == 1) room_0(); else if (hay_answer == 0 && menu_scr == 1) room_0(); return false; } void DrasculaEngine::cursor_mesa() { int pos_cursor[8]; pos_cursor[0] = 225; pos_cursor[1] = 56; pos_cursor[2] = mouseX - 20; pos_cursor[3] = mouseY - 12; pos_cursor[4] = 40; pos_cursor[5] = 25; copyRectClip(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 (;;) { select2[v] = '-'; copyBackground(115, 14, 115, 14, 176, 9, dir_dibujo1, dir_zona_pantalla); print_abc(select2, 117, 15); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); key = getscan(); delay(70); if (key != 0) { if (key >= 0 && key <= 0xFF && isalpha(key)) select2[v] = tolower(key); else if ((key == Common::KEYCODE_LCTRL) || (key == Common::KEYCODE_RCTRL)) select2[v] = '\164'; else if (key >= Common::KEYCODE_0 && key <= Common::KEYCODE_9) select2[v] = key; else if (key == Common::KEYCODE_SPACE) select2[v] = '\167'; 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[]) { saveGame(nom_game); playSound("99.als"); stopSound(); } void DrasculaEngine::OpenSSN(const char *Name, int Pause) { MiVideoSSN = (byte *)malloc(64256); GlobalSpeed = 1000 / Pause; FrameSSN = 0; UsingMem = 0; if (MiVideoSSN == NULL) return; _Sesion = new Common::File; _Sesion->open(Name); mSesion = TryInMem(_Sesion); LastFrame = _system->getMillis(); } int DrasculaEngine::PlayFrameSSN() { int Exit = 0; int Lengt; byte *BufferSSN; if (!UsingMem) _Sesion->read(&CHUNK, 1); else { memcpy(&CHUNK, mSesion, 1); mSesion += 1; } switch (CHUNK) { case SET_PAL: 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) { setPalette((byte *)PalBuf); } void DrasculaEngine::Des_OFF(byte *BufferOFF, byte *MiVideoOFF, int Lenght) { int x = 0; unsigned char Reps; int Offset; memset(MiVideoSSN, 0, 64000); while (x < Lenght) { Offset = BufferOFF[x] + BufferOFF[x + 1] * 256; Reps = BufferOFF[x + 2]; memcpy(MiVideoOFF + Offset, &BufferOFF[x + 3], Reps); x += 3 + Reps; } } void DrasculaEngine::Des_RLE(byte *BufferRLE, byte *MiVideoRLE) { signed int con = 0; unsigned int X = 0; unsigned int fExit = 0; char ch, rep; while (!fExit) { ch = *BufferRLE++; rep = 1; if ((ch & 192) == 192) { rep = (ch & 63); ch =* BufferRLE++; } for (con = 0; con < rep; con++) { *MiVideoRLE++ = ch; X++; if (X > 64000) fExit = 1; } } } void DrasculaEngine::MixVideo(byte *OldScreen, byte *NewScreen) { int x; for (x = 0; x < 64000; x++) OldScreen[x] ^= NewScreen[x]; } void DrasculaEngine::WaitFrameSSN() { uint32 now; while ((now = _system->getMillis()) - LastFrame < ((uint32) GlobalSpeed)) _system->delayMillis(GlobalSpeed - (now - LastFrame)); LastFrame = LastFrame + GlobalSpeed; } byte *DrasculaEngine::loadPCX(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) { setPalette((byte *)dac); } void DrasculaEngine::WaitForNext(int FPS) { _system->delayMillis(1000 / FPS); } int DrasculaEngine::vez() { return _system->getMillis() / 20; // originaly was 1 } void DrasculaEngine::reduce_hare_chico(int xx1, int yy1, int xx2, int yy2, int ancho, int alto, int factor, byte *dir_inicio, byte *dir_fin) { float suma_x, suma_y; int n, m; float pixel_x, pixel_y; int pos_pixel[6]; nuevo_ancho = (ancho * factor) / 100; nuevo_alto = (alto * factor) / 100; suma_x = ancho / nuevo_ancho; suma_y = alto / nuevo_alto; pixel_x = xx1; pixel_y = yy1; for (n = 0; n < nuevo_alto; n++) { for (m = 0; m < nuevo_ancho; m++) { pos_pixel[0] = (int)pixel_x; pos_pixel[1] = (int)pixel_y; pos_pixel[2] = xx2 + m; pos_pixel[3] = yy2 + n; pos_pixel[4] = 1; pos_pixel[5] = 1; copyRectClip(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::quadrant_1() { float distance_x, distance_y; if (num_ejec == 2) distance_x = hare_x - sitio_x; else distance_x = hare_x + ancho_hare / 2 - sitio_x; distance_y = (hare_y + alto_hare) - sitio_y; if (distance_x < distance_y) { direccion_hare = 0; sentido_hare = 2; step_x = (int)(distance_x / (distance_y / PASO_HARE_Y)); } else { direccion_hare = 7; sentido_hare = 0; step_y = (int)(distance_y / (distance_x / PASO_HARE_X)); } } void DrasculaEngine::quadrant_2() { float distance_x, distance_y; if (num_ejec == 2) distance_x = abs(hare_x + ancho_hare - sitio_x); else distance_x = abs(hare_x + ancho_hare / 2 - sitio_x); distance_y = (hare_y + alto_hare) - sitio_y; if (distance_x < distance_y) { direccion_hare = 1; sentido_hare = 2; step_x = (int)(distance_x / (distance_y / PASO_HARE_Y)); } else { direccion_hare = 2; sentido_hare = 1; step_y = (int)(distance_y / (distance_x / PASO_HARE_X)); } } void DrasculaEngine::quadrant_3() { float distance_x, distance_y; if (num_ejec == 2) distance_x = hare_x - sitio_x; else distance_x = hare_x + ancho_hare / 2 - sitio_x; distance_y = sitio_y - (hare_y + alto_hare); if (distance_x < distance_y) { direccion_hare = 5; sentido_hare = 3; step_x = (int)(distance_x / (distance_y / PASO_HARE_Y)); } else { direccion_hare = 6; sentido_hare = 0; step_y = (int)(distance_y / (distance_x / PASO_HARE_X)); } } void DrasculaEngine::quadrant_4() { float distance_x, distance_y; if (num_ejec == 2) distance_x = abs(hare_x + ancho_hare - sitio_x); else distance_x = abs(hare_x + ancho_hare / 2 - sitio_x); distance_y = sitio_y - (hare_y + alto_hare); if (distance_x < distance_y) { direccion_hare = 4; sentido_hare = 3; step_x = (int)(distance_x / (distance_y / PASO_HARE_Y)); } else { direccion_hare = 3; sentido_hare = 1; step_y = (int)(distance_y / (distance_x / PASO_HARE_X)); } } void DrasculaEngine::saveGame(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(currentData, 20); out->writeSint32LE(hare_x); out->writeSint32LE(hare_y); out->writeSint32LE(sentido_hare); for (l = 1; l < 43; l++) { out->writeSint32LE(inventoryObjects[l]); } for (l = 0; l < NUM_FLAGS; l++) { out->writeSint32LE(flags[l]); } out->writeSint32LE(lleva_objeto); out->writeSint32LE(pickedObject); out->finalize(); if (out->ioFailed()) warning("Can't write file '%s'. (Disk full?)", nom_game); delete out; } void DrasculaEngine::aumenta_num_frame() { diff_vez = vez() - conta_vez; if (diff_vez >= 6) { conta_vez = vez(); num_frame++; if (num_frame == 6) num_frame = 0; if (direccion_hare == 0 || direccion_hare == 7) { hare_x = hare_x - step_x; hare_y = hare_y - step_y; } else if (direccion_hare == 1 || direccion_hare == 2) { hare_x = hare_x + step_x; hare_y = hare_y - step_y; } else if (direccion_hare == 3 || direccion_hare == 4) { hare_x = hare_x + step_x; hare_y = hare_y + step_y; } else if (direccion_hare == 5 || direccion_hare == 6) { hare_x = hare_x - step_x; hare_y = hare_y + step_y; } } if (num_ejec != 2) { diferencia_y = (int)(alto_hare - nuevo_alto); diferencia_x = (int)(ancho_hare - nuevo_ancho); hare_y = hare_y + diferencia_y; hare_x = hare_x + diferencia_x; alto_hare = (int)nuevo_alto; ancho_hare = (int)nuevo_ancho; } } int DrasculaEngine::sobre_que_objeto() { int n = 0; for (n = 1; n < 43; n++) { if (mouseX > itemLocations[n].x && mouseY > itemLocations[n].y && mouseX < itemLocations[n].x + OBJWIDTH && mouseY < itemLocations[n].y + OBJHEIGHT) break; } return n; } bool DrasculaEngine::comprueba_banderas_menu() { int h, n; for (n = 0; n < 43; n++) { if (sobre_que_objeto() == n) { h = inventoryObjects[n]; if (h != 0) if (banderas(h)) return true; } } return false; } void DrasculaEngine::conversa(const char *nom_fich) { int h; int game1 = 1, game2 = 1, game3 = 1, game4 = 1; char phrase1[78]; char phrase2[78]; char phrase3[87]; char phrase4[78]; char para_codificar[13]; char sound1[13]; char sound2[13]; char sound3[13]; char sound4[13]; int length; int answer1; int answer2; int answer3; int used1 = 0; int used2 = 0; int used3 = 0; char buffer[256]; rompo_y_salgo = 0; strcpy(para_codificar, nom_fich); if (num_ejec == 5) withoutVerb(); 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", phrase1); getLine(ald, buffer, size); sscanf(buffer, "%s", phrase2); getLine(ald, buffer, size); sscanf(buffer, "%s", phrase3); getLine(ald, buffer, size); sscanf(buffer, "%s", phrase4); getLine(ald, buffer, size); sscanf(buffer, "%s", sound1); getLine(ald, buffer, size); sscanf(buffer, "%s", sound2); getLine(ald, buffer, size); sscanf(buffer, "%s", sound3); getLine(ald, buffer, size); sscanf(buffer, "%s", sound4); getLine(ald, buffer, size); sscanf(buffer, "%d", &answer1); getLine(ald, buffer, size); sscanf(buffer, "%d", &answer2); getLine(ald, buffer, size); sscanf(buffer, "%d", &answer3); delete ald; ald = NULL; if (num_ejec == 2 && !strcmp(nom_fich, "op_5.cal") && flags[38] == 1 && flags[33] == 1) { strcpy(phrase3, _text[_lang][405]); strcpy(sound3, "405.als"); answer3 = 31; } if (num_ejec == 6 && !strcmp(nom_fich, "op_12.cal") && flags[7] == 1) { strcpy(phrase3, _text[_lang][273]); strcpy(sound3, "273.als"); answer3 = 14; } if (num_ejec == 6 && !strcmp(nom_fich, "op_12.cal") && flags[10] == 1) { strcpy(phrase3, " cuanto queda para que acabe el partido?"); strcpy(sound3, "274.als"); answer3 = 15; } length = strlen(phrase1); for (h = 0; h < length; h++) if (phrase1[h] == (char)0xa7) phrase1[h] = ' '; length = strlen(phrase2); for (h = 0; h < length; h++) if (phrase2[h] == (char)0xa7) phrase2[h] = ' '; length = strlen(phrase3); for (h = 0; h < length; h++) if (phrase3[h] == (char)0xa7) phrase3[h] = ' '; length = strlen(phrase4); for (h = 0; h < length; h++) if (phrase4[h] == (char)0xa7) phrase4[h] = ' '; loadPic("car.alg"); decompressPic(dir_hare_fondo, 1); // TODO code here should limit y position for mouse in dialog menu, // but we can't implement this due lack backend functionality // from 1(top) to 31 color_abc(LIGHT_GREEN); bucle_opc: updateRoom(); if (num_ejec == 1 || num_ejec == 4 || num_ejec == 6) { if (musicStatus() == 0 && flags[11] == 0) playMusic(roomMusic); } else if (num_ejec == 2) { if (musicStatus() == 0 && flags[11] == 0 && roomMusic != 0) playMusic(roomMusic); } else if (num_ejec == 3 || num_ejec == 5) { if (musicStatus() == 0) playMusic(roomMusic); } updateEvents(); if (mouseY > 0 && mouseY < 9) { if (used1 == 1 && _color != WHITE) color_abc(WHITE); else if (used1 == 0 && _color != LIGHT_GREEN) color_abc(LIGHT_GREEN); } else if (mouseY > 8 && mouseY < 17) { if (used2 == 1 && _color != WHITE) color_abc(WHITE); else if (used2 == 0 && _color != LIGHT_GREEN) color_abc(LIGHT_GREEN); } else if (mouseY > 16 && mouseY < 25) { if (used3 == 1 && _color != WHITE) color_abc(WHITE); else if (used3 == 0 && _color != LIGHT_GREEN) color_abc(LIGHT_GREEN); } else if (_color != LIGHT_GREEN) color_abc(LIGHT_GREEN); if (mouseY > 0 && mouseY < 9) game1 = 2; else if (mouseY > 8 && mouseY < 17) game2 = 2; else if (mouseY > 16 && mouseY < 25) game3 = 2; else if (mouseY > 24 && mouseY < 33) game4 = 2; print_abc_opc(phrase1, 1, 2, game1); print_abc_opc(phrase2, 1, 10, game2); print_abc_opc(phrase3, 1, 18, game3); print_abc_opc(phrase4, 1, 26, game4); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); if ((button_izq == 1) && (game1 == 2)) { delay(100); used1 = 1; talk(phrase1, sound1); if (num_ejec == 3) grr(); else response(answer1); } else if ((button_izq == 1) && (game2 == 2)) { delay(100); used2 = 1; talk(phrase2, sound2); if (num_ejec == 3) grr(); else response(answer2); } else if ((button_izq == 1) && (game3 == 2)) { delay(100); used3 = 1; talk(phrase3, sound3); if (num_ejec == 3) grr(); else response(answer3); } else if ((button_izq == 1) && (game4 == 2)) { delay(100); talk(phrase4, sound4); rompo_y_salgo = 1; } if (button_izq == 1) { delay(100); color_abc(LIGHT_GREEN); } game1 = (used1 == 0) ? 1 : 3; game2 = (used2 == 0) ? 1 : 3; game3 = (used3 == 0) ? 1 : 3; game4 = 1; if (rompo_y_salgo == 0) goto bucle_opc; if (num_ejec == 2) loadPic(fondo_y_menu); else loadPic("99.alg"); decompressPic(dir_hare_fondo, 1); if (num_ejec != 5) withoutVerb(); } void DrasculaEngine::print_abc_opc(const char *said, int x_pantalla, int y_pantalla, int game) { int pos_texto[6]; int y_de_signos, y_de_letra, x_de_letra = 0, h, length; length = strlen(said); for (h = 0; h < length; h++) { if (game == 1) { y_de_letra = Y_ABC_OPC_1; y_de_signos = Y_SIGNOS_OPC_1; } else if (game == 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; } int c = toupper(said[h]); if (c == '\265') x_de_letra = X_A_OPC; else if (c == '\267') x_de_letra = X_A_OPC; else if (c == '\266') x_de_letra = X_A_OPC; else if (c == '\200') x_de_letra = X_A_OPC + 2 * 7; // C else if (c == '\207') x_de_letra = X_A_OPC + 2 * 7; // C else if (c == '\220') x_de_letra = X_A_OPC + 4 * 7; // E else if (c == '\324') x_de_letra = X_A_OPC + 4 * 7; // E else if (c == '\322') x_de_letra = X_A_OPC + 4 * 7; // E else if (c == '\326') x_de_letra = X_A_OPC + 8 * 7; // I else if (c == '\336') x_de_letra = X_A_OPC + 8 * 7; // I else if (c == '\327') x_de_letra = X_A_OPC + 8 * 7; // I else if (c == '\047') x_de_letra = X_GN_OPC; else if (c == '\340') x_de_letra = X_O_OPC; else if (c == '\342') x_de_letra = X_O_OPC; else if (c == '\343') x_de_letra = X_O_OPC; else if (c == '\353') x_de_letra = X_O_OPC + 6 * 7; // U else if (c == '\352') x_de_letra = X_O_OPC + 6 * 7; // U else if (c == '\351') x_de_letra = X_O_OPC + 6 * 7; // U else if (c >= 'A' && c <= 'N') x_de_letra = X_A_OPC + (c - 'A') * 7; else if (c >= 'O' && c <= 'Z') x_de_letra = X_O_OPC + (c - 'O') * 7; else if (c == ' ') x_de_letra = SPACE_OPC; else { y_de_letra = y_de_signos; if (c == '.') x_de_letra = X_DOT_OPC; else if (c == ',') x_de_letra = X_COMA_OPC; else if (c == '-') x_de_letra = X_HYPHEN_OPC; else if (c == '?') x_de_letra = X_CIERRA_INTERROGACION_OPC; else if (c == 0xa8) x_de_letra = X_ABRE_INTERROGACION_OPC; // else if (c == '\'') // FIXME // x_de_letra = SPACE; // space for now else if (c == '"') x_de_letra = X_COMILLAS_OPC; else if (c == '!') x_de_letra = X_CIERRA_INTERROGACION_OPC; else if (c == 0xad) 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_GREATER_THAN_OPC; else if (c == '<') x_de_letra = X_LESSER_THAN_OPC; else if (c == '$') x_de_letra = X_DOLAR_OPC; else if (c == '%') x_de_letra = X_PERCENT_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_BRACKET_OPEN_OPC; else if (c == ')') x_de_letra = X_BRACKET_CLOSE_OPC; else if (c == '*') x_de_letra = X_ASTERISCO_OPC; else if (c == '+') x_de_letra = X_PLUS_OPC; else if (c >= '1' && c <= '9') x_de_letra = X_N1_OPC + (c - '1') * 7; // "0" is mapped after "9" in the game's font // (it's mapped before "1" normally) 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] = CHAR_WIDTH_OPC; pos_texto[5] = CHAR_HEIGHT_OPC; copyRectClip(pos_texto, dir_hare_fondo, dir_zona_pantalla); x_pantalla = x_pantalla + CHAR_WIDTH_OPC; } } void DrasculaEngine::response(int funcion) { if (num_ejec == 1) { if (funcion == 10) talk_borracho(_textb[_lang][1], "B1.als"); else if (funcion == 11) talk_borracho(_textb[_lang][2], "B2.als"); else if (funcion == 12) talk_borracho(_textb[_lang][3], "B3.als"); } else if (num_ejec == 2) { if (funcion == 8) animation_8_2(); else if (funcion == 9) animation_9_2(); else if (funcion == 10) animation_10_2(); else if (funcion == 15) animation_15_2(); else if (funcion == 16) animation_16_2(); else if (funcion == 17) animation_17_2(); else if (funcion == 19) animation_19_2(); else if (funcion == 20) animation_20_2(); else if (funcion == 21) animation_21_2(); else if (funcion == 23) animation_23_2(); else if (funcion == 28) animation_28_2(); else if (funcion == 29) animation_29_2(); else if (funcion == 30) animation_30_2(); else if (funcion == 31) animation_31_2(); } else if (num_ejec == 4) { if (funcion == 2) animation_2_4(); else if (funcion == 3) animation_3_4(); else if (funcion == 4) animation_4_4(); } else if (num_ejec == 5) { if (funcion == 2) animation_2_5(); else if (funcion == 3) animation_3_5(); else if (funcion == 6) animation_6_5(); else if (funcion == 7) animation_7_5(); else if (funcion == 8) animation_8_5(); else if (funcion == 15) animation_15_5(); else if (funcion == 16) animation_16_5(); else if (funcion == 17) animation_17_5(); } else if (num_ejec == 6) { if (funcion == 2) animation_2_6(); else if (funcion == 3) animation_3_6(); else if (funcion == 4) animation_4_6(); else if (funcion == 11) animation_11_6(); else if (funcion == 12) animation_12_6(); else if (funcion == 13) animation_13_6(); else if (funcion == 14) animation_14_6(); else if (funcion == 15) animation_15_6(); } } void DrasculaEngine::suma_objeto(int osj) { int h, position = 0; for (h = 1; h < 43; h++) { if (inventoryObjects[h] == osj) position = 1; } if (position == 0) { for (h = 1; h < 43; h++) { if (inventoryObjects[h] == 0) { inventoryObjects[h] = osj; position = 1; break; } } } } void DrasculaEngine::stopSound_corte() { if (hay_sb == 1) { ctvd_stop(); delete sku; sku = NULL; 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; updateEvents(); _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::updateData() { if (num_ejec == 1) { // nothing } else if (num_ejec == 2) { if (roomNumber == 2 && flags[40] == 0) visible[3] = 0; else if (roomNumber == 3 && flags[3] == 1) visible[8] = 0; else if (roomNumber == 6 && flags[1] == 1 && flags[10] == 0) { visible[2] = 0; visible[4] = 1; } else if (roomNumber == 7 && flags[35] == 1) visible[3] = 0; else if (roomNumber == 14 && flags[5] == 1) visible[4] = 0; else if (roomNumber == 18 && flags[28] == 1) visible[2] = 0; } else if (num_ejec == 3) { // nothing } else if (num_ejec == 4) { if (roomNumber == 23 && flags[0] == 0 && flags[11] == 0) visible[2] = 1; if (roomNumber == 23 && flags[0] == 1 && flags[11] == 0) visible[2] = 0; if (roomNumber == 21 && flags[10] == 1) visible[2] = 0; if (roomNumber == 22 && flags[26] == 1) { visible[2] = 0; visible[1] = 1; } if (roomNumber == 22 && flags[27] == 1) visible[3] = 0; if (roomNumber == 26 && flags[21] == 0) strcpy(objName[2], _textmisc[_lang][0]); if (roomNumber == 26 && flags[18] == 1) visible[2] = 0; if (roomNumber == 26 && flags[12] == 1) visible[1] = 0; if (roomNumber == 35 && flags[14] == 1) visible[2] = 0; if (roomNumber == 35 && flags[17] == 1) visible[3] = 1; if (roomNumber == 35 && flags[15] == 1) visible[1] = 0; } else if (num_ejec == 5) { if (roomNumber == 49 && flags[6] == 1) visible[2] = 0; if (roomNumber == 49 && flags[6] == 0) visible[1] = 0; if (roomNumber == 49 && flags[6] == 1) visible[1] = 1; if (roomNumber == 45 && flags[6] == 1) visible[3] = 1; if (roomNumber == 53 && flags[2] == 1) visible[3] = 0; if (roomNumber == 54 && flags[13] == 1) visible[3] = 0; if (roomNumber == 55 && flags[8] == 1) visible[1] = 0; } else if (num_ejec == 6) { if (roomNumber == 58 && flags[8] == 0) isDoor[1] = 0; if (roomNumber == 58 && flags[8] == 1) isDoor[1] = 1; if (roomNumber == 59) isDoor[1] = 0; if (roomNumber == 60) { sentido_dr = 0; x_dr = 155; y_dr = 69; } } } void DrasculaEngine::anda_pabajo() { direccion_hare = 4; sentido_hare = 3; step_x = 0; } void DrasculaEngine::anda_parriba() { direccion_hare = 0; sentido_hare = 2; step_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; } copyRectClip(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 (;;) { updateRoom(); updateScreen(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; } pause(5); } vb_se_mueve = 0; } void DrasculaEngine::hipo_sin_nadie(int counter){ int y = 0, sentido = 0; if (num_ejec == 3) y = -1; comienza: counter--; copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); if (num_ejec == 3) updateScreen(0, 0, 0, y, 320, 200, dir_zona_pantalla); else updateScreen(0, 1, 0, y, 320, 198, dir_zona_pantalla); if (sentido == 0) y++; else y--; if (num_ejec == 3) { if (y == 1) sentido = 1; if (y == -1) sentido = 0; } else { if (y == 2) sentido = 1; if (y == 0) sentido = 0; } if (counter > 0) goto comienza; copyBackground(0, 0, 0, 0, 320, 200, dir_dibujo1, dir_zona_pantalla); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); } void DrasculaEngine::openDoor(int nflag, int doorNum) { if (flags[nflag] == 0) { if (num_ejec == 1 /*|| num_ejec == 4*/) { if (nflag != 7) { playSound("s3.als"); flags[nflag] = 1; } } else { playSound("s3.als"); flags[nflag] = 1; } if (doorNum != NO_DOOR) updateDoor(doorNum); updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); stopSound(); withoutVerb(); } } void DrasculaEngine::mapa() { int l, veo = 0; for (l = 0; l < numRoomObjs; l++) { if (mouseX > x1[l] && mouseY > y1[l] && mouseX < x2[l] && mouseY < y2[l] && visible[l] == 1) { strcpy(texto_nombre, objName[l]); hay_nombre = 1; veo = 1; } } if (veo == 0) hay_nombre = 0; } void DrasculaEngine::grr() { int length = 30; color_abc(DARK_GREEN); if (hay_sb == 1) { sku = new Common::File; sku->open("s10.als"); if (!sku->isOpen()) { error("no puedo abrir archivo de voz"); } ctvd_init(4); ctvd_speaker(1); ctvd_output(sku); } updateRoom(); copyBackground(253, 110, 150, 65, 20, 30, dir_dibujo3, dir_zona_pantalla); if (withVoices == 0) centra_texto(".groaaarrrrgghhh!", 153, 65); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); bucless: int key = getscan(); if (key != 0) ctvd_stop(); if (hay_sb == 1) { if (LookForFree() != 0) goto bucless; delete sku; sku = NULL; ctvd_terminate(); } else { length -= 2; if (length > 0) goto bucless; } updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); } void DrasculaEngine::activa_pendulo() { flags[1] = 2; hare_se_ve = 0; roomNumber = 102; loadPic("102.alg"); decompressPic(dir_dibujo1, HALF_PAL); loadPic("an_p1.alg"); decompressPic(dir_dibujo3, 1); loadPic("an_p2.alg"); decompressPic(dir_hare_dch, 1); loadPic("an_p3.alg"); decompressPic(dir_hare_frente, 1); copyBackground(0, 171, 0, 0, OBJWIDTH, OBJHEIGHT, dir_hare_fondo, dir_dibujo3); conta_ciego_vez = vez(); } void DrasculaEngine::closeDoor(int nflag, int doorNum) { if (flags[nflag] == 1) { playSound("s4.als"); flags[nflag] = 0; if (doorNum != NO_DOOR) updateDoor(doorNum); updateRoom(); updateScreen(0, 0, 0, 0, 320, 200, dir_zona_pantalla); stopSound(); withoutVerb(); } } } // End of namespace Drascula