es:deimos
Diferencias
Muestra las diferencias entre dos versiones de la página.
Próxima revisión | Revisión previa | ||
es:deimos [2016/12/02 14:38] – creado jevicac | es:deimos [2022/06/30 10:48] (actual) – jevicac | ||
---|---|---|---|
Línea 1: | Línea 1: | ||
====== DEIMOS ====== | ====== DEIMOS ====== | ||
- | ===== Ficha ===== | ||
{{: | {{: | ||
+ | |||
+ | ===== Ficha ===== | ||
^ Autor | Jorge Pérez Barreiro | ^ Autor | Jorge Pérez Barreiro | ||
^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | | ^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | | ||
^ Año | 1988 | | ^ Año | 1988 | | ||
- | ^ Género | Naves | | + | ^ Género | Arcade |
^ Controles | Teclado | ^ Controles | Teclado | ||
^ Lenguajes | Español | ^ Lenguajes | Español | ||
Línea 17: | Línea 18: | ||
===== Descripción ===== | ===== Descripción ===== | ||
+ | Deimos es un juego de recolección de elementos contra el tiempo. Lejos de la tierra, estamos en un perdido satélite del planeta Marte, nuestra misión: Deberemos llevar a la central de Deimos el disco, el martillo, la corona y el monitor que se hayan dispersos por el satélite. Para ello, deberemos de romper las piedras que nos encontremos en nuestro camino y nos cortan el acceso a los objetos. Pero debéis tener cuidado !; cada vez que rompáis una piedra perderéis energía y la única forma que tenéis de recuperarla es comiendo las Hamburguesas y Pizzas que se hayan distribuidas por la pantalla. | ||
+ | Los objetos que se hayan dispersos por la pantalla, hay que cogerlos de uno en uno y llevarlos a la base, antes de ir a por el siguiente, lo que complica aún más el juego. Cada piedra que rompamos para llegar al objeto nos quita fuerza y cada piedra nos resta una fuerza diferente, por lo que el truco está en evitar romper las piedras. A menos piedras rotas, de más energía dispondremos. | ||
+ | Lo bueno del juego, es que nunca comienza en la misma pantalla, por lo que cada vez que lo empecemos, será en una pantalla diferente, con los objetos a conseguir en diferentes posiciones. | ||
===== Listado ===== | ===== Listado ===== | ||
Línea 24: | Línea 28: | ||
< | < | ||
+ | 10 ' | ||
+ | 20 ' | ||
+ | 30 ' | ||
+ | 40 ' | ||
+ | 50 ' | ||
+ | 60 ' | ||
+ | 70 ' | ||
+ | 80 ' | ||
+ | 90 ' | ||
+ | 100 ' | ||
+ | 110 ' | ||
+ | 120 cls$=CHR$(27)+" | ||
+ | 130 DEF FN at$(v, | ||
+ | 140 inverse1$=CHR$(27)+" | ||
+ | 150 inverse0$=CHR$(27)+" | ||
+ | 160 cursor1$=CHR$(27)+" | ||
+ | 170 cursor0$=CHR$(27)+" | ||
+ | 180 scrab$=CHR$(27)+" | ||
+ | 190 scrar$=CHR$(27)+" | ||
+ | 200 PRINT cursor0$ | ||
+ | 210 PRINT cls$ | ||
+ | 220 PRINT FN at$(15, | ||
+ | 230 OPEN " | ||
+ | 240 FIELD 1,7 AS pu$,3 AS nom$,3 AS niv$ | ||
+ | 250 GET 1,1 | ||
+ | 260 no$=nom$ | ||
+ | 270 re=VAL(pu$) | ||
+ | 280 nivr=VAL(niv$) | ||
+ | 290 CLOSE 1 | ||
+ | 300 RANDOMIZE PEEK(64504!) | ||
+ | 310 GOSUB 3080:GOSUB 3540 | ||
+ | 320 RESTORE 370 | ||
+ | 330 FOR ca=160 TO 245 | ||
+ | 340 GOSUB 3650 | ||
+ | 350 NEXT ca | ||
+ | 360 GOTO 1230 | ||
+ | 370 DATA 0, | ||
+ | 380 DATA 63, | ||
+ | 390 DATA 252, | ||
+ | 400 DATA 0, | ||
+ | 410 DATA 42, | ||
+ | 420 DATA 170, | ||
+ | 430 DATA 170, | ||
+ | 440 DATA 170, | ||
+ | 450 DATA 0, | ||
+ | 460 DATA 0, | ||
+ | 470 DATA 0, | ||
+ | 480 DATA 0, | ||
+ | 490 DATA 112, | ||
+ | 500 DATA 17, | ||
+ | 510 DATA 136, | ||
+ | 520 DATA 14, | ||
+ | 530 DATA 0, | ||
+ | 540 DATA 0, | ||
+ | 550 DATA 0, | ||
+ | 560 DATA 0, | ||
+ | 570 DATA 0, | ||
+ | 580 DATA 7, | ||
+ | 590 DATA 224, | ||
+ | 600 DATA 0, | ||
+ | 610 DATA 0, | ||
+ | 620 DATA 0, | ||
+ | 630 DATA 0, | ||
+ | 640 DATA 0, | ||
+ | 650 DATA 96, | ||
+ | 660 DATA 4, | ||
+ | 670 DATA 60, | ||
+ | 680 DATA 2, | ||
+ | 690 DATA 0, | ||
+ | 700 DATA 0, | ||
+ | 710 DATA 0, | ||
+ | 720 DATA 0, | ||
+ | 730 DATA 125, | ||
+ | 740 DATA 254, | ||
+ | 750 DATA 189, | ||
+ | 760 DATA 238, | ||
+ | 770 DATA 126, | ||
+ | 780 DATA 126, | ||
+ | 790 DATA 170, | ||
+ | 800 DATA 130, | ||
+ | 810 DATA 0, | ||
+ | 820 DATA 0, | ||
+ | 830 DATA 0, | ||
+ | 840 DATA 0, | ||
+ | 850 DATA 96, | ||
+ | 860 DATA 0, | ||
+ | 870 DATA 0, | ||
+ | 880 DATA 254, | ||
+ | 890 DATA 0, | ||
+ | 900 DATA 0, | ||
+ | 910 DATA 0, | ||
+ | 920 DATA 0, | ||
+ | 930 DATA 117, | ||
+ | 940 DATA 85, | ||
+ | 950 DATA 85, | ||
+ | 960 DATA 86, | ||
+ | 970 DATA 0, | ||
+ | 980 DATA 0, | ||
+ | 990 DATA 0, | ||
+ | 1000 DATA 0, | ||
+ | 1010 DATA 117, | ||
+ | 1020 DATA 85, | ||
+ | 1030 DATA 86, | ||
+ | 1040 DATA 86, | ||
+ | 1050 DATA 0, | ||
+ | 1060 DATA 0, | ||
+ | 1070 DATA 0, | ||
+ | 1080 DATA 0, | ||
+ | 1090 DATA 118, | ||
+ | 1100 DATA 219, | ||
+ | 1110 DATA 109, | ||
+ | 1120 DATA 182, | ||
+ | 1130 DATA 0, | ||
+ | 1140 DATA 170, | ||
+ | 1150 DATA 0, | ||
+ | 1160 DATA 0, | ||
+ | 1170 DATA 0, | ||
+ | 1180 DATA 0, | ||
+ | 1190 DATA 85, | ||
+ | 1200 DATA 170, | ||
+ | 1210 DATA 170, | ||
+ | 1220 DATA 170, | ||
+ | 1230 REM | ||
+ | 1240 DIM q$(11) | ||
+ | 1250 nivf=90: | ||
+ | 1260 PRINT cls$ | ||
+ | 1270 FOR t=30 TO 54 STEP 4:PRINT FN at$(5, | ||
+ | 1280 PRINT FN at$(11, | ||
+ | 1290 NEXT t | ||
+ | 1300 FOR t=7 TO 9 STEP 2 | ||
+ | 1310 PRINT FN at$(t, | ||
+ | 1320 PRINT FN at$(t, | ||
+ | 1330 NEXT t | ||
+ | 1340 w$=CHR$(238)+CHR$(239)+CHR$(240)+CHR$(241): | ||
+ | 1350 PRINT FN at$(15, | ||
+ | 1360 FOR t=22 TO 65:PRINT FN at$(17, | ||
+ | 1370 FOR t=1 TO 11: | ||
+ | 1380 ob$="": | ||
+ | 1390 coo2=INT(RND*17)+1 | ||
+ | 1400 coo1=INT(RND*8)+2 | ||
+ | 1410 MID$(q$(coo1), | ||
+ | 1420 MID$(q$(coo1+1), | ||
+ | 1430 MID$(q$(coo1+2), | ||
+ | 1440 FOR t=ASC(" | ||
+ | 1450 po1=INT(RND*11)+1: | ||
+ | 1460 MID$(q$(po1), | ||
+ | 1470 NEXT t | ||
+ | 1480 FOR t=1 TO 11 | ||
+ | 1490 FOR y=1 TO 22 | ||
+ | 1500 IF MID$(q$(t), | ||
+ | 1510 io=INT(RND*6)+1 | ||
+ | 1520 IF io=1 THEN p$=" | ||
+ | 1530 IF io=2 THEN p$=" | ||
+ | 1540 IF io=3 THEN p$=" | ||
+ | 1550 IF io>3 THEN p$=" " | ||
+ | 1560 MID$(q$(t), | ||
+ | 1570 NEXT y | ||
+ | 1580 NEXT t | ||
+ | 1590 FOR t=1 TO INT(RND*3)+1 | ||
+ | 1600 po1=INT(RND*11)+1: | ||
+ | 1610 MID$(q$(po1), | ||
+ | 1620 NEXT t | ||
+ | 1630 FOR t=1 TO INT(RND*5)+1 | ||
+ | 1640 po1=INT(RND*11)+1: | ||
+ | 1650 MID$(q$(po1), | ||
+ | 1660 NEXT t | ||
+ | 1670 IF ni>1 THEN FOR t=15 TO 19:PRINT FN at$(t, | ||
+ | 1680 PRINT cls$ | ||
+ | 1690 FOR t=0 TO 89:PRINT FN at$(0, | ||
+ | 1700 FOR t=1 TO 3:PRINT FN at$(t, | ||
+ | 1710 PRINT FN at$(1, | ||
+ | 1720 PRINT FN at$(3, | ||
+ | 1730 PRINT FN at$(1, | ||
+ | 1740 PRINT FN at$(3, | ||
+ | 1750 IF ni>1 THEN GOTO 1820 | ||
+ | 1760 FOR t=1 TO vi:PRINT FN at$(2, | ||
+ | 1770 PRINT FN at$(3, | ||
+ | 1780 NEXT t | ||
+ | 1790 o$="": | ||
+ | 1800 FOR t=5 TO 28:PRINT FN at$(t, | ||
+ | 1810 PRINT FN at$(4, | ||
+ | 1820 FOR r=1 TO 11 | ||
+ | 1830 FOR i=1 TO 22 | ||
+ | 1840 u$=MID$(q$(r), | ||
+ | 1850 IF u$=" " OR u$=" | ||
+ | 1860 IF u$=" | ||
+ | 1870 IF u$=" | ||
+ | 1880 IF u$=" | ||
+ | 1890 IF u$=" | ||
+ | 1900 IF u$=" | ||
+ | 1910 IF u$=" | ||
+ | 1920 IF u$=" | ||
+ | 1930 IF u$=" | ||
+ | 1940 IF u$=" | ||
+ | 1950 IF u$=" | ||
+ | 1960 IF u$=" | ||
+ | 1970 IF u$=" | ||
+ | 1980 IF u$=" | ||
+ | 1990 IF u$=" | ||
+ | 2000 IF u$=" | ||
+ | 2010 IF u$=" | ||
+ | 2020 IF u$=" | ||
+ | 2030 PRINT FN at$(r*2+4, | ||
+ | 2040 NEXT i | ||
+ | 2050 NEXT r | ||
+ | 2060 li=INT(RND*11)+1: | ||
+ | 2070 lii=li*2+4: | ||
+ | 2080 z$=CHR$(238)+CHR$(239)+CHR$(240)+CHR$(241): | ||
+ | 2090 PRINT FN at$(lii, | ||
+ | 2100 l$=INKEY$: | ||
+ | 2110 REM | ||
+ | 2120 jk=jk+1:IF jk> | ||
+ | 2130 GOTO 2100 | ||
+ | 2140 li2=li: | ||
+ | 2150 IF (l$=" | ||
+ | 2160 IF (l$=" | ||
+ | 2170 IF (l$=" | ||
+ | 2180 IF (l$=" | ||
+ | 2190 j$=MID$(q$(li), | ||
+ | 2200 lii=li*2+4: | ||
+ | 2210 IF j$=" | ||
+ | 2220 IF j$=" | ||
+ | 2230 IF j$=" | ||
+ | 2240 IF j$=" | ||
+ | 2250 IF j$=" | ||
+ | 2260 IF j$=" | ||
+ | 2270 IF j$=" " OR j$=" | ||
+ | 2280 li=li2: | ||
+ | 2290 lii2=li2*2+4: | ||
+ | 2300 PRINT FN at$(lii2, | ||
+ | 2310 lii=li*2+4: | ||
+ | 2320 PRINT FN at$(lii, | ||
+ | 2330 IF fu<1 THEN GOTO 2650 | ||
+ | 2340 IF li=coo1 AND co-2=coo2 AND ob$<>"" | ||
+ | 2350 GOTO 2110 | ||
+ | 2360 IF j$=" | ||
+ | 2370 v$=CHR$(203)+CHR$(203)+CHR$(203)+CHR$(203): | ||
+ | 2380 f=2: | ||
+ | 2390 PRINT FN at$(lii, | ||
+ | 2400 MID$(q$(li), | ||
+ | 2410 PRINT FN at$(1, | ||
+ | 2420 IF fu<1 THEN fu=0 | ||
+ | 2430 PRINT FN at$(1, | ||
+ | 2440 GOTO 2290 | ||
+ | 2450 IF ob$<>"" | ||
+ | 2460 f=9: | ||
+ | 2470 MID$(q$(li), | ||
+ | 2480 ob$=j$ | ||
+ | 2490 IF j$=" | ||
+ | 2500 IF j$=" | ||
+ | 2510 IF j$=" | ||
+ | 2520 IF j$=" | ||
+ | 2530 PRINT FN at$(1, | ||
+ | 2540 GOTO 2290 | ||
+ | 2550 PRINT FN at$(1, | ||
+ | 2560 cob=cob+1 | ||
+ | 2570 v1=(coo1+1)*2+4: | ||
+ | 2580 PRINT FN at$(v1, | ||
+ | 2590 PRINT FN at$(v1+1, | ||
+ | 2600 MID$(q$(coo1+1), | ||
+ | 2610 FOR k=9 TO 1 STEP -2: | ||
+ | 2620 IF cob=4 THEN GOTO 2980 | ||
+ | 2630 ob$="" | ||
+ | 2640 GOTO 2110 | ||
+ | 2650 v$=CHR$(203)+CHR$(203)+CHR$(203)+CHR$(203): | ||
+ | 2660 lii=li*2+4: | ||
+ | 2670 FOR k=1 TO 12 | ||
+ | 2680 PRINT FN at$(lii, | ||
+ | 2690 PRINT FN at$(lii, | ||
+ | 2700 f=INT(RND*9)+1: | ||
+ | 2710 NEXT k | ||
+ | 2720 vi=vi-1 | ||
+ | 2730 fu=fu+nivf: | ||
+ | 2740 IF vi=-1 THEN GOTO 2810 | ||
+ | 2750 PRINT FN at$(2, | ||
+ | 2760 PRINT FN at$(3, | ||
+ | 2770 GOTO 2070 | ||
+ | 2780 FOR t=5 TO 27:PRINT FN at$(t, | ||
+ | 2790 FOR t=27 TO 6 STEP -1:PRINT FN at$(t, | ||
+ | 2800 RETURN | ||
+ | 2810 GOSUB 2780 | ||
+ | 2820 PRINT FN at$(15, | ||
+ | 2830 IF pu<=re THEN GOTO 2960 | ||
+ | 2840 re=pu: | ||
+ | 2850 PRINT FN at$(18, | ||
+ | 2860 PRINT cursor1$ | ||
+ | 2870 PRINT FN at$(20, | ||
+ | 2880 IF LEN(no$)> | ||
+ | 2890 PRINT cursor0$ | ||
+ | 2900 OPEN " | ||
+ | 2910 FIELD 1,7 AS pu$,3 AS nom$,3 AS niv$ | ||
+ | 2920 LSET pu$=STR$(re): | ||
+ | 2930 PUT 1,1 | ||
+ | 2940 CLOSE 1 | ||
+ | 2950 GOTO 2970 | ||
+ | 2960 IF INKEY$<>" | ||
+ | 2970 GOTO 1250 | ||
+ | 2980 REM | ||
+ | 2990 FOR k=2 TO 8: | ||
+ | 3000 GOSUB 2780 | ||
+ | 3010 FOR t=34 TO 54:PRINT FN at$(15, | ||
+ | 3020 FOR t=16 TO 18:PRINT FN at$(t, | ||
+ | 3030 ni=ni+1: | ||
+ | 3040 PRINT FN at$(17, | ||
+ | 3050 GOTO 1370 | ||
+ | 3060 PRINT FN at$(11, | ||
+ | 3070 STOP | ||
+ | 3080 REM BEEP | ||
+ | 3090 MEMORY 61999! | ||
+ | 3100 RESTORE 3150 | ||
+ | 3110 FOR n=62000! TO 62091! | ||
+ | 3120 READ d | ||
+ | 3130 POKE n,d | ||
+ | 3140 NEXT n | ||
+ | 3150 DATA 229, | ||
+ | 3160 DATA 12, | ||
+ | 3170 DATA 61, | ||
+ | 3180 DATA 11, | ||
+ | 3190 DATA 13, | ||
+ | 3200 DATA 9, | ||
+ | 3210 a=62000! | ||
+ | 3220 b=62025! | ||
+ | 3230 c=62027! | ||
+ | 3240 DIM e(12) | ||
+ | 3250 FOR n=0 TO 11 | ||
+ | 3260 READ f | ||
+ | 3270 e(n)=f | ||
+ | 3280 NEXT n | ||
+ | 3290 DATA 261.63 | ||
+ | 3300 DATA 277.18 | ||
+ | 3310 DATA 293.66 | ||
+ | 3320 DATA 311.13 | ||
+ | 3330 DATA 329.63 | ||
+ | 3340 DATA 349.23 | ||
+ | 3350 DATA 369.99 | ||
+ | 3360 DATA 392.00 | ||
+ | 3370 DATA 415.30 | ||
+ | 3380 DATA 440.00 | ||
+ | 3390 DATA 466.16 | ||
+ | 3400 DATA 493.88 | ||
+ | 3410 RETURN | ||
+ | 3420 REM | ||
+ | 3430 f2=e(f) | ||
+ | 3440 t=3500000!/ | ||
+ | 3450 IF t<0 THEN t=1 | ||
+ | 3460 f2=INT(f2*d) | ||
+ | 3470 IF f2<0 THEN f2=1 | ||
+ | 3480 POKE b, | ||
+ | 3490 POKE b+1, | ||
+ | 3500 POKE c, | ||
+ | 3510 POKE c+1, | ||
+ | 3520 CALL a | ||
+ | 3530 RETURN | ||
+ | 3540 REM GRAPHIC' | ||
+ | 3550 lla=62228! | ||
+ | 3560 RESTORE 3620 | ||
+ | 3570 FOR s=62228! TO 62280! | ||
+ | 3580 READ a$: | ||
+ | 3590 POKE s,op | ||
+ | 3600 NEXT s | ||
+ | 3610 RETURN | ||
+ | 3620 DATA 2A, | ||
+ | 3630 DATA F3, | ||
+ | 3640 DATA EB, | ||
+ | 3650 POKE 62272!, | ||
+ | 3660 STOP | ||
</ | </ | ||
Línea 43: | Línea 412: | ||
===== Extras ===== | ===== Extras ===== | ||
- | El juego venía en la revista en disco, PCW User número 1 | + | El juego venía en la revista en disco, PCW User número 1 cara B. |
===== Descarga ===== | ===== Descarga ===== | ||
- | * {{: | + | * {{: |
+ | |||
+ | ===== Vídeos ===== | ||
+ | |||
+ | {{ youtube> | ||
===== Enlaces ===== | ===== Enlaces ===== | ||
* [[http:// | * [[http:// |
es/deimos.1480678727.txt.gz · Última modificación: 2016/12/02 14:38 por jevicac