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


HSPTV!·Ç¼¨ÈÄ


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

2019
0719
M-Sonkey¤ò»È¤Ã¤Æ¥ë¡¼¥×½èÍý¤ò¤¹¤ë¤ÈºÇ½é¤¬°ì½Ö»ß¤Þ¤ë¡©10²ò·è


M-S

¥ê¥ó¥¯

2019/7/19(Fri) 21:53:26|NO.87889

HSP½é¿´¼Ô¤Ç¤¹¡£
¥­¥ã¥é¥¯¥¿¡¼¤ò¾å²¼º¸±¦¤Î¤ßÆ°¤«¤»¤ëÊýË¡¤òõ¤·¤¿¤È¤³¤íonkey¤Ègetkey¡Êstick¡Ë¤ÎÆó¼ïÎà¤ò¸«¤Ä¤±
¾¤Î¥­¡¼³ä¤ê¹þ¤ß¤ò¤·¤¿¤¯¤Ê¤¤¥¿¥¤¥ß¥ó¥°¤Ç»ÈÍѤ¹¤ë²ÄǽÀ­¤¬¹â¤¤¤¿¤á¤Ê¤ë¤Ù¤¯¤Ê¤éonkey¤ò»ÈÍѤ·¤¿¤¤¤Î¤Ç¤¹¤¬
onkey¤ò»È¤¦¤È¡¢²¡¤·¤¿ºÇ½é¤À¤±°ì½Ö¥¬¥¯¤Ã¤È»ß¤Þ¤ë¤Î¤Ç¤¹¤¬°ì½Ö»ß¤Þ¤ëÍýͳ¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£

;onkey¤Ë¤è¤ëµ­½Ò¡ÊºÇ½é¤¬°ì½Ö¥¬¥¯¤Ã¤È»ß¤Þ¤ë¡Ë

;Àþ²è½àÈ÷
screen 0,220,220 buffer 1:boxf color 100,100,100;Æ©²áÍÑ boxf 0,0,20,20;¢£ ;¢¬Àþ²è½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éÀþ²è¥ë¡¼¥× *printing onkey gosub *move gsel 0:redraw 0 color 255,255,255:boxf gmode 2,100,100 pos x,y:gcopy 1,0,0,20,20;¢£ redraw 1:wait 10 goto *printing ;¢¬Àþ²è¥ë¡¼¥×¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éonkey½èÍý *move if wparam=37:if x<1:else:x=x-20 if wparam=38:if y<1:else:y=y-20 if wparam=39:if x>190:else:x=x+20 if wparam=40:if y>190:else:y=y+20 return ;¢¬onkey½èÍý¤³¤³¤Þ¤Ç


;getkey¤Ë¤è¤ëµ­½Ò¡ÊÆäËÌäÂê¤Ê¤¯Æ°¤¤¤Æ¤¤¤ë¡©¡Ë

;Àþ²è½àÈ÷
screen 0,220,220 buffer 1:boxf color 100,100,100;Æ©²áÍÑ boxf 0,0,20,20;¢£ ;¢¬Àþ²è½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤égetkey½èÍý *printing getkey move,37:if move=1:if x<1:else:x=x-20 getkey move,38:if move=1:if y<1:else:y=y-20 getkey move,39:if move=1:if x>190:else:x=x+20 getkey move,40:if move=1:if y>190:else:y=y+20 ;¢¬getkey½èÍý¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éÀþ²è¥ë¡¼¥× gsel 0:redraw 0 color 255,255,255:boxf gmode 2,100,100 pos x,y:gcopy 1,0,0,20,20;¢£ redraw 1:wait 10 goto *printing ;¢¬Àþ²è¥ë¡¼¥×¤³¤³¤Þ¤Ç


µ­½Ò¥ß¥¹¤ò¤·¤Æ¤¤¤Ê¤¤¸Â¤êonkey¤Ègetkey¤Î½èÍý°Ê³°¤Ï¤Û¤ÜƱ¤¸¤Ê¤Ï¤º¤Ê¤Î¤Ç¤¹¤¬¡¦¡¦¡¦¡£
onkey¤Î°ì½Ö»ß¤Þ¤ëµóÆ°¤ò²ò·è¤¹¤ë»ö¤Ï½ÐÍè¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©



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


²Ê³ØÂÀϺ

¥ê¥ó¥¯

2019/7/19(Fri) 22:32:41|NO.87890

> onkey¤ò»È¤¦¤È¡¢²¡¤·¤¿ºÇ½é¤À¤±°ì½Ö¥¬¥¯¤Ã¤È»ß¤Þ¤ë¤Î¤Ç¤¹¤¬°ì½Ö»ß¤Þ¤ëÍýͳ¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¤³¤Á¤é¤Ï MS-DOS »þÂ夫¤é Windows OS ¤ò»È¤Ã¤Æ¤ë·Ð¸³¼Ô¤Ç¤¹¡£
ÀΤθŤ¤ MS-DOS ¤È¤¤¤¦ OS ¤Ë¤Ï¡¢¥­¡¼¾ðÊó¤Ï¥­¡¼¥Ð¥Ã¥Õ¥¡¤ËÆþ¤ë»ÅÁȤߤǤ·¤¿¤Í¡£
¤³¤³¤«¤é Windows OS ¤ÎÆâÉô¤ò¿ä¬¤¹¤ë¤È¼¡¤Î¤è¤¦¤Ê¾õ¶·¤À¤È»×¤¤¤Þ¤¹¡£

> ;onkey¤Ë¤è¤ëµ­½Ò¡ÊºÇ½é¤¬°ì½Ö¥¬¥¯¤Ã¤È»ß¤Þ¤ë¡Ë
onkey Ì¿Îá¤Ï WM_KEYDOWN¡¢WM_KEYUP ¥á¥Ã¥»¡¼¥¸¤òȯÀ¸¤µ¤»¤Þ¤¹¤Í¡£
¤³¤Á¤é¤Ï Windows OS ¤ÎÆâÉô¤Ç¥­¡¼¥Ð¥Ã¥Õ¥¡¤È¤¤¤¦°ì»þŪ¤Ë¥­¡¼¾ðÊó¤òÊݸ¤¹¤ëÎΰè¤Ë
¥­¡¼¥³¡¼¥É¾ðÊ󤬳ÊǼ¤µ¤ì¤ë¤Ï¤º¤Ç¤¹¡£

> ;getkey¤Ë¤è¤ëµ­½Ò¡ÊÆäËÌäÂê¤Ê¤¯Æ°¤¤¤Æ¤¤¤ë¡©¡Ë
¤³¤Á¤é¤Ï¥­¡¼¥Ð¥Ã¥Õ¥¡¤Ï´Ø·¸¤Ê¤¯¤Æ¡¢¼Â¹Ô»þ¤Î¥­¡¼¾ðÊó¤ò¼èÆÀ¤·¤Æ¨½ªÎ»¤¹¤ëÌ¿Îá¤Ç¤¹¡£
¤³¤Î°ã¤¤¤«¤é¥­¡¼¥Ð¥Ã¥Õ¥¡¡¼¤ËÆþ¤ë onkey Ì¿Îá¤Ï¡¢Ï¢Â³¤·¤ÆƱ¤¸¥­¡¼¥³¡¼¥ÉÃͤ¬
Æþ¤é¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ë Windows OS ¤ÎÆâÉô¤Ç¥¦¥§¥¤¥È¤òÆþ¤ì¤Æ¤ë¤Î¤À¤È»×¤¤¤Þ¤¹¡£

MS-DOS »þÂå¤Ç¤â¥­¡¼¤ò¤º¡¼¡¼¡¼¡¼¤Ã¤È²¡¤·¤Æ¤â²¡¤·¤¿°ì½Ö¤ÏºÇ½é¤Î£±¤Ä¤À¤±¤Ç
¤·¤Ð¤é¤¯¤·¤Ê¤¤¤ÈϢ³¤·¤¿¥­¡¼¾ðÊó¤ò¼èÆÀ¤Ç¤­¤Þ¤»¤ó¡£

¤è¤Ã¤Æ¡¢HSP ¤ÎÌäÂê¤ä¡¢µ­½Ò¤ÎÌäÂê¤Ç¤Ï¤Ê¤¯¤Æ Windows OS ¤Î»ÅÁȤ߾塢
»ÅÊý¤¬¤Ê¤¤Æ°ºî¤«¤â¤·¤ì¤Þ¤»¤ó¡£

> µ­½Ò¥ß¥¹¤ò¤·¤Æ¤¤¤Ê¤¤¸Â¤êonkey¤Ègetkey¤Î½èÍý°Ê³°¤Ï¤Û¤ÜƱ¤¸¤Ê¤Ï¤º¤Ê¤Î¤Ç¤¹¤¬¡¦¡¦¡¦¡£
> onkey¤Î°ì½Ö»ß¤Þ¤ëµóÆ°¤ò²ò·è¤¹¤ë»ö¤Ï½ÐÍè¤Þ¤¹¤Ç¤·¤ç¤¦¤«¡©
½ÐÍè¤Ê¤¤¤È»×¤¤¤Þ¤¹¤±¤É¡£



M-S

¥ê¥ó¥¯

2019/7/20(Sat) 01:17:09|NO.87892

²Ê³ØÂÀϺÍÍ¡¢ÁᮤΤ´²óÅú¤Þ¤³¤È¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª
onkey¤Î°ì½Ö»ß¤Þ¤ëµóÆ°¤ÏOSÆâÉô¤Ë¤è¤ë¤â¤Î¤Ç¤¢¤ì¤ÐHSP¦¤Ç¤Ï¤É¤¦¤Ë¤â¤Ê¤é¤µ¤½¤¦¤Ç¤¹¤Í¡¦¡¦¡¦¡£
¤Þ¤À¿¨¤ê»Ï¤á¤ÎÃʳ¬¤Ê¤Î¤Ç¡Ê¥­¡¼³ä¤ê¹þ¤ßÉôʬ¤òÂŶ¨¤¹¤ë¤«Èݤ«¤â´Þ¤á¡Ë¤â¤¦¾¯¤·¿§¤ó¤ÊÊýË¡¤òõ¤Ã¤Æ¤ß¤è¤¦¤È»×¤¤¤Þ¤¹¡£



Tsuyoshi

¥ê¥ó¥¯

2019/7/20(Sat) 10:08:29|NO.87894

onkey¤Ï°ìÅټ¹Ԥ·¤¿¤é¡¢¤½¤Î¸å¤º¤Ã¤È¥­¡¼ÆþÎϤò´Æ»ë¤¹¤ë¤Î¤Ç¡¢onkey¤Ç½ñ¤¯¤È¤¹¤ì¤Ð¡¢


onkey gosub *move *printing //½èÍý goto *printing *move //½èÍý return

¤³¤ó¤Ê´¶¤¸¤Ç¤·¤ç¤¦¤«¡£

¸¡¾Ú¤Ï¤·¤Æ¤¤¤Þ¤»¤ó¤¬¡¢onkey¤¬¥ë¡¼¥×Æâ¤ËÆþ¤Ã¤Æ¤¤¤ë¤Î¤¬°ì½Ö¥¬¥¯¥Ã¤È¤Ê¤ë¸¶°ø¤«¤È»×¤¤¤Þ¤¹¡£


"¾¤Î¥­¡¼³ä¤ê¹þ¤ß¤ò¤·¤¿¤¯¤Ê¤¤¥¿¥¤¥ß¥ó¥°¤Ç»ÈÍѤ¹¤ë²ÄǽÀ­¤¬¹â¤¤"¤È¤¤¤¦¤Î¤¬¤è¤¯Ê¬¤«¤ê¤Þ¤»¤ó¤¬¡¢
onkey¤Ï¥­¡¼¥Ü¡¼¥É¤Î¤¢¤é¤æ¤ëÆþÎϤò¸¡ÃΤ¹¤ë¤Î¤Ç¡¢¾å²¼º¸±¦¥­¡¼°Ê³°¸¡ÃΤ·¤¿¤¯¤Ê¤¤¤È¤¤¤¦°ÕÌ£¤Ç¤¢¤ì¤Ð¡¢
¤à¤·¤íonkey¤ò»È¤¦¤Ù¤­¤Ç¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£

¥²¡¼¥à¤Ç»È¤¦¤È¤¹¤ì¤Ð¡¢Î㤨¤Ð¤É¤ó¤Ê¾õ¶·¤«¤é¤Ç¤âESC¥­¡¼¤ò²¡¤·¤¿¤é¥×¥í¥°¥é¥à¤ò½ªÎ»¤µ¤»¤¿¤¤¤ß¤¿¤¤¤Ê»þ¤Ë
onkey¤ò»È¤¦¤«¤â¤·¤ì¤Þ¤»¤ó¡£



M-S

¥ê¥ó¥¯

2019/7/20(Sat) 20:37:05|NO.87899

TsuyoshiÍÍ¡¢¤´²óÅú¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª

>onkey¤Ç½ñ¤¯¤È¤¹¤ì¤Ð¡¢
»î¤·¤Æ¤ß¤Þ¤·¤¿¤¬¤ä¤Ï¤êºÇ½é¤À¤±»ß¤Þ¤Ã¤Æ¤·¤Þ¤¦¤è¤¦¤Ç¤¹¡£
¤Þ¤À»Ï¤á¤¿¤Ð¤«¤ê¤Ê¤Î¤Ç¾¤ÎÊýË¡¤òõ¤·¤Æ¤ß¤è¤¦¤È»×¤¤¤Þ¤¹¡£

>"¾¤Î¥­¡¼³ä¤ê¹þ¤ß¤ò¤·¤¿¤¯¤Ê¤¤¥¿¥¤¥ß¥ó¥°¤Ç»ÈÍѤ¹¤ë²ÄǽÀ­¤¬¹â¤¤"¤È¤¤¤¦¤Î¤¬¤è¤¯Ê¬¤«¤ê¤Þ¤»¤ó¤¬¡¢
ÁÛÄê¡Ê²ÄǽÀ­¡Ë¤Ç¤Ï¡¢Êâ¹Ô¥°¥é¥¢¥Ë¥á¤òÆþ¤ì¤Ê¤¬¤é°ÜÆ°½èÍý¡Ê»ØÄꤷ¤¿°ÌÃ֤ޤǽù¡¹¤ËÆ°¤«¤¹¡Ë¤ò¤·¤¿¾ì¹ç¤Ë
¤â¤·°ÜÆ°½èÍýÃæ¤Ë¥­¡¼³ä¤ê¹þ¤ß¤¬½ÐÍè¤ë¤È¡¢µ­½Ò¤Î¤ä¤êÊý¤Ë¤è¤Ã¤Æ¤ÏÁÛÄê³°¤ÎµóÆ°¤Ë¤Ê¤ë¡õ°ÜÆ°½èÍýÃæ¤Î¤ß°ì»þŪ¤Ë¥­¡¼³ä¤ê¹þ¤ßÉԲĤˤ·¤Æ¤¤¤ì¤Ð³ä¤ê¹þ¤ßÂнè¤Ç¤­¤ë¤Î¤À¤í¤¦¤«¤È»×¤Ã¤¿¼¡Âè¤Ç¤¹¡£
¡Ê½èÍýÃæ¤À¤±°ì»þŪ¤Ë¥­¡¼ÁàºîÉԲġʳä¤ê¹þ¤ß¤µ¤»¤Ê¤¤¡Ë¤Ë¤µ¤»¤ëÊýË¡¤Çonkey¤ÇÀ©¸æ¤Ç¤­¤ë¤Ê¤é¤½¤ì¤¬ÌµÆñ¤Ê¤ó¤À¤í¤¦¤«¤È¤â»×¤Ã¤Æ¤¤¤Þ¤·¤¿¡Ë



²Ê³ØÂÀϺ

¥ê¥ó¥¯

2019/7/20(Sat) 21:28:02|NO.87901

> ÁÛÄê¡Ê²ÄǽÀ­¡Ë¤Ç¤Ï¡¢Êâ¹Ô¥°¥é¥¢¥Ë¥á¤òÆþ¤ì¤Ê¤¬¤é°ÜÆ°½èÍý¡Ê»ØÄꤷ¤¿°ÌÃ֤ޤǽù¡¹¤ËÆ°¤«¤¹¡Ë¤ò¤·¤¿¾ì¹ç¤Ë
¤³¤ÎÊâ¹Ô¥¢¥Ë¥á¤ò¥ë¡¼¥×¤ÇÁȤó¤Ç¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
¤½¤ì¤È¤â¥²¡¼¥à¡¦¥ë¡¼¥×Æâ¤ÇÊâ¹Ô¥¢¥Ë¥áÍѤΥ«¥¦¥ó¥¿¤ÇÉÁ²è¤òÀÚ¤êÂؤ¨¤Æ¤ë¤Î¤Ç¤·¤ç¤«¡©

²¿¤È¤Ê¤¯¥ë¡¼¥×Æâ¤ÇÊâ¹Ô¥¢¥Ë¥á¤ÎÉÁ²è¤ò¹Ô¤Ã¤Æ¤ëÅÓÃæ¤Ç
¥­¡¼³ä¤ê¹þ¤ß¤¬È¯À¸¤¹¤ë¤È¥ë¡¼¥×¤òÈ´¤±¤ë¤³¤È¤«¤é
¥­¡¼³ä¤ê¹þ¤ß¤ò¶Ø»ß¤Ë¤·¤¿¤¤¤è¤¦¤Ë¸«¤¨¤Þ¤¹¤¬¡Ä¡£
¢¬
¤â¤·¤â¡¢¤³¤Î¤è¤¦¤Ê¾ì¹ç¤Ç¤¢¤ì¤Ð¡¢¥²¡¼¥à¡¦¥ë¡¼¥×Æâ¤Ç
Êâ¹Ô¥¢¥Ë¥áÍѤΥ«¥¦¥ó¥¿¤òÍÑ°Õ¤·¤Æ¤«¤éÉÁ²è¤ò¤¹¤ì¤ÐÎɤ¤¤È»×¤¤¤Þ¤¹¡£
¤³¤Á¤é¤âÀΡ¢¼ã¤¤¤³¤í¤Ë(24ºÐ¤´¤í)¤Î¤È¤­¤Ë¥²¡¼¥à¤òºî¤Ã¤Æ¤¤¤¿¤Î¤Ç
¥­¡¼³ä¤ê¹þ¤ß¤ò̵»ë¤·¤¿¤¯¤Ê¤ëµ¤»ý¤Á¤¬Ê¬¤«¤ê¤Þ¤¹¤Í¡£

¤Ê¤ª¡¢ÀÎ¥²¡¼¥à¤òÀ½ºî¤·¤¿¤È¤­¤Ë¤Ï¡¢
¥Æ¥È¥ê¥¹¡¦¥²¡¼¥à¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¡¢¥­¡¼¡¦¥Ð¥Ã¥Õ¥¡¤«¤é¾ðÊó¤ò¼èÆÀ¡£
¥·¥å¡¼¥Æ¥£¥ó¥°¡¦¥²¡¼¥à¡¢£Ò£Ð£Ç¥²¡¼¥à¤Ç¤Ï¡¢¥¹¥à¡¼¥º¤Ë¤¹¤ë¤¿¤á¤Ë
¥­¡¼¡¦¥Ð¥Ã¥Õ¥¡¤«¤é¼èÆÀ¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¤Æ HSP ¤Ç¤¤¤¦ getkey Ì¿Îá¤Ë
ÁêÅö¤¹¤ë´Ø¿ô¤Ç¼èÆÀ¤·¤Þ¤·¤¿¡£

¤½¤¦¤·¤Ê¤¤¤È¥­¡¼¤ò¤º¡¼¡¼¡¼¡¼¤Ã¤È²¡¤·¤¿¤È¤­¤Ë¥¹¥à¡¼¥º¤Ë°ÜÆ°¤Ê¤É¤¬
¹Ô¤¨¤Ê¤¤¤«¤é¤Ç¤¹¡£(»²¹Í¤Þ¤Ç¤Ë)

¤¢¤È¥·¥å¡¼¥Æ¥£¥ó¥°¡¦¥²¡¼¥à¡¢£Ò£Ð£Ç¥²¡¼¥à¤Ç°ÜÆ°½èÍý¤Ï getkey Ì¿Îá¤Ç¹Ô¤¤
¥í¡¼¥É¡¢¥»¡¼¥Ö¡¢½ªÎ»¥á¥Ë¥å¡¼¤Ê¤É¤Ï WM_KEYDOWN¡¢WM_KEYUP ¥á¥Ã¥»¡¼¥¸¤ò»È¤¦¡£
¤³¤Î¤è¤¦¤ÊÊýË¡¤Ç»È¤¤Ê¬¤±¤¿Êý¤¬Îɤ¤¤È»×¤¤¤Þ¤¹¡£



Ç­

¥ê¥ó¥¯

2019/7/20(Sat) 21:38:30|NO.87902

onkey ¤ª¤è¤Ó WM_KEYDOWN ¤Ï¡¢¥­¡¼¤ò²¡¤·Â³¤±¤¿¤È¤­¤Ë¡¢ºÇ½é¤Ï0.5É䰤餤¡¢¼¡¤«¤é¤Ï0.05É䰤餤¤ÇÈ¿±þ¤·¤Þ¤¹¡£¤³¤ì¤ÏWindows¤Î»ÅÍͤʤΤǡ¢¤É¤¦¤·¤è¤¦¤â¤¢¤ê¤Þ¤»¤ó¡£ getkey ¤ò»È¤¦É¬Íפ¬¤¢¤ê¤Þ¤¹¡£



M-S

¥ê¥ó¥¯

2019/7/21(Sun) 14:22:32|NO.87905

>²¿¤È¤Ê¤¯¥ë¡¼¥×Æâ¤ÇÊâ¹Ô¥¢¥Ë¥á¤ÎÉÁ²è¤ò¹Ô¤Ã¤Æ¤ëÅÓÃæ¤Ç
>¥­¡¼³ä¤ê¹þ¤ß¤¬È¯À¸¤¹¤ë¤È¥ë¡¼¥×¤òÈ´¤±¤ë¤³¤È¤«¤é
>¥­¡¼³ä¤ê¹þ¤ß¤ò¶Ø»ß¤Ë¤·¤¿¤¤¤è¤¦¤Ë¸«¤¨¤Þ¤¹¤¬¡Ä¡£
ÌÜŪ¤Ï¼Ð¤á°ÜÆ°¤ÎËɻߤˤʤê¤Þ¤¹¡£
¾¯¤·¥ì¥È¥í¤ÊÏ©Àþ¤Ë¤·¤¿¤¤¤¿¤á¡¢½ã¿è¤Ë½Ä¤È²£¤Ë¤·¤«°ÜÆ°¤Ç¤­¤Ê¤¤¤è¤¦¤Ë¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢³ä¤ê¹þ¤ß¤¬½ÐÍè¤ë¤È¾å²¼º¸±¦¤Î¥­¡¼¤ò¥¬¥Á¥ã¥¬¥Á¥ã¤µ¤»¤ë¤È¼Ð¤á¤Ë°ÜÆ°¤·¤Æ¤·¤Þ¤¦»ö¤¬Â¿¤¯¡¢getkey¤ÇËɻߤ¹¤ëÊýË¡¤¬¤Ê¤«¤Ê¤«¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¡Ê»×¤¤¤Ä¤«¤Ê¤«¤Ã¤¿¡Ë¤¿¤áonkey¤Ï¤É¤¦¤Ê¤Î¤À¤í¤¦¤«¤È»×¤¤»ê¤ê¤Þ¤·¤¿¡£

onkey¤Ç¤¹¤¬¥¤¥á¡¼¥¸¤È¤·¤Æ¤Ï¤³¤ó¤Ê´¶¤¸¤Ë¤Ê¤ê¤Þ¤¹¡£
¡Ê¼ã´³°ÌÃÖ¤¬¥º¥ì¤Æ¤Þ¤¹¤¬¥Þ¥¹ÌܤÎÃæ¤Ë¼ý¤Þ¤ë¤è¤¦¤Ë°ÜÆ°¤µ¤»¤ë´¶¤¸¤Ç¤¹¡Ë

/*---Àþ²è½àÈ÷---*/
screen 0,200,200;¥á¥¤¥ó²èÌ̤Υµ¥¤¥º»ØÄê buffer 1;¥³¥Ô¡¼¤¹¤ë¤¿¤á¤Ë¥Ð¥Ã¥Õ¥¡²èÌ̤òÍÑ°Õ­¡ boxf;Æ©²áÍÑ¡Êcolor 0,0,0¡Ë color 100,100,100:font "£Í£Ó £Ð¥´¥·¥Ã¥¯",19,1:mes "­¡­¢­£­¤";²èÁü¤ÎÂå¤ï¤ê¤Ë­¡­¢­£­¤ buffer 2;¥³¥Ô¡¼¤¹¤ë¤¿¤á¤Ë¥Ð¥Ã¥Õ¥¡²èÌ̤òÍÑ°Õ­¢ line 0,0,0,200:line 0,0,200,0 tate=19:yoko=19 repeat 10;½ÄÀþ line tate,0,tate,200 tate=tate+20 loop repeat 10;²£Àþ line 0,yoko,200,yoko yoko=yoko+20 loop tate=0:yoko=0;¥Þ¥¹ÌܤΰÌÃÖ»ØÄê¤ËÍøÍÑ gsel 0;¤µ¤Ã¤­¤Þ¤Ç¥Ð¥Ã¥Õ¥¡²èÌ̤òÁàºî¤·¤Æ¤¤¤¿¤Î¤Ç¥á¥¤¥ó²èÌ̤ËÀÚ¤êÂؤ¨¤ë /*---¢¬Àþ²è½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éÊÑ¿ô½àÈ÷---*/ x=0:y=0;Àþ²è¾ì½ê¤Î²£¤È½Ä¤Î°ÌÃÖ»ØÄê anime=0;¥¢¥Ë¥á¡¼¥·¥ç¥óÍÑ¡¦½ù¡¹¤ËÁý²Ã¤¹¤ë animeprint=0;ÊÑ¿ôanime¤ÎÃͤˤè¤Ã¤Ægcopy¤¹¤ë¾ì½ê¡Ê³«»Ï¾ì½ê¡Ë¤òÊѤ¨¤ë count=0;onkey¤ò0or1¤Ë¤¹¤ë¤¿¤á¤ÎÊÑ¿ô jojo=2;½ù¡¹¤ËÆ°¤¯ÃÍ /*---¢¬ÊÑ¿ô½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤é¥ë¡¼¥×Àþ²è---*/ onkey gosub *move;º¸¡¦¾å¡¦±¦¡¦²¼¤ò²¡¤¹¤ÈÆ°¤¯ *printing if count=1:onkey 0:else:onkey 1;Æ°¤¤¤Æ¤ëºÇÃæ¤Ï¾¥­¡¼¤Î³ä¤ê¹þ¤ß¤òËɻߡʤ·¤¿¤¤¡Ë redraw 0;¥Á¥é¤Ä¤­ËÉ»ßÁ° pos tate,yoko gcopy 2,0,0,200,200;¥Þ¥¹ÌÜ gmode 2,100,100;¹õ¤òÆ©²á if anime=0:animeprint=0:else:if anime=20:animeprint=20:else:if anime=40:animeprint=40:else:if anime=60:animeprint=60:else:if anime=80:animeprint=0:anime=0;­¡­¢­£­¤¤ò½ç¤Ë¥¢¥Ë¥á¡¼¥·¥ç¥ó¤¹¤ë pos x,y:gcopy 1,animeprint,0,20,20;­¡­¢­£­¤ anime+;¥¢¥Ë¥á¡¼¥·¥ç¥ó¤Î¥Õ¥é¥° /*--¤³¤³¤«¤é¥­¡¼¤ò²¡¤µ¤ì¤¿¤éÆ°ºî¤¹¤ë¥Õ¥é¥°--*/ /*--0¤Ê¤éÈ¿±þ¤·¤Ê¤¤¡¦1¤Ë¤Ê¤ë¢ª²¡¤µ¤ì¤¿¤é½ù¡¹¤ËÂбþ¤¹¤ëÊÑ¿ô¤ÎÃæ¿È¤¬Áý¤¨¤ë--*/ /*--Áý¤¨¤Æ¤ë´Ö¥­¡¼³ä¤ê¹þ¤ß¤ò¤Ç¤­¤Ê¤¯¤¹¤ë¡¦°ìÄêÁý¤¨¤¿¤é¥ê¥»¥Ã¥È¡õ¥­¡¼³ä¤ê¹þ¤ß¤ò¤Ç¤­¤ë¤è¤¦¤Ë¤¹¤ë--*/ if left=0:else:if left>21:left=0:count=0:else:x=x-jojo:left=left+jojo;º¸ if up=0:else:if up>21:up=0:count=0:else:y=y-jojo:up=up+jojo;¾å if right=0:else:if right>21:right=0:count=0:else:x=x+jojo:right=right+jojo;±¦ if down=0:else:if down>21:down=0:count=0:else:y=y+jojo:down=down+jojo;²¼ /*--¥­¡¼¤ò²¡¤µ¤ì¤¿¤éÆ°ºî¤¹¤ë¥Õ¥é¥°¤³¤³¤Þ¤Ç--*/ redraw 1;¥Á¥é¤Ä¤­Ëɻ߸å wait 1;waitÆþ¤ì¤Ê¤¤¤È»ß¤Þ¤ë goto *printing /*---¢¬Àþ²è¥ë¡¼¥×¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éonkey½èÍý---*/ *move if wparam=37:if x<20:else:left=2:count=1;º¸ if wparam=38:if y<20:else:up=2:count=1;¾å if wparam=39:if x>170:else:right=2:count=1;±¦ if wparam=40:if y>170:else:down=2:count=1;²¼ return;gosub»ÈÍÑ»þɬ¿Ü /*---¢¬onkey½èÍý¤³¤³¤Þ¤Ç---*/



M-S

¥ê¥ó¥¯

2019/7/21(Sun) 14:23:05|NO.87906

Ç­ÍÍ¡£
¤´²óÅú¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª
>ºÇ½é¤Ï0.5É䰤餤¡¢¼¡¤«¤é¤Ï0.05É䰤餤¤ÇÈ¿±þ¤·¤Þ¤¹¡£
ºÇ½é¤Ï¤½¤ì¤¯¤é¤¤»ß¤Þ¤ë¤ó¤Ç¤¹¤Í¡¦¡¦¡¦»ÅÍ;å¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¤Î¤Ç²þ¤á¤Ægetkey¤ÇÊýË¡¤òõ¤·¤Æ¤ß¤è¤¦¤È»×¤¤¤Þ¤¹¡ª



¤¢¤ê

¥ê¥ó¥¯

2019/7/21(Sun) 19:42:41|NO.87907

>ÌÜŪ¤Ï¼Ð¤á°ÜÆ°¤ÎËɻߤˤʤê¤Þ¤¹¡£
¤È¤¤¤¦¤³¤È¤À¤±¤¬ÌÜŪ¤Ç¤¢¤ë¤Ê¤éstick¤Ç½½Ê¬¤Ê¤Î¤Ç¤Ï¡©

/*---Àþ²è½àÈ÷---*/ screen 0,200,200;¥á¥¤¥ó²èÌ̤Υµ¥¤¥º»ØÄê buffer 1;¥³¥Ô¡¼¤¹¤ë¤¿¤á¤Ë¥Ð¥Ã¥Õ¥¡²èÌ̤òÍÑ°Õ­¡ boxf;Æ©²áÍÑ¡Êcolor 0,0,0¡Ë color 100,100,100:font "£Í£Ó £Ð¥´¥·¥Ã¥¯",19,1:mes "­¡­¢­£­¤";²èÁü¤ÎÂå¤ï¤ê¤Ë­¡­¢­£­¤ buffer 2;¥³¥Ô¡¼¤¹¤ë¤¿¤á¤Ë¥Ð¥Ã¥Õ¥¡²èÌ̤òÍÑ°Õ­¢ line 0,0,0,200:line 0,0,200,0 tate=19:yoko=19 repeat 10;½ÄÀþ line tate,0,tate,200 tate=tate+20 loop repeat 10;²£Àþ line 0,yoko,200,yoko yoko=yoko+20 loop tate=0:yoko=0;¥Þ¥¹ÌܤΰÌÃÖ»ØÄê¤ËÍøÍÑ gsel 0;¤µ¤Ã¤­¤Þ¤Ç¥Ð¥Ã¥Õ¥¡²èÌ̤òÁàºî¤·¤Æ¤¤¤¿¤Î¤Ç¥á¥¤¥ó²èÌ̤ËÀÚ¤êÂؤ¨¤ë /*---¢¬Àþ²è½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤éÊÑ¿ô½àÈ÷---*/ x=0:y=0;Àþ²è¾ì½ê¤Î²£¤È½Ä¤Î°ÌÃÖ»ØÄê anime=0;¥¢¥Ë¥á¡¼¥·¥ç¥óÍÑ¡¦½ù¡¹¤ËÁý²Ã¤¹¤ë animeprint=0;ÊÑ¿ôanime¤ÎÃͤˤè¤Ã¤Ægcopy¤¹¤ë¾ì½ê¡Ê³«»Ï¾ì½ê¡Ë¤òÊѤ¨¤ë count=0;onkey¤ò0or1¤Ë¤¹¤ë¤¿¤á¤ÎÊÑ¿ô jojo=2;½ù¡¹¤ËÆ°¤¯ÃÍ /*---¢¬ÊÑ¿ô½àÈ÷¤³¤³¤Þ¤Ç¢­¤³¤³¤«¤é¥ë¡¼¥×Àþ²è---*/ *printing if count=0 { /*--- °ÜÆ°½èÍý¤¬½ª¤ï¤ë¤Þ¤Ç¥­¡¼ÆþÎϤò¤µ¤»¤Ê¤¤ ---*/ stick key, 15 if key=1:if x<20:else:left=2:count=1;º¸ if key=2:if y<20:else:up=2:count=1;¾å if key=4:if x>170:else:right=2:count=1;±¦ if key=8:if y>170:else:down=2:count=1;²¼ } redraw 0;¥Á¥é¤Ä¤­ËÉ»ßÁ° pos tate,yoko gcopy 2,0,0,200,200;¥Þ¥¹ÌÜ gmode 2,100,100;¹õ¤òÆ©²á if anime=0:animeprint=0:else:if anime=20:animeprint=20:else:if anime=40:animeprint=40:else:if anime=60:animeprint=60:else:if anime=80:animeprint=0:anime=0;­¡­¢­£­¤¤ò½ç¤Ë¥¢¥Ë¥á¡¼¥·¥ç¥ó¤¹¤ë pos x,y:gcopy 1,animeprint,0,20,20;­¡­¢­£­¤ anime+;¥¢¥Ë¥á¡¼¥·¥ç¥ó¤Î¥Õ¥é¥° /*--¤³¤³¤«¤é¥­¡¼¤ò²¡¤µ¤ì¤¿¤éÆ°ºî¤¹¤ë¥Õ¥é¥°--*/ /*--0¤Ê¤éÈ¿±þ¤·¤Ê¤¤¡¦1¤Ë¤Ê¤ë¢ª²¡¤µ¤ì¤¿¤é½ù¡¹¤ËÂбþ¤¹¤ëÊÑ¿ô¤ÎÃæ¿È¤¬Áý¤¨¤ë--*/ /*--Áý¤¨¤Æ¤ë´Ö¥­¡¼³ä¤ê¹þ¤ß¤ò¤Ç¤­¤Ê¤¯¤¹¤ë¡¦°ìÄêÁý¤¨¤¿¤é¥ê¥»¥Ã¥È¡õ¥­¡¼³ä¤ê¹þ¤ß¤ò¤Ç¤­¤ë¤è¤¦¤Ë¤¹¤ë--*/ if left=0:else:if left>21:left=0:count=0:else:x=x-jojo:left=left+jojo;º¸ if up=0:else:if up>21:up=0:count=0:else:y=y-jojo:up=up+jojo;¾å if right=0:else:if right>21:right=0:count=0:else:x=x+jojo:right=right+jojo;±¦ if down=0:else:if down>21:down=0:count=0:else:y=y+jojo:down=down+jojo;²¼ /*--¥­¡¼¤ò²¡¤µ¤ì¤¿¤éÆ°ºî¤¹¤ë¥Õ¥é¥°¤³¤³¤Þ¤Ç--*/ redraw 1;¥Á¥é¤Ä¤­Ëɻ߸å wait 1;waitÆþ¤ì¤Ê¤¤¤È»ß¤Þ¤ë goto *printing



M-S

¥ê¥ó¥¯

2019/7/21(Sun) 19:59:55|NO.87908

¤¢¤êÍÍ¡£¤´²óÅú¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª
¤¢¤êÍͤε­½Ò¤Çonkey°Ê³°¤Ç¤Î˾¤ßÄ̤ê¤ÎÆ°¤­¤¬½ÐÍè¤Þ¤·¤¿¡¦¡¦¡¦¡ª
>¤È¤¤¤¦¤³¤È¤À¤±¤¬ÌÜŪ¤Ç¤¢¤ë¤Ê¤éstick¤Ç½½Ê¬¤Ê¤Î¤Ç¤Ï¡©
getkey¡Êstick¡Ë¤Ç¼Ð¤á°ÜÆ°¤µ¤»¤Ê¤¤¤è¤¦¤Ë¤¹¤ëµ­½Ò¤¬¤Ê¤«¤Ê¤«»×¤¤¤Ä¤«¤º¡¢»×¤¤¤Ä¤¤¤¿¤â¤Î¤ò»î¹Ôºø¸í¤¹¤ë¤â¤¦¤Þ¤¯¤¤¤«¤º¤Ç
ÄäÂÚ¤·¤Æ¤·¤Þ¤Ã¤¿¤¿¤áonkey¤Ç»î¤·¤Æ¤ª¤ê¤Þ¤·¤¿¡£


onkey¤Ç¤Ï½ÐÍè¤Ê¤¤Âå¤ï¤ê¤Ëgetkey¡Êstick¡Ë¤Ç¤â¥­¡¼³ä¤ê¹þ¤ß¤òËɻߤǤ­¤ëÊýË¡¤¬¤ï¤«¤Ã¤¿¤¿¤á
¤³¤³¤Ç²ò·è¤È¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£
¤´¶¨ÎϤ¤¤¿¤À¤­¤Þ¤·¤¿³§ÍÍ¡¢¤´²óÅú¤È¥¢¥É¥Ð¥¤¥¹¤ò¤¤¤¿¤À¤­À¿¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª



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