scummvm/engines/cge/talk.cpp
2011-07-01 08:37:40 +02:00

335 lines
7.1 KiB
C++

/* 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.
*
*/
/*
* This code is based on original Soltys source code
* Copyright (c) 1994-1995 Janus B. Wisniewski and L.K. Avalon
*/
#include "cge/general.h"
#include "cge/talk.h"
#include "cge/vol.h"
#include "cge/game.h"
#include "cge/mouse.h"
namespace CGE {
#define WID_SIZ 256
#define POS_SIZ 256
#define MAP_SIZ (256*8)
//uint8 FONT::Wid[WID_SIZ];
//uint16 FONT::Pos[POS_SIZ];
//uint8 FONT::Map[MAP_SIZ];
FONT::FONT(const char *name) {
Map = farnew(uint8, MAP_SIZ);
Pos = farnew(uint16, POS_SIZ);
Wid = farnew(uint8, WID_SIZ);
if ((Map == NULL) || (Pos == NULL) || (Wid == NULL))
error("No core");
MergeExt(Path, name, FONT_EXT);
Load();
}
FONT::~FONT() {
free(Map);
free(Pos);
free(Wid);
}
void FONT::Load() {
INI_FILE f(Path);
if (!f._error) {
f.read(Wid, WID_SIZ);
if (!f._error) {
uint16 i, p = 0;
for (i = 0; i < POS_SIZ; i++) {
Pos[i] = p;
p += Wid[i];
}
f.read(Map, p);
}
}
}
uint16 FONT::Width(const char *text) {
uint16 w = 0;
if (text)
while (* text)
w += Wid[*(text++)];
return w;
}
/*
void FONT::Save(void) {
CFILE f((const char *) Path, WRI);
if (! f.Error) {
f.Write(Wid, WID_SIZ);
if (! f.Error)
f.Write(Map, Pos[POS_SIZ - 1] + Wid[WID_SIZ - 1]);
}
}
*/
TALK::TALK(CGEEngine *vm, const char *tx, TBOX_STYLE mode)
: Sprite(vm, NULL), Mode(mode), _vm(vm) {
TS[0] = TS[1] = NULL;
_flags._syst = true;
Update(tx);
}
TALK::TALK(CGEEngine *vm)
: Sprite(vm, NULL), Mode(PURE), _vm(vm) {
TS[0] = TS[1] = NULL;
_flags._syst = true;
}
/*
TALK::~TALK (void) {
for (uint16 i = 0; i < ShpCnt; i++) {
if (FP_SEG(ShpList[i]) != _DS) { // small model: always false
delete ShpList[i];
ShpList[i] = NULL;
}
}
}
*/
FONT *TALK::_Font;
void TALK::init() {
_Font = new FONT(ProgName());
}
void TALK::deinit() {
delete _Font;
}
void TALK::Update(const char *tx) {
uint16 vmarg = (Mode) ? TEXT_VM : 0;
uint16 hmarg = (Mode) ? TEXT_HM : 0;
uint16 mw = 0, mh, ln = vmarg;
const char *p;
uint8 *m;
if (!TS[0]) {
uint16 k = 2 * hmarg;
mh = 2 * vmarg + FONT_HIG;
for (p = tx; *p; p++) {
if (*p == '|' || *p == '\n') {
mh += FONT_HIG + TEXT_LS;
if (k > mw)
mw = k;
k = 2 * hmarg;
} else
k += _Font->Wid[*p];
}
if (k > mw)
mw = k;
TS[0] = Box(mw, mh);
}
m = TS[0]->_m + ln * mw + hmarg;
while (* tx) {
if (*tx == '|' || *tx == '\n')
m = TS[0]->_m + (ln += FONT_HIG + TEXT_LS) * mw + hmarg;
else {
int cw = _Font->Wid[*tx], i;
uint8 *f = _Font->Map + _Font->Pos[*tx];
for (i = 0; i < cw; i++) {
uint8 *pp = m;
uint16 n;
register uint16 b = *(f++);
for (n = 0; n < FONT_HIG; n++) {
if (b & 1)
*pp = TEXT_FG;
b >>= 1;
pp += mw;
}
m++;
}
}
tx++;
}
TS[0]->code();
SetShapeList(TS);
}
Bitmap *TALK::Box(uint16 w, uint16 h) {
uint8 *b, * p, * q;
uint16 n, r = (Mode == ROUND) ? TEXT_RD : 0;
if (w < 8)
w = 8;
if (h < 8)
h = 8;
b = farnew(uint8, n = w * h);
if (! b)
error("No core");
memset(b, TEXT_BG, n);
if (Mode) {
p = b;
q = b + n - w;
memset(p, LGRAY, w);
memset(q, DGRAY, w);
while (p < q) {
p += w;
*(p - 1) = DGRAY;
*p = LGRAY;
}
p = b;
for (int i = 0; i < r; i++) {
int j;
for (j = 0; j < r - i; j++) {
p[j] = TRANS;
p[w - j - 1] = TRANS;
q[j] = TRANS;
q[w - j - 1] = TRANS;
}
p[j] = LGRAY;
p[w - j - 1] = DGRAY;
q[j] = LGRAY;
q[w - j - 1] = DGRAY;
p += w;
q -= w;
}
}
return new Bitmap(w, h, b);
}
void TALK::PutLine(int line, const char *text) {
// Note: (TS[0].W % 4) have to be 0
uint16 w = TS[0]->_w, h = TS[0]->_h;
uint8 *v = TS[0]->_v, * p;
uint16 dsiz = w >> 2; // data size (1 plane line size)
uint16 lsiz = 2 + dsiz + 2; // uint16 for line header, uint16 for gap
uint16 psiz = h * lsiz; // - last gap, but + plane trailer
uint16 size = 4 * psiz; // whole map size
uint16 rsiz = FONT_HIG * lsiz; // length of whole text row map
// set desired line pointer
v += (TEXT_VM + (FONT_HIG + TEXT_LS) * line) * lsiz;
// clear whole rectangle
p = v; // assume blanked line above text
memcpy(p, p - lsiz, rsiz);
p += psiz; // tricky replicate lines for plane 0
memcpy(p, p - lsiz, rsiz);
p += psiz; // same for plane 1
memcpy(p, p - lsiz, rsiz);
p += psiz; // same for plane 2
memcpy(p, p - lsiz, rsiz); // same for plane 3
// paint text line
if (text) {
uint8 *q;
p = v + 2 + TEXT_HM / 4 + (TEXT_HM % 4) * psiz;
q = v + size;
while (* text) {
uint16 cw = _Font->Wid[*text], i;
uint8 *fp = _Font->Map + _Font->Pos[*text];
for (i = 0; i < cw; i++) {
register uint16 b = fp[i];
uint16 n;
for (n = 0; n < FONT_HIG; n++) {
if (b & 1)
*p = TEXT_FG;
b >>= 1;
p += lsiz;
}
p = p - rsiz + psiz;
if (p >= q)
p = p - size + 1;
}
text++;
}
}
}
INFO_LINE::INFO_LINE(CGEEngine *vm, uint16 w) : TALK(vm), OldTxt(NULL), _vm(vm) {
TS[0] = new Bitmap(w, FONT_HIG, TEXT_BG);
SetShapeList(TS);
}
void INFO_LINE::Update(const char *tx) {
if (tx != OldTxt) {
uint16 w = TS[0]->_w, h = TS[0]->_h;
uint8 *v = (uint8 *) TS[0]->_v;
uint16 dsiz = w >> 2; // data size (1 plane line size)
uint16 lsiz = 2 + dsiz + 2; // uint16 for line header, uint16 for gap
uint16 psiz = h * lsiz; // - last gape, but + plane trailer
uint16 size = 4 * psiz; // whole map size
// claer whole rectangle
memset(v + 2, TEXT_BG, dsiz); // data bytes
memcpy(v + lsiz, v, psiz - lsiz); // tricky replicate lines
*(uint16 *)(v + psiz - 2) = EOI; // plane trailer uint16
memcpy(v + psiz, v, 3 * psiz); // tricky replicate planes
// paint text line
if (tx) {
uint8 *p = v + 2, * q = p + size;
while (*tx) {
uint16 cw = _Font->Wid[*tx];
uint8 *fp = _Font->Map + _Font->Pos[*tx];
for (uint16 i = 0; i < cw; i++) {
register uint16 b = fp[i];
for (uint16 n = 0; n < FONT_HIG; n++) {
if (b & 1)
*p = TEXT_FG;
b >>= 1;
p += lsiz;
}
if (p >= q)
p = p - size + 1;
}
tx++;
}
}
OldTxt = tx;
}
}
} // End of namespace CGE