CRドデカ桜7に確変をつけました。
http://oto.chu.jp/mmlbbs6/post.php?mml_id=1853ただし、サクラの仕様上完全なランダムはやばいので、天井と確変パンクを設けてあります。
テキスト音楽サクラでのみ動きます。かつ、メッセージウィンドウの行数(11行)に依存します。
TEST=0の状態で配布していますが、必ずTEST=1を行って、メッセージウィンドウの行数の調整を行ってください。
音と画面がミスマッチなのはご愛敬ってことで・・・
確変の分のBGMも追加になってますよ
※実機での天井は違法です。
ちなみに、しゅんさんの店ほど釘が甘くないので、そうやすやすとは、来ませんねw
TOPページより・・・・
>テキスト音楽「サクラ」は、エディタに『ドレミ』と書けば、その通りに音楽を演奏することができるソフトです。 パソコン+サクラの本体だけで、本格的な音楽制作ができます。
>クラシックからポップス、ロック、果ては、実験音楽まで、あらゆるジャンルの音楽を、ワープロ感覚で作ることができます。しかも、サクラは、高校の情報の教科書(東京書籍-社会と情報/情報の科学(H18年/H25/-)に掲載されて扱われています!
>安心してご利用ください。
すっかりシーケンサーであることを忘れて、遊んでました。
まぁ、画面付きパチンコ音楽ということで、お許し下さい。
(ほんとは、曲名忘れたほどぐらいの、古い曲の再利用なんですが。。。)
http://oto.chu.jp/a.oto.chu.jp/doc/command/index2.htm
しゅんさんのアイデアとこのあたりのページを見てたらできたようなものです。
>しゅんさんの店ほど釘が甘くないので
前作のはしゅんさんのより甘かったのですが、今回のは確変込なのできつめです。
是非オートで楽しんでください。
Function KMusic(CNT,MD) {
Str Music
Int C
IF(MD=0) {
C=CNT % 8
}
IF(MD=1) {
C=CNT+10
}
IF(C=0) {
Music={
(以下略)
で対処した。
ランダムで突然のぶつ切れの音楽になるわけなので。。。
これを思いつくのが一番時間かかったなの。。。
確変を新実装する上で、サクラならではの手抜きをしたところ・・・
KMusic(2,1)
For (Int J=2; J<=5; J++) {
Key(J)
TE=(JEgara+J+3)%9+1
View1(JEgara,TE,JEgara)
KMusic(2,1)
}
TE=(JEgara+J+8)%9+1
View1(JEgara,JEgara,JEgara)
Key(0)
確変中は面白いですね。サウンドもいかにもなフルートのトリルがいい感じで、新しいリーチアクションもあって、確変中に通常図柄でリーチがかかったら思わず「ハズれろ」と力が入ってしまいます。
確変中が面白いだけに、通常時に通常図柄で当たってしまったときのガッカリ感がハンパないです(笑)
リミッター付きであるように、いろいろな制約との葛藤があったと推察します(-_-)
もうこれは「作曲ソフト」の域を超えてますね。
ちなみに、↑の式、さっぱりわかりませんが(汗)、VBAとは違うのでしょうか。
単発プレイならいいんですが、
実は、オートモードではまって何度もプレイすると、コンパイルがうまくいかないという問題があるんです。
特にメモリ空き容量が少ないと、ひどく発生するようで。。。
まぁ、サクラを再起動すればいいんですが・・・
1Mバイト近くのMIDIファイルを、はまることによって、何度もランダムで再生成するわけですからね。
ちなみに↑に書いた式は、全部サクラで使えるものそのもので、ソースから抜粋したものですよ
VBAみたいなものが、サクラで使えるんですよ。