タイニーRPG最終進化!!
トロネコの大冒険4
by PBロッキー

プログラムリスト

P0
1 E=B:F=G*90:H=SIN F-COS F*9:I=SIN F*9+COS F:FOR J=0 TO 2:K=J*6-1
2 FOR L=1 TO 2:IF FRAC (1ₑ3*SQR (E+H*L<.5;K=K+L:L(J*ABS O)=2
3 NEXT L:E=B-H+I:I=-I:O(J)=K:NEXT J:PRINT
4 PRINT A;MID(P,1);MID(10-O,1);MID(Q,1);MID(G+1,1);R;CSR 3;
5 IF B≦13+D*43;C=362:D=7:PRINT "♥( Fin":GOTO #1
6 IF B+H=51+D*46;PRINT "□";:IF A=3;O=4:PRINT CSR 3;" ";
7 W=X+7:IF B=C+99;R=INT W*4:PRINT "'";
8 IF RAN#<.1 THEN 13
9 IF KEY="4";G=G-3+4*SGN (3-G:GOTO 1
10 IF KEY="6";G=G+3-4*SGN G:GOTO 1
11 IF KEY≠"5" THEN 9
12 B=B+H*SQR ABS O:IF O≠4 THEN 1
13 V=O+7+INT ABS (COS B*4:S=V*5:PRINT CSR 3;MID(V+9,1)
14 R(J)=R(J)-INT (RAN#*V(J):PRINT :PRINT R;S;:IF R<1 THEN #1
15 J=RAN#↑RAN#↑RAN#+FRAC π:IF KEY="0";IF J≧1 THEN 1
16 IF S>0 THEN 14
17 IF V(J)=A+9;A=A+1:PRINT "♦"
18 X=X+SQR V/W:GOTO 1
P1
1 A=0:B=C+99:$="↑←↓→ )○>･○ (○<syπΩS& @¥"

移動画面がもたつきますがバグではありません．なるべく高速な機種、PB-100等の（いわゆる）Ver.1 BASIC機でのプレイを推奨します．

PB-100 の初期出荷バージョンの一部で正しく動作しないケースがあります．その際はPB-100初期出荷バージョンの異常動作についてを参照してリストを変更してください．

技術情報

変数表

行番号マップ

今作で解説すべきは1～3行の視界計算だけでしょう．

迷路データは数式から

まず、壁や通路の情報の入った迷路データの見当たらないないことに驚かれることでしょう．本作では数式から迷路を生成しています． これは昔の雑誌の PB-100 用投稿ゲームでは、しばしば見かけたテクニックです．

IF FRAC (1ₑ3*SQR (E+H*L<.5;K=K+L:L(J*ABS O)=2

2行目の FRAC(1000 × √座標) が0.5より小さければその座標は壁、0.5以上なら通路になります．

しかしこれだけで、迷路の形が決まるのではありません． 座標（B）は、X 方向に 1 歩進む時は +1 または -1、そして Y 方向には +9 または -9 しています．この Y 方向の値が変わることでも迷路の形が変わります．

1つの変数で2つのデータを扱う

X･Y 座標の2つの値を1つの変数で扱うのは、これもよく見かけたテクニックです．

その理由はマップは2次元ですがメモリの都合から1次元的にデータ化することが多く、それとの相性を考えてのことでしょう． 30文字まで入る $ はしばしば迷路データの格納に使われました．16進数を応用してデータを処理し、1フロアにつき最大 6×5 マスの迷路を PB-100 の中に出現させたのです．

本作では省メモリ以上に、広大で不定形な迷路をつくるのに一役かっているのですが、簡潔に説明するうまい言葉が見つかりません…

3歩進んで2歩下がる

F=G*90:H=SIN F-COS F*9:I=SIN F*9+COS F

1行目で求めている前（H）と左（I）のとる値は、 それぞれ -9,1,9,-1（H）、1,9,-1,-9（I）となります．

これは、トロネコの向き（F）から求めた前方と左方の値になります．（なんかこの辺り、うまい表現じゃありませんね．．．） 例えば、現在位置（B）に対して左斜め前の座標は B+H+I に、右隣は B-I に、 2マス前は B+2*H になります．

これだけわかれば2～3行や6行、12行の解析は容易でしょう．ちなみに前進は B=B+H でできますね．

J=RAN#^RAN#^RAN#+FRAC π

R(J)=R(J)-INT(RAN#*V(J))