学習ノート Hypodytes rubripinnis

MUSIC!

課題5:

アクセス数:今日1 総数&counter([total|today|yesterday]);   最終更新日:2006-01-08 (日) 00:27:19

Dreamland(BENNIE K)のプログラム

作成者:Hypodytes rubripinnis

movie


sub dreamland() {
		PlayTone(831, 58);
		Wait(60);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(80);
		PlayTone(740, 58);
		Wait(60);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(80);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(740, 18);
		Wait(20);
		PlayTone(740, 18);
		Wait(20);
		PlayTone(659, 18);
		Wait(40);
		PlayTone(494, 58);
		Wait(60);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(80);
		PlayTone(831, 58);
		Wait(60);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(80);
		PlayTone(740, 58);
		Wait(60);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(80);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(740, 18);
		Wait(20);
		PlayTone(740, 18);
		Wait(20);
		PlayTone(659, 18);
		Wait(40);
		PlayTone(494, 58);
		Wait(60);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(740, 18);
		Wait(20);
		PlayTone(659, 23);
		Wait(40);
		PlayTone(988, 15);
		Wait(20);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(1109, 11);
		Wait(20);
		PlayTone(988, 38);
		Wait(80);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(1109, 18);
		Wait(20);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(880, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(1319, 58);
		Wait(60);
		PlayTone(988, 28);
		Wait(100);
		PlayTone(988, 15);
		Wait(20);
		PlayTone(988, 11);
		Wait(20);
		PlayTone(988, 15);
		Wait(20);
		PlayTone(1109, 13);
		Wait(20);
		PlayTone(988, 38);
		Wait(80);
		PlayTone(988, 15);
		Wait(20);
		PlayTone(988, 15);
		Wait(20);
		PlayTone(1109, 13);
		Wait(20);
		PlayTone(988, 18);
		Wait(20);
		PlayTone(880, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(1319, 58);
		Wait(60);
		PlayTone(988, 28);
		Wait(150);
		PlayTone(247, 38);
		Wait(40);
		PlayTone(330, 8);
		Wait(10);
		PlayTone(330, 8);
		Wait(10);
		PlayTone(370, 18);
		Wait(20);
		PlayTone(415, 18);
		Wait(20);
		PlayTone(440, 18);
		Wait(20);
		PlayTone(415, 33);
		Wait(40);
		PlayTone(330, 13);
		Wait(20);
		PlayTone(415, 30);
		Wait(40);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(415, 18);
		Wait(20);
		PlayTone(440, 18);
		Wait(20);
		PlayTone(415, 38);
}

task play_music()
     {dreamland();}

task main()
     {start play_music;}

添付ファイル: fileDreamland.wmv 64件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-01-08 (日) 00:27:19