- 追加された行はこの色です。
- 削除された行はこの色です。
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]]