星空＆流れ星/Kidspod;

2017/08/17 15:46:37

GOOD!7
PLAY!7
VIEW1748

: tomo

星空＆流れ星

星空を眺めるだけの環境プログラムです。
流れ星が出たら願いをかけよう。

地上の街並みと、星および流れ星の位置は毎回異なります。
Ichigojamのボタンを押すと、何かが起きる隠し機能付き。

【プログラム説明】
20,30　　星のパターン
40～110　流れ星の軌跡パターン

120　　　星空の初期描画
130～180 地上街並みの初期描画

190 　　　星の瞬き処理
200～240　流れ星処理

10 'ﾎｼｿﾞﾗV2.0.1 TOMO(2017/8)
20 POKE#F0*8,0,0,0,0,2,0,0,0
30 POKE#F2*8,0,0,0,16,56,16,0,0
40 POKE#F3*8,255,0,0,0,0,0,0,0
50 POKE#F4*8,0,255,0,0,0,0,0,0
60 POKE#F5*8,0,0,255,0,0,0,0,0
70 POKE#F6*8,0,0,0,255,0,0,0,0
80 POKE#F7*8,0,0,0,0,255,0,0,0
90 POKE#F8*8,0,0,0,0,0,255,0,0
100 POKE#F9*8,0,0,0,0,0,0,255,0
110 POKE#FA*8,0,0,0,0,0,0,0,255
120 CLS:FORI=0TO10:LCRND(32),RND(19):?CHR$(#F0):NEXT
130 LET[0],#01,#85,#8A,#8C,#8D,#8E,#84,#84,#88,0,#84,#88
140 FORX=0TO30:LCX,23:?CHR$(#F3);:LC X,22:?CHR$([RND(7)])
150 LCX,21:FORR=0TO5:IFSCR(X,22)=[R]IF!RND(3)?CHR$([R+6])
160 NEXT:LCX,20:IFSCR(X,21)=#84IF!RND(4)?CHR$(#84):LCX,21:?CHR$(#85)
170 IFSCR(X,21)=#88IF!RND(4)?CHR$(#88):LCX,21:?CHR$(#8A)
180 NEXT
190 @M:X=RND(32):Y=RND(19):IFSCR(X,Y)|BTN()LCX,Y:?CHR$(0,#1C);:WAIT9:IFRND(30)?CHR$(#F0):ELSE?CHR$(#F2)
200 IFRND(999)GOTO@M
210 A=RND(32):B=RND(15):E=RND(32):S=1:IFA>ES=-1
220 FORI=0TO1:Y=B:C=0:FORX=ATOESTEPS:LCX,Y:IFI?CHR$(0);:ELSE?CHR$(#F3+C)
230 C=C+1:IFC>7C=0:Y=Y+1
240 NEXT:NEXT:?CHR$(#A5):GOTO@M

: Kidspod運営チーム2017/08/18 16:53:38
これは素敵なプログラムですね。星の瞬きを眺めているだけでも面白いですし、流れ星が出てくるとうれしくなります。隠し機能もいいですね！