向うが切られたから、こっちに書き込んだんですね。

（やれやれ・・・。）

DrawTextW 等のワイド文字描画関数を使用すればバイナリ化された文字列も描画可能です。

#include "gdi32.as"
#include "kernel32.as"

txtw = 0x596e8208,0x8b6f7ffb,0x0000 // エキサイト翻訳という文字列を中国語に翻訳したものをバイナリ化

font msGOTHIC,32,1 // フォントによって描画できない文字コードが存在するので注意
color 255
lstrlenW varptr(txtw) // kernel32
TextOutW hdc,0,0,varptr(txtw),stat // gdi32
redraw

> 中国語が表示できますか。表示できれば、方法を教えてください。中国語を入れたら、文字化けになっていますから。

一度リッチエディットコントロールを通す事によって楽にバイナリ型へ変換できます。

;----------------------------------------------------------

#include "user32.as"
#include "kernel32.as"
#include "hspext.as"
#define txt_appname "UnicodeConverter" // タイトルテキスト
// リッチエディットコントロールを配置
#const style 0x50200004 /*WS_CHILD|WS_VISIBLE|ES_MULTILINE|WS_VSCROLL|WS_BORDER*/
LoadLibrary"Riched20.dll":plib=stat
CreateWindowExW 0,"RichEdit20W",0,style,5,0,635,460,hwnd,0,hinstance,0
hwnd_editw=stat
// インターフェイスの操作
#define COLOR_ACTIVECAPTION	$00000002
syscolor COLOR_ACTIVECAPTION:boxf 0,460,640,480
title txt_appname
color
line -1,460,640,460
font "メイリオ",10:pos 5,463:color
mes "Unicode文字列をコピペしてF5 を押すと、変数代入用のテキストを生成してクリップボードに送ります"

// ウィンドウメッセージなどの設定
onexit *exit
onkey gosub*key
SetFocus hwnd_editw
stop

*key
	// f5 を押すと 配列代入用のテキストを生成してクリップボードに送る。
	if(wparam==116){
		GetWindowTextLengthW hwnd_editw
		len=stat+1:bufsize=len*3:sdim txtw,bufsize
		GetWindowTextW hwnd_editw,varptr(txtw),len	
		txt="":push=""
		repeat bufsize
			c=peek(txtw,cnt)
			push=strf("%02x",c)+push
			if(cnt\4)==3:txt+="0x"+push+",":push=""
			if(c==0) and (b==0){
				if(push!=""):txt+="0x"+push
				eof=strlen(txt)-1
				if(peek(txt,eof)==','):poke txt,eof,0
				break
			}
			b=c
		loop
		clipset txt
		dialog txt+"\n\nテキストをクリップボードへ送りました。",,txt_appname
		SetFocus hwnd_editw
	}
	return


*exit
	DestroyWindow hwnd_editw
	FreeLibrary plib // リッチエディットを破棄する前に libraryを解放するとエラーが発生する。
	end

;----------------------------------------------------------

> 中国語が表示できますか。表示できれば、方法を教えてください。中国語を入れたら、文字化けになっていますから。

文字列として扱うのは難しいと思う。文字コードの変換とかさせるルーチンがあれば出来るのかも。決まった文句の表示なら画像データ（絵）として貼り付け・表示って方法もあるけど。

自分が作ったゲームとかも海外版Ｗｉｎでは文字化けしてるのか、ちょっと気になる。

> 誰かいますかね？
はい。
といっても、２〜３日に１回のチェックですが……

ＤＬＬとＩＮＩファイルは同じ場所。

> 誰かいますかー

いるよん

> データを取っていって、
> その上位５個を棒グラフを表示させる方法がわかりません。
バブルソートが簡単でお勧め（処理は遅いけど）。
配列並べ替え後にループで数値分だけ＊をプリントを５回繰り返す。

#データを用意
No=24,12,10,5,28,4,12,4,2,7;データ
jyun=0,1,2,3,4,5,6,7,8,9;順位
data1=0:data2=0:data3=0:data4=0;
strtmp="";

#ソート前のデータを表示
repeat length(No)
	strtmp+=str(jyun(cnt))+"="+str(No(cnt));
	if(cnt<length(No)-1){
		strtmp+=",";
	}
loop
mes "ソート前:"+strtmp;
strtmp="";

#ソート部分
repeat length(No)-1
	repeat length(No)-1-i
		data1=No(cnt);
		data2=No(cnt+1);
		data3=jyun(cnt);
		data4=jyun(cnt+1);
#比較演算子を逆向きにすれば小さい順に並ぶ
		if(data1<data2){
			No(cnt)=data2;
			No(cnt+1)=data1;
			jyun(cnt)=data4;
			jyun(cnt+1)=data3;
		}
	loop
	i++;
loop

#ソート後のデータを表示
repeat length(No)
	strtmp+=str(jyun(cnt))+"="+str(No(cnt));
	if(cnt<length(No)-1){
		strtmp+=",";
	}
loop
mes "ソート後:"+strtmp;

#順位となんちゃって棒グラフを表示
repeat 5
	strtmp=str(cnt+1)+"位 No."+str(jyun(cnt))+":";
	repeat No(cnt)
		strtmp+="*";
	loop
	mes strtmp
loop

適当に書いたので参考程度に。

> 10秒以内程度ですむような命令はないでしょうか。
HDDの性能や転送速度はわかりますか？
SATA2:300MB/s
SATA:150MB/s
PATA:133MB/s
USB2.0:60MB/s
上記転送速度は最大理論値なので、実際にはその半分程度あるかないかで
しょう。
仮に1GB(1000MB)の１つのファイルをUSB2.0で接続した外付HDDにコピーす
るのにかかる時間は、1000(MB)÷30(MB/s)＝33(秒)。
ファイルが多ければ多いほど遅くなるので、実際にはもっと時間がかかり
ます。
HSPのbcopy,fxcopyでかかる時間と、同じファイルを手動で(あるいはコマ
ンドバッチファイル)でコピーしたときの時間を比較計測してみましたか？

> スケールの反転をすることで対処してほしいとなっています。

多分
setscale objid,-1,1,-1
こう

ゲームの方を制限に合うように変えて
とりあえず目立つバグを修正


mapmax_x=30 //マップデータ横の最大
mapmax_y=23 //マップデータ縦の最大
dim map,mapmax_x,mapmax_y //マップデータ用配列確保

map(0,0)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,1)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0
map(0,2)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
map(0,3)= 0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
map(0,4)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1
map(0,5)= 1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
map(0,6)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,7)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,8)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,9)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,10)=1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,11)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,12)=0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,13)=0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,14)=0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0
map(0,15)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,16)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,17)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
map(0,18)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
map(0,19)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1
map(0,20)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1
map(0,21)=0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1
map(0,22)=0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1

winsize_x=480
winsize_y=368
screen 0,winsize_x,winsize_y,0,200,100 //メインウィンドウを初期化

mchip_size=16 //チップサイズ

mysize_x=16 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=16 //自分のｙサイズ

map_id=1 //マップチップ用のウィンドウID
screen map_id,120,120,0,50,50 //マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size //マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id //マップチップ用を選択
color 102,51,0
boxf mchip_size,0,mchip_size*2-1,mchip_size-1 //チップナンバー1
color 
boxf mchip_size*2,0,mchip_size*3-1,mchip_size-1 //チップナンバー2



gsel 0,1 //メインウィンドウを選択

mchip_name="無","ブ","扉"

x=0
y=winsize_y-mysize_y-1
vy=0.0
jump=0
//繰り返し
repeat
await 16
redraw 0

//================//
//　　ステージ　　//
//================//

repeat mapmax_y //マップチップを縦に並べる数
 pos 0,cnt*mchip_size //二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt //マップデータ縦の読み込み位置を代入
 repeat mapmax_x //マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty) //チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=2
//右矢印
if key&4:x+my_Speed
//左矢印
if key&1:x-my_Speed

//スペースキー
getkey key,32
if key=1 & jump=0{
 jump=1
 vy=-4.5
}

//ジャンプ中、落下中、共通する点は、地面に付いていない事。
if jump=1 {
 vy+=0.15
 y+=vy
}

if (mysize_y+y)>=winsize_y {//下側がウィンドウ外に出た
 jump=0:vy=0.0
}

//画面外防止

x=limit(x,0,winsize_x-mysize_x)
y=limit(y,0,winsize_y-mysize_y)

//================//
//　 当たり判定　 //
//================//

bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y {  //落下中にブロックの上に左下が接触
 jump=0:vy=0.0
   y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { //落下中にブロックの上に右下が接触
 jump=0:vy=0.0
   y = map_Dy*mchip_size-mysize_y}
  }
 }
}

//足場判定
if (winsize_y-mysize_y)>y {
map_Dy = (y+mysize_y) / mchip_size //自分の1ドット下

if jump=0  {//上昇落下中ではない
if (map( map_Lx , map_Dy ) ! 1) and (map( map_Rx , map_Dy ) ! 1) {//足場無し
  jump=1:vy=1.0
}
}

}

color 0,66,0
circle x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop


これでも本当は判定が不十分だが
ゲームによっては気付かない

> ●がブロックの上から下りることが出来ない

http://www.onionsoft.net/hsp/beta/betabbs.cgi?no=8873&reno=8872&oya=8837&mode=msgview&page=0

↑で言われた事をやってないから

> ●がジャンプ中にブロックに近づくと、スパイダーマンのように張り付いてしまう

> if (mchip_LUn=1) or (mchip_RUn=1) or (mysize_y+y-1>360) {
これじゃ横から当たってても関係なく着地判定してる

>    if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
>   }else{ //左上がブロック縦面に接触
>    if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動

上に移動中に接触してたらブロックの下側に移動とは逆に
下に移動中に接触してたらブロックの上側に移動って部分がある
コメントは入れてないから自分で探して


後修正追加が少ないんだから一々全部書き込む必要は無い
部分的に修正前修正後を抜き出して貼れば良い

すみません orz
また問題が発生しました orz
�@●がブロックの上から下りることが出来ない
�A●がジャンプ中にブロックに近づくと、スパイダーマンのように張り付いてしまう

どうすればいいですか？
お願いしますm(_ _)m

*�Aがなる原因はなんとなく理解していますが、どう直せばいいか分かりません(>_<)

//================//
//　マップチップ　//
//================//

mapmax_x=80 //マップデータ横の最大
mapmax_y=60 //マップデータ縦の最大
dim map,mapmax_x,mapmax_y //マップデータ用配列確保

map(0,0)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,1)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,2)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0
map(0,3)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0
map(0,4)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,5)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,6)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,7)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,8)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,9)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,10)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,11)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,12)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,13)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,14)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,15)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,16)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,17)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,18)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,19)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,20)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,21)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,22)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,23)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,24)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,25)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,26)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,27)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,28)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,29)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,30)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,31)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,32)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,33)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,34)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,35)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,36)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,37)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,38)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,39)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,40)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,41)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,42)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,43)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,44)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,45)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,46)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,47)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,48)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,49)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,50)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,51)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,52)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,53)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,54)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,55)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,56)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,57)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,58)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,59)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

screen 0,480,360,0,200,100 //メインウィンドウを初期化

mchip_size=6 //チップサイズ

mysize_x=15 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=15 //自分のｙサイズ


map_id=1 //マップチップ用のウィンドウID
screen map_id,120,120,0,50,50 //マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size //マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id //マップチップ用を選択
color 102,51,0
boxf 6,0,11,5 //チップナンバー1
color 
boxf 12,0,17,5 //チップナンバー2

gsel 0,1 //メインウィンドウを選択

mchip_name="無","ブ","扉"

gsel 0,1
x=0
y=360
vy=0.0
jump=0
//繰り返し
repeat
await 16
redraw 0

//================//
//　　ステージ　　//
//================//

repeat mapmax_y //マップチップを縦に並べる数
 pos 0,cnt*mchip_size //二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt //マップデータ縦の読み込み位置を代入
 repeat mapmax_x //マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty) //チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=2
//右矢印
if key&4:x+my_Speed
//左矢印
if key&1:x-my_Speed
//スペースキー
getkey key,32
if key=1 & jump=0{
 jump=1
 vy=-4.5
}

//ジャンプ中、落下中、共通する点は、地面に付いていない事。
if jump=1 {
 vy+=0.15
 y+=vy
}

//着地
if (mchip_LUn=1) or (mchip_RUn=1) or (mysize_y+y-1>360) {
 jump=0:vy=0.0
}

//下矢印
if key&8:y+my_Speed

//画面外防止
x=limit(x,0,480-mysize_x)
y=limit(y,0,360-mysize_y)

//================//
//　 当たり判定　 //
//================//

bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUn < 1 {
 if mchip_LUn = 0 {
  
 }
}

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
 
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
 
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

color 0,66,0
circle x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop

ウィンドウ一番下の座標にならないと着地と判断してないから
ブロックの上に乗る処理は既にあるんだから利用できるでしょ

ジャンプ自体を変えてみたのですが、ブロックの上からジャンプをすることが出来なくなってしまいました。(ジャンプはhttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1474517719を元に作りました)
どこがおかしいのですか？m(_ _)m

//================//
//　マップチップ　//
//================//

mapmax_x=80 //マップデータ横の最大
mapmax_y=60 //マップデータ縦の最大
dim map,mapmax_x,mapmax_y //マップデータ用配列確保

map(0,0)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,1)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,2)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0
map(0,3)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0
map(0,4)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,5)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,6)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,7)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,8)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,9)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,10)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,11)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,12)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,13)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,14)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,15)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,16)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,17)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,18)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,19)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,20)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,21)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,22)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,23)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,24)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,25)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,26)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,27)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,28)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,29)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,30)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,31)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,32)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,33)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,34)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,35)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,36)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,37)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,38)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,39)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,40)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,41)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,42)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,43)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,44)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,45)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,46)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,47)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,48)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,49)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,50)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,51)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,52)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,53)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,54)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,55)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,56)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,57)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,58)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,59)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

screen 0,480,360,0,200,100 //メインウィンドウを初期化

mchip_size=6 //チップサイズ

mysize_x=15 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=15 //自分のｙサイズ


map_id=1 //マップチップ用のウィンドウID
screen map_id,120,120,0,50,50 //マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size //マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id //マップチップ用を選択
color 102,51,0
boxf 6,0,11,5 //チップナンバー1
color 
boxf 12,0,17,5 //チップナンバー2

gsel 0,1 //メインウィンドウを選択

mchip_name="無","ブ","扉"

gsel 0,1
x=0
y=360
vy=0.0
jump=0
//繰り返し
repeat
await 16
redraw 0

//================//
//　　ステージ　　//
//================//

repeat mapmax_y //マップチップを縦に並べる数
 pos 0,cnt*mchip_size //二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt //マップデータ縦の読み込み位置を代入
 repeat mapmax_x //マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty) //チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=2
//右矢印
if key&4:x+my_Speed
//左矢印
if key&1:x-my_Speed
//スペースキー
getkey key,32
if key=1 & jump=0{
 jump=1
 vy=-4.5
}

//ジャンプ中、落下中、共通する点は、地面に付いていない事。
if jump=1{
 vy+=0.15
 y+=vy
}

//着地
if 360<mysize_y+y-1{
 jump=0:vy=0.0
}

//下矢印
if key&8:y+my_Speed

//画面外防止
x=limit(x,0,480-mysize_x)
y=limit(y,0,360-mysize_y)

//================//
//　 当たり判定　 //
//================//

bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUn < 1 {
 if mchip_LUn = 0 {
  
 }
}

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
 
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
 
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

color 0,66,0
circle x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop

何が分からないのか・・・

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下

自分の四隅にどのチップか重なってるは上ので分かるでしょ？
左下右下のマップデータ収得してるのを1ドット下を収得するようにすれば
自分の足元に何のチップが使われてるか分かるでしょ？

分からないなら
http://www.onionsoft.net/hsp/beta/betabbs.cgi?no=8853&reno=8852&oya=8837&mode=msgview&list=
URL先に書いたのも理解出来てないって事だから
もう一回ちゃんとスクリプトを読んで配列と座標の関係を
完全に理解して

後
mchip_size=6 //チップサイズ

mysize_x=20 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=20 //自分のｙサイズ

チップサイズを超える大きさは判定の修正が必要って書いてるんだが・・・

すみません orz
全然分かりません orz
どうすればいいですか？ orz


//================//
//　マップチップ　//
//================//

mapmax_x=80 //マップデータ横の最大
mapmax_y=60 //マップデータ縦の最大
dim map,mapmax_x,mapmax_y //マップデータ用配列確保

map(0,0)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,1)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,2)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0
map(0,3)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0
map(0,4)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,5)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,6)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,7)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,8)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,9)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,10)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,11)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,12)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,13)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,14)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,15)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,16)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,17)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,18)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,19)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,20)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,21)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,22)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,23)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,24)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,25)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,26)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,27)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,28)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,29)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,30)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,31)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,32)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,33)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,34)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,35)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,36)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,37)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,38)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,39)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,40)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,41)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,42)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,43)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,44)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,45)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,46)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,47)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,48)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,49)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,50)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,51)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,52)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,53)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,54)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,55)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,56)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,57)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,58)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,59)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

screen 0,480,360,0,200,100 //メインウィンドウを初期化

mchip_size=6 //チップサイズ

mysize_x=20 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=20 //自分のｙサイズ


map_id=1 //マップチップ用のウィンドウID
screen map_id,120,120,0,50,50 //マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size //マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id //マップチップ用を選択
color 102,51,0
boxf 6,0,11,5 //チップナンバー1
color 
boxf 12,0,17,5 //チップナンバー2

gsel 0,1 //メインウィンドウを選択

mchip_name="無","ブ","扉"

gsel 0,1
x=0
y=360
//繰り返し
repeat
await 16
redraw 0

//================//
//　　ステージ　　//
//================//

repeat mapmax_y //マップチップを縦に並べる数
 pos 0,cnt*mchip_size //二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt //マップデータ縦の読み込み位置を代入
 repeat mapmax_x //マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty) //チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=3
//右矢印
if key&4:x+my_Speed
//左矢印
if key&1:x-my_Speed
//上矢印
if key&16{
	if jump=0:jump=1
}
if jump{
	jump++
	if jump>=60:jump=0:else:y-=cos(6.28/122*jump)*6
}
//下矢印
if key&8:y+my_Speed

//画面外防止
x=limit(x,0,480-mysize_x)
y=limit(y,0,360-mysize_y)

//================//
//　 当たり判定　 //
//================//

bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
 
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
 
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

color 0,66,0
circle x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop

> サンプルを探しているのですが、どれも#defineを使ったサンプルしかないため、理解が出来ず、応用することが出来ません(>_<)

私が出した判定のサンプルの事
自分の四隅の判定は出来てるんだから
真下の判定もできるでしょ

> > ・重力がない
> 足場が無ければ落下処理をするようにすれば良い
> 足場があるかどうかはサンプルの判定を応用すればできる

サンプルを探しているのですが、どれも#defineを使ったサンプルしかないため、理解が出来ず、応用することが出来ません(>_<)

どうすればいいですか？m(_ _)m

> ・緑の■の動きがぎこちない
PCの処理能力を超えてるからぎこちない動きになってる
CPU使用率が50％や25％でもCPUコア一つを使い切ってたら処理落ちを起す

重い原因はマップチップを並べる所で無駄にmapmax_x*mapmax_y回リピートしてる
リピートは一画面分で良い

まず↓ここで指摘した部分を直してない
http://www.onionsoft.net/hsp/beta/betabbs.cgi?no=8841&reno=8840&oya=8837&mode=msgview&page=0

> mapmax_x=480 //マップデータ横の最大
> mapmax_y=360 //マップデータ縦の最大
これは画面のサイズじゃ無くチップを並べるためのデータの数
サンプルではマップデータ最大*チップサイズ＝画面サイズだったから
チップを並べる所でも同じ変数を利用してる

> ・横移動のときはブロック(茶色の■)をすり抜けてしまう
点で判定してるからチップサイズを超える速度は使えない（ブロックを飛び越すから）
同じ理由でチップサイズを超える大きさを自分のサイズには使えない

これを回避する方法はあるが、ゲームの方をこの制限以内に収まるように考えた方が良い
それが出来た上でどうしても必要ならどうすれば良いか、まずは自分で考えてくれ

> ・重力がない
足場が無ければ落下処理をするようにすれば良い
足場があるかどうかはサンプルの判定を応用すればできる

一応作ってみたのですが(ほとんど模写みたいなものだけど)…
・緑の■の動きがぎこちない
・横移動のときはブロック(茶色の■)をすり抜けてしまう
・重力がない

これら３つはどうすればいいのですか？

//================//
//　マップチップ　//
//================//

mapmax_x=480 //マップデータ横の最大
mapmax_y=360 //マップデータ縦の最大
dim map,mapmax_x,mapmax_y //マップデータ用配列確保

map(0,0)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,1)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,2)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0
map(0,3)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0
map(0,4)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,5)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,6)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,7)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,8)= 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,9)= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2
map(0,10)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,11)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,12)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,13)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,14)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,15)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,16)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,17)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,18)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,19)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,20)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,21)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,22)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,23)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,24)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,25)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,26)=1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,27)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,28)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,29)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,30)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,31)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,32)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,33)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,34)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,35)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,36)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,37)=0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
map(0,38)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,39)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,40)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,41)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,42)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,43)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
map(0,44)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,45)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,46)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,47)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
map(0,48)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,49)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,50)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1
map(0,51)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,52)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,53)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,54)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
map(0,55)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,56)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,57)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,58)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
map(0,59)=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

screen 0,480,360,0,200,100 //メインウィンドウを初期化

mchip_size=6 //チップサイズ

mysize_x=20 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=20 //自分のｙサイズ


map_id=1 //マップチップ用のウィンドウID
screen map_id,120,120,0,50,50 //マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size //マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id //マップチップ用を選択
color 102,51,0
boxf 6,0,11,5 //チップナンバー1
color 
boxf 12,0,17,5 //チップナンバー2

gsel 0,1 //メインウィンドウを選択

mchip_name="無","ブ","扉"

gsel 0,1
x=0
y=360
//繰り返し
repeat
await 16
redraw 0

//================//
//　　ステージ　　//
//================//

repeat mapmax_y //マップチップを縦に並べる数
 pos 0,cnt*mchip_size //二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt //マップデータ縦の読み込み位置を代入
 repeat mapmax_x //マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty) //チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=10
//右矢印
if key&4:x+my_Speed
//左矢印
if key&1:x-my_Speed
//上矢印
if key&16{
	if jump=0:jump=1
}
if jump{
	jump++
	if jump>=60:jump=0:else:y-=cos(6.28/122*jump)*6
}
//下矢印
if key&8:y+my_Speed

//画面外防止
x=limit(x,0,480-mysize_x)
y=limit(y,0,360-mysize_y)

//================//
//　 当たり判定　 //
//================//

bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
 
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
 
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

color 0,66,0
boxf x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop

ちょっと判定が不十分でしたので修正しました（これで完璧かは怪しい・・・）

mapmax_x=10//マップデータ横の最大
mapmax_y=10//マップデータ縦の最大
dim map,mapmax_x,mapmax_y//マップデータ用配列確保

map(0, 0)=0,0,0,0,0,0,0,0,0,0
map(0, 1)=0,0,0,0,0,0,0,0,0,0
map(0, 2)=0,0,0,0,0,0,0,0,0,0
map(0, 3)=0,0,0,0,0,1,1,0,0,0
map(0, 4)=0,0,0,0,0,1,0,0,0,1
map(0, 5)=0,0,0,0,0,1,0,0,0,0
map(0, 6)=0,0,0,1,0,1,0,0,0,2
map(0, 7)=0,0,0,1,1,1,0,0,0,1
map(0, 8)=0,0,0,0,0,0,0,0,1,1
map(0, 9)=0,0,1,1,1,0,0,1,1,1

mchip_size=32 //チップサイズ

mysize_x=32 //自分のｘサイズ(チップサイズより大きくは出来ない判定の修正が必要)
mysize_y=32 //自分のｙサイズ


map_id=1//マップチップ用のウィンドウID
screen map_id,128,128,0,50,50//マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size//マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id//マップチップ用を選択
color 102,51,0
boxf 32,0,63,31//チップナンバー1
color
circle 64,0,96,64//チップナンバー2

mchip_name="無","ブ","扉"

gsel 0,1
x=100
y=100
;繰り返し repeat〜loop
repeat
await 16
redraw 0

;ステージ
repeat mapmax_y//マップチップを縦に並べる数
 pos 0,cnt*mchip_size//二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt//マップデータ縦の読み込み位置を代入
 repeat mapmax_x//マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty)//チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

stick key,31

bak_x=x //移動前の座標を保存
bak_y=y

my_Speed=2
;右矢印
if key&4:x+my_Speed
;左矢印
if key&1:x-my_Speed
;上矢印
if key&2:y-my_Speed
;下矢印
if key&8:y+my_Speed

;画面外防止
x=limit(x,0,320-mysize_x)
y=limit(y,0,320-mysize_y)

//当たり判定準備
bak_Uy = bak_y/mchip_size //移動前の座標のマップデータ上の位置（上側ｙ位置）
bak_Dy = (bak_y+mysize_y-1)/mchip_size //（下側ｙ位置）

map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mysize_x-1) / mchip_size //右側ｘ位置
map_Dy = (y+mysize_y-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下
color
pos 0,0

mes ""+mchip_name(mchip_LUp)+" "+mchip_name(mchip_RUp)
mes ""+mchip_name(mchip_LUn)+" "+mchip_name(mchip_RUn)

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
 
//　移動前マップｙ位置が移動後のマップｙ位置と同じならブロックの横面に接触として処理（移動前と移動後で同じブロックの高さなら縦面には当たらない）
// or
//　移動後のｘ座標と移動前の下側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
// or
//　移動後のｘ座標と移動前の上側ｙ座標の位置にブロックがあったら横面に接触として処理（縦にブロックが繋がってるから横にはいけない）
  if (bak_Uy=map_Uy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) { //左上がブロック横面に接触
 
   if bak_x>x { x = map_Lx*mchip_size+mchip_size} //左に移動中に接触してるからブロックの右側に自分を移動
  }else{ //左上がブロック縦面に接触
   if bak_y>y { y = map_Uy*mchip_size+mchip_size} //上に移動中に接触してるからブロックの下側に自分を移動
  }
 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Lx , bak_Dy )=1) or (map( map_Lx , bak_Uy )=1) {
   if bak_x>x { x = map_Lx*mchip_size+mchip_size}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
  if  (bak_Uy=map_Uy) or (map( map_Rx , bak_Uy )=1) or (map( map_Rx , bak_Dy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y>y { y = map_Uy*mchip_size+mchip_size}
  }
 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
  if (bak_Dy=map_Dy) or (map( map_Rx , bak_Dy )=1) or (map( map_Rx , bak_Uy )=1) {
   if bak_x<x { x = map_Rx*mchip_size-mysize_x}
  }else{
   if bak_y<y { y = map_Dy*mchip_size-mysize_y}
  }
 }
}

color 0,66,0
boxf x,y,mysize_x+x-1,mysize_y+y-1
redraw 1

loop


ジャンプアクションだとブロックの角に当たった時に落ちるより乗れた方が
良いと思うので横面より縦面を優先させてます

> ブロックとブロックの間を通る方法を教えてくださいm(_ _)m
> 画面の端に行くとエラーが出てしまう

> mchip_LUp = map( map_x , map_y ) //自分の位置にあるチップナンバー収得
> mchip_LUn = map( map_x , map_y+1 )
> mchip_RUp = map( map_x+1 , map_y )
> mchip_RUn = map( map_x+1 , map_y+1 )

惜しい
これだと隣の配列要素を見てしまう（だから1ブロック分の間が通れなし、範囲外の配列を見てエラーになる）
見たいのは自分のサイズ内の配列要素
x / mchip_size　これで左端を見れるんだから
(x+mchip_size-1) / mchip_size　で右端の位置になる（mchip_sizeには本来自分のサイズを使うが今回は同じサイズを使ってるから）
-1にしてるのはmchip_size分足してしまうとmchip_size/mchip_sizeで1なのでmap_x+1と同じになってしまう

//当たり判定準備
map_Lx = x / mchip_size //自分の左側マップデータ上のｘ位置
map_Uy = y / mchip_size //上側ｙ位置
map_Rx = (x+mchip_size-1) / mchip_size //右側ｘ位置
map_Dy = (y+mchip_size-1) / mchip_size //下側ｙ位置

mchip_LUp = map( map_Lx , map_Uy ) //自分の左上位置にあるチップナンバー収得
mchip_LUn = map( map_Lx , map_Dy ) //左下
mchip_RUp = map( map_Rx , map_Uy ) //右上
mchip_RUn = map( map_Rx , map_Dy ) //右下

こんな感じになる


> ↓を押しているときにブロックに当たると●が揺れて
左下が当たって上に移動
更に右下も判定され当たってると上に移動
これによりブロックより距離が離れるから
↓を押し続けてると揺れてるようになる

これは元々の制御方法に問題があるので改善の方法は示しませんが
複数回判定した時には色々問題が出ることを知っておいてください


これで自分の四隅にブロックが触れてるかは分かるようになったと思う
でも、これだけでは判定後の制御に必要な情報が不足している

必要なのは(色々やり方の中の一つの方法だから最終的に作りたいゲームには向かない可能性もある)
・移動前の座標
・ブロックのどの面に当たったか
・当たったブロックの座標



出来たら後でサンプル出すかも・・・

> mchip_LUp = map( map_x , map_y ) //自分の位置にあるチップナンバー収得
> mchip_LUn = map( map_x , map_y+1 )
> mchip_RUp = map( map_x+1 , map_y )
> mchip_RUn = map( map_x+1 , map_y+1 )

書き忘れていました orz
LUp = 左上
LUn = 左下
RUp = 右上
RUn = 右下　を意味します。

ここまでいったのですが、ブロックとブロックの間を通る方法を教えてくださいm(_ _)m
また、↓を押しているときにブロックに当たると●が揺れて、画面の端に行くとエラーが出てしまうのですが、それはなぜですか？教えてくださいm(_ _)m
*ブロックはチップナンバー1のことです

mapmax_x=10//マップデータ横の最大
mapmax_y=10//マップデータ縦の最大
dim map,mapmax_x,mapmax_y//マップデータ用配列確保

map(0, 0)=0,0,0,0,0,0,0,0,0,0
map(0, 1)=0,0,0,0,0,0,0,0,0,0
map(0, 2)=0,0,0,0,0,0,0,0,0,0
map(0, 3)=0,0,0,0,0,0,0,0,0,0
map(0, 4)=0,0,0,0,0,0,0,0,0,0
map(0, 5)=0,0,0,0,0,0,0,0,0,0
map(0, 6)=0,0,0,0,0,0,0,0,0,2
map(0, 7)=0,0,0,0,1,1,0,0,0,1
map(0, 8)=0,0,0,0,0,0,0,0,1,1
map(0, 9)=0,0,1,1,1,0,0,1,1,1


mchip_size=32
map_id=1//マップチップ用のウィンドウID
screen map_id,128,128,0,50,50//マップチップ用のウィンドウ確保
celdiv map_id,mchip_size,mchip_size//マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id//マップチップ用を選択
color 102,51,0
boxf 32,0,63,31//チップナンバー1
color
circle 64,0,96,64//チップナンバー2

mchip_name="無","ブロック","扉"

gsel 0,1
x=100
y=100
;繰り返し repeat〜loop
repeat
wait 1
stick key,31
;右矢印
if key&4:x+2
;左矢印
if key&1:x-2
;上矢印
if key&2:y-2
;下矢印
if key&8:y+2

;画面外防止
x=limit(x,0,288)
y=limit(y,0,288)

//当たり判定準備
map_x = x / mchip_size //マップデータ上の自分の位置
map_y = y / mchip_size //
mchip_LUp = map( map_x , map_y ) //自分の位置にあるチップナンバー収得
mchip_LUn = map( map_x , map_y+1 )
mchip_RUp = map( map_x+1 , map_y )
mchip_RUn = map( map_x+1 , map_y+1 )

if mchip_LUp > 0 {
 if mchip_LUp = 1 {
	 if key&4:x-2
	 if key&1:x+2
	 if key&2:y+2
	 if key&8:y-2
	 }
}

if mchip_LUn > 0 {
 if mchip_LUn = 1 {
	 if key&4:x-2
	 if key&1:x+2
	 if key&2:y+2
	 if key&8:y-2
	 }
}

if mchip_RUp > 0 {
 if mchip_RUp = 1 {
	 if key&4:x-2
	 if key&1:x+2
	 if key&2:y+2
	 if key&8:y-2
	 }
}

if mchip_RUn > 0 {
 if mchip_RUn = 1 {
	 if key&4:x-2
	 if key&1:x+2
	 if key&2:y+2
	 if key&8:y-2
	 }
}

redraw 0
color 255,255,255:boxf


;ステージ
repeat mapmax_y//マップチップを縦に並べる数
 pos 0,cnt*mchip_size//二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt//マップデータ縦の読み込み位置を代入
 repeat mapmax_x//マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty)//チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

title "チップネーム="+mchip_name(mchip_LUp)+"       データ位置 x="+map_x+" y="+map_y

color 0,66,0
circle x,y,mchip_size+x,mchip_size+y
redraw 1

loop

じゃぁ、自分と同じ座標に何番のマップチップがあるかを見る事が出来るんだから
チップナンバー1を障害物として判定するとして

http://www.onionsoft.net/hsp/beta/betabbs.cgi?no=8845&reno=8843&oya=8837&mode=msgview&list=
↑で書いたスクリプトの↓の部分で

if mchip_no > 0 {
 if mchip_no = 1 {
//ここに来たらチップナンバー1と重なってるって事（ここで最小限の当たり判定は終えてる）
//↓当たり判定後の制御
if key&4:x-2 //入力キーと逆方向に移動
if key&1:x+2
if key&2:y+2
if key&8:y-2

 }
}

凄く手抜き
自分の左上一点しか判定してない
だから左からチップナンバー1と当たると殆ど重なるまで止まらない
これを防ぐには最低自分の4角判定する必要がある

この判定後の制御ではゲームとしては使い物にならない
まず判定と判定後の制御は別物って事を分かってくれ

理解はなんとなく出来たのですが、それをどうやってHSPで表したら当たり判定が出来るのですか？

ちなみに、『if key&1:x=x-1:if x<0:x=0』みたいなものは分かります。

あ、分かるとは思うけど
ウィンドウ内にマウスカーソルを
もっていって座標と配列の関係を見て

座標と配列の関係は分かってる？
下のが理解できないと次に進めない

mapmax_x=5//マップデータ横の最大
mapmax_y=5//マップデータ縦の最大
dim map,mapmax_x,mapmax_y//マップデータ用配列確保

map(0, 0)= 0, 1, 2, 3, 4
map(0, 1)= 5, 6, 7, 8, 9
map(0, 2)=10,11,12,13,14
map(0, 3)=15,16,17,18,19
map(0, 4)=20,21,22,23,24

mchip_size=64
screen 0,mchip_size*mapmax_x,mchip_size*mapmax_y
font msgothic, 24,1
repeat
redraw 0
color 255,255,255:boxf
color
repeat mapmax_x
line 0,cnt*mchip_size,mapmax_x*mchip_size,cnt*mchip_size
line cnt*mchip_size,0,cnt*mchip_size,mapmax_x*mchip_size
loop
 
x = limit(mousex,0,mapmax_x*mchip_size) //マウス座標をウィンドウ内に収める（そのまま使うと配列要素数を超えるから）
 y = limit(mousey,0,mapmax_y*mchip_size)
 map_x = x / mchip_size //マップデータ上の自分の位置(座標をチップサイズで割ると配列上の位置が出る)
 map_y = y / mchip_size 
 mchip_no = map( map_x ,map_y ) //自分の位置にあるチップナンバー収得

color 200
pos 0,0
mes "座標x="+x+" 配列横="+map_x
mes "座標y="+y+" 配列縦="+map_y
mes "チップナンバー="+mchip_no+"\n"
mes "チップ配置座標x="+map_x*mchip_size //配列上の位置にチップサイズを掛けるとチップ配置座標になる
mes "チップ配置座標y="+map_y*mchip_size

redraw 1
await 16
loop

> //当たり判定準備
> map_x = x / mchip_size //マップデータ上の自分の位置
> map_y = y / mchip_size //
> mchip_no = map( map_x ,map_y ) //自分の位置にあるチップナンバー収得
> //これだけだと自分の左上角一点しか判定できないから
> //チップサイズ-1を足して最低でも四つ角全部見れる様にする
> 
> if mchip_no > 0 {
>  if mchip_no = 1 {
>  //左移動でここに来たら当たったブロックの右側面につく座標に移動(map_x * mchip_size でウィンドウのx座標になる)
>  //みたいな感じで判定後の処理を作る
> 
>  }
> }
> 

上の記述が特によく分からなかったため、当たり判定が全然出来ませんでした。

出来れば、どこか一か所だけでも当たり判定をしてもらえたら、それを元に他の当たり判定をしたいと思いますm(_ _)m

お願いします orz

> いえ、本命は当たり判定です。
じゃぁ、ジャンプアクションだと判定だけの説明じゃ済まないから
ドラクエみたいな見下ろし2Dマップの説明で

mapmax_x=10//マップデータ横の最大
mapmax_y=10//マップデータ縦の最大
dim map,mapmax_x,mapmax_y//マップデータ用配列確保

map(0, 0)=0,0,0,0,0,0,0,0,0,0
map(0, 1)=0,0,0,0,0,0,0,0,0,0
map(0, 2)=0,0,0,0,0,0,0,0,0,0
map(0, 3)=0,0,0,0,0,0,0,0,0,0
map(0, 4)=0,0,0,0,0,0,0,0,0,0
map(0, 5)=0,0,0,0,0,0,0,0,0,0
map(0, 6)=0,0,0,0,0,0,0,0,0,2
map(0, 7)=0,0,0,0,1,1,0,0,0,1
map(0, 8)=0,0,0,0,0,0,0,0,1,1
map(0, 9)=0,0,1,1,1,0,0,1,1,1


mchip_size=32
map_id=1//マップチップ用のウィンドウID
screen map_id,128,128,0,50,50//マップチップ用のウィンドウ確保（普通はbufferやcelloadで仮想画面を使うが今回は分かりやすいように）
celdiv map_id,mchip_size,mchip_size//マップチップ用のウィンドウに1チップのサイズを設定

//マップチップ画像をマップチップ用のウィンドウに描画
gsel map_id//マップチップ用を選択(上で確保した時に選ばれてるが)
color 102,51,0
boxf 32,0,63,31//チップナンバー1
color
circle 64,0,96,64//チップナンバー2

mchip_name="無","ブロック","扉"

gsel 0,1
x=100
y=100
;繰り返し repeat〜loop
repeat
wait 1
stick key,31

;右矢印
if key&4:x+2

;左矢印
if key&1:x-2

;上矢印
if key&2:y-2
;下矢印
if key&8:y+2


;画面外防止
x=limit(x,0,288)
y=limit(y,0,288)

//当たり判定準備
map_x = x / mchip_size //マップデータ上の自分の位置
map_y = y / mchip_size //
mchip_no = map( map_x ,map_y ) //自分の位置にあるチップナンバー収得
//これだけだと自分の左上角一点しか判定できないから
//チップサイズ-1を足して最低でも四つ角全部見れる様にする

if mchip_no > 0 {
 if mchip_no = 1 {
 //左移動でここに来たら当たったブロックの右側面につく座標に移動(map_x * mchip_size でウィンドウのx座標になる)
 //みたいな感じで判定後の処理を作る

 }
}

redraw 0
color 255,255,255:boxf


;ステージ
repeat mapmax_y//マップチップを縦に並べる数
 pos 0,cnt*mchip_size//二回目以降mchip_sizeずつ下に移動
 map_cnty=cnt//マップデータ縦の読み込み位置を代入
 repeat mapmax_x//マップチップを横に並べる数
  celput map_id,map(cnt,map_cnty)//チップ描画後次の描画位置を右にチップサイズ分移動
 loop
loop

title "チップネーム="+mchip_name(mchip_no)+"       データ位置 x="+map_x+" y="+map_y

color 0,66,0
circle x,y,mchip_size+x,mchip_size+y
redraw 1

loop

これをブロックにめり込んだり
擦りながら移動しても引っからないように出来たら
ジャンプアクションにも簡単に応用が出来る