mirror of
https://github.com/rfivet/BCG101.git
synced 2024-11-18 02:17:00 -05:00
Add POKER and YAHTZE.
This commit is contained in:
parent
7dcfd34c04
commit
29b448e9bb
410
dec/POKER.BAS
Normal file
410
dec/POKER.BAS
Normal file
@ -0,0 +1,410 @@
|
|||||||
|
1DIMA(15),B(10)
|
||||||
|
2DEFFNA(X)=INT(10*RND(X))
|
||||||
|
3DEFFNB(X)=X-100*INT(X/100)
|
||||||
|
4PRINT"WELCOME TO THE HALLDEN CASINO. WE EACH HAVE $200"
|
||||||
|
5PRINT"I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER"
|
||||||
|
6PRINT"WHEN YOU FOLD, BET 0; TO CHECK, BET .5"
|
||||||
|
7PRINT"ENOUGH TALK -- LET'S GET DOWN TO BUSINESS"
|
||||||
|
8PRINT
|
||||||
|
9LETO=1
|
||||||
|
10LETC=200
|
||||||
|
11LETS=200
|
||||||
|
12LETP=0
|
||||||
|
13RANDOM
|
||||||
|
14PRINT
|
||||||
|
15IFC<=5THEN367
|
||||||
|
16PRINT"THE ANTE IS $5. I WILL DEAL"
|
||||||
|
17PRINT
|
||||||
|
18IFS>5THEN20
|
||||||
|
19GOSUB383
|
||||||
|
20LETP=P+10
|
||||||
|
21LETS=S-5
|
||||||
|
22LETC=C-5
|
||||||
|
23FORZ=1TO10
|
||||||
|
24GOSUB174
|
||||||
|
25NEXTZ
|
||||||
|
26PRINT"YOUR HAND:"
|
||||||
|
27LETN=1
|
||||||
|
28GOSUB185
|
||||||
|
29LETN=6
|
||||||
|
30LETI=2
|
||||||
|
31GOSUB217
|
||||||
|
32PRINT
|
||||||
|
33IFI<>6THEN47
|
||||||
|
34IFFNA(0)<=7THEN37
|
||||||
|
35LETX=11100
|
||||||
|
36GOTO42
|
||||||
|
37IFFNA(0)<=7THEN40
|
||||||
|
38LETX=11110
|
||||||
|
39GOTO42
|
||||||
|
40IFFNA(0)>=1THEN45
|
||||||
|
41LETX=11111
|
||||||
|
42LETI=7
|
||||||
|
43LETZ=23
|
||||||
|
44GOTO58
|
||||||
|
45LETZ=1
|
||||||
|
46GOTO51
|
||||||
|
47IFU>=13THEN54
|
||||||
|
48IFFNA(0)>=2THEN50
|
||||||
|
49GOTO42
|
||||||
|
50LETZ=0
|
||||||
|
51LETK=0
|
||||||
|
52PRINT"I CHECK"
|
||||||
|
53GOTO62
|
||||||
|
54IFU<=16THEN57
|
||||||
|
55LETZ=2
|
||||||
|
56IFFNA(0)>=1THEN58
|
||||||
|
57LETZ=35
|
||||||
|
58LETV=Z+FNA(0)
|
||||||
|
59GOSUB348
|
||||||
|
60PRINT"I'LL OPEN WITH "V
|
||||||
|
61LETK=V
|
||||||
|
62GOSUB305
|
||||||
|
63GOSUB65
|
||||||
|
64GOTO82
|
||||||
|
65IFI<>3THEN76
|
||||||
|
66PRINT
|
||||||
|
67PRINT"I WIN"
|
||||||
|
68LETC=C+P
|
||||||
|
69PRINT"NOW I HAVE $"C"AND YOU HAVE $"S
|
||||||
|
70PRINT"DO YOU WISH TO CONTINUE";
|
||||||
|
71INPUTH$
|
||||||
|
72IFH$="YES"THEN12
|
||||||
|
73IFH$="NO"THEN410
|
||||||
|
74PRINT"ANSWER YES OR NO, IDIOT"
|
||||||
|
75GOTO70
|
||||||
|
76IFI<>4THEN81
|
||||||
|
77PRINT
|
||||||
|
78PRINT"YOU WIN"
|
||||||
|
79LETS=S+P
|
||||||
|
80GOTO69
|
||||||
|
81RETURN
|
||||||
|
82PRINT
|
||||||
|
83PRINT"NOW WE DRAW -- HOW MANY CARDS DO YOU WANT";
|
||||||
|
84INPUTT
|
||||||
|
85IFT=0THEN98
|
||||||
|
86LETZ=10
|
||||||
|
87IFT<4THEN90
|
||||||
|
88PRINT"YOU CAN'T DRAW MORE THAN THREE CARDS"
|
||||||
|
89GOTO84
|
||||||
|
90PRINT"WHAT ARE THEIR NUMBERS"
|
||||||
|
91FOR Q=1TOT
|
||||||
|
92INPUTU
|
||||||
|
93GOSUB173
|
||||||
|
94NEXTQ
|
||||||
|
95PRINT"YOUR NEW HAND:"
|
||||||
|
96LETN=1
|
||||||
|
97GOSUB185
|
||||||
|
98LETZ=10+T
|
||||||
|
99FORU=6TO10
|
||||||
|
100IFINT(X/10^(U-6))<>10*INT(X/10^(U-5))THEN102
|
||||||
|
101GOSUB173
|
||||||
|
102NEXTU
|
||||||
|
103PRINT
|
||||||
|
104PRINT"I AM TAKING"Z-10-T"CARD";
|
||||||
|
105IFZ=11+TTHEN109
|
||||||
|
106PRINT"S"
|
||||||
|
107PRINT
|
||||||
|
108GOTO110
|
||||||
|
109PRINT
|
||||||
|
110LETN=6
|
||||||
|
111LETV=I
|
||||||
|
112LETI=1
|
||||||
|
113GOSUB217
|
||||||
|
114LETB=U
|
||||||
|
115LETM=D
|
||||||
|
116IFV<>7THEN119
|
||||||
|
117LETZ=28
|
||||||
|
118GOTO133
|
||||||
|
119IFI<>6THEN122
|
||||||
|
120LETZ=1
|
||||||
|
121GOTO133
|
||||||
|
122IFU>=13THEN127
|
||||||
|
123LETZ=2
|
||||||
|
124IFFNA(0)<>6THEN126
|
||||||
|
125LETZ=19
|
||||||
|
126GOTO133
|
||||||
|
127IFU>=16THEN132
|
||||||
|
128LETZ=19
|
||||||
|
129IFFNA(0)<>8THEN131
|
||||||
|
130LETZ=11
|
||||||
|
131GOTO133
|
||||||
|
132LETZ=2
|
||||||
|
133LETK=0
|
||||||
|
134GOSUB305
|
||||||
|
135IFT<>.5THEN145
|
||||||
|
136IFV=7THEN140
|
||||||
|
137IFI<>6THEN140
|
||||||
|
138PRINT"I'LL CHECK"
|
||||||
|
139GOTO146
|
||||||
|
140LETV=Z+FNA(0)
|
||||||
|
141GOSUB348
|
||||||
|
142PRINT"I'LL BET"V
|
||||||
|
143LETK=V
|
||||||
|
144GOSUB306
|
||||||
|
145GOSUB65
|
||||||
|
146PRINT
|
||||||
|
147PRINT"NOW WE COMPARE HANDS"
|
||||||
|
148LETJ$=H$
|
||||||
|
149LETK$=I$
|
||||||
|
150PRINT"MY HAND:"
|
||||||
|
151LETN=6
|
||||||
|
152GOSUB185
|
||||||
|
153LETN=1
|
||||||
|
154GOSUB217
|
||||||
|
155PRINT
|
||||||
|
156PRINT"YOU HAVE ";
|
||||||
|
157LETK=D
|
||||||
|
158GOSUB369
|
||||||
|
159LETH$=J$
|
||||||
|
160LETI$=K$
|
||||||
|
161LETK=M
|
||||||
|
162PRINT"AND I HAVE ";
|
||||||
|
163GOSUB369
|
||||||
|
164IFB>UTHEN67
|
||||||
|
165IFU>BTHEN78
|
||||||
|
166IFH$="A FLUS"THEN170
|
||||||
|
167PRINT"THE HAND IS DRAWN"
|
||||||
|
168PRINT"ALL $"P" REMAIN IN THE POT"
|
||||||
|
169GOTO14
|
||||||
|
170IFFNB(M)>FNB(D)THEN67
|
||||||
|
171IFFNB(D)>FNB(M)THEN78
|
||||||
|
172GOTO167
|
||||||
|
173LETZ=Z+1
|
||||||
|
174LETA(Z)=INT(1000*RND(0))
|
||||||
|
175IFINT(A(Z)/100)>3THEN174
|
||||||
|
176IFA(Z)-100*INT(A(Z)/100)>12THEN174
|
||||||
|
177FORK=1TOZ-1
|
||||||
|
178IFA(Z)=A(K)THEN174
|
||||||
|
179NEXTK
|
||||||
|
180IFZ<=10THEN184
|
||||||
|
181LETN=A(U)
|
||||||
|
182LETA(U)=A(Z)
|
||||||
|
183LETA(Z)=N
|
||||||
|
184RETURN
|
||||||
|
185FORZ=NTON+4
|
||||||
|
186PRINTZ"-- ";
|
||||||
|
187GOSUB195
|
||||||
|
188PRINT" OF";
|
||||||
|
189GOSUB207
|
||||||
|
190IFZ/2<>INT(Z/2)THEN192
|
||||||
|
191PRINT
|
||||||
|
192NEXTZ
|
||||||
|
193PRINT
|
||||||
|
194RETURN
|
||||||
|
195LETK=FNB(A(Z))
|
||||||
|
196IFK<>9THEN198
|
||||||
|
197PRINT"JACK";
|
||||||
|
198IFK<>10THEN200
|
||||||
|
199PRINT"QUEEN";
|
||||||
|
200IFK<>11THEN202
|
||||||
|
201PRINT"KING";
|
||||||
|
202IFK<>12THEN204
|
||||||
|
203PRINT"ACE";
|
||||||
|
204IFK>=9THEN206
|
||||||
|
205PRINTK+2;
|
||||||
|
206RETURN
|
||||||
|
207LETK=INT(A(Z)/100)
|
||||||
|
208IFK<>0THEN210
|
||||||
|
209PRINT" CLUBS",
|
||||||
|
210IFK<>1THEN212
|
||||||
|
211PRINT" DIAMONDS",
|
||||||
|
212IFK<>2THEN214
|
||||||
|
213PRINT" HEARTS",
|
||||||
|
214IFK<>3THEN216
|
||||||
|
215PRINT" SPADES",
|
||||||
|
216RETURN
|
||||||
|
217LETU=0
|
||||||
|
218FORZ=NTON+4
|
||||||
|
219LETB(Z)=FNB(A(Z))
|
||||||
|
220IFZ=N+4THEN223
|
||||||
|
221IFINT(A(Z)/100)<>INT(A(Z+1)/100)THEN223
|
||||||
|
222LETU=U+1
|
||||||
|
223NEXTZ
|
||||||
|
224IFU<>4THEN231
|
||||||
|
225LETX=11111
|
||||||
|
226LETD=A(N)
|
||||||
|
227LETH$="A FLUS"
|
||||||
|
228LETI$="H IN"
|
||||||
|
229LETU=15
|
||||||
|
230RETURN
|
||||||
|
231FORZ=NTON+3
|
||||||
|
232FORK=Z+1TON+4
|
||||||
|
233IFB(Z)<=B(K)THEN239
|
||||||
|
234LETX=A(Z)
|
||||||
|
235LETA(Z)=A(K)
|
||||||
|
236LETB(Z)=B(K)
|
||||||
|
237LETA(K)=X
|
||||||
|
238LETB(K)=A(K)-100*INT(A(K)/100)
|
||||||
|
239NEXTK
|
||||||
|
240NEXTZ
|
||||||
|
241LETX=0
|
||||||
|
242FORZ=NTON+3
|
||||||
|
243IFB(Z)<>B(Z+1)THEN247
|
||||||
|
244LETX=X+11*10^(Z-N)
|
||||||
|
245LETD=A(Z)
|
||||||
|
246GOSUB276
|
||||||
|
247NEXTZ
|
||||||
|
248IFX<>0THEN262
|
||||||
|
249IFB(N)+3<>B(N+3)THEN252
|
||||||
|
250LETX=1111
|
||||||
|
251LETU=10
|
||||||
|
252IFB(N+1)+3<>B(N+4)THEN262
|
||||||
|
253IFU<>10THEN260
|
||||||
|
254LETU=14
|
||||||
|
255LETH$="STRAIG"
|
||||||
|
256LETI$="HT"
|
||||||
|
257LETX=11111
|
||||||
|
258LETD=A(N+4)
|
||||||
|
259RETURN
|
||||||
|
260LETU=10
|
||||||
|
261LETX=11110
|
||||||
|
262IFU>=10THEN269
|
||||||
|
263LETD=A(N+4)
|
||||||
|
264LETH$="SCHMAL"
|
||||||
|
265LETI$="TZ, "
|
||||||
|
266LETU=9
|
||||||
|
267LETX=11000
|
||||||
|
268GOTO274
|
||||||
|
269IFU<>10THEN272
|
||||||
|
270IFI=1THEN274
|
||||||
|
271GOTO275
|
||||||
|
272IFU>12THEN275
|
||||||
|
273IFFNB(D)>6THEN275
|
||||||
|
274LETI=6
|
||||||
|
275RETURN
|
||||||
|
276IFU>=11THEN281
|
||||||
|
277LETU=11
|
||||||
|
278LETH$="A PAIR"
|
||||||
|
279LETI$=" OF "
|
||||||
|
280RETURN
|
||||||
|
281IFU<>11THEN291
|
||||||
|
282IFB(Z)<>B(Z-1)THEN287
|
||||||
|
283LETH$="THREE"
|
||||||
|
284LETI$=" "
|
||||||
|
285LETU=13
|
||||||
|
286RETURN
|
||||||
|
287LETH$="TWO P"
|
||||||
|
288LETI$="AIR, "
|
||||||
|
289LETU=12
|
||||||
|
290RETURN
|
||||||
|
291IFU<>12THEN296
|
||||||
|
292LETU=16
|
||||||
|
293LETH$="FULL H"
|
||||||
|
294LETI$="OUSE, "
|
||||||
|
295RETURN
|
||||||
|
296IFB(Z)<>B(Z-1)THEN301
|
||||||
|
297LETU=17
|
||||||
|
298LETH$="FOUR"
|
||||||
|
299LETI$=" "
|
||||||
|
300RETURN
|
||||||
|
301LETU=16
|
||||||
|
302LETH$="FULL H"
|
||||||
|
303LETI$="OUSE, "
|
||||||
|
304RETURN
|
||||||
|
305LETG=0
|
||||||
|
306PRINT"WHAT IS YOUR BET";
|
||||||
|
307INPUTT
|
||||||
|
308IFT-INT(T)=0THEN314
|
||||||
|
309IFK<>0THEN312
|
||||||
|
310IFG<>0THEN312
|
||||||
|
311IFT=.5THEN341
|
||||||
|
312PRINT"NO SMALL CHANGE, PLEASE"
|
||||||
|
313GOTO306
|
||||||
|
314IFS-G-T>=0THEN317
|
||||||
|
315GOSUB383
|
||||||
|
316GOTO306
|
||||||
|
317IFT<>0THEN320
|
||||||
|
318LETI=3
|
||||||
|
319GOTO338
|
||||||
|
320IFG+T>=KTHEN323
|
||||||
|
321PRINT"IF YOU CAN'T SEE MY BET, THEN FOLD"
|
||||||
|
322GOTO306
|
||||||
|
323LETG=G+T
|
||||||
|
324IFG=KTHEN338
|
||||||
|
325IFZ<>1THEN342
|
||||||
|
326IFG>5THEN330
|
||||||
|
327IFZ>=2THEN335
|
||||||
|
328LETV=5
|
||||||
|
329GOTO342
|
||||||
|
330IFZ=1THEN332
|
||||||
|
331IFT<=25THEN335
|
||||||
|
332LETI=4
|
||||||
|
333PRINT"I FOLD"
|
||||||
|
334RETURN
|
||||||
|
335IFZ=2THEN343
|
||||||
|
336PRINT"I'LL SEE YOU"
|
||||||
|
337LETK=G
|
||||||
|
338LETS=S-G
|
||||||
|
339LETC=C-K
|
||||||
|
340LETP=P+G+K
|
||||||
|
341RETURN
|
||||||
|
342IFG>3*ZTHEN335
|
||||||
|
343LETV=G-K+FNA(0)
|
||||||
|
344GOSUB348
|
||||||
|
345PRINT"I'LL SEE YOU, AND RAISE YOU"V
|
||||||
|
346LETK=G+V
|
||||||
|
347GOTO306
|
||||||
|
348IFC-G-V>=0THEN366
|
||||||
|
349IFG<>0THEN352
|
||||||
|
350LETV=C
|
||||||
|
351RETURN
|
||||||
|
352IFC-G>=0THEN336
|
||||||
|
353IFO/2<>INT(O/2)THEN360
|
||||||
|
354PRINT"WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50";
|
||||||
|
355INPUTJ$
|
||||||
|
356IFJ$="NO"THEN360
|
||||||
|
357LETC=C+50
|
||||||
|
358LETO=O/2
|
||||||
|
359RETURN
|
||||||
|
360IFO/3<>INT(O/3)THEN367
|
||||||
|
361PRINT"WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50";
|
||||||
|
362INPUTJ$
|
||||||
|
363IFJ$="NO"THEN367
|
||||||
|
364LETC=C+50
|
||||||
|
365LETO=O/3
|
||||||
|
366RETURN
|
||||||
|
367PRINT"I'M BUSTED. CONGRATULATIONS"
|
||||||
|
368STOP
|
||||||
|
369PRINTH$;I$;
|
||||||
|
370IFH$<>"A FLUS"THEN375
|
||||||
|
371LETK=INT(K/100)
|
||||||
|
372GOSUB208
|
||||||
|
373PRINT
|
||||||
|
374RETURN
|
||||||
|
375LETK=FNB(K)
|
||||||
|
376GOSUB196
|
||||||
|
377IFH$="SCHMAL"THEN379
|
||||||
|
378IFH$<>"STRAIG"THEN381
|
||||||
|
379PRINT" HIGH"
|
||||||
|
380RETURN
|
||||||
|
381PRINT"S"
|
||||||
|
382RETURN
|
||||||
|
383PRINT
|
||||||
|
384PRINT"YOU CAN'T BET WHAT YOU HAVEN'T GOT"
|
||||||
|
385IFO/2=INT(O/2)THEN397
|
||||||
|
386PRINT"WOULD YOU LIKE TO SELL YOUR WATCH";
|
||||||
|
387INPUTJ$
|
||||||
|
388IFJ$="NO"THEN397
|
||||||
|
389IFFNA(0)>=7THEN393
|
||||||
|
390PRINT"I'LL GIVE YOU $75 FOR IT"
|
||||||
|
391LETS=S+75
|
||||||
|
392GOTO395
|
||||||
|
393PRINT"THAT'S A PRETTY CRUMMY WATCH - I'LL GIVE YOU $25"
|
||||||
|
394LETS=S+25
|
||||||
|
395LETO=O*2
|
||||||
|
396RETURN
|
||||||
|
397IFO/3=INT(O/3)THEN409
|
||||||
|
398PRINT"WILL YOU PART WITH THAT DIAMOND TIE TACK";
|
||||||
|
399INPUTJ$
|
||||||
|
400IFJ$="NO"THEN408
|
||||||
|
401IFFNA(0)>=6THEN405
|
||||||
|
402PRINT"YOU ARE NOW $100 RICHER"
|
||||||
|
403LETS=S+100
|
||||||
|
404GOTO407
|
||||||
|
405PRINT"IT'S PASTE. $25"
|
||||||
|
406LETS=S+25
|
||||||
|
407LETO=O*3
|
||||||
|
408RETURN
|
||||||
|
409PRINT"YOUR WAD IS SHOT. SO LONG, SUCKER"
|
||||||
|
410END
|
||||||
558
dec/YAHTZE.BAS
Normal file
558
dec/YAHTZE.BAS
Normal file
@ -0,0 +1,558 @@
|
|||||||
|
1000 A(0)=5
|
||||||
|
1010 FOR U=1 TO 5
|
||||||
|
1020 A(U)=7
|
||||||
|
1030 NEXT U
|
||||||
|
1040 CHANGE A TO C$
|
||||||
|
1060DIMA(15,15),T(15,15),F(15,15),S(15,15),L(15,15),K(15,15),H(15,15)
|
||||||
|
1070 FOR I=1 TO 5
|
||||||
|
1080 B(I)=0
|
||||||
|
1090 Q(I)=0
|
||||||
|
1100 A(I)=0
|
||||||
|
1110 NEXT I
|
||||||
|
1120 RANDOM
|
||||||
|
1130 PRINT "HOW MANY PLAYERS [TYPE: '0' FOR INSTRUCTIONS]";
|
||||||
|
1140 INPUT P
|
||||||
|
1150 IF P>15 THEN 1180
|
||||||
|
1160 IF P=0 THEN 4980
|
||||||
|
1170 GO TO 1200
|
||||||
|
1180 GOSUB 5710
|
||||||
|
1190 GO TO 1130
|
||||||
|
1200 IF P=.01 THEN 1220
|
||||||
|
1210 GO TO 1240
|
||||||
|
1220 GOSUB 5730
|
||||||
|
1230 GO TO 1140
|
||||||
|
1240 FOR I=1 TO P
|
||||||
|
1250 A(1,I)=-5
|
||||||
|
1260 T(1,I)=-5
|
||||||
|
1270 T(2,I)=-5
|
||||||
|
1280 F(1,I)=-5
|
||||||
|
1290 F(2,I)=-5
|
||||||
|
1300 S(1,I)=-5
|
||||||
|
1310 T(3,I)=-5
|
||||||
|
1320 F(3,I)=-5
|
||||||
|
1330 F(4,I)=-5
|
||||||
|
1340 S(2,I)=-5
|
||||||
|
1350 L(1,I)=-5
|
||||||
|
1360 Y(I)=-5
|
||||||
|
1370 C(I)=-5
|
||||||
|
1380 K(1,I)=0
|
||||||
|
1390 K(I)=0
|
||||||
|
1400 M(I)=0
|
||||||
|
1410 PRINT "NAME";
|
||||||
|
1420 INPUT N$(I)
|
||||||
|
1430 IF N$(I)="WHAT?" THEN 1450
|
||||||
|
1440 GO TO 1470
|
||||||
|
1450 GOSUB 5580
|
||||||
|
1460 GO TO 1410
|
||||||
|
1470 NEXT I
|
||||||
|
1480 R=0
|
||||||
|
1490 R=R+1
|
||||||
|
1495 IF R>13 THEN 6470
|
||||||
|
1500 PRINT
|
||||||
|
1510 PRINT
|
||||||
|
1520 PRINT "ROUND";R
|
||||||
|
1530 PRINT
|
||||||
|
1540 FOR I=1 TO P
|
||||||
|
1550 PRINT
|
||||||
|
1560 PRINT
|
||||||
|
1570 PRINT N$(I);"'S TURN"
|
||||||
|
1580 FOR L=1TO5
|
||||||
|
1590 A(L)=INT(6*RND(-1)+1)
|
||||||
|
1600 NEXT L
|
||||||
|
1605 GOSUB 1610
|
||||||
|
1607 GO TO 1700
|
||||||
|
1610 G=0
|
||||||
|
1620 FOR X=1 TO 5
|
||||||
|
1630 IF A(X)>=A(X+1) THEN 1680
|
||||||
|
1640 H=A(X)
|
||||||
|
1650 A(X)=A(X+1)
|
||||||
|
1660 A(X+1)=H
|
||||||
|
1670 G=1
|
||||||
|
1680 NEXT X
|
||||||
|
1685 IF G=1 THEN 1610
|
||||||
|
1690 RETURN
|
||||||
|
1700 PRINT "YOU HAVE A ";A(1);A(2);A(3);A(4);A(5)
|
||||||
|
1710 PRINT "THIS IS YOUR 2ND OF 3 ROLLS,"
|
||||||
|
1720 PRINT "HOW MANY DO YOU WANT TO CHANGE";
|
||||||
|
1730 INPUT Z
|
||||||
|
1740 IF Z=.01 THEN 1760
|
||||||
|
1750 GO TO 1780
|
||||||
|
1760 GOSUB 5600
|
||||||
|
1770 GO TO 1730
|
||||||
|
1780 IF Z=0 THEN 2620
|
||||||
|
1790 IF Z=5 THEN 1890
|
||||||
|
1800 FOR S=1 TO Z
|
||||||
|
1810 PRINT "WHICH";
|
||||||
|
1820 INPUT B(S)
|
||||||
|
1830 IF B(S)=.01 THEN 1850
|
||||||
|
1840 GO TO 1870
|
||||||
|
1850 GOSUB 5620
|
||||||
|
1860 GO TO 1810
|
||||||
|
1870 NEXT S
|
||||||
|
1880 GO TO 1930
|
||||||
|
1890 FOR S=1 TO 5
|
||||||
|
1900 A(S)=INT(6*RND(-1)+1)
|
||||||
|
1910 NEXT S
|
||||||
|
1920 GO TO 2050
|
||||||
|
1930 FOR L=1 TO 5
|
||||||
|
1940 FOR L1=1 TO 5
|
||||||
|
1950 IF B(L)=L1 THEN 1970
|
||||||
|
1960 GO TO 1980
|
||||||
|
1970 A(L1)=Q(L1)
|
||||||
|
1980 NEXT L1
|
||||||
|
1990 NEXT L
|
||||||
|
2000 FOR S=1 TO 5
|
||||||
|
2010 IF A(S)=0 THEN 2030
|
||||||
|
2020 GO TO 2040
|
||||||
|
2030 A(S)=INT(6*RND(-1)+1)
|
||||||
|
2040 NEXT S
|
||||||
|
2050 GOSUB 1610
|
||||||
|
2140 PRINT "YOU HAVE A ";A(1);A(2);A(3);A(4);A(5)
|
||||||
|
2150 PRINT "THIS IS YOUR LAST ROLL,"
|
||||||
|
2160 PRINT "HOW MANY DO YOU WANT TO CHANGE";
|
||||||
|
2170 INPUT Z
|
||||||
|
2180 IF Z=.01 THEN 2200
|
||||||
|
2190 GO TO 2220
|
||||||
|
2200 GOSUB 5600
|
||||||
|
2210 GO TO 2170
|
||||||
|
2220 IF Z=0 THEN 2620
|
||||||
|
2230 IF Z=5 THEN 2360
|
||||||
|
2240 FOR E=1 TO 5
|
||||||
|
2250 B(E)=0
|
||||||
|
2260 NEXT E
|
||||||
|
2270 FOR S=1 TO Z
|
||||||
|
2280 PRINT "WHICH";
|
||||||
|
2290 INPUT B(S)
|
||||||
|
2300 IF B(S)=.01 THEN 2320
|
||||||
|
2310 GO TO 2340
|
||||||
|
2320 GOSUB 5620
|
||||||
|
2330 GO TO 2280
|
||||||
|
2340 NEXT S
|
||||||
|
2350 GO TO 2400
|
||||||
|
2360 FOR S=1 TO 5
|
||||||
|
2370 A(S)=INT(6*RND(-1)+1)
|
||||||
|
2380 NEXT S
|
||||||
|
2390 GO TO 2520
|
||||||
|
2400 FOR L=1 TO 5
|
||||||
|
2410 FOR L1=1 TO 5
|
||||||
|
2420 IF B(L)=L1 THEN 2440
|
||||||
|
2430 GO TO 2450
|
||||||
|
2440 A(L1)=Q(L)
|
||||||
|
2450 NEXT L1
|
||||||
|
2460 NEXT L
|
||||||
|
2470 FOR S=1 TO 5
|
||||||
|
2480 IF A(S)=0 THEN 2500
|
||||||
|
2490 GO TO 2510
|
||||||
|
2500 A(S)=INT(6*RND(-1)+1)
|
||||||
|
2510 NEXT S
|
||||||
|
2520 GOSUB 1610
|
||||||
|
2610 PRINT "YOU HAVE A ";A(1);A(2);A(3);A(4);A(5)
|
||||||
|
2620 PRINT "HOW DO YOU WANT THIS ROUND SCORED";
|
||||||
|
2630 INPUT Z$
|
||||||
|
2640 IF Z$="WHAT?" THEN 2680
|
||||||
|
2650 IF Z$="SUMMARY" THEN 2670
|
||||||
|
2660 GO TO 2700
|
||||||
|
2670 GOSUB 6140
|
||||||
|
2675 GO TO 2620
|
||||||
|
2680 GOSUB 5650
|
||||||
|
2690 GO TO 2630
|
||||||
|
2700 IF Z$="ACES" THEN 2850
|
||||||
|
2710 IF Z$="TWOS" THEN 2940
|
||||||
|
2720 IF Z$="THREES" THEN 3030
|
||||||
|
2730 IF Z$="FOURS" THEN 3120
|
||||||
|
2740 IF Z$="FIVES" THEN 3210
|
||||||
|
2750 IF Z$="SIXES" THEN 3300
|
||||||
|
2760 IF Z$="THREE OF A KIND" THEN 3390
|
||||||
|
2770 IF Z$="FOUR OF A KIND" THEN 3440
|
||||||
|
2780 IF Z$="FULL HOUSE" THEN 3520
|
||||||
|
2790 IF Z$="SM. STRAIGHT" THEN 3620
|
||||||
|
2800 IF Z$="LG. STRAIGHT" THEN 3660
|
||||||
|
2810 IF Z$="YAHTZEE" THEN 3730
|
||||||
|
2820 IF Z$="CHANCE" THEN 3820
|
||||||
|
2830 IF Z$="ZERO" THEN 3890
|
||||||
|
2840 GO TO 2620
|
||||||
|
2850 IF A(1,I)<>-5 THEN 3870
|
||||||
|
2860 A(1,I)=0
|
||||||
|
2870 FOR S=1 TO 5
|
||||||
|
2880 IF A(S)=1 THEN 2900
|
||||||
|
2890 GO TO 2910
|
||||||
|
2900 A(1,I)=A(1,I)+1
|
||||||
|
2910 NEXT S
|
||||||
|
2920 M(I)=A(1,I)
|
||||||
|
2930 GO TO 4690
|
||||||
|
2940 IF T(1,I)<>-5 THEN 3870
|
||||||
|
2950 T(1,I)=0
|
||||||
|
2960 FOR S=1 TO 5
|
||||||
|
2970 IF A(S)=2 THEN 2990
|
||||||
|
2980 GO TO 3000
|
||||||
|
2990 T(1,I)=T(1,I)+2
|
||||||
|
3000 NEXT S
|
||||||
|
3010 M(I)=T(1,I)
|
||||||
|
3020 GO TO 4690
|
||||||
|
3030 IF T(2,I)<>-5 THEN 3870
|
||||||
|
3040 T(2,I)=0
|
||||||
|
3050 FOR S=1 TO 5
|
||||||
|
3060 IF A(S)=3 THEN 3080
|
||||||
|
3070 GO TO 3090
|
||||||
|
3080 T(2,I)=T(2,I)+3
|
||||||
|
3090 NEXT S
|
||||||
|
3100 M(I)=T(2,I)
|
||||||
|
3110 GO TO 4690
|
||||||
|
3120 IF F(1,I)<>-5 THEN 3870
|
||||||
|
3130 F(1,I)=0
|
||||||
|
3140 FOR S=1 TO 5
|
||||||
|
3150 IF A(S)=4 THEN 3170
|
||||||
|
3160 GO TO 3180
|
||||||
|
3170 F(1,I)=F(1,I)+4
|
||||||
|
3180 NEXT S
|
||||||
|
3185 M(I)=F(1,I)
|
||||||
|
3190 GO TO 4690
|
||||||
|
3210 IF F(2,I)<>-5 THEN 3870
|
||||||
|
3220 F(2,I)=0
|
||||||
|
3230 FOR S=1 TO 5
|
||||||
|
3240 IF A(S)=5 THEN 3260
|
||||||
|
3250 GO TO 3270
|
||||||
|
3260 F(2,I)=F(2,I)+5
|
||||||
|
3270 NEXT S
|
||||||
|
3280 M(I)=F(2,I)
|
||||||
|
3290 GO TO 4690
|
||||||
|
3300 IF S(1,I)<>-5 THEN 3870
|
||||||
|
3310 S(1,I)=0
|
||||||
|
3320 FOR S=1 TO 5
|
||||||
|
3330 IF A(S)=6 THEN 3350
|
||||||
|
3340 GO TO 3360
|
||||||
|
3350 S(1,I)=S(1,I)+6
|
||||||
|
3360 NEXT S
|
||||||
|
3370 M(I)=S(1,I)
|
||||||
|
3380 GO TO 4690
|
||||||
|
3390 IF T(3,I)<>-5 THEN 3870
|
||||||
|
3400 T(3,I)=0
|
||||||
|
3410 T(3,I)=A(1)+A(2)+A(3)+A(4)+A(5)
|
||||||
|
3420 M(I)=T(3,I)
|
||||||
|
3430 GO TO 4690
|
||||||
|
3440 IF F(3,I)<>-5 THEN 3870
|
||||||
|
3450 IF A(1)<>A(4) THEN 4960
|
||||||
|
3460 IF A(2)<>A(3) THEN 4960
|
||||||
|
3470 F(3,I)=0
|
||||||
|
3480 F(3,I)=A(1)+A(2)+A(3)+A(4)+A(5)
|
||||||
|
3490 M(I)=F(3,I)
|
||||||
|
3500 F(3,I)=0
|
||||||
|
3510 GO TO 4690
|
||||||
|
3520 IF F(4,I)<>-5 THEN 3870
|
||||||
|
3530 IF A(1)<>A(2) THEN 4960
|
||||||
|
3540 IF A(4)<>A(5) THEN 4960
|
||||||
|
3550 IF A(3)<>A(2) THEN 3570
|
||||||
|
3560 GO TO 3590
|
||||||
|
3570 IF A(3)<>A(4) THEN 4960
|
||||||
|
3580 GO TO 3590
|
||||||
|
3590 F(4,I)=25
|
||||||
|
3600 M(I)=F(4,I)
|
||||||
|
3610 GO TO 4690
|
||||||
|
3620 IF S(2,I)<>-5 THEN 3870
|
||||||
|
3630 S(2,I)=30
|
||||||
|
3640 M(I)=S(2,I)
|
||||||
|
3650 GO TO 4690
|
||||||
|
3660 IF L(1,I)<>-5 THEN 3870
|
||||||
|
3670 IF A(1)<>A(5)+4 THEN 4960
|
||||||
|
3680 IF A(2)<>A(4)+2 THEN 4960
|
||||||
|
3690 IF A(3)<>A(5)+2 THEN 4960
|
||||||
|
3700 L(1,I)=40
|
||||||
|
3710 M(I)=L(1,I)
|
||||||
|
3720 GO TO 4690
|
||||||
|
3730 IF Y(I)<>-5 THEN 3870
|
||||||
|
3740 FOR O=1 TO 5
|
||||||
|
3750 FOR O1=1 TO 5
|
||||||
|
3760 IF A(O)<>A(O1) THEN 4960
|
||||||
|
3770 NEXT O1
|
||||||
|
3780 NEXT O
|
||||||
|
3790 Y(I)=50
|
||||||
|
3800 M(I)=Y(I)
|
||||||
|
3810 GO TO 4690
|
||||||
|
3820 IF C(I)<>-5 THEN 3870
|
||||||
|
3830 C(I)=A(1)+A(2)+A(3)+A(4)+A(5)
|
||||||
|
3540
|
||||||
|
3850 M(I)=C(I)
|
||||||
|
3860 GO TO 4690
|
||||||
|
3870 GOSUB 4650
|
||||||
|
3880 GO TO 2620
|
||||||
|
3890 PRINT "WHAT DO YOU WANT TO ZERO";
|
||||||
|
3900 INPUT Z$
|
||||||
|
3920 IF Z$="SUMMARY" THEN 3940
|
||||||
|
3930 GO TO 3970
|
||||||
|
3940 GOSUB 6140
|
||||||
|
3945 GO TO 2620
|
||||||
|
3950 GOSUB 5680
|
||||||
|
3960 GO TO 3900
|
||||||
|
3970 IF Z$="ACES" THEN 4110
|
||||||
|
3980 IF Z$="TWOS" THEN 4150
|
||||||
|
3990 IF Z$="THREES" THEN 4190
|
||||||
|
4000 IF Z$="FOURS" THEN 4230
|
||||||
|
4010 IF Z$="FIVES" THEN 4270
|
||||||
|
4020 IF Z$="SIXES" THEN 4310
|
||||||
|
4030 IF Z$="THREE OF A KIND" THEN 4350
|
||||||
|
4040 IF Z$="FOUR OF A KIND" THEN 4390
|
||||||
|
4050 IF Z$="FULL HOUSE" THEN 4430
|
||||||
|
4060 IF Z$="SM. STRAIGHT" THEN 4470
|
||||||
|
4070 IF Z$="LG. STRAIGHT" THEN 4510
|
||||||
|
4080 IF Z$="YAHTZEE" THEN 4550
|
||||||
|
4090 IF Z$="CHANCE" THEN 4590
|
||||||
|
4100 GO TO 3890
|
||||||
|
4110 IF A(1,I)<>-5 THEN 4630
|
||||||
|
4120 A(1,I)=0
|
||||||
|
4130 M(I)=A(1,I)
|
||||||
|
4140 GO TO 4690
|
||||||
|
4150 IF T(1,I)<>-5 THEN 4630
|
||||||
|
4160 T(1,I)=0
|
||||||
|
4170 M(I)=T(1,I)
|
||||||
|
4180 GO TO 4690
|
||||||
|
4190 IF T(2,I)<>-5 THEN 4630
|
||||||
|
4200 T(2,I)=0
|
||||||
|
4210 M(I)=T(2,I)
|
||||||
|
4220 GO TO 4690
|
||||||
|
4230 IF F(1,I)<>-5 THEN 4630
|
||||||
|
4240 F(1,I)=0
|
||||||
|
4250 M(I)=F(1,I)
|
||||||
|
4260 GO TO 4690
|
||||||
|
4270 IF F(2,I)<>-5 THEN 4630
|
||||||
|
4280 F(2,I)=0
|
||||||
|
4290 M(I)=F(2,I)
|
||||||
|
4300 GO TO 4690
|
||||||
|
4310 IF S(1,I)<>-5 THEN 4630
|
||||||
|
4320 S(1,I)=0
|
||||||
|
4330 M(I)=S(1,I)
|
||||||
|
4340 GO TO 4690
|
||||||
|
4350 IF T(3,I)<>-5 THEN 4630
|
||||||
|
4360 T(3,I)=0
|
||||||
|
4370 M(I)=T(3,I)
|
||||||
|
4380 GO TO 4690
|
||||||
|
4390 IF F(3,I)<>-5 THEN 4630
|
||||||
|
4400 F(3,I)=0
|
||||||
|
4410 M(I)=F(3,I)
|
||||||
|
4420 GO TO 4690
|
||||||
|
4430 IF F(4,I)<>-5 THEN 4630
|
||||||
|
4440 F(4,I)=0
|
||||||
|
4450 M(I)=F(4,I)
|
||||||
|
4460 GO TO 4690
|
||||||
|
4470 IF S(2,I)<>-5 THEN 4630
|
||||||
|
4480 S(2,I)=0
|
||||||
|
4490 M(I)=S(2,I)
|
||||||
|
4500 GO TO 4690
|
||||||
|
4510 IF L(1,I)<>-5 THEN 4630
|
||||||
|
4520 L(1,I)=0
|
||||||
|
4530 M(I)=L(1,I)
|
||||||
|
4540 GO TO 4690
|
||||||
|
4550 IF Y(I)<>-5 THEN 4630
|
||||||
|
4560 Y(I)=0
|
||||||
|
4570 M(I)=Y(I)
|
||||||
|
4580 GO TO 4690
|
||||||
|
4590 IF C(I)<>-5 THEN 4630
|
||||||
|
4600 C(I)=0
|
||||||
|
4610 M(I)=C(I)
|
||||||
|
4620 GO TO 4690
|
||||||
|
4630 GOSUB 4650
|
||||||
|
4640 GOTO 2620
|
||||||
|
4650 PRINT "YOU HAVE ALREADY USED ";Z$;" AS A CATEGORY";C$
|
||||||
|
4660 PRINT
|
||||||
|
4670 RETURN
|
||||||
|
4680 GOTO 2620
|
||||||
|
4690 PRINT N$(I);" YOU GET A SCORE OF ";M(I);" FOR THIS ROUND"
|
||||||
|
4700 GO TO 5750
|
||||||
|
4710 NEXT I
|
||||||
|
4720 PRINT
|
||||||
|
4730 FOR J=1 TO P
|
||||||
|
4740 IF M(J)=A(1,J) THEN 4810
|
||||||
|
4750 IF M(J)=T(1,J) THEN 4810
|
||||||
|
4760 IF M(J)=T(2,J) THEN 4810
|
||||||
|
4770 IF M(J)=F(1,J) THEN 4810
|
||||||
|
4780 IF M(J)=F(2,J) THEN 4810
|
||||||
|
4790 IF M(J)=S(1,J) THEN 4810
|
||||||
|
4800 GO TO 4920
|
||||||
|
4810 K(1,J)=K(1,J)+M(J)
|
||||||
|
4820 GO TO 4830
|
||||||
|
4830 IF K(1,J)>=63 THEN 4860
|
||||||
|
4840 K(J)=K(J)+M(J)
|
||||||
|
4850 GO TO 4930
|
||||||
|
4860 K(1,J)=K(1,J)+35
|
||||||
|
4870 PRINT C$;N$(J);" HAS ACCUMULATED AT LEAST 63 POINTS"
|
||||||
|
4880 PRINT "IN THE FIRST SIX CATEGORIES."
|
||||||
|
4890 PRINT "HE SCORES A BONUS OF 35 POINTS!";C$
|
||||||
|
4900 K(J)=K(J)+M(J)
|
||||||
|
4910 GO TO 4930
|
||||||
|
4920 K(J)=K(J)+M(J)
|
||||||
|
4930 PRINT N$(J);" HAS ";K(J);" POINTS"
|
||||||
|
4940 NEXT J
|
||||||
|
4950 GO TO 1490
|
||||||
|
4960 PRINT "IT IS ILLEGAL TO USE ";Z$;" THIS ROUND";C$
|
||||||
|
4970 GO TO 2620
|
||||||
|
4980 PRINT
|
||||||
|
4990 PRINT
|
||||||
|
5000 PRINT
|
||||||
|
5010 PRINT "INSTRUCTIONS FOR PLAYING YAHTZEE";C$
|
||||||
|
5020 PRINT
|
||||||
|
5030 PRINT "YAHTZEE MAY BE PLAYED BY UP TO 15 PEOPLE."
|
||||||
|
5040 PRINT "THE OBJECT OF THE GAME IS TO GET THE HIGHEST SCORE"
|
||||||
|
5050 PRINT "EACH PLAYER ON HIS TURN RECEIVES FROM THE COMPUTER"
|
||||||
|
5060 PRINT "THE VALUES OF THE 5 PSEUDO-DICE. HE MAY THEN ROLL"
|
||||||
|
5070 PRINT "AS MANY OF THEM AS HE WANTS TO AGAIN. HOWEVER,"
|
||||||
|
5080 PRINT "HE IS ENTITLED UP TO BUT NO MORE THAN THREE ROLLS"
|
||||||
|
5090 PRINT "OF THE DICE."
|
||||||
|
5100 PRINT " YOU TELL THE COMPUTER MANY DICE YOU"
|
||||||
|
5110 PRINT "WANT TO CHANGE, THEN TELL IT WHICH ONES IN THE FOL-"
|
||||||
|
5120 PRINT "LOWING MANNER:"
|
||||||
|
5130 PRINT
|
||||||
|
5140 PRINT " TYPE: '1' FOR THE 1ST DIE, '2' FOR THE 2ND, ETC"
|
||||||
|
5150 PRINT " AFTER THE THIRD ROLL THE PLAYER MUST DECIDE HOW"
|
||||||
|
5160 PRINT "HE WANTS TO SCORE HIS FIVE DICE."
|
||||||
|
5170 PRINT "TYPING 'SUMMARY' WILL SHOW WHAT CATEGORIES"
|
||||||
|
5180 PRINT "HAVE BEEN USED. OTHERWISE,"
|
||||||
|
5190 PRINT "YOU HAVE 13 CHOICES, TYPE 1 OF THE FOLLOWING"
|
||||||
|
5200 PRINT "DEPENDING ON HOW YOU WANT TOUR DICE SCORED."
|
||||||
|
5210 PRINT "THE CHOICES ARE:"
|
||||||
|
5220 PRINT "ACES,TWOS,THREES,FOURS,FIVES,SIXES"
|
||||||
|
5230 PRINT "THREE OF A KIND,FOUR OF A KIND,FULL HOUSE, SM. STRAIGHT,"
|
||||||
|
5240 PRINT "LG. STRAIGHT, YAHTZEE,CHANCE."
|
||||||
|
5250 PRINT "WHAT THE COMPUTER WILL DO:"
|
||||||
|
5260 PRINT "FOR ACES IT WILL COUNT AND ADD ALL YOUR ONES."
|
||||||
|
5270 PRINT "FOR TWOS IT WILL COUNT AND ADD ALL YOUR TWOS."
|
||||||
|
5280 PRINT "THE SAME IS TRUE THROUGH THE SIXES"
|
||||||
|
5290 PRINT "THREE OF A KIND WILL TOTAL ALL OF THE DICE PRO-"
|
||||||
|
5300 PRINT "VIDED THAT YOU HAVE THREE OF A KIND"
|
||||||
|
5310 PRINT "FOUR OF A KIND IS THE SAME AS THREE OF A KIND EXCEPT"
|
||||||
|
5320 PRINT "THAT YOU MUST HAVE FOUR OF A KIND"
|
||||||
|
5330 PRINT "FULL HOUSE [3 OF ONE NO. AND 2 OF ANOTHER] WILL YIELD"
|
||||||
|
5340 PRINT "25 POINTS. SM. STRAIGHT WILL GIVE YOU 30 POINTS BUT"
|
||||||
|
5350 PRINT "YOU MUST HAVE A SEQUENCE OF FOUR."
|
||||||
|
5360 PRINT "LG.STRAIGHT WILL YIELD 40 POINTS BUT YOU MUST HAVE A SE-"
|
||||||
|
5370 PRINT "QUENCE OF FIVE."
|
||||||
|
5380 PRINT "YAHTZEE WILLL GIVE 50 POINTS IF YOU HAVE FIVE OF A KIND."
|
||||||
|
5390 PRINT "CHANCE WILL TOTAL ALL OF YOUR DICE AND USE THAT AS YOUR SCORE."
|
||||||
|
5400 PRINT "CHANCE IS USEFUL WHEN YOU DON'T HAVE ANYTHING WORTH SCORING."
|
||||||
|
5410 PRINT "ANOTHER CATEGORY, 'ZERO' WILL ZERO OUT A CATEGORY"
|
||||||
|
5420 PRINT "IF YOU DON'T HAVE ANYTHING WORTH SCORING"
|
||||||
|
5430 PRINT "BUT HAVE PERHAPS ALREAOY USED YOUR CHANCE."
|
||||||
|
5440 PRINT
|
||||||
|
5450 PRINT "IF YOUR ACCUMULATED SCORE OF THE FIRST SIX CATEGORIES"
|
||||||
|
5460 PRINT "EVER REACHES AT LEAST 63 POINTS YOU WILL RECEIVE"
|
||||||
|
5470 PRINT "A BONUS OF 35 POINTS!";C$
|
||||||
|
5480 PRINT
|
||||||
|
5490 PRINT "FOR INSTRUCTIONS DURING THE RUNNING OF THE PROGRAM"
|
||||||
|
5500 PRINT "TYPE 'WHAT?' WHEN THE COMPUTER ASKS FOR A WORD, OR,"
|
||||||
|
5510 PRINT"'.01' WHEN IT WANTS A NUMBER, AND YOU WILL RECEIVE"
|
||||||
|
5520 PRINT "FURTHER NOTES RELATED TO WHAT THE COMPUTER ASKED FOR."
|
||||||
|
5530 PRINT
|
||||||
|
5540 PRINT
|
||||||
|
5550 PRINT
|
||||||
|
5560 PRINT "GOOD LUCK!!!!!";C$
|
||||||
|
5570 GO TO 1070
|
||||||
|
5580 PRINT "WHAT DO YOU WANT ONE OF THE PLAYERS CALLED BY"
|
||||||
|
5600 PRINT "HOW MANY DICE DO YOU WANT TO ROLL AGAIN";
|
||||||
|
5610 RETURN
|
||||||
|
5620 PRINT "WHICH DIE DO YOU WANT TO CHANGE"
|
||||||
|
5630 PRINT "TYPE: '1' FOR THE 1ST DIE, '2' FOR THE 2ND DIE, ETC."
|
||||||
|
5640 RETURN
|
||||||
|
5650 PRINT "IN WHICH CATEGORY DO YOU WANT THIS ROUND SCORED"
|
||||||
|
5660 PRINT "TYPING: 'SUMMARY' WILL TELL YOU WHICH CATEGORIES YOU HAVE USED";
|
||||||
|
5670 RETURN
|
||||||
|
5680 PRINT "WHICH CATEGORY DO YOU WANT ZEROED"
|
||||||
|
5690 GO TO 5660
|
||||||
|
5710 PRINT "A MAXIMUM OF 15 PLAYERS IS ALLOWED"
|
||||||
|
5720 RETURN
|
||||||
|
5730 PRINT "HOW MANY PEOPLE WISH TO PLAY";
|
||||||
|
5740 RETURN
|
||||||
|
5750 IF Z$="ACES" THEN 5880
|
||||||
|
5760 IF Z$="TWOS" THEN 5900
|
||||||
|
5770 IF Z$="THREES" THEN 5920
|
||||||
|
5780 IF Z$="FOURS" THEN 5940
|
||||||
|
5790 IF Z$="FIVES" THEN 5960
|
||||||
|
5800 IF Z$="SIXES" THEN 5980
|
||||||
|
5810 IF Z$="THREE OF A KIND" THEN 6000
|
||||||
|
5820 IF Z$="FOUR OF A KIND" THEN 6020
|
||||||
|
5830 IF Z$="FULL HOUSE" THEN 6040
|
||||||
|
5840 IF Z$="SM. STRAIGHT" THEN 6060
|
||||||
|
5850 IF Z$="LG. STRAIGHT" THEN 6080
|
||||||
|
5860 IF Z$="YAHTZEE" THEN 6100
|
||||||
|
5870 IF Z$="CHANCE" THEN 6120
|
||||||
|
5880 H(I,R)=1
|
||||||
|
5890 GO TO 4710
|
||||||
|
5900 H(I,R)=2
|
||||||
|
5910 GO TO 4710
|
||||||
|
5920 H(I,R)=3
|
||||||
|
5930 GO TO 4710
|
||||||
|
5940 H(I,R)=4
|
||||||
|
5950 GO TO 4710
|
||||||
|
5960 H(I,R)=5
|
||||||
|
5970 GO TO 4710
|
||||||
|
5980 H(I,R)=6
|
||||||
|
5990 GO TO 4710
|
||||||
|
6000 H(I,R)=7
|
||||||
|
6010 GO TO 4710
|
||||||
|
6020 H(I,R)=8
|
||||||
|
6030 GO TO 4710
|
||||||
|
6040 H(I,R)=9
|
||||||
|
6050 GO TO 4710
|
||||||
|
6060 H(I,R)=10
|
||||||
|
6070 GO TO 4710
|
||||||
|
6080 H(I,R)=11
|
||||||
|
6090 GO TO 4710
|
||||||
|
6100 H(I,R)=12
|
||||||
|
6110 GO TO 4710
|
||||||
|
6120 H(I,R)=13
|
||||||
|
6130 GO TO 4710
|
||||||
|
6140 PRINT N$(I);" HAS USED THE FOLLOWING CATEGORIES:"
|
||||||
|
6150 FOR S=1 TO (R-1)
|
||||||
|
6160 IF H(I,S)>7 THEN 6180
|
||||||
|
6170 ON H(I,S) GO TO 6190,6210,6230,6250,6270,6290,6310
|
||||||
|
6180 ON H(I,F)-7 GO TO 6330,6350,6370,6390,6410,6430
|
||||||
|
6190 PRINT "ACES, ";
|
||||||
|
6200 GO TO 6440
|
||||||
|
6210 PRINT "TWOS, ";
|
||||||
|
6220 GO TO 6440
|
||||||
|
6230 PRINT "THREES, ";
|
||||||
|
6240 GO TO 6440
|
||||||
|
6250 PRINT "FOURS, ";
|
||||||
|
6260 GO TO 6440
|
||||||
|
6270 PRINT "FIVES, ";
|
||||||
|
6280 GO TO 6440
|
||||||
|
6290 PRINT "SIXES, ";
|
||||||
|
6300 GO TO 6440
|
||||||
|
6310 PRINT "THREE OF A KIND, ";
|
||||||
|
6320 GO TO 6440
|
||||||
|
6330 PRINT "FOUR OF A KIND, ";
|
||||||
|
6340 GO TO 6440
|
||||||
|
6350 PRINT "FULL HOUSE, ";
|
||||||
|
6360 GO TO 6440
|
||||||
|
6370 PRINT "SM. STRAIGHT, ";
|
||||||
|
6380 GO TO 6440
|
||||||
|
6390 PRINT "LG. STRAIGHT, ";
|
||||||
|
6400 GO TO 6440
|
||||||
|
6410 PRINT "YAHTZEE, ";
|
||||||
|
6420 GO TO 6440
|
||||||
|
6430 PRINT "CHANCE, ";
|
||||||
|
6440 NEXT S
|
||||||
|
6445 PRINT
|
||||||
|
6446 PRINT "HE HAS ";K(I);" POINTS,"
|
||||||
|
6447 PRINT "AND ";K(1,I);" OF THE 65 POINTS NEEDED FOR THE BONUS";
|
||||||
|
6450 PRINT "."
|
||||||
|
6460 RETURN
|
||||||
|
6470 G=0
|
||||||
|
6480 FOR X=1 TO P
|
||||||
|
6490 IF S(X)>=S(X+1) THEN 6540
|
||||||
|
6500 H=S(X)
|
||||||
|
6510 S(X)=S(X+1)
|
||||||
|
6520 S(X+1)=H
|
||||||
|
6530 G=1
|
||||||
|
6540 NEXT X
|
||||||
|
6550 IF G=1 THEN 6470
|
||||||
|
6560 PRINT "THE GAME IS OVER."
|
||||||
|
6570 PRINT
|
||||||
|
6571 FOR X=1 TO P
|
||||||
|
6572 IF K(X)=S(X) THEN 6580
|
||||||
|
6573 NEXT X
|
||||||
|
6580 PRINT "THE WINNER IS ";N$(1);" WITH ";K(1);" POINTS."
|
||||||
|
6585 IF P=1 THEN 9999
|
||||||
|
6586 PRINT "OTHER FINAL SCORES ARE:"
|
||||||
|
6590 FOR Y=1 TO P
|
||||||
|
6600 IF K(Y)=S(X) THEN 6620
|
||||||
|
6610 PRINT N$(Y);" FINISHES WITH ";K(Y);" POINTS."
|
||||||
|
6620 NEXT Y
|
||||||
|
9999 END
|
||||||
Loading…
Reference in New Issue
Block a user