Diferencias

Muestra las diferencias entre dos versiones de la página.

@@ Línea 1: / Línea 1: @@
+====== MASTER-MIND ======
+{{:otros:Master_mind_sp_p1.jpg?690|}}
+===== Ficha =====
+^ Autor | Gustavo Ernesto García Pérez       |
+^ Computadora | Amstrad PCW 8256 / 8512 / 9512 |
+^ Año | 1988                              |
+^ Género | Tablero                                |
+^ Controles | Teclado                           |
+^ Lenguajes | Español                           |
+^ Estado | [[preservado|Preservado]] |
+===== Capturas =====
+{{:otros:Master_Mind_sp_screenshot01.png?220}} {{:otros:Master_Mind_sp_screenshot02.png?220}} {{:otros:Master_Mind_sp_screenshot03.png?220}} {{:otros:Master_Mind_sp_screenshot04.png?220}}
+===== Descripción =====
+MASTER MIND es precisamente un juego de mesa. Fue considerado hace algún tiempo en el Reino Unido como el mejor juego del año.
+Para jugar no se necesita ningún joystick, solamente lógica y estrategia. Un aspecto que es preciso mencionar es que, dado que el PCW carece de monitor en color, los colores de las clavijas se han tenido que simular con distintas densidades de tramas en verde. Al principio esta circunstancia puede provocar alguna confusión por no distinguirse demasiado bien el "color" de las clavijas, pero con unas cuantas partidas los colores en verde llegarán a ser auténticos colores y su distinción casi perfecta.
+Para acertar la clave disponemos de diez posibles combinaciones, en cada una de las cuales el ordenador nos indicará si están bien colocadas o si pertenecen a la combinación pero no están en el sitio correcto.
+===== Listado =====
+  * **__Listado - MASTERES.BAS__**
+<file>
+OPTION RUN:PRINT CHR$(27)"0";
+RANDOMIZE PEEK(64504!):GOSUB 1360:GOSUB 950:GOSUB 1800
+PRINT TAB(3)"Juego N"uu$"m. (1/2/3): ";:GOSUB 130:GOSUB 1090:GOTO 150
+md$=INKEY$:IF md$="" THEN 130 ELSE IF md$<>"1" AND md$<>"2" AND md$<>"3" THEN 130
+PRINT md$;:FOR i=1 TO 100:NEXT:PRINT CHR$(27)+"f";:RETURN
+PRINT FNloc$(26,7)"Pulse cualquier tecla"FNloc$(27,7)"para iniciar el juego"
+WHILE INKEY$="":WEND:h=26:ey=1
+FOR f=26 TO 27:PRINT FNloc$(f,7)STRING$(21,32):NEXT
+'***** PREPARACION DE CLAVE *****
+c=41:a$="RVANBZ":clave$="":p=6
+IF md$="1" THEN 230
+IF md$="3" THEN a$=a$+CHR$(32):p=7
+FOR i=1 TO 4:clave$=clave$+MID$(a$,INT(RND*p+1),1):GOSUB 260:NEXT:GOTO 310
+FOR i=1 TO 4
+z=INT(RND*6+1):m$=MID$(a$,z,1):IF m$=CHR$(32) THEN 240
+MID$(a$,z,1)=CHR$(32):clave$=clave$+m$:GOSUB 260:NEXT:GOTO 310
+FOR z=1 TO INT(RND*10+5)
+f=INT(RND*11):IF f MOD 2<>0 THEN f=f+1
+f=f+192:PRINT FNloc$(4,c)CHR$(f)CHR$(f+1):OUT 248,11:OUT 248,12:FOR t=1 TO 50:NEXT
+NEXT:PRINT FNloc$(4,c)it$CHR$(7):c=c+3:RETURN
+'***** ENSAYO DEL JUGADOR *****
+p=40:i=1:ensayo$=STRING$(4,32)
+PRINT FNpton$(h,p)
+a$=UPPER$(INPUT$(1)):a=ASC(a$)
+IF a=6 THEN IF p=49 THEN 330 ELSE PRINT FNptof$(h,p):i=i+1:p=p+3:GOTO 320
+IF a=1 THEN IF p=40 THEN 330 ELSE PRINT FNptof$(h,p):i=i-1:p=p-3:GOTO 320
+IF a=13 THEN IF VAL(md$)<3 AND INSTR(ensayo$,CHR$(32))<>0 THEN 330 ELSE PRINT FNptof$(h,p):GOTO 470
+IF a=32 THEN a$=CHR$(215)+CHR$(216):GOTO 450
+IF a$="R" THEN a$=rj$:GOTO 450
+IF a$="V" THEN a$=vd$:GOTO 450
+IF a$="A" THEN a$=am$:GOTO 450
+IF a$="N" THEN a$=ng$:GOTO 450
+IF a$="B" THEN a$=bl$:GOTO 450
+IF a$="Z" THEN a$=az$:GOTO 450
+GOTO 330
+PRINT FNloc$(h,p+1)a$:MID$(ensayo$,i,1)=CHR$(a):GOTO 330
+'***** RESPUESTA ORDENADOR *****
+p=33:resp$=STRING$(4,32)
+FOR i=1 TO 4
+IF MID$(clave$,i,1)=MID$(ensayo$,i,1) THEN MID$(resp$,i,1)="1"
+NEXT
+FOR i=1 TO 4:IF MID$(resp$,i,1)="1" THEN 540
+FOR z=1 TO 4:IF MID$(clave$,i,1)=MID$(ensayo$,z,1) THEN 600
+NEXT z
+NEXT i
+IF resp$=STRING$(4,"1") THEN PRINT FNloc$(h,34)STRING$(4,sn$):GOTO 630
+IF resp$=STRING$(4,32) THEN 790 ELSE p=p+1
+i=INT(RND*4+1):IF MID$(resp$,i,1)=CHR$(32) THEN 570
+IF MID$(resp$,i,1)="0" THEN PRINT FNloc$(h,p)sb$ ELSE PRINT FNloc$(h,p)sn$
+MID$(resp$,i,1)=CHR$(32):GOTO 560
+IF MID$(resp$,z,1)<>CHR$(32) THEN 530
+MID$(resp$,z,1)="0":GOTO 540
+'***** RESULTADOS *****
+a$="CLAVE DESCIFRADA":b$="Ha conseguido descifrar"
+FOR i=1 TO 20:PRINT CHR$(7);:NEXT
+PRINT FNloc$(12,6)a$FNloc$(14,6)b$FNloc$(15,6)"la clave."FNloc$(16,6)"Jugada n"CHR$(161)ey
+GOSUB 830:GOSUB 810:p=41:FOR i=1 TO 4:a$=MID$(clave$,i,1)
+IF a$="R" THEN b$=rj$
+IF a$="V" THEN b$=vd$
+IF a$="A" THEN b$=am$
+IF a$="N" THEN b$=ng$
+IF a$="Z" THEN b$=az$
+IF a$="B" THEN b$=bl$
+IF a$=CHR$(32) THEN b$=CHR$(215)+CHR$(216)
+PRINT FNloc$(4,p)b$;CHR$(7):FOR z=1 TO 700:NEXT:p=p+3:NEXT
+PRINT FNloc$(26,6)CHR$(27)"eOtra partida (S/N): ";
+a$=UPPER$(INPUT$(1)):IF a$<>"S" AND a$<>"N" THEN 760
+IF a$="N" THEN PRINT cls$:OPTION STOP:PRINT CHR$(27)"1":END
+PRINT a$;FNloc$(27,6)"Juego N"uu$"m. (1/2/3): ";:GOSUB 130:GOSUB 920:GOSUB 1150:GOTO 150
+IF h>8 THEN h=h-2:ey=ey+1:GOTO 310 ELSE h=0
+a$="POSIBILIDADES AGOTADAS":b$="No consigui"+oo$+" descifrar":GOTO 640
+PRINT FNloc$(20,6)"Pulse cualquier tecla"FNloc$(21,6)"para mostrar la clave"
+WHILE INKEY$="":WEND:FOR f=20 TO 21:PRINT FNloc$(f,6)STRING$(21,32):NEXT:RETURN
+IF ey<3 THEN PRINT FNloc$(17,6)"Ha habido SUERTE":RETURN ELSE PRINT FNloc$(17,6)"L"oo$"gica: ";:RESTORE 930
+IF md$="3" THEN m=1:GOTO 860
+IF md$="2" THEN m=2 ELSE m=3
+FOR z=1 TO m:READ a$:NEXT
+IF ey<6 THEN m=1
+IF ey>5 AND ey<9 THEN m=2
+IF ey>8 AND ey<11 THEN m=3
+IF ey=10 AND h=0 THEN m=4
+FOR z=1 TO m-1:READ a$:NEXT:PRINT a$::RETURN
+PRINT FNpant$(6,6,22,23)cls$FNpant$(0,0,31,90):RETURN
+DATA Exelente,"Muy buena",Buena,Regular,Mala,"Muy mala"
+'****** INICIALIZACION VARIABLES *****
+cls$=CHR$(27)+"E"+CHR$(27)++"H"
+vi$=CHR$(27)+"p":vn$=CHR$(27)+"q"
+DEF FNloc$(f,c)=CHR$(27)+"Y"+CHR$(f+32)+CHR$(c+32)
+DEF FNpton$(x,y)=FNloc$(x,y)+CHR$(149)+FNloc$(x,y+3)+CHR$(149)
+DEF FNptof$(x,y)=FNloc$(x,y)+CHR$(32)+FNloc$(x,y+3)+CHR$(32)
+DEF FN pant$(f,c,x,y)=CHR$(27)+"X"+CHR$(f+32)+CHR$(c+32)+CHR$(x+31)+CHR$(y+31)
+bl$=CHR$(192)+CHR$(193):ng$=CHR$(194)+CHR$(195)
+az$=CHR$(196)+CHR$(197):rj$=CHR$(198)+CHR$(199)
+am$=CHR$(200)+CHR$(201):vd$=CHR$(202)+CHR$(203)
+it$=CHR$(217)+CHR$(218):sb$=CHR$(204):sn$=CHR$(205)
+FOR i=1 TO 4:ag$=ag$+CHR$(32)+CHR$(215)+CHR$(216):NEXT:ag$=ag$+CHR$(32)
+aa$=CHR$(224):ee$=CHR$(225):ii$=CHR$(226):oo$=CHR$(227):uu$=CHR$(228)
+RETURN
+'***** DIBUJO DEL TABLERO *****
+PRINT cls$:f=1:c=4:m=80:h=30:GOSUB 1320
+PRINT FNloc$(0,5)" * M A S T E R   MI N D *"FNloc$(0,49)CHR$(164)" 1988 Gustavo Ernesto Garc"ii$"a P"ee$"rez"
+f=2:c=30:m=25:h=29:GOSUB 1320
+PRINT FNloc$(6,31)CHR$(206)CHR$(207)STRING$(21,154)CHR$(208)CHR$(209)
+FOR f=7 TO 27:PRINT FNloc$(f,31)CHR$(149)TAB(28)CHR$(149):NEXT
+PRINT FNloc$(28,31)CHR$(210)CHR$(211)STRING$(21,154)CHR$(212)CHR$(213)
+f=3:c=39:m=13:h=5:GOSUB 1320:PRINT FNloc$(4,40)ag$
+PRINT FNloc$(7,33)CHR$(150)STRING$(4,154)CHR$(156)CHR$(134)STRING$(13,138)CHR$(140):f=8
+PRINT FNloc$(f,33)CHR$(157)STRING$(4,214)CHR$(149)CHR$(149)ag$CHR$(151)
+IF f=26 THEN 1210 ELSE f=f+1
+PRINT FNloc$(f,33)CHR$(151)STRING$(4,154)CHR$(157)CHR$(135)STRING$(13,138)CHR$(141)
+f=f+1:GOTO 1170
+PRINT FNloc$(27,33)CHR$(147)STRING$(4,154)CHR$(153)CHR$(131)STRING$(13,138)CHR$(137)
+PRINT FNloc$(3,32)"MASTER"FNloc$(4,32)CHR$(214)"MIND"CHR$(214)FNloc$(5,31)CHR$(147)STRING$(6,154)CHR$(153)
+PRINT FNloc$(4,8)"Modalidad de juego:"FNloc$(4,62)"Clavijas de c"oo$"digo:"
+PRINT FNloc$(6,11)"Juego N"uu$"m. "md$FNloc$(6,66)bl$"... "vi$"B"vn$"lanca"
+IF md$="1" THEN PRINT FNloc$(8,11)"360 claves":GOTO 1280
+IF md$="2" THEN PRINT FNloc$(8,11)"1296 claves":GOTO 1280
+PRINT FNloc$(8,11)"2401 claves"
+PRINT FNloc$(8,66)am$"... "vi$"A"vn$"marilla"FNloc$(10,66)vd$"... "vi$"V"vn$"erde"FNloc$(12,66)rj$"... "vi$"R"vn$"oja"
+PRINT FNloc$(14,66)az$"... a"vi$"Z"vn$"ul"FNloc$(16,66)ng$"... "vi$"N"vn$"egra"FNloc$(19,59)"ESPACIO... extrae clavija"
+PRINT FNloc$(21,59)"RETURN... entrega c"oo$"digo"FNloc$(23,59)"TECLAS de CURSOR..."
+f=25:c=64:m=13:h=27:GOSUB 1320:PRINT FNloc$(26,67)CHR$(27)CHR$(11)CHR$(149)CHR$(215)CHR$(216)CHR$(149)CHR$(27)CHR$(12):RETURN
+PRINT FN loc$(f,c)CHR$(150)STRING$(m,154)CHR$(156)
+FOR i=f+1 TO h-1:PRINT FNloc$(i,c)CHR$(149)FNloc$(i,c+m+1)CHR$(149):NEXT
+PRINT FNloc$(i,c)CHR$(147)STRING$(m,154)CHR$(153):RETURN
+'***** DISE\O DE FICHAS *****
+MEMORY &HEA5F:RESTORE 1380
+FOR i=0 TO 53:READ z:POKE &HEA60+i,z:NEXT
+DATA 42,1,0,17,87,0,237,90
+DATA 34,123,234,33,160,234,1,128
+DATA 234,205,122,234,233,0,0,201
+DATA 0,0,195,0,0,201,0,0
+DATA 126,35,229,111,38,0,41,41
+DATA 41,17,0,184,25,229,209,225
+DATA 1,8,0,237,176,201
+rutina=&HEA60:codigo=&HEAA0
+READ p:IF p=0 THEN RETURN
+FOR i=1 TO 8:READ z:POKE codigo+i,z:NEXT
+POKE codigo,p
+CALL rutina
+GOTO 1460
+DATA 192,15,63,127,255,255,127,63,15
+DATA 193,240,252,254,255,255,254,252,240
+DATA 194,15,56,96,192,192,96,56,15
+DATA 195,240,28,6,3,3,6,28,240
+DATA 196,15,48,68,160,136,64,49,15
+DATA 197,240,76,10,129,17,66,12,240
+DATA 198,15,49,72,196,162,81,56,15
+DATA 199,240,28,138,69,35,18,140,240
+DATA 200,15,59,108,211,204,115,60,15
+DATA 201,240,60,206,51,203,54,220,240
+DATA 202,15,53,106,213,170,85,42,15
+DATA 203,240,92,170,85,171,86,172,240
+DATA 204,0,0,124,254,254,124,0,0
+DATA 205,0,0,124,198,198,124,0,0
+DATA 206,15,56,96,192,192,96,56,24
+DATA 207,240,28,6,3,3,0,0,0
+DATA 208,15,56,96,192,192,0,0,0
+DATA 209,240,28,6,3,3,6,28,24
+DATA 210,24,56,96,192,192,96,56,15
+DATA 211,0,0,0,3,3,6,28,240
+DATA 212,0,0,0,192,192,96,56,15
+DATA 213,24,28,6,3,3,6,28,240
+DATA 214,0,0,0,56,56,0,0,0
+DATA 215,0,0,0,3,3,0,0,0
+DATA 216,0,0,0,192,192,0,0,0
+DATA 217,15,56,99,198,192,96,56,15
+DATA 218,240,28,198,99,195,198,28,240
+DATA 0
+REM ******* INSTRUCCIONES *******
+PRINT cls$"MASTER MIND es un juego de l"oo$"gica y estrategia en el que usted debe tratar de descubrir"
+PRINT TAB(16)"una clave secreta en un m"aa$"ximo de diez jugadas."
+PRINT "El ordenador pondr"aa$" en secreto cuatro de las seis clavijas de c"oo$"digo. Usted deber"aa$" tratar"
+PRINT "de repetir las clavijas de los mismos colores y en las posiciones exactas de la clave se-"
+PRINT "creta. Cada vez que coloque una fila de clavijas de c"oo$"digo, se le proporcionar"aa$" informa-"
+PRINT "ci"oo$"n colocando "CHR$(27)"raleatoriamente"CHR$(27)"u -en el lugar destinado a ello-, las clavijas informativas"
+PRINT "siguientes:":PRINT
+PRINT TAB(9)sn$" Se colocar"aa$" una clavija informativa negra por cada clavija de c"oo$"digo"
+PRINT TAB(11)"que usted acierte en color y lugar."
+PRINT TAB(9)sb$" Se colocar"aa$" una clavija informativa blanca por cada clavija de c"oo$"digo"
+PRINT TAB(11)"acertada en color pero fuera de lugar."
+PRINT TAB(9)CHR$(214)" Se dejar"aa$" un agujero de clavija informativa vac"ii$"o por cada clavija de"
+PRINT TAB(11)"c"oo$"digo que no forme parte de la clave secreta.":PRINT
+PRINT "- Juego N"uu$"m. 1 (360 claves posibles)"
+PRINT "  En esta modalidad la clave secreta estar"aa$" formada por cuatro de las seis clavijas sin"
+PRINT "  que se repita ninguna de ellas. Es el nivel de juego m"aa$"s bajo.":PRINT
+PRINT "- Juego N"uu$"m. 2 (1.296 claves posibles)"
+PRINT "  La clave secreta que usted debe tratar de descubrir estar"aa$" formada por cuatro clavijas"
+PRINT "  que pueden, o no, estar repetidas. Esta modalidad supone un nivel m"aa$"s avanzado de juego.":PRINT
+PRINT "- Juego N"uu$"m. 3 (2.401 claves posibles)"
+PRINT "  Esta modalidad es igual que la segunda, pero aqu"ii$" se pueden usar agujeros vac"ii$"os repre-"
+PRINT "  sentando otro color de clavija. Este juego equivale pues a utilizar clavijas de c"oo$"digo"
+PRINT "  de siete colores que pueden, o no, estar repetidas. Habr"aa$" que imaginar que cada agujero"
+PRINT "  vac"ii$"o constituye otro color de clavija. Es la modalidad de m"aa$"s alto nivel.":PRINT:RETURN
+</file>
+===== Controles =====
+        B = BLANCA
+        A = AMARILLA
+        V = VERDE
+        R = ROJA
+        Z = AZUL
+        N = NEGRA
+        ← = IZQUIERDA
+        → = DERECHA
+  ESPACIO = EXTRAE FICHA
+   RETURN = ENTREGA CÓDIGO
+===== Carga del programa =====
+.- Introducir el disco CP/M por la cara 2
+.- Escribir BASIC y esperar a que cargue
+.- Retirar el disco CP/M e introducir el disco que contiene el juego Master-Mind
+.- Teclear run "MASTERES" y pulsar la tecla "ENTER"
+===== Extras =====
+  * Listado del programa en una revista de gran tirada de la época
+{{:otros:Master_Mind_sp_programa_01.jpg?170}} {{:otros:Master_Mind_sp_programa_02.jpg?170}} {{:otros:Master_Mind_sp_programa_03.jpg?170}} {{:otros:Master_Mind_sp_programa_04.jpg?170}}
+===== Descarga =====
+  * {{:otros:Master_Mind_sp.zip|Master-Mind }}(juego en formato dsk, comprimido con zip)