タイピングゲームのサンプルがあったのでそれをコピー、参考にしつつ作ったのが
title "英語問題"
randomize *first ;タイトル画面 cls 4 score=0 que=0 pos 60,50 : font "MS 明朝",99,2 : color 0,100,255 : mes "英語問題" pos 60,200: button "単語テスト",*start stop *start cls 4 *tango ;単語テスト出題準備 cursor=0 typemode=0 timer=100 m=rnd(3) if m=0 : mondai="subject":mondai2="主題,科目;被験者" if m=1 : mondai="objective":mondai2="客観的な" if m=2 : mondai="seldom":mondai2="滅多に…(し)ない" onkey gosub *typein *main ; ゲームメイン redraw 0 color 192,192,192:boxf font msgothic,16 color 0,0,0 pos 80,20:mes "残り時間:"+timer pos 80,40:mes "スコア:"+score font msgothic,30,1 color 0,120,160 pos 170,198:mes mondai2 pos 170,238:mes mondai pos 170,238:color 255,0,0:mes strmid(mondai,0,cursor) redraw 1 await 50 if typemode>0 : onkey 0 : goto *tango if timer<=0 : onkey 0 : goto *timeup timer=timer-1 goto *main *typein ; キーを押した時の処理 a=peek(mondai,cursor) if a!=iparam : goto *typemiss len=strlen(mondai) cursor=cursor+1:if cursor<len : return goto *win *typemiss ; ミスタッチをした時 return *win ; タイピング成功 typemode=1 que=que+1 score+=1 if que>=2 : goto *result goto *main *timeup ;時間内に回答できなかったとき que=que+1 pos 170,238 : font msgothic,30,1 : color 255,0,0 : mes mondai await 500 if que>=2 : goto *result goto *tango
こんな感じのものです。
前後関係が悪いのではと思い、スクリプトの書き込みが多くなりました。すみません。
これを実行すると、時間が来て正解を表示することはできるのですが、
時間内に回答を入力しても反応がない・・・ということになってしまいます。
いろいろ読んでみたのですがよくわからず・・・
初歩的な質問かもしれませんが教えてくださると嬉しいです。
追記ですが、
上のスクリプトだと解答入力前に既に解答が表示されているということになりますが、
それはサンプルのタイピングゲームからコピーしてきたからで、後々消すつもりです。