1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/* 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/endian.h"
#include "mortevielle/level15.h"
#include "mortevielle/parole2.h"
#include "mortevielle/parole.h"
#include "mortevielle/mortevielle.h"
#include "mortevielle/sound.h"
#include "mortevielle/var_mor.h"
namespace Mortevielle {
void rot_chariot() {
c1 = c2;
c2 = c3;
c3.val = 32;
c3.code = 9;
}
void init_chariot() {
c3.rep = 0;
c3.freq = 0;
c3.acc = 0;
rot_chariot();
rot_chariot();
}
void trait_ph() {
const int deca[3] = {300, 30, 40};
ptr_tcph = pred(int, num_ph);
ledeb = swap(t_cph[ptr_tcph]) + deca[typlec];
lefin = swap(t_cph[ptr_tcph + 1]) + deca[typlec];
nb_word = lefin - ledeb;
ptr_tcph = (uint)ledeb >> 1;
ptr_word = 0;
do {
WRITE_LE_UINT16(&mem[adword + ptr_word], t_cph[ptr_tcph]);
ptr_word = ptr_word + 2;
ptr_tcph = ptr_tcph + 1;
} while (!(ptr_tcph >= (int)((uint)lefin >> 1)));
ptr_oct = 0;
ptr_word = 0;
init_chariot();
do {
rot_chariot();
charg_car();
trait_car();
} while (!(ptr_word >= nb_word));
rot_chariot();
trait_car();
entroct(ord('#'));
}
void parole(int rep, int ht, int typ) {
int savph[501];
int tempo;
if (_soundOff)
return;
num_ph = rep;
haut = ht;
typlec = typ;
if (typlec != 0) {
for (int i = 0; i <= 500; ++i)
savph[i] = t_cph[i];
tempo = tempo_bruit;
} else if (haut > 5)
tempo = tempo_f;
else
tempo = tempo_m;
addfix = (float)((tempo - addv[0])) / 256;
cctable(tbi);
switch (typ) {
case 1:
charge_bruit();
/*if zuul then zzuul(adbruit,0,1095);*/
regenbruit();
break;
case 2:
charge_son();
charge_phbruit();
break;
default:
break;
}
trait_ph();
g_vm->_soundManager.litph(tbi, typ, tempo);
if (typlec != 0)
for (int i = 0; i <= 500; ++i) {
t_cph[i] = savph[i];
mlec = typlec;
}
writepal(numpal);
}
} // End of namespace Mortevielle
|
