Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2015/10/15 10:25:03

MixJuice GET URL : kidspod.club/mj/35

走れ大逆走

ダンブンとゲーム作り
PanCake版走れ大逆走ゲームです。
PanCakeを使って遊んじゃおう!
*このプログラムはIchigoJam1.0.1とPanCake1.0で動作を確認しています。

  • 1
  • 2
  • 3
  • 1
  • 2
  • 3

SOURCE CODE

1 P=128
2 ?CHR$(P,3,13):?CHR$(P,4,6,2)
3 ?CHR$(P,5,7,0,16)
4 ?CHR$(P,6,8,0,48,36)
5 ?CHR$(P,5,7,1,15)
6 ?CHR$(P,6,8,1,25,0)
7 ?CHR$(P,5,7,2,166)
8 ?CHR$(P,6,8,2,0,0)
9 ?CHR$(P,5,7,3,166)
10 ?CHR$(P,6,8,3,8,0)
11 ?CHR$(P,24,11,0,1,48,254,84,80,84,80,84,80,84,80,84,82,80,82,80,71,85,80,255)
12 ?CHR$(P,40,11,1,1,50,254,48,63,48,63,48,63,48,63,43,63,43,63,43,63,43,63,41,63,41,63,41,63,41,63,43,63,43,63,43,63,43,63,255)
13 ?CHR$(P,24,11,3,1,51,254,103,111,103,111,103,111,103,111,103,101,100,101,100,96,105,103,255)
30 S=0:Y=45:Z=2:L=25:X=1:B=0
40 IF B>Y A=RND(2):B=0
50 K=INKEY()
70 IF (K=28)&(X>0)X=X-1:?CHR$(P,11,11,2,1,2,71,73,71,73,255)
80 IF (K=29)&(X<1)X=X+1:?CHR$(P,11,11,2,1,2,71,73,71,73,255)
90 ?CHR$(P,6,8,0,L+23*X,36)
100 IF B<45 ?CHR$(P,6,8,1,L+23*A,B):B=B+Z
110 IF(X=A)&(B>=28)?CHR$(P,4,12,0):?CHR$(P,11,11,2,1,48,52,63,52,253,255):WAIT20:END
120 ?CHR$(P,5,7,2,(S/10)/10+166)
130 ?CHR$(P,5,7,3,(S/10)%10+166)
140 S=S+1:GOTO 40

COMMENT