task main() { start unknown; } #define C 523 #define D 587 #define E 659 #define F 698 #define G 784 #define A 880 #define Bf 932 #define H 1047 #define Dx 1175 #define Fx 1397 task unknown() { while(true) { PlayTone(C,15);Wait(20); PlayTone(F,55);Wait(60); PlayTone(A,15);Wait(20); PlayTone(H,55);Wait(60); PlayTone(F,15);Wait(20); PlayTone(Bf,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(Fx,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(H,55);Wait(60); PlayTone(B,15);Wait(20); PlayTone(Bf,15);Wait(20); PlayTone(G,15);Wait(20); PlayTone(C,15);Wait(20); PlayTone(Bf,15);Wait(20); PlayTone(B,15);Wait(20); PlayTone(G,15);Wait(20); PlayTone(C,15);Wait(20); PlayTone(G,15);Wait(20); PlayTone(E,35);Wait(40); PlayTone(D,35);Wait(40); PlayTone(C,55);Wait(60); } } #define G 784 #define A 880 #define B 988 #define H 1047 #define Dx 1175 #define Ex 1319 #define Fx 1397 #define Gx 1568 #define Ax 1760 task matsuri() { while(true) { repeat(2) { PlayTone(H,15);Wait(20); PlayTone(B,15);Wait(20); PlayTone(H,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(Ex,35);Wait(40); PlayTone(G,35);Wait(40); PlayTone(A,35);Wait(40); PlayTone(B,35);Wait(40); PlayTone(H,55);Wait(80); } PlayTone(Gx,15);Wait(20); PlayTone(Ax,15);Wait(20); PlayTone(Gx,15);Wait(20); PlayTone(Ex,15);Wait(20); PlayTone(Fx,15);Wait(20); PlayTone(Gx,15);Wait(20); PlayTone(Fx,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(Ex,15);Wait(20); PlayTone(Fx,15);Wait(20); PlayTone(Ex,15);Wait(20); PlayTone(H,15);Wait(20); PlayTone(Dx,55);Wait(80); PlayTone(Gx,12);Wait(20); PlayTone(Ax,12);Wait(20); PlayTone(Gx,12);Wait(20); PlayTone(Ex,12);Wait(20); PlayTone(Fx,12);Wait(20); PlayTone(Gx,12);Wait(20); PlayTone(Fx,12);Wait(20); PlayTone(Dx,12);Wait(20); PlayTone(Ex,12);Wait(20); PlayTone(Fx,12);Wait(20); PlayTone(Ex,12);Wait(20); PlayTone(H,12);Wait(20); PlayTone(Dx,55);Wait(80); PlayTone(H,15);Wait(20); PlayTone(B,15);Wait(20); PlayTone(H,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(Ex,35);Wait(40); PlayTone(G,35);Wait(40); PlayTone(A,35);Wait(40); PlayTone(B,35);Wait(40); PlayTone(H,55);Wait(80); PlayTone(Ex,15);Wait(20); PlayTone(Dx,15);Wait(20); PlayTone(Ex,15);Wait(20); PlayTone(Fx,15);Wait(20); PlayTone(Gx,35);Wait(40); PlayTone(G,35);Wait(40); PlayTone(A,35);Wait(40); PlayTone(B,35);Wait(40); PlayTone(H,55);Wait(80); } } sub massugu () {OnFwd(OUT_A); Wait(10); Off(OUT_A); Wait(20); OnRev(OUT_A); Wait(20); Off(OUT_A); Wait(20); } task main() SetSensor(SENSOR_1,SENSOR_LIGHT); SetSensor(SENSOR_2,SENSOR_TOUCH); SetSensor(SENSOR_3,SENSOR_LIGHT); { while(true) { sub massugu(); if(SENSOR_1<SENSOR_3) { OnFwd(OUT_A); Wait(10); Off(OUT_A); Wait(20); } if(SENSOR_1>SENSOR_3) { OnRev(OUT_A); Wait(20); Off(OUT_A); Wait(20); } }} [[2006b/A1/kuroneko]]