いわゆるスカッシュ

IchigoJam BASIC 版にもあるいわゆるスカッシュを

PanCake で作ってみました。

MSX 版も存在し、この MSX 版に似せてあります。

プログラム | MSX JAPAN▉

実行すると PanCake 画面になりゲーム開始。

左右のカーソルキーで操作します。

IchigoJam 版と異なるのは、

押しっぱなしでも正常に動作する事です。

また、当てると通常は1点加わりますが、

これが複数点になる裏技があります。

落としてしまうとゲーム終了。

スコア表示のため、画面はそのままにしています。

スペースキーで IchigoJam 画面へ戻ります。

さすがに PanCake の通常コマンドでは

IchigoJam BASIC が容量不足になってしまうため、

バイナリーコマンドを使用しています。

10 'PanCake ｲﾜﾕﾙ ｽｶｯｼｭ
15 IF VER()>11000 UART 1
20 VIDEO 0:?CHR$(128,4,5,1) 
30 ?CHR$(128,5,7,0,#A6)
40 ?CHR$(128,6,8,0,0,1)
50 ?CHR$(128,5,7,1,#A6)
60 ?CHR$(128,6,8,1,7,1)
70 ?CHR$(128,5,7,2,#A6)
80 ?CHR$(128,6,8,2,14,1)
90 ?CHR$(128,5,7,3,#59)
100 ?CHR$(128,5,7,4,#9B)
110 ?CHR$(128,4,6,#1B)
120 S=0:X=RND(72):Y=0:N=1:P=40
130 IF Y<40 M=1 ELSE M=-1
140 ?CHR$(128,6,8,3,X,Y)
150 ?CHR$(128,6,8,4,P,40)
160 WAIT 5
170 IF X+M<0 OR X+M>71 M=-M
180 IF Y+N<0 N=1
190 IF Y+N>44 GOTO 300
200 IF Y+N<35 OR Y+N>45 GOTO 260
210 IF X-P<-6 OR X-P>6 GOTO 260
220 S=S+1:N=-1
230 ?CHR$(128,5,7,0,#A6+S/100)
240 ?CHR$(128,5,7,1,#A6+S%100/10)
250 ?CHR$(128,5,7,2,#A6+S%10)
260 X=X+M:Y=Y+N
270 P=P-BTN(LEFT)*2+BTN(RIGHT)*2
280 P=(P+72)%72
290 GOTO 140
300 IF !BTN(SPACE) GOTO 300
310 ?CHR$(128,4,6,#FF)
320 ?CHR$(128,4,5,0):VIDEO 1

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/618

MicJack ダウンロード ?"MJ GKP 618

PanCakeプチコン３号Edition 版

一回り大きいため、難易度は通常版より優しくなっています。

10 'ﾌﾟﾁｺﾝ3ｺﾞｳ ｲﾜﾕﾙ ｽｶｯｼｭ
15 IF VER()>11000 UART 1
20 VIDEO 0:?CHR$(128,4,5,1) 
30 ?CHR$(128,5,7,0,#A6)
40 ?CHR$(128,6,8,0,0,1)
50 ?CHR$(128,5,7,1,#A6)
60 ?CHR$(128,6,8,1,7,1)
70 ?CHR$(128,5,7,2,#A6)
80 ?CHR$(128,6,8,2,14,1)
90 ?CHR$(128,5,7,3,#37)
100 ?CHR$(128,5,7,4,#9B)
110 ?CHR$(128,4,6,#1B)
120 S=0:X=RND(72):Y=0:N=1:P=40
130 IF Y<40 M=1 ELSE M=-1
140 ?CHR$(128,6,8,3,X,Y)
150 ?CHR$(128,6,8,4,P,40)
160 WAIT 5
170 IF X+M<0 OR X+M>71 M=-M
180 IF Y+N<0 N=1
190 IF Y+N>45 GOTO 300
200 IF Y+N<35 OR Y+N>45 GOTO 260
210 IF X-P<-6 OR X-P>6 GOTO 260
220 S=S+1:N=-1
230 ?CHR$(128,5,7,0,#A6+S/100)
240 ?CHR$(128,5,7,1,#A6+S%100/10)
250 ?CHR$(128,5,7,2,#A6+S%10)
260 X=X+M:Y=Y+N
270 P=P-BTN(LEFT)*2+BTN(RIGHT)*2
280 P=(P+72)%72
290 GOTO 140
300 IF !BTN(SPACE) GOTO 300
310 ?CHR$(128,4,6,#FF)
320 ?CHR$(128,4,5,0):VIDEO 1

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/631

MicJack ダウンロード ?"MJ GKP 631

SmileBoom、プチコン３号は株式会社スマイルブームの登録商標です。

PanCake プチコン３号Edition に組み込まれている
「プチコン３号」のキャラクターおよび背景画像は

株式会社スマイルブームと PCN との
ライセンス契約に基づいて提供されています。

イチゴジャムレシピは株式会社スマイルブームからキャラクター等について、
掲載の確認・了承をいただいています。

CakeRes✕レトロゲームズ版

IchigoCake の拡張コマンドに変更しています。

オリジナルに合わせた大きさのボールにしていますが、

90 PC.SCREATE 3,#02 に変更してパックマンをボールにしても面白いです。(一回り大きくなります)

10 'ResXﾚﾄﾛ ｲﾜﾕﾙ ｽｶｯｼｭ
15 POKE #1E02,0:'1.3.2 bug
20 UART 1:VIDEO 0:PC.VIDEO 1
30 PC.SCREATE 0,#A6
40 PC.SMOVE 0,0,1
50 PC.SCREATE 1,#A6
60 PC.SMOVE 1,7,1
70 PC.SCREATE 2,#A6
80 PC.SMOVE 2,14,1
90 PC.SCREATE 3,#38
100 PC.SCREATE 4,#9B
110 PC.SSTART #1B
120 S=0:X=RND(72):Y=0:N=1:P=40
130 IF Y<40 M=1 ELSE M=-1
140 PC.SMOVE 3,X,Y
150 PC.SMOVE 4,P,40
160 WAIT 5
170 IF X+M<0 OR X+M>71 M=-M
180 IF Y+N<0 N=1
190 IF Y+N>45 GOTO 300
200 IF Y+N<35 OR Y+N>45 GOTO 260
210 IF X-P<-6 OR X-P>6 GOTO 260
220 S=S+1:N=-1
230 PC.SCREATE 0,#A6+S/100
240 PC.SCREATE 1,#A6+S%100/10
250 PC.SCREATE 2,#A6+S%10
260 X=X+M:Y=Y+N
270 P=P-BTN(28)*2+BTN(29)*2
280 P=(P+72)%72
290 GOTO 140
300 IF !BTN(32) CONT
310 PC.SSTART #FF
320 PC.VIDEO 0:VIDEO 1

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/819

MicJack ダウンロード ?"MJ GKP 819