■ＳＴＲＵＧＧＬＥＲＳ ０■
著作制作…………よなぷー
制作年月日………２０１５年４月１日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※￥の文字化けを修正しました。
※「Duel」の前の空白は３つです。
◆◆◆ P0 ◆◆◆
3 GOTO 72
6 PRINT:PRINT CSR10;M;CSRH;F$;CSRG;E$;
9 B=INT(RAN#*3-1:IF RAN#>.9;B=3
12 IF ABS(G-H≦RAN#*3;B=INT(RAN#*2+2
15 IF W≧1;W=W-1:GOTO 33
18 K=0:GOSUB #1:IF C≠0;GOSUB #3:GOTO 33
21 IF KEY="Q";G=G-SGN G:GOTO 33
24 IF KEY="W";G=G+SGN(10-G:GOTO 33
27 IF KEY="-";GOSUB #2
30 IF KEY="6";GOSUB #1:GOSUB #3
33 IF X≧1;X=X-1:GOTO 48
36 K=1:A=H:P=G:GOSUB #4:IF D≠0;GOSUB #3:GOTO 48
39 IF B<0;H=H-SGN H
42 IF B=1;H=H+SGN(10-H
45 IF B≧2;GOSUB #B
48 IF M≦0 THEN 69
51 IF N≧1 THEN 6
54 PRINT CSR4;"Win":Z=Z+M:IF J≦9 THEN 81
57 $="Yatta!MitakaUresiiNinNinDouda!"
60 IF I≧6;I=I-5:$="Banzai･･･FunHaHaHaBakameMudada"
63 FOR S=0 TO 10:PRINT:PRINT CSRS;E$;:Y=SIN COS TAN π:NEXT S
66 PRINT CSR1;"("+MID(I*6-5,6)+"!>";
69 STOP:PRINT "Score=";Z:IF Z=90;PRINT "Perfect!"
72 VAC: PRINT "STRUGGLERS 0":I=1:$="クラブΩπμスペード＆ハート￥Σ◆=×=×=÷≠+"
75 E$=MID(I,1):PRINT CSR4;"1P=";E$;:IF KEY="6";I=1+I*SGN(10-I
78 IF KEY≠"-" THEN 75
81 J=J+1:GOSUB #8:PRINT
84 PRINT " Duel";J:M=9:N=9:G=3:H=7:X=0:F$=MID(J,1):GOTO 6
◆◆◆ P1 ◆◆◆
10 A=G:P=H:GOTO #4
◆◆◆ P2 ◆◆◆
2 IF T=0 THEN 8
4 PRINT CSRA+T;"-";:IF A+T≠P;RETURN
6 V=1:GOTO #6
8 PRINT:PRINT CSR10;M;:FOR S=1 TO 3:GOSUB 6
20 A=A+SGN(5.5-P:PRINT CSRA;"#";:NEXT S:G(K)=A:RETURN
◆◆◆ P3 ◆◆◆
2 IF C(K)=0;Q(K)=T:IF T*FRAC SQR I(K)=0;C(K)=A*ABS T:IF T=0;RETURN
4 IF K=0;T=SGN Q:C=C+T:S=ABS C:GOTO 8
6 T=SGN R:D=D+T:S=ABS D
8 U=A+T:GOTO I(K)*9
9 V=3:GOTO #5
18 IF S=1;RETURN
19 PRINT CSRU;"=";:V=7:IF U≠P THEN #7
20 FOR S=11 TO 15:PRINT CSRP;MID(S+SIN π,1);:NEXT S:GOTO #6
27 PRINT CSRA;"z";:IF S≦2;RETURN
28 PRINT CSR U;"■";CSRU+T*SGN FRAC(U/10;"■";:IF P≠U;IF P≠U+T THEN #7
29 W(L)=4:GOTO #8
36 V=4:C(K)=S+T*SGN S:GOTO #5
45 V=3:G(K)=ABS(10-A:IF G(K)=P THEN #6
46 GOTO #7
54 IF S=1;G(K)=U:RETURN
55 IF U=P;FOR Y=0 TO 2:GOSUB #2:NEXT Y
56 GOTO #7
63 IF S=1;Q(K)=P:PRINT CSRP;"＇";:C(K)=2:RETURN
64 PRINT CSRQ(K);"↓";:V=3:GOSUB #4:IF P=Q(K) THEN #6
65 GOTO #7
72 PRINT CSRA;"Y";:V=3:IF S≦2;RETURN
73 FOR S=0 TO 2:IF ABS(A+T-5≦5;A=A+T
74 PRINT CSRA;"￥";:IF A=P;GOSUB #6:S=2
75 NEXT S:G(K)=A:GOTO #7
81 V=2:GOSUB #5:S=C(K):IF S≠0;S=S+T:C(K)=S:GOTO #5
82 RETURN
90 PRINT CSRA;"△";:V=4:IF S=1;RETURN
91 FOR S=1 TO 3:Y=2*S*T+A:IF ABS(Y-5≦5;PRINT CSRY;"V";:IF Y=P;GOSUB #6
92 NEXT S:GOTO #7
◆◆◆ P4 ◆◆◆
10 L=1-K:T=SGN(P-A:RETURN
◆◆◆ P5 ◆◆◆
10 PRINT CSRS;MID(14+V,1);:Y=COS K:IF S=P;GOSUB #6
20 IF S>9 THEN #7
30 RETURN
◆◆◆ P6 ◆◆◆
10 PRINT CSRP;"*";:M(L)=M(L)-V:IF RAN#<.05;W(L)=4:PRINT CSRP;"!";
20 G(L)=P+T*SGN FRAC(P/10:GOTO #8
◆◆◆ P7 ◆◆◆
10 C(K)=0:RETURN
◆◆◆ P8 ◆◆◆
10 B=0:C=0:D=0:RETURN
著作制作…………よなぷー
制作年月日………２０１５年４月１日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※￥の文字化けを修正しました。
※「Duel」の前の空白は３つです。
◆◆◆ P0 ◆◆◆
3 GOTO 72
6 PRINT:PRINT CSR10;M;CSRH;F$;CSRG;E$;
9 B=INT(RAN#*3-1:IF RAN#>.9;B=3
12 IF ABS(G-H≦RAN#*3;B=INT(RAN#*2+2
15 IF W≧1;W=W-1:GOTO 33
18 K=0:GOSUB #1:IF C≠0;GOSUB #3:GOTO 33
21 IF KEY="Q";G=G-SGN G:GOTO 33
24 IF KEY="W";G=G+SGN(10-G:GOTO 33
27 IF KEY="-";GOSUB #2
30 IF KEY="6";GOSUB #1:GOSUB #3
33 IF X≧1;X=X-1:GOTO 48
36 K=1:A=H:P=G:GOSUB #4:IF D≠0;GOSUB #3:GOTO 48
39 IF B<0;H=H-SGN H
42 IF B=1;H=H+SGN(10-H
45 IF B≧2;GOSUB #B
48 IF M≦0 THEN 69
51 IF N≧1 THEN 6
54 PRINT CSR4;"Win":Z=Z+M:IF J≦9 THEN 81
57 $="Yatta!MitakaUresiiNinNinDouda!"
60 IF I≧6;I=I-5:$="Banzai･･･FunHaHaHaBakameMudada"
63 FOR S=0 TO 10:PRINT:PRINT CSRS;E$;:Y=SIN COS TAN π:NEXT S
66 PRINT CSR1;"("+MID(I*6-5,6)+"!>";
69 STOP:PRINT "Score=";Z:IF Z=90;PRINT "Perfect!"
72 VAC: PRINT "STRUGGLERS 0":I=1:$="クラブΩπμスペード＆ハート￥Σ◆=×=×=÷≠+"
75 E$=MID(I,1):PRINT CSR4;"1P=";E$;:IF KEY="6";I=1+I*SGN(10-I
78 IF KEY≠"-" THEN 75
81 J=J+1:GOSUB #8:PRINT
84 PRINT " Duel";J:M=9:N=9:G=3:H=7:X=0:F$=MID(J,1):GOTO 6
◆◆◆ P1 ◆◆◆
10 A=G:P=H:GOTO #4
◆◆◆ P2 ◆◆◆
2 IF T=0 THEN 8
4 PRINT CSRA+T;"-";:IF A+T≠P;RETURN
6 V=1:GOTO #6
8 PRINT:PRINT CSR10;M;:FOR S=1 TO 3:GOSUB 6
20 A=A+SGN(5.5-P:PRINT CSRA;"#";:NEXT S:G(K)=A:RETURN
◆◆◆ P3 ◆◆◆
2 IF C(K)=0;Q(K)=T:IF T*FRAC SQR I(K)=0;C(K)=A*ABS T:IF T=0;RETURN
4 IF K=0;T=SGN Q:C=C+T:S=ABS C:GOTO 8
6 T=SGN R:D=D+T:S=ABS D
8 U=A+T:GOTO I(K)*9
9 V=3:GOTO #5
18 IF S=1;RETURN
19 PRINT CSRU;"=";:V=7:IF U≠P THEN #7
20 FOR S=11 TO 15:PRINT CSRP;MID(S+SIN π,1);:NEXT S:GOTO #6
27 PRINT CSRA;"z";:IF S≦2;RETURN
28 PRINT CSR U;"■";CSRU+T*SGN FRAC(U/10;"■";:IF P≠U;IF P≠U+T THEN #7
29 W(L)=4:GOTO #8
36 V=4:C(K)=S+T*SGN S:GOTO #5
45 V=3:G(K)=ABS(10-A:IF G(K)=P THEN #6
46 GOTO #7
54 IF S=1;G(K)=U:RETURN
55 IF U=P;FOR Y=0 TO 2:GOSUB #2:NEXT Y
56 GOTO #7
63 IF S=1;Q(K)=P:PRINT CSRP;"＇";:C(K)=2:RETURN
64 PRINT CSRQ(K);"↓";:V=3:GOSUB #4:IF P=Q(K) THEN #6
65 GOTO #7
72 PRINT CSRA;"Y";:V=3:IF S≦2;RETURN
73 FOR S=0 TO 2:IF ABS(A+T-5≦5;A=A+T
74 PRINT CSRA;"￥";:IF A=P;GOSUB #6:S=2
75 NEXT S:G(K)=A:GOTO #7
81 V=2:GOSUB #5:S=C(K):IF S≠0;S=S+T:C(K)=S:GOTO #5
82 RETURN
90 PRINT CSRA;"△";:V=4:IF S=1;RETURN
91 FOR S=1 TO 3:Y=2*S*T+A:IF ABS(Y-5≦5;PRINT CSRY;"V";:IF Y=P;GOSUB #6
92 NEXT S:GOTO #7
◆◆◆ P4 ◆◆◆
10 L=1-K:T=SGN(P-A:RETURN
◆◆◆ P5 ◆◆◆
10 PRINT CSRS;MID(14+V,1);:Y=COS K:IF S=P;GOSUB #6
20 IF S>9 THEN #7
30 RETURN
◆◆◆ P6 ◆◆◆
10 PRINT CSRP;"*";:M(L)=M(L)-V:IF RAN#<.05;W(L)=4:PRINT CSRP;"!";
20 G(L)=P+T*SGN FRAC(P/10:GOTO #8
◆◆◆ P7 ◆◆◆
10 C(K)=0:RETURN
◆◆◆ P8 ◆◆◆
10 B=0:C=0:D=0:RETURN
コメント