libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-28 20:55:19 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
1dc88c5855
scummvm/akos.cpp
James Brown 21e14b44c5 Add raw PCM part to dig .bun decompressor. 
svn-id: r4219
2002-05-06 15:32:32 +00:00

1248 lines
28 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001/2002 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Header$
*
*/
#include "stdafx.h"
#include "scumm.h"
bool Scumm::akos_hasManyDirections(Actor * a)
{
if (_features & GF_NEW_COSTUMES) {
byte *akos;
AkosHeader *akhd;
akos = getResourceAddress(rtCostume, a->costume);
assert(akos);
akhd = (AkosHeader *) findResourceData(MKID('AKHD'), akos);
return (akhd->flags & 2) != 0;
}
return 0;
}
int Scumm::akos_findManyDirection(int16 ManyDirection, uint16 facing)
{
int32 direction;
int32 temp;
temp = many_direction_tab[ManyDirection];
direction = temp + ManyDirection * 8;
do {
if (facing >= many_direction_tab[direction + 1]) {
if (facing <= many_direction_tab[direction + 2]) {
return (temp);
}
}
--temp;
--direction;
} while (temp);
return (temp);
}
int Scumm::akos_frameToAnim(Actor * a, int frame)
{
bool ManyDirection;
ManyDirection = akos_hasManyDirections(a);
if (ManyDirection) {
frame *= many_direction_tab[ManyDirection];
return akos_findManyDirection(ManyDirection, a->facing) + frame;
} else {
return newDirToOldDir(a->facing) + frame * 4;
}
}
void Scumm::akos_decodeData(Actor * a, int frame, uint usemask)
{
uint anim;
byte *akos, *r;
AkosHeader *akhd;
uint offs;
int i;
byte code;
uint16 start, len;
uint16 mask;
if (a->costume == 0)
return;
anim = akos_frameToAnim(a, frame);
akos = getResourceAddress(rtCostume, a->costume);
assert(akos);
akhd = (AkosHeader *) findResourceData(MKID('AKHD'), akos);
if (anim >= READ_LE_UINT16(&akhd->num_anims))
return;
r = findResourceData(MKID('AKCH'), akos);
assert(r);
offs = READ_LE_UINT16(r + anim * sizeof(uint16));
if (offs == 0)
return;
r += offs;
i = 0;
mask = READ_LE_UINT16(r);
r += sizeof(uint16);
do {
if (mask & 0x8000) {
code = *r++;
if (usemask & 0x8000) {
switch (code) {
case 1:
a->cost.active[i] = 0;
a->cost.frame[i] = frame;
a->cost.end[i] = 0;
a->cost.start[i] = 0;
a->cost.curpos[i] = 0;
break;
case 4:
a->cost.stopped |= 1 << i;
break;
case 5:
a->cost.stopped &= ~(1 << i);
break;
default:
start = READ_LE_UINT16(r);
len = READ_LE_UINT16(r + sizeof(uint16));
r += sizeof(uint16) * 2;
a->cost.active[i] = code;
a->cost.frame[i] = frame;
a->cost.end[i] = start + len;
a->cost.start[i] = start;
a->cost.curpos[i] = start;
break;
}
} else {
if (code != 1 && code != 4 && code != 5)
r += sizeof(uint16) * 2;
}
}
i++;
mask <<= 1;
usemask <<= 1;
} while ((uint16)mask);
}
void Scumm::akos_setPalette(AkosRenderer * ar, byte *palette)
{
byte *akpl;
uint size, i;
akpl = findResourceData(MKID('AKPL'), ar->akos);
size = getResourceDataSize(akpl);
if (size > 256)
error("akos_setPalette: %d is too many colors", size);
for (i = 0; i < size; i++) {
ar->palette[i] = palette[i] != 0xFF ? palette[i] : akpl[i];
}
}
void Scumm::akos_setCostume(AkosRenderer * ar, int costume)
{
ar->akos = getResourceAddress(rtCostume, costume);
assert(ar->akos);
ar->akhd = (AkosHeader *) findResourceData(MKID('AKHD'), ar->akos);
ar->akof = (AkosOffset *) findResourceData(MKID('AKOF'), ar->akos);
ar->akci = findResourceData(MKID('AKCI'), ar->akos);
ar->aksq = findResourceData(MKID('AKSQ'), ar->akos);
ar->akcd = findResourceData(MKID('AKCD'), ar->akos);
ar->akpl = findResourceData(MKID('AKPL'), ar->akos);
ar->codec = READ_LE_UINT16(&ar->akhd->codec);
}
void Scumm::akos_setFacing(AkosRenderer * ar, Actor * a)
{
ar->mirror = (newDirToOldDir(a->facing) != 0 || ar->akhd->flags & 1);
if (a->flip)
ar->mirror ^= 1;
}
bool Scumm::akos_drawCostume(AkosRenderer * ar)
{
int i;
bool result = false;
ar->move_x = ar->move_y = 0;
for (i = 0; i < 16; i++)
result |= akos_drawCostumeChannel(ar, i);
return result;
}
bool Scumm::akos_drawCostumeChannel(AkosRenderer * ar, int chan)
{
uint code;
byte *p;
AkosOffset *off;
AkosCI *akci;
uint i, extra;
if (!ar->cd->active[chan] || ar->cd->stopped & (1 << chan))
return false;
p = ar->aksq + ar->cd->curpos[chan];
code = p[0];
if (code & 0x80)
code = (code << 8) | p[1];
if (code == AKC_Return)
return false;
if (code != AKC_ComplexChan) {
off = ar->akof + (code & 0xFFF);
assert((code & 0xFFF) * 6 < READ_BE_UINT32_UNALIGNED((byte *)ar->akof - 4) - 8);
assert((code & 0x7000) == 0);
ar->srcptr = ar->akcd + READ_LE_UINT32(&off->akcd);
akci = (AkosCI *) (ar->akci + READ_LE_UINT16(&off->akci));
ar->move_x_cur = ar->move_x + (int16) READ_LE_UINT16(&akci->rel_x);
ar->move_y_cur = ar->move_y + (int16) READ_LE_UINT16(&akci->rel_y);
ar->width = READ_LE_UINT16(&akci->width);
ar->height = READ_LE_UINT16(&akci->height);
ar->move_x += (int16) READ_LE_UINT16(&akci->move_x);
ar->move_y -= (int16) READ_LE_UINT16(&akci->move_y);
switch (ar->codec) {
case 1:
akos_codec1(ar);
break;
case 5:
akos_codec5(ar);
break;
case 16:
akos_codec16(ar);
break;
default:
error("akos_drawCostumeChannel: invalid codec %d", ar->codec);
}
} else {
extra = p[2];
p += 3;
for (i = 0; i != extra; i++) {
code = p[4];
if (code & 0x80)
code = ((code & 0xF) << 8) | p[5];
off = ar->akof + code;
ar->srcptr = ar->akcd + READ_LE_UINT32(&off->akcd);
akci = (AkosCI *) (ar->akci + READ_LE_UINT16(&off->akci));
ar->move_x_cur = ar->move_x + (int16) READ_LE_UINT16(p + 0);
ar->move_y_cur = ar->move_y + (int16) READ_LE_UINT16(p + 2);
p += (p[4] & 0x80) ? 6 : 5;
ar->width = READ_LE_UINT16(&akci->width);
ar->height = READ_LE_UINT16(&akci->height);
switch (ar->codec) {
case 1:
akos_codec1(ar);
break;
case 5:
akos_codec5(ar);
break;
case 16:
akos_codec16(ar);
break;
default:
error("akos_drawCostumeChannel: invalid codec %d", ar->codec);
}
}
}
return true;
}
void akos_c1_0y_decode(AkosRenderer * ar)
{
byte len, color;
byte *src, *dst;
int height;
uint y;
uint scrheight;
len = ar->v1.replen;
src = ar->srcptr;
dst = ar->v1.destptr;
color = ar->v1.repcolor;
scrheight = ar->outheight;
height = ar->height;
y = ar->v1.y;
if (len)
goto StartPos;
do {
len = *src++;
color = len >> ar->v1.shl;
len &= ar->v1.mask;
if (!len)
len = *src++;
do {
if (color && y < scrheight) {
*dst = ar->palette[color];
}
dst += ar->outwidth;
y++;
if (!--height) {
if (!--ar->v1.skip_width)
return;
dst -= ar->v1.y_pitch;
height = ar->height;
y = ar->v1.y;
}
StartPos:;
} while (--len);
} while (1);
}
void akos_generic_decode(AkosRenderer * ar)
{
byte *src, *dst;
byte len, height, maskbit;
uint y, color;
const byte *scaleytab, *mask;
y = ar->v1.y;
len = ar->v1.replen;
src = ar->srcptr;
dst = ar->v1.destptr;
color = ar->v1.repcolor;
height = ar->height;
scaleytab = &ar->v1.scaletable[ar->v1.tmp_y];
maskbit = revBitMask[ar->v1.x & 7];
mask = ar->v1.mask_ptr + (ar->v1.x >> 3);
if (len)
goto StartPos;
do {
len = *src++;
color = len >> ar->v1.shl;
len &= ar->v1.mask;
if (!len)
len = *src++;
do {
if (*scaleytab++ < ar->scale_y) {
if (color && y < ar->outheight
&& (!ar->v1.mask_ptr
|| !((mask[0] | mask[ar->v1.imgbufoffs]) & maskbit))) {
*dst = ar->palette[color];
}
mask += 40;
dst += ar->outwidth;
y++;
}
if (!--height) {
if (!--ar->v1.skip_width)
return;
height = ar->height;
y = ar->v1.y;
scaleytab = &ar->v1.scaletable[ar->v1.tmp_y];
if (ar->v1.scaletable[ar->v1.tmp_x] < ar->scale_x) {
ar->v1.x += ar->v1.scaleXstep;
if ((uint) ar->v1.x >= 320)
return;
maskbit = revBitMask[ar->v1.x & 7];
ar->v1.destptr += ar->v1.scaleXstep;
}
mask = ar->v1.mask_ptr + (ar->v1.x >> 3);
ar->v1.tmp_x += ar->v1.scaleXstep;
dst = ar->v1.destptr;
}
StartPos:;
} while (--len);
} while (1);
}
void akos_c1_spec1(AkosRenderer * ar)
{
byte *src, *dst;
byte len, height, pcolor, maskbit;
uint y, color;
const byte *scaleytab, *mask;
y = ar->v1.y;
len = ar->v1.replen;
src = ar->srcptr;
dst = ar->v1.destptr;
color = ar->v1.repcolor;
height = ar->height;
scaleytab = &ar->v1.scaletable[ar->v1.tmp_y];
maskbit = revBitMask[ar->v1.x & 7];
mask = ar->v1.mask_ptr + (ar->v1.x >> 3);
if (len)
goto StartPos;
do {
len = *src++;
color = len >> ar->v1.shl;
len &= ar->v1.mask;
if (!len)
len = *src++;
do {
if (*scaleytab++ < ar->scale_y) {
if (color && y < ar->outheight
&& (!ar->v1.mask_ptr
|| !((mask[0] | mask[ar->v1.imgbufoffs]) & maskbit))) {
pcolor = ar->palette[color];
if (pcolor == 13)
pcolor = ar->shadow_table[*dst];
*dst = pcolor;
}
mask += 40;
dst += ar->outwidth;
y++;
}
if (!--height) {
if (!--ar->v1.skip_width)
return;
height = ar->height;
y = ar->v1.y;
scaleytab = &ar->v1.scaletable[ar->v1.tmp_y];
if (ar->v1.scaletable[ar->v1.tmp_x] < ar->scale_x) {
ar->v1.x += ar->v1.scaleXstep;
if ((uint) ar->v1.x >= 320)
return;
maskbit = revBitMask[ar->v1.x & 7];
ar->v1.destptr += ar->v1.scaleXstep;
}
mask = ar->v1.mask_ptr + (ar->v1.x >> 3);
ar->v1.tmp_x += ar->v1.scaleXstep;
dst = ar->v1.destptr;
}
StartPos:;
} while (--len);
} while (1);
}
const byte default_scale_table[768] = {
0x00, 0x80, 0x40, 0xC0, 0x20, 0xA0, 0x60, 0xE0,
0x10, 0x90, 0x50, 0xD0, 0x30, 0xB0, 0x70, 0xF0,
0x08, 0x88, 0x48, 0xC8, 0x28, 0xA8, 0x68, 0xE8,
0x18, 0x98, 0x58, 0xD8, 0x38, 0xB8, 0x78, 0xF8,
0x04, 0x84, 0x44, 0xC4, 0x24, 0xA4, 0x64, 0xE4,
0x14, 0x94, 0x54, 0xD4, 0x34, 0xB4, 0x74, 0xF4,
0x0C, 0x8C, 0x4C, 0xCC, 0x2C, 0xAC, 0x6C, 0xEC,
0x1C, 0x9C, 0x5C, 0xDC, 0x3C, 0xBC, 0x7C, 0xFC,
0x02, 0x82, 0x42, 0xC2, 0x22, 0xA2, 0x62, 0xE2,
0x12, 0x92, 0x52, 0xD2, 0x32, 0xB2, 0x72, 0xF2,
0x0A, 0x8A, 0x4A, 0xCA, 0x2A, 0xAA, 0x6A, 0xEA,
0x1A, 0x9A, 0x5A, 0xDA, 0x3A, 0xBA, 0x7A, 0xFA,
0x06, 0x86, 0x46, 0xC6, 0x26, 0xA6, 0x66, 0xE6,
0x16, 0x96, 0x56, 0xD6, 0x36, 0xB6, 0x76, 0xF6,
0x0E, 0x8E, 0x4E, 0xCE, 0x2E, 0xAE, 0x6E, 0xEE,
0x1E, 0x9E, 0x5E, 0xDE, 0x3E, 0xBE, 0x7E, 0xFE,
0x01, 0x81, 0x41, 0xC1, 0x21, 0xA1, 0x61, 0xE1,
0x11, 0x91, 0x51, 0xD1, 0x31, 0xB1, 0x71, 0xF1,
0x09, 0x89, 0x49, 0xC9, 0x29, 0xA9, 0x69, 0xE9,
0x19, 0x99, 0x59, 0xD9, 0x39, 0xB9, 0x79, 0xF9,
0x05, 0x85, 0x45, 0xC5, 0x25, 0xA5, 0x65, 0xE5,
0x15, 0x95, 0x55, 0xD5, 0x35, 0xB5, 0x75, 0xF5,
0x0D, 0x8D, 0x4D, 0xCD, 0x2D, 0xAD, 0x6D, 0xED,
0x1D, 0x9D, 0x5D, 0xDD, 0x3D, 0xBD, 0x7D, 0xFD,
0x03, 0x83, 0x43, 0xC3, 0x23, 0xA3, 0x63, 0xE3,
0x13, 0x93, 0x53, 0xD3, 0x33, 0xB3, 0x73, 0xF3,
0x0B, 0x8B, 0x4B, 0xCB, 0x2B, 0xAB, 0x6B, 0xEB,
0x1B, 0x9B, 0x5B, 0xDB, 0x3B, 0xBB, 0x7B, 0xFB,
0x07, 0x87, 0x47, 0xC7, 0x27, 0xA7, 0x67, 0xE7,
0x17, 0x97, 0x57, 0xD7, 0x37, 0xB7, 0x77, 0xF7,
0x0F, 0x8F, 0x4F, 0xCF, 0x2F, 0xAF, 0x6F, 0xEF,
0x1F, 0x9F, 0x5F, 0xDF, 0x3F, 0xBF, 0x7F, 0xFE,
0x00, 0x80, 0x40, 0xC0, 0x20, 0xA0, 0x60, 0xE0,
0x10, 0x90, 0x50, 0xD0, 0x30, 0xB0, 0x70, 0xF0,
0x08, 0x88, 0x48, 0xC8, 0x28, 0xA8, 0x68, 0xE8,
0x18, 0x98, 0x58, 0xD8, 0x38, 0xB8, 0x78, 0xF8,
0x04, 0x84, 0x44, 0xC4, 0x24, 0xA4, 0x64, 0xE4,
0x14, 0x94, 0x54, 0xD4, 0x34, 0xB4, 0x74, 0xF4,
0x0C, 0x8C, 0x4C, 0xCC, 0x2C, 0xAC, 0x6C, 0xEC,
0x1C, 0x9C, 0x5C, 0xDC, 0x3C, 0xBC, 0x7C, 0xFC,
0x02, 0x82, 0x42, 0xC2, 0x22, 0xA2, 0x62, 0xE2,
0x12, 0x92, 0x52, 0xD2, 0x32, 0xB2, 0x72, 0xF2,
0x0A, 0x8A, 0x4A, 0xCA, 0x2A, 0xAA, 0x6A, 0xEA,
0x1A, 0x9A, 0x5A, 0xDA, 0x3A, 0xBA, 0x7A, 0xFA,
0x06, 0x86, 0x46, 0xC6, 0x26, 0xA6, 0x66, 0xE6,
0x16, 0x96, 0x56, 0xD6, 0x36, 0xB6, 0x76, 0xF6,
0x0E, 0x8E, 0x4E, 0xCE, 0x2E, 0xAE, 0x6E, 0xEE,
0x1E, 0x9E, 0x5E, 0xDE, 0x3E, 0xBE, 0x7E, 0xFE,
0x01, 0x81, 0x41, 0xC1, 0x21, 0xA1, 0x61, 0xE1,
0x11, 0x91, 0x51, 0xD1, 0x31, 0xB1, 0x71, 0xF1,
0x09, 0x89, 0x49, 0xC9, 0x29, 0xA9, 0x69, 0xE9,
0x19, 0x99, 0x59, 0xD9, 0x39, 0xB9, 0x79, 0xF9,
0x05, 0x85, 0x45, 0xC5, 0x25, 0xA5, 0x65, 0xE5,
0x15, 0x95, 0x55, 0xD5, 0x35, 0xB5, 0x75, 0xF5,
0x0D, 0x8D, 0x4D, 0xCD, 0x2D, 0xAD, 0x6D, 0xED,
0x1D, 0x9D, 0x5D, 0xDD, 0x3D, 0xBD, 0x7D, 0xFD,
0x03, 0x83, 0x43, 0xC3, 0x23, 0xA3, 0x63, 0xE3,
0x13, 0x93, 0x53, 0xD3, 0x33, 0xB3, 0x73, 0xF3,
0x0B, 0x8B, 0x4B, 0xCB, 0x2B, 0xAB, 0x6B, 0xEB,
0x1B, 0x9B, 0x5B, 0xDB, 0x3B, 0xBB, 0x7B, 0xFB,
0x07, 0x87, 0x47, 0xC7, 0x27, 0xA7, 0x67, 0xE7,
0x17, 0x97, 0x57, 0xD7, 0x37, 0xB7, 0x77, 0xF7,
0x0F, 0x8F, 0x4F, 0xCF, 0x2F, 0xAF, 0x6F, 0xEF,
0x1F, 0x9F, 0x5F, 0xDF, 0x3F, 0xBF, 0x7F, 0xFE,
0x00, 0x80, 0x40, 0xC0, 0x20, 0xA0, 0x60, 0xE0,
0x10, 0x90, 0x50, 0xD0, 0x30, 0xB0, 0x70, 0xF0,
0x08, 0x88, 0x48, 0xC8, 0x28, 0xA8, 0x68, 0xE8,
0x18, 0x98, 0x58, 0xD8, 0x38, 0xB8, 0x78, 0xF8,
0x04, 0x84, 0x44, 0xC4, 0x24, 0xA4, 0x64, 0xE4,
0x14, 0x94, 0x54, 0xD4, 0x34, 0xB4, 0x74, 0xF4,
0x0C, 0x8C, 0x4C, 0xCC, 0x2C, 0xAC, 0x6C, 0xEC,
0x1C, 0x9C, 0x5C, 0xDC, 0x3C, 0xBC, 0x7C, 0xFC,
0x02, 0x82, 0x42, 0xC2, 0x22, 0xA2, 0x62, 0xE2,
0x12, 0x92, 0x52, 0xD2, 0x32, 0xB2, 0x72, 0xF2,
0x0A, 0x8A, 0x4A, 0xCA, 0x2A, 0xAA, 0x6A, 0xEA,
0x1A, 0x9A, 0x5A, 0xDA, 0x3A, 0xBA, 0x7A, 0xFA,
0x06, 0x86, 0x46, 0xC6, 0x26, 0xA6, 0x66, 0xE6,
0x16, 0x96, 0x56, 0xD6, 0x36, 0xB6, 0x76, 0xF6,
0x0E, 0x8E, 0x4E, 0xCE, 0x2E, 0xAE, 0x6E, 0xEE,
0x1E, 0x9E, 0x5E, 0xDE, 0x3E, 0xBE, 0x7E, 0xFE,
0x01, 0x81, 0x41, 0xC1, 0x21, 0xA1, 0x61, 0xE1,
0x11, 0x91, 0x51, 0xD1, 0x31, 0xB1, 0x71, 0xF1,
0x09, 0x89, 0x49, 0xC9, 0x29, 0xA9, 0x69, 0xE9,
0x19, 0x99, 0x59, 0xD9, 0x39, 0xB9, 0x79, 0xF9,
0x05, 0x85, 0x45, 0xC5, 0x25, 0xA5, 0x65, 0xE5,
0x15, 0x95, 0x55, 0xD5, 0x35, 0xB5, 0x75, 0xF5,
0x0D, 0x8D, 0x4D, 0xCD, 0x2D, 0xAD, 0x6D, 0xED,
0x1D, 0x9D, 0x5D, 0xDD, 0x3D, 0xBD, 0x7D, 0xFD,
0x03, 0x83, 0x43, 0xC3, 0x23, 0xA3, 0x63, 0xE3,
0x13, 0x93, 0x53, 0xD3, 0x33, 0xB3, 0x73, 0xF3,
0x0B, 0x8B, 0x4B, 0xCB, 0x2B, 0xAB, 0x6B, 0xEB,
0x1B, 0x9B, 0x5B, 0xDB, 0x3B, 0xBB, 0x7B, 0xFB,
0x07, 0x87, 0x47, 0xC7, 0x27, 0xA7, 0x67, 0xE7,
0x17, 0x97, 0x57, 0xD7, 0x37, 0xB7, 0x77, 0xF7,
0x0F, 0x8F, 0x4F, 0xCF, 0x2F, 0xAF, 0x6F, 0xEF,
0x1F, 0x9F, 0x5F, 0xDF, 0x3F, 0xBF, 0x7F, 0xFF,
};
void Scumm::akos_codec1(AkosRenderer * ar)
{
int num_colors;
bool use_scaling;
int i, j;
int x, x_right, x_left, skip = 0, tmp_x, tmp_y;
int y, y_top, y_bottom;
bool y_clipping;
bool charsetmask;
bool masking;
int step;
/* implement custom scale table */
if(isGlobInMemory(rtString,_vars[VAR_CUSTOMSCALETABLE])) {
ar->v1.scaletable = getStringAddressVar(VAR_CUSTOMSCALETABLE);
} else {
ar->v1.scaletable = default_scale_table;
}
/* Setup color decoding variables */
num_colors = getResourceDataSize(ar->akpl);
if (num_colors == 32) {
ar->v1.mask = (1 << 3) - 1;
ar->v1.shl = 3;
} else if (num_colors == 64) {
ar->v1.mask = (1 << 2) - 1;
ar->v1.shl = 2;
} else {
ar->v1.mask = (1 << 4) - 1;
ar->v1.shl = 4;
}
use_scaling = (ar->scale_x != 0xFF) || (ar->scale_y != 0xFF);
x = ar->x;
y = ar->y;
if (use_scaling) {
/* Scale direction */
ar->v1.scaleXstep = -1;
if (ar->move_x_cur < 0) {
ar->move_x_cur = -ar->move_x_cur;
ar->v1.scaleXstep = 1;
}
if (ar->mirror) {
/* Adjust X position */
tmp_x = 0x180 - ar->move_x_cur;
j = tmp_x;
for (i = 0; i < ar->move_x_cur; i++) {
if (ar->v1.scaletable[j++] < ar->scale_x)
x -= ar->v1.scaleXstep;
}
x_left = x_right = x;
j = tmp_x;
for (i = 0, skip = 0; i < ar->width; i++) {
if (x_right < 0) {
skip++;
tmp_x = j;
}
if (ar->v1.scaletable[j++] < ar->scale_x)
x_right++;
}
} else {
/* No mirror */
/* Adjust X position */
tmp_x = 0x180 + ar->move_x_cur;
j = tmp_x;
for (i = 0; i < ar->move_x_cur; i++) {
if (ar->v1.scaletable[j++] < ar->scale_x)
x += ar->v1.scaleXstep;
}
x_left = x_right = x;
j = tmp_x;
for (i = 0, skip = 0; i < ar->width; i++) {
if (x_left >= (int)ar->outwidth) {
tmp_x = j;
skip++;
}
if (ar->v1.scaletable[j--] < ar->scale_x)
x_left--;
}
}
if (skip)
skip--;
step = -1;
if (ar->move_y_cur < 0) {
ar->move_y_cur = -ar->move_y_cur;
step = -step;
}
tmp_y = 0x180 - ar->move_y_cur;
for (i = 0; i < ar->move_y_cur; i++) {
if (ar->v1.scaletable[tmp_y++] < ar->scale_y)
y -= step;
}
y_top = y_bottom = y;
tmp_y = 0x180 - ar->move_y_cur;
for (i = 0; i < ar->height; i++) {
if (ar->v1.scaletable[tmp_y++] < ar->scale_y)
y_bottom++;
}
tmp_y = 0x180 - ar->move_y_cur;
} else {
if (!ar->mirror)
ar->move_x_cur = -ar->move_x_cur;
x += ar->move_x_cur;
y += ar->move_y_cur;
if (ar->mirror) {
x_left = x;
x_right = x + ar->width;
} else {
x_right = x;
x_left = x - ar->width;
}
y_top = y;
y_bottom = y + ar->height;
tmp_x = 0x180;
tmp_y = 0x180;
}
ar->v1.tmp_x = tmp_x;
ar->v1.tmp_y = tmp_y;
ar->v1.skip_width = ar->width;
ar->v1.scaleXstep = -1;
if (ar->mirror)
ar->v1.scaleXstep = -ar->v1.scaleXstep;
if ((uint) y_top >= (uint) ar->outheight || y_bottom <= 0)
return;
if ((int)x_left >= (int)ar->outwidth || x_right <= 0)
return;
ar->v1.replen = 0;
ar->v1.y_pitch = ar->height * ar->outwidth;
if (ar->mirror) {
ar->v1.y_pitch--;
if (!use_scaling)
skip = -x;
if (skip > 0) {
ar->v1.skip_width -= skip;
akos_codec1_ignorePakCols(ar, skip);
x = 0;
} else {
skip = x_right - ar->outwidth;
if (skip > 0)
ar->v1.skip_width -= skip;
}
} else {
ar->v1.y_pitch++;
if (!use_scaling) {
skip = x_right - ar->outwidth + 1;
}
if (skip > 0) {
ar->v1.skip_width -= skip;
akos_codec1_ignorePakCols(ar, skip);
x = ar->outwidth - 1;
} else {
skip = -1 - x_left;
if (skip > 0)
ar->v1.skip_width -= skip;
}
}
ar->v1.x = x;
ar->v1.y = y;
if (ar->v1.skip_width <= 0 || ar->height <= 0)
return;
updateDirtyRect(0, x_left, x_right, y_top, y_bottom, 1 << ar->dirty_id);
y_clipping = ((uint) y_bottom > ar->outheight || y_top < 0);
if ((uint) y_top > (uint) ar->outheight)
y_top = 0;
if ((uint) y_bottom > (uint) ar->outheight)
y_bottom = ar->outheight;
if (y_top < ar->draw_top)
ar->draw_top = y_top;
if (y_bottom > ar->draw_bottom)
ar->draw_bottom = y_bottom;
if (x == -1)
x = 0; /* ?? */
ar->v1.destptr = ar->outptr + x + y * ar->outwidth;
charsetmask = ar->charsetmask;
masking = false;
if (ar->clipping) {
masking = isMaskActiveAt(x_left, y_top, x_right, y_bottom,
getResourceAddress(rtBuffer,
9) +
gdi._imgBufOffs[ar->clipping] +
_screenStartStrip) != 0;
}
ar->v1.mask_ptr = NULL;
if (masking || charsetmask || ar->shadow_mode) {
ar->v1.mask_ptr =
getResourceAddress(rtBuffer, 9) + y * 40 + _screenStartStrip;
ar->v1.imgbufoffs = gdi._imgBufOffs[ar->clipping];
if (!charsetmask && masking) {
ar->v1.mask_ptr += ar->v1.imgbufoffs;
ar->v1.imgbufoffs = 0;
}
}
switch (ar->shadow_mode) {
case 1:
akos_c1_spec1(ar);
return;
case 2:
// akos_c1_spec2(ar);
warning("akos_c1_spec2");
return;
case 3:
// akos_c1_spec3(ar);
warning("akos_c1_spec3");
return;
}
akos_generic_decode(ar);
// akos_c1_0y_decode(ar);
#if 0
switch (((byte)y_clipping << 3) | ((byte)use_scaling << 2) |
((byte)masking << 1) | (byte)charsetmask) {
case 0:
akos_c1_0_decode(ar);
break;
case 0 + 8:
akos_c1_0y_decode(ar);
break;
case 2:
case 1:
akos_c1_12_decode(ar);
break;
case 2 + 8:
case 1 + 8:
akos_c1_12y_decode(ar);
break;
case 3 + 8:
case 3:
akos_c1_3_decode(ar);
break;
case 4:
akos_c1_4_decode(ar);
break;
case 4 + 8:
akos_c1_4y_decode(ar);
break;
case 6:
case 5:
akos_c1_56_decode(ar);
break;
case 6 + 8:
case 5 + 8:
akos_c1_56y_decode(ar);
break;
case 7:
case 7 + 8:
akos_c1_7_decode(ar);
break;
}
#endif
}
void Scumm::akos_codec1_ignorePakCols(AkosRenderer * ar, int num)
{
int n;
byte repcolor;
byte replen;
byte *src;
n = ar->height;
if (num > 1)
n *= num;
src = ar->srcptr;
do {
repcolor = *src++;
replen = repcolor & ar->v1.mask;
if (replen == 0) {
replen = *src++;
}
do {
if (!--n) {
ar->v1.repcolor = repcolor >> ar->v1.shl;
ar->v1.replen = replen;
ar->srcptr = src;
return;
}
} while (--replen);
} while (1);
}
void Scumm::akos_codec5(AkosRenderer * ar)
{
VirtScreen *vs;
BompDrawData bdd;
int mirror;
int moveX;
int moveY;
int left;
int var_20;
int max_width;
int right;
int top;
int bottom;
vs = &virtscr[0];
//setBlastObjectMode(ar->shadow_mode); // not implemented yet
mirror = ar->mirror;
moveX=ar->move_x_cur;
moveY=ar->move_y_cur;
if (!mirror) {
left = (ar->x - moveX - ar->width) + 1;
} else {
left = ar->x + moveX -1;
}
var_20=0;
max_width = ar->outwidth;
right = left + ar->width - 1;
top = ar->y + moveY;
bottom = top + ar->height;
if(left < 0)
left = 0;
if(left > max_width)
left -= left - max_width;
ar->draw_top = 0;
ar->draw_bottom = 200;
updateDirtyRect(0, left, right+1, top, bottom+1, 1 << ar->dirty_id);
bdd.dataptr = ar->srcptr;
bdd.out = vs->screenPtr;
bdd.outheight = ar->outheight;
bdd.outwidth = ar->outwidth;
bdd.scale_x = 0xFF;
bdd.scale_y = 0xFF;
bdd.srcheight = ar->height;
bdd.srcwidth = ar->width;
bdd.x = left+1;
bdd.y = top;
drawBomp(&bdd,0,bdd.dataptr,0,0);
}
void Scumm::akos_codec16(AkosRenderer * ar)
{
warning("akos_codec16: not implemented");
}
bool Scumm::akos_increaseAnims(byte *akos, Actor * a)
{
byte *aksq, *akfo;
int i;
uint size;
bool result;
aksq = findResourceData(MKID('AKSQ'), akos);
akfo = findResourceData(MKID('AKFO'), akos);
size = getResourceDataSize(akfo) >> 1;
result = false;
for (i = 0; i != 0x10; i++) {
if (a->cost.active[i] != 0)
result |= akos_increaseAnim(a, i, aksq, (uint16 *)akfo, size);
}
return result;
}
#define GW(o) ((int16)READ_LE_UINT16(aksq+curpos+(o)))
#define GUW(o) READ_LE_UINT16(aksq+curpos+(o))
#define GB(o) aksq[curpos+(o)]
bool Scumm::akos_increaseAnim(Actor * a, int chan, byte *aksq, uint16 *akfo,
int numakfo)
{
byte active;
uint old_curpos, curpos, end;
uint code;
bool flag_value;
int tmp, tmp2;
active = a->cost.active[chan];
end = a->cost.end[chan];
old_curpos = curpos = a->cost.curpos[chan];
flag_value = false;
do {
code = aksq[curpos];
if (code & 0x80)
code = (code << 8) | aksq[curpos + 1];
switch (active) {
case 6:
switch (code) {
case AKC_JumpIfSet:
case AKC_AddVar:
case AKC_SetVar:
case AKC_SkipGE:
case AKC_SkipG:
case AKC_SkipLE:
case AKC_SkipL:
case AKC_SkipNE:
case AKC_SkipE:
curpos += 5;
break;
case AKC_JumpTable:
case AKC_SetActorClip:
case AKC_Ignore3:
case AKC_Ignore2:
case AKC_Ignore:
case AKC_StartAnim:
case AKC_CmdQue3:
curpos += 3;
break;
case AKC_SoundStuff:
curpos += 8;
break;
case AKC_Cmd3:
case AKC_SetVarInActor:
case AKC_SetDrawOffs:
curpos += 6;
break;
case AKC_ClearFlag:
case AKC_HideActor:
case AKC_CmdQue3Quick:
case AKC_Return:
curpos += 2;
break;
case AKC_JumpGE:
case AKC_JumpG:
case AKC_JumpLE:
case AKC_JumpL:
case AKC_JumpNE:
case AKC_JumpE:
case AKC_Random:
curpos += 7;
break;
case AKC_Flip:
case AKC_Jump:
curpos += 4;
break;
case AKC_ComplexChan:
curpos += 3;
tmp = aksq[curpos - 1];
while (--tmp >= 0) {
curpos += 4;
curpos += (aksq[curpos] & 0x80) ? 2 : 1;
}
break;
default:
if (code & 0xC000)
error("akos_increaseAnim: invalid code %x", code);
curpos += (code & 0x8000) ? 2 : 1;
}
break;
case 2:
curpos += (code & 0x8000) ? 2 : 1;
if (curpos > end)
curpos = a->cost.start[chan];
break;
case 3:
if (curpos != end)
curpos += (code & 0x8000) ? 2 : 1;
break;
}
code = aksq[curpos];
if (code & 0x80)
code = (code << 8) | aksq[curpos + 1];
if (flag_value && code != AKC_ClearFlag)
continue;
switch (code) {
case AKC_StartAnimInActor:
akos_queCommand(4, derefActorSafe(getAnimVar(a, GB(2)),
"akos_increaseAnim:29"), getAnimVar(a, GB(3)), 0);
continue;
case AKC_Random:
setAnimVar(a, GB(6), getRandomNumberRng(GW(2), GW(4)));
continue;
case AKC_SkipGE:
case AKC_SkipG:
case AKC_SkipLE:
case AKC_SkipL:
case AKC_SkipNE:
case AKC_SkipE:
if (!akos_compare(getAnimVar(a, GB(4)), GW(2), code - AKC_SkipStart))
flag_value = true;
continue;
case AKC_IncVar:
setAnimVar(a, 0, getAnimVar(a, 0) + 1);
continue;
case AKC_SetVar:
setAnimVar(a, GB(4), GW(2));
continue;
case AKC_AddVar:
setAnimVar(a, GB(4), getAnimVar(a, GB(4)) + GW(2));
continue;
case AKC_Flip:
a->flip = GW(2) != 0;
continue;
case AKC_CmdQue3:
tmp = GB(2);
if ((uint) tmp < 8)
akos_queCommand(3, a, a->sound[tmp], 0);
continue;
case AKC_CmdQue3Quick:
akos_queCommand(3, a, a->sound[1], 0);
continue;
case AKC_StartAnim:
akos_queCommand(4, a, GB(2), 0);
continue;
case AKC_StartVarAnim:
akos_queCommand(4, a, getAnimVar(a, GB(2)), 0);
continue;
case AKC_SetVarInActor:
setAnimVar(derefActorSafe(getAnimVar(a, GB(2)), "akos_increaseAnim:9"),
GB(3), GW(4)
);
continue;
case AKC_HideActor:
akos_queCommand(1, a, 0, 0);
continue;
case AKC_SetActorClip:
akos_queCommand(5, a, GB(2), 0);
continue;
case AKC_SoundStuff:
tmp = GB(2);
if (tmp >= 8)
continue;
tmp2 = GB(4);
if (tmp2 < 1 || tmp2 > 3)
error("akos_increaseAnim:8 invalid code %d", tmp2);
akos_queCommand(tmp2 + 6, a, a->sound[tmp], GB(6));
continue;
case AKC_SetDrawOffs:
akos_queCommand(6, a, GW(2), GW(4));
continue;
case AKC_JumpTable:
if (akfo == NULL)
error("akos_increaseAnim: no AKFO table");
tmp = getAnimVar(a, GB(2)) - 1;
if (tmp < 0 || tmp >= numakfo - 1)
error("akos_increaseAnim: invalid jump value %d", tmp);
curpos = READ_LE_UINT16(&akfo[tmp]);
break;
case AKC_JumpIfSet:
if (!getAnimVar(a, GB(4)))
continue;
setAnimVar(a, GB(4), 0);
curpos = GUW(2);
break;
case AKC_ClearFlag:
flag_value = false;
continue;
case AKC_Jump:
curpos = GUW(2);
break;
case AKC_Return:
case AKC_ComplexChan:
break;
case AKC_Ignore:
case AKC_Ignore2:
case AKC_Ignore3:
continue;
case AKC_JumpE:
case AKC_JumpNE:
case AKC_JumpL:
case AKC_JumpLE:
case AKC_JumpG:
case AKC_JumpGE:
if (!akos_compare(getAnimVar(a, GB(4)), GW(2), code - AKC_JumpStart))
continue;
curpos = GUW(2);
break;
default:
if ((code & 0xC000) == 0xC000)
error("Undefined uSweat token %X", code);
}
break;
} while (1);
int code2 = aksq[curpos];
if (code2 & 0x80)
code2 = (code2 << 8) | aksq[curpos + 1];
assert((code2 & 0xC000) != 0xC000 || code2 == AKC_ComplexChan
|| code2 == AKC_Return);
a->cost.curpos[chan] = curpos;
return curpos != old_curpos;
}
void Scumm::akos_queCommand(byte cmd, Actor * a, int param_1, int param_2)
{
// warning("akos_queCommand(%d,%d,%d,%d)", cmd, a->number, param_1, param_2);
}
bool Scumm::akos_compare(int a, int b, byte cmd)
{
switch (cmd) {
case 0:
return a == b;
case 1:
return a != b;
case 2:
return a < b;
case 3:
return a <= b;
case 4:
return a > b;
default:
return a >= b;
}
}
int Scumm::getAnimVar(Actor * a, byte var)
{
return a->animVariable[var];
}
void Scumm::setAnimVar(Actor * a, byte var, int value)
{
a->animVariable[var] = value;
}
Reference in New Issue View Git Blame Copy Permalink