HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0208
名前はもうあるBGM4解決


名前はもうある

リンク

2016/2/8(Mon) 13:49:12|NO.74512

;アフターバーナー2のBGM"After Burner"の一部を鳴らすプログラムです。
cls 0
mes "アフターバーナー2 After Burner 音量注意!"
#const ド 440
#const レ 494
#const ミ 554
#const ファ 587
#const ソ 659
#const ラ 740
#const シ 830
#const ド_ 880

hz = ド , レ , ミ , ファ , ソ , ラ// , シ , ド_
#const WAITING 100

#include "Kernel32.as"
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 20
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 20
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 35
loop
repeat 1 , 0
Beep hz(4-cnt),200
Sleep WAITING

Beep hz(4-cnt),200
Sleep WAITING
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING

Beep hz(5-cnt) , 200
Sleep WAITING
loop
repeat 1,0
beep hz(4-cnt),200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(3-cnt) , 200
Sleep WAITING

Beep hz(3-cnt) , 200
Sleep WAITING
loop
repeat 1,0
beep hz(4-cnt),200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(4-cnt),200
Sleep WAITING

Beep hz(4-cnt),200
Sleep WAITING
wait 10
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 20
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 20
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 20
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
wait 35
loop
repeat 1 , 0
Beep hz(4-cnt),200
Sleep WAITING

Beep hz(4-cnt),200
Sleep WAITING
loop
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(5-cnt) , 200
Sleep WAITING

Beep hz(5-cnt) , 200
Sleep WAITING
loop
repeat 1,0
beep hz(4-cnt),200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(3-cnt) , 200
Sleep WAITING

Beep hz(3-cnt) , 200
Sleep WAITING
loop
repeat 1,0
beep hz(4-cnt),200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 20
repeat 1 , 0
Beep hz(4-cnt) , 200
Sleep WAITING
loop
wait 35
repeat 1 , 0
Beep hz(4-cnt),200
Sleep WAITING

Beep hz(4-cnt),200
Sleep WAITING
loop
wait 20
Beep hz(2-cnt),200
Sleep WAITING

wait 75
Beep hz(2-cnt),200
Sleep WAITING
Beep hz(2-cnt),200
Sleep WAITING
wait 100
Beep hz(2-cnt),200
Sleep WAITING
wait 20
Beep hz(2-cnt),200
Sleep WAITING
wait 50
Beep hz(2-cnt),200
Sleep WAITING
Beep hz(2-cnt),200
Sleep WAITING



この記事に返信する


名前はもうある

リンク

2016/2/8(Mon) 13:50:42|NO.74513

改造などはOKですが、ひとことお知らせ願います。



名前はもうある

リンク

2016/2/8(Mon) 13:52:33|NO.74514

こちらのページを参考にさせていただきました。ありがとうございます!
http://hsp.tv/play/pforum.php?mode=pastwch&num=44922



Noap

リンク

2016/2/9(Tue) 05:57:07|NO.74527

「ちょっとしたソースコードを投稿するスレ」を見て来ました。

名前はもうある様、
曲のスクリプトを投稿されていますが曲の著作権?は大丈夫なのでしょうか。
「AFTER BURNER」で検索しましたがゲームの音楽らしくパブリックドメイン等ではないため勝手に掲示板に投稿するのはよくない気がします。
わたしの勘違いで「AFTER BURNER」はパブリックドメインである、名前はもうある様が著作権者である等であればすみません。
私は法律のことはさっぱりなので質問は別の人にお願いします。



Noap

リンク

2016/2/12(Fri) 05:59:06|NO.74573

肝心のスクリプトを書いていませんでした。
こうするといい気がします。 (楽譜は即興で並べたものです)
またわたしの耳がおかしくなければ440Hzはドではなくラではないかと思います。具体的な証拠はなくただ思うだけなので、400Hzがドなのかもしれません。
間違っていればすみません。
返答をくださるとうれしいです。


#uselib "kernel32.dll" #func Beep "Beep" int,int table_scales= 440, 494, 554, 587, 659, 740, 830, 880 //待ち時間 table_time_wait= 200, 300, 400, 500, 20, 200, 100, 200, 200 table_music = "012345677" len_music = strlen(table_music) if len_music == length(table_time_wait) { for i,,len_music idx = peek(table_music,i) - '0' Beep table_scales.idx, 200 await table_time_wait.idx next }



ONION software Copyright 1997-2021(c) All rights reserved.