卒業★HSP初質P14★おめでとう
>>596
コレやるから
そう怒らんといてくれ。
screen 0,,,1:repeat 16:rnd x.cnt,576:rnd y.cnt,416:f.cnt=64:rnd fv.cnt,2:fv.cnt=fv.cnt*2-1:loop
*main:redraw 1:redraw 0:color 255,255,255:boxf:repeat 16:rnd t,20:if t<1{rnd xv.cnt,9:xv.cnt-=4
rnd yv.cnt,9:yv.cnt-=4}rnd t,20:if (t<1)|(f.cnt<20)|(fv.cnt>108) { fv.cnt=-fv.cnt }:x.cnt+=xv.cnt
y.cnt+=yv.cnt:f.cnt+=fv.cnt:if x.cnt<0 { x.cnt=0 } else{if x.cnt>(640-f.cnt) { x.cnt=640-f.cnt}}
if y.cnt<0 { y.cnt=0 } else{if y.cnt>(480-f.cnt) { y.cnt=480-f.cnt}}:str a:poke a,0,cnt+65
font "ＭＳ ゴシック",f.cnt:color : pos x.cnt,y.cnt:mes a:loop:await 33:goto *main
コレやるから
そう怒らんといてくれ。
screen 0,,,1:repeat 16:rnd x.cnt,576:rnd y.cnt,416:f.cnt=64:rnd fv.cnt,2:fv.cnt=fv.cnt*2-1:loop
*main:redraw 1:redraw 0:color 255,255,255:boxf:repeat 16:rnd t,20:if t<1{rnd xv.cnt,9:xv.cnt-=4
rnd yv.cnt,9:yv.cnt-=4}rnd t,20:if (t<1)|(f.cnt<20)|(fv.cnt>108) { fv.cnt=-fv.cnt }:x.cnt+=xv.cnt
y.cnt+=yv.cnt:f.cnt+=fv.cnt:if x.cnt<0 { x.cnt=0 } else{if x.cnt>(640-f.cnt) { x.cnt=640-f.cnt}}
if y.cnt<0 { y.cnt=0 } else{if y.cnt>(480-f.cnt) { y.cnt=480-f.cnt}}:str a:poke a,0,cnt+65
font "ＭＳ ゴシック",f.cnt:color : pos x.cnt,y.cnt:mes a:loop:await 33:goto *main
|
|
|