■ＰＢＲＹ■
著作制作…………よなぷー
制作年月日………２０１６年２月６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １５２０ステップ
ＤＥＦＭ命令 ４８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
1 GOSUB #1
3 PRINT:PRINT "F";E;:IF G≠0;PRINT ":S";:S(G)=S(G)-2:IF S(G)≦0;G=0
5 L=9:IF W<0;PRINT ":G";
7 $="WALKMAGCRETNGATE":GOSUB #4:GOTO H*9
9 A=RAN#+SGN G*.2:IF A>.97;PRINT:PRINT "FIND!":W=-1
10 IF A<.5;W=RAN#:X=E*2:Y=E*6:GOSUB #3
11 GOTO 3
18 GOSUB #2:GOTO 3
27 GOTO 1
36 Y=0:IF W≧0 THEN 3
37 IF FRAC(.1*(E+1≠0 THEN 40
38 W=RAN#:X=E*3:Y=E*50:PRINT CSR8;"BOSS":GOSUB #3
39 IF E=99;IF Y≦0;W=.4:Y=15⊂3:PRINT "KING":GOSUB #3
40 IF Y≠π;E=E+1:W=0:IF E>F;F=E:IF E=100;PRINT CSR3;"GREAT!";:END
41 GOTO 3
P1
1 FOR J=1 TO 3:P(J)=Z(J):S(J)=Z(J+3):NEXT J:G=0:W=0
5 $="INN-TMPLMAZE":PRINT:PRINT "TOWN";:GOSUB #4:GOTO H*9
9 IF M↑2>Z THEN 5
10 PRINT CSR8;"LVUP":Z=0:FOR L=1 TO 3:GOSUB #7:Z(L)=Z(L)+K
11 Z(L+3)=Z(L+3)+INT((14-K)/2:NEXT L:M=M+1:GOTO 1
18 GOSUB #5:$="WARRFITRSAGEMAGE":PRINT:PRINT A;M$(A);"→";:GOSUB #4
19 $="WFSM":M$(A)=MID(H,1):GOTO 5
27 E=1:RETURN
P2
2 IF L=9;GOSUB #5:L=A
4 $="FIRELIFEKEENSEEKWARP-NO-":GOSUB #4:IF S(L)≦4;H=6
6 GOSUB #7:IF H=6;RETURN
8 STOP:S(L)=S(L)-5:GOTO H*9
9 Y=Y-INT(1+(1-W)*(B*M*8:RETURN
18 GOSUB #5:B=INT(B*M*8:P(H)=P(H)+B:IF P(H)≧Z(H);P(H)=Z(H)
19 PRINT:PRINT H;":H+";B:RETURN
27 C=2:RETURN
36 G=L*(1-SGN G:RETURN
45 E=F:W=0:RETURN
P3
1 C=1:L=1
2 GOSUB 35:PRINT CSRL*2-1;"→";:IF P(L)≧1;GOSUB #4:GOSUB H*9
4 IF Y=π;RETURN
5 IF Y≦0;PRINT "WIN!":Z=Z+INT(X*1.8:RETURN
6 L=L+1:IF L=4;GOSUB 35:L=1:GOTO 40
7 GOTO 2
9 PRINT CSR0;"*";:GOSUB #7:Y=Y-INT(W*C*M*8*A+1:RETURN
18 GOSUB #2:L=L-INT(H/6:RETURN
27 IF RAN#<.3;STOP:Y=π
28 RETURN
35 $="ATCKMAGCRUN-wfm":PRINT:PRINT MID(13+W*3,1);
36 PRINT "●";N$;"●";O$;"●";P$;:RETURN
40 J=INT(RAN#*3+1:H=INT(X/J:IF P(J)≦0 THEN 40
50 PRINT CSRJ*2;"*";CSR8;H;:P(J)=P(J)-H:IF P(J)≦SIN COS TAN π;P(J)=0
60 IF Q+R+S≧1 THEN 2
70 Z=0
P4
4 H=1
8 PRINT CSR8;MID(H*4-3,4);:IF KEY="Q";H=H-SGN(H-1
20 IF KEY="W";H=H+SGN(INT(LEN($)/4)-H
30 IF KEY="-";RETURN
40 IF KEY≠"6" THEN 8
50 PRINT:PRINT "L";M,"E";Z;M↑2
60 FOR J=1 TO 3:PRINT J;M$(J),"→H";P(J),"→M";S(J):NEXT J:GOTO 8
P5
10 $="--→1--→2--→3":GOSUB #4:A=H:RETURN
P7
10 D$=M$(L):IF D$="W";A=.9:B=.1:K=12
20 IF D$="F";A=.7:B=.5:K=10
30 IF D$="S";A=.3:B=.7:K=8
40 IF D$="M";A=.1:B=.9:K=7
50 RETURN
P9
10 PRINT CSR4;"PBRY":VAC:M=1:F=1
20 FOR J=1 TO 3:M$(J)="W":Z(J)=8:Z(J+3)=8:NEXT J:GOTO #0
著作制作…………よなぷー
制作年月日………２０１６年２月６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １５２０ステップ
ＤＥＦＭ命令 ４８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
1 GOSUB #1
3 PRINT:PRINT "F";E;:IF G≠0;PRINT ":S";:S(G)=S(G)-2:IF S(G)≦0;G=0
5 L=9:IF W<0;PRINT ":G";
7 $="WALKMAGCRETNGATE":GOSUB #4:GOTO H*9
9 A=RAN#+SGN G*.2:IF A>.97;PRINT:PRINT "FIND!":W=-1
10 IF A<.5;W=RAN#:X=E*2:Y=E*6:GOSUB #3
11 GOTO 3
18 GOSUB #2:GOTO 3
27 GOTO 1
36 Y=0:IF W≧0 THEN 3
37 IF FRAC(.1*(E+1≠0 THEN 40
38 W=RAN#:X=E*3:Y=E*50:PRINT CSR8;"BOSS":GOSUB #3
39 IF E=99;IF Y≦0;W=.4:Y=15⊂3:PRINT "KING":GOSUB #3
40 IF Y≠π;E=E+1:W=0:IF E>F;F=E:IF E=100;PRINT CSR3;"GREAT!";:END
41 GOTO 3
P1
1 FOR J=1 TO 3:P(J)=Z(J):S(J)=Z(J+3):NEXT J:G=0:W=0
5 $="INN-TMPLMAZE":PRINT:PRINT "TOWN";:GOSUB #4:GOTO H*9
9 IF M↑2>Z THEN 5
10 PRINT CSR8;"LVUP":Z=0:FOR L=1 TO 3:GOSUB #7:Z(L)=Z(L)+K
11 Z(L+3)=Z(L+3)+INT((14-K)/2:NEXT L:M=M+1:GOTO 1
18 GOSUB #5:$="WARRFITRSAGEMAGE":PRINT:PRINT A;M$(A);"→";:GOSUB #4
19 $="WFSM":M$(A)=MID(H,1):GOTO 5
27 E=1:RETURN
P2
2 IF L=9;GOSUB #5:L=A
4 $="FIRELIFEKEENSEEKWARP-NO-":GOSUB #4:IF S(L)≦4;H=6
6 GOSUB #7:IF H=6;RETURN
8 STOP:S(L)=S(L)-5:GOTO H*9
9 Y=Y-INT(1+(1-W)*(B*M*8:RETURN
18 GOSUB #5:B=INT(B*M*8:P(H)=P(H)+B:IF P(H)≧Z(H);P(H)=Z(H)
19 PRINT:PRINT H;":H+";B:RETURN
27 C=2:RETURN
36 G=L*(1-SGN G:RETURN
45 E=F:W=0:RETURN
P3
1 C=1:L=1
2 GOSUB 35:PRINT CSRL*2-1;"→";:IF P(L)≧1;GOSUB #4:GOSUB H*9
4 IF Y=π;RETURN
5 IF Y≦0;PRINT "WIN!":Z=Z+INT(X*1.8:RETURN
6 L=L+1:IF L=4;GOSUB 35:L=1:GOTO 40
7 GOTO 2
9 PRINT CSR0;"*";:GOSUB #7:Y=Y-INT(W*C*M*8*A+1:RETURN
18 GOSUB #2:L=L-INT(H/6:RETURN
27 IF RAN#<.3;STOP:Y=π
28 RETURN
35 $="ATCKMAGCRUN-wfm":PRINT:PRINT MID(13+W*3,1);
36 PRINT "●";N$;"●";O$;"●";P$;:RETURN
40 J=INT(RAN#*3+1:H=INT(X/J:IF P(J)≦0 THEN 40
50 PRINT CSRJ*2;"*";CSR8;H;:P(J)=P(J)-H:IF P(J)≦SIN COS TAN π;P(J)=0
60 IF Q+R+S≧1 THEN 2
70 Z=0
P4
4 H=1
8 PRINT CSR8;MID(H*4-3,4);:IF KEY="Q";H=H-SGN(H-1
20 IF KEY="W";H=H+SGN(INT(LEN($)/4)-H
30 IF KEY="-";RETURN
40 IF KEY≠"6" THEN 8
50 PRINT:PRINT "L";M,"E";Z;M↑2
60 FOR J=1 TO 3:PRINT J;M$(J),"→H";P(J),"→M";S(J):NEXT J:GOTO 8
P5
10 $="--→1--→2--→3":GOSUB #4:A=H:RETURN
P7
10 D$=M$(L):IF D$="W";A=.9:B=.1:K=12
20 IF D$="F";A=.7:B=.5:K=10
30 IF D$="S";A=.3:B=.7:K=8
40 IF D$="M";A=.1:B=.9:K=7
50 RETURN
P9
10 PRINT CSR4;"PBRY":VAC:M=1:F=1
20 FOR J=1 TO 3:M$(J)="W":Z(J)=8:Z(J+3)=8:NEXT J:GOTO #0
コメント