STICK OUT x,y IF BGGET(0,mx+x,my+y,1)!=64 THEN 　mx=mx+x:my=my-y END でとりあえず壁に引っかかると思います。 壁にめり込んだ分押し戻すようなやり方が理想なのですが、とりあえず上記がお手軽にできると思います。