(*- GAME @ Alien Ataca -*)

// Comentários /agradecimentos //
// quero agradecer ao emos da ToH \o/ //
// alien ataca versão 0.2        //
// desenvolvido por jonas dos santos //
// projeto\ design\ elaboração : jonas dos santos //
// ToH Games LTDA //
uses crt;
var  alien,nave,bala,tecla:char; // variaveis que controlam a forma da nave aliens e as teclas //
     de,linha,coluna,desce,tiro,
     erro,ponto,sair,movimento:integer; //variaveis que controlam os movimentos pontos etc.. //
     aln: array [1..25] of char;
     nome:string;
     Begin
     gotoxy(25,10); write('Nomedo jogador ',nome ); read(nome); nome:=upcase(nome);
     alien:=chr(2);
     nave:=chr(30);
     bala:=chr(9);
     desce:=2;
     Ponto:=0;
     tiro:=25;
     coluna:=25;
     for de:=1 to 24 do
     Begin
      aln[de]:=chr(1);
      gotoxy(20,1);  write('|----------------------------------|');
      gotoxy(20,de); write('|                                  |');
      gotoxy(20,de); write('|                                  |');
      gotoxy(20,24); write('|----------------------------------|');
     End;
     Begin
      repeat
         tiro:=22;
         movimento:=22+random(8);
        begin
          for de:=2 to 23 do
          begin
            gotoxy(22,de); write('                                 ');
          end;
            // Aliens //
          repeat
             desce:=desce+1;
             delay(200);
             gotoxy(22,2); write(aln[1],aln[2],aln[3],aln[4],aln[5],aln[6],aln[7],aln[8],aln[9],aln[10]);
             gotoxy(32,2); write(aln[11],aln[12],aln[13],aln[14],aln[15],aln[16],aln[17],aln[18],aln[19],aln[20]);
            // usuário/você //
            gotoxy(movimento,desce-1); write('                  ');
            gotoxy(movimento,desce); write(alien); gotoxy(movimento+1,desce); write(' Mira:   [-',movimento,'-]');
            gotoxy(coluna,23); write(nave); gotoxy(56,11); write(' Tiros Perdidos ',erro);
            gotoxy(56,12); write(' Precisão: ',coluna); gotoxy(coluna+1,23); write(' Naves derrubadas ',Ponto);
            gotoxy(56,10); write(' Jogador: ',nome);
          until keypressed;
         if movimento=coluna then
         Begin
            gotoxy(coluna+1,22); write(' Atire agora ',nome,' !');
         End;
         tecla:=readkey; tecla:=upcase(tecla);
         case tecla of
          'A': coluna:=coluna-1;
          'D': coluna:=coluna+1;
          'O': sair:=1;
          ' ': begin
                  // Faz a bala subir //
                  for de:=22 downto desce+1 do
                  Begin
                    tiro:=tiro-1;
                    gotoxy(coluna,tiro);write(bala);
                    delay(80);
                  End;
                  if (coluna=movimento) and (tiro=desce) then
                  Begin
                    desce:=2;
                    tiro:=22;
                    ponto:=ponto+1;
                    if ponto>0 then   aln[ponto]:=chr(32);  //verifica se já é possivél remover 1 alien da barreira//
                  End
                  // este algoritimo vê se vose atirou fora do alcance do alien caso sim dar o valor erro 1 ponto//
                  else if (coluna<>movimento) then
                  begin
                    erro:=erro+1;
                    tiro:=22;
                  end;
               end;
         end;
         //comentários //
         // área que controla o caimento dos aliens //
         // essa área também mostra resultado de vitória ou de perda //
          if desce=23 then
          Begin
           desce:=2;
           ponto:=ponto-1;
           tiro:=23;
           if ponto>0 then   aln[ponto]:=chr(1);
          End;
          if ponto=-5 then
          Begin
           gotoxy(23,25); writeln(' Desculpe ',nome,' você perdeu .');
           readkey;
           sair:=1;
          End;
          if ponto=20 then
          Begin
           alien:=chr(31);
           ponto:=ponto;
          End;
          if ponto=23 then
          Begin
           gotoxy(23,25); writeln(' Parabéns ',nome,' você Ganhou .');
           readkey;
           sair:=1;
          End;
        End;
      until sair=1;
      Desce:=25;
      repeat
         delay(500);
         Desce:=Desce-1;
         Gotoxy(5,desce);  write('JonasDS');
         Gotoxy(5,desce+2);write('-Emos-');
         Gotoxy(5,desce+4);write(' Isral ');
         Gotoxy(5,desce+6);write(' arthur ');
         Gotoxy(5,desce+8);write(' alexander');
         Gotoxy(5,desce+9);write('          ');
      until (Desce=1) or (keypressed);
     End;
     End.