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


HSPTV!·Ç¼¨ÈÄ


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

2021
0915
¹§Çµ²Ö¥¤¥ó¥×¥Ã¥È¤Ëʸ»ú¤¬ÂǤÁ¹þ¤á¤Þ¤»¤ó8²ò·è


¹§Çµ²Ö

¥ê¥ó¥¯

2021/9/15(Wed) 22:54:19|NO.93881

±Ññ¸ì¥²¡¼¥à¤òºî¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¥¤¥ó¥×¥Ã¥È¤Ëʸ»ú¤òÂǤÁ¹þ¤à¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£
²ò·èºö¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤±¤ë¤È½õ¤«¤ê¤Þ¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
°Ê²¼¥¹¥¯¥ê¥×¥È¤Ç¤¹¡£
*Start
screen 0,600,400
title "½¤Â¤ENGLISH"
redraw 0
color:boxf
color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH"
color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á"
color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï"
color $FF,$FF,$FF:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»"
redraw 1
repeat
stick key
if(key&32):break
if(key&128):end
await 20
loop

notesel buf
ab=0
ac=1

time=10

*main
cls
mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+""
noteload "type1.txt",50000
noteget a,ab
mes a;1¹ÔÌÜɽ¼¨
noteget b,ac
sdim kaitou,500
objmode 2
font msgothic,24
objsize 200,40
input kaitou
mes "PUSH ENTER"
if time<1:goto *gameover ;»Ä¤ê»þ´Ö¤¬0°Ê²¼¤Ê¤ékey¤ò0¤Ë¤¹¤ë
time=time-1;»Ä¤ê»þ´Ö¤ò¸º¤é¤¹
pos 300,300 ;ÉÁ²è¤¹¤ë¾ì½ê¤òÀßÄê
mes "»Ä¤ê»þ´Ö:"+time
wait 100
stick ky
if ky=32:gosub*judge//¤â¤·Enter¤¬²¡¤µ¤ì¤¿¤éloop¤òÈ´¤±¤Æ¼¡¤Î¹Ô¤Ø
wait 1
goto *main

*judge
if kaitou=b{
mes "Àµ²ò"
seikai=seikai+1
}else{
mes "ÉÔÀµ²ò"
huseikai=huseikai+1
}
wait 100
ab=ab+2
ac=ac+2
if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over":redraw 1:await 1000:goto *Start//¥²¡¼¥à¥ª¡¼¥Ð¡¼½èÍý
return

*gameover
mes "»þ´ÖÀÚ¤ì"



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


¤Í¤ó¤Í¤³

¥ê¥ó¥¯

2021/9/16(Thu) 09:19:39|NO.93882

¤³¤¦¤¹¤ì¤Ð¤¹¤³¤·¤Ï²þÁ±¤¹¤ë¤Î¤«¤Ê?

*Start screen 0,600,400 title "½¤Â¤ENGLISH" redraw 0 color:boxf color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH" color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á" color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï" color $FF,$FF,$FF:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»" redraw 1 repeat stick key if(key&32):break if(key&128):end await 20 loop notesel buf ab=0 ac=1 time=10 kaitou="" *main cls mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+"" noteload "type1.txt",50000 noteget a,ab mes a;1¹ÔÌÜɽ¼¨ noteget b,ac objmode 2 font msgothic,24 objsize 200,40 input kaitou mes "PUSH ENTER" if time<1:goto *gameover ;»Ä¤ê»þ´Ö¤¬0°Ê²¼¤Ê¤ékey¤ò0¤Ë¤¹¤ë time=time-1;»Ä¤ê»þ´Ö¤ò¸º¤é¤¹ pos 300,300 ;ÉÁ²è¤¹¤ë¾ì½ê¤òÀßÄê mes "»Ä¤ê»þ´Ö:"+time wait 100 stick ky if ky=32:gosub*judge//¤â¤·Enter¤¬²¡¤µ¤ì¤¿¤éloop¤òÈ´¤±¤Æ¼¡¤Î¹Ô¤Ø await 1000 goto *main *judge if kaitou=b{ mes "Àµ²ò" seikai=seikai+1 }else{ mes "ÉÔÀµ²ò" huseikai=huseikai+1 } wait 100 ab=ab+2 ac=ac+2 if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over":redraw 1:await 1000:goto *Start//¥²¡¼¥à¥ª¡¼¥Ð¡¼½èÍý return *gameover mes "»þ´ÖÀÚ¤ì"



¤È¤¢¤ë¥×¥í¥°¥é¥Þ

¥ê¥ó¥¯

2021/9/16(Thu) 13:40:19|NO.93887

clsÌ¿Îá¤Ï²èÌÌÆâ¤Î¥ª¥Ö¥¸¥§¥¯¥È¤â¤¹¤Ù¤Æ¾Ãµî¤·¤Þ¤¹¡£
inputÌ¿Îá¤Ê¤É¤Ï¼Â¹Ô¤µ¤ì¤ë¤¿¤Ó¤Ë¥ª¥Ö¥¸¥§¥¯¥È¤ò¿·¤¿¤ËÀßÃÖ¤·¤Þ¤¹¡£

¤Ä¤Þ¤ê*main¤Ë¹Ô¤¯¤¿¤Ó¤Ë¡¢²èÌÌÆâ¤Îinput¤¬¾Ã¤µ¤ì¤Æ¤Ïºî¤é¤ì¤Æ¾Ã¤µ¤ì¤Æ¤Ïºî¤é¤ì¤Æ¡Ä¤Î·«¤êÊÖ¤·¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
¤Ê¤Î¤Ç1É䴤Ȥ˲¿¤âÆþÎϤµ¤ì¤Æ¤¤¤Ê¤¤¿·¤·¤¤input¤¬ÇÛÃÖ¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¸«¤«¤±¾åʸ»ú¤¬¾Ã¤¨¤Æ¤¤¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£

input¤ämesbox¡¢button¤Î¤è¤¦¤Ê¥ª¥Ö¥¸¥§¥¯¥ÈÇÛÃÖÌ¿Îá¤Ï¡¢´ðËÜ1²ó¤Î¤ß¤Î¸Æ¤Ó½Ð¤·¤Ç»ÈÍѤ·¤Þ¤¹¡£


mes¤Ê¤É¤Îʸ»ú¤òÊѹ¹¤¹¤ë¾ì¹ç¤Ï¡¢boxfÅù¤Ç²èÌ̤òÅɤê¤Ä¤Ö¤·¤Æ¤«¤é¿·¤·¤¤Ê¸»ú¤òmes¤·¤Þ¤¹¡£(boxf¤Ç¤Ï¥ª¥Ö¥¸¥§¥¯¥È¤Ï¾Ãµî¤µ¤ì¤Þ¤»¤ó)

input¤ämesbox¤Ê¤É¤Îʸ»ú¤òÊѹ¹¤¹¤ë¾ì¹ç¤Ï¡¢objprm¤È¤¤¤¦Ì¿Îá¤ò»È¤¤¤Þ¤¹¡£


¤Þ¤¿¡¢noteload¤Ë¤è¤ë¥Æ¥­¥¹¥È¥Õ¥¡¥¤¥ëÆɤ߹þ¤ß¤âËè²ó¹Ô¤¦¤Î¤Ç¤Ï¤Ê¤¯¡¢ºÇ½é¤Î°ìÅ٤ΤßÆɤ߹þ¤ß¡¢ÊÑ¿ô¤ËÆâÍƤòÊݸ¤·¤Æ¤ª¤¯¤Î¤¬Å¬ÀڤǤ¹¡£


º£²ó¤Î¾ì¹ç¤Ïmes¤Îʸ»ú¤òÊѹ¹¤¹¤ë¤¿¤á¡¢boxf¤Ë¤è¤êÅɤê¤Ä¤Ö¤·¤¿¤¢¤ÈºÆÅÙmes¤¹¤ëÊýË¡¤¬°ìÈÌŪ¤Ç¤¹¡£
¤·¤¿¤¬¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë½¤Àµ¤·¤Þ¤¹¡£


*Start screen 0,600,400 title "½¤Â¤ENGLISH" redraw 0 color:boxf color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH" color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á" color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï" color $FF,$FF,$FF:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»" redraw 1 repeat stick key if(key&32):break if(key&128):end await 20 loop ab=0 ac=1 time=10 // ¥ª¥Ö¥¸¥§¥¯¥ÈÇÛÃÖÌ¿Îá¤Ï´ðËÜŪ¤Ë¤ÏºÇ½é¤Î°ìÅ٤Τ߼¹Ԥ·¤Þ¤¹¡£ cls objmode 2 font msgothic,24 objsize 200,40 sdim kaitou,500 input kaitou notesel buf noteload "type1.txt",50000 // ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¤Ïcls¤äinput¡¢noteload¤Ï¹Ô¤¤¤Þ¤»¤ó¡£ *main redraw 0 color 255, 255, 255 boxf color 0, 0, 0 pos 0, 100 mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+"" noteget a,ab mes a;1¹ÔÌÜɽ¼¨ noteget b,ac mes "PUSH ENTER" if time<1:goto *gameover ;»Ä¤ê»þ´Ö¤¬0°Ê²¼¤Ê¤ékey¤ò0¤Ë¤¹¤ë time=time-1;»Ä¤ê»þ´Ö¤ò¸º¤é¤¹ pos 300,300 ;ÉÁ²è¤¹¤ë¾ì½ê¤òÀßÄê mes "»Ä¤ê»þ´Ö:"+time redraw 1 wait 100 stick ky if ky=32:gosub*judge//¤â¤·Enter¤¬²¡¤µ¤ì¤¿¤éloop¤òÈ´¤±¤Æ¼¡¤Î¹Ô¤Ø wait 1 goto *main *judge if kaitou=b{ mes "Àµ²ò" seikai=seikai+1 }else{ mes "ÉÔÀµ²ò" huseikai=huseikai+1 } wait 100 ab=ab+2 ac=ac+2 if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over":redraw 1:await 1000:goto *Start//¥²¡¼¥à¥ª¡¼¥Ð¡¼½èÍý return *gameover mes "»þ´ÖÀÚ¤ì"



¹§Çµ²Ö

¥ê¥ó¥¯

2021/9/17(Fri) 06:21:29|NO.93895

¤Í¤ó¤Í¤³¤µ¤ó¡¢¤È¤¢¤ë¥×¥í¥°¥é¥Þ¤µ¤ó¡¢Åú¤¨¤Æ¤¤¤Æ¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
°ìÊâÁ°¿Ê¤Ç¤­¤Þ¤·¤¿¡£
¤È¤¢¤ë¥×¥í¥°¥é¥Þ¤µ¤ó¤ÎÊý¤Ç¡¢¥¹¥¯¥ê¥×¥È¤ò½¤Àµ¤·¤¿¤È¤³¤í¡¢Ê¸»ú¤¬ÂǤÁ¹þ¤á¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¤¿¤À¡¢­¡È½Ä꤬ÃÙ¤¤¡¢­¢ÌäÂꤴ¤È¤Ç½ñ¤¤¤¿Ê¸»ú¤¬¾Ã¤¨¤Ê¤¤
¤È¤¤¤¦£²ÅÀ¤ÎǺ¤ß¤¬¤¢¤ê¤Þ¤¹¡£

stick key=32
if ky=32

¤Ïrepeat loop¤Ç»È¤¦¤Ù¤­¤È¤¤¤¦µ­»ö¤ò¸«¤Ä¤±¤¿¤Î¤Ç¤¹¤¬¡¢¤½¤ì¤¬´Ø·¸¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
²óÅú¤·¤Æ¤¤¤¿¤À¤±¤ë¤È½õ¤«¤ê¤Þ¤¹¡£¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£



¤È¤¢¤ë¥×¥í¥°¥é¥Þ

¥ê¥ó¥¯

2021/9/17(Fri) 17:39:55|NO.93899

>>­¡È½Ä꤬ÃÙ¤¤

stick¤ägetkey¤Ï¤½¤ì¤é¤¬¼Â¹Ô¤µ¤ì¤¿¡Ö½Ö´Ö¡×¤Î¥­¡¼¾õÂÖ¤ò³ÊǼ¤·¤Þ¤¹¡£

¤³¤Î¥×¥í¥°¥é¥à¤Ï1ÉÃ´Ö wait 100 ¤ÇÄä»ß¤·¤Þ¤¹¤Î¤Ç¡¢stick¤Ç¥­¡¼¾õÂÖ¤òǧ¼±¤Ç¤­¤ë¤Î¤Ï wait 100 ¤È goto *main ¤·¤Æ¥ë¡¼¥×¤·¤¿¼¡²ó¤Î wait 100 ¤Î´Ö¤Ë¤¢¤ë stick ¤¬¼Â¹Ô¤µ¤ì¤ë°ì½Ö¤Ç¤¹¡£

¤¤¤«¤Ê¤ë¾õÂ֤Ǥ⥭¡¼ÆþÎϤò¨ºÂ¤Ë¼õ¤±ÉÕ¤±¤ë¤Ë¤Ï¡¢onkey Ì¿Îá¤ò»ÈÍѤ·¤Þ¤¹¡£
¤³¤ÎÌ¿Îá¤Ï¥­¡¼ÆþÎϤ¬µ¯¤³¤Ã¤¿½Ö´Ö¤Ë¡¢»ØÄꤷ¤¿¥é¥Ù¥ë¤Ø¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£

¤½¤ÎºÝ iparam ¤ËÆþÎϤµ¤ì¤¿¥­¡¼¤Î¥­¡¼¥³¡¼¥É¤¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
Enter¤Ï13¤Ê¤Î¤Ç¡¢iparam¤¬13¤À¤Ã¤¿¤È¤­¤À¤±É¬ÍפʽèÍý¤ò¹Ô¤¤¤Þ¤¹¡£


>>­¢ÌäÂꤴ¤È¤Ç½ñ¤¤¤¿Ê¸»ú¤¬¾Ã¤¨¤Ê¤¤

input¤ÎÃæ¿È¤ò¾Ã¤¹¤Ë¤Ï objprm ¤ò»È¤¤¤Þ¤¹¡£
¤½¤ÎºÝɬÍפʥª¥Ö¥¸¥§¥¯¥ÈID¤Ï¡¢input¤ämesbox¡¢button¤Ê¤É¤Î¥ª¥Ö¥¸¥§¥¯¥ÈÇÛÃÖÌ¿Îá¤ò¼Â¹Ô¤·¤¿ºÝ¤Ë stat ¤ËÂåÆþ¤µ¤ì¤ë¤Î¤Ç¡¢¤½¤ì¤òÊÑ¿ô¤ËÊݸ¤·¤Æ¤ª¤­¤Þ¤¹¡£


*Start screen 0,600,400 title "½¤Â¤ENGLISH" redraw 0 color:boxf color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH" color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á" color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï" color $FF,$FF,$FF:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»" redraw 1 repeat stick key if(key&32):break if(key&128):end await 20 loop ab=0 ac=1 time=10 // ¥ª¥Ö¥¸¥§¥¯¥ÈÇÛÃÖÌ¿Îá¤Ï´ðËÜŪ¤Ë¤ÏºÇ½é¤Î°ìÅ٤Τ߼¹Ԥ·¤Þ¤¹¡£ cls objmode 2 font msgothic,24 objsize 200,40 sdim kaitou,500 input kaitou ID_input = stat // ¥ª¥Ö¥¸¥§¥¯¥ÈÀßÃַϤÎÌ¿Îá¸å¤Ë¤Ï stat ¤Ë¥ª¥Ö¥¸¥§¥¯¥ÈID¤¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Þ¤¹ notesel buf noteload "type1.txt",50000 // onkey¤ò»È¤Ã¤Æ¡¢¥­¡¼¤¬²¡¤µ¤ì¤¿¤é*judge¤ËÈô¤Ó¤Þ¤¹ onkey gosub *judge // ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¤Ïmes¤ÎºÆÉÁ²è¤Î¤ß¹Ô¤¤¤Þ¤¹¡£ *main redraw 0 color 255, 255, 255 boxf color 0, 0, 0 pos 0, 100 mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+"" noteget a,ab mes a;1¹ÔÌÜɽ¼¨ noteget b,ac mes "PUSH ENTER" if time<1:goto *gameover ;»Ä¤ê»þ´Ö¤¬0°Ê²¼¤Ê¤ékey¤ò0¤Ë¤¹¤ë time=time-1;»Ä¤ê»þ´Ö¤ò¸º¤é¤¹ pos 300,300 ;ÉÁ²è¤¹¤ë¾ì½ê¤òÀßÄê mes "»Ä¤ê»þ´Ö:"+time redraw 1 wait 100 // ÉÔÍ׺ï½üÉôʬ /* stick ky if ky=32:gosub*judge//¤â¤·Enter¤¬²¡¤µ¤ì¤¿¤éloop¤òÈ´¤±¤Æ¼¡¤Î¹Ô¤Ø wait 1 */ goto *main *judge // *judge¤Ç¤Î½èÍý¤ò¼Â¹Ô¤¹¤ë´Ö¡¢ºÆÅÙEnter¤ò²¡¤µ¤ì¤ë¤³¤È¤òËɤ°¤¿¤á¡¢ // *judgeÃæ¤Ï onkey 0 ¤Ç onkey ¤Î³ä¤ê¹þ¤ß¤ò°ì»þÄä»ß¤·¤Þ¤¹¡£ onkey 0 // onkey¤«¤éÈô¤ó¤Ç¤­¤¿¾ì¹ç¤Ï iparam ¤Ëʸ»ú¥³¡¼¥É¤¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ // ʸ»ú¥³¡¼¥É¤Ïgetkey¤Î¤â¤Î¤ÈƱ¤¸¤Ç¤¹¡£ // ¤³¤³¤Ç¤Ï Enter(13) ¤Î¾ì¹ç¤ÏɬÍפʽèÍý¤ò¹Ô¤¤¤Þ¤¹¡£ if iparam=13 { if kaitou=b{ mes "Àµ²ò" seikai=seikai+1 }else{ mes "ÉÔÀµ²ò" huseikai=huseikai+1 } wait 100 ab=ab+2 ac=ac+2 if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over":redraw 1:await 1000:goto *Start//¥²¡¼¥à¥ª¡¼¥Ð¡¼½èÍý // input ¤ÎÃæ¿È¤ò¶õ "" ¤ËÀßÄꤷ¤Þ¤¹¡£ objprm ID_input, "" } // »ß¤á¤Æ¤¢¤Ã¤¿ onkey ¤òºÆÅÙÆ°¤«¤·¤Þ¤¹¡£ onkey 1 return *gameover mes "»þ´ÖÀÚ¤ì"



¹§Çµ²Ö

¥ê¥ó¥¯

2021/9/17(Fri) 22:44:04|NO.93902

¤È¤¢¤ë¥×¥í¥°¥é¥Þ¤µ¤ó¡¢¤ï¤«¤ê¤ä¤¹¤¤²òÀâ¤È½¤Àµ¥¹¥¯¥ê¥×¥È¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
ÌäÂ꤬²ò¾Ã¤·¤Þ¤·¤¿¡£
¤È¤Æ¤â»²¹Í¤Ë¤Ê¤ê¤Þ¤·¤¿¡£²¿»þ´Ö¤«¤±¤Æ¤â¤Ç¤­¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢´¶Æ°¤Ç¤¹¡£
¤¢¤È£³¤Ä¤À¤±¶µ¤¨¤Æ¤¤¤¿¤À¤­¤¿¤¤¤Ç¤¹¡£
­¡¥¿¥¤¥Ô¥ó¥°¤ò®¤¯¤¹¤ì¤Ð®¤¯¤¹¤ë¤Û¤É¡¢»Ä¤ê»þ´Ö¤¬°ìµ¤¤Ë¸º¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
­¢¥²¡¼¥à½ªÎ»¤ÈƱ»þ¤Ë¥¤¥ó¥×¥Ã¥È¥­¡¼¤Ø¤ÎÆþÎϤò¥¹¥È¥Ã¥×¤¹¤ë¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
­£ab=0,ac=1,noteget a,ab noteget b,ac¤Ã¤Æ¤É¤¦¤¤¤¦°ÕÌ£¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©
¤É¤¦¤«¤´²óÅú¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£



¥á¥ë¥¯¡¼¥Õ

¥ê¥ó¥¯

2021/9/18(Sat) 08:31:15|NO.93903

¡¡Â¾¤ÎÊý¤¬²óÅú¤µ¤ì¤Æ¤¤¤¿¤Î¤ÇÉÔÍפ«¤È»×¤¤¤Þ¤·¤¿¤¬¡¢¤Þ¤ÀÌäÂ꤬¤¢¤ë¤è¤¦¤Ê¤Î¤Ç¡¢ºÇ½é¤Î¥¹¥¯¥ê¥×¥È¤ò´ð¤Ë»ä¤Î¤ä¤êÊý¤ÇÊѹ¹¤·¤¿Êª¤òµó¤²¤Æ¤ª¤­¤Þ¤¹¡£

¡¡¤½¤ÎÁ°¤Ë¼ÁÌä¤Ë¤Ä¤¤¤Æ¤Î²óÅú¤â¤·¤Æ¤ª¤­¤Þ¤¹¡£

>> ­¡¥¿¥¤¥Ô¥ó¥°¤ò®¤¯¤¹¤ì¤Ð®¤¯¤¹¤ë¤Û¤É¡¢»Ä¤ê»þ´Ö¤¬°ìµ¤¤Ë¸º¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
¡¡onkey¤ò»È¤¦¤È¡¢¥­¡¼¤ò²¡¤¹¤¿¤Ó¤Ëwait¤Î»Ä¤ê»þ´Ö¤¬´þµÑ¤µ¤ì¤Þ¤¹¡£»ä¤ÏÄ̾onkey¤ò»È¤ï¤º¡¢¿ï½ê¤Ëstick¤ÇȽÄꤹ¤ë¤è¤¦¤Ê¥¹¥¯¥ê¥×¥È¤òµ­½Ò¤¹¤ë¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤¹¡£

>> ­¢¥²¡¼¥à½ªÎ»¤ÈƱ»þ¤Ë¥¤¥ó¥×¥Ã¥È¥­¡¼¤Ø¤ÎÆþÎϤò¥¹¥È¥Ã¥×¤¹¤ë¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
¡¡¤È¤ê¤¢¤¨¤ºclrobj¤òÆþ¤ì¤Æ¤ª¤­¤Þ¤·¤¿¡£input¤Î¥Ü¥Ã¥¯¥¹¤ò¾Ã¤¹¤³¤È¤Ç¼Â¸½¤µ¤»¤Æ¤¤¤Þ¤¹¡£

>> ­£ab=0,ac=1,noteget a,ab noteget b,ac¤Ã¤Æ¤É¤¦¤¤¤¦°ÕÌ£¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©
¡¡noteget a,ab¤Ï¡Øʸ»úÎóÊÑ¿ôa¤Ënoteload¤ÇÆɤߤ³¤ó¤À¥Æ¥­¥¹¥È¤Îab(+1)¹ÔÌܤòÂåÆþ¤¹¤ë¡Ù¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£ab¤¬0¤Ê¤Î¤Ç¡¢a¤Ë¤Ï0+1¤Ç1¹ÔÌܤÎʸ¤¬Æþ¤ê¤Þ¤¹¡£
¡¡type1.txt¤Ë¤Ï´ñ¿ô¹ÔÌܤËÌäÂê¡¢¶ö¿ôÌܤ˲òÅú¤¬Æþ¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢ab¤Èac¤ò2¤º¤Ä­¤¹¤³¤È¤ÇËè²óa¤Ë¤ÏÌäÂ꤬¡¢b¤Ë¤Ï²òÅú¤Îʸ»úÎó¤¬ÂåÆþ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£


*Start screen 0,600,400 title "½¤Â¤ENGLISH" redraw 0 color:boxf color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH" color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á" color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï" /*color $FF,$FF,$FF:font "HGÌÀÄ«E",16*/:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»" : ; ¾å¤È½ÅÊ£¤·¤Æ¤¤¤ë¤Î¤ÇÉÔÍס£ redraw 1 repeat stick key if(key&32):break if(key&128):end await 20 loop notesel buf ab=0 ac=1 time=500 : ; await 20¤ò500²ó¤¯¤êÊÖ¤¹¤³¤È¤ÇÌó10ÉäËÊѹ¹¡£ noteload "type1.txt",50000 : ; ³°¤Ë½Ð¤¹¡£ sdim kaitou,500 : ; ³°¤Ë½Ð¤¹¡£½é´ü²½¤ÏÂåÆþ¤Ç¹Ô¤¦¡£ *main cls : ; ¤³¤Î¥¹¥¯¥ê¥×¥È¤Ê¤écls¤Ç¤¤¤¤¤È»×¤¦¡£ mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+"" noteget a,ab mes a noteget b,ac kaitou="" : ; ½é´ü²½¡£ objmode 2 : ; cls¤ò»Ä¤·¤¿¤Î¤Ç¡¢¤³¤ì¤é¤â»Ä¤¹¡£ font msgothic,24 objsize 200,40 input kaitou objsel 0 : ; ¤³¤ì¤¬Ìµ¤¤¤È2²óÌܰʹߤËinput¥Ü¥Ã¥¯¥¹Æâ¤ËÆþÎÏ¥«¡¼¥½¥ë¤¬¥Ç¥Õ¥©¤Ç½Ð¤Ê¤¤¡£ mes "PUSH ENTER" ; main¤ò2¤Ä¤Ëʬ¤±¤ë¡£ *main_2 time=time-1 redraw 0 : ; ²èÌ̤ΥÁ¥é¥Ä¥­¤òËɤ°¡£ color 255,255,255 : boxf 300,300,599,399 : ; »Ä¤ê»þ´Ö¤Îɽ¼¨¤ò¾Ãµî¡£ color 0,0,0 : ; ¾Ãµî¤ÎºÝ¤Ë¿§¤òÊѤ¨¤¿¤Î¤Ç¡¢Ê¸»ú¤Î¿§¤Ë¹õ¤ò»ØÄê¡£ pos 300,300 mes "»Ä¤ê»þ´Ö:"+str((time+49)/50) : ; time¤¬49°Ê²¼¤Ë¤Ê¤ë¤È0¤Èɽ¼¨¤µ¤ì¤ë¤Î¤òËɤ°¤¿¤á¤Ë49¤ò­¤¹¡£ redraw 1 if time<1:goto *gameover : ; »Ä¤ê»þ´Ö¤òɽ¼¨¤µ¤»¤Æ¤«¤é*gameover¤ËÈô¤Ö¤è¤¦¤Ë½çÈÖÊѹ¹¡£ ; wait 100¤Ï»È¤ï¤Ê¤¤¡£ stick ky if (ky&32)!=0 :goto *judge : ; if¤Ï»ä¤Î¹¥¤ß¤Î½ñ¤­Êý¤Ê¤À¤±¤ÎÊѹ¹¡£gosub¤ògoto¤ËÊѹ¹¡£ await 20 : ; wait 1¤òÊѹ¹¡£ goto *main_2 : ; Êѹ¹¡£ *judge if kaitou=b{ mes "Àµ²ò" seikai=seikai+1 }else{ mes "ÉÔÀµ²ò" huseikai=huseikai+1 } wait 100 ab=ab+2 ac=ac+2 if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over": /* redraw 1¤ÏÉÔÍס£*/ : goto *modoru : ; ÊÌ¥é¥Ù¥ë¤ËÈô¤Ö¤è¤¦¤ËÊѹ¹¡£ goto *main : ; gosub¤ògoto¤ËÊѤ¨¤¿¤Î¤Çreturn¤âÊѹ¹ *gameover mes "»þ´ÖÀÚ¤ì" *modoru clrobj:await 2000:goto *Start : ; clrobj¤Çinput¥Ü¥Ã¥¯¥¹¤ò¾Ãµî¤·¡¢1ÉäǤÏû¤¤¤È»×¤Ã¤¿¤Î¤Ç2ÉäËÊѹ¹¡£¤½¤Î¸å¤Ç*Start¤ËÌá¤ë¡£



¤È¤¢¤ë¥×¥í¥°¥é¥Þ

¥ê¥ó¥¯

2021/9/18(Sat) 11:57:23|NO.93905

¥á¥ë¥¯¡¼¥Õ¤µ¤ó¤¬¤Û¤È¤ó¤É²òÀ⤷¤Æ¤¯¤À¤µ¤Ã¤¿¤Î¤Ç»ä¤«¤é¤Î²òÀâ¤Ï¤¢¤Þ¤ê¤¢¤ê¤Þ¤»¤ó¤¬¡¢°ì±þ»ä¤Î oncmd ¤ò»È¤Ã¤¿ÊýË¡¤Ç¤Î½¤Àµ°Æ¤âºÜ¤»¤Æ¤ª¤­¤Þ¤¹¤Í¡£


>>­¡
¥á¥ë¥¯¡¼¥Õ¤µ¤ó¤¬¶Ä¤ëÄ̤ꡢHSP¤Î»ÅÍ;åwait/awaitÃæ¤Ë³ä¤ê¹þ¤ß¤¬È¯À¸¤¹¤ë¤È¡¢³ä¤ê¹þ¤ß¤«¤éµ¢¤Ã¤Æ¤­¤¿¤¢¤È¤Î»Ä¤ê»þ´Ö¤Ë´Ø¤ï¤é¤º wait/await ¤¬½ªÎ»¤·¤Æ¼¡¤Î¹Ô¤Ë°ÜÆ°¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

»ä¤Î¾ì¹ç¤Ï¤³¤ÎÌäÂê¤ò½¤Àµ¤·¤Æ¡¢³ä¤ê¹þ¤ß¤¬È¯À¸¤·¤Æ¤â»Ä¤ê»þ´Ö¤â¤Á¤ã¤ó¤ÈÂÔµ¡¤·¤Æ¤¯¤ì¤ë½¤ÀµÈÇ waitEX ¤òºî¤ê¤Þ¤·¤¿¡£
ËÁƬ¤Î#module¡Á#globalÉôʬ¤Ç¤½¤ì¤¬ÄêµÁ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

¤³¤ÎÄøÅÙ¤Î¥×¥í¥°¥é¥à¤Ç¤Ï¤µ¤Û¤ÉÌäÂê¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢¾ï¤Ë¾®´Ö³Ö¤Çrepeat¡Áloop¤·¤Æ¤¤¤ë¤ÈCPU»ÈÍÑΨ¤¬¹â¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤·¡¢await ¤ÎÂÔµ¡Ãæ¤Ï¤ä¤Ï¤êÆþÎϤò¼õ¤±ÉÕ¤±¤Æ¤¯¤ì¤Ê¤¤¤Î¤Ç¡¢»ä¤Ï¤³¤Î onkey ¤È waitEX ¤ò»È¤Ã¤¿ÊýË¡¤ò»È¤¤¤Þ¤·¤¿¡£

¤É¤Á¤é¤ÎÊýË¡¤¬Îɤ¤¤«¤Ï¡¢¤Þ¤¢¤Ö¤Ã¤Á¤ã¤±¹¥¤ß¤Ç¤¹¤Í¡£
¼«Ê¬¤¬¤ä¤ê¤ä¤¹¤¤Êý¡¢Ê¬¤«¤ê¤ä¤¹¤¤Êý¤òÁª¤Ù¤Ð¤¤¤¤¤È»×¤¤¤Þ¤¹¡£


>>­¢
¤³¤Á¤é¤â¥á¥ë¥¯¡¼¥Õ¤µ¤ó¤¬¶Ä¤ëÄ̤ꡢclrobj¤ò»È¤¦ÊýË¡¤â¤¢¤ê¤Þ¤¹¤·¡¢objenable¤È¤¤¤¦Ì¿Îá¤ò»È¤¦ÊýË¡¤â¤¢¤ê¤Þ¤¹¡£
°ã¤¤¤Ï¾Ã¤¹¤«Ìµ¸ú²½¤¹¤ë¤«¤Ç¤¹¡£
¤³¤ì¤â¹¥¤ß¤Ç¤·¤ç¤¦¡£

¤¿¤À¤·clrobj¤Ç¾Ã¤·¤¿¾ì¹ç¤Ï¡¢¤Þ¤¿»È¤¤¤¿¤¤¤È¤­¤ÏºÆÅÙ input ¤ÇÇÛÃÖ¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
objenable¤Ç̵¸ú²½¤·¤¿¾ì¹ç¤Ï¡¢ºÆÅÙobjenable¤ÇÍ­¸ú²½¤¹¤ë¤À¤±¤Ç¤¹¡£Ãæ¿È¤ò¾Ã¤¹¤Ë¤Ïobjprm¤âɬÍפˤʤê¤Þ¤¹¤¬¡£


>>­£
´°àú¤Ë¥á¥ë¥¯¡¼¥Õ¤µ¤ó¤¬²òÀ⤷¤Æ¤¯¤À¤µ¤Ã¤¿¤Î¤Ç»ä¤«¤é¸À¤¦¤³¤È¤Ï¤Ê¤¤¤Ç¤¹¤¬¡¢°ì¤Ä¤À¤±²¿¸Î +1¹ÔÌܤʤΤ«¤À¤±Êä­¤¹¤ë¤È¡¢¥³¥ó¥Ô¥å¡¼¥¿Åª¤Ë¤Ï½çÈÖ¤Ï0¤«¤é»Ï¤Þ¤ë¤«¤é¤Ç¤¹¡£

²æ¡¹¿Í´Ö¤«¤é¤¹¤ë¤È°ìÈÖ¾å¤Î¹Ô¤«¤é 1¹ÔÌÜ¡¦2¹ÔÌÜ¡¦3¹ÔÌÜ¡Ä ¤Ç¤¹¤¬¡¢¥³¥ó¥Ô¥å¡¼¥¿Åª¤Ë¤Ï 0¹ÔÌÜ¡¦1¹ÔÌÜ¡¦2¹ÔÌÜ¡Ä ¤È¤¤¤Ã¤¿´¶¤¸¤Ç¤¹¡£


// ¥â¥¸¥å¡¼¥ë¤Ï¤¸¤á #module #uselib "WINMM.DLL" #func timeGetTime "timeGetTime" #func timeBeginPeriod "timeBeginPeriod" sptr #func timeEndPeriod "timeEndPeriod" sptr // Í×Ì󤹤ë¤È¡¢waitEX ¤¬¸Æ¤Ó½Ð¤µ¤ì¤Æ¤«¤é»ØÄêÂÔµ¡»þ´Ö¸å¤Î¥Æ¥£¥Ã¥¯(¢â»þ¹ï)¤Þ¤ÇÂÔµ¡¤·¤Þ¤¹¡£ #deffunc waitEX int time, \ local ExitTick timeBeginPeriod 1 ExitTick = timeGetTime() + time * 10 while (timeGetTime() < ExitTick) wait@hsp max(0, (ExitTick - timeGetTime()) / 10) wend wait@hsp 0 timeEndPeriod 1 return #global // ¥â¥¸¥å¡¼¥ë½ª¤ï¤ê *Start screen 0,600,400 title "½¤Â¤ENGLISH" redraw 0 color:boxf color 255,0,0:font "HGÌÀÄ«E",50:pos (870-50*11)/2,100:mes "½¤Â¤ENGLISH" color $FF,$FF,$00:font "HGÌÀÄ«E",30:pos (500-30* 6)/2,180:mes "¡ÁLEVEL1¡Á" color 255,255,255:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,250:mes "[Enter]¥­¡¼¤Ç³«»Ï" color $FF,$FF,$FF:font "HGÌÀÄ«E",16:pos (600- 8*15)/2,282:mes "[ESC]¥­¡¼¤Ç½ªÎ»" redraw 1 repeat stick key if(key&32):break if(key&128):end await 20 loop ab=0 ac=1 time=10 cls objmode 2 font msgothic,24 objsize 200,40 sdim kaitou,500 input kaitou ID_input = stat notesel buf noteload "type1.txt",50000 onkey gosub *judge *main redraw 0 color 255, 255, 255 boxf color 0, 0, 0 pos 0, 100 mes "Àµ²ò="+seikai+"":mes "ÉÔÀµ²ò="+huseikai+"" noteget a,ab mes a;1¹ÔÌÜɽ¼¨ noteget b,ac mes "PUSH ENTER" if time<1:goto *gameover ;»Ä¤ê»þ´Ö¤¬0°Ê²¼¤Ê¤ékey¤ò0¤Ë¤¹¤ë time=time-1;»Ä¤ê»þ´Ö¤ò¸º¤é¤¹ pos 300,300 ;ÉÁ²è¤¹¤ë¾ì½ê¤òÀßÄê mes "»Ä¤ê»þ´Ö:"+time redraw 1 // »Ä¤ê»þ´Ö¤ò¹Íθ¤¹¤ë waitEX ¤ò»ÈÍѤ·¤Þ¤¹¡£ waitEX 100 goto *main *judge onkey 0 if iparam=13 { if kaitou=b{ mes "Àµ²ò" seikai=seikai+1 }else{ mes "ÉÔÀµ²ò" huseikai=huseikai+1 } wait 100 ab=ab+2 ac=ac+2 if huseikai=3:pos 120,200:color 0,0,0:mes"Game Over":redraw 1:await 1000:oncmd 0:goto *Start//¥²¡¼¥à¥ª¡¼¥Ð¡¼½èÍý objprm ID_input, "" } onkey 1 return *gameover oncmd 0 mes "»þ´ÖÀÚ¤ì" // ¥ª¥Ö¥¸¥§¥¯¥È¤ò̵¸ú²½ objenable ID_input, 0



¹§Çµ²Ö

¥ê¥ó¥¯

2021/9/19(Sun) 08:29:53|NO.93911

¥á¥ë¥¯¡¼¥Õ¤µ¤ó¡¢¤È¤¢¤ë¥×¥í¥°¥é¥Þ¤µ¤ó¡¢ÃúÇ«¤Ê²òÀâ¤È½¤Àµ¥×¥í¥°¥é¥à¤ÎÄó°Æ¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¼«Ê¬¤¬ºÆ¸½¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤¿·Á¤Ë¤Ê¤ê¤Þ¤·¤¿¡ª
¤¤¤í¤¤¤í¤Ê¥¢¥×¥í¡¼¥Á¤Î»ÅÊý¤¬¤¢¤ë¤³¤È¤¬¤è¤¯¤ï¤«¤ê¤Þ¤·¤¿¡£
¤³¤ì¤«¤é¡¢²èÁü¤òÆþ¤ì¤¿¤ê¡¢¥²¡¼¥àÀ­¤ò¹â¤á¤¿¤ê¡¢¥é¥ó¥­¥ó¥°µ¡Ç½¤ò¤Ä¤±¤¿¤ê¤·¤Æ¤¤¤¯¤³¤È¤òÌܻؤ·¤Æ¤¤¤­¤Þ¤¹¡£
¤Þ¤¿Êɤˤ֤Ĥ«¤Ã¤¿ºÝ¡¢¤ª½õ¤±¤¤¤¿¤À¤±¤ë¤È´ò¤·¤¤¤Ç¤¹¡£¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£
¤´¶¨ÎϤ¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£



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