HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2019
0506
HBKŨ¤ÎÇÛÃÖ¤ò»öÁ°¤ËÀßÄꤹ¤ëÊýË¡2²ò·è


HBK

¥ê¥ó¥¯

2019/5/6(Mon) 11:42:25|NO.87261

HSP½é¿´¼Ô¤Ç¤¹¡£
¸½ºßÈò¤±¥²¡¼¡Ê¤Î¤è¤¦¤Ê¤â¤Î¡Ë¤òºî¤ê¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
Ä̾ï¤ÎÈò¤±¥²¡¼¤À¤ÈŨ¤¬¥é¥ó¥À¥à¤ËÇÛÃÖ¤µ¤ì¤ë¤³¤È¤¬Â¿¤¤¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢»ä¤Ï»öÁ°¤ËŨ¤ÎÇÛÃÖ¤òÀßÄꤷ¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
¥µ¥ó¥×¥ë¤«¤é¾å¼ê¤¯²þ¤¤Ç¤­¤Ê¤¤¤«¤Ê¤È¿§¡¹¤ÊÈò¤±¥²¡¼¤ä¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¥¹¥¯¥ê¥×¥È¤ò¸«¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤ì¤âŨ¤ÎÇÛÃÖ¤¬¥é¥ó¥À¥à¤Ë¤Ê¤Ã¤Æ¤ª¤ê¡¢°ì¤«¤é¼«Ê¬¤Çºî¤Ã¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
°Ê²¼¤Î¥¹¥¯¥ê¥×¥È¤À¤È¾å¤«¤é¹ß¤Ã¤Æ¤¯¤ëŨ°ì¤Ä°ì¤Ä¤Ë½é´üºÂɸ¤òÍ¿¤¨¤Æ²¼¤ËÍî¤Á¤ë¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤¹¡£


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Ãæ¤Ë¤«¤Ê¤êÄ´¤Ù¤Æ¤ß¤Þ¤·¤¿¤¬²¿¤âʬ¤«¤é¤Ê¤«¤Ã¤¿¤Î¤Ç·Ç¼¨ÈĤˤƼÁÌ䤵¤»¤Æ夭¤Þ¤·¤¿¡£
µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

¢¨¡ÖÈò¤±¥²¡¼¤ä¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Î¥¹¥¯¥ê¥×¥È¤ò¾å¼ê¤¯Ï®¤ì¤Ð¤Ç¤­¤ë¡×¤È¤¤¤¦»ö¤Ç¤¢¤ì¤Ð¡¢»ä¤¬½ñ¤¤¤¿¾å¤Î¥¹¥¯¥ê¥×¥È¤Ï̵»ë¤·¤Æ¤â¤é¤Ã¤Æ¹½¤¤¤Þ¤»¤ó¡£



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


·â

¥ê¥ó¥¯

2019/5/6(Mon) 20:42:33|NO.87269

´ðËܤϷ«¤êÊÖ¤·¤È¾ò·ïʬ´ô¤ÎÁȤ߹ç¤ï¤»¤Ç¡¢¤Ê¤ë¤Ù¤¯³Ú¤·¤è¤¦¤È¤¤¤¦µ¤»ý¤Á¤¬Âç»ö¤Ç¤¹¡£
¤³¤ó¤ÊÌ¿Îᤢ¤ì¤Ð¤¤¤¤¤Î¤Ë¤Ã¤Æ»×¤Ã¤¿»þ¤Ë¤Ï£Æ1¤Ç¥Þ¥Ë¥å¥¢¥ë¤ò¸«¤Þ¤·¤ç¤¦¡£
Î㤨¤Ð¤³¤ó¤Ê´¶¤¸¡ÊÌäÂꤢ¤ê¡¢¼Â¤Ï¥Ð¥°¤â¤¢¤ê¡¢ÀĻͳѤϾÊά¤·¤Þ¤·¤¿¡Ë

#module ////////////////////////////////////// ¥â¥¸¥å¡¼¥ë #deffunc cube_init // ¥­¥å¡¼¥Ö½é´üÀßÄê max=100 // ɽ¼¨ºÇÂç¿ô cube_SPEED=5 // Íî²¼¥¹¥Ô¡¼¥É cube_SIZEX=50 // ²£¥µ¥¤¥º cube_SIZEY=10 // ½Ä¥µ¥¤¥º dim cube_Flg,max // ¸ºß¥Õ¥é¥° dim cube_X,max // ²£°ÌÃÖ dim cube_Y,max // ½ÄºÂɸ return #defcfunc cube_new // ¿·¤·¤¤¥­¥å¡¼¥Ö¤ÎÈÖ¹æ¼èÆÀ ans=-1 repeat max if cube_Flg.cnt==0:ans=cnt:break ¡¡¡¡¡¡¡¡// ̤»ÈÍÑ¥­¥å¡¼¥Ö¤¬¤¢¤ì¤Ð¤½¤ÎÈÖ¹æ¤òÊÖ¤¹ loop return ans #deffunc cube_set int id, int _retu ¡¡¡¡¡¡¡¡// ¥­¥å¡¼¥Ö¥»¥Ã¥È cube_Flg.id=1 // ¥­¥å¡¼¥Ö¤òºî¤ë cube_X.id=_retu*cube_SIZEX // ²£ºÂɸ¥»¥Ã¥È cube_Y.id=0 // ½ÄºÂɸ¥»¥Ã¥È return #deffunc cube_move // ¥­¥å¡¼¥Ö°ÜÆ°¤È¾Ãµî repeat max if cube_Flg.cnt==0:continue // ̤»ÈÍÑ¥­¥å¡¼¥Ö¤Ï̵»ë if cube_Y.cnt>=650:cube_Flg.cnt=0:color 255,255,0:boxf cube_X.cnt,0,cube_X.cnt+cube_SIZEX,700 // ¢¬²èÌ̲¼¤ËÍ褿¥­¥å¡¼¥Ö¤ò¾Ã¤¹¡¢¤Ä¤¤¤Ç¤Ë¸÷¤ë color 255,0,0:boxf cube_X.cnt,cube_Y.cnt,cube_X.cnt+cube_SIZEX,cube_Y.cnt+cube_SIZEY // ¢¬¥­¥å¡¼¥ÖÉÁ²è cube_Y.cnt+=cube_SPEED // ¸ºß¤·¤Æ¤¤¤ë¥­¥å¡¼¥Ö¤ÎºÂɸ¤ò²¼¤²¤ë loop return #global ////////////////////////////////////////////// ½é´üÀßÄê screen 0,300,700 cube_init // ¥­¥å¡¼¥Ö¥â¥¸¥å¡¼¥ë½é´üÀßÄê dim note,1000 // ÉèÌ̥ǡ¼¥¿ 0¡Á63¤Î¿ô»ú¤ÎÍåÎó note=1,2,4,8,16,32,1,2,3,4,5,6,7,8,0,0,11,12,13,14,15,16,0,0,35,0,0,0,60,42,0,22,19,59,18,8,0,0,8,8,16,12,63,62,60,56,48,32,0 ////////////////////////////////////////////// ¥á¥¤¥ó¥ë¡¼¥× repeat redraw 0:color:boxf gosub *waku gosub *cube_make cube_move redraw 1 await 17-(cnt\3==0) loop ////////////////////////////////////////////// ¥µ¥Ö *waku // ÏÈÀþɽ¼¨ color 255,0,0 line 0,650,300,650 repeat 5,1 line cnt*50,0,cnt*50,700 loop return *cube_make // ¥­¥å¡¼¥ÖÀßÃÖ if cnt\10:return // ¼Â¹ÔÉÑÅÙ¤ò10¥Õ¥ì¡¼¥à¤Ë1²ó¤Ë¤¹¤ë noteEX=note.COUNT repeat 6 if (noteEX&&1)==0:noteEX>>1:continue// 1¹Ô¤´¤È¤Ë¤É¤ÎÎó¤Ë¥­¥å¡¼¥Ö¤¬¤¢¤ë¤«È½Äê id=cube_new() if a==-1:break cube_set id,cnt // ¥­¥å¡¼¥Ö¥»¥Ã¥È noteEX>>1 // ÀâÌÀ¤·¤Å¤é¤¤ loop COUNT++ return



HBK

¥ê¥ó¥¯

2019/5/8(Wed) 15:15:55|NO.87281

·â¤µ¤ó¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¼«Ê¬¤¬´üÂÔ¤·¤Æ¤¤¤¿¤â¤Î°Ê¾å¤Î¤â¤Î¤¬Íè¤Æ¤Ó¤Ã¤¯¤ê¤·¤Æ¤Þ¤¹¡£
¥Ø¥ë¥×¤ò¸«¤Ê¤¬¤é¾¯¤·¤º¤Ä²òÆɤ·¤Æ¤¤¤­¤Þ¤¹¡£
¤Þ¤¿¤É¤¦¤·¤Æ¤âʬ¤«¤é¤Ê¤¤Éôʬ¤¬½Ð¤Æ¤­¤¿¤é¤Þ¤¿¤ª´ê¤¤¤·¤Þ¤¹¡£



ONION software Copyright 1997-2023(c) All rights reserved.