Action! Sounds

Bild Alles zum Thema Programmierung
Bild All around programming

Moderatoren: Sven, Sleepy, Wolfgang, cas, des-or-mad

Action! Sounds

Beitragvon FlorianD » Sa 1. Dez 2018, 21:13

wer kannmir helfen? Ich bin völlig ohne Ahnung, wenn es um Sound geht, insbesondere, wenn das in Action! stattfinden soll. Ich brauche 2 Sounds, und zwar
a) so ein "frrrrritttt", wie wenn man Karten mischt (2 Stapel mit den Daumen ineinandermischt)
und
b) "flppp", wenn eine Karte ausgeteilt wird

Ist natürlich für ein Kartenspiel.

Wer weiss, wie das am besten geht?

Nebenbei muss nichts laufen, kein Sound im Interrupt oder ähnlich. Ist nicht Geschwindigkeitskritisch, kann also alle CPU-Last haben.

Grüße,
f.

PS: der Spender des Codes wird auf Wunsch auch in dem Spiel (spitz-)namentlich genannt!
RUN $E477
--
Benutzeravatar
FlorianD
Super Poster
Super Poster
 
Beiträge: 1587
Registriert: Do 1. Jan 1970, 01:00
Wohnort: Frankfurt am Main

Re: Action! Sounds

Beitragvon Jac » So 2. Dez 2018, 00:44

32 Karten mischen in Turbo Basic:

100 FOR C=1 TO 32
110 F=16-C DIV 2
120 FOR V=0 TO 15 STEP 2
130 SOUND 0,F,0,V
140 NEXT V
150 NEXT C
160 END

und für C=1 is es auch ganz gut das "flppp" finde ich :-)
Jac
Star Poster
Star Poster
 
Beiträge: 438
Registriert: Do 1. Jan 1970, 01:00
Wohnort: 66822 Lebach

Re: Action! Sounds

Beitragvon FlorianD » So 2. Dez 2018, 14:57

Danke! Klappt hervorragend nach Umbau in Action!

Aufruf mit FLP(1) für 1 Karte floppen oder
FLP(32) für alle Karten mischen

Code: Alles auswählen
PROC FLP(BYTE A)           
 BYTE C,F,V,W,WSYNC=54282 
 FOR C=1 TO A DO           
  F=32-(C RSH 2)           
  FOR V=0 TO 7 DO         
   W=V LSH 1               
   SOUND(0,F,0,W)         
   SOUND(1,F+50,4,W)       
   FOR W=0 TO 65 DO       
    WSYNC=W               
   OD                     
  OD                       
  SOUND(0,0,0,0)           
  SOUND(1,0,0,0)           
  FOR W=0 TO 17 DO         
   WSYNC=W                 
  OD                       
 OD                       
 SOUND(0,0,0,0)           
 SOUND(1,0,0,0)           
RETURN                     
RUN $E477
--
Benutzeravatar
FlorianD
Super Poster
Super Poster
 
Beiträge: 1587
Registriert: Do 1. Jan 1970, 01:00
Wohnort: Frankfurt am Main


Zurück zu Programmierung



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

cron