mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-21 09:21:08 +00:00
522 lines
11 KiB
C++
522 lines
11 KiB
C++
/* ScummVM - Scumm Interpreter
|
|
* Copyright (C) 2001 Ludvig Strigeus
|
|
* Copyright (C) 2001-2006 The ScummVM project
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
* $URL$
|
|
* $Id$
|
|
*
|
|
*/
|
|
|
|
#include "common/stdafx.h"
|
|
|
|
#include "common/savefile.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 (1) {
|
|
if (_currentBox->id != 0x7FFB || !getBitFlag(89))
|
|
break;
|
|
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 (1) {
|
|
if (_currentBox->id != 0x7FFC || !getBitFlag(89))
|
|
break;
|
|
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 (1) {
|
|
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 (_currentBox->id != 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 (1) {
|
|
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 (_currentBox->id != 600 || !getBitFlag(89))
|
|
break;
|
|
delay(100);
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Feeble::scrollOracleUp() {
|
|
byte *src, *dst;
|
|
uint16 w, h;
|
|
|
|
dst = getFrontBuf() + 103 * _screenWidth + 136;
|
|
src = getFrontBuf() + 106 * _screenWidth + 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 += _screenWidth;
|
|
src += _screenWidth;
|
|
}
|
|
|
|
for (h = 0; h < 80; h++) {
|
|
memcpy(dst, src, 360);
|
|
dst += _screenWidth;
|
|
src += _screenWidth;
|
|
}
|
|
|
|
for (h = 0; h < 3; h++) {
|
|
memset(dst, 0, 360);
|
|
dst += _screenWidth;
|
|
src += _screenWidth;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Feeble::scrollOracleDown() {
|
|
byte *src, *dst;
|
|
uint16 w, h;
|
|
|
|
src = getFrontBuf() + 203 * _screenWidth + 136;
|
|
dst = getFrontBuf() + 206 * _screenWidth + 136;
|
|
|
|
for (h = 0; h < 77; h++) {
|
|
memcpy(dst, src, 360);
|
|
dst -= _screenWidth;
|
|
src -= _screenWidth;
|
|
}
|
|
|
|
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 -= _screenWidth;
|
|
src -= _screenWidth;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine::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() + _screenWidth * 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 += _screenWidth;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine::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() + _screenWidth * 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 += _screenWidth;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Feeble::listSaveGames(int n) {
|
|
char b[108];
|
|
Common::InSaveFile *in;
|
|
uint16 j, k, z, maxFiles;
|
|
int OK;
|
|
memset(b, 0, 108);
|
|
|
|
maxFiles = countSaveGames() - 1;
|
|
j = maxFiles - n + 1;
|
|
k = maxFiles - j + 1;
|
|
z = maxFiles;
|
|
if (getBitFlag(95)) {
|
|
j++;
|
|
z++;
|
|
}
|
|
|
|
while (1) {
|
|
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);
|
|
for (;;) {
|
|
_keyPressed = 0;
|
|
delay(1);
|
|
|
|
if (_keyPressed == 0 || _keyPressed >= 127)
|
|
continue;
|
|
|
|
window->textColumn -= getFeebleFontSize(127);
|
|
name[len] = 0;
|
|
windowBackSpace(_windowArray[3]);
|
|
|
|
if (_keyPressed == 27) {
|
|
_variableArray[55] = _keyPressed;
|
|
break;
|
|
}
|
|
if (_keyPressed == 10 || _keyPressed == 13) {
|
|
if (!saveGame(readVariable(55), name))
|
|
_variableArray[55] = (int16)0xFFFF;
|
|
else
|
|
_variableArray[55] = 0;
|
|
break;
|
|
}
|
|
if (_keyPressed == 8 && len != 0) {
|
|
len--;
|
|
byte chr = name[len];
|
|
window->textColumn -= getFeebleFontSize(chr);
|
|
name[len] = 0;
|
|
windowBackSpace(_windowArray[3]);
|
|
}
|
|
if (_keyPressed >= 32 && window->textColumn + 26 <= window->width) {
|
|
name[len++] = _keyPressed;
|
|
windowPutChar(_windowArray[3], _keyPressed);
|
|
}
|
|
|
|
windowPutChar(window, 0x7f);
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Feeble::windowBackSpace(WindowBlock *window) {
|
|
byte *dst;
|
|
uint x, y, h, w;
|
|
|
|
_lockWord |= 0x8000;
|
|
|
|
x = window->x + window->textColumn;
|
|
y = window->y + window->textRow;
|
|
|
|
dst = getFrontBuf() + _dxSurfacePitch * 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 += _screenWidth;
|
|
}
|
|
|
|
_lockWord &= ~0x8000;
|
|
}
|
|
|
|
} // End of namespace AGOS
|