トロネコの大冒険4
過去バージョンの保管庫

バージョンアップ履歴

バージョン 1.2.1より前のリストも順次追加していきます．

バージョン 1.2.1

2004年4月21日公開．Version 1.2.0からトロネコの HP が0でも戦闘が継続したバグを修正した．

プログラムリスト

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等の（いわゆる）Pocket BASIC Version 1機でのプレイを推奨します．

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

変数表

行番号マップ

バージョン 1.2.0

準備中です．