/[projet1]/public/oric/games/Dungeon Demo/BAK2/MUSIC.C
Defence Force logotype

Contents of /public/oric/games/Dungeon Demo/BAK2/MUSIC.C

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1376 - (show annotations)
Mon Jul 25 19:48:05 2016 UTC (3 years, 4 months ago) by dbug
File MIME type: text/plain
File size: 2677 byte(s)
Added the complete (not cleaned up, pure legacy) source code and assets for the 1996 Dungeon Master tech demo.
To get that to actually work, you need (at least):
- A dos machine (or a Windows 95/Windows 98)
- The Wacom compiler
- The old version of the Oric Compiler toolchain (the OSDK ancestor)

1
2 void wait(unsigned int n);
3
4 unsigned char Musique[]=
5 {
6 3,6,8,3,3,8,2,10,8,80 ,
7 3,6,8,3,3,8,2,10,8,80 ,
8 0,1,1,0,1,1,0,1,1,40 ,
9 3,8,8,3,5,8,0,1,1,40 ,
10 3,5,8,3,2,8,2,10,8,80 ,
11 3,5,8,3,2,8,2,10,8,40 ,
12 1,11,8,0,1,1,0,1,1,40 ,
13 1,10,8,0,1,1,0,1,1,40 ,
14 1,8,8,0,1,1,0,1,1,40 ,
15 3,10,8,3,6,9,3,1,8,80 ,
16 3,10,8,3,6,9,3,1,8,80 ,
17 0,1,1,0,1,1,0,1,1,40 ,
18 3,11,8,3,8,8,0,1,1,40 ,
19 3,8,8,3,5,8,3,1,8,80 ,
20 3,8,8,3,5,8,3,1,8,40 ,
21 2,1,8,0,1,1,0,1,1,40 ,
22 1,11,8,0,1,1,0,1,1,40 ,
23 1,10,8,3,7,8,3,10,8,40 ,
24 3,11,8,3,8,8,3,3,8,80 ,
25 3,11,8,3,8,8,3,3,8,80 ,
26 1,8,8,0,1,1,0,1,1,40 ,
27 1,8,8,3,10,8,4,1,8,40 ,
28 3,10,8,3,6,8,3,3,8,80 ,
29 3,10,8,3,6,8,3,3,8,80 ,
30 0,1,1,0,1,1,0,1,1,40 ,
31 3,10,8,2,1,8,0,1,1,40 ,
32 4,3,8,3,10,8,1,11,8,80 ,
33 4,3,8,3,8,8,2,11,9,80 ,
34 0,1,1,0,1,1,0,1,1,40 ,
35 4,5,8,0,1,1,0,1,1,40 ,
36 4,2,8,3,10,8,3,5,8,80 ,
37 4,2,8,3,10,8,3,5,8,40 ,
38 2,8,8,0,1,1,0,1,1,40 ,
39 2,6,8,0,1,1,0,1,1,40 ,
40 2,5,8,0,1,1,0,1,1,40 ,
41 3,6,8,3,3,8,2,10,8,80 ,
42 3,6,8,3,3,8,2,10,8,80 ,
43 0,1,1,0,1,1,0,1,1,40 ,
44 3,8,8,3,5,8,0,1,1,40 ,
45 3,5,8,3,2,8,2,10,8,80 ,
46 3,5,8,3,2,8,2,10,8,40 ,
47 1,11,8,0,1,1,0,1,1,40 ,
48 1,10,8,0,1,1,0,1,1,40 ,
49 1,8,8,0,1,1,0,1,1,40 ,
50 3,10,8,3,6,9,3,1,8,80 ,
51 3,10,8,3,6,9,3,1,8,80 ,
52 0,1,1,0,1,1,0,1,1,40 ,
53 3,11,8,3,8,8,0,1,1,40 ,
54 3,8,8,3,5,8,3,1,8,80 ,
55 3,8,8,3,5,8,3,1,8,40 ,
56 2,1,8,0,1,1,0,1,1,40 ,
57 1,11,8,0,1,1,0,1,1,40 ,
58 1,10,8,3,7,8,3,10,8,40 ,
59 3,11,8,3,8,8,3,3,8,80 ,
60 2,8,8,0,1,1,0,1,1,40 ,
61 3,11,8,3,8,8,3,1,8,40 ,
62 2,8,8,0,1,1,0,1,1,40 ,
63 2,1,8,0,1,1,0,1,1,40 ,
64 4,1,8,2,5,8,0,1,1,40 ,
65 3,10,8,3,6,8,3,1,8,80 ,
66 3,10,8,2,3,8,0,1,1,40 ,
67 4,3,8,3,6,8,2,11,8,40 ,
68 4,2,8,0,1,1,0,1,1,40 ,
69 4,3,8,3,11,8,2,8,8,40 ,
70 4,5,8,0,1,1,0,1,1,40 ,
71 4,6,8,3,10,8,2,10,8,80 ,
72 4,5,8,3,8,8,1,10,8,40 ,
73 0,1,1,3,8,8,1,10,8,40 ,
74 4,3,8,0,1,1,0,1,1,40 ,
75 4,3,8,3,6,8,2,3,8,80 ,
76 3,3,8,3,10,8,3,6,8,40 ,
77 3,3,7,3,10,7,3,6,7,40 ,
78 3,3,6,3,10,6,3,6,6,40 ,
79 3,3,5,3,10,5,3,6,5,40 ,
80 3,3,4,3,10,4,3,6,5,40 ,
81 };
82
83
84
85 void play_music()
86 {
87 unsigned int n;
88 unsigned char *ptr;
89
90 ptr=Musique;
91
92 for (n=1;n<75;n++)
93 {
94 music(1,ptr[0],ptr[1],ptr[2]);
95 music(2,ptr[3],ptr[4],ptr[5]);
96 music(3,ptr[6],ptr[7],ptr[8]);
97 play(7,0,0,100);
98 wait(ptr[9]);
99 ptr+=10;
100 if (n>70)
101 {
102 continue;
103 }
104 play(0,0,0,0);
105 }
106 play(0,0,0,0);
107 }
108

  ViewVC Help
Powered by ViewVC 1.1.26