¸½ºßÈò¤±¥²¡¼¡Ê¤Î¤è¤¦¤Ê¤â¤Î¡Ë¤òºî¤ê¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
Ä̾ï¤ÎÈò¤±¥²¡¼¤À¤ÈŨ¤¬¥é¥ó¥À¥à¤ËÇÛÃÖ¤µ¤ì¤ë¤³¤È¤¬Â¿¤¤¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢»ä¤Ï»öÁ°¤ËŨ¤ÎÇÛÃÖ¤òÀßÄꤷ¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
¥µ¥ó¥×¥ë¤«¤é¾å¼ê¤¯²þ¤¤Ç¤¤Ê¤¤¤«¤Ê¤È¿§¡¹¤ÊÈò¤±¥²¡¼¤ä¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¥¹¥¯¥ê¥×¥È¤ò¸«¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤ì¤âŨ¤ÎÇÛÃÖ¤¬¥é¥ó¥À¥à¤Ë¤Ê¤Ã¤Æ¤ª¤ê¡¢°ì¤«¤é¼«Ê¬¤Çºî¤Ã¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
°Ê²¼¤Î¥¹¥¯¥ê¥×¥È¤À¤È¾å¤«¤é¹ß¤Ã¤Æ¤¯¤ëŨ°ì¤Ä°ì¤Ä¤Ë½é´üºÂɸ¤òÍ¿¤¨¤Æ²¼¤ËÍî¤Á¤ë¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤¹¡£
screen 0,300,700 ///¹ß¤Ã¤Æ¤¯¤ëÀÖ¤¤»Í³Ñ cube_px = 0 // È¢1 º¸¾åºÂɸX cube_py = 0 // È¢1 º¸¾åºÂɸY cube_px2 = 50 // È¢2 º¸¾åºÂɸX cube_py2 = 0 // È¢2 º¸¾åºÂɸY cube_px3 = 100 // È¢3 º¸¾åºÂɸX cube_py3 = 0 // È¢3 º¸¾åºÂɸY cube_length = 10 // ½Ä¤ÎŤµ cube_width = 50 // ²£¤ÎŤµ cube_my = 1 ¡¡// °ÜÆ°ÎÌ cube_speed = 5 // °Üư®ÅÙ ///²¼Éô¤ÇÆ°¤¯ÀĤ¤»Í³Ñ x = 0¡¡¡¡// ½é´üºÂɸX y = 650¡¡// ½é´üºÂɸY p = 50 // °ÜÆ°ÎÌ *one redraw 0 // ÉÁ²è³«»Ï color 0,0,0 //ÀÖ¤¤»Í³ÑÉÁ²è boxf color 255,0,0 line 50,0,50,700 line 100,0,100,700 line 150,0,150,700 line 200,0,200,700 line 250,0,250,700 line 0,650,300,650 boxf cube_px, cube_py, cube_px + cube_width, cube_py + cube_length color 0,0,255¡¡//ÀĤ¤»Í³ÑÉÁ²è boxf x,y,x+50,y+50¡¡ stick key if key&4 : x = x + p if key&1 : x = x - p if x < 0 : x = 0 if x > 250 : x = 250 redraw 1¡¡//ÉÁ²è½ªÎ» gosub *cube_move // È¢¤Î°ÜÆ°½èÍý await 15 // ±þÅú¤Ê¤·ËÉ»ß gosub *one // È¢¤Î°ÜÆ°½èÍý *cube_move cube_py += cube_my * cube_speed // È¢¤Îɽ¼¨°ÌÃÖ¤ò¹¹¿·¤¹¤ë½èÍý if cube_py >=660 : goto *two // ¼¡¤ÎÈ¢¤ò½Ð¤¹ return //////////////////////////////////////////////////////////////////////////////// *two redraw 0 color 0,0,0 boxf color 255,0,0 line 50,0,50,700 line 100,0,100,700 line 150,0,150,700 line 200,0,200,700 line 250,0,250,700 line 0,650,300,650 boxf cube_px2, cube_py2, cube_px2 + cube_width, cube_py2 + cube_length color 0,0,255 boxf x,y,x+50,y+50¡¡ stick key if key&4 : x = x + p if key&1 : x = x - p if x < 0 : x = 0 if x > 250 : x = 250 redraw 1 gosub *cube_move2 // È¢¤Î°ÜÆ°½èÍý await 15 // ±þÅú¤Ê¤·ËÉ»ß goto *two // È¢¤Î°ÜÆ°½èÍý *cube_move2 cube_py2 += cube_my * cube_speed // È¢¤Îɽ¼¨°ÌÃÖ¤ò¹¹¿·¤¹¤ë½èÍý if cube_py2 >=660 : goto *three //¼¡¤ÎÈ¢¤ò½Ð¤¹ return //////////////////////////////////////////////////////////////////////////// *three redraw 0 color 0,0,0 boxf color 255,0,0 line 50,0,50,700 line 100,0,100,700 line 150,0,150,700 line 200,0,200,700 line 250,0,250,700 line 0,650,300,650 boxf cube_px3, cube_py3, cube_px3 + cube_width, cube_py3 + cube_length; color 0,0,255 boxf x,y,x+50,y+50¡¡ stick key if key&4 : x = x + p if key&1 : x = x - p if x < 0 : x = 0 if x > 250 : x = 250 redraw 1 gosub *cube_move3 // È¢¤Î°ÜÆ°½èÍý await 15 // ±þÅú¤Ê¤·ËÉ»ß goto *three // È¢¤Î°ÜÆ°½èÍý *cube_move3 cube_py3 += cube_my * cube_speed // È¢¤Îɽ¼¨°ÌÃÖ¤ò¹¹¿·¤¹¤ë½èÍý if cube_py3 >=660 : end¡¡¡¡//½ªÎ»¡Ê¼ÂºÝ¤Ï¤µ¤é¤Ë³¤¯¡Ë return
¾å¤Î¥¹¥¯¥ê¥×¥È¤Ç¤Ï¡¢º¸¤«¤é1ÎóÌÜ¡¢2ÎóÌÜ¡¢3ÎóÌܤ˽çÈÖ¤ËÀÖ¤¤»Í³Ñ¤¬Íî¤Á¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
3¸ÄÌܤλͳѤ¬Íî¤Á¤¿¤é½ªÎ»¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢¼ÂºÝ¤Ï2ʬ¤°¤é¤¤Â³¤¯¥¹¥Æ¡¼¥¸¤òÁÛÄꤷ¤Æ¤¤¤Þ¤¹¡£
²¼¤ÎÀĤ¤»Í³Ñ¤Ï²ÄÆ°¤Ç¤¹¡£
¤ª¿Ò¤Í¤·¤¿¤¤¤³¤È¤Ï2¤Ä¤Ç¤¹¡£
¡¾å¤«¤é¹ß¤ëÀÖ¤¤»Í³Ñ¤ÎÇÛÃÖ¤ò»öÁ°¤ËÀßÄꤹ¤ëÊýË¡
¡Ê²Äǽ¤Ç¤¢¤ì¤Ð¥¹¥Æ¡¼¥¸À©¤Ë¤·¤¿¤¤¤Î¤Ç²»¥²¡¼ÉèÌ̤Τ褦¤Ë³ÆÇÛÃÖ¤òÊݸ¤·¤¿¤¤¡Ë
¢ÀÖ¤¤»Í³ÑÍî²¼¤ÎÌ©ÅÙ¤ò¾å¤²¤ëÊýË¡
¡Êº£¤Î¾õ¶·¤À¤ÈÁ°¤Î»Í³Ñ¤¬¾Ã¤¨¤ë¤Þ¤Ç¼¡¤Î»Í³Ñ¤¬¸½¤ì¤Ê¤¤¤Î¤Ç¡¢Ê¹Ժî¶ÈŪ¤Ë¤É¤ó¤É¤ó»Í³Ñ¤¬¹ß¤ë¤è¤¦¤Ë¤·¤¿¤¤¡Ë
GWÃæ¤Ë¤«¤Ê¤êÄ´¤Ù¤Æ¤ß¤Þ¤·¤¿¤¬²¿¤âʬ¤«¤é¤Ê¤«¤Ã¤¿¤Î¤Ç·Ç¼¨ÈĤˤƼÁÌ䤵¤»¤Æĺ¤¤Þ¤·¤¿¡£
µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
¢¨¡ÖÈò¤±¥²¡¼¤ä¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¥¹¥¯¥ê¥×¥È¤ò¾å¼ê¤¯Ï®¤ì¤Ð¤Ç¤¤ë¡×¤È¤¤¤¦»ö¤Ç¤¢¤ì¤Ð¡¢»ä¤¬½ñ¤¤¤¿¾å¤Î¥¹¥¯¥ê¥×¥È¤Ï̵»ë¤·¤Æ¤â¤é¤Ã¤Æ¹½¤¤¤Þ¤»¤ó¡£