公式にある命令で一発ではできないがBGgetを使うことで擬似的に実装できる。 `sample while 1 b=button y=y+(b==1)-(b==2) x=x+(b==4)-(b==8) if bgget(r,x,y,1)==1 then beep spofs n,x,y wend end