Diga Mestre

30 de julho de 201730 de julho de 2017 MSX-Basic 0 comentários Inteligência, Jogos, Lógica, Raciocínio

Um Jogo de Adivinhação. Esse jogo não é bem o que parece! Ao carregar o programa, você pode ter a impressão de que compreende perfeitamente o que ele faz, mas durante a execução verá que as coisas não são tão simples assim…

Teste o programa no WebMSX – The Online MSX Emulator

Em Diga, Mestre, o computador é um “professor” que escolhe um assunto e pede a você palavras apropriadas. Suponhamos, por exemplo, que o computador escolha “filmes”. Você então pode entrar com “Diga, mestre, serve ALIEN?” O professor pode responder “sim” ou “não”.
Cabe a você tentar descobrir a razão da resposta antes de entrar com outro exemplo, como “O Exterminador do Futuro”, para o qual a resposta também poderá ser “sim” ou “não”. O jogo continua até você conseguir obter três respostas “sim” seguidas, caso em que o computador supõe que você já sabe por que alguns filmes “servem” e outros não.
Mais tarde, quando já estiver dominando perfeitamente o programa, talvez você queira modificá-lo para mudar as regras ou acrescentar novos assuntos, o que poderá constituir um novo desafio!
Mostre a um amigo a listagem do programa. Ele na certa ficará surpreso com a falta de dados. Invente uma explicação qualquer ou então diga-lhe o seguinte:
O programa utiliza um sistema avançado de análise de texto com base nas características matemáticas das palavras da língua portuguesa. Assim, a seleção criteriosa de parâmetros permite aplicar rotinas de teste relativamente gerais a respostas específicas.
Naturalmente, você sabe que esta explicação é fantasiosa, já que você mesmo entrou com as linhas em que as palavras são verificadas! Por que, então, na categoria “insetos”, mosquito serve e mosca e percevejo não servem?

Notas:
Se você cometer um erro quando estiver entrando com uma palavra, aperte a tecla retrocesso. A palavra inteira será cancelada e você poderá digitá-la de novo.
Se desistir de descobrir a regra e quiser continuar jogando, entre com a palavra “DESISTO”

Fonte: Livro de Jogos em MSX
Editora: Lutécia
Autor: Jim Gregory (livro) – Andy (programa)
Ano: 1985
Digitação: Wilson e Willian Pilon – MSX Typer

Código fonte

1000 REM <<<< DIGA,MESTRE - ANDY >>>>
1010 CLEAR 2000
1020 DIM S$(11)
1030 GOSUB 2190
1040 RESTORE 1830
1050 SCREEN 1,3:COLOR 15,13,13:KEY OFF
1060 FOR S=0 TO 9
1070 FOR A=1 TO 32
1080 READ A$
1090 S$(S)=S$(S)+CHR$(VAL("&H"+A$))
1100 NEXT A
1110 SPRITE$(S)=S$(S)
1120 NEXT S:Y=56
1130 FOR X=0 TO 160
1140 GOSUB 2030
1150 NEXT
1160 GOSUB 2080
1170 LOCATE 11,5:PRINT "DIGA,"
1180 LOCATE 11,7:PRINT "MESTRE"
1190 FOR T=1 TO 2500:NEXT T
1200 CLS
1210 X=80:Y=40:GOSUB 2030:GOSUB 2080
1220 FOR YY=0 TO 23:LOCATE 20,YY:PRINT "|":NEXT YY
1230 FOR X=21 TO 30:LOCATE X,8:PRINT "=":LOCATE X,15:PRINT "=": NEXT X
1240 LOCATE 21,2:PRINT "DIGA O"
1250 LOCATE 21,3:PRINT "NOME DE"
1260 LOCATE 21,4:PRINT "UM"
1270 LOCATE 21,10:PRINT "ACERTOS"
1280 LOCATE 21,11:PRINT "SEGUIDOS"
1290 LOCATE 21,17:PRINT "JOGO NO."
1300 GOSUB 2130
1310 LOCATE 2,16:PRINT "DIGA,MESTRE:SERVE"
1320 REM <<<< COMECO DO JOGO >>>>
1330 WIN=0:GO=GO+1
1340 S=INT(RND(-TIME)*18)+1
1350 LOCATE 23,4:PRINT LEFT$(T$(S),1)
1360 LOCATE 21,5:PRINT RIGHT$(T$(S),LEN(T$(S))-1)
1370 LOCATE 23,13:PRINT WIN
1380 LOCATE 23,20:PRINT GO
1390 A=T(S,1):B=T(S,2):C=T(S,3)
1400 DEF FN OK=ASC(LEFT$(A$,1))
1410 IF A=2 THEN DEF FN OK=ASC(RIGHT$(A$,1))
1420 IF A=3 THEN DEF FN OK=ASC(MID$(A$,B,1))
1430 IF A=4 THEN DEF FN OK=LEN(A$)
1440 IF A=5 THEN DEF FN OK=SP+B
1450 IF A=6 THEN DEF FN OK=ASC(LEFT$(RIGHT$(A$,2),1))
1460 REM <<<< LOOP PRINCIPAL >>>>
1470 GOSUB 1550
1480 IF A$="DESISTO" THEN 1200
1490 IF RE=C THEN GOSUB 1690 ELSE GOSUB 1720
1500 FOR S=1 TO 1000:NEXT S:PUT SPRITE 8,(-32,-32)
1510 LOCATE 23,13:PRINT WIN
1520 IF WIN=3 THEN FOR K=1 TO 1000:NEXT K:GOTO 1750
1530 GOTO 1470
1540 REM <<<< ENTRADA DE DADOS >>>>
1550 A$="":SP=0:GOTO 1630
1560 LOCATE 2,18:PRINT A$
1570 W$=INKEY$:IF W$="" THEN 1570
1580 IF W$=" " THEN SP=SP+1:GOTO 1620
1590 IF W$=CHR$(13) AND LEN(A$)>1 THEN 1640
1600 W=ASC(W$) AND 223:W$=CHR$(W)
1610 IF W$<"A" OR W$>"Z" THEN GOTO 1550
1620 A$=A$+W$:IF LEN(A$)=15 THEN 1640
1630 LOCATE 2,18:PRINT STRING$(16," "):GOTO 1560
1640 A=LEN(A$):LOCATE 2+LEN(A$),18:PRINT "?"
1650 IF A<1 THEN 1550
1660 RE=FN OK
1670 RETURN
1680 REM <<<< SIM >>>>
1690 PUT SPRITE 8,(30,10),15,8
1700 WIN=WIN+1:RETURN
1710 REM <<<< NAO >>>>
1720 PUT SPRITE 8,(30,10),15,9
1730 WIN=0:RETURN
1740 REM <<<< GANHOU >>>>
1750 SCREEN 1:LOCATE 9,3:PRINT "Parabens !"
1760 LOCATE 9,4:PRINT STRING$(10,"-")
1770 LOCATE 2,10:PRINT "Voce descobriu o segredo !"
1780 LOCATE 0,20:PRINT "Aperte 'J' para jogar de novo"
1790 A$=INKEY$
1800 IF A$="J" OR A$="j" THEN 1200
1810 GOTO 1790
1820 GOTO 1820
1830 DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2
1840 DATA 0,0,7C,7,F,1F,3F,7F,41,80,80,0,0,60,30,60
1850 DATA 0,0,0,C6,FD,FF,FF,FF,FF,7F,20,0,0,0,0,0
1860 DATA 0,0,0,0,E0,DE,BA,C2,E2,E7,E7,67,27,2A,2A,2A
1870 DATA 4,4,8,8,7,1,2,2,2,1,2,2,1,0,0,0
1880 DATA 0,0,0,0,0,0,0,0,0,0,0,18,E4,2,2,2
1890 DATA 0,0,0,0,0,1,1,2,4,4,4,4,4,4,2,2
1900 DATA 20,20,40,40,80,0,0,0,0,0,0,0,0,0,0,0
1910 DATA 0,0,0,0,0,0,1,6,8,10,20,20,40,40,40,40
1920 DATA 0,0,0,0,F,70,80,0,0,0,0,0,0,0,0,0
1930 DATA 0,0,0,0,E0,10,8,4,3,0,0,0,0,0,0,0
1940 DATA 0,0,0,0,0,0,0,0,0,80,40,20,20,10,10,10
1950 DATA 80,80,80,80,80,80,40,40,20,20,10,8,6,1,0,0
1960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,80,60,1F
1970 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,6,38,C0
1980 DATA 10,10,10,8,8,8,8,10,10,C,62,99,7,0,0,0
1990 DATA 0,0,0,0,0,0,0,F8,80,81,F8,9,9,9,F9,0
2000 DATA 0,0,0,0,0,0,0,0,0,0,0,3E,2A,2A,2A,0
2010 DATA 0,0,0,0,0,0,0,F8,88,8B,88,8B,8A,8A,8B,0
2020 DATA 0,0,0,0,0,0,0,0,0,C0,0,CF,49,49,EF,0
2030 PUT SPRITE 0,(X,Y),15,0
2040 PUT SPRITE 1,(X+32,Y),15,1
2050 PUT SPRITE 2,(X,Y+32),15,2
2060 PUT SPRITE 3,(X+32,Y+32),15,3
2070 RETURN
2080 PUT SPRITE 4,(X-64,Y-40),15,4
2090 PUT SPRITE 5,(X-32,Y-40),15,5
2100 PUT SPRITE 6,(X-64,Y-8),15,6
2110 PUT SPRITE 7,(X-32,Y-8),15,7
2120 RETURN
2130 LOCATE 1,15:PRINT"--------------------"
2140 FOR Y=16 TO 18:LOCATE1,Y:PRINT "|                 |"
2150 NEXT Y
2160 LOCATE 1,19:PRINT"--------------------"
2170 RETURN
2180 REM <<<< ASSUNTOS >>>>
2190 RESTORE 2290
2200 DIM T$(18)
2210 FOR N=1 TO 18
2220 READ T$(N)
2230 NEXT N
2240 DIM T(18,3)
2250 FOR N=1 TO 18
2260 READ T(N,1),T(N,2),T(N,3)
2270 NEXT N
2280 RETURN
2290 DATA " PAIS"," ATOR",ACAPITAL," PLANETA"," FILME"," ESTADO"
2300 DATA " RIO",AFRUTA,ACOR,AFLOR,AARVORE," ESPORTE"
2310 DATA " ANIMAL"," PASSARO"," INSETO",AMUSICA," PEIXE"," LIVRO"
2320 DATA 2,66,65,1,69,74,2,70,83,3,2,69
2330 DATA 5,2,4,4,63,7,4,69,4,3,2,65
2340 DATA 3,3,82,6,73,73,4,19,8,2,65,76
2350 DATA 1,0,67,1,80,80,6,64,84,5,68,69
2360 DATA 6,72,68,5,65,65

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

1000 REM <<<< DIGA,MESTRE - ANDY >>>>

1010 CLEAR 2000

1020 DIM S$(11)

1030 GOSUB 2190

1040 RESTORE 1830

1050 SCREEN 1,3:COLOR 15,13,13:KEY OFF

1060 FOR S=0 TO 9

1070 FOR A=1 TO 32

1080 READ A$

1090 S$(S)=S$(S)+CHR$(VAL("&H"+A$))

1100 NEXT A

1110 SPRITE$(S)=S$(S)

1120 NEXT S:Y=56

1130 FOR X=0 TO 160

1140 GOSUB 2030

1150 NEXT

1160 GOSUB 2080

1170 LOCATE 11,5:PRINT "DIGA,"

1180 LOCATE 11,7:PRINT "MESTRE"

1190 FOR T=1 TO 2500:NEXT T

1200 CLS

1210 X=80:Y=40:GOSUB 2030:GOSUB 2080

1220 FOR YY=0 TO 23:LOCATE 20,YY:PRINT "|":NEXT YY

1230 FOR X=21 TO 30:LOCATE X,8:PRINT "=":LOCATE X,15:PRINT "=": NEXT X

1240 LOCATE 21,2:PRINT "DIGA O"

1250 LOCATE 21,3:PRINT "NOME DE"

1260 LOCATE 21,4:PRINT "UM"

1270 LOCATE 21,10:PRINT "ACERTOS"

1280 LOCATE 21,11:PRINT "SEGUIDOS"

1290 LOCATE 21,17:PRINT "JOGO NO."

1300 GOSUB 2130

1310 LOCATE 2,16:PRINT "DIGA,MESTRE:SERVE"

1320 REM <<<< COMECO DO JOGO >>>>

1330 WIN=0:GO=GO+1

1340 S=INT(RND(-TIME)*18)+1

1350 LOCATE 23,4:PRINT LEFT$(T$(S),1)

1360 LOCATE 21,5:PRINT RIGHT$(T$(S),LEN(T$(S))-1)

1370 LOCATE 23,13:PRINT WIN

1380 LOCATE 23,20:PRINT GO

1390 A=T(S,1):B=T(S,2):C=T(S,3)

1400 DEF FN OK=ASC(LEFT$(A$,1))

1410 IF A=2 THEN DEF FN OK=ASC(RIGHT$(A$,1))

1420 IF A=3 THEN DEF FN OK=ASC(MID$(A$,B,1))

1430 IF A=4 THEN DEF FN OK=LEN(A$)

1440 IF A=5 THEN DEF FN OK=SP+B

1450 IF A=6 THEN DEF FN OK=ASC(LEFT$(RIGHT$(A$,2),1))

1460 REM <<<< LOOP PRINCIPAL >>>>

1470 GOSUB 1550

1480 IF A$="DESISTO" THEN 1200

1490 IF RE=C THEN GOSUB 1690 ELSE GOSUB 1720

1500 FOR S=1 TO 1000:NEXT S:PUT SPRITE 8,(-32,-32)

1510 LOCATE 23,13:PRINT WIN

1520 IF WIN=3 THEN FOR K=1 TO 1000:NEXT K:GOTO 1750

1530 GOTO 1470

1540 REM <<<< ENTRADA DE DADOS >>>>

1550 A$="":SP=0:GOTO 1630

1560 LOCATE 2,18:PRINT A$

1570 W$=INKEY$:IF W$="" THEN 1570

1580 IF W$=" " THEN SP=SP+1:GOTO 1620

1590 IF W$=CHR$(13) AND LEN(A$)>1 THEN 1640

1600 W=ASC(W$) AND 223:W$=CHR$(W)

1610 IF W$<"A" OR W$>"Z" THEN GOTO 1550

1620 A$=A$+W$:IF LEN(A$)=15 THEN 1640

1630 LOCATE 2,18:PRINT STRING$(16," "):GOTO 1560

1640 A=LEN(A$):LOCATE 2+LEN(A$),18:PRINT "?"

1650 IF A<1 THEN 1550

1660 RE=FN OK

1670 RETURN

1680 REM <<<< SIM >>>>

1690 PUT SPRITE 8,(30,10),15,8

1700 WIN=WIN+1:RETURN

1710 REM <<<< NAO >>>>

1720 PUT SPRITE 8,(30,10),15,9

1730 WIN=0:RETURN

1740 REM <<<< GANHOU >>>>

1750 SCREEN 1:LOCATE 9,3:PRINT "Parabens !"

1760 LOCATE 9,4:PRINT STRING$(10,"-")

1770 LOCATE 2,10:PRINT "Voce descobriu o segredo !"

1780 LOCATE 0,20:PRINT "Aperte 'J' para jogar de novo"

1790 A$=INKEY$

1800 IF A$="J" OR A$="j" THEN 1200

1810 GOTO 1790

1820 GOTO 1820

1830 DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2

1840 DATA 0,0,7C,7,F,1F,3F,7F,41,80,80,0,0,60,30,60

1850 DATA 0,0,0,C6,FD,FF,FF,FF,FF,7F,20,0,0,0,0,0

1860 DATA 0,0,0,0,E0,DE,BA,C2,E2,E7,E7,67,27,2A,2A,2A

1870 DATA 4,4,8,8,7,1,2,2,2,1,2,2,1,0,0,0

1880 DATA 0,0,0,0,0,0,0,0,0,0,0,18,E4,2,2,2

1890 DATA 0,0,0,0,0,1,1,2,4,4,4,4,4,4,2,2

1900 DATA 20,20,40,40,80,0,0,0,0,0,0,0,0,0,0,0

1910 DATA 0,0,0,0,0,0,1,6,8,10,20,20,40,40,40,40

1920 DATA 0,0,0,0,F,70,80,0,0,0,0,0,0,0,0,0

1930 DATA 0,0,0,0,E0,10,8,4,3,0,0,0,0,0,0,0

1940 DATA 0,0,0,0,0,0,0,0,0,80,40,20,20,10,10,10

1950 DATA 80,80,80,80,80,80,40,40,20,20,10,8,6,1,0,0

1960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,80,60,1F

1970 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,6,38,C0

1980 DATA 10,10,10,8,8,8,8,10,10,C,62,99,7,0,0,0

1990 DATA 0,0,0,0,0,0,0,F8,80,81,F8,9,9,9,F9,0

2000 DATA 0,0,0,0,0,0,0,0,0,0,0,3E,2A,2A,2A,0

2010 DATA 0,0,0,0,0,0,0,F8,88,8B,88,8B,8A,8A,8B,0

2020 DATA 0,0,0,0,0,0,0,0,0,C0,0,CF,49,49,EF,0

2030 PUT SPRITE 0,(X,Y),15,0

2040 PUT SPRITE 1,(X+32,Y),15,1

2050 PUT SPRITE 2,(X,Y+32),15,2

2060 PUT SPRITE 3,(X+32,Y+32),15,3

2070 RETURN

2080 PUT SPRITE 4,(X-64,Y-40),15,4

2090 PUT SPRITE 5,(X-32,Y-40),15,5

2100 PUT SPRITE 6,(X-64,Y-8),15,6

2110 PUT SPRITE 7,(X-32,Y-8),15,7

2120 RETURN

2130 LOCATE 1,15:PRINT"--------------------"

2140 FOR Y=16 TO 18:LOCATE1,Y:PRINT "| |"

2150 NEXT Y

2160 LOCATE 1,19:PRINT"--------------------"

2170 RETURN

2180 REM <<<< ASSUNTOS >>>>

2190 RESTORE 2290

2200 DIM T$(18)

2210 FOR N=1 TO 18

2220 READ T$(N)

2230 NEXT N

2240 DIM T(18,3)

2250 FOR N=1 TO 18

2260 READ T(N,1),T(N,2),T(N,3)

2270 NEXT N

2280 RETURN

2290 DATA " PAIS"," ATOR",ACAPITAL," PLANETA"," FILME"," ESTADO"

2300 DATA " RIO",AFRUTA,ACOR,AFLOR,AARVORE," ESPORTE"

2310 DATA " ANIMAL"," PASSARO"," INSETO",AMUSICA," PEIXE"," LIVRO"

2320 DATA 2,66,65,1,69,74,2,70,83,3,2,69

2330 DATA 5,2,4,4,63,7,4,69,4,3,2,65

2340 DATA 3,3,82,6,73,73,4,19,8,2,65,76

2350 DATA 1,0,67,1,80,80,6,64,84,5,68,69

2360 DATA 6,72,68,5,65,65

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31