blob: 0e458a50331ed304d76e143a1b3ad1e00e0d1a1c (
plain)
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
|
void dem1() {
untyped_file f;
int k;
/* -- demande de disk 1 -- */
assign(f, "mort.005");
/*$i-*/
k = ioresult;
reset(f);
while (ioresult != 0) {
show_mouse();
k = do_alert(al_mess, 1);
hide_mouse();
reset(f);
}
close(f);
}
void takesav(int n) {
untyped_file f;
int i;
varying_string<10> st;
dem1();
/* -- chargement du fichier 'sauve#n.mor' -- */
st = string("sav") + chr(n + 48) + ".mor";
assign(f, st);
reset(f, 497);
blockread(f, s1, 1);
if (ioresult != 0) {
i = do_alert(err_mess, 1);
exit(0);
}
s = s1;
for (i = 0; i <= 389; i ++) tabdon[i + acha] = bufcha[i];
close(f);
}
void ld_game(int n) {
hide_mouse();
maivid();
takesav(n);
/* -- disquette 2 -- */
dem2();
/* -- mises en place -- */
theure();
dprog();
antegame();
show_mouse();
}
void sv_game(int n) {
untyped_file f;
int i;
hide_mouse();
tmaj3();
dem1();
/* -- sauvegarde du fichier 'sauve#n.mor' -- */
for (i = 0; i <= 389; i ++) bufcha[i] = tabdon[i + acha];
s1 = s;
if (s1.mlieu == 26) s1.mlieu = 15;
assign(f, string("sav") + chr(n + 48) + ".mor");
rewrite(f, 497);
blockwrite(f, s1, 1);
close(f);
dem2();
show_mouse();
}
|
