2004/C7/演奏ロボット(必須) 一山 カナコ

#define l_Mi 330

#define l_Fa 349

#define l_Sol 392

#define l_Sol_ 415

#define l_La 440

#define Do 523

#define Do_ 554

#define Re 587

#define Re_ 662

#define Mi 659

#define Fa 698

#define Fa_ 740

#define Sol 784

#define Sol_ 831

#define La 880

#define Si 988

#define h_Do 1047

#define A 30

#define A_ 26

#define B 15

#define B_ 11

#define C 22

#define C_ 18

#define D 8

#define D_ 4

#define E 90

#define E_ 86

    

task music_kaby() {

PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);

PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);

PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);

PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Sol_,B_); Wait(B); PlayTone(Sol_,A_); Wait(A);

repeat(2) { PlayTone(l_Sol,C_); Wait(C); PlayTone(l_Sol,D_); Wait(D); PlayTone(Do,E_); Wait(E);

PlayTone(Do,C_); Wait(C); PlayTone(Mi,D_); Wait(D); PlayTone(Sol,B_); Wait(B); PlayTone(h_Do,B_); Wait(B); PlayTone(Si,B_); Wait(B); PlayTone(La,B_); Wait(B); PlayTone(Sol,A_); Wait(A);

PlayTone(Mi,C_); Wait(C); PlayTone(Sol,D_); Wait(D); PlayTone(Fa,A_); Wait(A);

PlayTone(Re,C_); Wait(C); PlayTone(Mi,D_); Wait(D); PlayTone(Re,A_); Wait(A);

PlayTone(Mi,C_); Wait(C); PlayTone(Re,D_); Wait(D); PlayTone(Do,E_); Wait(E); }

PlayTone(Do,B_); Wait(B); PlayTone(Do,B_); Wait(B); PlayTone(Re,B_); Wait(B); PlayTone(Mi,A_); Wait(A);

PlayTone(Do,B_); Wait(B); PlayTone(Re,B_); Wait(B); PlayTone(Do,E_); Wait(E);

}

task music_inoki()

{

while(true) { PlayTone(Sol,E_); Wait(E); PlayTone(l_Sol,A_); Wait(A); PlayTone(l_La,E_); Wait(E);

PlayTone(Sol,A_); Wait(A); PlayTone(Fa,E_); Wait(E); PlayTone(l_Fa,A_); Wait(A); PlayTone(l_Sol,E_); Wait(E); Wait(A);

PlayTone(Mi,E_); Wait(E); PlayTone(l_Mi,A_); Wait(A); PlayTone(l_Fa,E_); Wait(E);

PlayTone(Re,A_); Wait(A); PlayTone(Do,E_); Wait(E); PlayTone(l_Mi,A_); Wait(A); PlayTone(l_Fa,E_); Wait(E); Wait(A);

} }

task main() { SetSensor(SENSOR_1,SENSOR_TOUCH); until(SENSOR_1 == 1) { start music_kaby; OnRev(OUT_A+OUT_C); } start music_inoki; OnFwd(OUT_A+OUT_C);

} ファミコン盤星のカービーの夢の泉というステージのバックミュージック。。懐かしい。。 もう一つは、燃える闘魂猪木のテーマソング。。熱いです。


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