Parent Directory
|
Revision Log
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 |