ランダムで生成される迷路を歩いて、ゴールを目指すシンプルな迷路脱出ゲームだ。なんと1画面プログラムだぞ。
プログラムを実行するとスグにゲーム開始。左上に表示されたプレイヤーを十字キーで操作して、右下のゴールを目指そう。
ゴールに辿り着いたらゲームクリア。プログラム終了となる。
こあ / co.a
今回は1画面プログラムとして迷路ゲームをお送りします。
コード圧縮のためマルチステートメントと論理式を濫用しました。今時の言語で書くとタコ殴りにされること間違いなしのコードです。
なお、迷路生成アルゴリズムは「棒倒し法」の簡易版です。壁の重複判定が不要な代わりに、生成される迷路は単調です。
- CLS:FOR I=0TO 190:X=(I%16)*2
- Y=(I-X/2)/8:P=I%176<15:L=X<3
- R=(RND(2+(Y<3)+L)-L)*(X%30>0)
- P=P+R*(P<1):?”В”:LOCATE X,Y
- ?”В”:LOCATE X+P%2,Y-(P-1)%2
- NEXT:X=1:Y=1:FOR I=0TO 2
- B=BUTTON():W=1-(B%4+1)%3:?”г”
- V=1-((B-B%4)/4%4+1)%3:VSYNC 6
- LOCATE X,Y:IF B%16<1GOTO @N
- IF CHKCHR(X+V,Y+W)GOTO @N
- ?CHR$(0):X=X+V:Y=Y+W:BEEP 9
- @N
- LOCATE X,Y:I=X/57+Y/42:NEXT