buffer 2 : mes "バレンタイン\nデー"
dim vx,10
ddim vy,10
repeat 10
vx(cnt)=rnd(547)
vy(cnt)=(-48*(cnt))
loop
gsel 0
font "",16,1
spd=3.0
*メイン
redraw 0
color 255,255,255 : boxf
color : pos 5,5
mes ""+vcnt+" バレンタイン"
spdcnt+
if spdcnt=50 : spd+=0.01 : spdcnt=0
stick key,5
if key&1 : x-=(spd*2) : if x<0 : x=0
if key&4 : x+=(spd*2) : if x>614 : x=614
pos x,440 : gcopy 2,0,17,26,17
repeat 10
vy(cnt)+=spd
if vy(cnt)>480 : vx(cnt)=rnd(547) : vy(cnt)-=480 : vcnt+
pos vx(cnt),vy(cnt)
gcopy 2,0,0,93,17
if (vy(cnt)>424)and(vy(cnt)<456)and(x+24>vx(cnt))and(x<vx(cnt)+90) : font "",80 : pos 90,170 : mes "GAME OVER" : redraw 1 : stop
loop
redraw 1
await 1
goto *メイン
GENKI君が投稿した事に敬意を表して。