横スクロールゲームです。星に当たらないようにリムジンを操作してください。リムジンは136点ごとに長くなっていきます。中途半端ですが1496点でクリアです。
操作はカーソルキーで上下左右に移動です。再ゲームはエンターキーです。
プログラム130行目の当たり判定がやりたかったので作りました。(90行目のところで、画面に表示されているキャラクタを変数A~Fに入れています。)
10 'STAR LIMOUSINE 20 POKE#FD*8,#F8,#F4,#88,#FC,#C6,#BB,#AB,#38,#FF,#C3,#81,#FF,#C7,#BA,#FF,#00,#07,#1B,#11,#3F,#E3,#DE,#F5,#1C 30 GSB230 40 CLS:CLV:W=1:X=3:Y=10 50 IF S%136=0 GSB170:IF W=13 WAIT90:CLS:GOTO190 60 X=X-BTN(28)*!!X+BTN(29)*(X<29-W) 70 Y=Y-BTN(30)*!!Y+BTN(31)*(Y<22) 80 COPYZ,#8CC,W:SCROLL!(S%3)*4-1 90 Z=#900+Y*32+X:COPY#8CC,Z,W:COPYZ,#800,W 100 S=S+1:LC0,23:?S;:WAIT4 110 IF S%8 R=(R+(RND(3)-1)*RND(3))%23 ELSE R=RND(23):BEEP25+R*5-W*2,40 120 LC31,R:?CHR$(#E0); 130 IF A+B+C+D+E+F=0 GOTO50 140 FOR I=0 TO 21:COPYZ,#8CC-I%2*#CC,W:BEEP90+I%3:WAIT7:NEXT 150 LC 12,11:?"GAME OVER":CLK 160 GSB230:IF INKEY()=10 RUN ELSE COPY#E0*8,#C*8,8:CONT 170 W=W+1:FORI=0TO15:BEEP20-I:WAIT1:NEXT 180 POKE#800+W-2,#FE,#FD:POKE#800,#FF:RTN 190 I=I+1:COPY#E1*8,#E0*8-I%2*1696,8:LC14,10:?"GOAL!" 200 R=RND(736):POKE#900+R,#E1*!(I/15%20):GOTO190 230 POKE#E0*8,#08,#18,#FF,#7E,#3C,#7E,#66,#81:RTN
世界観がメルヘンですごくかわいらしいです。リムジンが伸びていくのも、星々の間で乗客を乗せていっているような感じがして素敵ですね。ゲームも面白い! 縦方向にも横方向にも隙間を通せるかどうか、集中を張り巡らせるのが楽しいです。特に後ろ側に引っかからないよう、注意が必要ですね。