■ＷＩＬＤ ＴＩＭＥＳ■
著作制作…………よなぷー
制作年月日………２０１５年８月４日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １４８０ステップ
ＤＥＦＭ命令 ８８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
◆◆◆ P0 ◆◆◆
9 FOR B=0 TO 4:PRINT CSRB*2;H(B);:NEXT B:PRINT CSR2*A;"→";
20 IF H+I+J+K+L=0;PRINT CSR11;"●Unification!",CSR3;"THEEND";:END
30 IF H(A)=0;GOSUB #1:IF B=0 THEN 9
40 C=Z(A+2):C=C-INT(M(A)/50:IF C≦0;C=0
50 Z(A+2)=C:A=A+1:IF A≧5;A=0
60 IF H(A)=0 THEN 9
70 M(A)=M(A)+2:E=INT(RAN#*9:IF E≦4;GOSUB #2
80 IF E≧7;B=W(A):GOSUB #3
90 IF E=5;GOSUB #4
100 IF E=6;C=Z(A+7):Z(A+7)=C+4*SGN(99-C
110 C=9:FOR B=0 TO 4:IF M(A)/3>M(B);IF H(B)≠H(A);C=B
120 NEXT B:IF C=9 THEN 9
130 E=INT(M(A)/2:F=Z(A+2):IF INT(E/4>F THEN 9
140 Z(A+2)=F-INT(E/4:GOSUB #5:GOTO 9
◆◆◆ P1 ◆◆◆
3 GOSUB #7:GOTO B*9+7
7 PRINT W(A);:INPUT B:IF B=0;RETURN
8 IF W(A)≧B THEN #3
9 B=0:RETURN
16 GOSUB #2:PRINT:PRINT "F+●20:M+";C:RETURN
25 GOSUB #4:PRINT:PRINT "Troops+";C:RETURN
34 PRINT INT(W(A)/10;:INPUT B:IF B=0;RETURN
35 IF B*10>W(A) THEN 9
36 W(A)=W(A)-B*10:C=Z(A+7):C=C+B:IF C>99;C=99
37 Z(A+7)=C:RETURN
43 GOSUB #6:IF B=0;RETURN
44 IF H(C)≠0 THEN 9
45 PRINT "Troops";M(A);:INPUT E:IF M(A)≧E;IF E≧1 THEN 47
46 GOTO 9
47 M(A)=M(A)-E:M(C)=M(C)+E:RETURN
52 GOSUB #6:IF B=0;RETURN
53 IF H(C)=0 THEN 9
54 PRINT "Troops";M(A);:INPUT E:IF E>M(A) THEN 9
55 F=Z(A+2):G=F-INT(E/4:IF G<0;PRINT "F●Lack";G*4:GOTO 9
56 Z(A+2)=G:GOTO #5
61 GOSUB #6:IF B=0;RETURN
62 PRINT "Land";C,"King";H(C),"Power";R(C),"Money";W(C)
63 PRINT "Food";Z(C+2),"Troops";M(C),"Arms";Z(C+7):GOTO 9
◆◆◆ P2 ◆◆◆
10 C=INT(R(A)/3:W(A)=W(A)+C:Z(A+2)=Z(A+2)+20:RETURN
◆◆◆ P3 ◆◆◆
10 W(A)=W(A)-B:R(A)=R(A)+INT(B/3:IF R(A)>500;R(A)=500
20 RETURN
◆◆◆ P4 ◆◆◆
10 C=INT(R(A)/5:M(A)=M(A)+C:R(A)=INT(R(A)*.9:RETURN
◆◆◆ P5 ◆◆◆
4 PRINT:PRINT "War!";H(A);"vs";H(C):M(A)=M(A)-E
8 M(C)=M(C)-INT(Z(A+7)/5+E/50+1:E=E-INT(Z(C+7)/5+M(C)/50+1
20 PRINT CSR0;E;M(C);"●●";:IF E≦0;PRINT:PRINT H(A);"Lose":RETURN
30 IF M(C)≧1 THEN 8
40 PRINT:PRINT H(A);"Win!":H(C)=H(A):M(C)=E
50 F=INT(Z(A+7)/4:Z(A+7)=F:Z(C+7)=F:RETURN
◆◆◆ P6 ◆◆◆
10 INPUT "Where",C:IF C≧5;B=0
20 RETURN
◆◆◆ P7 ◆◆◆
3 $="InvsLevyDrftBuy●MoveWar●Infm":B=0
6 PRINT CSR0;MID(B*4+1,4);"]";
9 IF KEY="Q";B=B-SGNB:GOTO 6
20 IF KEY="W";B=B+SGN(6-B:GOTO 6
30 IF KEY≠"-" THEN 9
40 RETURN
◆◆◆ P9 ◆◆◆
10 PRINT "●WILD●TIMES":VAC:INPUT "(0/1)",C
20 FOR B=0 TO 4:H(B)=B:IF C*B≠0;H(B)=1
30 M(B)=50:R(B)=20:NEXT B:GOTO #0
著作制作…………よなぷー
制作年月日………２０１５年８月４日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １４８０ステップ
ＤＥＦＭ命令 ８８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
◆◆◆ P0 ◆◆◆
9 FOR B=0 TO 4:PRINT CSRB*2;H(B);:NEXT B:PRINT CSR2*A;"→";
20 IF H+I+J+K+L=0;PRINT CSR11;"●Unification!",CSR3;"THEEND";:END
30 IF H(A)=0;GOSUB #1:IF B=0 THEN 9
40 C=Z(A+2):C=C-INT(M(A)/50:IF C≦0;C=0
50 Z(A+2)=C:A=A+1:IF A≧5;A=0
60 IF H(A)=0 THEN 9
70 M(A)=M(A)+2:E=INT(RAN#*9:IF E≦4;GOSUB #2
80 IF E≧7;B=W(A):GOSUB #3
90 IF E=5;GOSUB #4
100 IF E=6;C=Z(A+7):Z(A+7)=C+4*SGN(99-C
110 C=9:FOR B=0 TO 4:IF M(A)/3>M(B);IF H(B)≠H(A);C=B
120 NEXT B:IF C=9 THEN 9
130 E=INT(M(A)/2:F=Z(A+2):IF INT(E/4>F THEN 9
140 Z(A+2)=F-INT(E/4:GOSUB #5:GOTO 9
◆◆◆ P1 ◆◆◆
3 GOSUB #7:GOTO B*9+7
7 PRINT W(A);:INPUT B:IF B=0;RETURN
8 IF W(A)≧B THEN #3
9 B=0:RETURN
16 GOSUB #2:PRINT:PRINT "F+●20:M+";C:RETURN
25 GOSUB #4:PRINT:PRINT "Troops+";C:RETURN
34 PRINT INT(W(A)/10;:INPUT B:IF B=0;RETURN
35 IF B*10>W(A) THEN 9
36 W(A)=W(A)-B*10:C=Z(A+7):C=C+B:IF C>99;C=99
37 Z(A+7)=C:RETURN
43 GOSUB #6:IF B=0;RETURN
44 IF H(C)≠0 THEN 9
45 PRINT "Troops";M(A);:INPUT E:IF M(A)≧E;IF E≧1 THEN 47
46 GOTO 9
47 M(A)=M(A)-E:M(C)=M(C)+E:RETURN
52 GOSUB #6:IF B=0;RETURN
53 IF H(C)=0 THEN 9
54 PRINT "Troops";M(A);:INPUT E:IF E>M(A) THEN 9
55 F=Z(A+2):G=F-INT(E/4:IF G<0;PRINT "F●Lack";G*4:GOTO 9
56 Z(A+2)=G:GOTO #5
61 GOSUB #6:IF B=0;RETURN
62 PRINT "Land";C,"King";H(C),"Power";R(C),"Money";W(C)
63 PRINT "Food";Z(C+2),"Troops";M(C),"Arms";Z(C+7):GOTO 9
◆◆◆ P2 ◆◆◆
10 C=INT(R(A)/3:W(A)=W(A)+C:Z(A+2)=Z(A+2)+20:RETURN
◆◆◆ P3 ◆◆◆
10 W(A)=W(A)-B:R(A)=R(A)+INT(B/3:IF R(A)>500;R(A)=500
20 RETURN
◆◆◆ P4 ◆◆◆
10 C=INT(R(A)/5:M(A)=M(A)+C:R(A)=INT(R(A)*.9:RETURN
◆◆◆ P5 ◆◆◆
4 PRINT:PRINT "War!";H(A);"vs";H(C):M(A)=M(A)-E
8 M(C)=M(C)-INT(Z(A+7)/5+E/50+1:E=E-INT(Z(C+7)/5+M(C)/50+1
20 PRINT CSR0;E;M(C);"●●";:IF E≦0;PRINT:PRINT H(A);"Lose":RETURN
30 IF M(C)≧1 THEN 8
40 PRINT:PRINT H(A);"Win!":H(C)=H(A):M(C)=E
50 F=INT(Z(A+7)/4:Z(A+7)=F:Z(C+7)=F:RETURN
◆◆◆ P6 ◆◆◆
10 INPUT "Where",C:IF C≧5;B=0
20 RETURN
◆◆◆ P7 ◆◆◆
3 $="InvsLevyDrftBuy●MoveWar●Infm":B=0
6 PRINT CSR0;MID(B*4+1,4);"]";
9 IF KEY="Q";B=B-SGNB:GOTO 6
20 IF KEY="W";B=B+SGN(6-B:GOTO 6
30 IF KEY≠"-" THEN 9
40 RETURN
◆◆◆ P9 ◆◆◆
10 PRINT "●WILD●TIMES":VAC:INPUT "(0/1)",C
20 FOR B=0 TO 4:H(B)=B:IF C*B≠0;H(B)=1
30 M(B)=50:R(B)=20:NEXT B:GOTO #0
コメント