伍作目　おにぎり叩き

#define c mes
#define d color
#define f if
#define s pos
t=100:q=255:r=640:buffer 2:buffer 3:chgdisp 3:bgscr 1,r,480:gsel 3:cls 4:gsel 2:cls 4
s 0,0:d q,q,q:c "　 ／■＼\n （´∀｀∩\n （つ　　丿\n　（　ヽノ\n　し（＿）":s t,0
c " 　＿＿\n |＼ ＿＼\n ＼|＿＿|\n （´∀｀∩\n （つ　　丿\n （　ヽノ\n し（＿）"
gsel 1:m=10:dim b,m,10:*ma:randomize:rnd u,m+120+(h*h*2):a=u:f (u>0)&(u<m){
f b.a.4=0{randomize:rnd henx,500:rnd heny,340:rnd w,2:rnd v,6:f v=0{v=2} else{v=1}
b.a.0=henx+t:b.a.1=heny+t:b.a.2=0:b.a.3=0:b.a.4=v:b.a.5=w+1:b.a.6=0:b.a.7=0:b.a.8=1
b.a.9=t}}:redraw 0:gsel 3:d 0,0,0:boxf 0,0,r,480:gsel 1:d 0,0,0:boxf 0,0,r,480:a=1
repeat m-1:f b.a.4>0{x=b.a.0:y=b.a.1:gsel 3:d a+(t*((b.a.4)-1))
boxf x+9,y+15,x+b.a.2,y+b.a.3:gsel 1:s x,y:gmode 2:gcopy 2,(t*(b.a.4-1)),0,b.a.2,b.a.3
d 99:f b.a.5=1{line x+9,y+b.a.3,x+90,y+b.a.3}:f b.a.5=2{line x+b.a.2,y,x+b.a.2,y+t}
f b.a.6>0{s x+80,y+10:d q,q,q:f b.a.6=1{c "ﾜｼｮｰｲ"}:f b.a.6=2{c "ﾋｬｺｰｲ"}}}:a++:loop:l++
f l>q{h++ : l=0}:s 0,0:d ,q:c " time "+l:c " level "+h:c " point "+i:c "　誤殺 "+n
c " esc "+p:redraw 1:f h=11{s t,t:font "MS　ｺﾞｼｯｸ",99:k=i-(n*3):d q:c "score "+k
f k<50{c "ﾜｼｮｰｲ(敗北)"}:f k>=50{c "ﾋｬｺｰｲ(ｸﾘｱｰ)"}:wait 200:end}:stick j:f j=256{gsel 3
pget mousex,mousey:f (rval>0)&(rval<t){b.rval.4=0 : i++}:f rval>t{o=rval-t : b.o.4=0
n++}:gsel 1}:a=1:repeat m-1:f b.a.5=1{f b.a.9>=0{b.a.9--}:f b.a.9<=0{b.a.2=90
f b.a.8=1{b.a.1-=1+(h/2):b.a.3+=1+(h/2):f b.a.3>=t{b.a.8=2:b.a.6=b.a.4}}:f b.a.8=2{
b.a.1+=1+(h/2):b.a.3-=1+(h/2):f b.a.3<=10{f b.a.4=1{p++}:b.a.4=0}}}}:f b.a.5=2{
f b.a.9>=0{b.a.9--}:f b.a.9<=0{b.a.3=110:f b.a.8=1{b.a.0-=1+(h/2):b.a.2+=1+(h/2)
f b.a.2>=t{b.a.8=2:b.a.6=b.a.4}}:f b.a.8=2{b.a.0+=1+(h/2):b.a.2-=1+(h/2):f b.a.2<=10{
f b.a.4=1{p++}:b.a.4=0}}}}:a++:loop:await:goto *ma