Traducciones de esta página:

Herramientas de usuario

Herramientas del sitio


es:arañas

ARAÑAS

Ficha

Arana_p1.jpg

Autor ?????????????
Compatibilidad Amstrad PCW 8256 / 8512 / 9512
Año ????
Género Arcade
Controles Teclado
Idioma Español
Estado Preservado

Capturas

Aranas_screenshot01.png Aranas_screenshot02.png Aranas_screenshot03.png Aranas_screenshot04.png

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.

Listado

  • Listado - ARANAS.BAS
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

Controles

      Z = IZQUIERDA
      X = DERECHA 
      F = DISPARAR

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 Arañas
4.- Teclear run "Aranas" y pulsar la tecla "ENTER"

Extras

Descarga

  • Arañas (juego en formato dsk, comprimido con zip)

Enlaces

es/arañas.txt · Última modificación: 2017/02/03 13:50 por jevicac