学習ノート Hypodytes rubripinnis

MUSIC!

課題5:

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

青春アミーゴ(修二と彰)のプログラム

作成者:Hypodytes rubripinnis

movie


sub seishun() {
		PlayTone(523, 38);
		Wait(40);
		PlayTone(587, 38);
		Wait(40);
		PlayTone(622, 38);
		Wait(40);
		PlayTone(587, 18);
		Wait(20);
		PlayTone(523, 38);
		Wait(40);
		PlayTone(466, 38);
		Wait(40);
		PlayTone(523, 38);
		Wait(40);
		PlayTone(466, 8);
		Wait(10);
		PlayTone(392, 28);
		Wait(50);
		PlayTone(523, 38);
		Wait(40);
		PlayTone(587, 38);
		Wait(40);
		PlayTone(622, 38);
		Wait(40);
		PlayTone(587, 18);
		Wait(20);
		PlayTone(523, 38);
		Wait(40);
		PlayTone(466, 38);
		Wait(40);
		PlayTone(622, 158);
		Wait(180);
		PlayTone(622, 23);
		Wait(80);
		PlayTone(415, 58);
		Wait(60);
		PlayTone(415, 18);
		Wait(20);
		PlayTone(370, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(311, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(415, 18);
		Wait(20);
		PlayTone(370, 38);
		Wait(60);
		PlayTone(370, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(370, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(370, 18);
		Wait(20);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(370, 38);
		Wait(40);
		PlayTone(370, 38);
		Wait(40);
		PlayTone(330, 18);
		Wait(20);
		PlayTone(311, 38);
}

task play_music()
     {seishun();}

task main()
     {start play_music;}

添付ファイル: file青春アミーゴ.wmv 60件 [詳細]

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