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
|
/* 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/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 i;
int tempo;
if (sonoff) return;
num_ph = rep;
haut = ht;
typlec = typ;
if (typlec != 0) {
for (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;
}
trait_ph();
litph(tbi, typ, tempo);
if (typlec != 0)
for (i = 0; i <= 500; i ++) {
t_cph[i] = savph[i];
mlec = typlec;
}
writepal(numpal);
}
} // End of namespace Mortevielle
|
