DynamicModule[{time,touch={Text[Style["TOUCH",Red,FontSize->40]]},col1=Red,col2=Pink,col3=Orange},(*TOUCHや円の色を変えられるようにする。*)
EventHandler[
Dynamic[
Animate[
If[t≥ 2 Pi+0.9,touch={Text[Style["TOUCH",Red,FontSize->40]]};col1=Red;
col2=Pink;col3=Orange];(*◇◆◇マーカーの初期化。最後の方に書いていた時はうまくいかなかったがここに書くことでうまくいった◇◆◇*)
r=0.5;(*3つの円弧の中で1番外側の円弧の半径*)thick=0.04;(*線の太さ*)panelSize=r+thick/2;(*枠の大きさ*)circ1={Thickness[thick],col1,Circle[{0,0},r,{Pi/2,Pi/2-t}]};
circ2={Thickness[thick/2],col2,Circle[{0,0},r-0.1,{Pi/2,Pi/2-t}]};
circ3={Thickness[thick],col3,Circle[{0,0},r-0.2,{Pi/2,Pi/2-t}]};(*3つの円弧*)line=Line[{{-panelSize,-panelSize},{panelSize,-panelSize},{panelSize,panelSize},{-panelSize,panelSize},{-panelSize,-panelSize}}];(*枠の大きさ*)markerTouch={circ1,circ2,circ3,line,Dynamic[touch]};(*TOUCHと表示*)marker={circ1,circ2,circ3,line};(*円弧のみ表示*)
time=t;(*◇◆◇EventHandlerの判断にtを使っていたがうまく動かなかったのでここで変数timeにtを代入して、timeを使って判断している。tはAnimateのループで局所変数になっている。◇◆◇*)
Graphics[{If[2 Pi-0.5≤t≤2 Pi+1,(*円弧が円にもうすぐなるときから円になってからしばらくの間TOUCH を表示させる*)markerTouch,marker]}],{t,0,2 Pi+1}]],{"MouseClicked":>(If[2 Pi-0.5≤time≤2 Pi+1,touch=Text[Style["GREAT",Red,FontSize->40]];
col1=Yellow;col2=Orange;col3=Red,touch=Text[Style["BAD",Blue,FontSize->40]];col1=Blue;
col2=Green;col3=Cyan])}]]