libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-18 07:39:08 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
36a65ad3c9
scummvm/engines/mortevielle/parole.cpp
Strangerke 2a32c9d1f4 MORTEVIELLE: Rename more globals
2012-04-06 08:22:28 +02:00

455 lines
8.3 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.
*
*/
/*
* This code is based on original Mortville Manor DOS source code
* Copyright (c) 1988-1989 Lankhor
*/
#include "common/file.h"
#include "mortevielle/parole.h"
#include "mortevielle/sound.h"
#include "mortevielle/mortevielle.h"
namespace Mortevielle {
void spfrac(int wor) {
g_c3._rep = (uint)wor >> 12;
if ((g_typlec == 0) && (g_c3._code != 9))
if (((g_c3._code > 4) && (g_c3._val != 20) && (g_c3._rep != 3) && (g_c3._rep != 6) && (g_c3._rep != 9)) ||
((g_c3._code < 5) && ((g_c3._val != 19) && (g_c3._val != 22) && (g_c3._rep != 4) && (g_c3._rep != 9)))) {
++g_c3._rep;
}
g_c3._freq = ((uint)wor >> 6) & 7;
g_c3._acc = ((uint)wor >> 9) & 7;
}
void charg_car() {
int wor, int_;
wor = swap(READ_LE_UINT16(&g_mem[adword + g_ptr_word]));
int_ = wor & 0x3f;
if ((int_ >= 0) && (int_ <= 13)) {
g_c3._val = int_;
g_c3._code = 5;
} else if ((int_ >= 14) && (int_ <= 21)) {
g_c3._val = int_;
g_c3._code = 6;
} else if ((int_ >= 22) && (int_ <= 47)) {
int_ = int_ - 22;
g_c3._val = int_;
g_c3._code = g_typcon[int_];
} else if ((int_ >= 48) && (int_ <= 56)) {
g_c3._val = int_ - 22;
g_c3._code = 4;
} else {
switch (int_) {
case 60:
g_c3._val = 32; /* " " */
g_c3._code = 9;
break;
case 61:
g_c3._val = 46; /* "." */
g_c3._code = 9;
break;
case 62:
g_c3._val = 35; /* "#" */
g_c3._code = 9;
default:
break;
}
}
spfrac(wor);
g_ptr_word += 2;
}
void entroct(byte o) {
g_mem[adtroct * 16 + g_ptr_oct] = o;
++g_ptr_oct;
}
void veracf(byte b) {
;
}
void cctable(tablint &t) {
float tb[257];
tb[0] = 0;
for (int k = 0; k <= 255; ++k) {
tb[k + 1] = g_addfix + tb[k];
t[255 - k] = abs((int)tb[k] + 1);
}
}
void regenbruit() {
int i = offsetb3 + 8590;
int j = 0;
do {
g_t_cph[j] = READ_LE_UINT16(&g_mem[adbruit3 + i]);
i += 2;
++j;
} while (i < offsetb3 + 8790);
}
void charge_son() {
Common::File f;
if (!f.open("sonmus.mor"))
error("Missing file - sonmus.mor");
f.read(&g_mem[0x7414 * 16 + 0], 273);
g_vm->_soundManager.decodeMusic(&g_mem[0x7414 * 16], &g_mem[adson * 16], 273);
f.close();
}
void charge_phbruit() {
Common::File f;
if (!f.open("phbrui.mor"))
error("Missing file - phbrui.mor");
for (int i = 1; i <= 3; ++i)
g_t_cph[i] = f.readSint16LE();
f.close();
}
void charge_bruit() {
Common::File f;
int i;
if (!f.open("bruits")) //Translation: "noise"
error("Missing file - bruits");
f.read(&g_mem[adbruit * 16 + 0], 250);
for (i = 0; i <= 19013; ++i)
g_mem[adbruit * 16 + 32000 + i] = g_mem[adbruit5 + i];
f.read(&g_mem[adbruit1 * 16 + offsetb1], 149);
f.close();
}
void trait_car() {
byte d3;
int d2, i;
switch (g_c2._code) {
case 9:
if (g_c2._val != ord('#'))
for (i = 0; i <= g_c2._rep; ++i)
entroct(g_c2._val);
break;
case 5:
case 6:
if (g_c2._code == 6)
d3 = g_tabdph[(g_c2._val - 14) << 1];
else
d3 = null;
if (g_c1._code >= 5) {
veracf(g_c2._acc);
if (g_c1._code == 9) {
entroct(4);
if (d3 == null)
entroct(g_c2._val);
else
entroct(d3);
entroct(22);
}
}
switch (g_c2._rep) {
case 0:
entroct(0);
entroct(g_c2._val);
if (d3 == null)
if (g_c3._code == 9)
entroct(2);
else
entroct(4);
else if (g_c3._code == 9)
entroct(0);
else
entroct(1);
break;
case 4:
case 5:
case 6:
if (g_c2._rep != 4) {
i = g_c2._rep - 5;
do {
--i;
entroct(0);
if (d3 == null)
entroct(g_c2._val);
else
entroct(d3);
entroct(3);
} while (i >= 0);
}
if (d3 == null) {
entroct(4);
entroct(g_c2._val);
entroct(0);
} else {
entroct(0);
entroct(g_c2._val);
entroct(3);
}
break;
case 7:
case 8:
case 9:
if (g_c2._rep != 7) {
i = g_c2._rep - 8;
do {
--i;
entroct(0);
if (d3 == null)
entroct(g_c2._val);
else
entroct(d3);
entroct(3);
} while (i >= 0);
}
if (d3 == null) {
entroct(0);
entroct(g_c2._val);
entroct(2);
} else {
entroct(0);
entroct(g_c2._val);
entroct(0);
}
break;
case 1:
case 2:
case 3:
if (g_c2._rep != 1) {
i = g_c2._rep - 2;
do {
--i;
entroct(0);
if (d3 == null)
entroct(g_c2._val);
else
entroct(d3);
entroct(3);
} while (i >= 0);
}
entroct(0);
entroct(g_c2._val);
if (g_c3._code == 9)
entroct(0);
else
entroct(1);
break;
default:
break;
} // switch c2.rep
break;
case 2:
case 3:
d3 = g_c2._code + 5; // 7 ou 8 => Corresponding vowel
if (g_c1._code > 4) {
veracf(g_c2._acc);
if (g_c1._code == 9) {
entroct(4);
entroct(d3);
entroct(22);
}
}
i = g_c2._rep;
assert(i >= 0);
if (i != 0) {
do {
--i;
entroct(0);
entroct(d3);
entroct(3);
} while (i > 0);
}
veracf(g_c3._acc);
if (g_c3._code == 6) {
entroct(4);
entroct(g_tabdph[(g_c3._val - 14) << 1]);
entroct(g_c2._val);
} else {
entroct(4);
if (g_c3._val == 4)
entroct(3);
else
entroct(g_c3._val);
entroct(g_c2._val);
}
break;
case 0:
case 1:
veracf(g_c2._acc);
switch (g_c3._code) {
case 2:
d2 = 7;
break;
case 3:
d2 = 8;
break;
case 6:
d2 = g_tabdph[(g_c3._val - 14) << 1];
break;
case 5:
d2 = g_c3._val;
break;
default:
d2 = 10;
break;
} // switch c3._code
d2 = (d2 * 26) + g_c2._val;
if (g_tnocon[d2] == 0)
d3 = 2;
else
d3 = 6;
if (g_c2._rep >= 5) {
g_c2._rep = g_c2._rep - 5;
d3 = 8 - d3; // Swap 2 and 6
}
if (g_c2._code == 0) {
i = g_c2._rep;
if (i != 0) {
do {
--i;
entroct(d3);
entroct(g_c2._val);
entroct(3);
} while (i > 0);
}
entroct(d3);
entroct(g_c2._val);
entroct(4);
} else {
entroct(d3);
entroct(g_c2._val);
entroct(3);
i = g_c2._rep;
if (i != 0) {
do {
--i;
entroct(d3);
entroct(g_c2._val);
entroct(4);
} while (i > 0);
}
}
if (g_c3._code == 9) {
entroct(d3);
entroct(g_c2._val);
entroct(5);
} else if ((g_c3._code != 0) && (g_c3._code != 1) && (g_c3._code != 4)) {
veracf(g_c3._acc);
switch (g_c3._code) {
case 3:
d2 = 8;
break;
case 6:
d2 = g_tabdph[(g_c3._val - 14) << 1];
break;
case 5:
d2 = g_c3._val;
break;
default:
d2 = 7;
break;
} // switch c3._code
if (d2 == 4)
d2 = 3;
if (g_intcon[g_c2._val] != 0)
++g_c2._val;
if ((g_c2._val == 17) || (g_c2._val == 18))
g_c2._val = 16;
entroct(4);
entroct(d2);
entroct(g_c2._val);
}
break;
case 4:
veracf(g_c2._acc);
i = g_c2._rep;
if (i != 0) {
do {
--i;
entroct(2);
entroct(g_c2._val);
entroct(3);
} while (i > 0);
}
entroct(2);
entroct(g_c2._val);
entroct(4);
if (g_c3._code == 9) {
entroct(2);
entroct(g_c2._val);
entroct(5);
} else if ((g_c3._code != 0) && (g_c3._code != 1) && (g_c3._code != 4)) {
veracf(g_c3._acc);
switch (g_c3._code) {
case 3:
d2 = 8;
break;
case 6:
d2 = g_tabdph[(g_c3._val - 14) << 1];
break;
case 5:
d2 = g_c3._val;
break;
default:
d2 = 7;
break;
} // switch c3._code
if (d2 == 4)
d2 = 3;
if (g_intcon[g_c2._val] != 0)
++g_c2._val;
entroct(4);
entroct(d2);
entroct(g_tabdbc[((g_c2._val - 26) << 1) + 1]);
}
break;
default:
break;
} // switch c2.code
}
} // End of namespace Mortevielle
Reference in New Issue View Git Blame Copy Permalink