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

2015/07/13 17:00:59

MixJuice GET URL : kidspod.club/mj/21

yrm

yrm

Balloon Night

It is a part time job of Midnight.
It is endless.

Thank you Iwata.

---
風船を集める真夜中のバイトをします。
終わりはありません。

ご冥福をお祈りします。

  • 1
  • 1

SOURCE CODE

10 CLS
15 PLAY"T260$GRRA>C<GRRF2F2FG2F"
20 B=10:V=-2:A=B:S=0
30 LC 28,A:?" ";
40 LC 28,A-1:?" ";
41 LC 0,22:?"          ";
50 SCROLL 1
51 N=RND(2)
52 IF N=0 GOTO 57
53 Y=RND(22-1)
54 LC 0,Y:?CHR$(#E8)
55 LC 0,Y+1:?CHR$(#F2)
56 N=N-1:GOTO 52
57 C=VPEEK(28,B)
58 D=VPEEK(28,B-1)
59 IF (C=#E8)+(D=#E8) S=S+1
60 LC 28,B:?CHR$(#FD);
70 LC 28,B-1:?CHR$(#E8);
71 LC 0,22:?"SCORE:";S;
80 IF INKEY()=32 V=-2
90 V=V+1
100 A=B:B=B+V
110 IF 23<B END
120 WAIT15:GOTO 30

COMMENT