PcwWiki

Herramientas de usuario

Herramientas del sitio

Traza:
es:aranas

Diferencias

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

Enlace a la vista de comparación

Ambos lados, revisión anteriorRevisión previa
Próxima revisión		Revisión previa
es:aranas [2022/06/30 02:09] – [ARAÑAS] jevicaces:aranas [2022/06/30 10:08] (actual) – [Vídeos] jevicac
Línea 1: Línea 1:
 ====== ARAÑAS ====== ====== ARAÑAS ======
  
-{{:otros:Arana_p1.jpg?690|}}+{{:otros:Aranas_p1.jpg?690|}}
  
 ===== Ficha ===== ===== Ficha =====
-^ Autor | Phil Lawson       |+^ Autor | ????       |
 ^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | ^ Computadora | Amstrad PCW 8256 / 8512 / 9512 |
-^ Año | 1988                              |+^ Año | ????                              |
 ^ Género | Arcade                                | ^ Género | Arcade                                |
 ^ Controles | Teclado                           | ^ Controles | Teclado                           |
-^ Lenguajes | Inglés                           |+^ Lenguajes | Español                           |
 ^ Estado | [[preservado|Preservado]] | ^ Estado | [[preservado|Preservado]] |
  
Línea 18: Línea 18:
 ===== Descripción ===== ===== Descripción =====
  
 +Entretenido y divertido juego donde tendremos que demostrar nuestra agilidad y rapidez a la hora de matar unas arañas que se reproducen por toda la pantalla. Tendremos que ser rápidos para conseguir la mayor puntuación pero tendremos que ser algo astutos y controlar el fumigador de DDT que se nos acaba.
 +
 +Por influencia del cometa Halley, las arañas de mi casa se reproducen en asombrosa cantidad, por lo que es necesario exterminarlas con -DDT-, para lo cual hacemos uso del fumigador.
  
  
Línea 26: Línea 29:
 <file> <file>
  
 +1 esc$=CHR$(27):CL$=esc$+"E"+esc$+"H" 
 +2 DEF FNLOC$(f,c)=esc$+"Y"+CHR$(32+c)+CHR$(32+f) 
 +3 iv$=esc$+"p":tv$=esc$+"q":acs$=CHR$(27)+CHR$(114):des$=CHR$(27)+CHR$(117) 
 +4 DEF FN fin$(f,c,p,a)=esc$+"X"+CHR$(32+f)+CHR$(32+c)+CHR$(31+p)+CHR$(31+a) 
 +5 PRINT CHR$(27)+"f" 
 +10 REM ******************************* 
 +20 REM **                           ** 
 +30 REM **          ARAÑAS           ** 
 +40 REM **            BY             ** 
 +50 REM **  ???????????????????????  ** 
 +60 REM **                           ** 
 +70 REM ******************************* 
 +80 DIM t(90):sc=100 
 +90 REM ************************************************** 
 +100 GOSUB 5010:GOSUB 860 
 +110 REM definicion de nuevas teclas, por falta de instrucciones desisto y pongo unas que me invento 
 +130 mu=100 
 +140 ' ? fn loc$(12,6)+"f" 
 +150 x=46:vida=1:d=100 
 +160 REM ****************** MOVIMIENTO DE LAS ARA\AS ************************* 
 +230 WHILE vida 
 +240 cual=INT(RND*mu)+27:IF cual>63 OR cual= xd THEN GOTO 300 
 +245 IF cual MOD 2 <>0 THEN cual=cual-1 
 +250 t(cual)=t(cual)+3 
 +260 PRINT FN loc$(cual,t(cual)-1)+CHR$(149):PRINT FN loc$(cual,t(cual))+CHR$(149):PRINT FNloc$(cual,t(cual)+1)+CHR$(149):PRINT FN loc$(cual,t(cual)+2)+"%" 
 +270 IF t(cual)>23 THEN vida=0 
 +280 REM ****************** MOVIMIENTO DEL FULMIGADOR ************************ 
 +290 PRINT FN loc$(x,26);"0":PRINT FN loc$(x,27);"4" 
 +300 a$="" 
 +301 a$=INKEY$ 
 +310 IF a$="Z" OR a$="z" THEN x=x-2:GOSUB 470:GOSUB 3000 
 +320 IF a$="X" OR a$="x" THEN x=x+2:GOSUB 470:GOSUB 4000 
 +330 IF sw=0 THEN IF a$="f" OR a$="F" THEN sw=1:xd=x:yd=24:PRINT CHR$(7) 
 +340 IF sw=1 THEN GOSUB 590:GOSUB 500:sw=0:GOSUB 490:GOSUB 5000:t(xd)=0:mu=mu-0.5:d=d-1:PRINT FN loc$(75,24);" ";INT(d);" ":IF d=0 THEN GOSUB 830 
 +350 WEND 
 +360 GOSUB 520 
 +370 REM ****************** PUNTUACION ********************** 
 +380 IF pp>sc THEN sc=pp:PRINT FN loc$(77,14)+CHR$(7);INT(sc) 
 +390 pp=0 
 +400 PRINT TAB (30)"OTRA PARTIDA S/N" 
 +410 d$=INKEY$:d$=UPPER$(d$) 
 +420 IF d$="S" THEN PRINT cl$:CLEAR:GOTO 1 
 +430 IF d$="N" THEN END ELSE 410 
 +470 IF x<26 THEN x=26 
 +480 IF x>62 THEN x=62 
 +490 PRINT FN loc$(x,26)+"0":PRINT FN loc$(x,27)+"4":RETURN 
 +500 FOR i=24 TO 2 STEP -1:PRINT FN loc$(xd,i)+"'":PRINT FN loc$(xd,i+1)+" ":NEXT i:PRINT FN loc$(xd,2)+" ":RETURN 
 +520 FOR p=1 TO 3:PRINT FN loc$(x,26)+"'":NEXT p:PRINT FN loc$(x,26)+"-":GOSUB 550:FOR x=cual TO 12 STEP-1:PRINT FN loc$(x,28)+" % ":FOR c=0 TO 400:NEXT c 
 +530 GOTO 560 
 +540 GOSUB 560 
 +550 PRINT FN loc$(cual,26)+CHR$(145):PRINT FN loc$(cual,27)+CHR$(145):PRINT FN loc$(cual,28)+CHR$(145):RETURN 
 +560 NEXT x:FOR y=28 TO 7 STEP -1:PRINT FN loc$(10,y);" % ":PRINT FN loc$(10,y+1);"   ":PRINT FN loc$(12,28)+" ":NEXT y:PRINT FN loc$(12,7)+" " 
 +570 PRINT FN loc$(4,3)+"FIN":PRINT FN LOC$(2,5)+"PARTIDA":RETURN 
 +590 IF yd>23 THEN RETURN ELSE IF yd=3 THEN PRINT CHR$(7):RETURN ELSE RETURN 
 +610 FOR r=13 TO 23:PRINT FN loc$(31,r)+STRING$(29," "):NEXT r 
 +611 RETURN 
 +620 RETURN 
 +830 PRINT FN loc$(25,28)+"RENOVACION DEL DDT":FOR l=0 TO 100:PRINT FN loc$(75,24)+" ";l;" ":NEXT l:PRINT FN loc$(25,28)+" ":RETURN 
 +860 PRINT cl$:GOSUB 1000 
 +870 PRINT FN loc$(31,14)+STRING$(27," ") 
 +880 REM INSTRUCCIONES 
 +890 PRINT FN loc$(31,14)+"POR LA INFLUENCIA DEL COMETA" 
 +900 PRINT FN loc$(31,15)+"HALLEY LAS ARA\AS DE MI CASA" 
 +910 PRINT FN loc$(31,16)+"SE REPRODUCEN  EN  ASOMBROSA" 
 +920 PRINT FN loc$(31,17)+"CANTIDAD, POR LO QUE ES  NE-" 
 +930 PRINT FN loc$(31,18)+"CESARIO  EXTERMINARLAS   CON" 
 +940 PRINT FN loc$(31,19)+"DDT.  PARA  LO  CUAL HACEMOS" 
 +950 PRINT FN loc$(31,20)+"USO DE UN SPRAY QUE SE MUEVE" 
 +960 PRINT FN loc$(31,21)+"CON <X> Y <Z>, PARA PULVERI-" 
 +970 PRINT FN loc$(31,22)+"ZAR SPRAY PULSA <F>..." 
 +975 a$="" 
 +980 WHILE a$<>" ":a$=INKEY$:WEND 
 +990 GOSUB 610 
 +995 RETURN 
 +1000 PRINT FNloc$(0,0)+STRING$(90,"&")+FN loc$(0,29)+STRING$(90,"&"); 
 +1010 FOR r=1 TO 28 
 +1020 PRINT FN loc$(0,r)+STRING$(25,"&")+FN loc$(65,r)+STRING$(25,"&"); 
 +1030 NEXT r:PRINT des$ 
 +1040 PRINT FN loc$(70,6)+tv$+"    ARA\AS    " 
 +1050 FOR r=1 TO 7 
 +1060 PRINT FN LOC$(70,r+8)+"              " 
 +1070 NEXT r 
 +1080 PRINT FN loc$(6,8)+" Z: Izquierda " 
 +1090 PRINT FN loc$(6,10)+" X: Derecha   " 
 +1100 PRINT FN loc$(6,12)+" F:    DDT    " 
 +1110 PRINT FN loc$(75,10)+"PUNTOS";:PRINT FN loc$(75,13)+"RECORD" 
 +1120 PRINT FN loc$(75,22)+" DDT " 
 +1130 PRINT FN LOC$(31,14)+"PULSA ESPACIO PARA COMENZAR" 
 +1140 WHILE a$<>" ":a$=INKEY$:WEND 
 +1150 RETURN 
 +3000 IF x=26 THEN l=24 ELSE l=x 
 +3001 PRINT FN loc$(l+2,26)+" ":PRINT FN loc$(l+2,27)+" ":RETURN 
 +4000 IF x=62 THEN l=64 ELSE l=x 
 +4001 PRINT FN loc$(l-2,26)+" ":PRINT FN loc$(l-2,27)+" ":RETURN 
 +5000 IF t(xd)<>0 THEN pp=pp+5:PRINT FN loc$(75,11);pp:RETURN ELSE RETURN 
 +5010 REM *********************** REDEFINICION DE GRAFICOS ***************************** 
 +5030 REM 
 +5040 REM 
 +5050 MEMORY &HBFFE 
 +5060 FOR N=&HC070 TO &HC098 
 +5070 READ D8 
 +5080 POKE N,D8 
 +5090 NEXT N 
 +5100 P9=0:FOR n=&HC070 TO &HC098:p9=p9+PEEK(N):NEXT n 
 +5110 IF P9 <> 5540 THEN ERROR 51 
 +5120 REM 
 +5130 REM ********************** DATAS DEL PROGRAMA *********************************** 
 +5140 REM 
 +5150 DATA 243,62,129,211,241,62,130,211,242,175,95,103 
 +5160 DATA 22,184,58,153,192,111,41,41,41,25,17,154 
 +5170 DATA 192,235,1,8,0,237,176,62,133,211,241,62 
 +5180 DATA 134,211,242,251,201 
 +5190 REM ********************** CARGAR CARACTERES GRAFICOS *************************** 
 +5200 OPEN "R",1,"ARANAS.CAR",1:C=&HC070 
 +5210 FIELD #1,1 AS Z$ 
 +5220 FOR n=164 TO 255:POKE &HC099,n 
 +5230 FOR n2=1 TO 8 
 +5240 GET #1:POKE &HC099+n2,ASC(Z$) 
 +5250 NEXT n2:CALL c:NEXT:CLOSE:RETURN
  
 </file> </file>
Línea 43: Línea 164:
   4.- Teclear run "ARANAS" y pulsar la tecla "ENTER"   4.- Teclear run "ARANAS" y pulsar la tecla "ENTER"
  
-===== Extras ===== 
- 
-  * Listado del programa en una revista de gran tirada de la época 
- 
-{{:otros:Aranas_01.jpg?170}} {{:otros:Aranas_02.jpg?170}} {{:otros:Aranas_03.jpg?170}} 
  
  
Línea 56: Línea 172:
 ===== Vídeos ===== ===== Vídeos =====
  
-{{ youtube>OunKKCnoTRg?large }}+{{ youtube>m9QkK-i7D38?large }}
  
es/aranas.1656544181.txt.gz · Última modificación: 2022/06/30 02:09 por jevicac