■ＣＯＬＬＡＰＳＥ■
著作制作…………よなぷー
制作年月日………２０１５年１０月１日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」「ダイヤ」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
◆◆◆ P0 ◆◆◆
1 $="●]□[≧).↑△→○↓≦←.(Get●●Throw"
2 FOR J=0 TO 3:L=0:GOSUB #1
3 E=FRAC(H*M*π*5⊂4:IF E>.7;L=1:IF E>.9;L=4
4 IF M=Z;L=5
5 IF M≧11;IF M≦99;IF FRAC(M/10≠0 THEN 7
6 L=1
7 A(J)=L:NEXT J:E=A:F=B
8 PRINT CSR0;MID(A(G-1)+1,1);MID(A(G)*2+1,1);MID(A(G+1)*3+1,1);
9 PRINT X/10;MID(6+G*2,1);CSR3;":";:GOSUB #8
20 IF K=8;L=A(G):IF L≠1;J=G*SGN(4-G:GOSUB #1:X=M:GOTO 70+L*7
30 IF K=1;G=G-3+4*SGN(4-G
40 IF K=2;GOSUB #3:GOTO 80
50 IF K=0;G=G+3-4*SGN(G-1
60 GOTO 8
70 IF RAN#<.3;GOSUB #4
80 IF RAN#>.3 THEN 2
90 J=H+INT(RAN#*2:C=J↑2+5:U=3*J+2:PRINT "Enemy!";:GOSUB #2:GOTO 1
98 E=(P+2)↑2:PRINT:PRINT "Nx";E;:IF Ｅ>T THEN 2
100 GOSUB #7:PRINT "LvUP!";:P=P+1:GOSUB #7:GOTO 98
105 PRINT "Angel!";:C=H↑3+20:U=8+INT(H↑2/2:J=1:L=8:GOSUB #2:GOTO 1
◆◆◆ P1 ◆◆◆
10 M=2-J:IF FRAC(M/2=0;M=J*10-10
20 M=X+M:RETURN
◆◆◆ P2 ◆◆◆
1 $="oμesymk@&スペードダイヤ￥ΩΣBattlAbr●●RunAw":F$=MID(J,1)
2 B=0:GOSUB #7:IF L=8;F$="≧;≦":IF H=13;F$="p゜q":C=2500
3 PRINT CSR0;"[";F$;"]:";MID(B*5+15,5);:GOSUB #8:IF K=0;B=B-SGNB
4 IF K=1;B=B+SGN(2-B
5 IF K≠8 THEN 3
6 N=SGNS*(R+INT(RAN#*R:PRINT:IF B+RAN#>2.2;PRINT "Run!";:RETURN
7 S=S-SGNS:IF B*W=1;PRINT "UseAbr!";:GOSUB #7:W=0:B=0:S=10:GOTO 3
8 PRINT "Attack!";N;:GOSUB #7:IF S=0;PRINT "SwBreak!";:GOSUB #7
9 C=C-N:N=U+INT(RAN#*U:IF C≦0 THEN 40
20 PRINT "Damage!";N;:GOSUB #7:Q=Q-N:IF Q≧1 THEN 3
30 X=Y:Q=48:T=(P+1)↑2:PRINT "Lose...";:END
40 PRINT "Win!";:T=T+U:IF RAN#>.8;PRINT "Abr!";:W=1
50 IF L≠8;RETURN
60 H=H+1:IF H≦13;Y=Z:Z=INT(11+89*FRAC(TAN H*1⊂4:RETURN
70 H=13:STOP:PRINT "YouDefeatedTheFallenAngel."
80 PRINT "However,TheRuinIsNotStopped.","AMazeCollapses."
90 PRINT "FinallyYouPrayed.","SoThatEverybodyCanDieHappily."
100 PRINT CSR4;"FIN.";
◆◆◆ P3 ◆◆◆
10 E=48+INT(P↑2/3:Q=Q+INT(E/5:IF Q≧E;Q=E
20 PRINT:PRINT "Camp:";Q:RETURN
◆◆◆ P4 ◆◆◆
4 E=INT(RAN#*H↑2+3:F=1:PRINT "FindSw";:GOSUB #7
8 PRINT CSR0;E;"Sw:";MID(F*5+17,5);:GOSUB #8:IF K≠8;F=SGNK:GOTO 8
20 PRINT:IF F=0;PRINT "Equip!";:R=E:S=INT(10*RAN#+8
30 RETURN
◆◆◆ P7 ◆◆◆
10 FOR A=0 TO 60:NEXT A:PRINT:RETURN
◆◆◆ P8 ◆◆◆
9 IF KEY="-";K=8:RETURN
20 IF KEY="Q";K=0:RETURN
30 IF KEY="W";K=1:RETURN
40 IF KEY="5";K=2:RETURN
50 IF KEY≠"6" THEN 9
60 PRINT:PRINT H;"Fl:Lv";P,Q;"Hp",T;"Ex",R;"Sw:En";S,W;"Abr"
70 K=3:RETURN
◆◆◆ P9 ◆◆◆
10 PRINT "●By●Yonapuu","●●COLLAPSE":VAC
20 G=1:X=51:Y=X:H=1:P=1:Q=48:R=3:S=10:Z=99:GOTO #0
コメント