es:breakout
no way to compare when less than two revisions
Diferencias
Muestra las diferencias entre dos versiones de la página.
Revisión previaPróxima revisión | |||
— | es:breakout [2022/06/30 02:32] – [Extras] jevicac | ||
---|---|---|---|
Línea 1: | Línea 1: | ||
+ | ====== BREAKOUT ====== | ||
+ | ===== Ficha ===== | ||
+ | {{: | ||
+ | ^ Autor | Norman Barrington | ||
+ | ^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | | ||
+ | ^ Año | ???? | | ||
+ | ^ Género | Arcade | ||
+ | ^ Controles | Teclado | ||
+ | ^ Lenguajes | Inglés | ||
+ | ^ Estado | [[preservado|Preservado]] | | ||
+ | |||
+ | ===== Capturas ===== | ||
+ | |||
+ | {{: | ||
+ | |||
+ | ===== Descripción ===== | ||
+ | |||
+ | Se trata de una implantación para PCW del conocido juego de arcade. Tenemos cinco bolas con las que deberemos de romper la pared de ladrillos que encontraremos a nuestra derecha. Cada ladrillo que rompamos nos hará ganar diferentes puntos. Si después de las cinco bolas nuestra puntuación es más de 100, se nos otorgará una bola extra por cada 100 puntos que hayamos ganado. La puntuación de cada ladrillo se nos muestra en la parte superior de los mismos. El programa está diseñado para permitir que la bola rebote por toda la pantalla de una forma aleatoria dentro de los ladrillos. Cada colisión de la bola en los ladrillos produce una nota musical y cada color produce un tono diferente pudiendo resultar una experiencia musical. | ||
+ | |||
+ | El número de bolas restantes se indican en la parte superior derecha de la pantalla. Cada nueva bola se dispara en el juego desde la parte delantera del bate, por lo que la posición del bate afectará como entre la pelota en juego, y por supuesto deberemos de mover el bate hacia arriba o hacia abajo (con las teclas de cursor) con el fin de mantener la bola en juego. | ||
+ | |||
+ | Para salir del juego basta con pulsar la tecla exit. | ||
+ | |||
+ | ===== Listado ===== | ||
+ | |||
+ | * **__Listado 1 - BREAKOUT.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 DIM b(8, | ||
+ | 20 DATA 243, | ||
+ | 30 DATA 41, | ||
+ | 40 CHAR=247: | ||
+ | 50 NEXT: | ||
+ | 55 DATA 0, | ||
+ | 60 DATA 0, | ||
+ | 70 DATA 0, | ||
+ | 80 DATA 0, | ||
+ | 90 DATA 0, | ||
+ | </ | ||
+ | |||
+ | * **__Listado 2 - BREAKOUT.OVL__** | ||
+ | |||
+ | < | ||
+ | 10 OPTION RUN | ||
+ | 20 ' | ||
+ | 30 DEFINT a-z:DIM a(30, | ||
+ | 40 DEF FNat$(x, | ||
+ | 50 con$=CHR$(27)+" | ||
+ | 60 cls$=CHR$(27)+" | ||
+ | 70 rev$=CHR$(27)+" | ||
+ | 80 bat$=CHR$(27)+" | ||
+ | 90 bl$=CHR$(247) | ||
+ | 100 PRINT CHR$(27)+" | ||
+ | 110 PRINT FNat$(3, | ||
+ | 120 PRINT FNat$(25,0) SPACE$(88) rof$ | ||
+ | 130 PRINT FNat$(15, | ||
+ | 135 PRINT FNat$(29, | ||
+ | 140 FOR x=6 TO 24 :FOR y=53 TO 84 STEP 2: | ||
+ | 150 FOR y=53 TO 84 STEP 2: | ||
+ | 160 x=cx: | ||
+ | 170 PRINT rev$ | ||
+ | 171 PRINT FNat$(4, | ||
+ | 180 IF bl=1 THEN GOSUB 510 | ||
+ | 190 a$=INKEY$: | ||
+ | 200 ON z GOTO 210, | ||
+ | 210 IF cx<23 THEN cx=cx+1: | ||
+ | 220 IF cx>6 THEN cx=cx-1: | ||
+ | 230 ON a GOTO 250, | ||
+ | 240 ' | ||
+ | 250 x=x-1: | ||
+ | 260 IF x<6 THEN a=2: | ||
+ | 270 PRINT FNat$(x+1, | ||
+ | 280 ' | ||
+ | 290 x=x+1: | ||
+ | 300 IF x>24 THEN a=1:bl=1 ELSE IF y>88 THEN GOTO 450 | ||
+ | 310 PRINT FNat$(x-1, | ||
+ | 320 ' | ||
+ | 330 x=x+1: | ||
+ | 340 IF x>24 THEN a=4:bl=1 ELSE IF y<2 THEN y=y+1: | ||
+ | 350 PRINT FNat$(x-1, | ||
+ | 360 IF y=2 AND ABS(x-cx)< | ||
+ | 370 GOTO 180 | ||
+ | 380 ' | ||
+ | 390 x=x-1: | ||
+ | 400 IF x<6 THEN a=3:bl=1 ELSE IF y<2 THEN y=y+1: | ||
+ | 410 PRINT FNat$(x+1, | ||
+ | 420 IF y=2 AND ABS(x-cx)< | ||
+ | 430 GOTO 180 | ||
+ | 440 PRINT FNat$(x, | ||
+ | 450 PRINT FNAT$(15, | ||
+ | 460 FOR note=9 TO 0 STEP -1:GOSUB 640: | ||
+ | 470 extr=points\100: | ||
+ | 480 PRINT FNat$(15, | ||
+ | 490 PRINT FNat$(x, | ||
+ | 500 points=points+note: | ||
+ | 510 d=0.01: | ||
+ | 520 PRINT FNAT$(16, | ||
+ | 525 WHILE INKEY$<>"": | ||
+ | 530 X$=UPPER$(INPUT$(1)): | ||
+ | 540 DATA 229, | ||
+ | 550 DATA 12, | ||
+ | 560 DATA 61, | ||
+ | 570 DATA 11, | ||
+ | 580 DATA 13, | ||
+ | 590 DATA 9, | ||
+ | 600 h!=HIMEM: | ||
+ | 610 Az=& | ||
+ | 620 DEFSNG d,e,f:DIM e(10):FOR n=0 TO 9:READ f: | ||
+ | 630 DATA 189.8765, | ||
+ | 640 f2=e(note)*3.456: | ||
+ | 650 f2=INT(f2*d) | ||
+ | 660 POKE Bz, | ||
+ | 670 POKE Cz, | ||
+ | </ | ||
+ | |||
+ | ===== Controles ===== | ||
+ | |||
+ | ↑ = ARRIBA | ||
+ | ↓ = ABAJO | ||
+ | EXIT = ABANDONAR PARTIDA | ||
+ | |||
+ | ===== Carga del programa ===== | ||
+ | |||
+ | 1.- Introducir el disco CP/M por la cara 2 | ||
+ | 2.- Escribir BASIC y esperar a que cargue | ||
+ | 3.- Retirar el disco CP/M e introducir el disco que contiene el juego Breakout | ||
+ | 4.- Teclear run " | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | ===== Descarga ===== | ||
+ | |||
+ | * {{: | ||
+ | |||
+ | ===== Enlaces ===== |
es/breakout.txt · Última modificación: 2022/06/30 02:34 por jevicac