Bajar programa
Para apreciar esta página correctamente, debes instalar Fa-122Doc.ttf en tu computadora
Título: Lluvia
Autor: Jorge Cevallos Manzano
Modelo: CFX9850 (Hecho en CFX9850Ga+)
Descripción: Recoje la lluvia de asteriscos (*) moviendo el signo (=).
|
Tecla |
Función |
 |
Dos espacios a la izquierda y continuar (si está pausado) |
 |
Un espacio a la izquierda |
 |
Un espacio a la derecha |
 |
Dos espacios a la derecha |
 |
Pausa y muestra las vidas restantes |
Existen 5 niveles de dificultad:
ClrText·
List 6·
10‡A:0‡C~F:7‡E·
Int 21Ran#‰1‡B·
Lbl 0·
If C=1 And Not Frac D¤20·
Then E‰3‡E·
For 1‡I To 12·
Locate 8,1,"LEVEL:"·
Locate 14,1,.05D‰1·
Not DîLocate 9,4,"NORMAL"·
D¯120îLocate 8,4,"G E T"·
D=20îLocate 9,4,"SHADE"·
D=40îLocate 7,3,"BONUS 10"·
D=60îLocate 7,4,"NO BONUS"·
D=80îLocate 7,4,"ONE STEP"·
D=100îLocate 7,4,"HUNDRED!"·
D¯120îLocate 8,4," R A !"·
Next·
Locate 7,4," "·
Locate 8,1," "·
Isz D·
IfEnd·
D¯20î" "·
Isz C·
GetKey·
Ans=69 Or Ans=39 Or Ans=79 Or Ans=29îLocate A,7," "·
Ans=29 And D>80 Or Ans=39îA<21îIsz A·
Ans=79 And D>80 Or Ans=69îA>1îDsz A·
D®80îAns=29îA<20îA‰2‡A·
D®80îAns=79îA>2îA‚2‡A·
Locate A,7,"="·
C<8îLocate B,C,"£"·
If 8=C·
Then If A=B·
Then Isz D·
Isz F·
For 1‡I To 2·
Locate 7,1,"POINT"·
Locate 13,1,F·
Next·
Locate 7,1," "·
Else Dsz E·
0‡F·
IfEnd·
Int 21Ran#‰1‡ B·
1‡C·
IfEnd·
If D®60 And (F=5 And D®40 Or F=10 And D>40·
Then For 1‡I To 9·
Locate 8,1,"BONUS!"·
Next·
Locate 8,1," "·
E‰2‡E·
0‡F·
IfEnd·
If Ans=78·
Then Locate 8,1,"‚PAUSE‚"·
Locate 7,3,"SCORE:"·
Locate 14,3,D·
Locate 7,5,"LIFES:"·
Locate 14,5,E·
While Getkey¬79·
WhileEnd·
Locate 8,1," "·
Locate 7,3," "·
Locate 7,5," "·
IfEnd·
Locate B,C," "·
If Not E·
Then ClrText·
" "·
" "·
Orange " "·
" "·
Green " "·
Locate 6,3,"GAME OVER!"·
Locate 1,5,"SCORE:"·
Locate 8,5,D·
If D¯List 6[1·
Then Locate 6,7,"HIGH SCORE!"·
D‡List 6[1·
Else Locate 1,7,"H.S.:"·
Locate 7,7,List 6[1·
IfEnd·
Locate 1,1,""·
Stop·
Else Goto 0