IchigoJam定番プログラムの「かわくだりゲーム」が宇宙に飛び立ちました。
キミは天の川を、小惑星に当たらずに何光年進むことができるか?
はるか遠方より小惑星が近づいてきます。
(天の川を一点透視図法で表現しています。)
ぶつからないよう矢印キーで避けてください。
宇宙空間なので慣性の法則により、宇宙船は同じ方向に動き続けるので注意。
*入力時の注意
コピー&ペーストで入力する時は「\」および、全角カナを半角に変更してください。
キミは天の川を、小惑星に当たらずに何光年進むことができるか?
はるか遠方より小惑星が近づいてきます。
(天の川を一点透視図法で表現しています。)
ぶつからないよう矢印キーで避けてください。
宇宙空間なので慣性の法則により、宇宙船は同じ方向に動き続けるので注意。
10 'アマノガワクダリ ゲーム 20 CLS:CLV:CLT:X=16 30 FOR I= 0 TO 14 40 LC 14-I,I+8:?"/":LC 16+I,I+8:?"\"; 50 NEXT 60 [0]=RND(30)+1 70 FOR I= 16 TO 1 STEP -1 80 IF [I] THEN LC ([I]-16)*I/16+15,7+I:?" "; 90 [I]=[I-1] 100 IF [I] THEN LC ([I]-16)*I/16+15,7+I:?"."; 110 NEXT 120 IF SCR(X,23)=46 THEN LC X,23:? CHR$(244):LC 0,0:?"ダッシュツ キョリ=";TICK();"コウネン":END 130 K=INKEY() 140 IF K THEN W=(K=RIGHT)-(K=LEFT):IF W THEN V=W 150 LC X,23:?" "; 160 X=X+V 170 IF X<0 X=0 180 IF X>30 X=30 190 LC X,23:?CHR$(240); 200 GOTO 60 |
*入力時の注意
コピー&ペーストで入力する時は「\」および、全角カナを半角に変更してください。