■ＴＲＩＰＬＥＸ■
著作制作…………よなぷー
制作年月日………２０１７年９月１２日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １５２８ステップ
ＤＥＦＭ命令 ４０ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
1 IF B≦0;END
2 FOR P=0 TO 3:K(P)=INT(RAN#*5+1:NEXT P:P=0
3 PRINT CSR0;Z$(K);Z$(L);Z$(M);Z$(N);CSRP*2;"→";
4 GOSUB #7:IF Y=1;P=P+SGN(3-P:GOTO 3
5 IF Y=0 THEN 3
6 W=K(P):X=0:PRINT:IF W=1;R=.15:S=2:T=.6:U=.1
7 IF W=2;R=.5:S=3:T=.2:U=.05
8 IF W=3;R=.2:S=6:T=.3:U=.15
9 IF W=4;R=.1:S=3:T=.1:U=.4
20 IF W=5;PRINT "Inn";:B=1⊂9:GOSUB #6:K(P)=4:GOSUB #1:P=0:GOTO 3
30 PRINT CSR0;Z$(W);":";B;C;"●";:P=RAN#:GOSUB #8
40 IF P≦R;GOSUB #3:GOTO 70
50 IF P>R;IF P≦R+T;N=INT(RAN#*2+1:PRINT "+";:GOSUB #4:GOTO 70
60 IF P>R+T;IF P≦R+T+U;N=-1:PRINT "-";:GOSUB #4
70 C=C-S:IF C≦0;C=0:IF E≧1;E=E-1:C=30:PRINT "Eat!";:GOSUB #8
80 IF C=0;B=B-2:PRINT "!";:GOSUB #6
90 X=X+INT(RAN#*3+1:IF X≦9 THEN 30
100 Z=Z+1:GOTO 2
P1
4 $="FdSwAxMcEx":P=0
8 PRINT:PRINT MID(P*2+1,2);Z*3;E(P);:GOSUB #7:IF Y=0 THEN 8
20 IF Y=1;P=P+SGN(4-P:GOTO 8
30 IF P≦3;IF D≧Z*3;D=D-Z*3:E(P)=E(P)+1:PRINT "!";:GOSUB #8
40 IF P≠4 THEN 8
50 RETURN
P3
1 PRINT "Enemy!";:GOSUB #8:$="SwAxMcRnBmsSaAmM":P=0
3 R=INT(RAN#*6:T=Z+Z*SGN FRAC(R/2:U=T*2:Q$=MID(11+R,1)
5 R=INT(R/2:IF RAN#≧.6;Q$="v"+Q$:U=U*2
7 IF RAN#≧.6;Q$="p"+Q$:T=T*2
9 PRINT:PRINT Q$;U;MID(P*2+1,2);F(P);:GOSUB #7:IF Y=0 THEN 9
20 IF Y=1;P=P+SGN(4-P:GOTO 9
25 IF P=4;IF J≧1;J=J-1:PRINT "!";:GOSUB #8:GOTO 70
30 IF P=3;IF RAN#>.3;PRINT "S";:GOTO #8
35 IF P≧3;P=INT(RAN#*2
40 L=P-R:IF L=-2;L=1
45 IF L=2;L=-1
50 N=2:IF L=0;N=A*2
55 IF F(P)≧1;F(P)=F(P)-1:IF 0>L;N=A*3+INT(RAN#*16+4
60 PRINT:PRINT "Hit!";N;:GOSUB #8:U=U-N:IF U≦0 THEN 70
65 PRINT "Dam!";T;:B=B-T:GOSUB #6:GOTO 9
70 PRINT "Win!";:A=A+1:D=D+T:GOTO #8
P4
10 P=INT(RAN#*9:IF P≧5;PRINT "Hp!";:B=B+N*Z+N:GOTO #6
20 IF D(P)+N≦0;N=0
30 $="GdFdSwAxMc":PRINT MID(P*2+1,2);"!";:D(P)=D(P)+N:GOTO #8
P6
10 IF B≧A*4+8;B=A*4+8
20 IF B≧1 THEN #8
30 STOP:PRINT "Lv";A:IF A≧O;O=A:INPUT "Name",V$
40 IF A≧50;PRINT "Great!";
P7
9 Y=0:IF KEY="Q";P=P-SGN P:RETURN
20 IF KEY="W";Y=1:RETURN
30 IF KEY="-";Y=2:RETURN
40 IF KEY≠"6" THEN 9
50 PRINT:PRINT A;"Lv:Hp";B,C;"St:Fd";E,"Gd";D
60 PRINT "Sw";F,"Ax";G,"Mc";H,"Bm";J:RETURN
P8
10 FOR I=99 TO 1 STEP -1:NEXT I:PRINT:RETURN
P9
10 PRINT "●●■TRIPLEX","Top";O,"By●";V$:A=1:B=12:C=30
20 D=0:E=1:F=3:G=3:H=3:J=2:Z=1:$="●_●ク●△●Σ●￥":FOR P=1 TO 5
30 Z$(P)=MID(P*2-1,2):NEXT P:GOTO #0
(DEFM 5)
