mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-23 10:37:15 -05:00
Add ANIMAL and HEX.
This commit is contained in:
parent
88c23128a8
commit
cf092243e9
68
dec/ANIMAL.BAS
Normal file
68
dec/ANIMAL.BAS
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
100 &"PLAY 'GUESS THE ANIMAL' WITH RSTS
|
||||||
|
150 &"THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT...":&
|
||||||
|
500 DIM A$(200)
|
||||||
|
525 F$="ANIMAL.GME"
|
||||||
|
:ON ERROR GOTO 700
|
||||||
|
550 OPEN F$ FOR INPUT AS FILE 1%
|
||||||
|
:INPUT #1%,N%
|
||||||
|
:INPUT #1,A$(I%) FOR I%=1%TO N%
|
||||||
|
:CLOSE 1%
|
||||||
|
:A$(0%)=NUM$(N%)
|
||||||
|
:ON ERROR GOTO 0
|
||||||
|
:GOTO 1300
|
||||||
|
700 ON ERROR GOTO 1050
|
||||||
|
:F$="$"+F$
|
||||||
|
:RESUME 550
|
||||||
|
1050 READ A$(I%) FOR I%=0% TO 3%
|
||||||
|
1100 DATA "4","\QDOES IT SWIM\Y2\N3","\AFISH","ABIRD"
|
||||||
|
1300 INPUT "ARE YOU THINKING OF AN ANIMAL";Z9$
|
||||||
|
:GOTO 1350 IF LEFT(Z9$,1%)="Y"
|
||||||
|
:GOTO 1300 IF LEFT(Z9$,1%)="N"
|
||||||
|
1310 IF Z9$="SAVE" THEN
|
||||||
|
OPEN "ANIMAL.GME" FOR OUTPUT AS FILE 1%
|
||||||
|
:PRINT #1%,A$(I%) FOR I%=0% TO VAL(A$(0%))
|
||||||
|
:PRINT #1,CHR$(26%)
|
||||||
|
:CLOSE 1%
|
||||||
|
:GOTO 1300
|
||||||
|
1320 IF Z9$="LIST" THEN
|
||||||
|
PRINT "ANIMALS I ALREAD KNOW ARE:"
|
||||||
|
:PRINT RIGHT(A$(I%),3%), IF INSTR(1%,A$(I%),"\A") FOR I%=1% TO 200%
|
||||||
|
:PRINT
|
||||||
|
:GOTO 1300
|
||||||
|
1350 K%=1%
|
||||||
|
1400 K%=FNA%(A$(K%))
|
||||||
|
:GOTO 3000 IF LEN(A$(K%))=0%
|
||||||
|
:GOTO 1400 IF LEFT(A$(K%),2%)="\Q"
|
||||||
|
:PRINT "IS IT A "RIGHT(A$(K%),3%);
|
||||||
|
:INPUT Z7$
|
||||||
|
:Z7$=LEFT(Z7$,1%)
|
||||||
|
1450 IF Z7$="Y" THEN
|
||||||
|
PRINT "WHY NOT TRY ANOTHER ANIMAL"
|
||||||
|
:GOTO 1300
|
||||||
|
2000 INPUT THE ANIMAL YOU WERE THINKING OF WAS A";Z9$
|
||||||
|
2050 PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A "
|
||||||
|
Z9$ " FROM A "RIGHT(A$(K%),3%)
|
||||||
|
:INPUT Z8$
|
||||||
|
2100 PRINT "FOR A "Z9$" THE ANSWER WOULD BE";
|
||||||
|
:INPUT Z7$
|
||||||
|
:Z7$=LEFT(Z7$,1%)
|
||||||
|
:IF Z7$="Y" THEN Z6$="N"
|
||||||
|
ELSE IF Z7$="N" THEN Z6$="Y"
|
||||||
|
ELSE PRINT "PLEASE ANSWER 'YES' OR 'NO'"
|
||||||
|
: GOTO 2100
|
||||||
|
2200 Z1%=VAL(A$(0%))
|
||||||
|
:A$(0%)=NUM$(Z1%+2%)
|
||||||
|
:A$(Z1%)=A$(K%)
|
||||||
|
:A$(Z1%+1%)='\A'+Z9$
|
||||||
|
:A$(K%)="\Q"+Z8$+"\"+Z7$+NUM$(Z1%+1%)+"\"+Z6$+NUM$(Z1%)+"\"
|
||||||
|
2300 GOTO 1300
|
||||||
|
3000 DEF FNA%(Q$)
|
||||||
|
:PRINT MID(Q$,3%,INSTR(3%,Q$,"\")-3%);
|
||||||
|
:INPUT Z9$
|
||||||
|
:Z9$=LEFT(Z9$,1%)
|
||||||
|
:Z9$="N" IF Z9$<>"Y"
|
||||||
|
:Z1%=INSTR(3%,Q$,"\"+Z9$)+2%
|
||||||
|
:Z2%=INSTR(Z1%,Q$,"\")
|
||||||
|
:FNA$=VAL(MID(Q$,Z1%,Z2%-Z1%))
|
||||||
|
:FNEND
|
||||||
|
9999 END
|
||||||
80
dec/HEX.BAS
Normal file
80
dec/HEX.BAS
Normal file
@ -0,0 +1,80 @@
|
|||||||
|
1 ! BY JEFF DALTON, CLASS OF '74, NORTHFIELD MOUNT HERMON SCHOOL
|
||||||
|
2 ! THIS PROGRAM PLAYS THE GAME 'HEXAPAWN' BY A METHOD OUTLINED IN
|
||||||
|
'MATHEMATICAL GAMES' IN MARCH 1962 SCIENTIFIC AMERICAN.
|
||||||
|
3 ! THE PROGRAM LEARNS BY ELIMINATION OF BAD MOVES. ALL POSITIONS
|
||||||
|
ENCOUNTERED BY THE PROGRAM AND THE ACCEPTABLE MOVES FROM THEM
|
||||||
|
ARE STORED IN P$(I%)
|
||||||
|
4 ! WHEN THE PROGRAM ENCOUNTERS AN UNFAMILIAR POSITION, THE POSITION
|
||||||
|
AND ALL LEGAL MOVES FROM IT ARE ADDED TO THE LIST.
|
||||||
|
5 ! IF THE PROGRAM LOSES A GAME, IT ERASES THE MOVE THAT LED TO DEFEAT.
|
||||||
|
IF IT HITS A POSITION FROM WHICH ALL MOVES HAVE BEEN DELETED
|
||||||
|
( THEY ALL LED TO DEFEAT ), IT ERASES THE MOVE THAT GOT
|
||||||
|
IT HERE AND RESIGNS.
|
||||||
|
10 INPUT "INSTRUCTIONS"; C$: IF LEFT(C$,1%)<>"Y" THEN 110
|
||||||
|
20 &: &,"THIS PROGRAM PLAYS THE GAME OF HEXAPAWN.":&
|
||||||
|
"HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD. THE PAWNS ARE":&
|
||||||
|
"MOVED AS IN CHESS - ONE SPACE FORWARD TO AN EMPTY SPACE OR ONE SPACE"
|
||||||
|
30 &"FORWARD AND DIAGONALLY TO CAPTURE AN OPPOSING MAN.":&:&CHR$(9%);
|
||||||
|
"O THE BOARD, YOUR PAWNS ARE 'O', THE COMPUTER'S PAWNS ARE '*'":&
|
||||||
|
"AND EMPTY SQUARES ARE '-'. TO ENTER A MOVE, TYPE THE NUMBER OF THE"
|
||||||
|
40 &"SQUARE YOU WILL MOVE FROM FOLLOWED BY THE NUMBER OF THE SQUARE":&
|
||||||
|
"YOU WILL MOVE TO. (THE NUMBERS ARE SEPARATED BY A COMMA.)":&
|
||||||
|
50 &" THE PROGRAM STARTS A SERIS OF GAMES KNOWING ONLY WHEN THE":&
|
||||||
|
"GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW TO MOVE. IT HAS NO":&
|
||||||
|
"STRATEGY AT FIRST AND JUST MOVES RANDOMLY. HOWEVER, IT LEARNS"
|
||||||
|
60 &"FROM EACH GAME. THUS, DEFEATING IT BECOMES MORE AND MORE":&
|
||||||
|
"DIFFICULT. ALSO, TO HELP OFFSET YOUR INITIAL ADVANTAGE, YOU WILL":&
|
||||||
|
"NOT BE TOLD HOW TO WIN THE GAME BUT MUST LEARN THIS BY PLAYING":&
|
||||||
|
100 DEF FNC$(X$,X%,Y$)=LEFT(X$,X%-1%)+Y$+RIGHT(X$,X%+LEN(Y$))
|
||||||
|
105 DEF FNN$(X%): X$=NUM$(X%): FNN$=MID(X$,2%,LEN(X$)-2%): FNEND
|
||||||
|
110 DIM P$(50%): RANDOMIZE: Q%=0%:
|
||||||
|
PRINT "SINCE I'M A GOOD SPORT, YOU'LL ALWAYS GO FIRST
|
||||||
|
120 P%=0%: P$="***---OOO": &: &"NUMBERING:":
|
||||||
|
&"123": &"456": &"789": &
|
||||||
|
190 D%=-1%: Q$="O": GOSUB 2000: IF M$="" THEN
|
||||||
|
PRINT "YOU CAN'T MOVE. I WIN.": GOTO 510
|
||||||
|
200 &: &"BOARD:": &LEFT(P$,3%): &MID(P$,4%,3%): &RIGHT(P$,7%): &
|
||||||
|
210 INPUT "WHAT IS YOUR MOVE"; A%,B%:
|
||||||
|
IF INSTR(1%,M$,FNN$(A%)+FNN$(B%))=0% THEN
|
||||||
|
PRINT "ILLEGAL MOVE.": GOTO 210
|
||||||
|
230 P$=FNC$(FNC$(P$,A%,"-"),B%,"O"):
|
||||||
|
IF INSTR(1%,P$,"*")=0% OR INSTR(1%,P$,"O")<4% THEN
|
||||||
|
PRINT "YOU WIN.": GOTO 500
|
||||||
|
300 P%=P%+2% ! COMPUTER'S MOVE
|
||||||
|
310 FOR C%=1% TO Q%: C$=P$(C%): IF VAL(LEFT(C$,1%))=P% AND
|
||||||
|
MID(C$,2%,9%)=P$ THEN M$=RIGHT(C$,11%) GOTO 400
|
||||||
|
320 NEXT C%: Q$="*": D%=1%: GOSUB 2000: C%=Q%:
|
||||||
|
IF M$="" THEN PRINT "I CAN'T MOVE, YOU WIN.": GOTO 500
|
||||||
|
400 IF M$="" THEN PRINT "I RESIGN.": GOTO 500
|
||||||
|
410 K$=LEFT(M$,2%): M$=RIGHT(M$,3%):
|
||||||
|
IF RND>.33333333 AND M$<>"" THEN 410
|
||||||
|
420 K%=C%: A%=VAL(LEFT(K$,1%)): B%=VAL(RIGHT(K$,2%)):
|
||||||
|
P$=FNC$(FNC$(P$,A%,"-"),B%,"*")
|
||||||
|
430 IF INSTR(1%,P$,"O")=0% OR INSTR(7%,P$,"*") THEN
|
||||||
|
PRINT "I WIN!": GOTO 510
|
||||||
|
440 PRINT "I MOVE FROM" A% "TO" B%: GOTO 190
|
||||||
|
500 W2%=W2%+1%: I%=INSTR(11%,P$(K%),K$):
|
||||||
|
P$(K%)=LEFT(P$(K%),I%-1%)+RIGHT(P$(K%),I%+2%) IF I%: GOTO 520
|
||||||
|
510 W1%=W1%+1%
|
||||||
|
520 &: &"BOARD:": &LEFT(P$,3%): &MID(P$,4%,3%): &RIGHT(P$,7%): &:
|
||||||
|
& "I HAVE WON" W1% "AND YOU HAVE WON" W2% "OF" W1%+W2% "GAMES"
|
||||||
|
530 INPUT "ANOTHER GAME"; C$: IF C$="NO" THEN 9999 ELSE 120
|
||||||
|
900 ! DATA**= <- OF MOVE IN GAME><POSITION><LIST OF MOVES>
|
||||||
|
IN <POSITION>, -=BLANK, *=COMPUTER'S PAWN, O=PLAYERS'S PAWN
|
||||||
|
<LIST OF MOVES> IS <- MOVE FROM><- MOVE TO><LIST OF MOVES>
|
||||||
|
2000 M$=""
|
||||||
|
2010 FOR J%=1% TO 9%: IF MID(P$,J%,1%)<>Q$ THEN 2050
|
||||||
|
2015 T%=J%+D%*3%: IF T%<1% OR T%>9% THEN 2025
|
||||||
|
2020 IF MID(P$,T%,1%)="-" THEN
|
||||||
|
M$=M$+FNN$(J%)+FNN$(T%)
|
||||||
|
2025 T%=J%+D%*2%: IF T%<1% OR T%>9% OR
|
||||||
|
(D%=1% AND (J%=1% OR J%=4% OR J%=7%)) OR
|
||||||
|
(D%=-1% AND (J%=3% OR J%=6% OR J%=9%)) THEN 2035
|
||||||
|
2030 IF INSTR(1%,Q$+"-",MID(P$,T%,1%))=0% THEN
|
||||||
|
M$=M$+FNN$(J%)+FNN$(T%)
|
||||||
|
2035 T%=J%+D%*4%: IF T%<1% OR T%>9% OR J%=3% OR J%=7% THEN 2050
|
||||||
|
2040 IF INSTR(1%,Q$+"-", MID(P$,T%,1%))=0% THEN
|
||||||
|
M$=M$+FNN$(J%)+FNN$(T%)
|
||||||
|
2050 NEXT J%: IF D%=1% AND M$<>"" THEN Q%=Q%+1%: P$(Q%)=FNN$(P%)+P$+M$
|
||||||
|
2060 RETURN
|
||||||
|
9999 END
|
||||||
Loading…
Reference in New Issue
Block a user