domingo, 28 de abril de 2019
martes, 16 de abril de 2019
Snoopy Tennis
Uno de los mejores tenis para gameboy (y juego de tenis en general), bien logrado la jugabilidad.
Un juego agradable de tenis hecho para la Gameboy Color.
De dificultad superior a la media, tiene similitudes (obviamente) con
varios juegos clasicos de tenis. Algo del Nintendo Tenis con su swing
rapido, las pelotas entran casi en un 95% (de Virtua Tennis) y colores
de dibujos animados (Mario Tennis), entre otros.
domingo, 14 de abril de 2019
lunes, 8 de abril de 2019
Century/Acorn User: Book of Computer Puzzles
Libro con resumen de soluciones a puzzles de la revista de Acorn.
Se supone que usa Warnsdorff's rule.
About the Edition
This book was the result of the best puzzles submitted to a competition in Acorn User magazine . The book is worth buying just to see the elegant coding of the winning puzzle which solves the ancient puzzle of the Chess Board Knight's Tour without resorting to the usual 'diamonds and squares' method.
Sadly, the editor Simon Dally died on the 26th of March 1989.
First Sentence
This book was born out of the experience of setting the competitions for Acorn User each month since its launching in July 1982.
https://openlibrary.org/books/OL15157004M/Book_of_computer_puzzles?v=17
Programa publicado:
10 MODE 7
20 DIM board(8,8)
30 DIM dx(8), dy(8)
40 FOR i=1 TO 8
50 READ dx(i), dy(i)
60 NEXT
70 INPUT "Start X (1-8): " sx
80 INPUT "Start Y (1-8): " sy
90 move = 1
100 x = sx
110 y = sy
120 board(x,y) = move
130 REPEAT
140 move = move + 1
150 minDeg = 9
160 nextX = 0
170 nextY = 0
180 FOR i=1 TO 8
190 nx = x + dx(i)
200 ny = y + dy(i)
210 IF nx>=1 AND nx<=8 AND ny>=1 AND ny<=8 THEN
220 IF board(nx,ny)=0 THEN
230 deg = 0
240 FOR j=1 TO 8
250 tx = nx + dx(j)
260 ty = ny + dy(j)
270 IF tx>=1 AND tx<=8 AND ty>=1 AND ty<=8 THEN
280 IF board(tx,ty)=0 THEN deg = deg + 1
290 ENDIF
300 NEXT
310 IF deg < minDeg THEN
320 minDeg = deg
330 nextX = nx
340 nextY = ny
350 ENDIF
360 ENDIF
370 ENDIF
380 NEXT
390 IF nextX = 0 THEN move = move - 1 : EXIT
400 x = nextX
410 y = nextY
420 board(x,y) = move
430 UNTIL move = 64
440 PRINT
450 PRINT "Tour length = "; move
460 FOR y=1 TO 8
470 FOR x=1 TO 8
480 PRINT RIGHT$(" "+STR$(board(x,y)),3);
490 NEXT
500 PRINT
510 NEXT
520 END
530 DATA 2,1, 1,2, -1,2, -2,1
540 DATA -2,-1, -1,-2, 1,-2, 2,-1
Attribute Boxes
Muy parecido a los juegos de IQ.
http://www.atarimania.com/game-atari-400-800-xl-xe-attribute-boxes_431.html
NOT RED !
(existe la negacion ---- plop!)
L large
S small
B blue
R red
G green
Y yellow
C circle
D diamond
S Square
T triangle
outside
both
1
2
sábado, 6 de abril de 2019
martes, 2 de abril de 2019
Berks Four
Un arcade dentro del mundo de Berks (esta Baby berks y otros).































