spset 0,tmpID 'tmpIDはspdefの番号 sphome 0,0,0 '左上 l=0 'BGのレイヤ while 1 b=button() spofs 0 out sx,sy if b and #left then dx=-1 if b and #right then dx=1 if bgget(L,dx+8,dy+17,1) then break '落とし穴に落ちた spofs 0,sx+dx,sy vsync wend