Action! Sounds

Action! Sounds
Benutzeravatar01.12.2018 um 22:13 Uhr von FlorianD
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!
Re: Action! Sounds
02.12.2018 um 01:44 Uhr von Jac
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 :-)
Re: Action! Sounds
Benutzeravatar02.12.2018 um 15:57 Uhr von FlorianD
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                     
auf ABBUC.de antwortenauf ABBUC.de lesen alle aktiven ABBUC-Forum-Themen zurück zu atarixle.de