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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1376 - (hide 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 dbug 1376
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