// 1辺100 pixの正方形を,ランダムな色で,ランダムな場所に描く。
// マウスカーソルの位置を画面中央に変えて,
// 正方形の中をクリックする迄にかかった時間 (正方形を表示してからクリッ
// クするまでの) 時間を画面左上隅に表示するプログラムを作る。
// 反応時間を表示したら2秒後に,次の正方形を描いて,反応時間測定を繰
// り返す。
というプログラムで、
#include "winmm.as"
screen 1, ginfo_dispx, ginfo_dispy, 4, 0, 0
randomize
onclick gosub *clickeda
timeGetTime
a = stat
b = 2 * 1000
z = 100
x0 = rnd(ginfo_dispx - z)
y0 = rnd(ginfo_dispy - z)
x1 = x0 + z
y1 = y0 + z
color rnd(256), rnd(256), rnd(256)
boxf x0, y0, x1, y1
mouse ginfo_dispx/2, ginfo_dispy/2
*clickeda
if (x0<mousex) and (mousex<x1) and (y0<mousey) and (mousey<y1) {
cls
mouse ginfo_dispx/2, ginfo_dispy/2
timeGetTime
c = stat - a
pos 0, 0
mes c
await b + c
x0 = rnd(ginfo_dispx - z)
y0 = rnd(ginfo_dispy - z)
x1 = x0 + z
y1 = y0 + z
color rnd(256), rnd(256), rnd(256)
boxf x0, y0, x1, y1
timeGetTime
a = stat
}
までは作ることができたのですが、四角が消える二秒間の間にクリックすると次の四角が出なくなってしまいます。
どのように改善したらいいでしょうか?