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 turn_right()
{OnRev(OUT_C);Wait(115);OnFwd(OUT_C);}
sub turn_left()
{OnRev(OUT_A);Wait(115);OnFwd(OUT_A);}


sub massugu ()
{OnFwd(OUT_A);
Wait(10);
Off(OUT_A);
Wait(20);
OnRev(OUT_A);
Wait(20);
Off(OUT_A);
Wait(20);
}


task main()
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)
int t=0

while(t<2)
{
OnFwd(OUT_A);
Wait(10);
Off(OUT_A);
Wait(20);
OnFwd(OUT_A+OUT_C);
                    if(SENSOR_1<40)
                      {t=t+1;Wait(30);}
}

if(SENSOR_1>SENSOR_3)



turn_right();

ClearTimer(0);
while(FastTimer(0)<200)
{
OnRev(OUT_A);
Wait(20);
Off(OUT_A);
Wait(20);
               if(SENSOR_1<40){Off(OUT_A);Wait(5);OnFwd(OUT_A);}
}
}}

turn_left();

until(SENSOR_3<40)
Off(OUT_A+OUT_C);OnFwd(OUT_B);Wait(200);Off(OUT_B);OnFwd(OUT_C);

turn_left();
until(SENSOR_2==1)
OnFwd(OUT_B);Wait(80);Float(OUT_B);
}

[[2006b/A1/kuroneko]]



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS