ＭＳＸ関連
音声合成データ変換ツール（ＢＡＳＩＣ用：ＰＬＡＹ文ＰＳＧ）

無圧縮で44100Hz 又は 48000Hz 16Bit形式のWAVファイルをMMLに変換します。
wave_MML_PSGで中間ファイル(.dat)を作ってからPSG_MMLを実行して下さい。
　
発音単位を１／１５秒毎・１／２０秒毎・１／３０秒毎・１／６０秒毎か選択して下さい。
※中間ファイル(.dat)に互換性はありません。別々に計算して下さい
　
音量(%)は２０〜２００まで指定できます。（補整用で１００を超えると音割れします）
　
テキスト形式のファイルが生成されますのでＢＡＳＩＣ上からＬＯＡＤして下さい。
＿ＭＵＳＩＣで初期化してＰＬＡＹ文のＰＳＧで音声合成します。
音質は物凄く悪いのでネタ系だと思って下さい。
ＭＳＸ・ＦＡＮ　１９８８年１１月号掲載、『非道の拳』　尾花健一（おばな　けんいち）氏作　を改造しました。
＜謝辞＞　無断で改造しています
　
必殺技に音声が付きます。以下のプログラムを MERGE して下さい。
　
10 _MUSIC:CLEAR2000,&HCD00:DEFINTA-Z:COLOR15,1,1:SCREEN1:
WIDTH32:KEYOFF:LOCATE2,21:PRINT"WAIT A MOMENT.":
FORI=2TO15:VPOKE8202+I,I*17:NEXT:DIMC$(10)

30 DIMD$(4),E$(4),F$(4):RESTORE1000:
FORA=0TO4:READD$(A),E$(A),F$(A):NEXT:VC=0

80 CLS:RD=RD+1:IFRD>20THEN300ELSELOCATE12,12:PRINT"ROUND"RD:
A$="T240L2O3GO4DO3B-.L4AGB-AGF+AD2":PLAY"V15"+A$,"R14V12"+A$

170 SOUND7,56:IFVC<5THENPLAYD$(VC),E$(VC),F$(VC):VC=VC+1

175 TR=0:LOCATEHX+11,11:PRINTC$(6):HX=HX+1:IFHX>TX-10THENVC=0:GOSUB220

1000 DATA"T120L60V6O3AV12O5BV13GV12CV7O4C+V14F+",
"T120L60V8O6CV11O5F+V12O6CV9O4C+V6BV11G","T120L60V6O3GV8BV11O5EV10C+V4O3BV10O4F"

1010 DATA"V13G+V15AV14A+V13A+A+V15O5A+",
"O5G+AV14A+A+A+V13O4A+","V9AV11O7GV10GV11GGO5B"

1020 DATA"BBV13AV12O4AO5G+V10O4G+",
"V14BV13BV12AV11O5AO4G+V10O5G+","V9O6BV8O4BV12O5BV11O7D+V12D+V9O4G"

1030 DATA"V8EV3O3A+V9O4EV14O6GV15GV14G",
"V7O4F+V3O3G+V7O4FV12GO6BV10O4G","V6FV2GV8D+V13O6BV9O4GV12O6G"

1040 DATA"V10O4F+V8DV7O3G+V5F+R30","V6GV7O3BV5A+ER30","V6O4EV7D+V4D+O3AR30"
説明
　
10 _MUSIC文追加
30 音声データの読込
80 PLAY文の最後を修正



戻る

ツリー表示
トップページへ