ナンバーテトリス

戻る
 
正確には「New No TETRIS」です。
 
ランダムに選ばれた整数を、3つの変数 A,B,C のうちどれに足すかを選びます。
A, B, C はそれぞれ 10 の倍数になると、値が 0 にリセットされます。
 
値がリセットされず、リミットの値よりも大きくなるとゲームオーバーです。
 
 
10 PRINT "#NEW No T"
40 PRINT "P";:INPUT P
50 PRINT "L(0-8)";:INPUT R:L=101-10*R
70 PRINT "1";:INPUT A:PRINT "2";:INPUT B
90 PRINT "3";:INPUT C
100 PRINT "START MAX";L
102 E=INT (RAN#*101)
103 IF E=100 THEN 200
104 E=INT (E/10)+1
105 PRINT "NEXT";E
110 PRINT "1-3";A;B;C;:INPUT Q
120 IF Q=1 THEN 160
130 IF Q=2 THEN 170
140 IF Q=3 THEN 180
145 IF Q=9 THEN 150
147 GOTO 105
150 PRINT "/1=";A;" 2=";B;" 3=";C;" P=";P;" L=";R;
155 GOTO 150
160 A=A+E:IF A-INT (A/10)*10=0 THEN 210
165 GOTO 300
170 B=B+E:IF B-INT (B/10)*10=0 THEN 220
175 GOTO 300
180 C=C+E:IF C-INT (C/10)*10=0 THEN 230
190 GOTO 300
200 A=0:B=0:C=0:P=P+R^8:PRINT "DREAM CA&P=";P:GOTO 300
210 P=P+A^3:A=0:GOTO 290
220 P=P+B^3:B=0:GOTO 290
230 P=P+C^3:C=0
290 PRINT "P";P
300 IF A≧L THEN 400
310 IF B≧L THEN 400
320 IF C≧L THEN 400
340 GOTO 102
400 PRINT "DIE";P
 
 
戻る