====== ARAÑAS ====== {{:otros:Aranas_p1.jpg?690|}} ===== Info ===== ^ Author | ???? | ^ Computer | Amstrad PCW 8256 / 8512 / 9512 | ^ Year | ???? | ^ Gender | Arcade | ^ Controls | Keyboard | ^ Languages | Spanish | ^ State | [[preserved|Preserved]] | ===== Screenshots ===== {{:otros:Aranas_screenshot01.png?220}} {{:otros:Aranas_screenshot02.png?220}} {{:otros:Aranas_screenshot03.png?220}} {{:otros:Aranas_screenshot04.png?220}} ===== Description ===== Entertaining and fun game where we will have to demonstrate our agility and speed when it comes to killing some spiders that reproduce all over the screen. We'll have to be quick to get the highest score, but we'll have to be somewhat cunning and control the DDT fumigator that we're running out of. Due to the influence of Halley's comet, the spiders in my house reproduce in an amazing quantity, so it is necessary to exterminate them with -DDT-, for which we use the fumigator. ===== Listing ===== * **__Listing - 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 Y , PARA PULVERI-" 970 PRINT FN loc$(31,22)+"ZAR SPRAY PULSA ..." 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 ===== Controls ===== Z = LEFT X = RIGHT F = DDT ===== Loading the program ===== 1.- Insert the CP/M disc on side 2 2.- Write BASIC and wait for it to load 3.- Remove the CP/M disk and insert the disk containing the game Arañas 4.- Type run "ARANAS" and press the "ENTER" key ===== Download ===== * {{:otros:Aranas.zip|Arañas }}(game in dsk format, compressed with zip) ===== Video ===== {{ youtube>m9QkK-i7D38?large }}