幸いなことに昨日の夜の決意が まだ揺らいでいません。多分。 それでコンソールの移動と当たり判定の処理は 一応出来るには出来たんですが… 当たり判定が一点ではなく壁になった時に 面倒だな… 何か良い方法ありませんでしょうか。

さっきのプログラムだと このニコチャンに重ならないようにするのは できたんですが、 これがずらーーっと縦とかに 並んだ時、判定をつけるのが 面倒なんですよね…

おおっと訂正。 プレイ日記に載せたリストに脱字が。 正しくはこちら。

配列でどこに何がいるかを覚えておくといいんじゃない？ 移動先の座標の配列にマークがいる時は移動しない！みたいなだと1つずつ確認しなくていいよ 妄想で書いたから動かしてないけど貼っとく

なるほど、配列ですか… 使ったことなかったです。 ちょっとこの機会に使えるように ならないとですね。

２次元だと当たり判定は点より線、線より面の方が簡単だったりしません？ 点ならX==○&&Y==○が線ならX==○もしくはY==○、面ならX>=○（もしくはX<=○）かY>=○（略）みたいな感じで領域を指定できるかと。

な、なるほど…！ 確かに線、面の方が簡単ですね。 マップづくりとかに役に立ちそうです。 複数のNPCが出てきたときどうしようかな… 何か扱ったこと無いんですけど、 DATA文とか使えたりするんですかね？

こめのこ&画像の命令って使えるのかな?

DATAと配列…こうかな?

ボタン入力時にX,Yの座標を記憶しておいて移動先に障害物があるか どうかをCHKCHR関数で調べて障害物があった場合はX、Yの座標を 記憶していた座標に戻すようにするのはどうでしょうか？

CHKCHRが使えそうと思い とりあえず想像だけで使ってみました。 案の定、想像でしたら挙動がおかしくなった… 一回右か下に移動すると、もう左と上に 行けなくなるんですよね… 原因が探してもよくわからんのです…

ボタンの判定はIFを使わなくても 出来るよ

少しずつ直していきましょうか。 まず、BUTTON関数で取得した情報で移動方向と車の向きを決めるところですが 移動をする前に今のプレイヤーのX,Y座標を記憶しましょう。 A=BUTTON(1):OX=X:OY=Y IF A==1 THEN Y=Yｰ1:A$="↑":IF Y<0 THEN Y=OY IF A==2 THEN Y=Y+1:A$="↓":IF Y>29 THEN Y=OY IF A==4 THEN X=Xｰ1:A$="←":IF X<0 THEN X=OX IF A==8 THEN X=X+1:A$="→":IF X>49 THEN X=OX 座標が画面の外に出てしまう場合は移動前の位置に戻しましょう。 矢印↑↓←→は車の向きだと思って下さい。

CH=CHKCHR(X,Y) IF CH!=0 THEN X=OX:Y=OY LOCATE OX,OY:PRINT CHR$(0); LOCATE X,Y:PRINT A$; VSYNC GOTO @LOOP あ、BUTTON関数の前に@LOOPのラベルを付けるのを忘れてたんで 追加してくださいね。 キャラクターを消す場合は” ”（空白）ではなくCHR$(0)を使いましょう。 ACLSやCLS命令を実行すると画面はCHR$(0)で埋め尽くされます。 表示してたキャラクタを消すのに" "（空白）を使うとCHKCHR関数で キャラクタコード取得した場合に見えない障害物があることになってしまいます。

お…おおおっ、動く、動く！ ちゃんと今いるところを記憶させてたり すると便利なんですね。 そして… なるほど、確かに“　”で文字を消すと そこにCHKCHRが反応しちゃいますね。 さっき自分の組んだもので挙動がおかしく なっていたのはそのせいでしたか… 一度こういう風に他の人から分かりやすく アドバイスしてもらうと、 一体自分のプログラムのどこが悪かったのかが わかって良いですね。 otta777さん、そして他にも案を出してくれた 皆さん、ありがとうございます。