von Frederik Holst

Das Jahr neigt sich dem Ende entgegen
und desahlb steigen wir auch gleich ins
Geschehen ein. Soundkurs. Nachdem Sie
in den letzten Folgen gelernt haben,
wie man den XL ohne SOUND-Befehl
programmiert, wie wir in Maschinen-
sprache im Interrupt Töne erklingen
lassen und wie wir den Tonumfang auf 16
Bit erweitern können, so will ich heute
zum Abschluß einige ganz nette Sound-
effekte vorstellen, die für das ein
oder andere Spiel oder Demo ganz
nützlich sein können. Die eventuelle
Umsetzung in POKE Befehle sollte nun ja
keine Schwierigkeit mehr darstellen.


Fangen wir mit einem Laserschuß an:

10 FOR S=1 TO 6: FOR P0=0 TO 200 STEP
10
20 SOUND 0,P0,10,8:SOUND 
2,P0,12,8:SOUND 3,P0,4,8
30 NEXT P0:NEXT S


Fallende Bombe:


10 FOR P0=0 TO 150:SOUND 
0,P0,10,P0/15+2:NEXT P0
20 FOR P0=0 to 240 STEP 
5:VOL=14-P0/20:SOUND 0,P0,0,VOL:SOUND 
1,P0,8,VOL
30 SOUND 2,P0+15,2,VOL:NEXT P0


Summer:


10 SOUND 0,40,6,10
20 FOR D=1 TO 400:NEXT D
30 SOUND 0,0,0,0


Donner:


10 FOR P0=1 TO 3
20 Y=INT(255*RND(1)+20)
30 X=RND(1)*75
40 FOR P1=1 TO Y
50 SOUND 0,P1,8,15
60 NEXT P1
70 FOR D=1 TO X:NEXT D
80 NEXT P0:SOUND 0,0,0,0


Tastendruck:


10 FOR I=15 TO 0 STEP -.1:SOUND 
0,100,10,I:NEXT I


Wasser:


10 POKE 53761,170: FOR I=1 TO 500:POKE 
53760,INT(RND(0)*50)
20 NEXT I
30 POKE 53761,0


Raumschiffstart:


10 POKE 53760,100:POKE 53761,170:POKE 
53768,4
20 FOR I=0 TO 255 STEP .1:POKE 
53764,I:NEXT I


Feuersirene:


10 FOR P0=200 TO 50 STEP -1:SOUND 
0,P0,10,8:SOUND 1,P0+2,10,6:SOUND 
2,P0+4,10,2:SOUND 3,P0+6,10,2:NEXT P0
20 FOR P=50 TO 160 STEP 0.2:SOUND 
0,P0,10,8:SOUND 1,P0+2,10,6:SOUND 
2,P0+4,10,4:SOUND 3,P0+6,10,2:NEXT P0


Flugzeuggeräusch:


10 FOR X=1 TO 400
20 SOUND 0,99,10,8
30 SOUND 0,0,0,0
40 NEXT X


Türglocke:



10 FOR V=15 TO 0 STEP -0.5:SOUND 
0,29,10,V:SOUND 1,30,10,V:NEXT VOL
20 FOR V=15 TO 0 STEP -0.5:SOUND 
0,35,10,V:SOUND 1,36,10,V:NEXT VOL


Damit wäre unser Kurs auch für diese
Ausgabe abgeschlossen. Ich hoffe, daß
es etwas gebracht hat, und in 
Zunkunft auch vielleicht von Ihnen im
USER MAG gute Spiele mit gutem Sound zu
sehen und HÖREN sein werden !!!

Bis dann !!!