関　救助隊

プログラムの仕組み
　１２２０行までがメインルーチンで、あとはサブルーチンです。
　@主な変数
　Ｍ（２５，１９）　　迷路（０−壁、１−道）
　ＭＸ（１３０）　　　迷路作成時　迷路のＸ座標
　ＭＹ（１３０）　　　　　　　　　迷路のＹ座標
　Ｚ１（９３）　　　　壁のパターン
　Ｚ２（９３）　　　　道
　Ｚ３（５００）　　　隊長（０−上、１００−左、
　　　　　　　　　　　　　　３００−右、４００−下）
　ＺＴ（４００）　　　０−赤い球、１００−緑の球、
　　　　　　　　　　　２００−黒い球、３００−カギ
　ＺＯ（３００）　　　０−火の玉、１００−お化け@、
　　　　　　　　　　　　　　　　　２００−お化けA
　ＺＺ（４０００）　　自分の前方の状況
　Ｘ（２），Ｙ（２）　火の玉、お化け@AのＸ，Ｙ座標
　ＨＣ（２）　　　　　パターン作成時　球の色を変えるときに使用
　ＭＣ　　　　　　　　　　　　　　　　元の色
　ＳＣ　　　　　　　　得点
　ＨＳ　　　　　　　　最高得点
　Ｐ（３），Ｑ（３）　球のＸ，Ｙ座標（０＝赤、・・２＝黒、３＝カギ）
　Ｖ（１）　　　　　　移動方向（０＝火の玉、１＝お化け）
　Ｍ　　　　　　　　　迷路数
　Ｗ　　　　　　　　　残りの時間（１０００から５００へ）
　Ｄ　　　　　　　　　隊長が死亡したか（１＝死亡）
　Ｕ　　　　　　　　　出口のＹ座標
　ＸＸ，ＹＹ　　　　　移動するＸ，Ｙ座標の増加分
　ＴＴ　　　　　　　　球を使うか（１＝赤、２＝緑、３＝黒）
　Ｘ，Ｙ　　　　　　　隊長のＸ，Ｙ座標
　ＢＢ　　　　　　　　毒薬が置かれたか（１＝置かれた）
　Ｖ　　　　　　　　　隊長の向き
　　　　　　　　　　　迷路作成時　道の進む方向

　Aフローチャート（もどき）
　　１　準備・音
　　２　タイトル画面　　　　　　　　　　　　　２３２０
　　３　迷路数＋１−＞１１面なら救出−＞再挑戦Ｙ−＞２
　　　　　　　　　　　　　　　　　　　　　　　Ｎ−＞１１
　　４　残りの日数−１−＞０なら失敗−＞再挑戦Ｙ−＞２
　　　　　　　　　　　　　　　　　　　　　　　Ｎ−＞１１
　　５　隊長移動　　　　　　　　　　　　　　　１２００
　　６　あたり判定−＞隊長死亡なら失敗−＞再挑戦Ｙ−＞２
　　　　　　　　　　　　　　　　　　　　　　　　Ｎ−＞１１
　　７　得点表示　　　　　　　　　　　　　　　１９１０
　　８　妖怪移動　　　　　　　　　　　　　　　１６５０
　　９　あたり判定−＞隊長死亡なら失敗−＞再挑戦Ｙ−＞２
　　　　　　　　　　　　　　　　　　　　　　　　Ｎ−＞１１
　１０　隊長が出口なら１面クリア−＞３
　　　　　　　　　　　　途中なら−＞４
　１１　終了

　B改造のアドバイス
　サブルーチン毎にまとまっているので、フローチャート（もどき）を参考にして、変えたいところをさがして変えてください。
　妖怪の移動が速いと思う人は、次の行を入れて［．８］の数字を変えて
　　　　1140 ・・・IF RND(1)<.8-.05*M THEN 1160
　みてください。小さい方がはやくなります。

[　戻る　]