/* 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/file.h" #include "agos/agos.h" namespace AGOS { void AGOSEngine::loadIconFile() { Common::File in; uint size; in.open(getFileName(GAME_ICONFILE)); if (in.isOpen() == false) error("Can't open icons file '%s'", getFileName(GAME_ICONFILE)); size = in.size(); _iconFilePtr = (byte *)malloc(size); if (_iconFilePtr == NULL) error("Out of icon memory"); in.read(_iconFilePtr, size); in.close(); } void AGOSEngine::loadIconData() { loadZone(8); VgaPointersEntry *vpe = &_vgaBufferPointers[8]; byte *src = vpe->vgaFile2 + READ_LE_UINT32(vpe->vgaFile2 + 8); _iconFilePtr = (byte *)malloc(43 * 336); if (_iconFilePtr == NULL) error("Out of icon memory"); memcpy(_iconFilePtr, src, 43 * 336); unfreezeBottom(); } // Thanks to Stuart Caie for providing the original // C conversion upon which this function is based. static void decompressIconPlanar(byte *dst, byte *src, uint width, uint height, byte base, uint pitch, bool decompress = true) { byte icon_pln[288]; byte *i, *o, *srcPtr, x, y; srcPtr = src; if (decompress) { // Decode RLE planar icon data i = src; o = icon_pln; while (o < &icon_pln[288]) { x = *i++; if (x < 128) { do { *o++ = *i++; *o++ = *i++; *o++ = *i++; } while (x-- > 0); } else { x = 256 - x; do { *o++ = i[0]; *o++ = i[1]; *o++ = i[2]; } while (x-- > 0); i += 3; } } srcPtr = icon_pln; } // Translate planar data to chunky (very slow method) for (y = 0; y < 24; y++) { for (x = 0; x < 24; x++) { byte pixel = (srcPtr[(( y) * 3) + (x >> 3)] & (1 << (7 - (x & 7))) ? 1 : 0) | (srcPtr[((24 + y) * 3) + (x >> 3)] & (1 << (7 - (x & 7))) ? 2 : 0) | (srcPtr[((48 + y) * 3) + (x >> 3)] & (1 << (7 - (x & 7))) ? 4 : 0) | (srcPtr[((72 + y) * 3) + (x >> 3)] & (1 << (7 - (x & 7))) ? 8 : 0); if (pixel) dst[x] = pixel | base; } dst += pitch; } } static void decompressIcon(byte *dst, byte *src, uint width, uint height, byte base, uint pitch) { int8 reps; byte color_1, color_2; byte *dst_org = dst; uint h = height; for (;;) { reps = *src++; if (reps < 0) { reps--; color_1 = *src >> 4; if (color_1 != 0) color_1 |= base; color_2 = *src++ & 0xF; if (color_2 != 0) color_2 |= base; do { if (color_1 != 0) *dst = color_1; dst += pitch; if (color_2 != 0) *dst = color_2; dst += pitch; // reached bottom? if (--h == 0) { // reached right edge? if (--width == 0) return; dst = ++dst_org; h = height; } } while (++reps != 0); } else { do { color_1 = *src >> 4; if (color_1 != 0) *dst = color_1 | base; dst += pitch; color_2 = *src++ & 0xF; if (color_2 != 0) *dst = color_2 | base; dst += pitch; // reached bottom? if (--h == 0) { // reached right edge? if (--width == 0) return; dst = ++dst_org; h = height; } } while (--reps >= 0); } } } void AGOSEngine_Simon2::drawIcon(WindowBlock *window, uint icon, uint x, uint y) { byte *dst; byte *src; _lockWord |= 0x8000; dst = getFrontBuf(); dst += 110; dst += x; dst += (y + window->y) * _dxSurfacePitch; src = _iconFilePtr; src += READ_LE_UINT16(&((uint16 *)src)[icon * 2 + 0]); decompressIcon(dst, src, 20, 10, 224, _dxSurfacePitch); src = _iconFilePtr; src += READ_LE_UINT16(&((uint16 *)src)[icon * 2 + 1]); decompressIcon(dst, src, 20, 10, 208, _dxSurfacePitch); _lockWord &= ~0x8000; } void AGOSEngine_Simon1::drawIcon(WindowBlock *window, uint icon, uint x, uint y) { byte *dst; byte *src; _lockWord |= 0x8000; dst = getFrontBuf(); dst += (x + window->x) * 8; dst += (y * 25 + window->y) * _dxSurfacePitch; if (getPlatform() == Common::kPlatformAmiga) { src = _iconFilePtr; src += READ_BE_UINT32(&((uint32 *)src)[icon]); uint8 color = (getFeatures() & GF_32COLOR) ? 16 : 240; decompressIconPlanar(dst, src, 24, 24, color, _dxSurfacePitch); } else { src = _iconFilePtr; src += READ_LE_UINT16(&((uint16 *)src)[icon]); decompressIcon(dst, src, 24, 12, 224, _dxSurfacePitch); } _lockWord &= ~0x8000; } void AGOSEngine_Waxworks::drawIcon(WindowBlock *window, uint icon, uint x, uint y) { byte *dst; byte *src; _lockWord |= 0x8000; dst = getFrontBuf(); dst += (x + window->x) * 8; dst += (y * 20 + window->y) * _dxSurfacePitch; uint8 color = dst[0] & 0xF0; if (getPlatform() == Common::kPlatformAmiga) { // TODO return; } else { src = _iconFilePtr; src += READ_LE_UINT16(&((uint16 *)src)[icon]); decompressIcon(dst, src, 24, 10, color, _dxSurfacePitch); } _lockWord &= ~0x8000; } void AGOSEngine_Elvira2::drawIcon(WindowBlock *window, uint icon, uint x, uint y) { byte *dst; byte *src; _lockWord |= 0x8000; dst = getFrontBuf(); dst += (x + window->x) * 8; dst += (y * 8 + window->y) * _dxSurfacePitch; uint color = dst[0] & 0xF0; if (getFeatures() & GF_PLANAR) { src = _iconFilePtr; src += READ_BE_UINT32(&((uint32 *)src)[icon]); decompressIconPlanar(dst, src, 24, 24, color, _dxSurfacePitch); } else { src = _iconFilePtr; src += READ_LE_UINT16(&((uint16 *)src)[icon]); decompressIcon(dst, src, 24, 12, color, _dxSurfacePitch); } _lockWord &= ~0x8000; } void AGOSEngine::drawIcon(WindowBlock *window, uint icon, uint x, uint y) { byte *dst; byte *src; _lockWord |= 0x8000; dst = getFrontBuf(); dst += (x + window->x) * 8; dst += (y * 8 + window->y) * _dxSurfacePitch; if (getFeatures() & GF_PLANAR) { src = _iconFilePtr; src += READ_BE_UINT16(&((uint16 *)src)[icon]); decompressIconPlanar(dst, src, 24, 24, 16, _dxSurfacePitch); } else { src = _iconFilePtr; src += icon * 288; decompressIconPlanar(dst, src, 24, 24, 16, _dxSurfacePitch, false); } _lockWord &= ~0x8000; } void AGOSEngine_Feeble::drawIconArray(uint num, Item *itemRef, int line, int classMask) { Item *item_ptr_org = itemRef; WindowBlock *window; uint16 flagnumber = 201; uint16 iconperline = 458; uint16 iconsdown = 384; uint16 idone = 0; uint16 icount = 0; uint16 xp = 188, yp = 306; int k; _iOverflow = 0; line = _variableArray[30]; if (line == 0) _variableArray[31] = 0; window = _windowArray[num & 7]; if (window == NULL) return; for (k = flagnumber; k <= flagnumber + 18; k++) _variableArray[k] = 0; if (window->iconPtr) removeIconArray(num); window->iconPtr=(IconBlock *)malloc(sizeof(IconBlock)); window->iconPtr->itemRef = itemRef; window->iconPtr->upArrow = -1; window->iconPtr->downArrow = -1; window->iconPtr->line = line; window->iconPtr->classMask = classMask; itemRef = derefItem(itemRef->child); k = flagnumber; while (itemRef && (line > 65)) { uint16 ct = xp; while (itemRef && ct < iconperline) { if ((classMask == 0) || ((itemRef->classFlags & classMask) != 0)) { if (hasIcon(itemRef)) { ct += 45; k++; } } itemRef = derefItem(itemRef->next); } line -= 52; if (k == (flagnumber + 18)) k = flagnumber; } yp -= line; // Adjust starting y if (itemRef == NULL) { window->iconPtr->line = 0; itemRef = derefItem(item_ptr_org->child); } while (itemRef) { if ((classMask != 0) && ((itemRef->classFlags & classMask) == 0)) goto l1; if (hasIcon(itemRef) == 0) goto l1; if (!idone) { /* * Create thee icon and graphics rendering */ window->iconPtr->iconArray[icount].item = itemRef; _variableArray[k] = itemGetIconNumber(itemRef); window->iconPtr->iconArray[icount++].boxCode = setupIconHitArea(window, k++, xp, yp, itemRef); } else { /* * Just remember the overflow has occured */ window->iconPtr->iconArray[icount].item = NULL; /* END MARKINGS */ _iOverflow = 1; } xp += 45; if (xp >= iconperline) { /* End of line ? */ if (k == (flagnumber + 18)) k = flagnumber; xp = 188; yp += 52; /* Move down */ if (yp >= iconsdown) { /* Full ? */ idone = 1; /* Note completed screen */ } } l1:; itemRef = derefItem(itemRef->next); } window->iconPtr->iconArray[icount].item = NULL; /* END MARKINGS */ if (_variableArray[30] == 0) { if (yp != 306) _variableArray[31] = 52; if ((xp == 188) && (yp == 358)) _variableArray[31] = 0; } /* Plot arrows and add their boxes */ addArrows(window); window->iconPtr->upArrow = _scrollUpHitArea; window->iconPtr->downArrow = _scrollDownHitArea; } void AGOSEngine::drawIconArray(uint num, Item *itemRef, int line, int classMask) { Item *item_ptr_org = itemRef; WindowBlock *window; uint width, height; uint k, i, curWidth; bool item_again, showArrows; uint x_pos, y_pos; const int iconSize = (getGameType() == GType_SIMON2) ? 20 : 1; window = _windowArray[num & 7]; if (getGameType() == GType_SIMON2) { width = 100; height = 40; } else if (getGameType() == GType_WW) { width = window->width / 3; height = window->height / 2; } else { width = window->width / 3; height = window->height / 3; } i = 0; if (window == NULL) return; if (window->iconPtr) removeIconArray(num); window->iconPtr = (IconBlock *) malloc(sizeof(IconBlock)); window->iconPtr->itemRef = itemRef; window->iconPtr->upArrow = -1; window->iconPtr->downArrow = -1; window->iconPtr->line = line; window->iconPtr->classMask = classMask; itemRef = derefItem(itemRef->child); while (itemRef && line-- != 0) { curWidth = 0; while (itemRef && width > curWidth) { if ((classMask == 0 || itemRef->classFlags & classMask) && hasIcon(itemRef)) curWidth += iconSize; itemRef = derefItem(itemRef->next); } } if (itemRef == NULL) { window->iconPtr->line = 0; itemRef = derefItem(item_ptr_org->child); } x_pos = 0; y_pos = 0; k = 0; item_again = false; showArrows = false; while (itemRef) { if ((classMask == 0 || itemRef->classFlags & classMask) && hasIcon(itemRef)) { if (item_again == false) { window->iconPtr->iconArray[k].item = itemRef; if (getGameType() == GType_SIMON2) { drawIcon(window, itemGetIconNumber(itemRef), x_pos, y_pos); window->iconPtr->iconArray[k].boxCode = setupIconHitArea(window, 0, x_pos, y_pos, itemRef); } else if (getGameType() == GType_SIMON1 || getGameType() == GType_WW) { drawIcon(window, itemGetIconNumber(itemRef), x_pos * 3, y_pos); window->iconPtr->iconArray[k].boxCode = setupIconHitArea(window, 0, x_pos * 3, y_pos, itemRef); } else { drawIcon(window, itemGetIconNumber(itemRef), x_pos * 3, y_pos * 3); window->iconPtr->iconArray[k].boxCode = setupIconHitArea(window, 0, x_pos * 3, y_pos * 3, itemRef); } k++; } else { window->iconPtr->iconArray[k].item = NULL; showArrows = 1; } x_pos += iconSize; if (x_pos >= width) { x_pos = 0; y_pos += iconSize; if (y_pos >= height) item_again = true; } } itemRef = derefItem(itemRef->next); } window->iconPtr->iconArray[k].item = NULL; if (showArrows != 0 || window->iconPtr->line != 0) { /* Plot arrows and add their boxes */ addArrows(window); window->iconPtr->upArrow = _scrollUpHitArea; window->iconPtr->downArrow = _scrollDownHitArea; } } uint AGOSEngine_Feeble::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = x; ha->y = y; ha->item_ptr = item_ptr; ha->width = 45; ha->height = 44; ha->flags = kBFBoxInUse | kBFBoxItem; ha->id = num; ha->priority = 100; ha->verb = 208; return ha - _hitAreas; } uint AGOSEngine_Simon2::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = x + 110; ha->y = window->y + y; ha->item_ptr = item_ptr; ha->width = 20; ha->height = 20; ha->flags = kBFDragBox | kBFBoxInUse | kBFBoxItem; ha->id = 0x7FFD; ha->priority = 100; ha->verb = 208; return ha - _hitAreas; } uint AGOSEngine_Simon1::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = (x + window->x) * 8; ha->y = y * 25 + window->y; ha->item_ptr = item_ptr; ha->width = 24; ha->height = 24; ha->flags = kBFDragBox | kBFBoxInUse | kBFBoxItem; ha->id = 0x7FFD; ha->priority = 100; ha->verb = 208; return ha - _hitAreas; } uint AGOSEngine_Waxworks::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = (x + window->x) * 8; ha->y = y * 20 + window->y; ha->item_ptr = item_ptr; ha->width = 24; ha->height = 20; ha->flags = kBFDragBox | kBFBoxInUse | kBFBoxItem; ha->id = 0x7FFD; ha->priority = 100; ha->verb = 208; return ha - _hitAreas; } uint AGOSEngine_Elvira2::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = (x + window->x) * 8; ha->y = y * 8 + window->y; ha->item_ptr = item_ptr; ha->width = 24; ha->height = 24; ha->id = 0x7FFD; ha->priority = 100; if (window->iconPtr->classMask == 2) { ha->flags = kBFDragBox | kBFBoxInUse; ha->verb = 248 + 0x4000; } else { ha->flags = kBFDragBox | kBFBoxInUse | kBFBoxItem; ha->verb = 208; } return ha - _hitAreas; } uint AGOSEngine::setupIconHitArea(WindowBlock *window, uint num, uint x, uint y, Item *item_ptr) { HitArea *ha = findEmptyHitArea(); ha->x = (x + window->x) * 8; ha->y = y * 8 + window->y; ha->item_ptr = item_ptr; ha->width = 24; ha->height = 24; ha->flags = kBFDragBox | kBFBoxInUse | kBFBoxItem; ha->id = 0x7FFD; ha->priority = 100; ha->verb = 253; return ha - _hitAreas; } void AGOSEngine_Feeble::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; ha->x = 496; ha->y = 279; ha->width = 30; ha->height = 45; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 496; ha->y = 324; ha->width = 30; ha->height = 44; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; } void AGOSEngine_Simon2::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; ha->x = 81; ha->y = 158; ha->width = 12; ha->height = 26; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 227; ha->y = 162; ha->width = 12; ha->height = 26; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; } void AGOSEngine_Simon1::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; ha->x = 308; ha->y = 149; ha->width = 12; ha->height = 17; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 308; ha->y = 176; ha->width = 12; ha->height = 17; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; if (getFeatures() & GF_32COLOR) { // TODO: Manually draws arrows } else { stopAnimate(128); uint8 palette = (getPlatform() == Common::kPlatformAmiga) ? 15: 14; animate(0, 1, 128, 0, 0, palette); } } void AGOSEngine_Waxworks::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; setBitFlag(22, true); ha->x = 255; ha->y = 153; ha->width = 9; ha->height = 11; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 255; ha->y = 170; ha->width = 9; ha->height = 11; ha->flags = kBFBoxInUse | kBFNoTouchName; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; setWindowImageEx(6, 103); } void AGOSEngine_Elvira2::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; setBitFlag(21, true); ha->x = 54; ha->y = 154; ha->width = 12; ha->height = 10; ha->flags = kBFBoxInUse; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 54; ha->y = 178; ha->width = 12; ha->height = 10; ha->flags = kBFBoxInUse; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; setWindowImageEx(6, 106); } void AGOSEngine::addArrows(WindowBlock *window) { HitArea *ha; ha = findEmptyHitArea(); _scrollUpHitArea = ha - _hitAreas; ha->x = 30 * 8; ha->y = 151; ha->width = 16; ha->height = 19; ha->flags = kBFBoxInUse; ha->id = 0x7FFB; ha->priority = 100; ha->window = window; ha->verb = 1; ha = findEmptyHitArea(); _scrollDownHitArea = ha - _hitAreas; ha->x = 30 * 8; ha->y = 170; ha->width = 16; ha->height = 19; ha->flags = kBFBoxInUse; ha->id = 0x7FFC; ha->priority = 100; ha->window = window; ha->verb = 1; } void AGOSEngine::removeArrows(WindowBlock *window, uint num) { if (getGameType() == GType_SIMON1) { if (getFeatures() & GF_32COLOR) { // TODO: Manually removes arrows } else { stopAnimate(129); uint8 palette = (getPlatform() == Common::kPlatformAmiga) ? 15: 14; animate(0, 1, 129, 0, 0, palette); } } else if (getGameType() == GType_WW) { setBitFlag(22, false); setWindowImageEx(6, 103); } else if (getGameType() == GType_ELVIRA2) { setBitFlag(21, false); setWindowImageEx(6, 106); } } void AGOSEngine::removeIconArray(uint num) { WindowBlock *window; uint16 curWindow; uint16 i; window = _windowArray[num & 7]; curWindow = _curWindow; if (window == NULL || window->iconPtr == NULL) return; if (getGameType() != GType_FF && getGameType() != GType_PP) { changeWindow(num); sendWindow(12); changeWindow(curWindow); } for (i = 0; window->iconPtr->iconArray[i].item != NULL; i++) { freeBox(window->iconPtr->iconArray[i].boxCode); } if (window->iconPtr->upArrow != -1) { freeBox(window->iconPtr->upArrow); } if (window->iconPtr->downArrow != -1) { freeBox(window->iconPtr->downArrow); removeArrows(window, num); } free(window->iconPtr); window->iconPtr = NULL; _fcsData1[num] = 0; _fcsData2[num] = 0; } } // End of namespace AGOS