libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-12 20:17:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
f1e58efe90
scummvm/engines/agos/oracle.cpp

523 lines
12 KiB
C++
Raw Blame History

/* 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.
*
*/
#ifdef ENABLE_AGOS2
#include "common/savefile.h"
#include "graphics/surface.h"
#include "agos/agos.h"
#include "agos/intern.h"
#include "agos/vga.h"
namespace AGOS {
void AGOSEngine_Feeble::checkLinkBox() { // Check for boxes spilling over to next row of text
if (_hyperLink != 0) {
_variableArray[52] = _textWindow->x + _textWindow->textColumn - _variableArray[50];
if (_variableArray[52] != 0) {
defineBox(_variableArray[53], _variableArray[50], _variableArray[51], _variableArray[52], 15, 145, 208, _dummyItem2);
_variableArray[53]++;
}
_variableArray[50] = _textWindow->x;
_variableArray[51] = _textWindow->textRow + _textWindow->y + (_oracleMaxScrollY-_textWindow->scrollY) * 15;
}
}
void AGOSEngine_Feeble::hyperLinkOn(uint16 x) {
if (!getBitFlag(51))
return;
_hyperLink = x;
_variableArray[50] = _textWindow->textColumn + _textWindow->x;
_variableArray[51] = _textWindow->textRow + _textWindow->y + (_oracleMaxScrollY - _textWindow->scrollY) * 15;
}
void AGOSEngine_Feeble::hyperLinkOff() {
if (!getBitFlag(51))
return;
_variableArray[52] = _textWindow->x + _textWindow->textColumn - _variableArray[50];
defineBox(_variableArray[53], _variableArray[50], _variableArray[51], _variableArray[52], 15, 145, 208, _dummyItem2);
_variableArray[53]++;
_hyperLink = 0;
}
void AGOSEngine_Feeble::linksUp() { // Scroll Oracle Links
uint16 j;
for (j = 700; j < _variableArray[53]; j++) {
moveBox(j, 0, -15);
}
}
void AGOSEngine_Feeble::linksDown() {
uint16 i;
for (i = 700; i < _variableArray[53]; i++) {
moveBox(i,0, 15);
}
}
void AGOSEngine_Feeble::checkUp(WindowBlock *window) {
uint16 j, k;
if (((_variableArray[31] - _variableArray[30]) == 40) && (_variableArray[31] > 52)) {
k = (((_variableArray[31] / 52) - 2) % 3);
j = k * 6;
if (!isBoxDead(j + 201)) {
uint index = getWindowNum(window);
drawIconArray(index, window->iconPtr->itemRef, 0, window->iconPtr->classMask);
animate(4, 9, k + 34, 0, 0, 0);
}
}
if ((_variableArray[31] - _variableArray[30]) == 76) {
k = ((_variableArray[31] / 52) % 3);
j = k * 6;
if (isBoxDead(j + 201)) {
animate(4, 9, k + 31, 0, 0, 0);
undefineBox(j + 201);
undefineBox(j + 202);
undefineBox(j + 203);
undefineBox(j + 204);
undefineBox(j + 205);
undefineBox(j + 206);
}
_variableArray[31] -= 52;
_iOverflow = 1;
}
}
void AGOSEngine_Feeble::inventoryUp(WindowBlock *window) {
_marks = 0;
checkUp(window);
animate(4, 9, 21, 0 ,0, 0);
while (_currentBoxNum == 0x7FFB && getBitFlag(89)) {
checkUp(window);
delay(1);
}
waitForMark(2);
checkUp(window);
sendSync(922);
waitForMark(1);
checkUp(window);
}
void AGOSEngine_Feeble::checkDown(WindowBlock *window) {
uint16 j, k;
if (((_variableArray[31] - _variableArray[30]) == 24) && (_iOverflow == 1)) {
uint index = getWindowNum(window);
drawIconArray(index, window->iconPtr->itemRef, 0, window->iconPtr->classMask);
k = ((_variableArray[31] / 52) % 3);
animate(4, 9, k + 25, 0, 0, 0);
_variableArray[31] += 52;
}
if (((_variableArray[31] - _variableArray[30]) == 40) && (_variableArray[30] > 52)) {
k = (((_variableArray[31] / 52) + 1) % 3);
j = k * 6;
if (isBoxDead(j + 201)) {
animate(4, 9, k + 28, 0, 0, 0);
undefineBox(j + 201);
undefineBox(j + 202);
undefineBox(j + 203);
undefineBox(j + 204);
undefineBox(j + 205);
undefineBox(j + 206);
}
}
}
void AGOSEngine_Feeble::inventoryDown(WindowBlock *window) {
_marks = 0;
checkDown(window);
animate(4, 9, 23, 0, 0, 0);
while (_currentBoxNum == 0x7FFC && getBitFlag(89)) {
checkDown(window);
delay(1);
}
waitForMark(2);
checkDown(window);
sendSync(924);
waitForMark(1);
checkDown(window);
}
void AGOSEngine_Feeble::scrollOracle() {
int i;
for (i = 0; i < 5; i++)
scrollOracleUp();
}
void AGOSEngine_Feeble::oracleTextUp() {
Subroutine *sub;
int i = 0;
changeWindow(3);
_noOracleScroll = 0;
if (_textWindow->scrollY > _oracleMaxScrollY) // For scroll up
_oracleMaxScrollY = _textWindow->scrollY;
while (!shouldQuit()) {
if (_textWindow->scrollY == _oracleMaxScrollY)
break;
_textWindow->textRow = 105;
for (i = 0; i < 5; i++) {
_newLines = 0;
_textWindow->textColumn = 0;
_textWindow->textRow -= 3;
if (i == 2) {
_textWindow->scrollY += 1;
_textWindow->textRow += 15;
linksUp();
}
scrollOracleUp();
setBitFlag(94, true);
sub = getSubroutineByID(_variableArray[104]);
if (sub)
startSubroutineEx(sub);
setBitFlag(94, false);
}
if (_currentBoxNum != 601 || !getBitFlag(89))
break;
delay(100);
}
}
void AGOSEngine_Feeble::oracleTextDown() {
Subroutine *sub;
int i = 0;
changeWindow(3);
_noOracleScroll = 0;
if (_textWindow->scrollY > _oracleMaxScrollY) // For scroll up
_oracleMaxScrollY = _textWindow->scrollY;
while (!shouldQuit()) {
if (_textWindow->scrollY == 0)
break;
for (i = 0; i < 5; i++) {
_newLines = 0;
_textWindow->textColumn = 0;
_textWindow->textRow = (i + 1) * 3;
if (i == 4) {
_textWindow->scrollY -= 1;
_textWindow->textRow = 0;
linksDown();
}
scrollOracleDown();
setBitFlag(93, true);
sub = getSubroutineByID(_variableArray[104]);
if (sub)
startSubroutineEx(sub);
setBitFlag(93, false);
}
if (_currentBoxNum != 600 || !getBitFlag(89))
break;
delay(100);
}
}
void AGOSEngine_Feeble::scrollOracleUp() {
byte *src, *dst;
uint16 w, h;
dst = getBackGround() + 103 * _backGroundBuf->pitch + 136;
src = getBackGround() + 106 * _backGroundBuf->pitch + 136;
for (h = 0; h < 21; h++) {
for (w = 0; w < 360; w++) {
if (dst[w] == 0 || dst[w] == 113 || dst[w] == 116 || dst[w] == 252)
dst[w] = src[w];
}
dst += _backGroundBuf->pitch;
src += _backGroundBuf->pitch;
}
for (h = 0; h < 80; h++) {
memcpy(dst, src, 360);
dst += _backGroundBuf->pitch;
src += _backGroundBuf->pitch;
}
for (h = 0; h < 3; h++) {
memset(dst, 0, 360);
dst += _backGroundBuf->pitch;
src += _backGroundBuf->pitch;
}
}
void AGOSEngine_Feeble::scrollOracleDown() {
byte *src, *dst;
uint16 w, h;
src = getBackGround() + 203 * _backGroundBuf->pitch + 136;
dst = getBackGround() + 206 * _backGroundBuf->pitch + 136;
for (h = 0; h < 77; h++) {
memcpy(dst, src, 360);
dst -= _backGroundBuf->pitch;
src -= _backGroundBuf->pitch;
}
for (h = 0; h < 24; h++) {
for (w = 0; w < 360; w++) {
if (src[w] == 0)
dst[w] = src[w];
if (src[w] == 113 || src[w] == 116 || src[w] == 252) {
dst[w] = src[w];
src[w] = 0;
}
}
dst -= _backGroundBuf->pitch;
src -= _backGroundBuf->pitch;
}
}
void AGOSEngine_Feeble::oracleLogo() {
Common::Rect srcRect, dstRect;
byte *src, *dst;
uint16 w, h;
dstRect.left = 16;
dstRect.top = 16;
dstRect.right = 58;
dstRect.bottom = 59;
srcRect.left = 0;
srcRect.top = 0;
srcRect.right = 42;
srcRect.bottom = 43;
src = _iconFilePtr;
dst = getBackBuf() + _backBuf->pitch * dstRect.top + dstRect.left;
for (h = 0; h < dstRect.height(); h++) {
for (w = 0; w < dstRect.width(); w++) {
if (src[w])
dst[w] = src[w];
}
src += 336;
dst += _backBuf->pitch;
}
}
void AGOSEngine_Feeble::swapCharacterLogo() {
Common::Rect srcRect, dstRect;
byte *src, *dst;
uint16 w, h;
int x;
dstRect.left = 64;
dstRect.top = 16;
dstRect.right = 106;
dstRect.bottom = 59;
srcRect.top = 0;
srcRect.bottom = 43;
x = _variableArray[91];
if (x > _variableArray[90])
x--;
if (x < _variableArray[90])
x++;
_variableArray[91] = x;
x++;
x *= 42;
srcRect.left = x;
srcRect.right = srcRect.left + 42;
src = _iconFilePtr + srcRect.top * 336 + srcRect.left;
dst = getBackBuf() + _backBuf->pitch * dstRect.top + dstRect.left;
for (h = 0; h < dstRect.height(); h++) {
for (w = 0; w < dstRect.width(); w++) {
if (src[w])
dst[w] = src[w];
}
src += 336;
dst += _backBuf->pitch;
}
}
void AGOSEngine_Feeble::listSaveGamesFeeble() {
char b[108];
Common::InSaveFile *in;
uint16 j, k, z, maxFiles;
int OK;
memset(b, 0, 108);
maxFiles = countSaveGames() - 1;
j = maxFiles;
k = 1;
z = maxFiles;
if (getBitFlag(95)) {
j++;
z++;
}
while (!shouldQuit()) {
OK = 1;
if (getBitFlag(93) || getBitFlag(94)) {
OK = 0;
if (j > z)
break;
}
if (getBitFlag(93)) {
if (((_newLines + 1) >= _textWindow->scrollY) && ((_newLines + 1) < (_textWindow->scrollY + 3)))
OK = 1;
}
if (getBitFlag(94)) {
if ((_newLines + 1) == (_textWindow->scrollY + 7))
OK = 1;
}
if (OK == 1) {
if (j == maxFiles + 1) {
showMessageFormat("\n");
hyperLinkOn(j + 400);
setTextColor(116);
showMessageFormat(" %d. ", 1);
hyperLinkOff();
setTextColor(113);
k++;
j--;
}
if (!(in = _saveFileMan->openForLoading(genSaveName(j))))
break;
in->read(b, 100);
delete in;
}
showMessageFormat("\n");
hyperLinkOn(j + 400);
setTextColor(116);
if (k < 10)
showMessageFormat(" ");
showMessageFormat("%d. ", k);
setTextColor(113);
showMessageFormat("%s ", b);
hyperLinkOff();
j--;
k++;
}
}
void AGOSEngine_Feeble::saveUserGame(int slot) {
WindowBlock *window;
Common::InSaveFile *in;
char name[108];
int len;
memset(name, 0, 108);
window = _windowArray[3];
window->textRow = (slot + 1 - window->scrollY) * 15;
window->textColumn = 26;
if ((in = _saveFileMan->openForLoading(genSaveName(readVariable(55))))) {
in->read(name, 100);
delete in;
}
len = 0;
while (name[len]) {
byte chr = name[len];
window->textColumn += getFeebleFontSize(chr);
len++;
}
windowPutChar(window, 0x7f);
while (!shouldQuit()) {
_keyPressed.reset();
delay(1);
if (_keyPressed.ascii == 0 || _keyPressed.ascii >= 127)
continue;
window->textColumn -= getFeebleFontSize(127);
name[len] = 0;
windowBackSpace(_windowArray[3]);
if (_keyPressed.keycode == Common::KEYCODE_ESCAPE) {
_variableArray[55] = 27;
break;
}
if (_keyPressed.keycode == Common::KEYCODE_KP_ENTER || _keyPressed.keycode == Common::KEYCODE_RETURN) {
if (!saveGame(readVariable(55), name))
_variableArray[55] = (int16)0xFFFF;
else
_variableArray[55] = 0;
break;
}
if (_keyPressed.keycode == Common::KEYCODE_BACKSPACE && len != 0) {
len--;
byte chr = name[len];
window->textColumn -= getFeebleFontSize(chr);
name[len] = 0;
windowBackSpace(_windowArray[3]);
}
if (_keyPressed.ascii >= 32 && window->textColumn + 26 <= window->width) {
name[len++] = _keyPressed.ascii;
windowPutChar(_windowArray[3], _keyPressed.ascii);
}
windowPutChar(window, 0x7f);
}
}
void AGOSEngine_Feeble::windowBackSpace(WindowBlock *window) {
byte *dst;
uint x, y, h, w;
_videoLockOut |= 0x8000;
x = window->x + window->textColumn;
y = window->y + window->textRow;
dst = getBackGround() + _backGroundBuf->pitch * y + x;
for (h = 0; h < 13; h++) {
for (w = 0; w < 8; w++) {
if (dst[w] == 113 || dst[w] == 116 || dst[w] == 252)
dst[w] = 0;
}
dst += _backGroundBuf->pitch;
}
_videoLockOut &= ~0x8000;
}
} // End of namespace AGOS
#endif // ENABLE_AGOS2
Reference in New Issue View Git Blame Copy Permalink