・まず二次元配列を宣言 VAR MAP[幅,高さ] これが壁の位置を入れる所になります。 ・壁の位置を1、そうでないところを0とする FOR Y=0 TO 高さ-1 FOR X=0 TO 幅-1 ここにMAP[X,Y]=1とするとその時のX,Y座標は壁になる NEXT NEXT ・キャラクターの位置を変数に入れる ここではCXとCYとする ・CXとCYをDIV 16して、上下左右の情報を得る X=CX DIV 16 Y=CY DIV 16 上=MAP[X,Y-1] 下=MAP[X,Y+1] 右=MAP[X+1,Y] 左=MAP[X+1,Y] ・この情報を元に移動を制限する WHILE 左==1 CX=CX+1 X=CX DIV 16 左=MAP[X+1,Y] WEND これを全ての方向に行う