HSPTV!掲示板

;アフターバーナー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

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

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

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

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

肝心のスクリプトを書いていませんでした。
こうするといい気がします。 (楽譜は即興で並べたものです)
またわたしの耳がおかしくなければ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

}