プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/03/18 16:11:14

MixJuice GET URL : kidspod.club/mj/170

パスサッカーPancake版

矢印↑↓→←で上のプレイヤー、1、2キーで下のプレイヤーを左右に動かしてボールを右のゴールに運んで得点を狙ってください。
パスミスするとゲームオーバーです。エンターを押して終了してください。
ゲームオーバーの後はエンターを押すとPancake画面からIchigojam画面に切り替えます。
上のプレイヤーで左右に移動しながら蹴るとボールが変化します。

  • 1
  • 1

SOURCE CODE

10 'FOOTBALL
20 X=0:Y=1:A=0:B=2:C=2:D=2:E=0:M=0:N=7:W=6:V=4:S=0:O=128:Z=10
30 UART1:VIDEO0:?CHR$(O,3,13,O,4,5,1,O,4,6,1,O,6,8,4,0,0,O,6,8,5,7,0)
35 FORI=0TO1:?CHR$(O,6,8,6+I,75,22+I*8,O,5,7,6+I,#4A):NEXT
40 @IN:K=INKEY():IFW<1W=4
50 IFV<1V=3
80 X=X+(X<14)*(K=29)-(X>0)*(K=28):Y=Y+(Y<4)*(K=31)-(Y>1)*(K=30)
90 M=M+(M<14)*(K=50)-(M>0)*(K=49)
100 IFD>0IFA/5+C/5=MANDB/4+D/4+1=N D=-D:?CHR$(O,11,9,3,5,4,3,2,255,3,255)
110 IFD<0IFA/5+C/5=XANDB/4+D/4=Y D=-D:W=W+((K=28)-(K=29)):V=V+((K=30)-(K=31)):?CHR$(O,11,9,5,9,5,2,255,3,255)
120 IFE%W=0A=A+C
130 IFE%V=0B=B+D
135 IFE%Z=0:?CHR$(O,11,9,0,255,1,255,2,255,3,255)
140 IFA>75A=0:GSB@SC:B=RND(3)*4+12
150 IFB>28ORB<0:?CHR$(O,11,9,5,0,5,3,2,255,3,255):INPUTK:?"PC VIDEO 0":VIDEO1:?CHR$(O,11,9,0,255,1,255,2,255,3,255):END
160 @PR:?CHR$(O,6,8,1,X*5,Y*4+10,O,5,7,1,11)
170 ?CHR$(O,6,8,2,M*5,N*4+10,O,5,7,2,5)
180 ?CHR$(O,6,8,3,A,B+10,O,5,7,3,89)
190 E=E+1:GOTO@IN
200 @SC:IFB>8ANDB<24:S=S+1:?CHR$(O,5,7,4,#A6+S/10,O,5,7,5,#A6+S%10):?CHR$(O,11,9,5,0,4,7,2,#FF,3,#FF)
210 RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/04/18 19:59:00

PanCakeのグラフィックを使ったことでより楽しい作品になりましたね。やっぱりふたりのキャラクタをひとりで操作するのは難しい!