DUEL FIELD プログラム

■ＤＵＥＬ－ＦＩＥＬＤ■

　著作制作…………よなぷー

　制作年月日………２０１８年３月５日

　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム

　使用メモリ………１５６８ステップ

　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。

　※「●」はスペース一個です。

　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。

　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。

P0

4 H=0:X=E:Y=F:L=X:M=Y:GOSUB #1

8 PRINT CSR9;Y-2;CSR0;$;CSRX;"Ω";:GOSUB #5:IF K=0 THEN 8

20 IF ABS(K-5=3;Y=Y+SGN(K-5

30 S=0:IF ABS(K-5=1;X=X+SGN(K-5

40 IF X≧0;IF X≦9 THEN 60

50 X=L

60 IF Y≧3;IF Y≦22+H THEN 80

70 Y=M:GOTO 90

80 IF RAN#>.8;GOSUB #3:Y=M:GOSUB #1+SGN H

90 IF S=0;IF Y≠M;GOSUB #1+SGN H:PRINT

100 G$=MID(X+1,1):IF K=1;GOSUB #4:GOTO 8

110 IF G$="■";X=L

120 IF H=0;E=X:F=Y

130 L=X:M=Y:GOTO 8

P1

10 $="_ススクク○△△□_":FOR A=8 TO 17

20 $=$+MID(1+10*FRAC(1⊂6*LN Y*A,1):NEXT A:$=MID(11):RETURN

P2

2 IF Y≠INT H THEN 8

4 IF Y=26;PRINT:PRINT "DRAGON!";:GOSUB #6:S=2:GOSUB #3

6 PRINT:PRINT "BOSS!";:GOSUB #6:J=F+2:N=J↑2*3:S=1:GOSUB #3:GOTO #1

8 IF ABS(K-5=3;IF Y≧3;IF FRAC(1⊂7*(X+8)*LN Y*H≧.8;Y=M:RETURN

20 $="........■■":PRINT:FOR A=8 TO 17

30 $=$+MID(1+10*FRAC(1⊂7*A*LN Y*H,1):NEXT A:$=MID(11):RETURN

P3

1 $="cefwsrqμxzyπupb％◆↑&$\@÷ΣAtPtRn":P=0:IF S≠0 THEN 7

3 J=Y-2:IF H≠0;J=F+INT(RAN#*3

5 N=J↑2*2

7 G$=MID(J,1):IF S=2;J=25:N=2800:G$="≧゜××"

9 PRINT:PRINT G$;B;":";MID(25+P*2,2);:GOSUB #5:IF K=8;P=P-SGN P

20 IF K=2;P=P+SGN(2-P

25 IF K≠1 THEN 9

30 K=0:IF P=1;IF Q≧1;Q=Q-1:B=C↑2+9:P=0:GOTO 9

35 IF P=2;P=0:IF S+RAN#≦.7;STOP:RETURN

40 IF P≠0 THEN 9

45 PRINT:PRINT "Hit";C*3+R↑2;:GOSUB #8:N=N-C*3-R↑2:IF N≦0 THEN 65

50 W=J↑2-U:IF W≧1;PRINT "Dam";W;:GOSUB #8:B=B-W

55 IF B≧1 THEN 9

60 E=0:F=3:END

65 PRINT "Win!";:D=D+J:IF D≧C↑2;D=0:PRINT "LvUP!";:C=C+1

70 IF S=2;GOSUB #6:PRINT "YouAreHero!!","Great!≦_-THEEND-_≧";:END

75 IF S=1;H=0:X=E:Y=F:IF F>R;PRINT "GetWp";F;:R=F

80 S=9:T=T+SGN H*J↑2+6:RETURN

P4

2 IF G$="○";H=Y+5+LN COS X:X=INT(RAN#*10:Y=3:L=X:M=3:GOTO #2

4 IF G$≠"□";RETURN

6 $="OutInnPtnAmr":P=0

8 PRINT:PRINT MID(P*3+1,3);":G";T;:GOSUB #5:IF K=8;P=P-SGN P

20 IF K=2;P=P+SGN(3-P

30 IF K≠1 THEN 8

40 IF P=0 THEN #1+SGN H

50 W=8+F↑3*INT(P/3:PRINT:PRINT W;"Gp?";:GOSUB #5:IF K≠1 THEN 8

60 IF W>T THEN 8

70 PRINT:PRINT "Buy";:GOSUB #8:IF P=2;Q=Q+1:IF Q≧3;Q=2:W=0

80 IF P=1;B=C↑2+9:PRINT "ZZZ...";:GOSUB #8

90 IF P=3;U=F↑2:PRINT "GetAmr";U;:GOSUB #8

100 T=T-W:GOTO 8

P5

4 K=0

8 IF KEY="W";K=8

20 IF KEY="X";K=2

30 IF KEY="A";K=4

40 IF KEY="D";K=6

50 IF KEY="-";K=1

60 IF KEY="6" THEN #7

70 IF K=0 THEN 8

80 RETURN

P6

10 FOR A=0 TO 200:NEXT A:PRINT:RETURN

P7

10 PRINT:PRINT C;"Lv:Hp";B,R;"Wp:Am";U,"Pt";Q,"G";T:RETURN

P8

10 FOR A=0 TO 99:NEXT A:PRINT:RETURN

P9

10 PRINT "*DUEL-FIELD*":VAC:F=3:C=1:B=10:GOTO #0

(1568STEP)