Ìܼ¡
Hato
Ëͤ¿¤Á¤Ï¡¢¤ª³¨¤«¤¥í¥Ü¥Ã¥È¤òºî¤ëºÝ¡¢Â¤È¤Ê¤ë¥É¥é¥¤¥Ö¥Ù¡¼¥¹¡¢¥Ú¥ó¤Î¾å¤²²¼¤²¤ò¤¹¤ë ¥Ù¥ë¥È¥³¥ó¥Ù¥¢¡¼¡¢¤ÎÆó¤Ä¤ò¹Í¤¨¤Æºî¤Ã¤¿¡£¼Ì¿¿¤Î¤è¤¦¤Ë¡¢»æ¤Î¾å¤òÁö¤Ã¤ÆÉÁ¤¯¥í¥Ü¥Ã¥È¤Ç¤¢¤ë¡£
½é¤á¤Ï¡¢¤â¤Ã¤ÈÂ礤¤¥¿¥¤¥ä¤ò»È¤Ã¤Æ¤¤¤¿¤¬¡¢¤É¤¦¤·¤Æ¤â»æ¤ò´¬¤¹þ¤ó¤Ç¤·¤Þ¤¦¤Î¤Ç¼Ì¿¿¤Î¤è¤¦¤Ë¡¢¥¿¥¤¥ä¤ò¾®¤µ¤¯¤·¤¿¡£
¤Þ¤¿¡¢¤³¤Î¤Þ¤Þ¤Ç¤Ï¡¢°ÂÄꤷ¤Ê¤¤¤Î¤Ç¡¢Êä½õÎؤâ¤Ä¤±¤¿
¤³¤ì¤Ç°ÂÄꤹ¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£ÆäËÁ°ÎؤÏÃÏÌ̤ÈÀÜ¿¨¤·¤Æ¤¤¤Ê¤¤¤¬¡¢¥í¥Ü¥Ã¥È¤¬·¹¤¯¤Î¤òËɤ°¤Ë¤Ï¡¢¤¸¤å¤¦¤Ö¤ó¤À¤Ã¤¿¡£
½é¤á¡¢¥Ú¥ó¤ò¥¢¡¼¥à¤Ç¾å¤²¤ëͽÄê¤À¤Ã¤¿¤¬¡¢
¡¡¡¥Ú¥ó¤ò¾å¤²¤ëºÝ¡¢°ÂÄꤷ¤Ê¤¤
¡¡¢¤ß¤ó¤Ê¤ä¤Ã¤Æ¤¤¤ë
¤ÎÆó¤Ä¤ÎÍýͳ¤Ç¤ä¤á¤¿
¤½¤¦¤·¤Æ¡¢·è¤á¤¿¤Î¤¬¡¢¥Ù¥ë¥È¥³¥ó¥Ù¥¢¡¼¤ò»È¤¦ÊýË¡¤Ç¤¢¤ë¡ª
¤³¤ì¤Î¥á¥ê¥Ã¥È¤Ï¥Ú¥ó¤ò»æ¤ËÂФ·¤Æ¡¢¿âľ¤Ë¾å²¼¤Ç¤¤ë¤³¤È¤Ç¤¢¤ë¡ª
¤·¤«¤·¡¢Ëͤ¿¤Á¤Ï¡¢¤¢¤ë²ÝÂê¤ËľÌ̤·¤¿¡£
¡¡¤½¤ì¤Ï¡¢¥¨¥ó¥¸¥ó¤Î¥Ñ¥ï¡¼¤È¶¯ÅÙ¤ÎξΩ¤Ç¤¢¤ë¡£
¾Ü¤·¤¯¤¤¤¦¤È¡¢¥¨¥ó¥¸¥ó¤Î¥Ñ¥ï¡¼¤ò¾å¤²¤ë¤È¡¢ËÜÂΤ¬ÂѤ¨¤é¤ì¤Ê¤¯¤Ê¤ê¡¢²õ¤ì¤Æ¤·¤Þ¤¦¤¬¡¢¥Ñ¥ï¡¼¤ò²¼¤²¤ë¤È¡¢¥Ú¥ó¤¬Æ°¤«¤Ê¤¤¤Î¤À(´À)
¤³¤¦¤·¤Æ¹Í¤¨¤¿¤Î¤¬¡¢¤³¤ì¢
¸«¤Ë¤¯¤¤¤¬¡¢¥â¡¼¥¿¡¼¤«¤é£³¤Ä¤Î¥®¥¢¤¬¤«¤ß¹ç¤Ã¤Æ¥´¥à¥Ù¥ë¥È¤Ç¥Ù¥ë¥È¤òÆ°¤«¤·¤Æ¤¤¤ë¡£¥®¥¢¤ò¤À¤ó¤À¤óÂ礤¯¤·¤Æ¤¤¤¯¤³¤È¤Ë¤è¤ê¡¢¥Ñ¥ï¡¼¤ò¾å¤²¡¢¤«¤«¤ëÎϤò¼å¤¤¤È¤³¤í¤Ë¤«¤±¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¥Ñ¥ï¡¼¤È¶¯ÅÙ¤ÎξΩ¤ËÀ®¸ù¤·¤¿(¤ä¤Ã¤¿¤Í¡ª)
¤³¤ó¤Ê¤«¤ó¤¸
sub Active_pen() { PlaySound(SOUND_UP) ; OnFwd(OUT_B); //¥Ú¥ó¤ò͸ú¤Ë¤¹¤ë Wait(60); Off(OUT_B); }
sub Deactive_pen() { PlaySound(SOUND_DOWN) ; OnRev(OUT_B); //¥Ú¥ó¤ò̵¸ú¤Ë¤¹¤ë Wait(63); Off(OUT_B); }
sub Turn_Right_Alpha() { OnFwd(OUT_A); //±¦²óž¤½¤Î1 OnRev(OUT_C); Wait(30); Off(OUT_AC); }
sub Turn_Right_Bravo() { OnFwd(OUT_A); //±¦²óž¤½¤Î1 OnRev(OUT_C); Wait(20); Off(OUT_AC); }
sub Turn_Left_Alpha() { OnRev(OUT_A); //±¦²óž¤½¤Î1 OnFwd(OUT_C); Wait(20); Off(OUT_AC); }
sub Turn_Left_Bravo() { OnFwd(OUT_C); //±¦²óž¤½¤Î1 OnRev(OUT_A); Wait(30); Off(OUT_AC); }
task main() { Active_pen(); SetPower(OUT_B,5);
OnFwd(OUT_A); //ÎسԤò½ñ¤¯
repeat(30){ OnRev(OUT_C); Wait(1); Off(OUT_C); Wait(12); } Off(OUT_AC); Deactive_pen(); Off(OUT_B);
Turn_Right_Alpha(); //ÌÜ OnFwd(OUT_AC); Wait(30); Off(OUT_AC); Active_pen(); Off(OUT_B); OnFwd(OUT_AC); Wait(30); Off(OUT_AC); Deactive_pen(); OnFwd(OUT_AC); Wait(50); Off(OUT_AC); Active_pen(); OnRev(OUT_AC); Wait(30); Off(OUT_AC);
Turn_Left_Alpha(); //¤Ï¤Ê Deactive_pen(); OnRev(OUT_AC); Wait(20); Off(OUT_AC); Active_pen(); Turn_Left_Alpha(); Deactive_pen(); }
¤È¤ê¤¢¤¨¤º¡¢´é¤Ç¤¢¤ë¡£¥í¥Ü¥Ã¥È¤Ð¤«¤êµ¤¤ò¤È¤é¤ì¤Æ¡¢¥×¥í¥°¥é¥ß¥ó¥°¤ò˺¤ì¤Æ¤¤¤¿¡Ä¡£
ÀµÄ¾¡¢ÀèÇÚ¤¿¤Á¤Î¥í¥Ü¥Ã¥È¤¬ÁÇÀ²¤é¤·¤¹¤®¤ë¤Î¤Ç¡¢½é¤á¤Î¤¦¤Á¤Ï¡¢É԰¤·¤«¤Ê¤«¤Ã¤¿¡£¤·¤«¤·¡¢¤ä¤Ã¤Æ¤¤¤¯¤¦¤Á¤Ë³Ú¤·¤¯»×¤¨¤Æ¤¤¿¡£
º£²ó¤Ï¡¢¤¢¤Þ¤ê¤¦¤Þ¤¯¤¤¤«¤Ê¤«¤Ã¤¿¤¬¼¡¤³¤½´èÄ¥¤ê¤¿¤¤¡£