Mariana

Program Jogo_da_forca ;
Var
    vet : array [1..10] of string;
    Tam : string;
    tent, C, L, T, M, P, U, N, I: Integer;
    Palavra_certa, Palavra_parcial, riscos: string;
    Letra: char;
    Acerto, Erro: boolean;
Begin
    TEXTBACKGROUND (BLUE);
    CLRSCR;
    GOTOXY (1,1);
    TEXTCOLOR (WHITE);
    WRITE ('BEM VINDO AO JOGO DA FORCA');
    GOTOXY (1,2);
    WRITE ('ESCREVA 10 NOMES DE ANIMAIS: ');
    For P:= 1 to 10 do
      readln (Tam [P]);
      Clrscr;
      M:= random (10);
      Palavra_certa:= Tam [M];
      writeln ('Vamos começar');
      C:=1; L :=30;
      GOTOXY (C,L);
      TEXTCOLOR (GREEN);
      FOR C:= 1 TO 80 DO
        WRITE (#219);
        C:= 1;L:=31;
        TEXTCOLOR(BROWN);
        FOR C:=1 TO 80 DO
        BEGIN
          WRITE (#219);
          FOR L:= 1 TO 10 DO
            WRITE (#219);
        END;
        C:= 3; L:=10;
        GOTOXY (C,L);
        FOR L:= 10 TO 30 DO
        BEGIN
          GOTOXY (C,L);
          WRITE (#219,#219);
        END;
        C:=3;L:=10;
        FOR C:= 3 TO 16 DO
        BEGIN
          GOTOXY (C,L);
          WRITE (#219,#219);
        END;
        C:=3;L:=8;
        GOTOXY (C,L);
        TEXTCOLOR (BLACK);
        WRITE ('O ANIMAL É: ');
        TEXTCOLOR (WHITE);
        C:= 45; L:=6;
        GOTOXY (C,L);
        FOR C:=40 TO 70 DO
          WRITE (#219);
          TEXTCOLOR (WHITE);C:= 45; L:=29;
          GOTOXY (C,L);
          FOR C:=40 TO 70 DO
            WRITE (#219);
            C:= 45; L:= 5;
            GOTOXY (C,L);
            FOR L:=6 TO 29 DO
            BEGIN
              GOTOXY (C,L);
              WRITE(#219);
            END;
            C:= 76; L:= 5;
            GOTOXY (C,L);
            FOR L:=6 TO 29 DO
            BEGIN
              GOTOXY (C,L);
              WRITE(#219);
            END;
            C:= 48; L:= 7;
            TEXTCOLOR (YELLOW);
            GOTOXY (C,L);
            WRITE ('TENTATIVAS: ');
            Palavra_Certa:= vet [tent];
            For L:= 0 to Length(Palavra_Certa) do
            begin
              if (Palavra_Certa[L] = ' ')
                then Palavra_Parcial[L] := ' '
              else if (Palavra_Certa[L] = '_')
                then Palavra_Parcial[L]:= '_'
              else Palavra_parcial[L]:= '@';
            end;
            repeat
            ClrScr;
            writeln;
            writeln (' ',Palavra_Parcial);
            writeln;
            acerto:= true;
            For L:= 1 to Length (Palavra_Certa) do
              if Palavra_Parcial[L] = '@'
                then Acerto:= false;
              if Acerto= true
                then
              begin
                GOTOXY (3,4);
                TEXTCOLOR (WHITE);
                writeln (' Parabens, voce acertou a palavra.');
                readln;
                break;
              end
              else if Tent>0 then
              begin
                GOTOXY (3,4);
                TEXTCOLOR (WHITE);
                writeln (' Digite uma letra: ');
                Letra:= readkey;
              END;
              if Pos(Letra, Palavra_Parcial)= 0 then
                for L:= 1 to Length(Palavra_Certa) do
                begin
                  if (Palavra_Certa[L]=Letra) then
                  begin
                    Palavra_Parcial[L]:=Letra;
                  end;
                end
              else if Pos(Letra, Palavra_Certa)=0 then
              begin
                Tent:=Tent- 1;
                break;
              end
              else
                Tent:=Tent- 1;
              begin
                GOTOXY (6,8);
                TEXTCOLOR (WHITE);
                writeln (' Voce perdeu, tente novamente.');
                readln;
                break;
              END;
END.