やっとでけた…RPGのパーティ追従動作アルゴリズム

残る問題は、例えば池に突進した際に進行できないので全キャラの向きは固定しないといけませんが、何度か繰り返すと後ろのキャラも向きを変えること。

これは現状のルーチンでは回避できないので保留。対処を後回しに。

ここで作るRPGとは梅澤嗣佳(T.Umezawa)さんが説明するサンプルを元にした改造版。それを以下図のような描画構成に変更して奮闘しています。

スムーズスクロールのために仮想画面vgを実画面rgより上下左右1タイルづつ広げ、フレームごとの転写座標であるパラメータscx、scyを1ドット刻みで動かすというもの。

プレイヤは実画面と同じ座標系の別仮想画面＝プレイヤ画面vg-pの中央に描いています。←無条件に中央表示してるのがそもそもの間違いなのかも。

「元」の配置から「上」「下」「左」「右」に動かした場合の各キャラの動きを上下左右に書いてあります。2パターン分で分析。

　

ニコちゃんで表すプレイヤが中央座標固定なので、後続キャラがどう動くべきかが描いてあります。上はyが減る方向なのでy-、右はxが増える方向なのでx+。

順番に見ていくと規則性が。

そのA・B二つを足し算したものが後続キャラの座標になります。なので、一気に2タイル進む・斜めに動く・打ち消し合って動かないなどのパターンが出てきます。

ドラクエの馬車の動きを思い出してもらえると。

最悪のスパゲティであることを先にお断り。タイル移動制限付きのスムーズスクロール中に別座標軸のスムーズ移動をやろうとして、しっちゃかめっちゃかに。

下がTickField()関数。この後DrawField()関数が呼ばれ背景タイルが並べられた後、出来上がった仮想画面が実画面に転写されます。（そこまでで1フレーム）

let prex=gPX,prey=gPY;
let scx,scy;				//スクロール座標(1タイル動く間保持する移動量rgコピー向け)
let pre_dir;				//前回の進行方向保持
let f_1st=0;	//座標変化量計算できない瞬間の表示禁止フラグ(方向変化した瞬間のみ1)
let f_turn=0;	//座標変化量計算できない瞬間のパーティ表示禁止フラグ(-方向へ変化して2フレーム程のみ1)
let Qx=[0,0,0,0,0];let Qy=[0,0,0,0,0];let Qa=[0,0,0,0,0];	//パーティメンバの座標・向き
let Vx=[0,0,0,0,0];let Vy=[0,0,0,0,0];				//パーティメンバの移動方向
let dsx=[];let dsy=[];						//パーティメンバの表示座標

//	フィールド進行処理
function TickField(){
	if( gPhase != 0 ){	return;		}

(…ここはコントローラの入力受信…)

				pre_dir=gAngle;

(…ここはイベント・敵エンカウント判定…)

	if( gMoveX != 0 || gMoveY != 0 || gMessage1 ){f_1st=0;	}		//移動中又はメッセ表示中の場合
	if( gKey[100]||gKey[65]||p_axes[14]==1 ){	gAngle=1;gMoveX=-TSIZE;f_tile=1;dx=-1;dy=0;}//左[37]
	else{ if( gKey[104]||gKey[87]||p_axes[12]==1 ){	gAngle=3;gMoveY=-TSIZE;f_tile=1;dx=0;dy=-1;}//上[38]
	else{ if( gKey[102]||gKey[68]||p_axes[15]==1 ){	gAngle=2;gMoveX= TSIZE;f_tile=1;dx=1;dy=0;}//右[39]
	else{ if( gKey[ 98]||gKey[88]||p_axes[13]==1 ){	gAngle=0;gMoveY= TSIZE;f_tile=1;dx=0;dy=1;}//下[40]
	}}}//入力が無い時はそのまま抜けてくる→キー離しでgAngle更新されてしまう
			//マップ遷移1歩目と方向転換したフレームは表示禁止
			if( pre_dir!=gAngle||step_1st==0 ){f_1st=1;}
			//－軸方向へ転換したフレームはキャラの表示禁止
			if( pre_dir!=gAngle&&(gAngle==1||gAngle==3) ){f_turn=1;}

	//	移動後のタイル座標判定
	let	mx = Math.floor( ( gPX + gMoveX ) / TSIZE );		//	移動後のタイル座標X
	let	my = Math.floor( ( gPY + gMoveY ) / TSIZE );		//	移動後のタイル座標Y

	mx += Mapw;							//	マップループ処理X
	mx %= Mapw;							//	マップループ処理X
	my += Maph;							//	マップループ処理Y
	my %= Maph;							//	マップループ処理Y

	if( Kansho(Nowmap,mx,my)==1 ){						//	侵入不可の地形の場合
		gMoveX = 0;							//	移動禁止X
		gMoveY = 0;							//	移動禁止Y
	}else{
		if(f_tile==1){
			//Qx[0]:1人目、Qx[1]:2人目、Qx[2]:3人目、Qx[3]:4人目、Qx[4]:5人目
					Qx[0] = 0;Qy[0] = 0;
			for( i = 4; i > 0; i-- ){
				Qx[i] = dsx[i];//現状の座標コピー
				Qy[i] = dsy[i];
			}

			for( i = 4; i > 0; i-- ){
				Vx[i] = Qx[i] - Qx[i-1];
				Vy[i] = Qy[i] - Qy[i-1];
				Qa[i] = Qa[i-1];

				Vx[i] = TUG.Sign(Vx[i]);
				Vy[i] = TUG.Sign(Vy[i]);
			}
				//ループした時にトチ狂う
				Qa[0]=gAngle;
				f_tile=0;
				f_tileinn=1;
	}	}
}			//ここまではキッチリタイルに乗ってる部分

	if( gMoveX == 0 && gMoveY == 0 ){	f_tileinn=0;	}//これで移動終了

	if(f_tileinn==1){
				var tmpx,tmpy;
		if(Math.abs(scx)>TSIZE-SCROLL-1&&Math.abs(scx)<TSIZE-SCROLL+1){tmpx=TSIZE;}else{tmpx=Math.abs(scx);}
		if(Math.abs(scy)>TSIZE-SCROLL-1&&Math.abs(scy)<TSIZE-SCROLL+1){tmpy=TSIZE;}else{tmpy=Math.abs(scy);}
			for( i = 4; i > 0; i-- ){
				dsx[i] = Qx[i]-Vx[i]*Math.max(tmpx,tmpy)+dx*tmpx;
				dsy[i] = Qy[i]-Vy[i]*Math.max(tmpx,tmpy)+dy*tmpy;
					//		近＋		一律
			}
	}

	if(f_turn>2){
			vg_p.clearRect( plx-6*CHRW, ply-6*CHRH, CHRW*13, CHRH*13 );
		for( i = 4; i > 0; i-- ){
			vg_p.drawImage( gImgPlayer,
				(i*2+( gFrame >> 4 & 1 )) * CHRW, Qa[i] * CHRH, CHRW, CHRH,
				plx-dsx[i], ply-dsy[i], CHRW, CHRH );
		}
	}
		f_turn ++;

	gPX += TUG.Sign( gMoveX ) * SCROLL;		//	プレイヤー座標移動X
	gPY += TUG.Sign( gMoveY ) * SCROLL;		//	プレイヤー座標移動Y
	gMoveX -= TUG.Sign( gMoveX ) * SCROLL;			//	移動量消費X
	gMoveY -= TUG.Sign( gMoveY ) * SCROLL;			//	移動量消費Y

	//	マップループ処理
	gPX += ( Mapw * TSIZE );
	gPX %= ( Mapw * TSIZE );
	gPY += ( Maph * TSIZE );
	gPY %= ( Maph * TSIZE );
}

45行目～64行目がパーティメンバ座標・向き・進行方向を保持する部分。変数f_tileで制限してるのは1タイルピッタリの場所だけで行うため。

67行目～78行目がスムーズ移動のための演算。このルーチンは1フレームごとに通るので、1タイルピッタリでない時だけ通るよう制御してます。

また、1タイルピッタリでない時は表示のための座標dsx[]、dsy[]のみ更新し、それを座標として記憶するのは47～50行目の1タイルピッタリタイミング。

80行目～88行目が実際に仮想画面へ書き込む部分。最初の1、2フレームは演算できないため、非表示にして逃げています。(チラッと変なのが表示されるので)

その逃げるためのフラグが変数f_turn。29行目の判定で1にして、描き終わったらインクリメント→それを条件に表示命令を有効化するかどうかを決めています。

まごうこと無きひっどいスパゲティです。