Publicado por: josepzin en Abril 19, 2026, 15:46:52
miner.png (3.42 kB . 384x272 - visto 151 veces)BASIC 10LINER CONTEST 2026
Descripción:
Este juego es una versión en 10 líneas del mítico juego de Zx spectrum "Mined Out!" de Ian Andrew y Rich Shenfield
Serás capaz de cruzar el campo de minas sólo con la ayuda de tu lógica??
Cuentas con la ayuda de tu detector de minas (que cuenta las minas que te rodean, excepto las que están en tus diagonales).
Plantar minas lleva un ratito...ten paciencia!!!
Control:
E: arriba
D: abajo
O: izquierda
P: derecha
Enlaces:
https://singletonjohn.itch.io/miner10
Código fuente:
Código: [Seleccionar]
POKE53280,0:POKE53281,1:PRINTRND(0)CHR$(142)CHR$(8)"":CP=20:LP=CP:X=20
FOR A=40 TO 959:MP=(INT(RND(1)*4)>2):POKE55296+A,1:POKE1024+A,32+8*(MP):NEXT
N=1024+CP:M=-(PEEK(N-40)=24)-(PEEK(N+40)=24)-(PEEK(N-1)=24)-(PEEK(N+1)=24)
PRINT""M:POKE55296+CP,14:POKE1024+CP,81:LP=CP:IFCP>=960THENPRINT"DONE!":GOTO10
GETA$:IFA$="E"THENCP=CP+40*(CP>39):IFPEEK(1024+CP)=24THENPRINT"BOOOM!":GOTO10
IFA$="D"THENCP=CP-40*(CP<960):IFPEEK(1024+CP)=24THENPRINT"BOOOM!!!":GOTO10
IFA$="O"THENCP=CP+1*(X>0):X=X+1*(X>0):IFPEEK(1024+CP)=24 THENPRINT"BOM!":GOTO10
IFA$="P"THENCP=CP-1*(X<39):X=X-1*(X<39):IFPEEK(1024+CP)=24THENPRINT"BOM!":GOTO10
POKE55296-LP*(LP<>CP),1-14*(LP<>CP):POKE1024-LP*(CP<>LP),32-128*(LP<>CP):GOTO3
FORA=55304TO55296+1000:POKEA,0:NEXT:POKE198,0:PRINT"PRESS A KEY!":WAIT198,1:RUN