下の関数を入力してCheckUDLR(x,y,3,351)でいいかと
'(x,y)で渡した上下左右16ドット隣にBGPARTSがあるかチェックする
'BGPARTSが無かったら0 見つけたら1以上
DEF CheckUDLR( x,y, BGNO, BGPARTS )
VAR FLAG=0
IF BGGET( BGNO, x,y-16, 1)==BGPARTS THEN INC FLAG '上チェック
IF BGGET( BGNO, x,y+16, 1)==BGPARTS THEN INC FLAG '下
IF BGGET( BGNO, x-16,y, 1)==BGPARTS THEN INC FLAG '左
IF BGGET( BGNO, x+16,y, 1)==BGPARTS THEN INC FLAG '右
RETURN FLAG
END