Program post site for everyone
■説明
スイッチにある「Not Not ? 頭脳耐久ゲーム」をまねたものです。
ヒダリやミギなどと表示されるので、その方向ボタンを押します。
ヒダリじゃないと表示されたら、左以外の矢印を押します。
ヒダリじゃないじゃないだと左を押します。
各問題制限時間は2秒です。
■操作
↑
← →
↓
■改造
60行のC=120-TICK()で制限時間を調整できます。
C=60-TICK()とすると制限時間が1秒になります。（60で1秒）
10 CLV:CLP:VIDEO3:LET[0],"ヒダリ","ミギ ","ウエ ","シタ ","ジャナイ" 20 @A:CLS:?"トクテン:";S:?"ノコリジカン:" 30 A=RND(4):LC2,3:?STR$([A]) 40 B=RND((S>3)*2+(S>5)+(S>7)):FOR I=0 TO 3:LC 2,4+I:IF B>I ?STR$([4]) ELSE ?" " 50 NEXT:CLT 60 @B:LC8,1:C=120-TICK():?C;" ":K=INKEY():IF C<0 GOTO@D ELSE IF !K CONT 70 K=K-28:IF K<0||K>3 GOTO@B 80 LC3,8:?CHR$(K+224); 90 IF B=0&&A=K GOTO@C 100 IF B=1&&A<>K GOTO@C 110 IF B=2&&A=K GOTO@C 120 IF B=3&&A<>K GOTO@C 130 ?"NG":GOTO@D 140 @C:S=S+1:?"OK":WAIT60:GOTO@A 150 @D:?"GAME OVER"
