Herramientas de usuario

Herramientas del sitio


es:deimos

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Próxima revisión
Revisión previa
es:deimos [2016/12/02 14:38] – creado jevicaces:deimos [2022/06/30 10:48] (actual) jevicac
Línea 1: Línea 1:
 ====== DEIMOS ====== ====== DEIMOS ======
  
-===== Ficha ===== 
 {{:otros:Deimos_p1.jpg?690|}} {{:otros:Deimos_p1.jpg?690|}}
 +
 +===== 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:
  
 <file> <file>
 +10 '************************************************** 
 +20 '************************************************** 
 +30 '****                                          **** 
 +40 '****              D E I M O S                 **** 
 +50 '****  (C) 23-Julio-1988 Jorge Perez Barreiro  **** 
 +60 '****       AMSTRAD PCW 8256-8512-9512         **** 
 +70 '****                                          **** 
 +80 '************************************************** 
 +90 '************************************************** 
 +100 ' 
 +110 ' 
 +120 cls$=CHR$(27)+"E"+CHR$(27)+"H" 
 +130 DEF FN at$(v,h)=CHR$(27)+"Y"+CHR$(32+v)+CHR$(32+h) 
 +140 inverse1$=CHR$(27)+"p" 
 +150 inverse0$=CHR$(27)+"q" 
 +160 cursor1$=CHR$(27)+"e" 
 +170 cursor0$=CHR$(27)+"f" 
 +180 scrab$=CHR$(27)+"L" 
 +190 scrar$=CHR$(27)+"M" 
 +200 PRINT cursor0$ 
 +210 PRINT cls$ 
 +220 PRINT FN at$(15,33);"** D E I M O S **" 
 +230 OPEN "R",1,"FDEIMOS.DAT" 
 +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,3,30,63,0,85,170,85 
 +380 DATA 63,239,251,255,0,85,170,85 
 +390 DATA 252,127,238,255,0,85,170,85 
 +400 DATA 0,192,248,252,0,84,170,85 
 +410 DATA 42,0,42,21,10,3,0,
 +420 DATA 170,0,255,127,191,95,175,
 +430 DATA 170,0,255,255,255,255,255,
 +440 DATA 170,0,252,248,240,192,0,
 +450 DATA 0,0,0,0,0,0,15,31 
 +460 DATA 0,1,3,7,30,252,244,138 
 +470 DATA 0,128,192,224,120,63,47,81 
 +480 DATA 0,0,0,0,0,0,240,248 
 +490 DATA 112,112,30,7,1,0,0,
 +500 DATA 17,33,17,138,228,127,31,
 +510 DATA 136,132,136,81,39,254,248,
 +520 DATA 14,14,120,224,128,0,0,
 +530 DATA 0,59,59,56,59,59,0,
 +540 DATA 0,253,250,0,255,248,7,
 +550 DATA 0,95,191,0,255,31,224,224 
 +560 DATA 0,220,220,28,220,220,0,
 +570 DATA 0,0,0,0,0,0,0,
 +580 DATA 7,7,7,7,7,5,2,
 +590 DATA 224,224,224,224,224,64,160,
 +600 DATA 0,0,0,0,0,0,0,
 +610 DATA 0,127,127,31,119,127,112,96 
 +620 DATA 0,255,255,255,255,255,14,
 +630 DATA 0,255,254,252,252,253,125,53 
 +640 DATA 0,254,2,2,10,194,66,250 
 +650 DATA 96,112,127,119,31,127,127,
 +660 DATA 4,14,255,255,255,255,255,
 +670 DATA 60,125,252,252,252,254,255,
 +680 DATA 2,250,10,26,2,2,254,
 +690 DATA 0,0,0,0,3,15,62,119 
 +700 DATA 0,3,31,252,249,243,255,253 
 +710 DATA 0,192,248,255,255,223,253,248 
 +720 DATA 0,0,0,0,192,240,188,222 
 +730 DATA 125,63,15,3,0,0,0,
 +740 DATA 254,217,153,255,254,31,3,
 +750 DATA 189,255,255,207,255,248,192,
 +760 DATA 238,252,240,192,0,0,0,
 +770 DATA 126,219,126,219,170,85,170,85 
 +780 DATA 126,219,126,219,126,219,126,219 
 +790 DATA 170,85,170,85,126,219,126,219 
 +800 DATA 130,16,68,1,136,34,1,68 
 +810 DATA 0,63,127,112,100,104,96,104 
 +820 DATA 0,255,255,0,0,0,0,
 +830 DATA 0,255,255,1,0,0,0,
 +840 DATA 0,254,170,214,254,238,198,238 
 +850 DATA 96,104,96,104,116,127,63,
 +860 DATA 0,0,0,0,0,255,255,
 +870 DATA 0,0,0,0,1,255,255,
 +880 DATA 254,170,238,170,238,170,254,
 +890 DATA 0,7,15,30,61,122,117,106 
 +900 DATA 0,255,255,170,85,170,85,170 
 +910 DATA 0,255,255,170,85,170,85,170 
 +920 DATA 0,224,240,184,92,174,86,174 
 +930 DATA 117,106,117,58,29,15,7,
 +940 DATA 85,170,85,170,85,255,255,
 +950 DATA 85,170,85,170,85,255,255,
 +960 DATA 86,174,94,188,120,240,224,
 +970 DATA 0,1,51,110,117,106,117,106 
 +980 DATA 0,255,85,170,89,172,86,42 
 +990 DATA 0,224,88,175,85,202,96,170 
 +1000 DATA 0,112,216,172,86,174,86,174 
 +1010 DATA 117,98,116,106,53,26,7,
 +1020 DATA 85,178,89,44,89,170,255,
 +1030 DATA 86,140,33,170,85,170,255,
 +1040 DATA 86,142,86,174,92,240,128,
 +1050 DATA 0,31,63,125,118,109,118,109 
 +1060 DATA 0,255,255,182,219,182,219,182 
 +1070 DATA 0,255,255,219,109,219,109,219 
 +1080 DATA 0,248,252,110,182,110,182,110 
 +1090 DATA 118,109,118,109,118,63,31,
 +1100 DATA 219,182,219,182,219,255,255,
 +1110 DATA 109,219,109,219,109,255,255,
 +1120 DATA 182,110,182,110,190,252,248,
 +1130 DATA 0,255,231,219,219,231,255,
 +1140 DATA 170,85,170,85,170,85,170,85 
 +1150 DATA 0,0,0,0,0,1,15,127 
 +1160 DATA 0,0,0,3,63,255,50,255 
 +1170 DATA 0,0,0,192,252,255,76,255 
 +1180 DATA 0,0,0,0,0,128,240,254 
 +1190 DATA 85,1,0,0,0,0,0,
 +1200 DATA 170,213,106,29,0,0,0,
 +1210 DATA 170,85,170,84,0,0,0,
 +1220 DATA 170,128,0,0,0,0,0,
 +1230 REM 
 +1240 DIM q$(11) 
 +1250 nivf=90:ni=1:vi=3:fu=nivf:pu=0 
 +1260 PRINT cls$ 
 +1270 FOR t=30 TO 54 STEP 4:PRINT FN at$(5,t);CHR$(220);CHR$(221);CHR$(222);CHR$(223);FN at$(6,t);CHR$(224);CHR$(225);CHR$(226);CHR$(227) 
 +1280 PRINT FN at$(11,t);CHR$(220);CHR$(221);CHR$(222);CHR$(223);FN at$(12,t);CHR$(224);CHR$(225);CHR$(226);CHR$(227) 
 +1290 NEXT t 
 +1300 FOR t=7 TO 9 STEP 2 
 +1310 PRINT FN at$(t,30);CHR$(220);CHR$(221);CHR$(222);CHR$(223);FN at$(t+1,30);CHR$(224);CHR$(225);CHR$(226);CHR$(227) 
 +1320 PRINT FN at$(t,54);CHR$(220);CHR$(221);CHR$(222);CHR$(223);FN at$(t+1,54);CHR$(224);CHR$(225);CHR$(226);CHR$(227) 
 +1330 NEXT t 
 +1340 w$=CHR$(238)+CHR$(239)+CHR$(240)+CHR$(241):s$=CHR$(242)+CHR$(243)+CHR$(244)+CHR$(245):PRINT FN at$(8,36);w$;" DEIMOS ";w$;FN at$(9,36);s$;FN at$(9,48);s$ 
 +1350 PRINT FN at$(15,22);"(C) Copyright 23-7-1988 Jorge Perez Barreiro" 
 +1360 FOR t=22 TO 65:PRINT FN at$(17,t);CHR$(237):NEXT t 
 +1370 FOR t=1 TO 11:q$(t)="                      ":NEXT t 
 +1380 ob$="":cob=0:jk=0 
 +1390 coo2=INT(RND*17)+1 
 +1400 coo1=INT(RND*8)+2 
 +1410 MID$(q$(coo1),coo2,6)="ABTBBD" 
 +1420 MID$(q$(coo1+1),coo2,6)="ETTTTF" 
 +1430 MID$(q$(coo1+2),coo2,6)="GHHHHI" 
 +1440 FOR t=ASC("P") TO ASC("S"
 +1450 po1=INT(RND*11)+1:po2=INT(RND*22)+1:IF MID$(q$(po1),po2,1)<>" " OR (po1=coo1-1 AND po2=coo2+2) THEN GOTO 1450 
 +1460 MID$(q$(po1),po2,1)=CHR$(t) 
 +1470 NEXT t 
 +1480 FOR t=1 TO 11 
 +1490 FOR y=1 TO 22 
 +1500 IF MID$(q$(t),y,1)<>" " THEN GOTO 1570 
 +1510 io=INT(RND*6)+1 
 +1520 IF io=1 THEN p$="K" 
 +1530 IF io=2 THEN p$="L" 
 +1540 IF io=3 THEN p$="M" 
 +1550 IF io>3 THEN p$=" " 
 +1560 MID$(q$(t),y,1)=p$ 
 +1570 NEXT y 
 +1580 NEXT t 
 +1590 FOR t=1 TO INT(RND*3)+1 
 +1600 po1=INT(RND*11)+1:po2=INT(RND*22)+1:IF MID$(q$(po1),po2,1)<>" " THEN GOTO 1600 
 +1610 MID$(q$(po1),po2,1)="O" 
 +1620 NEXT t 
 +1630 FOR t=1 TO INT(RND*5)+1 
 +1640 po1=INT(RND*11)+1:po2=INT(RND*22)+1:IF MID$(q$(po1),po2,1)<>" " THEN GOTO 1640 
 +1650 MID$(q$(po1),po2,1)="N" 
 +1660 NEXT t 
 +1670 IF ni>1 THEN FOR t=15 TO 19:PRINT FN at$(t,34);LEFT$(o$,21):NEXT t:GOTO 1710 
 +1680 PRINT cls$ 
 +1690 FOR t=0 TO 89:PRINT FN at$(0,t);CHR$(236);FN at$(4,t);CHR$(236):NEXT 
 +1700 FOR t=1 TO 3:PRINT FN at$(t,0);CHR$(236);FN at$(t,89);CHR$(236):NEXT t 
 +1710 PRINT FN at$(1,3);"PUNTOS:";pu;FN at$(1,19);"FUERZA:";fu 
 +1720 PRINT FN at$(3,3);"RECORD:";re;FN at$(3,19);"NIVEL:";ni 
 +1730 PRINT FN at$(1,36);"OBJETO:":PRINT FN at$(2,68);"NAVES:"; 
 +1740 PRINT FN at$(3,36);"RECORD POR ";inverse1$;no$;inverse0$;" EN EL NIVEL";nivr 
 +1750 IF ni>1 THEN GOTO 1820 
 +1760 FOR t=1 TO vi:PRINT FN at$(2,(t*4)+70);CHR$(238);CHR$(239);CHR$(240);CHR$(241) 
 +1770 PRINT FN at$(3,(t*4)+70);CHR$(242);CHR$(243);CHR$(244);CHR$(245) 
 +1780 NEXT t 
 +1790 o$="":i$="":FOR t=1 TO 90:i$=i$+CHR$(237):o$=o$+" ":NEXT t 
 +1800 FOR t=5 TO 28:PRINT FN at$(t,0);CHR$(237);FN at$(t,89);CHR$(237):NEXT t 
 +1810 PRINT FN at$(4,0);i$;FN at$(27,0);i$ 
 +1820 FOR r=1 TO 11 
 +1830 FOR i=1 TO 22 
 +1840 u$=MID$(q$(r),i,1) 
 +1850 IF u$=" " OR u$="T" THEN GOTO 2040 
 +1860 IF u$="A" THEN w$="  "+CHR$(201)+CHR$(200):s$="  "+CHR$(201)+CHR$(237):GOTO 2030 
 +1870 IF u$="B" THEN w$=CHR$(200)+CHR$(200)+CHR$(200)+CHR$(200):s$="    ":GOTO 2030 
 +1880 IF u$="D" THEN w$=CHR$(200)+CHR$(201)+"  ":s$=CHR$(237)+CHR$(201)+"  ":GOTO 2030 
 +1890 IF u$="E" THEN w$="  "+CHR$(201)+CHR$(237):s$=w$:GOTO 2030 
 +1900 IF u$="F" THEN w$=CHR$(237)+CHR$(201)+"  ":s$=w$:GOTO 2030 
 +1910 IF u$="G" THEN w$="  "+CHR$(201)+CHR$(202):s$="    ":GOTO 2030 
 +1920 IF u$="H" THEN w$=CHR$(202)+CHR$(202)+CHR$(202)+CHR$(202):s$="    ":GOTO 2030 
 +1930 IF u$="I" THEN w$=CHR$(202)+CHR$(201)+"  ":s$="    ":GOTO 2030 
 +1940 IF u$="K" THEN w$="":s$="":t=212:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +1950 IF u$="L" THEN w$="":s$="":t=220:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +1960 IF u$="M" THEN w$="":s$="":t=228:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +1970 IF u$="N" THEN w$="":s$="":t=192:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +1980 IF u$="O" THEN w$="":s$="":t=160:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +1990 IF u$="P" THEN w$="":s$="":t=176:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +2000 IF u$="Q" THEN w$="":s$="":t=168:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +2010 IF u$="R" THEN w$="":s$="":t=204:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +2020 IF u$="S" THEN w$="":s$="":t=184:FOR y=t TO t+3:w$=w$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:s$=s$+CHR$(y):NEXT y:GOTO 2030 
 +2030 PRINT FN at$(r*2+4,i*4-3);w$;FN at$(r*2+5,i*4-3);s$ 
 +2040 NEXT i 
 +2050 NEXT r 
 +2060 li=INT(RND*11)+1:co=INT(RND*22)+1:IF MID$(q$(li),co,1)<>" " THEN GOTO 2060 
 +2070 lii=li*2+4:coi=co*4-3 
 +2080 z$=CHR$(238)+CHR$(239)+CHR$(240)+CHR$(241):x$=CHR$(242)+CHR$(243)+CHR$(244)+CHR$(245) 
 +2090 PRINT FN at$(lii,coi);z$;FN at$(lii+1,coi);x$ 
 +2100 l$=INKEY$:IF l$<>"" THEN GOTO 2140 
 +2110 REM 
 +2120 jk=jk+1:IF jk>(150-5*ni) THEN jk=0:fu=fu-5:PRINT FN at$(1,26);fu;" ":IF fu<1 THEN GOTO 2650 
 +2130 GOTO 2100 
 +2140 li2=li:co2=co 
 +2150 IF (l$="q" OR ASC(l$)=31) AND li>1 THEN li=li-1 
 +2160 IF (l$="a" OR ASC(l$)=30) AND li<11 THEN li=li+1 
 +2170 IF (l$="o" OR ASC(l$)=99) AND co>1 THEN co=co-1 
 +2180 IF (l$="p" OR ASC(l$)=6) AND co<22 THEN co=co+1 
 +2190 j$=MID$(q$(li),co,1) 
 +2200 lii=li*2+4:coi=co*4-3 
 +2210 IF j$="K" THEN fu=fu-20:pu=pu+100:GOTO 2360 
 +2220 IF j$="L" THEN fu=fu-30:pu=pu+150:GOTO 2360 
 +2230 IF j$="M" THEN fu=fu-10:pu=pu+50:GOTO 2360 
 +2240 IF j$="O" THEN fu=fu+60:pu=pu+300:GOTO 2360 
 +2250 IF j$="N" THEN fu=fu+30:pu=pu+200:GOTO 2360 
 +2260 IF j$="P" OR j$="Q" OR j$="R" OR j$="S" THEN pu=pu+125:GOTO 2450 
 +2270 IF j$=" " OR j$="T" THEN GOTO 2290 
 +2280 li=li2:co=co2:GOTO 2110 
 +2290 lii2=li2*2+4:coi2=co2*4-3 
 +2300 PRINT FN at$(lii2,coi2);"    ";FN at$(lii2+1,coi2);"    " 
 +2310 lii=li*2+4:coi=co*4-3 
 +2320 PRINT FN at$(lii,coi);z$;FN at$(lii+1,coi);x$ 
 +2330 IF fu<1 THEN GOTO 2650 
 +2340 IF li=coo1 AND co-2=coo2 AND ob$<>"" THEN GOTO 2550 
 +2350 GOTO 2110 
 +2360 IF j$="O" OR j$="N" THEN f=9:d=0.06:GOSUB 3420:f=7:d=0.006:GOSUB 3420:f=8:d=0.005:GOSUB 3420:GOTO 2390 
 +2370 v$=CHR$(203)+CHR$(203)+CHR$(203)+CHR$(203):PRINT FN at$(lii,coi);v$;FN at$(lii+1,coi);v$ 
 +2380 f=2:d=0.003:GOSUB 3420:f=1:d=0.003:GOSUB 3420 
 +2390 PRINT FN at$(lii,coi);"    ";FN at$(lii+1,coi);"    " 
 +2400 MID$(q$(li),co)="
 +2410 PRINT FN at$(1,10);pu 
 +2420 IF fu<1 THEN fu=0 
 +2430 PRINT FN at$(1,26);fu;"
 +2440 GOTO 2290 
 +2450 IF ob$<>"" THEN GOTO 2280 
 +2460 f=9:d=0.08:GOSUB 3420:f=8:d=0.08:GOSUB 3420:f=7:d=0.02:GOSUB 3420:f=8:d=0.02:GOSUB 3420 
 +2470 MID$(q$(li),co)="
 +2480 ob$=j$ 
 +2490 IF j$="P" THEN g$="":h$="":t=176:FOR y=t TO t+3:g$=g$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:h$=h$+CHR$(y):NEXT y:GOTO 2530 
 +2500 IF j$="Q" THEN g$="":h$="":t=168:FOR y=t TO t+3:g$=g$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:h$=h$+CHR$(y):NEXT y:GOTO 2530 
 +2510 IF j$="R" THEN g$="":h$="":t=204:FOR y=t TO t+3:g$=g$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:h$=h$+CHR$(y):NEXT y:GOTO 2530 
 +2520 IF j$="S" THEN g$="":h$="":t=184:FOR y=t TO t+3:g$=g$+CHR$(y):NEXT y:FOR y=t+4 TO t+7:h$=h$+CHR$(y):NEXT y:GOTO 2530 
 +2530 PRINT FN at$(1,44);g$;FN at$(2,44);h$ 
 +2540 GOTO 2290 
 +2550 PRINT FN at$(1,44);"    ";FN at$(2,44);"    " 
 +2560 cob=cob+1 
 +2570 v1=(coo1+1)*2+4:v2=coo2*4-3 
 +2580 PRINT FN at$(v1,v2+(cob*4));g$ 
 +2590 PRINT FN at$(v1+1,v2+(cob*4));h$ 
 +2600 MID$(q$(coo1+1),coo2+cob,1)="A" 
 +2610 FOR k=9 TO 1 STEP -2:f=k:d=0.005:GOSUB 3420:NEXT k 
 +2620 IF cob=4 THEN GOTO 2980 
 +2630 ob$="" 
 +2640 GOTO 2110 
 +2650 v$=CHR$(203)+CHR$(203)+CHR$(203)+CHR$(203):PRINT FN at$(lii,coi);v$;FN at$(lii+1,coi);v$ 
 +2660 lii=li*2+4:coi=co*4-3 
 +2670 FOR k=1 TO 12 
 +2680 PRINT FN at$(lii,coi);v$;FN at$(lii+1,coi);v$ 
 +2690 PRINT FN at$(lii,coi);"    ";FN at$(lii+1,coi);"    " 
 +2700 f=INT(RND*9)+1:d=0.003:GOSUB 3420 
 +2710 NEXT k 
 +2720 vi=vi-1 
 +2730 fu=fu+nivf:PRINT FN at$(1,26);fu 
 +2740 IF vi=-1 THEN GOTO 2810 
 +2750 PRINT FN at$(2,74+vi*4);"    " 
 +2760 PRINT FN at$(3,74+vi*4);"    " 
 +2770 GOTO 2070 
 +2780 FOR t=5 TO 27:PRINT FN at$(t,0);i$:NEXT t 
 +2790 FOR t=27 TO 6 STEP -1:PRINT FN at$(t,1);LEFT$(o$,87);" ":NEXT t 
 +2800 RETURN 
 +2810 GOSUB 2780 
 +2820 PRINT FN at$(15,32);"** G A M E  O V E R **" 
 +2830 IF pu<=re THEN GOTO 2960 
 +2840 re=pu:nivr=ni 
 +2850 PRINT FN at$(18,28);"HAS CONSEGUIDO UN NUEVO RECORD" 
 +2860 PRINT cursor1$ 
 +2870 PRINT FN at$(20,28);:INPUT "INTRODUCE TUS INICIALES: ",no$ 
 +2880 IF LEN(no$)>3 THEN GOTO 2870 
 +2890 PRINT cursor0$ 
 +2900 OPEN "R",1,"fdeimos.dat" 
 +2910 FIELD 1,7 AS pu$,3 AS nom$,3 AS niv$ 
 +2920 LSET pu$=STR$(re):LSET nom$=no$:LSET niv$=STR$(ni) 
 +2930 PUT 1,1 
 +2940 CLOSE 1 
 +2950 GOTO 2970 
 +2960 IF INKEY$<>" " THEN GOTO 2960 
 +2970 GOTO 1250 
 +2980 REM 
 +2990 FOR k=2 TO 8:f=k:d=0.07:GOSUB 3420:f=k+1:d=0.04:GOSUB 3420:f=k-1:d=0.06:GOSUB 3420:NEXT k 
 +3000 GOSUB 2780 
 +3010 FOR t=34 TO 54:PRINT FN at$(15,t);CHR$(201);FN at$(19,t);CHR$(201):NEXT t 
 +3020 FOR t=16 TO 18:PRINT FN at$(t,34);CHR$(201);CHR$(201);FN at$(t,53);CHR$(201);CHR$(201):NEXT t 
 +3030 ni=ni+1:pu=pu+500 
 +3040 PRINT FN at$(17,38);"N I V E L ";ni 
 +3050 GOTO 1370 
 +3060 PRINT FN at$(11,30);:GOTO 3060 
 +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,213,197,221,229,42,75,242,237,91,73,242,205,77,242,62 
 +3160 DATA 12,211,248,221,225,193,209,225,201,0,0,0,0,243,125,203 
 +3170 DATA 61,203,61,47,230,3,79,6,0,221,33,97,242,221,9,62 
 +3180 DATA 11,0,0,0,4,12,13,32,253,14,63,5,32,248,60,254 
 +3190 DATA 13,32,2,61,61,211,248,68,79,254,11,32,9,122,179,40 
 +3200 DATA 9,121,77,27,221,233,77,12,221,233,251,201 
 +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!/(f2*2):t=INT(t/4-30.125) 
 +3450 IF t<0 THEN t=1 
 +3460 f2=INT(f2*d) 
 +3470 IF f2<0 THEN f2=1 
 +3480 POKE b,f2-256*INT(f2/256) 
 +3490 POKE b+1,INT(f2/256) 
 +3500 POKE c,t-256*INT(t/256) 
 +3510 POKE c+1,INT(t/256) 
 +3520 CALL a 
 +3530 RETURN 
 +3540 REM GRAPHIC'S CREATOR 
 +3550 lla=62228! 
 +3560 RESTORE 3620 
 +3570 FOR s=62228! TO 62280! 
 +3580 READ a$:op=VAL("&H"+a$) 
 +3590 POKE s,op 
 +3600 NEXT s 
 +3610 RETURN 
 +3620 DATA 2A,01,00,11,57,00,19,22,3E 
 +3630 DATA F3,01,27,F3,CD,3D,F3,E9,00,C9,2A,40,F3,26,00,29,29,29,11,00,B8,19,11,41,F3 
 +3640 DATA EB,01,08,00,ED,B0,C9,C3,38,00,0B,00,B0,04,87,20,4C,44,49 
 +3650 POKE 62272!,ca:FOR t=62273! TO 62280!:READ by:POKE t,by:NEXT t:CALL lla:RETURN 
 +3660 STOP
 </file> </file>
  
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 =====
  
-  * {{:otros:Deimos (Basic).zip|Deimos }}(juego en formato dsk, comprimido con zip) +  * {{:otros:Deimos (Basic).zip|Deimos }}(juego en formato dsk, comprimido con zip) 
 + 
 +===== Vídeos ===== 
 + 
 +{{ youtube>sM7ufLjI6lw?large }}
  
 ===== Enlaces ===== ===== Enlaces =====
  
   * [[http://www.ooparts-universe.com/prgs/index_esp.html|Página Web oficial de Jorge Pérez Barreiro]]   * [[http://www.ooparts-universe.com/prgs/index_esp.html|Página Web oficial de Jorge Pérez Barreiro]]
es/deimos.1480678727.txt.gz · Última modificación: 2016/12/02 14:38 por jevicac