HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決 解決 停止 削除要請

2011
1029		Spider横スクロールアクション〜縦長の壁だとくっつくバグ〜9解決


Spider

リンク

2011/10/29(Sat) 14:53:01|NO.42704

#define TipSizeX 16         ; チップのXサイズ

#define TipSizeY 16         ; チップのYサイズ
#define JampSp 10           ; ジャンプの初期速度
#define Gravity 1           ; 重力加速度
#define MoveX 5             ; 横移動量
#define ScreenX TipSizeX*20*2 ; スクリーンのXサイズ
#define ScreenY TipSizeY*10 ; スクリーンのYサイズ
#define OverScrRight 60     ; 右60%スクロール
#define OverScrLeft 40      ; 左40%スクロール
#define OverScrTop 40       ; 上40%スクロール
#define OverScrBack 60      ; 下60%スクロール
#define ScrCtrl 1           ; スクロールの止めなど
	
/*ゲームオーバー描写のためのバッファ*/
	buffer 4
	color : boxf
	
/*マップチップ描写のバッファ*/
	buffer 2
	//picload "tip2.bmp" ; マップチップ画像描写
	
	//全て透明色に
	color:boxf
	//普通の床は黒
	color 1 , 1 , 1
	boxf 1 * TipSizeX , 0 * TipSizeY , 1 * TipSizeX + TipSizeX-1 , 0 * TipSizeY + TipSizeY-1
	boxf 2 * TipSizeX , 0 * TipSizeY , 2 * TipSizeX + TipSizeX-1 , 0 * TipSizeY + TipSizeY-1
	boxf 3 * TipSizeX , 0 * TipSizeY , 3 * TipSizeX + TipSizeX-1 , 0 * TipSizeY + TipSizeY-1
	//消える床は緑
	color 0 , 200 , 0
	boxf 0 * TipSizeX , 2 * TipSizeY , 0 * TipSizeX + TipSizeX-1 , 2 * TipSizeY + TipSizeY-1
	boxf 2 * TipSizeX , 2 * TipSizeY , 2 * TipSizeX + TipSizeX-1 , 2 * TipSizeY + TipSizeY-1
	//透ける床は青
	color 0 , 0 , 200
	boxf 3 * TipSizeX , 2 * TipSizeY , 3 * TipSizeX + TipSizeX-1 , 2 * TipSizeY + TipSizeY-1
	boxf 4 * TipSizeX , 2 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 2 * TipSizeY + TipSizeY-1
	//炎は黄色
	color 200 , 200 , 0
	boxf 0 * TipSizeX , 3 * TipSizeY , 0 * TipSizeX + TipSizeX-1 , 3 * TipSizeY + TipSizeY-1
	boxf 1 * TipSizeX , 3 * TipSizeY , 1 * TipSizeX + TipSizeX-1 , 3 * TipSizeY + TipSizeY-1
	boxf 2 * TipSizeX , 3 * TipSizeY , 2 * TipSizeX + TipSizeX-1 , 3 * TipSizeY + TipSizeY-1
	boxf 0 * TipSizeX , 4 * TipSizeY , 0 * TipSizeX + TipSizeX-1 , 4 * TipSizeY + TipSizeY-1
	boxf 1 * TipSizeX , 4 * TipSizeY , 1 * TipSizeX + TipSizeX-1 , 4 * TipSizeY + TipSizeY-1
	boxf 2 * TipSizeX , 4 * TipSizeY , 2 * TipSizeX + TipSizeX-1 , 4 * TipSizeY + TipSizeY-1
	//ワープのドアは水色
	color 0 , 200 , 200
	boxf 4 * TipSizeX , 0 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 0 * TipSizeY + TipSizeY-1
	boxf 4 * TipSizeX , 1 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 1 * TipSizeY + TipSizeY-1
	//終わりのドアは紫
	color 200 , 0 , 200
	boxf 3 * TipSizeX , 3 * TipSizeY , 3 * TipSizeX + TipSizeX-1 , 3 * TipSizeY + TipSizeY-1
	boxf 4 * TipSizeX , 3 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 3 * TipSizeY + TipSizeY-1
	boxf 3 * TipSizeX , 4 * TipSizeY , 3 * TipSizeX + TipSizeX-1 , 4 * TipSizeY + TipSizeY-1
	boxf 4 * TipSizeX , 4 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 4 * TipSizeY + TipSizeY-1
	boxf 3 * TipSizeX , 5 * TipSizeY , 3 * TipSizeX + TipSizeX-1 , 5 * TipSizeY + TipSizeY-1
	boxf 4 * TipSizeX , 5 * TipSizeY , 4 * TipSizeX + TipSizeX-1 , 5 * TipSizeY + TipSizeY-1
	
	screen 0 , ScreenX , ScreenY
	sdim map , 5000
	sdim mapget , 100
	dim ax , 2000
	dim ay , 2000
	dim FloorX , 1000
	dim FloorY , 1000
	dim WhatKind , 1000 ; 床の種類
	dim FaitFlag , 500 ; 消えるに触れているか触れていないか
	dim FaitCnt , 500 ; 触れてからの時間（フレーム数）
	dim Faitnumber , 500 ; その消える床は何番目の床か？（ほかの床も含む）
	dim Fait , 500 ; 1になると消える
	dim FaitEfect , 500 ; 1になるとエフェクト
	dim WorpX , 20 ; ワープドアのX座標
	dim WorpY , 20 ; ワープドアのY座標
	dim Worp , 20  ; ワープのための？？？（説明しづらい）
	
/*マップデータ読み込み*/
	notesel map
	//noteload "map1.txt"
	
	map= "B                     A                                                         "+"\n"
	map+=" 111            22222  22                                                       "+"\n"
	map+="       11111         22       33               2222                             "+"\n"
	map+="                            33  33         2222                                 "+"\n"
	map+=" 1  11       11           33      33                    111                     "+"\n"
	map+="G                     3333    11    33                                          "+"\n"
	map+="  0                 0                      55555     88888                      "+"\n"
	map+="   00    Z          0                                                           "+"\n"
	map+="    M               0   0000        777777      7           77                  "+"\n"
	map+="0000000000000000000000000000000000000000000000000000000000000000000000       000"+"\n"
	map+="                                      00                                        "+"\n"
	map+="                                      00                                        "+"\n"
	map+="                                  D   00                                        "+"\n"
	map+="                                      00                                        "+"\n"
	map+="                                      00                                        "+"\n"
	map+="       C                              00                                        "+"\n"
	map+="                                      00                                        "+"\n"
	map+="    111111111                         00   D   H                                "+"\n"
	map+="                                      00                                        "+"\n"
	map+="                3333333333333333333033003333333333333333333333333333333333333   "+"\n"
	map+="                888       8            88888888888888888888888888888888888888   "+"\n"
	map+="                                                                                "+"\n"
	map+="                                                                8888000880008888"+"\n"
	map+="                                                                0A              "+"\n"
	map+="      0000000       7777    7777     333                        0              B"+"\n"
	map+="      0HC   0      55555555555555             8      8    8     0     7   7     "+"\n"
	map+="      0     00                                              E  F0000000000000000"+"\n"
	map+="      0     0        77777777777777777770000777000077700077                     "+"\n"
	map+="00000003333300000000000000000000000000000000000000000000000000000000000000000000"+"\n"
	map+="      0     0    0       0                                                      "+"\n"
	map+="      0777770    0  E    0                                                      "+"\n"
	map+="      0000000    0     G 0                                             F        "+"\n"
	map+="                 0       0                                                      "+"\n"
	map+="    N            000000000                                             0        "+"\n"
	map+="                                                                   0            "+"\n"
	map+=" 111111                                           3            0                "+"\n"
	map+="                                                        33                      "+"\n"
	map+="                                          33                                    "+"\n"
	map+="0      00     00  0     0000      333                                           "+"\n"
	
	noteget mapget ; マップの一行目を取得

/*マップ色々*/
	MapX = strlen(mapget) ; マップのXサイズ（マス）
	MapY = noteinfo(0)    ; マップのYサイズ（マス）
	MapSize = MapX * MapY
	
//====================================//
//------------------------------------//
//------------メインループ------------//
//------------------------------------//
//====================================//
*MainLoop
	gosub *MyPositionSarch
	buffer 3 , MapX * TipSizeX , MapY * TipSizeY ; スクロールさせるため用バッファ
	gosub *MapDraw ; マップ描写
	gsel 0 ; 元の画面に戻す
	
	repeat
		redraw 0
		color 255,255,255
		boxf
		MyX = MyX0
		MyY = MyY0 ; 仮座標を本座標に変換
	
		gsel 3
		gosub *MapChenge
		gsel 0
		gosub *MapCopy
		gosub *MyActivity
		gosub *HitCheck
		if (RePlay = 1) : break
		if (Gameover = 1) : gosub *Over
	//消える床を消すときの時間差カウント
		repeat number2
			if (FaitFlag(cnt) = 1) : FaitCnt(cnt)++
			if (FaitCnt(cnt) = 10) : FaitEfect(cnt) = 1
			if (FaitCnt(cnt) = 13) : Fait(cnt) = 1
			gframe = double(gframe) + 0.003
		loop
		redraw 1
		await 16
	loop
	
	dim FaitFlag , 500
	dim FaitCnt , 500
	dim Faitnumber , 500
	dim Fait , 500
	dim FaitEfect , 500
	Gameover = 0
	RePlay = 0
	HalfCopy = 0
	sp = 0
	goto *MainLoop

/*マップデータから自分の座標をサーチ*/
*MyPositionSarch
	repeat MapSize
		x = cnt \ MapX
		y = cnt / MapX
		notesel map
		noteget mapget , y
		buf = peek(mapget , x)
		if (buf = 'M'){
			MyX0 = x * TipSizeX
			MyY0 = y * TipSizeY
			scx  = MyX0 + 16 - ScreenX / 2
			scy  = MyY0 + 16 - ScreenY / 2
		//横スクロール上限、下限で修正
			if scx < 0 : scx = 0
			if scx > (( MapX * TipSizeX) - ScreenX) : scx = (MapX * TipSizeX) - ScreenX
		//縦スクロール上限、下限で修正
			if scy < 0 : scy = 0
			if scy > (( MapY * TipSizeY) - ScreenY) : scy = (MapY * TipSizeY) - ScreenY
			break
		}
	loop
	return
	
/*マップ描写*/
*MapDraw
	color 255 , 255 , 255
	boxf
	number = 0  ; 床の数
	number2 = 0 ; 消える床の数
	number3 = 0 ; 炎の数
	number5 = 0 ; ワープドアの数
	repeat MapSize
		x=cnt \ MapX
		y=cnt / MapX
		noteget mapget , y
		buf = peek(mapget , x)
		//全てのマップチップの座標を取得
		ax(cnt) = x * TipSizeX
		ay(cnt) = y * TipSizeY
		
		pos x * TipSizeX , y * TipSizeY
		gmode 2

		switch buf
		case ' '
			gcopy 2,0,0,TipSizeX,TipSizeY
		swbreak
	//--------------------
		case '0'
			gcopy 2 , 2 * TipSizeX ,0 * TipSizeY , TipSizeX , TipSizeY
		//普通の床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			WhatKind(number) = 0
			number++
		swbreak

		case '1'
			gcopy 2 , 3 * TipSizeX , 0 * TipSizeY , TipSizeX , TipSizeY
		//普通の床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			WhatKind(number) = 0
			number++
		swbreak

		case '2'
			gcopy 2 , 1 * TipSizeX , 0 * TipSizeY , TipSizeX , TipSizeY
		//普通の床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			WhatKind(number) = 0
			number++
		swbreak
	
		case '3'
			if (Fait(number2) = 0)and(FaitEfect(number2) = 1) : gcopy 2 , TipSizeX * 1 , TipSizeY * 2 , TipSizeX , TipSizeY
			if (Fait(number2) = 1) : gcopy 2 , TipSizeX * 0 , TipSizeY * 0 , TipSizeX , TipSizeY
			if (Fait(number2) = 0)and(FaitEfect(number2) = 0) : gcopy 2 , TipSizeX * 0 , TipSizeY * 2 , TipSizeX , TipSizeY
		//消える床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			if (Fait(number2) = 1) : FloorX(number) = -100
			if (Fait(number2) = 1) : FloorY(number) = -100
			WhatKind(number) = 1
			Faitnumber(number2) = number
			number++
			number2++
		swbreak
	
		case '4'
			if (Fait(number2) = 0)and(FaitEfect(number2) = 1) : gcopy 2 , TipSizeX * 1 , TipSizeY * 2 , TipSizeX , TipSizeY
			if (Fait(number2) = 1) : gcopy 2 , TipSizeX * 0 , TipSizeY * 0 , TipSizeX , TipSizeY
			if (Fait(number2) = 0)and(FaitEfect(number2) = 0) : gcopy 2 , TipSizeX * 2 , TipSizeY * 2 , TipSizeX , TipSizeY
		//消える床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			if (Fait(number2) = 1) : FloorX(number) = -100 ; 消える床を消す
			if (Fait(number2) = 1) : FloorY(number) = -100 ; 消える床を消す
			WhatKind(number) = 1
			Faitnumber(number2) = number
			number++
			number2++
		swbreak
	
		case '5'
			gcopy 2 , 3 * TipSizeX , 2 * TipSizeY , TipSizeX , TipSizeY
		//透ける床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			WhatKind(number) = 2
			number++
		swbreak
	
		case '6'
			gcopy 2 , 4 * TipSizeX , 2 * TipSizeY , TipSizeX , TipSizeY
		//透ける床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			WhatKind(number) = 2
			number++
		swbreak
	
		case '7'
			gcopy 2 , (int(gframe) \ 3) * TipSizeX , 3 * TipSizeY , TipSizeX , TipSizeY
		//痛い床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			FireX(number3) = FloorX(number)
			FireY(number3) = FloorY(number)
			EfectKind(number3) = 0
			WhatKind(number) = 3
			number++
			number3++
		swbreak
	
		case '8'
			gcopy 2 , (int(gframe) \ 3) * TipSizeX , 4 * TipSizeY , TipSizeX , TipSizeY
		//痛い床の座標を取得
			FloorX(number) = ax(cnt)
			FloorY(number) = ay(cnt)
			FireX(number3) = FloorX(number)
			FireY(number3) = FloorY(number)
			EfectKind(number3) = 1
			WhatKind(number) = 3
			number++
			number3++
		swbreak
		case 'M' : swbreak
	
		case 'N'
			pos x * TipSizeX-3 , y * TipSizeY-5
			gcopy 2 , 3 * TipSizeX , 3 * TipSizeY , TipSizeX+6 , 2*TipSizeY+5
			NextDoorX = ax(cnt)
			NextDoorY = ay(cnt)
		swbreak
	
		case 'Z'
			gcopy 2 , 4 * TipSizeX , 0 * TipSizeY , TipSizeX , 2*TipSizeY
		//ＳＰドアの座標を登録
			SpDoorX = ax(cnt)
			SpDoorY = ay(cnt)
		swbreak
		
		default
			gcopy 2 , 4 * TipSizeX , 0 * TipSizeY , TipSizeX , 2*TipSizeY
		//ワープドアの座標を登録
			number4  = buf - 65
			number40 = number4 + Worp(number4)
			WorpX(number40+number4) = ax(cnt)
			WorpY(number40+number4) = ay(cnt)
			Worp(number4) = 1
			number5++
		swend
	loop
return
/*マップのエフェクト*/
*MapChenge
	repeat number2
		color 255,255,255
		if (FaitEfect(cnt) = 1) : boxf FloorX(Faitnumber(cnt)) , FloorY(Faitnumber(cnt)) , FloorX(Faitnumber(cnt)) + TipSizeX-1 , FloorY(Faitnumber(cnt)) + TipSizeY-1
		pos FloorX(Faitnumber(cnt)) , FloorY(Faitnumber(cnt))
		if (Fait(cnt) = 0)and(FaitEfect(cnt) = 1) : gcopy 2 , TipSizeX * 1 , TipSizeY * 2 , TipSizeX , TipSizeY
		if (Fait(cnt) = 1)and(FaitEfect(cnt) = 1){
			gcopy 2 , TipSizeX * 0 , TipSizeY * 0 , TipSizeX , TipSizeY
			FloorX(Faitnumber(cnt)) = -100
		}
	loop
	repeat number3
		color 255,255,255
		boxf FireX(cnt) , FireY(cnt) , FireX(cnt) + TipSizeX-1 , FireY(cnt) + TipSizeY-1
		pos FireX(cnt) , FireY(cnt)
		if (EfectKind(cnt) = 0) : gcopy 2 , (int(gframe) \ 3) * TipSizeX , 3 * TipSizeY , TipSizeX , TipSizeY
		if (EfectKind(cnt) = 1) : gcopy 2 , (int(gframe) \ 3) * TipSizeX , 4 * TipSizeY , TipSizeX , TipSizeY
	loop
	return
/*マップをスクロールさせコピー*/
*MapCopy
	gsel 0
	gmode 0,ScreenX,ScreenY
	pos 0,0
	gcopy 3,scx,scy,ScreenX,ScreenY
	return
/*主人公の活動*/
*MyActivity
	color 200 , 0 , 0
	boxf MyX - scx , MyY - scy , MyX - scx + TipSizeX-1 , MyY - scy + TipSizeY-1
	
	if (land = 0){
		MyY0 -= sp
		if ScrCtrl{
			if (sp > 0){
				if (MyY0 - scy) < (ScreenY * OverScrTop / 100){    ;画面の上にきていたら
					scy -= sp
		}	}	}
		
		if ScrCtrl{
			if (sp < 0){
				if (MyY0 - scy) > (ScreenY * OverScrBack / 100){    ;画面の下にきていたら
					scy -= sp
		}	}	}

		sp  -= Gravity
		if (sp < -TipSizeY - 4) : sp = -TipSizeY - 4
	}
//縦スクロール上限、下限で修正
	if scy < 0 : scy = 0
	if scy > (( MapY * TipSizeY) - ScreenY) : scy = (MapY * TipSizeY) - ScreenY

	if (Gameover = 0) : stick key , 13
	if (Gameover = 1) : key = 0
	
//画面の下に落ちたら死ぬ判定
	if (MyY0 > MapY * TipSizeY) : Gameover = 1
	
	if (key & 1){	//左移動
		MyX0 -= MoveX
		if ScrCtrl{
			if (MyX0 - scx) < (ScreenX * OverScrLeft / 100){	;画面の左にきていたら
				scx -= MoveX	;マップ位置を調整
			}
		}
	}

	if (key & 4){	//右移動
		MyX0 += MoveX
		if ScrCtrl{
			if ( MyX0 - scx ) > ( (ScreenX * OverScrRight / 100) - TipSizeX )	{	;画面の右にきていたら
				scx += MoveX	;マップ位置を調整
			}
		}
	}
	
	if (key & 2){
		if (land = 1){
			sp = JampSp
		}
	}
	
//横スクロール上限、下限で修正
	if scx < 0 : scx = 0
	if scx > (( MapX * TipSizeX) - ScreenX) : scx = (MapX * TipSizeX) - ScreenX
//キャラクタの移動制限
	if MyX0 < (scx)	:	MyX0 = scx	//左から食み出ない
	if MyX0 > (( MapX - 1 ) * TipSizeX)	:	MyX0 = ( MapX - 1 ) * TipSizeX	//右に食み出ない
//当たり判定用の座標の変数の作成
	MeTop = MyY0
	MeLeft = MyX0
	MeRight = MyX0 + TipSizeX-1
	MeEnd = MyY0 + TipSizeY-1
	return
	
/*当たり判定*/
*HitCheck
	land = 0
	frame = 0
	FallNot = 0 ; 消える床と同時に普通の床に着陸しているとき消えないようにする変数
	DieNot = 0  ; 炎と同時に普通の壁に当たっているとき死なないようにする変数
	repeat number
		//LandNot変数の初期化
		LandNot = 0
		FX = FloorX(cnt)
		FY = FloorY(cnt)
		//四隅の点の情報を取得
		MFT = (MeTop / TipSizeY) = (FY / TipSizeY)	;マップと自キャラ位置の上部判定
		MFB = (MeEnd / TipSizeY) = (FY / TipSizeY)	;マップと自キャラ位置の下部判定
		MFL = (MeLeft / TipSizeX) = (FX / TipSizeX)	;マップと自キャラ位置の左辺判定
		MFR = (MeRight / TipSizeX) = (FX / TipSizeX)	;マップと自キャラ位置の右辺判定
		DotA= (MFT) and (MFL)	
		DotB= (MFB) and (MFL)	
		DotC= (MFB) and (MFR)	
		DotD= (MFT) and (MFR)	
		Dot = DotA + DotB + DotC + DotD

		//左に移動中の壁衝突
		if (DotA * DotB){
			if (WhatKind(cnt) ! 2){
				MyX0 = FloorX(cnt) + TipSizeX
				LandNot = 1
				if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
				if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
			}
		}

		if (MeEnd >= FY) and (MeTop < (FY + TipSizeY - 1 )){
			if (Dot = 1)and ((DotA = 1) or (DotB = 1)){
				if (MyX > (FX + TipSizeX -1) ){
					if (WhatKind(cnt) ! 2){
						MyX0 = FX + TipSizeX
						LandNot = 1
						if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
						if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
					}
				}
			}
		}
	
		//右に移動中の壁衝突
		if (DotC * DotD){
			if (WhatKind(cnt) ! 2){
				MyX0 = FX - TipSizeX
				LandNot = 1
				if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
				if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
			}
		}
	
		if (MeEnd >= FY) and (MeTop < (FY + TipSizeY - 1 )){
			if (Dot = 1) and ((DotC = 1) or (DotD = 1)){
				if ((MyX + TipSizeX-1) < FX){
					if (WhatKind(cnt) ! 2){
						MyX0 = FX - TipSizeX
						LandNot = 1
						if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
						if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
					}
				}
			}
		}
	
		//落下中に床に衝突
		if (DotB * DotC)*(LandNot = 0){
			if (sp < 0){
				if (MyY + (TipSizeY-1) < FY){
					MyY0 = FY - TipSizeY
					sp = 0
					if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
					if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
				}
			}
		}

		if (MeRight > FX) and (MeLeft < FX + TipSizeX-1){
			if (Dot =1)and ((DotB = 1) or (DotC = 1)){
				if (MyY0 - MyY > 0){
					if (MeEnd >= FY){
						if (LandNot = 0){
							if (MyY + (TipSizeY-1) < FY){
								MyY0 = FY - TipSizeY
								sp = 0
								if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
								if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
							}
						}
					}
				}
			}
		}

		//着地してるかどうかの判定
		if ((Dot = 0)or(DotB = 1)or(DotC = 1)){
			if (MeTop = (FY - TipSizeY)){
				if (MeRight >= FX){
					if (MeLeft <= (FX + TipSizeX - 1 )){
						if (LandNot = 0){
							if (key & 2){
							}else{
								land = 1 : sp=0
								if (WhatKind(cnt) = 0) : FallNot = 1
								if (WhatKind(cnt) = 1)and(FallNot = 0){
									repeat number2
										if (frame = Faitnumber(cnt)) : FaitFlag(cnt) = 1
									loop
								}
							}
						}
					}
				}
			}
		}
	
		//ジャンプ中に天井に衝突
		if (DotA = 1) and (DotD = 1){
			if (LandNot = 0){
				if (WhatKind(cnt) ! 2){
					MyY0 = FloorY(cnt) + TipSizeY
					sp = 0
					if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
					if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
				}
			}
		}

		if (MeRight > FloorX(cnt)) and (MeLeft < (FloorX(cnt) + (TipSizeX - 1 ))){
			if (Dot = 1) and ((DotA = 1) or (DotD = 1)){
				if (MyY0 - MyY < 0){
					if (MyY > FloorY(cnt) + (TipSizeY - 1 )){
						if (LandNot = 0){
							if (WhatKind(cnt) ! 2){
								MyY0 = FloorY(cnt) + TipSizeY
								sp = 0
								if (WhatKind(cnt) ! 3)and(HalfCopy = 0) : DieNot = 1 : Gameover = 0
								if (WhatKind(cnt) = 3)and(DieNot = 0) : Gameover = 1
							}
						}
					}
				}
			}
		}
		frame++
	loop
//ワープ判定
	getkey Ky , 'Z'
		if (LastKy){
			if (Ky = 0) : LastKy = 0
			Ky = 0
		}
	repeat number5/2
		if (MeRight >= WorpX(cnt*2))and(MeLeft <= WorpX(cnt*2) + TipSizeX-1){
			if (MeTop = WorpY(cnt*2) + TipSizeY){
				if (Ky = 1){
					MyX0 = WorpX(cnt*2+1)
					MyY0 = WorpY(cnt*2+1) + TipSizeY
					EndDoorX = WorpX(cnt*2)
					EndDoorY = WorpY(cnt*2) + TipSizeY
					scx  = MyX0 + TipSizeX / 2 - ScreenX / 2
					scy  = MyY0 + TipSizeY / 2 - ScreenY / 2
					if scx < 0 : scx = 0
					if scx > (( MapX * TipSizeX) - ScreenX) : scx = (MapX * TipSizeX) - ScreenX
					if scy < 0 : scy = 0
					if scy > (( MapY * TipSizeY) - ScreenY) : scy = (MapY * TipSizeY) - ScreenY
					LastKy = 1
					EndDoorOK = 1
					Ky = 0
		}	}	}
		if (MeRight >= WorpX(cnt*2+1))and(MeLeft <= WorpX(cnt*2+1) + TipSizeX-1){
			if (MeTop = WorpY(cnt*2+1) + TipSizeY){
				if (Ky = 1){
					MyX0 = WorpX(cnt*2)
					MyY0 = WorpY(cnt*2) + TipSizeY
					EndDoorX = WorpX(cnt*2+1)
					EndDoorY = WorpY(cnt*2+1) + TipSizeY
					scx  = MyX0 + TipSizeX / 2 - ScreenX / 2
					scy  = MyY0 + TipSizeY / 2 - ScreenY / 2
					if scx < 0 : scx = 0
					if scx > (( MapX * TipSizeX) - ScreenX) : scx = (MapX * TipSizeX) - ScreenX
					if scy < 0 : scy = 0
					if scy > (( MapY * TipSizeY) - ScreenY) : scy = (MapY * TipSizeY) - ScreenY
					LastKy = 1 ; 押しっぱなしＯＫをなくす変数
					EndDoorOK = 1 ; 一回でもドアから出たらＯＫ（ＳＰドアのための変数）
					Ky = 0
		}	}	}
	loop
//NEXTドアの判定
	if (MeRight >= NextDoorX)and(MeLeft <= NextDoorX + TipSizeX-1){
		if (MeTop = NextDoorY + TipSizeY){
			if (Ky = 1) : Gameover = 1
	}	}
//ＳＰドアの判定（前回出てきたドアへワープ）
	if (MeRight >= SpDoorX)and(MeLeft <= SpDoorX + TipSizeX-1){
		if (MeTop = SpDoorY + TipSizeY){
			if (Ky = 1)and(EndDoorOK){
				MyX0 = EndDoorX
				MyY0 = EndDoorY
	}	}	}
	return
	
*Over
	if (HalfCopy > 450) : RePlay = 1
	gmode 3 , ScreenX , ScreenY , HalfCopy
	gcopy 4
	HalfCopy += 15
	return

皆様のアドバイスなどもあり、
ここまで来ました。でも、
升目ピッタリのところで壁に引っ付くのです。
上の97行目のようなところを左に進み続けると
おこります。
何度もすみません、教えてください！！！

※ドアは'Z'で入ります



この記事に返信する

check

リンク

2011/10/29(Sat) 15:40:30|NO.42705

そろそろプログラムをまる貼りして、
「分かりません！デバッグお願いします！」
って言うのはもうやめたほうがいいんじゃないだろうか。



たんす

リンク

2011/10/29(Sat) 15:51:12|NO.42706

>上の97行目のようなところを左に進み続けると
そこに辿り着き、現象を確認するのに一苦労しました。

そこで、map変数を弄って'0'の柱を立ててみたところ、
ジャンプ中の横移動は柱に引っかかりました。
また、引っかかり中にジャンプが可能という”壁上り”が出来ました。

変数表示機能を追加したところ、
ジャンプ上昇中に柱へ移動しようとすると着地フラグlandが1になっていました。
移動判定で何かミスがあるようですね。



てれてれ

リンク

2011/10/29(Sat) 18:14:13|NO.42711

さすがに長い。



ザーメン

リンク

2011/10/29(Sat) 18:22:44|NO.42712

原因がわかりました。
しかしここで言えばあなたは自分でデバッグすることなくまた、掲示板をたよるの
ですぐには教えません。

教えてほしければ、すぐにでもバグを再現できるプログラムを作成する、もしくは、上
記のプログラムを短くする努力を行ってください。



Spider

リンク

2011/10/29(Sat) 19:57:49|NO.42714

マップデータを
map= "      00                                "+"\n"

	map+="      00                                "+"\n"
	map+="      00                                "+"\n"
	map+="      00                                "+"\n"
	map+="      00                                "+"\n"
	map+="      00                                "+"\n"
	map+="      00                                "+"\n"
	map+="    A 00 A                              "+"\n"
	map+=" M    00                                "+"\n"
	map+="0000000000000000000000000000000000000000"
にして、
メインループのawait 16をwait 50にして、
redraw 1の前にtitle "Land="+land+" Key="+key+" MyX0="+MyX0+" MyY0="+MyY0
を置いたら、
MyY0が80のところで、なぜか（めり込んでいるから？）上の壁に当たり、
その後、なぜか（めり込んでいるから？）下の床にあたって、着陸していることが
わかりました。

後、デバッグにコツ等あれば教えていただけますか？



Spider

リンク

2011/10/29(Sat) 20:08:57|NO.42716

上の補足です。
ピッタリあたっているときは、
落ちているときもくっつく。



ザーメン

リンク

2011/10/29(Sat) 21:48:41|NO.42718

それをすぐに実行できるようなプログラムを作ったほうが、回答も得られやすいと思いますよ。
どこどこをこう変えてとか、どこどこにいったらではなく、その瞬間を実行できるプログラムを作ってください。



Spider

リンク

2011/10/30(Sun) 18:40:44|NO.42751

調べていったら訳が分からなくなったので、
一時的に中断させていただきます。
（じっくり考えます）



Spider

リンク

2011/11/3(Thu) 12:25:29|NO.42797

もし、ブロックＡの下にブロックＢがあったら
ブロックＡの下辺の判定を行わない。
もし、ブロックＡの上にブロックＣがあったら
ブロックＡの上辺の判定を行わない。

としたら、できました！！！

皆様迷惑をかけました。
すみませんでした。

トップ | HSP3ダウンロード | HSPTVで遊ぶ | HSPで作る | サイト情報 | プライバシーポリシー | お問合せ

ONION software Copyright 1997-2023(c) All rights reserved.