05/01/15 19:31:02 dEKQpp4Z
>>35を改造してみました。
*saisho
wx=200:wy=200
screen 0,wx,wy,0:cls
x=wx/2:y=wy/2:ix=0:iy=1:tensu=0
*main
x+=ix:y+=iy
pget x,y
if rval=0:goto *owari
if (x<0)|(x>wx):goto *owari
if (y<0)|(y>wy):goto *owari
pset x,y
stick key
if key ! 0 : gosub *check
wait 1
goto *main
*check
if key=1:ix=-1:iy=0
if key=2:iy=-1:ix=0
if key=4:ix=1:iy=0
if key=8:iy=1:ix=0
tensu++
return
*owari
mes "GAME OVER スコア"+tensu+"点"
button "RESTART",*saisho
stop