Diferencias

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

--- 007:programas-de-lectores [d/m/Y H:i] – [Programas de lectores] miguel
+++ 007:programas-de-lectores [d/m/Y H:i] (actual) – [La mudanza de las hormigas] falvarez
@@ Línea 32: / Línea 32: @@
 El resto de las aclaraciones necesarias para jugar vienen incluidas en el propio programa.
+<code basic hormigas.bas>
+REM RESET  Bartolome y Francisco Javier Roman Anton
+REM INICIACION VARIABLES PROGRMA
+LET rc=0: LET j=23560
+DEF FN z(m)=INT (RND*m)+1
+GO SUB 8000
+BORDER 6: FLASH 0: PAPER 6: BRIGHT 1: CLS
+PRINT FLASH 1; INK 0;AT 10,4;"H O R M I G U E R O S"
+PAUSE 10
+PRINT INK 0;AT 13,0;"CONDUCE A LAS HORMIGAS \a DESDE  LOS HORMIGUEROS VIEJOS \e HASTA  LOS NUEVOS \f, SIN CHOCAR CON    NINGUNA HORMIGA, MURO \g, NI     HORMIGUERO VIEJO \e."'"PARA ELLO USA LOS CURSORES";''"S U E R T E"
+PAUSE 100
+INK 2: PRINT AT 10,0;"\e": BEEP .1,30: PRINT AT 0,24;"\f": BEEP .2,50: FOR a=1 TO 24: PRINT AT 10,a;"\d": BEEP 0.0005,60: NEXT a: FOR a=10 TO 1 STEP -1: PRINT AT a,24;"\c": BEEP 0.0005,60: NEXT a
+PAUSE 300
+REM INICIACION VARIABLE PARTIDA
+LET vi=5: LET pt=0: LET k=1
+LET x=FN z(20): LET y=FN z(30)
+DIM l(2,200)
+LET l(1,1)=x: LET l(2,1)=y
+REM INICIALIZACION VARIABLES JUEGO
+IF k<200 THEN LET k=k+1
+LET l(1,k)=FN z(20): LET l(2,k)=FN z(30)
+LET g=FN z(4)+52
+REM CUADRO
+INK 4: PAPER 4: BORDER 4: CLS
+INK 7: PRINT AT 0,0;"\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g";AT 21,0;"\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g": FOR a=1 TO 20: PRINT AT a,0;"\g";AT a,31;"\g": NEXT a
+LET p$="-----"( TO 5-LEN STR$ pt)+STR$ pt: LET r$="-----"( TO 5-LEN STR$ rc)+STR$ rc: LET v$="\b\b\b\b\b"( TO vi-1) +"....."( TO 6-vi)
+POKE 23624,98
+PRINT #0;"PUNTOS:";p$;" RECORD:";r$;"  "; v$
+REM DIBUJO HORMIGUEROS
+FOR m=1 TO k-1
+PRINT AT l(1,m),l(2,m); INK 1;"\e": BEEP .1,30
+NEXT m
+PRINT AT l(1,k),l(2,k); INK 3;"\f": BEEP .2,50
+LET x=l(1,k-1): LET y=l(2,k-1)
+REM TECLADO
+LET t=PEEK j: IF t<=56 AND t>=53 THEN LET g=t
+LET y=y+1*(y<31 AND g=56)-1*(y>0 AND g=53): LET x=x+1*(x<21 AND g=54)-1*(x>0 AND g=55)
+REM CHOQUE MOVIMIENTO
+IF ATTR (x,y)=100 THEN PRINT AT x,y; INK 0;CHR$ (91+g): BEEP 0.0005,60: GO TO 4500
+GO TO 5100+(ATTR (x,y)-95)*100
+REM HORMIGA
+FOR a=0 TO 40: BEEP .005,-FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a
+GO TO 6000
+REM VIEJO
+FOR a=0 TO -60 STEP -1: BEEP .01,a: NEXT a
+GO TO 6000
+REM NUEVO
+FOR a=40 TO 0 STEP -1: BEEP a/1000,24: BEEP a/1000,23: BEEP a/1000,21: BEEP a/1000,19: BORDER a/10: NEXT a: BORDER 4
+LET pt=pt+10
+IF k/10=INT (k/10) THEN LET vi=vi+1: PRINT FLASH 1;AT 10,5;"VIDA EXTRA": PAUSE 200
+GO TO 2000
+REM PANTALLE
+FOR a=0 TO 40: BEEP .0005,FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a
+LET vi=vi-1: IF vi<>0 THEN GO TO 2500
+BORDER 5: INK 0: PAPER 5: CLS
+IF pt<rc THEN GO TO 6100
+PRINT FLASH 1;"NUEVO RECORD";AT 10,14;pt: INPUT "NOMBRE ";n$
+LET rc=pt
+FLASH 1: CLS
+PRINT OVER 1; FLASH 0;AT 10,5;"EL MEJOR";AT 10,5;"_________";AT 17,3;n$
+PRINT #0;"PULSE TECLA PARA JUGAR"
+PAUSE 0
+GO TO 500
+REM DEFINICION DE CARACTERES
+DATA "c",40,146,124,56,254,56,124,146
+DATA "b",146,124,56,254,56,124,146,40
+DATA "a",73,42,190,63,190,42,73,0
+DATA "d",146,84,125,254,125,84,146,0
+DATA "e",30,63,127,255,255,254,252,48
+DATA "f",6,7,237,252,252,126,62,6
+DATA "G",170,170,85,85,170,170,85,85
+FOR a=1 TO 7: READ a$: FOR b=0 TO 7: READ c: POKE USR a$+b,c: NEXT b: NEXT a
+RETURN
+SAVE "HORMIGAS" LINE 1
+</code>
 ==== Letragorda ====