イチゴガリイチゴガリ2に続く、イチゴガリシリーズです。
イチゴだけを30個とるゲームです。
よく似たラズベリーは取らないようにしましょう。


左がイチゴ、右がPOKEで描いたラズベリー

ラズベリーをとるとゲームオーバーです。
わかりにくいので気を付けましょう。

またIchigoJam1周年記念のIchigoJamの歌をアレンジしたものを、PanCakeの音だけつなげて演奏しています。
じっくり遊んでください。

プログラム バージョン1.2b13 ※赤文字はAltキーで入力

1 ?"PC MUSIC SCORE 00 01 60 $AR8AR8>C2<AR8AR8>C2<AR8AR8A8>C~~~<R~~"
10 CLS:CLV:X=12:Y=15:T=0:P=0:POKE #700,#04,#3E,#67,#52,#AA,#96,#4C,#30
20 LC0,0:?"TIME:";T:LC17,0:?"POINT:";P:I=0:GOSUB 110:CLT
30 LCX,Y:?"ì":LC5,0:?T:LC23,0:?P
40 IF TICK()/60>T T=T+1
50 K=INKEY():IF K=0 GOTO 90 ELSE LCX,Y:?" "
60 X=X-(K=28)+(K=29):Y=Y-(K=30)+(K=31)
70 IF X=-1 X=25 ELSE IF X=26 X=0
71 IF Y=-1 Y=20 ELSE IF Y=21 Y=0
80 IF SCR(X,Y)=255 P=P+1
81 IF SCR(X,Y)=224 LC5,10:?"GAME OVER":END
90 IF P=30 LC5,10:?"GAME CLEAR!":END
100 GOTO 30
110 A=RND(25):B=RND(19)+1
120 IF (SCR(A,B)!=0)+((A=X)*(B=Y)) GOTO 110
130 LCA,B:?"V":I=I+1
140 IF (I<30) GOTO 110 ELSE I=0
150 A=RND(25):B=RND(19)+1
160 IF (SCR(A,B)!=0)+((A=X)*(B=Y)) GOTO 150
170 LCA,B:?"0":I=I+1
180 IF (I<5) GOTO 150
190 RETURN

地中脱出ゲームも是非どうぞ!


 
コメント
コメントする