TRIPLEX プログラム

■ＴＲＩＰＬＥＸ■

　著作制作…………よなぷー

　制作年月日………２０１７年９月１２日

　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム

　使用メモリ………プログラム本体　１５２８ステップ

　　　　　　　　　ＤＥＦＭ命令　　　　４０ステップ

　※「クラブ」「スペード」「ハート」は、その記号を入力してください。

　※「●」はスペース一個です。

　※「○」は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)