;スコア初期化されてないみたいなので
;修正。
*init:screen 0,640,280,1:title "( ´_ゝ`) VS ＼( `д´)/":dim tx,64
dim ty,64:dim txv,64:dim tyv,64:dim tyvy,64:dim dx,16
dim dy,16:x=20:y=130:endf=0:dim cx,64:dim cy,64:dim cxv,64
dim cyv,64:repeat 64:tx.cnt=-100:cx.cnt=-1:loop
repeat 16:scx.cnt=640:loop:sc=0
*main :color:stick key,79,1:xv=(key&4>0)-(key&1):yv=(key&8>0)-(key&2>0)
x+=xv*5:y+=yv*5:if x<0{x=0 } else{if x>560 { x=560}}if y<0 { y=0
}else{if y>260{y=260}}:pos x,y:mes "( ´_ゝ`)":if (key&64>0)&(i<0){
dx.dp=x+100:dy.dp=y:dp=dp+1&15:i=5}:i--:repeat 16:if dx.cnt=0{continue}
pos dx.cnt,dy.cnt:mes "ﾌｰﾝ":dx.cnt+=10:if dx.cnt>640{dx.cnt=0}:loop
if j&7<1{tx.tp=640:rnd ty.tp,260:rnd txv.tp,5:txv.tp+=sc/25+2
rnd tyv.tp,6:tyv.tp+=3:tyvy.tp=ty.tp:tp=tp+1&63}:repeat 64
pos tx.cnt,ty.cnt:mes "＼( `д´)/":tx.cnt-=txv.cnt
tyv.cnt+=(ty.cnt<tyvy.cnt)-(ty.cnt>tyvy.cnt):ty.cnt+=tyv.cnt
k=cnt:repeat 16:if dx.cnt=0{continue} x1=tx.k-dx.cnt:y1=ty.k-dy.cnt
if (-100<x1)&(x1<30)&(-20<y1)&(y1<20){repeat 6:cx.cp=tx.k+15
cy.cp=ty.k+10:rnd cxv.cp,15:cxv.cp-=7:rnd cyv.cp,10:cyv.cp-=6
cp=cp+1&63:loop:sc++:dx.cnt=0:tx.k=-100}:loop:x1=tx.cnt-x:y1=ty.cnt-y
if (-90<x1)&(x1<80)&(-20<y1)&(y1<20){endf++}:loop:repeat 64
t=249,250,252,255:a=cnt+j&3:palcolor t.a
boxf cx.cnt,cy.cnt,cx.cnt+1,cy.cnt+1:cx.cnt+=cxv.cnt:cy.cnt+=cyv.cnt
cyv.cnt++:loop:palcolor 9:if j&15<1 { scx.scp=-100:rnd scy.scp,260
scp=scp+1&15}repeat 16:pos scx.cnt,scy.cnt:mes "得点："+sc
scx.cnt+=sc/25+5:loop:j++:redraw 1:redraw 0:if endf{ dialog "あぼーん"
goto *init}palcolor 248:boxf:await 30:goto *main