■ＭＡＧＩＣＡＬ ＲＩＮＧ■
著作制作…………よなぷー
制作年月日………２０１５年６月１７日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
◆◆◆ P0 ◆◆◆
2 GOSUB #1
4 $=M$(Y):PRINT CSR0;$;B;"●";CSRX;"Ω";:IF F=Y;PRINT CSRE;G$;
6 IF MID(X+1,1)="■";GOSUB #3:PRINT CSR7;B;"●";CSRX;"Ω";
8 GOSUB #8:IF F=Y;IF E=X;GOSUB #2
20 IF C≠9 THEN 35
25 D$=MID(X+1,1):IF D$="○";GOSUB #7:GOTO 2
30 IF D$="□";GOSUB #6:GOTO 4
35 H=H+1:IF H≦6 THEN 8-SGNC*4
40 H=0:C=X-E:IF F=Y;IF ABSC=1;GOSUB #3:GOTO 4
45 IF F=Y;IF L>4;IF ABSC>2;IF RAN#>.3 THEN 60
50 D=INT(RAN#*3-1:IF ABS(E+D-3<4;E=E+D
55 GOTO 4
60 FOR D=SGNC TO C STEP SGNC:PRINT CSRE+D;"-";:NEXT D
65 GOSUB #3:GOTO 4
◆◆◆ P1 ◆◆◆
10 $="△クラブ△_□■△□クラブ_nπμtx÷e↑":FOR C=1 TO 5:L(C)=0
20 FOR D=1 TO 7:L$(C)=L$(C)+MID(1+10*FRAC(π/L*3⊂4*D/C,1)
30 NEXT D:PRINT:PRINT "Loading=";C;:NEXT C:G$=MID(L+10,1)
40 C=INT(RAN#*5+2:D=INT(RAN#*5:$=M$(D)
50 M$(D)=MID(1,C-1)+"○"+MID(C+1):GOTO #4
◆◆◆ P2 ◆◆◆
10 PRINT CSRE;"*";:IF C=1;U=0
20 IF C≧4;U=U-Z:X=X-SGN(C-5
30 IF U≧1;RETURN
40 PRINT CSRE;"・";:J=J+L↑2:GOTO #4
◆◆◆ P3 ◆◆◆
10 PRINT CSRX;"×";:B=B-2:IF B≧1;RETURN
20 B=20:J=INT(J/2:GOSUB #4
◆◆◆ P4 ◆◆◆
10 H=0:E=INT(RAN#*7:F=INT(RAN#*5:U=L↑2:IF F=Y;F=ABS(F-1
20 RETURN
◆◆◆ P5 ◆◆◆
10 FOR W=0 TO 99:NEXT W:RETURN
◆◆◆ P6 ◆◆◆
3 PRINT:PRINT "Shop","HpMax":B=20:$="Swd●Exit":E=0:D=2:R=X:S=Y
6 PRINT:PRINT MID(E*4+1,4);:IF E=0;PRINT CSR3;D;":";D↑3;
9 GOSUB #8:IF C=4;D=2+D*SGN(20-D:GOTO 6
20 IF C=6;E=1-E:GOTO 6
30 IF C=8 THEN 6
40 IF C≠9 THEN 9
50 IF E=0;IF D>Z;IF J≧D↑3;J=J-D↑3:Z=D:PRINT:PRINT "GetNewSwd!"
60 IF E=1;X=R:Y=S:RETURN
70 GOTO 6
◆◆◆ P7 ◆◆◆
4 $="GPCJANKENPON◆%&￥$スペード@Σ":G$=MID(L+12,1):U=L↑2*2:PRINT CSRX;"!"
8 PRINT CSR0;"●";G$;"●●●Ω●";B;"●";:H=0:FOR T=0 TO 2
20 PRINT CSR2;MID(T*3+4,3);:GOSUB #5:NEXT T:E=INT(RAN#*3
30 D=INT(RAN#*3:PRINT CSR0;MID(E+1,1);CSR6;MID(D+1,1);
40 IF E=0;IF D=2;E=3
50 IF E=2;IF D=0;D=3
60 F=0:IF D>E;F=1
70 IF D=E;PRINT CSR2;"●A●";:GOSUB #5:GOTO 8
80 H=H+1:GOSUB #8:IF C=4;PRINT CSR2;"←←←";:H=4
90 IF C=9;PRINT CSR5;"[";:H=4
100 IF H<4 THEN 80
110 IF F=1;PRINT CSR1;"]";:IF C=4;PRINT CSR1;"*";:U=U-Z
120 IF F=0;PRINT CSR2;"→→→";:IF C≠9;X=5:B=B-INT(L/2:GOSUB #3
130 GOSUB #5:IF U≧1 THEN 8
140 PRINT "Win":IF L<8;PRINT "GoNextWorld!":L=L+1:X=0:Y=0:RETURN
150 PRINT "Regain●Ring!","Become●Peace","You●Are●Hero","THEEND";
◆◆◆ P8 ◆◆◆
10 C=0:IF KEY="W";Y=Y+1:C=1:IF Y>4;Y=0
20 IF KEY="X";Y=Y-1:C=1:IF Y<0;Y=4
30 IF KEY="A";X=X-SGNX:C=4
40 IF KEY="D";X=X+SGN(6-X:C=6
50 IF KEY="+";C=9
60 IF KEY="3";PRINT:PRINT L;"Wld:Hp";B,Z;"S:G";J:C=8
70 RETURN
◆◆◆ P9 ◆◆◆
10 PRINT "MAGICAL●RING":VAC:L=1:Z=1:B=20:GOTO #0
著作制作…………よなぷー
制作年月日………２０１５年６月１７日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
◆◆◆ P0 ◆◆◆
2 GOSUB #1
4 $=M$(Y):PRINT CSR0;$;B;"●";CSRX;"Ω";:IF F=Y;PRINT CSRE;G$;
6 IF MID(X+1,1)="■";GOSUB #3:PRINT CSR7;B;"●";CSRX;"Ω";
8 GOSUB #8:IF F=Y;IF E=X;GOSUB #2
20 IF C≠9 THEN 35
25 D$=MID(X+1,1):IF D$="○";GOSUB #7:GOTO 2
30 IF D$="□";GOSUB #6:GOTO 4
35 H=H+1:IF H≦6 THEN 8-SGNC*4
40 H=0:C=X-E:IF F=Y;IF ABSC=1;GOSUB #3:GOTO 4
45 IF F=Y;IF L>4;IF ABSC>2;IF RAN#>.3 THEN 60
50 D=INT(RAN#*3-1:IF ABS(E+D-3<4;E=E+D
55 GOTO 4
60 FOR D=SGNC TO C STEP SGNC:PRINT CSRE+D;"-";:NEXT D
65 GOSUB #3:GOTO 4
◆◆◆ P1 ◆◆◆
10 $="△クラブ△_□■△□クラブ_nπμtx÷e↑":FOR C=1 TO 5:L(C)=0
20 FOR D=1 TO 7:L$(C)=L$(C)+MID(1+10*FRAC(π/L*3⊂4*D/C,1)
30 NEXT D:PRINT:PRINT "Loading=";C;:NEXT C:G$=MID(L+10,1)
40 C=INT(RAN#*5+2:D=INT(RAN#*5:$=M$(D)
50 M$(D)=MID(1,C-1)+"○"+MID(C+1):GOTO #4
◆◆◆ P2 ◆◆◆
10 PRINT CSRE;"*";:IF C=1;U=0
20 IF C≧4;U=U-Z:X=X-SGN(C-5
30 IF U≧1;RETURN
40 PRINT CSRE;"・";:J=J+L↑2:GOTO #4
◆◆◆ P3 ◆◆◆
10 PRINT CSRX;"×";:B=B-2:IF B≧1;RETURN
20 B=20:J=INT(J/2:GOSUB #4
◆◆◆ P4 ◆◆◆
10 H=0:E=INT(RAN#*7:F=INT(RAN#*5:U=L↑2:IF F=Y;F=ABS(F-1
20 RETURN
◆◆◆ P5 ◆◆◆
10 FOR W=0 TO 99:NEXT W:RETURN
◆◆◆ P6 ◆◆◆
3 PRINT:PRINT "Shop","HpMax":B=20:$="Swd●Exit":E=0:D=2:R=X:S=Y
6 PRINT:PRINT MID(E*4+1,4);:IF E=0;PRINT CSR3;D;":";D↑3;
9 GOSUB #8:IF C=4;D=2+D*SGN(20-D:GOTO 6
20 IF C=6;E=1-E:GOTO 6
30 IF C=8 THEN 6
40 IF C≠9 THEN 9
50 IF E=0;IF D>Z;IF J≧D↑3;J=J-D↑3:Z=D:PRINT:PRINT "GetNewSwd!"
60 IF E=1;X=R:Y=S:RETURN
70 GOTO 6
◆◆◆ P7 ◆◆◆
4 $="GPCJANKENPON◆%&￥$スペード@Σ":G$=MID(L+12,1):U=L↑2*2:PRINT CSRX;"!"
8 PRINT CSR0;"●";G$;"●●●Ω●";B;"●";:H=0:FOR T=0 TO 2
20 PRINT CSR2;MID(T*3+4,3);:GOSUB #5:NEXT T:E=INT(RAN#*3
30 D=INT(RAN#*3:PRINT CSR0;MID(E+1,1);CSR6;MID(D+1,1);
40 IF E=0;IF D=2;E=3
50 IF E=2;IF D=0;D=3
60 F=0:IF D>E;F=1
70 IF D=E;PRINT CSR2;"●A●";:GOSUB #5:GOTO 8
80 H=H+1:GOSUB #8:IF C=4;PRINT CSR2;"←←←";:H=4
90 IF C=9;PRINT CSR5;"[";:H=4
100 IF H<4 THEN 80
110 IF F=1;PRINT CSR1;"]";:IF C=4;PRINT CSR1;"*";:U=U-Z
120 IF F=0;PRINT CSR2;"→→→";:IF C≠9;X=5:B=B-INT(L/2:GOSUB #3
130 GOSUB #5:IF U≧1 THEN 8
140 PRINT "Win":IF L<8;PRINT "GoNextWorld!":L=L+1:X=0:Y=0:RETURN
150 PRINT "Regain●Ring!","Become●Peace","You●Are●Hero","THEEND";
◆◆◆ P8 ◆◆◆
10 C=0:IF KEY="W";Y=Y+1:C=1:IF Y>4;Y=0
20 IF KEY="X";Y=Y-1:C=1:IF Y<0;Y=4
30 IF KEY="A";X=X-SGNX:C=4
40 IF KEY="D";X=X+SGN(6-X:C=6
50 IF KEY="+";C=9
60 IF KEY="3";PRINT:PRINT L;"Wld:Hp";B,Z;"S:G";J:C=8
70 RETURN
◆◆◆ P9 ◆◆◆
10 PRINT "MAGICAL●RING":VAC:L=1:Z=1:B=20:GOTO #0
コメント