Program post site for everyone
宇宙航海ゲームです。
宇宙船を左右キーで操作し、星の軌跡を避けてください。
星の軌跡に当たらずに一定時間が経過すると、スピードアップします。最大5段階です。
星の軌跡に当たるとスピードダウンし、さらに時間（T）が減算されます。
（画面フラッシュしますので、苦手な人は行番号200の「VIDEO 2」を削除してください。）
距離（D）を100飛行すると、時間が加算され次のステージに行けます。
時間が0になるとゲームオーバーです。再ゲームはスペースキーです。
スピード感のあるゲームにできたと思います。
プレイしてもらえるとうれしいです。
(8/13 更新：効率の悪いところがあったので修正しました。行番号125に小惑星帯を通過するような効果を追加しました。）
10 'STAR SHIP 20 CLS:CLV:X=15:V=0:L=-1:T=300:U=1 30 D=0:L=L+1:T=T+300:BEEP 1,30 40 POKE #940,4:COPY #941,#940,255 50 LOCATE 24,0:PRINT "STAGE:";CHR$(#41+L) 60 LOCATE 0,0:PRINT "SPEED:";U 70 T=T-1:D=D+U 80 LOCATE 11,0:PRINT "T:";T;" D:";L*100+D/10;" " 90 IF D>1000 THEN GOTO 30 100 IF T<1 THEN GOTO 260 110 IF RND(11-L-U)=0 THEN POKE #920+RND(31),#92 120 POKE #920+RND(31),0 125 IF D%500=0 THEN POKE #940,#3A:COPY #941,#940,127 130 COPY #93F+32*U,#91F+32*U,-32*U 140 R=RND(32):IF SCR(R,U+1)=0 THEN POKE #920+U*32+R,#3A 150 IF U=1 THEN POKE #BC0+X,0 160 COPY #BFF,#BFF-U*32,U*32-704 170 X=X+BTN(RIGHT)*(X<29)-BTN(LEFT)*(X>1) 180 S=SCR(X,22) 190 POKE #BC0+X,#F0 200 IF S=#92 THEN BEEP 120:VIDEO 2:WAIT 5:VIDEO 1:V=0:U=U-1*(U>1):T=T-15:GOTO 50 210 V=V+1:IF V<80 THEN GOTO 60 220 V=0:IF U>4 THEN GOTO 60 230 SCROLL 0:LOCATE X,22:PRINT CHR$(3,LEFT,DOWN,3); 240 FOR I=0 TO 9:BEEP 37-I*4:WAIT 1:NEXT 250 SCROLL 2:U=U+1:GOTO 50 260 LOCATE 12,10:PRINT "GAME OVER":BEEP 200,60:CLK 270 IF INKEY()=SPACE THEN GOTO 20 ELSE CONT
なんですかこのもの凄いゲームは。ワンラインからの進化がこれほどとは！ すごいスピード感で、演出もむちゃくちゃカッコいい！！ 小惑星帯の通過とか、星の軌跡が一瞬だけ出てくる演出とか……天才の技ですか。恐るべし。
