■ＭａｚｅＬａｎｄ■
著作制作…………よなぷー
制作年月日………２０１６年８月５日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
P0
1 FOR W=-1 TO 1:IF ABS(Y+W-9.5>9;$="■■■■■■":$=$+$+$:GOTO 4
3 GOSUB 99+Y+W
4 $="■■"+$+"■■":U$=MID(X,1):PRINT CSRW*4+4;MID(X-1,3);
5 IF W=0;S$=MID(X-1,1):T$=MID(X+1,1):L$=U$
6 IF 0>W;R$=U$
7 NEXT W:PRINT CSR3;"[";CSR7;"]";:IF Q=1;R=0:S=0:T=0:U=0
8 GOSUB #1:IF W=8;IF U$≠"■";Y=Y+1:IF Y≧20;Y=0
25 IF W=6;IF T$≠"■";X=X+1:IF X≧22;X=2
30 IF W=4;IF S$≠"■";X=X-1:IF X≦1;X=21
35 IF W=2;IF R$≠"■";Y=Y-1:IF 0>Y;Y=19
40 IF W≠1 THEN 60
45 PRINT:IF L$="□";B=A*8:PRINT "Town:HpMax!"
50 K=1:IF L$="#";PRINT "Evil!":D=20:C=650:GOSUB #2
55 IF L$="○";PRINT "Boss":D=M*3+4:C=D↑2+8:GOSUB #2
60 IF RAN#≧.8;K=0:D=M*3+2:C=D*3:GOSUB #2
65 GOTO 1
100 $="■...■■..■.クク□■.○■□":RETURN
101 $=".ク□△.■■..■.■.■.■..":RETURN
102 $="..クク.■.■...■.■..△■":RETURN
103 $="■..■■■...■■...■■..":RETURN
104 $="■.■■...■△■■.■.■.■.":RETURN
105 $="...■○■クク.■...■■.クク":RETURN
106 $=".■.■■○■■■ク.■.△○■■■":RETURN
107 $="■...■.△△.■.■■.■..○":RETURN
108 $="..■.■.■.■....■..■■":RETURN
109 $=".■..■■.クク□■△ク■■.■.":RETURN
110 $="..■■■..■.■■..■....":RETURN
111 $=".クク.■■■■■..■○■■■クク":RETURN
112 $=".□△.■.#■.□ク.■■..□△":RETURN
113 $=".△△.■■■..△△.■.■.クク":RETURN
114 $="■..○■.■■■..■■△△■..":RETURN
115 $="■■■■..■..■■..ク□.■.":RETURN
116 $="..■.□ク..■クク.■■.■..":RETURN
117 $="○.■.△ク■...■..○■..△":RETURN
P1
4 W=0
8 IF KEY="W";W=8
20 IF KEY="A";W=4
30 IF KEY="D";W=6
40 IF KEY="X";W=2
50 IF KEY="-";W=1
60 IF KEY="6";W=9
70 IF KEY="5";PRINT:PRINT A;"Lv:Hp";B,"Swd";N,"Gem";E;F;G;H:W=10
80 IF W=0 THEN 8
90 RETURN
P2
1 PRINT:PRINT "Enemy:";B;:GOSUB #1:IF W=9 THEN 7.1+RAN#
2 IF W≧2 THEN 1
3 W=INT(RAN#*5:PRINT:PRINT "Hit!";A*2+W+N:C=C-A*2-W-N:IF C≦0 THEN 9
4 PRINT:PRINT "Dam!";D:B=B-D:IF B≧1 THEN 1
5 B=1:X=5:Y=2:IF Q=0;M=0
6 END
7 PRINT:PRINT "Run!":RETURN
8 GOTO 4
9 PRINT "Win!":J=J+D:IF J≧A↑2/2+4;A=A+1:J=0:PRINT "LvUp!"
20 IF K=0;RETURN
30 W=0:IF M≦3;M=M+1
40 IF X=7;W=1
50 IF X=17;W=2
60 IF X=8;W=3
70 IF X=15;W=4
80 IF W≧1;D(W)=1:PRINT "Gem";W:IF E+F+G+H=4;PRINT "Ship!":Q=1:M=5
90 IF X=6;X=8
100 IF X=20;Y=6
110 IF X=18;X=15
120 IF X=16;X=18
130 IF X=3;PRINT "Swd!":N=20
140 IF X≠9;RETURN
150 PRINT "◆Happy●End!◆";
P9
10 PRINT "●●MazeLand":VAC:X=5:Y=2:A=1:B=8:GOTO #0
著作制作…………よなぷー
制作年月日………２０１６年８月５日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
P0
1 FOR W=-1 TO 1:IF ABS(Y+W-9.5>9;$="■■■■■■":$=$+$+$:GOTO 4
3 GOSUB 99+Y+W
4 $="■■"+$+"■■":U$=MID(X,1):PRINT CSRW*4+4;MID(X-1,3);
5 IF W=0;S$=MID(X-1,1):T$=MID(X+1,1):L$=U$
6 IF 0>W;R$=U$
7 NEXT W:PRINT CSR3;"[";CSR7;"]";:IF Q=1;R=0:S=0:T=0:U=0
8 GOSUB #1:IF W=8;IF U$≠"■";Y=Y+1:IF Y≧20;Y=0
25 IF W=6;IF T$≠"■";X=X+1:IF X≧22;X=2
30 IF W=4;IF S$≠"■";X=X-1:IF X≦1;X=21
35 IF W=2;IF R$≠"■";Y=Y-1:IF 0>Y;Y=19
40 IF W≠1 THEN 60
45 PRINT:IF L$="□";B=A*8:PRINT "Town:HpMax!"
50 K=1:IF L$="#";PRINT "Evil!":D=20:C=650:GOSUB #2
55 IF L$="○";PRINT "Boss":D=M*3+4:C=D↑2+8:GOSUB #2
60 IF RAN#≧.8;K=0:D=M*3+2:C=D*3:GOSUB #2
65 GOTO 1
100 $="■...■■..■.クク□■.○■□":RETURN
101 $=".ク□△.■■..■.■.■.■..":RETURN
102 $="..クク.■.■...■.■..△■":RETURN
103 $="■..■■■...■■...■■..":RETURN
104 $="■.■■...■△■■.■.■.■.":RETURN
105 $="...■○■クク.■...■■.クク":RETURN
106 $=".■.■■○■■■ク.■.△○■■■":RETURN
107 $="■...■.△△.■.■■.■..○":RETURN
108 $="..■.■.■.■....■..■■":RETURN
109 $=".■..■■.クク□■△ク■■.■.":RETURN
110 $="..■■■..■.■■..■....":RETURN
111 $=".クク.■■■■■..■○■■■クク":RETURN
112 $=".□△.■.#■.□ク.■■..□△":RETURN
113 $=".△△.■■■..△△.■.■.クク":RETURN
114 $="■..○■.■■■..■■△△■..":RETURN
115 $="■■■■..■..■■..ク□.■.":RETURN
116 $="..■.□ク..■クク.■■.■..":RETURN
117 $="○.■.△ク■...■..○■..△":RETURN
P1
4 W=0
8 IF KEY="W";W=8
20 IF KEY="A";W=4
30 IF KEY="D";W=6
40 IF KEY="X";W=2
50 IF KEY="-";W=1
60 IF KEY="6";W=9
70 IF KEY="5";PRINT:PRINT A;"Lv:Hp";B,"Swd";N,"Gem";E;F;G;H:W=10
80 IF W=0 THEN 8
90 RETURN
P2
1 PRINT:PRINT "Enemy:";B;:GOSUB #1:IF W=9 THEN 7.1+RAN#
2 IF W≧2 THEN 1
3 W=INT(RAN#*5:PRINT:PRINT "Hit!";A*2+W+N:C=C-A*2-W-N:IF C≦0 THEN 9
4 PRINT:PRINT "Dam!";D:B=B-D:IF B≧1 THEN 1
5 B=1:X=5:Y=2:IF Q=0;M=0
6 END
7 PRINT:PRINT "Run!":RETURN
8 GOTO 4
9 PRINT "Win!":J=J+D:IF J≧A↑2/2+4;A=A+1:J=0:PRINT "LvUp!"
20 IF K=0;RETURN
30 W=0:IF M≦3;M=M+1
40 IF X=7;W=1
50 IF X=17;W=2
60 IF X=8;W=3
70 IF X=15;W=4
80 IF W≧1;D(W)=1:PRINT "Gem";W:IF E+F+G+H=4;PRINT "Ship!":Q=1:M=5
90 IF X=6;X=8
100 IF X=20;Y=6
110 IF X=18;X=15
120 IF X=16;X=18
130 IF X=3;PRINT "Swd!":N=20
140 IF X≠9;RETURN
150 PRINT "◆Happy●End!◆";
P9
10 PRINT "●●MazeLand":VAC:X=5:Y=2:A=1:B=8:GOTO #0
コメント