https://github.com/scummvm/scummvm
Tip revision: b617364f453e973135d9b3e52afe4040f405295f authored by Die4Ever on 28 August 2021, 20:27:26 UTC
COMMON: improve RandomSource initial seed
COMMON: improve RandomSource initial seed
Tip revision: b617364
inter_bargon.cpp
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#include "common/endian.h"
#include "gob/gob.h"
#include "gob/inter.h"
#include "gob/global.h"
#include "gob/util.h"
#include "gob/dataio.h"
#include "gob/draw.h"
#include "gob/game.h"
#include "gob/palanim.h"
#include "gob/video.h"
#include "gob/videoplayer.h"
#include "gob/sound/sound.h"
namespace Gob {
#define OPCODEVER Inter_Bargon
#define OPCODEDRAW(i, x) _opcodesDraw[i]._OPCODEDRAW(OPCODEVER, x)
#define OPCODEFUNC(i, x) _opcodesFunc[i]._OPCODEFUNC(OPCODEVER, x)
#define OPCODEGOB(i, x) _opcodesGob[i]._OPCODEGOB(OPCODEVER, x)
Inter_Bargon::Inter_Bargon(GobEngine *vm) : Inter_v2(vm) {
}
void Inter_Bargon::setupOpcodesDraw() {
Inter_v2::setupOpcodesDraw();
}
void Inter_Bargon::setupOpcodesFunc() {
Inter_v2::setupOpcodesFunc();
}
void Inter_Bargon::setupOpcodesGob() {
OPCODEGOB( 1, oBargon_intro0);
OPCODEGOB( 2, oBargon_intro1);
OPCODEGOB( 3, oBargon_intro2);
OPCODEGOB( 4, oBargon_intro3);
OPCODEGOB( 5, oBargon_intro4);
OPCODEGOB( 6, oBargon_intro5);
OPCODEGOB( 7, oBargon_intro6);
OPCODEGOB( 8, oBargon_intro7);
OPCODEGOB( 9, oBargon_intro8);
OPCODEGOB(10, oBargon_intro9);
OPCODEGOB(11, o_gobNOP);
}
void Inter_Bargon::oBargon_intro0(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 0;
props.y = 160;
props.startFrame = 0;
props.lastFrame = 92;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scaa", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro1(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 0;
props.y = 160;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
props.fade = true;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scaa", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
props.startFrame = -1;
props.lastFrame = _vm->_vidPlayer->getFrameCount(slot) - 23;
props.fade = false;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro2(OpGobParams ¶ms) {
int i;
int16 mouseX;
int16 mouseY;
MouseButtons buttons;
SurfacePtr surface;
SoundDesc samples[4];
static const int16 comp[5] = { 0, 1, 2, 3, -1 };
static const char *const sndFiles[] = {"1INTROII.snd", "2INTROII.snd", "1INTRO3.snd", "2INTRO3.snd"};
surface = _vm->_video->initSurfDesc(320, 200);
_vm->_video->drawPackedSprite("2ille.ims", *surface);
_vm->_draw->_frontSurface->blit(*surface, 0, 0, 319, 199, 0, 0);
_vm->_video->drawPackedSprite("2ille4.ims", *surface);
_vm->_draw->_frontSurface->blit(*surface, 0, 0, 319, 199, 320, 0);
_vm->_util->setScrollOffset(320, 0);
_vm->_video->dirtyRectsAll();
_vm->_palAnim->fade(_vm->_global->_pPaletteDesc, -2, 0);
_vm->_util->longDelay(1000);
for (i = 320; i >= 0; i--) {
_vm->_util->setScrollOffset(i, 0);
_vm->_video->dirtyRectsAll();
if ((_vm->_game->checkKeys(&mouseX, &mouseY, &buttons, 0) == kKeyEscape) ||
_vm->shouldQuit()) {
_vm->_palAnim->fade(0, -2, 0);
_vm->_draw->_frontSurface->clear();
memset((char *)_vm->_draw->_vgaPalette, 0, 768);
WRITE_VAR(4, buttons);
WRITE_VAR(0, kKeyEscape);
WRITE_VAR(57, (uint32) -1);
break;
}
}
if (!_vm->shouldQuit()) {
_vm->_util->setScrollOffset(0, 0);
_vm->_video->dirtyRectsAll();
}
surface.reset();
if (VAR(57) == ((uint32) -1))
return;
for (i = 0; i < 4; i++)
_vm->_sound->sampleLoad(&samples[i], SOUND_SND, sndFiles[i]);
_vm->_sound->blasterPlayComposition(comp, 0, samples, 4);
_vm->_sound->blasterWaitEndPlay(true, false);
_vm->_palAnim->fade(0, 0, 0);
_vm->_draw->_frontSurface->clear();
}
void Inter_Bargon::oBargon_intro3(OpGobParams ¶ms) {
int16 mouseX;
int16 mouseY;
MouseButtons buttons;
Video::Color *palBak;
SoundDesc samples[2];
byte *palettes[4];
static const int16 comp[3] = { 0, 1, -1 };
static const char *const sndFiles[] = {"1INTROIV.snd", "2INTROIV.snd"};
static const char *const palFiles[] = {"2ou2.clt", "2ou3.clt", "2ou4.clt", "2ou5.clt"};
int32 size;
for (int i = 0; i < 2; i++)
_vm->_sound->sampleLoad(&samples[i], SOUND_SND, sndFiles[i]);
for (int i = 0; i < 4; i++)
palettes[i] = _vm->_dataIO->getFile(palFiles[i], size);
palBak = _vm->_global->_pPaletteDesc->vgaPal;
_vm->_sound->blasterPlayComposition(comp, 0, samples, 2);
for (int i = 0; i < 20; i++) {
for (int j = 0; j < 4; j++) {
_vm->_global->_pPaletteDesc->vgaPal = (Video::Color *)palettes[j];
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
_vm->_util->longDelay(_vm->_util->getRandom(200));
}
if ((_vm->_game->checkKeys(&mouseX, &mouseY, &buttons, 0) == kKeyEscape) ||
_vm->shouldQuit()) {
_vm->_sound->blasterStop(10);
_vm->_palAnim->fade(0, -2, 0);
_vm->_draw->_frontSurface->clear();
memset(_vm->_draw->_vgaPalette, 0, 768);
WRITE_VAR(4, buttons);
WRITE_VAR(0, kKeyEscape);
WRITE_VAR(57, (uint32) -1);
break;
}
}
_vm->_sound->blasterWaitEndPlay(false, false);
_vm->_global->_pPaletteDesc->vgaPal = palBak;
for (int i = 0; i < 4; i++)
delete[] palettes[i];
}
void Inter_Bargon::oBargon_intro4(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
props.fade = true;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scba", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro5(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scbb", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro6(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scbc", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro7(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scbf", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro8(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scbc", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
void Inter_Bargon::oBargon_intro9(OpGobParams ¶ms) {
VideoPlayer::Properties props;
props.x = 191;
props.y = 54;
props.palCmd = 0;
props.palStart = 0;
props.palEnd = 0;
int slot;
if ((slot = _vm->_vidPlayer->openVideo(true, "scbd", props)) < 0)
return;
_vm->_vidPlayer->play(slot, props);
_vm->_vidPlayer->closeVideo(slot);
}
} // End of namespace Gob