mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-19 08:06:42 +00:00
104 lines
2.1 KiB
C
104 lines
2.1 KiB
C
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 array<0,2,integer> deca
|
|
= {{300,30,40}};
|
|
|
|
ptr_tcph= pred(integer,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=(cardinal)ledeb >> 1;
|
|
ptr_word = 0;
|
|
do {
|
|
memw[adword+ ptr_word]= t_cph[ptr_tcph];
|
|
ptr_word = ptr_word +2;
|
|
ptr_tcph = ptr_tcph+1;
|
|
} while (!(ptr_tcph>=((cardinal)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(integer rep, integer ht, integer typ)
|
|
{
|
|
array<0,500,integer> savph;
|
|
integer i;
|
|
integer 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= (real)((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);
|
|
}
|
|
|
|
|
|
|