CONCURSO: VIDEOJUEGO EN 10 LINEAS DE BASIC

[zxpope]

hola,

el dia 25 de Marzo acaba el desafio de hacer un videojuego en 10 lineas de basic
ver bases aqui https://www.vintageisthenewold.com/2023-basic-10liner-contest-is-on

os cuento mi plan

FILOSOFIA
=========
no tengo excesivo tiempo libre, pero estoy aprovechando los desplazamientos en metro
para pensar en posibles mecanicas de juego, y tras acostar los niños,
pruebo rapidamente la idea en el pc/emu (eightyone).
en el siguiente viaje en metro valoro los resultados y realizo la siguiente
iteracion. Evito entrar en el ciclo prueba-error delante de la computadora,
el cansancio acumulado del dia se encarga de ello.

ALGORITMO
=========
10 lineas no dan para mucho, este es mi esqueleto

10 inicializa
20 lee-teclado
30 calcula-nuevo-estado
40 calcula-nuevo-estado
50 dibuja-en-pantalla
60 dibuja-en-pantalla
70 condicion-de-fin
80 goto-20

para obtener un desafio en poco espacio, que mejor que en el calculo aparezca algo recursivo
como una ecuacion en diferencias: movimiento uniformemente acelerado, un fractal, etc


ZX BASIC
========
mi primer contacto con un ordenador fue un sabado por la mañana con un ZX81.
aun lo recuerdo. que chulo!. tiempo despues tuve un ZX48.
pero he tardado 30 años en hacerle mi primer videojeugo!
con esta escusa, uso dialecto SINCLAIR BASIC

https://en.wikipedia.org/wiki/Sinclair_BASIC
https://worldofspectrum.org/ZXBasicManual/

que en su version mas simple para ZX80 tiene estas palabras

LET GOTO IF THEN GOSUB STOP RETURN FOR TO NEXT CONTINUE
PRINT INPUT CLEAR CLS DIM REM RANDOMIZE POKE
NEW RUN LIST LOAD SAVE

No hay ELSE, ni funciones matematicas ni coma flotante.
Imagino que Sir Clive, como matematico, lloró sangre al sacar una
computadora sin estas prestaciones cientificas.

HARDWARE
========
Me interesa el concepto LOW-RES, con pantallas de juego de 32x32 pixels (leds),
muy en linea con las prestaciones de un ZX80/81/48: 24*32 caracteres.

No tengo claro que sea posible un juego interactivo "arcade" en basic en ZX80/81.
En modo SLOW demora tiempo hacer los minimos calculos de la mecanica del
juego. Estoy probando con ZX48k de momento



salud
zxpope

agradezco a dcrespo sus publicaciones en el foro. han sido inspiradoras

[zxpope]

ZX81 Y ZX48, BASICs DIFERENTES
==============================

trabajar con maquinas antiguas tiene el problema que el principio de no
sorprender al programador no se cumple.

el basic del zx80/zx81 no permite la ejecución de multiples sentencias
en una misma linea, zx48 si lo permite. por ejemplo

10 let a=1: let a=2

en zx81 se ejecuta sin error asignando 1 a la variable A,
y en zx48 se asigna 2 a la variable A. curiosamente, no falla la ejecucion
en el primer caso, simplemete no lo ejecuta

esto arruina la competicion. no parece razonable competir
contra el limite de 10 lineas. seria razonable incluir un limite de 10*80=800 caracteres

de momento, continuo con la maquina ZX48.


BASIC MEJORADO PARA ZX81
========================

rebuscando en los recobecos de la internet profunda, he encontrado
basics mejorados para el zx81. con una ampliacion de 16k es posible
cargar un interprete basic que amplia el basic de la ROM.

aun siendo dicho esfuerzo muy de agradecer, prefiero sufrir las penurias de la
maquina, que en este caso se limitan a romper una linea basic en dos


ENTEROS VS COMA FLOTANTE
========================

los tiempos de calculo y refresco en pantalla no son para tirar cohetes.
intento hacer trabajar los algoritmos con la mecanica de juego con enteros,
evitando la coma flotante. pero no estoy seguro que esto sea util en basic.

Screenshot from 2023-02-22 22-01-18.png (8.63 KiB) Visto 797 veces

Screenshot from 2023-02-22 22-03-07.png (5.65 KiB) Visto 797 veces

Screenshot from 2023-02-22 22-04-35.png (11.93 KiB) Visto 797 veces

[zxpope]

TEN-LINE MINIMAL LUNAR LANDER
=============================

IDEA
----
El objetivo del simulador es aterrizar la nave espacial sobre la palabra LUNA.
La nave tiene dos motores P y Q en el vector izquierda+arriba y en el vector
derecha+arriba. Los motores permiten vencer la gravedad lunar y mover
izquierda/derecha la nave. El aterrizaje es valido si las velocidades
vertical y horizontal son proximas a cero.
El motor dispone de 100 unidades de combustible.

IMPLEMENTACION
--------------
Utilizamos la fisica del movimiento uniforme acelerado donde velocidad y
espacio son
v=v0+a*t
e=e0+v*t
Tomamos t=1 obteniendo las ecuaciones en diferencias
v=v+a,x=x+v
w=w+b,y=y+w
Si activamos motor,
b=1
a=1 o a=-1;
en caso contrario
actua la gravedad b=-2,a=0.
Transformamos las posiciones X,Y en coordenadas de pantalla i,j
multiplicando por una sensibilidad G y aplicando mudulo sobre
el resultado para obtener un espacio de movimiento infinito.
i=mod(x*G,X)
j=mod(y*G,Y)
print i,j,"*"
Tu unica oportunidad de ganar es no jugar.
bye,zxpope(atgmailcom)
comentarios bienvenidos viewtopic.php?f=57&t=200039142&p=200166739&hilit=basic#p200166739


CODIGO BASIC
============

1 CLS: LET G=30: LET F=100: LET X=300: LET V=0: LET Y=0: LET W=3:
2 LET I=10: LET J=0: LET P=0: LET Q=0: PRINT AT 21,0;"==MINIMUM LUNAR LANDER=="

3 IF J=20 AND I>9 AND I<15 AND ABS(W)<5 THEN PRINT AT 20,0;"LAND OK!": STOP
4 IF F=0 THEN PRINT AT 20,0;"CRASH! OUT-OF-FUEL!": STOP

5 PRINT AT 0,0;"V";V;" ": PRINT "W";W;" ": PRINT "F";F;" ": IF W>8 THEN LET W=8
6 IF J<>Q OR I<>P THEN PRINT AT J,I;"*": PRINT AT Q,P;" "

7 LET A=0: LET B=1: IF INKEY$ = "q" THEN LET A=-1: LET B=-2: LET F=F-1
8 IF INKEY$ = "p" THEN LET A= 1: LET B=-2: LET F=F-1

9 LET W=W+B: LET Y=Y+W: LET Q=J: LET J=INT(Y/G): LET J=J-INT(J/21)*21:
10 LET V=V+A: LET X=X+V: LET P=I: LET I=INT(X/G): LET I=I-INT(I/31)*31: GOTO 3

11 rem mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm--80







TEN-LINE MINIMAL LUNAR LANDER
=============================

IDEA
----
The simulator objective is to land the spaceship on the word MOON.
The ship has two engines P and Q, in the left+up vector and in the vector
right+up. The engines allow to overcome the lunar gravity and move
left/right the ship.
Landing is valid if the speeds vertical and horizontal are close to zero.

IMPLEMENTATION
--------------
We use the physics of accelerated uniform motion where velocity and space are
v=v0+a*t
e=e0+v*t
We take t=1 obtaining the difference equations
v=v+a,x=x+v
w=w+b,y=y+w
If we activate motor,
b=1
a=1 or a=-1;
otherwise
gravity acts b=-2,a=0.
We transform the X,Y positions into screen coordinates i,j
multiplying by a sensitivity G and applying modulus on
the result to obtain an infinite space of movement.
i=mod(x*G,X)
j=mod(y*G,Y)
print i,j,"*"
Engine has 100 units of fuel.
Your only chance to win is not to play.

CODIGO BASIC
------------

1 CLS: LET G=30: LET F=100: LET X=300: LET V=0: LET Y=0: LET W=3:
2 LET I=10: LET J=0: LET P=0: LET Q=0: PRINT AT 21,0;"==MINIMUM LUNAR LANDER=="

3 IF J=20 AND I>9 AND I<15 AND ABS(W)<5 THEN PRINT AT 20,0;"LAND OK!": STOP
4 IF F=0 THEN PRINT AT 20,0;"CRASH! OUT-OF-FUEL!": STOP

5 PRINT AT 0,0;"V";V;" ": PRINT "W";W;" ": PRINT "F";F;" ": IF W>8 THEN LET W=8
6 IF J<>Q OR I<>P THEN PRINT AT J,I;"*": PRINT AT Q,P;" "

7 LET A=0: LET B=1: IF INKEY$ = "q" THEN LET A=-1: LET B=-2: LET F=F-1
8 IF INKEY$ = "p" THEN LET A= 1: LET B=-2: LET F=F-1

9 LET W=W+B: LET Y=Y+W: LET Q=J: LET J=INT(Y/G): LET J=J-INT(J/21)*21:
10 LET V=V+A: LET X=X+V: LET P=I: LET I=INT(X/G): LET I=I-INT(I/31)*31: GOTO 3

11 rem mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm--80


bye,zxpope(atgmailcom)
feedback wellcome comentarios bienvenidos viewtopic.php?f=57&t=200039142&p=200166739&hilit=basic#p200166739

mll.tap

(775 Bytes) Descargado 4 veces

Screenshot from 2023-03-12 21-43-57.png (7.62 KiB) Visto 582 veces

[zxpope]

hola,

mi objetivo de hacer un juego para el concurso con el ZX80 se ha truncado.

1) zxbasic81 no permite multiples instrucciones en una linea, con lo que es imposible implementar la logica del lunar lander en 10 lineas
2) zxbasic80 además no permite PRINT AT X,Y, lo que complica aun mas la implementacion
3) en zx80 me temo que la pantalla no aparece hasta que no se realiza un INPUT ¿?¿? lo que impide un juego intereactivo como este...
4) zx81 es mucho mas lento que el ZX48 ejecutando el mismo codigo, parece poco interactivo

asi que presento este juego para el concurso con un ZX48

La arquitectura del ZX80 es tremendamente atractiva por su simplicidad,
pero el basic tiene muchas limitaciones. Creo que el esfuerzo ha de ir hacia usar
un lenguaje contemporaneo al basic mejor pensado: C

Dejo esta segunda contienda para otro hilo.
Espero que os haya gustado.

GAME OVER

zxpope



prototipo del MLL minimum lunar lander portado al ZX81

100 CLS
110 LET G=5
111 REM G=30
120 LET F=100
130 LET X=300
140 LET V=0
150 LET Y=0
160 LET W=3
170 LET I=10
180 LET J=0
190 LET P=0
200 LET Q=0
210 PRINT AT 21,0;"==MINIMUM LUNAR LANDER=="
300 IF J=20 AND I>9 AND I<15 AND ABS(W)<5 THEN PRINT AT 20,0;"LAND OK"
301 IF J=20 AND I>9 AND I<15 AND ABS(W)<5 THEN STOP
310 IF F=0 THEN PRINT AT 20,0;"CRASH OUT-OF-FUEL"
311 IF F=0 THEN STOP
320 PRINT AT 0,0;"V";V;" "
330 PRINT "W";W;" "
350 PRINT "F";F;" "
360 IF J<>Q OR I<>P THEN PRINT AT J,I;"*"
361 IF J<>Q OR I<>P THEN PRINT AT Q,P;" "
400 IF W>8 THEN LET W=8
410 LET A=0
420 LET B=1
430 IF INKEY$ <> "Q" THEN GOTO 440
431 LET A=-1
432 LET B=-2
433 LET F=F-1
440 IF INKEY$ <> "P" THEN GOTO 500
441 LET A= 1
442 LET B=-2
443 LET F=F-1
500 LET W=W+B
510 LET Y=Y+W
520 LET Q=J
530 LET J=INT(Y/G)
540 LET J=J-INT(J/21)*21
550 LET V=V+A
560 LET X=X+V
570 LET P=I
580 LET I=INT(X/G)
590 LET I=I-INT(I/31)*31
600 GOTO 300

[Miguel angel rojo]

Gracias por el listado y el post ZXpope, tengo ganas de ver que presenta la gente, que pena que se te truncara como dices el presentar el tuyo, yo hace unos meses me puse con el basic del amstrad, en la época a parte de poner print y goto, no aprendí más, ahora pues acierto a pintar una nave en la pantalla y darle movímiento solo o con con el teclado, incluso he llegado a pintar enemigos, pero las colisiones se me han atragantado, luego está el problema que hace un par de meses que no lo toco y casi que no me acuerdo de nada..... será la edad? Tendre que volver a repasarmelo todo, de todas manera mucho del juego que estoy haciendo lo he hecho pillando de aquí y de allí, no se si me puedo llamar un plajiador nato.....

[minter]

de todas manera mucho del juego que estoy haciendo lo he hecho pillando de aquí y de allí, no se si me puedo llamar un plajiador nato.....

Si copias de un sitio, se llama plagiar.
Si copias de varios, se llama "investigar"

[Elurdio]

···luego está el problema que hace un par de meses que no lo toco y casi que no me acuerdo de nada..... será la edad? Tendre que volver a repasarmelo todo, ···

Estamos igual, aunque no con el Basic, sino en general.

[Miguel angel rojo]

de todas manera mucho del juego que estoy haciendo lo he hecho pillando de aquí y de allí, no se si me puedo llamar un plajiador nato.....

Si copias de un sitio, se llama plagiar.
Si copias de varios, se llama "investigar"

jajaja esa es buena minter

[Miguel angel rojo]

···luego está el problema que hace un par de meses que no lo toco y casi que no me acuerdo de nada..... será la edad? Tendre que volver a repasarmelo todo, ···

Estamos igual, aunque no con el Basic, sino en general.

Ufff, menos mal, pensé que solo me pasaba a mi

[zxpope]

hola,
gracias por vuestro feedback

la idea de hacer algo en 10 lineas es muy buena, porque son proyectos de corta duracion.
y se puede "revisar" casi al instante, no es un dolor recuperar algo hecho hace 10 meses

pero para que los zx81 entren en la competicion,
se ha de ampliar de 10 lineas*80cols
a 800 caracteres sin limite de lineas
pero que haya 10 lineas, supone un reto mayor que N lineas.

fijaos en la estructura que finalmente he usado salen 5 lineas, como poco

10 inicializa
20 dibuja-escenario-en-pantalla
30 condicion-de-fin
40 lee-teclado+dibuja-sprites-en-pantalla
50 calcula-nuevo-estado, goto-30


salud,
zxpope

[dancresp]

Tengo a medio hacer un programa arcade de 10 lineas para el ORIC-1 bastante "sorprendente", pero tengo un problema moral... y es que no me gusta competir.

Como en el caso del Sudoku que publiqué hace pocas semanas, lo acabaré publicando más adelante sin intención de ganar nada o a nadie.
Simplemente por disfrute y con ganas de compartirlo con el resto.

Como no, respeto totalmente al que quiera participar en estos concursos.

[zxpope]

hola

en una competición que hubo en navidad, participé en una prueba de
graficar una estrella en basic, en el espacio de programa mas pequeño
el ganador fue una genialidad.

asi que la competicion realmente es contra uno mismo: un reto interesante,
algo pendiente de probar, cierta exposición publica, y sobre todo un deadline
una fecha de entrega, una comunidad donde contrastar ideas...

zxpope

[explorer]

Tengo a medio hacer un programa arcade de 10 lineas para el ORIC-1 bastante "sorprendente", pero tengo un problema moral... y es que no me gusta competir.

En la página pone: "Una vez más, puedes demostrar tu pericia escribiendo código BASIC compactado para el concurso 2023 Basic 10Liner".

Normalmente pensamos en la palabra "concurso" como una competición, pero esa no es su primera acepción del diccionario. Las tres primeras acepciones son: 1) concurrencia (de personas); 2) coincidencia de sucesos; 3) asistencia, participación, colaboración.

Estos concursos tienen más de nostalgia, diversión y mérito, que de ganar un premio. Lo que ganas es el premio de la gloria y admiración de tus amigos y conocidos por hacer algo que los demás no pudimos hacer.