Miner10 lines (SingletonJohn - 2026)(BASIC 10L)

[josepzin]

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