雨

randomize
buffer 1
color 75,75,255 : boxf
color 125,125,255 : boxf 0,0,62,22 : boxf 2,26,64,48 : boxf 0,48,62,70
color 150,150,255 : circle 2,26,64,48 : circle 0,48,62,70
screen 0
title "雨"
dim x,10 : dim y,10 : dim a,10 : dim b,10 : dim c,10 : dim flag,10
x=rnd(640),rnd(640),rnd(640),rnd(640),rnd(640),rnd(640),rnd(640),rnd(640),rnd(640),rnd(640)
y=rnd(480),rnd(480),rnd(480),rnd(480),rnd(480),rnd(480),rnd(480),rnd(480),rnd(480),rnd(480)
c=255,255,255,255,255,255,255,255,255,255
top=1 : titc=255 : tc=-1
objimage 1,0,0,0,24,0,48
pos 0,0
button "観賞",*no0
;button "クリック",*no1
font "",200
*main
redraw 0
color 100,100,255;←赤緑青
boxf
repeat 10
gosub *en
loop
if top=1 {
color titc,titc,255 : pos 200,100 : mes "雨"
if titc>250 : tc=-1
if titc<200 : tc=1
titc+tc
}
redraw
await 10
goto *main
*en
if cn=0 {
flag(cnt)=1
cn=59
}
if flag(cnt)=1 {
color c(cnt),c(cnt),255;←青
circle x(cnt)-a(cnt),y(cnt)-b(cnt),x(cnt)+a(cnt),y(cnt)+b(cnt),0
a(cnt)+2 : b(cnt)+2
c(cnt)-3
if c(cnt)<100 {;←赤緑
c(cnt)=255 : x(cnt)=rnd(640) : y(cnt)=rnd(480) : a(cnt)=0 : b(cnt)=0 : flag(cnt)=0
}
}
if cn>0 :cn-
return
*no0
clrobj
top=0
pos 0,0
button "戻る",*retu
goto *main
*retu
clrobj
top=1
pos 0,0
button "観賞",*no0
;button "クリック",*no1
goto *main