stick»ÅÍͤÀ¤í¤¦¤Ègetkey»ÅÍͤÀ¤í¤¦¤È¡¢¥¹¥¯¥ê¥×¥È¤ÎÁȤßÊý¼¡Âè¤ÇÂбþ¤Ç¤¤Þ¤¹¤è¡£
¤¿¤È¤¨¤Ð¡¢²¼¤Î2¤Ä¤Î¥¹¥¯¥ê¥×¥È¤Ï¤Û¤ÜƱ¤¸»Å»ö¤ò¤·¤Þ¤¹¡£
¡ã.µ¡ä
dim key_cross,4
buf_message = "¢«","¢¬","¢ª","¢"
mes "I will check ¢«,¢¬,¢ª,¢ key in three seconds.\nAre you ready?"
wait 300
repeat 4 : getkey key_cross(cnt),37+cnt : loop ;¼èÆÀ
;¡Á¡Á¡Á¡Á¡Á¡Á¡Á²¿¤é¤«¤Î½èÍý¡Á¡Á¡Á¡Á¡Á¡Á¡Á
mes "\nresults>"
repeat 4
if key_cross(cnt) = 1 : mes " key : " + buf_message(cnt) + "is on."
loop
¡ã.¶¡ä
buf_message = "¢«","¢¬","¢ª","¢"
mes "I will check ¢«,¢¬,¢ª,¢ key in three seconds.\nAre you ready?"
wait 300
stick keys,0,0
;¡Á¡Á¡Á¡Á¡Á¡Á¡Á²¿¤é¤«¤Î½èÍý¡Á¡Á¡Á¡Á¡Á¡Á¡Á
mes "\nresults>"
repeat 4
if keys&(1<<cnt) : mes " key : " + buf_message(cnt) + "is on."
loop