Petitverse

落としてみました。
一から作っているんですね。

GOSUBを使って配列を初期化している箇所はDEF文を使うと便利になります。

キャラ移動の所でSPANIMとSPCHRが続く所はDEF文で関数化すれば一行にまとめることができると思います

591行目からのデータの羅列と代入をIF文で行っている所はREAD,DATA文でスッキリ書けます。RESTOREも使ってみてください。

細かい所までは見ていませんが、横移動時に壁にめり込んだ時にブルブル震えてしまうのは移動と壁の判定が前後しているからだと思うので、全ての移動処理が終わってから壁や攻撃の判定と補正処理に行けるといいですね。

せっかく求められてるので全力で指摘しようと思いましたが、まさかの4専用でしたか。
軽く読んでみましたが、セオリー通りでお手本のような良いコードだと思いました。

いくつか気になった点
前のコメントのDEFとGOSUBは機能としてはどちらもサブルーチンを作るものなので、完全に好みになります。DEFだと、DEF〜END内のみで使える「ローカル変数」というものを使えますが、その分速度が遅くなります。配列の初期化ならGOSUBも十分ありだと思います。

せっかくキャラの移動をサブルーチン化されてるので、SPFUNCを使えるとスマートかつ高速になります。(ただし、難しいです)最初にSPFUNCでスプライトごとのサブルーチンを設定して、メインループ内でGOSUBの代わりにCALL SPRITEです。

座標を配列で書いてますが、SPOFS OUTを使うと必要なくなるかもしれません。(ただし、統一感が無くなるので好みになります)

メインループはLOOP〜ENDLOOPの方が個人的には好みです。(GOTOは出来るだけ無い方が好まれます。個人的にはBREAK,CONTINUEよりはましだと思います)

SPCOLをキャラクタの移動時に毎回書いてるように見えますが、最初に一回書くだけで良いです。

見てみました。

「ダメージはんてい」の箇所、
プレイヤーを表している「P」と判定用にループさせている「ID」がごちゃまぜになっている印象です。配列の中のPとIDを再度確認したほうが良さそう。

最初の配列定義でPLCOUNTは5としていますが、実際には0は使用せず1〜4を使用して表示・判定しているようですが、ソース内にFORループをID=1から書いている箇所と直接配列参照を「+1」で書いているところが混在しています。
おそらくこれが判定のズレる原因になっている思います。（PとループしているIDの判定をしたいのに、判定行にPBOD[ID]+1みたいな記述があると一つズレてしまう）
なかなか慣れないかもしれませんがPLCOUNT=4
0〜3で扱うプログラムに全変更することをおすすめします。そうすれば+1と書く必要がなくなります

ソースコードに手を入れてみました。
公開キー【4QZ25JXA3】
ファイル名「MAIN2.PRG」

と言ってもスペースを入れまくってインデントの調整だけしたソースだけです。

インデントの方針としては
・GOSUBの中に入ったら一段下げる
・IF,FORの中に入っても一段下げる
・IF,ElSE,ENDIFは同じ段に揃える
・FOR,NEXTも同じ段に揃える
私はこのように記述しています

一箇所だけソースから関数化してみました。
949行目のIF文が右端まで行っているので関数化しました。
970行目からのDEF文になります。
参考になれば幸いです

お役に立てて良かったです。
現状のソースコードを見てて思うのは
・二次元配列も使ったほうが良さそう
・IF〜ENDIFの間が１ページ越えるような長い処理はGOSUBにまとめる
など行うと見やすくなりそう。

入れたいものどんどん組み込んでください