mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-24 03:58:14 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
65 lines
1.7 KiB
QBasic
65 lines
1.7 KiB
QBasic
20 PRINT TAB(31);"23 MATCHES"
|
|
30 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
40 PRINT:PRINT:PRINT
|
|
80 PRINT " THIS IS A GAME CALLED '23 MATCHES'."
|
|
90 PRINT
|
|
100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE"
|
|
110 PRINT "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE"
|
|
120 PRINT "THE LAST MATCH."
|
|
130 PRINT
|
|
140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES FIRST."
|
|
150 PRINT "IF IT COMES UP HEADS, I WILL WIN THE TOSS."
|
|
155 PRINT
|
|
160 REM
|
|
165 N = 23
|
|
170 Q = INT(2*RND(5))
|
|
180 IF Q = 1 THEN 210
|
|
190 PRINT "TAILS! YOU GO FIRST. "
|
|
195 PRINT
|
|
200 GOTO 300
|
|
210 PRINT "HEADS! I WIN! HA! HA!"
|
|
220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!"
|
|
230 PRINT
|
|
250 PRINT "I TAKE 2 MATCHES"
|
|
260 N = N -2
|
|
270 PRINT "THE NUMBER OF MATCHES IS NOW" N
|
|
280 PRINT
|
|
290 PRINT "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES."
|
|
300 PRINT "HOW MANY DO YOU WISH TO REMOVE",
|
|
310 INPUT K
|
|
320 IF K > 3 THEN 430
|
|
330 IF K <= 0 THEN 430
|
|
340 N = N - K
|
|
350 PRINT "THERE ARE NOW";N;"MATCHES REMAINING."
|
|
351 IF N = 4 THEN 381
|
|
352 IF N = 3 THEN 383
|
|
353 IF N = 2 THEN 385
|
|
360 IF N <= 1 THEN 530
|
|
370 Z = 4 - K
|
|
372 GOTO 390
|
|
380 PRINT
|
|
381 Z = 3
|
|
382 GOTO 390
|
|
383 Z = 2
|
|
384 GOTO 390
|
|
385 Z = 1
|
|
390 PRINT "MY TURN ! I REMOVE" Z "MATCHES"
|
|
400 N = N - Z
|
|
410 IF N <= 1 THEN 470
|
|
420 GOTO 270
|
|
430 PRINT "VERY FUNNY! DUMMY!"
|
|
440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?"
|
|
450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT",
|
|
460 GOTO 310
|
|
470 PRINT
|
|
480 PRINT"YOU POOR BOOB! YOU TOOK THE LAST MATCH! I GOTCHA!!"
|
|
490 PRINT "HA ! HA ! I BEAT YOU !!!"
|
|
500 PRINT
|
|
510 PRINT "GOOD BYE LOSER!"
|
|
520 GOTO 560
|
|
530 PRINT "YOU WON, FLOPPY EARS !"
|
|
540 PRINT "THINK YOU'RE PRETTY SMART !"
|
|
550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF !!"
|
|
560 STOP
|
|
570 END
|