TITANIC

Proceso Animacion
Escribir "                                                                   <<<  PRESIONE UNA TECLA >>> ";
Esperar Tecla;
Definir final, barco, a como Texto;
Definir i,j,estado como Enteros;
Definir opcion Como Entero ;
Para i<-1 hasta 4 Hacer
Borrar Pantalla;
Escribir "                                                                  ANIMACION EN : ",4-i;
Esperar 1 Segundo;
FinPara
Para i<-1 hasta 25 Hacer
Borrar Pantalla;
Para j<-i hasta 13 Hacer
Escribir "" ; // 13 espacios vacios
FinPara


si i>1 Entonces

finsi
Esperar 1/i Segundo;
FinPara
Escribir "";
Escribir "                                                                 QUE PELICULA DESEA VER ? ";
Escribir "";
Escribir "                                                                 1) PARA TITANIC EN 3D ";
Escribir "                                                                 2) PARA RAPIDO & FURIOSO 7 ";

Leer  Opcion ;

Segun Opcion Hacer
1:
Para i<-1 hasta 30 Hacer
Borrar Pantalla;
Para j<-i hasta 21 Hacer
Escribir "" ; // 10 espacios vacios ¿Porqué son diez?!!!!
FinPara

si i>1 Entonces

finsi
Esperar 1/i Segundo;
FinPara

Escribir "";
Escribir "";

Esperar 2600 Milisegundos;
Borrar Pantalla;

Dimension barco[7];
barco[1]<- "          ____       ____      ____         ";
barco[2]<- "         |    |     |    |    |    |        " ;
barco[3]<- "         |    |     |    |    |    |        ";
barco[4]<- " ________|____|_____|____|____|____|_______ ";
barco[5]<- " \                                        / ";
barco[6]<- "  \ []   []   []   []   []   []   []  [] /  ";
barco[7]<- "   \____________________________________/   ";

a<-" ";
Borrar Pantalla;
Para i<-1 hasta 66 hacer

Si i<30 Entonces
Escribir "     x        x         x          x         x        x         x             x           x        x         x         x       x";
Escribir "         x         x          x         x        x         x             x           x        x         x         x       x     ";
Escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir " QUE BELLA NOCHE... " ;
Escribir "";
Escribir "";
Escribir "";
Sino
si i<45 Entonces
Escribir "     x        x         x          x         x        x         x             x           x        x         x         x       x ";
Escribir "          x        x         x          x         x        x         x             x           x        x         x         x       x ";
escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir " ¡¡ OH NO !!  MIRA UN AISBER..." ;
Escribir "";
Escribir "";
Escribir "";
Sino
Escribir "     x        x         x          x         x        x         x             x           x        x         x         x       x ";
Escribir "          x        x         x          x         x        x         x             x           x        x         x         x       x  ";
Escribir "";
Escribir "";
Escribir "";
Escribir " VAMOS A CHOCAR !! ";
Escribir "";
Escribir "";
Escribir "";
FinSi
FinSi

Para j<-1 hasta 7 hacer
escribir a, barco[j] ; // a = 7 espacios vacios ++
FinPara

Escribir "...................................................................................................._/\       ";
Escribir "                                                                                                  _/   \_     ";
escribir "                                                                                               _/        \   ";
escribir "                                                                                             _/           \  ";
escribir "                                                                                            /              \ " ;

Esperar 200 Milisegundos;
Borrar Pantalla;
a = a + " ";
FinPara
2:
Escribir "ESTAMOS TRABAJANDO !";

        de Otro Modo:
Escribir "Usted esta digitando un numero incorrecto, por favor vuelva a intentar. ";
FinSegun




FinProceso