es:aranas
Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anteriorRevisión previaPróxima revisión | Revisión previa | ||
es:aranas [2022/06/30 02:11] – [Ficha] jevicac | es:aranas [2022/06/30 10:08] (actual) – [Vídeos] jevicac | ||
---|---|---|---|
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: | ||
< | < | ||
+ | 1 esc$=CHR$(27): | ||
+ | 2 DEF FNLOC$(f, | ||
+ | 3 iv$=esc$+" | ||
+ | 4 DEF FN fin$(f, | ||
+ | 5 PRINT CHR$(27)+" | ||
+ | 10 REM ******************************* | ||
+ | 20 REM ** ** | ||
+ | 30 REM ** ARAÑAS | ||
+ | 40 REM ** BY ** | ||
+ | 50 REM ** ??????????????????????? | ||
+ | 60 REM ** ** | ||
+ | 70 REM ******************************* | ||
+ | 80 DIM t(90): | ||
+ | 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, | ||
+ | 150 x=46: | ||
+ | 160 REM ****************** MOVIMIENTO DE LAS ARA\AS ************************* | ||
+ | 230 WHILE vida | ||
+ | 240 cual=INT(RND*mu)+27: | ||
+ | 245 IF cual MOD 2 <>0 THEN cual=cual-1 | ||
+ | 250 t(cual)=t(cual)+3 | ||
+ | 260 PRINT FN loc$(cual, | ||
+ | 270 IF t(cual)> | ||
+ | 280 REM ****************** MOVIMIENTO DEL FULMIGADOR ************************ | ||
+ | 290 PRINT FN loc$(x, | ||
+ | 300 a$="" | ||
+ | 301 a$=INKEY$ | ||
+ | 310 IF a$=" | ||
+ | 320 IF a$=" | ||
+ | 330 IF sw=0 THEN IF a$=" | ||
+ | 340 IF sw=1 THEN GOSUB 590:GOSUB 500: | ||
+ | 350 WEND | ||
+ | 360 GOSUB 520 | ||
+ | 370 REM ****************** PUNTUACION ********************** | ||
+ | 380 IF pp>sc THEN sc=pp:PRINT FN loc$(77, | ||
+ | 390 pp=0 | ||
+ | 400 PRINT TAB (30)" | ||
+ | 410 d$=INKEY$: | ||
+ | 420 IF d$=" | ||
+ | 430 IF d$=" | ||
+ | 470 IF x<26 THEN x=26 | ||
+ | 480 IF x>62 THEN x=62 | ||
+ | 490 PRINT FN loc$(x, | ||
+ | 500 FOR i=24 TO 2 STEP -1:PRINT FN loc$(xd, | ||
+ | 520 FOR p=1 TO 3:PRINT FN loc$(x, | ||
+ | 530 GOTO 560 | ||
+ | 540 GOSUB 560 | ||
+ | 550 PRINT FN loc$(cual, | ||
+ | 560 NEXT x:FOR y=28 TO 7 STEP -1:PRINT FN loc$(10, | ||
+ | 570 PRINT FN loc$(4, | ||
+ | 590 IF yd>23 THEN RETURN ELSE IF yd=3 THEN PRINT CHR$(7): | ||
+ | 610 FOR r=13 TO 23:PRINT FN loc$(31, | ||
+ | 611 RETURN | ||
+ | 620 RETURN | ||
+ | 830 PRINT FN loc$(25, | ||
+ | 860 PRINT cl$:GOSUB 1000 | ||
+ | 870 PRINT FN loc$(31, | ||
+ | 880 REM INSTRUCCIONES | ||
+ | 890 PRINT FN loc$(31, | ||
+ | 900 PRINT FN loc$(31, | ||
+ | 910 PRINT FN loc$(31, | ||
+ | 920 PRINT FN loc$(31, | ||
+ | 930 PRINT FN loc$(31, | ||
+ | 940 PRINT FN loc$(31, | ||
+ | 950 PRINT FN loc$(31, | ||
+ | 960 PRINT FN loc$(31, | ||
+ | 970 PRINT FN loc$(31, | ||
+ | 975 a$="" | ||
+ | 980 WHILE a$<>" | ||
+ | 990 GOSUB 610 | ||
+ | 995 RETURN | ||
+ | 1000 PRINT FNloc$(0, | ||
+ | 1010 FOR r=1 TO 28 | ||
+ | 1020 PRINT FN loc$(0, | ||
+ | 1030 NEXT r:PRINT des$ | ||
+ | 1040 PRINT FN loc$(70, | ||
+ | 1050 FOR r=1 TO 7 | ||
+ | 1060 PRINT FN LOC$(70, | ||
+ | 1070 NEXT r | ||
+ | 1080 PRINT FN loc$(6, | ||
+ | 1090 PRINT FN loc$(6, | ||
+ | 1100 PRINT FN loc$(6, | ||
+ | 1110 PRINT FN loc$(75, | ||
+ | 1120 PRINT FN loc$(75, | ||
+ | 1130 PRINT FN LOC$(31, | ||
+ | 1140 WHILE a$<>" | ||
+ | 1150 RETURN | ||
+ | 3000 IF x=26 THEN l=24 ELSE l=x | ||
+ | 3001 PRINT FN loc$(l+2, | ||
+ | 4000 IF x=62 THEN l=64 ELSE l=x | ||
+ | 4001 PRINT FN loc$(l-2, | ||
+ | 5000 IF t(xd)<> | ||
+ | 5010 REM *********************** REDEFINICION DE GRAFICOS ***************************** | ||
+ | 5030 REM | ||
+ | 5040 REM | ||
+ | 5050 MEMORY & | ||
+ | 5060 FOR N=& | ||
+ | 5070 READ D8 | ||
+ | 5080 POKE N,D8 | ||
+ | 5090 NEXT N | ||
+ | 5100 P9=0:FOR n=& | ||
+ | 5110 IF P9 <> 5540 THEN ERROR 51 | ||
+ | 5120 REM | ||
+ | 5130 REM ********************** DATAS DEL PROGRAMA *********************************** | ||
+ | 5140 REM | ||
+ | 5150 DATA 243, | ||
+ | 5160 DATA 22, | ||
+ | 5170 DATA 192, | ||
+ | 5180 DATA 134, | ||
+ | 5190 REM ********************** CARGAR CARACTERES GRAFICOS *************************** | ||
+ | 5200 OPEN " | ||
+ | 5210 FIELD #1,1 AS Z$ | ||
+ | 5220 FOR n=164 TO 255:POKE & | ||
+ | 5230 FOR n2=1 TO 8 | ||
+ | 5240 GET #1:POKE & | ||
+ | 5250 NEXT n2:CALL c: | ||
</ | </ | ||
Línea 43: | Línea 164: | ||
4.- Teclear run " | 4.- Teclear run " | ||
- | ===== Extras ===== | ||
- | |||
- | * Listado del programa en una revista de gran tirada de la época | ||
- | |||
- | {{: | ||
Línea 56: | Línea 172: | ||
===== Vídeos ===== | ===== Vídeos ===== | ||
- | {{ youtube>OunKKCnoTRg?large }} | + | {{ youtube>m9QkK-i7D38?large }} |
es/aranas.1656544274.txt.gz · Última modificación: 2022/06/30 02:11 por jevicac