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.




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

Juego de logica hecho en Basic, es educacional y el fin es usar deduccion para adivinar los atributos de cada una de las cajas para ver cuales figuran encajan donde.

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

martes, 2 de abril de 2019

Berks Four

Jon Williams libero un nuevo juego llamado Berks Four, que realmente es Berks 3, pero mutó tanto que le puso 4.

Un arcade dentro del mundo de Berks (esta Baby berks y otros).