下の関数を入力して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