The Agent - ˙vod do textovej advent˙ry

Delphi & Pascal (Ŕeskß wiki)
P°ejÝt na: navigace, hledßnÝ
Kategˇria:
agent.pngAutor: Radovan BaŔÝk
Program: Agent.pas
S˙bor exe: Agent.exe

Textovß advent˙rka, ╣koda że obsahuje len ˙vod. Obrßzky s˙ v╣ak p˘sobivÚ.
{ AGENT.PAS                                                         }
{                                                                   }
{ Author: Radovan Bacik                                             }
{ Date  : 15.02.1997                           http://www.trsek.com }
 
PROGRAM AHOJ;
USES CRT,DOS;
VAR v:char;
BEGIN
TEXTCOLOR(RED);
TEXTBACKGROUND(GREEN);
CLRSCR;
WRITELN;
WRITELN('       █▀▄         █      █▀▄      ███  █         █  █      ██     █           ');
WRITELN('       █  ▀▄      █ █     █  ▀▄   █   █  █       █  █ █     █ █    █           ');
WRITELN('       █   █     █   █    █    █ █     █  █     █  █   █    █  █   █           ');
WRITELN('       █▄▄▀     █▄▄▄▄▄█   █    █ █     █   █   █  █▄▄▄▄▄█   █   █  █           ');
WRITELN('       █  █ █  █       █  █   ▄▀  █   █     █ █  █       █  █    █ █           ');
WRITELN('       █   █  █         █ █▄▄▀     ███       █  █         █ █     █            ');
WRITELN('                                                                               ');
WRITELN('                                                                               ');
WRITELN('                           SOFT                                                ');
WRITELN('                                                                               ');
WRITELN('                               *                                               ');
WRITELN('                              *                                                ');
WRITELN('              *  *  *     *  *     ***   ****     *                            ');
WRITELN('              *  *   *   *  * *    *  *    *     * *                           ');
WRITELN('              *  *    * *  *****   *  *   *     *****                          ');
WRITELN('              ****     *  *     *  ***   ****  *     *                         ');
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
 
TEXTBACKGROUND(WHITE);
TEXTCOLOR(RED);
CLRSCR;
WRITELN('                                                                             ');
WRITELN('    ▀▀▀█▀▀▀ █   █ █▀▀▀                                                       ');
WRITELN('       █    █   █ █                                                          ');
WRITELN('       █    █▀▀▀█ █▀▀                                                        ');
WRITELN('       █    █   █ █▄▄▄                                                       ');
WRITELN('                                                                             ');
WRITELN('                  █        ███  █▀▀▀▀▀▀ ███     █ ▀▀▀▀█▀▀▀▀                  ');
WRITELN('                 █ █      █   █ █       █  █    █     █                      ');
WRITELN('                █   █    █      █       █   █   █     █                      ');
WRITELN('               █▄▄▄▄▄█   █      █▀▀▀▀   █    █  █     █                      ');
WRITELN('              █       █  █  ▀▀█ █       █     █ █     █                      ');
WRITELN('             █         █  █   █ █       █      ██     █                      ');
WRITELN('            █           █  ███  █▄▄▄▄▄▄ █       █     █                      ');
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
 
TEXTCOLOR(BLACK);
TEXTBACKGROUND(BLUE);
CLRSCR;
WRITELN('                                                                             ');
WRITELN('  Centralna budova USA bola obsadena vojakmi ZSSR a prezidenta uveznili      ');
WRITELN('  na tajne miesto.BOSS vojakov ZSSR ziada za prepustenie prezidenta          ');
WRITELN('  300 000 000$.Ak mu ich nezaplatite tak prezident zomrie.                   ');
WRITELN('  Vasou ulohou je oslobodit prezidenta a centralnu budovu od zleho vodcu     ');
WRITELN('  sovietskych vojakov ANDROSTALINA.                                          ');
WRITELN('                                                                             ');
WRITELN('                                                                             ');
WRITELN('                                    ┌┐                                       ');
WRITELN('                      ──────────────┤├───────────                            ');
WRITELN('                               ┌────┴┴───────┐                               ');
WRITELN('                              ┌┴─────────────┤             ┌─┬─┐             ');
WRITELN('                   ┌──┐    ┌──┤              ├┬┬┬┬┬┬┬┬┬┬┬┬┬┼─┼─┤             ');
WRITELN('                  ┌┘  └┐   │  │ ┤████   ZSSR ├┴┴┴┴┴┴┴┴┴┴┴┴┴┴─┴─┘             ');
WRITELN('                 ┌┘    └┐  └──┴┬─────┬───────┘                               ');
WRITELN('                 │┌────┐│└─────┴─────┴──────────┘                            ');
WRITELN('                 ││  ─││                                                    ');
WRITELN(' ┌───────┐       ││ │  ││                                                    ');
WRITELN(' │█ █ █ █│       │└────┘│   ┌──────┐            ┌─▀▀▀─┐  █                   ');
WRITELN(' │       │       │      ├───┘▄ ▄ ▄ │ ┌┬─────────┤ZSSR │  │                   ');
WRITELN(' │█ █ █ █├───────┤      │▄ ▄ ▄ ▄ ▄ │ └┴─────────┤     │  │                   ');
WRITELN(' │       │▀ ▀ ▀ ▀│      │▄ ▄ ▄ ▄ ▄ │       ┌┬┬┬┬┼┬┬┬┬┬┼┬┬┼┬┐                 ');
WRITELN(' │█ █ █ █│▀ ▀ ▀ ▀│      │▄ ▄ ▄ ▄ ▄ │       │█             █│                 ');
WRITELN(' │       │▀ ▀ ▀ ▀│  ██  │▄ ▄ ▄ ▄ ▄ │       └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘                 ');
WRITELN('                                                                             ');
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
 
TEXTCOLOR(BLACK );
TEXTBACKGROUND(BLUE);
CLRSCR;
WRITELN('                                                                             ');
WRITELN('                                ├┴┴┴┴┴┴┤     YOU                             ');
WRITELN('                                │┌┐ ──┐│     ---                             ');
WRITELN('                               ┌┤└┘ ─┼┘│                                     ');
WRITELN('                               └┤    ┼ │                                     ');
WRITELN('         ┌──┐         ┌┐        ├───┐  │                                     ');
WRITELN('        ┌┴──┴─────────┤│        └──┬─┬─┘                                     ');
WRITELN('       █│        ──┤  ││       ┌───┴─┴───┐                                   ');
WRITELN('        └─────┬┬┬┬┬┬┬─┴┘      ┌┼┬──┬──┐  │                                   ');
WRITELN('              └┬┼┼┼┼┴───┬─────┘│         │                                   ');
WRITELN('               ├├┼┼┼┬───┴─────┐│▀▀  ▀▀   │                                   ');
WRITELN('              ┌┴┴┴┴┼┘         └┼┴──┴──┘  │                                   ');
WRITELN('              └────┘           │         │                                   ');
WRITELN('                               │         │                                   ');
WRITELN('                               └┬───┬┬───┤                                   ');
WRITELN('                                │   ││   │                                   ');
WRITELN('                                │   ││   │                                   ');
WRITELN('                                │   ││   │                                   ');
WRITELN('                                │   ││   │                                   ');
WRITELN('                                │   ││   │                                   ');
WRITELN('                             ┌▄─┴───┤│   │                                   ');
WRITELN('                             │    ┌▄┴┴───┤                                   ');
WRITELN('                             └────┤      │                                   ');
WRITELN('                                  └──────┘                                   ');
WRITELN('                                                                             ');
WRITE(^g);
WRITE(^G);
WRITE(^G);
V:=READKEY;
 
TEXTCOLOR(BLACK);
TEXTBACKGROUND(BLUE);
CLRSCR;
WRITELN;
WRITELN('                                             DOG            ');
WRITELN('                                             ---            ');
GOTOXY(1,17);
WRITELN('                   █               ┌───────▄┐               ');
WRITELN('                   █               │ █  ┌┬┬┬┤               ');
WRITELN('                   █┌──────────────┤│  │└┴┴┴┤               ');
WRITELN('                    │              └┼──┼────┘               ');
WRITELN('                   █│               ├──┘                    ');
WRITELN('                    ├─┬┬─┬────┬─┬┬─┬┘                       ');
WRITELN('                    │ ││ │    │ ││ │                        ');
WRITELN('                    │ └┤ └┐   │ └┤ └┐                       ');
WRITELN('                    └──┴──┘   └──┴──┘                       ');
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
 
TEXTCOLOR(BLACK);
TEXTBACKGROUND(BLUE);
CLRSCR;
WRITELN('                                                               ');
WRITELN('                 ├┴┴┴┴┴┴┴┤                   SOLDIER           ');
WRITELN('                ┌┤┌┐   ┌┐├┐                  -------           ');
WRITELN('                └┤└┘ █ └┘├┘                                    ');
WRITELN('                 ├┬┬┬┬┬┬┬┤                                     ');
WRITELN('                 └┴┴┼┴┼┴┴┘                                     ');
WRITELN('     ┌─────┐    ┌───┴─┴───┐                                    ');
WRITELN('     │  ▄  ├────┤┌─┐   ┌─┐├───────┐                            ');
WRITELN('     │▄▀▄▀▄│    ││▀│   │▀││       │                            ');
WRITELN('     │ ▀▄▀ ├────┤└─┘   └─┘├────┐  │                            ');
WRITELN('     └─────┘    │         │    │  │                            ');
WRITELN('                │    ▄    │    └┬┬┘                            ');
WRITELN('                ├───┬─┬───┤     ││┌────┐                       ');
WRITELN('                │   │ │   │   ┌─┴┴┘    │                       ');
WRITELN('                │   │ │   │   └─┬┬─────┘                       ');
WRITELN('                │   │ │   │     └┘                             ');
WRITELN('                │   │ │   │                                    ');
WRITELN('               ┌┴───┴┬┴───┴┐                                   ');
WRITELN('               │ ▄─▄ │ ▄─▄ │                                   ');
WRITELN('               │ ▄─▄ │ ▄─▄ │                                   ');
WRITELN('               └─────┴─────┘                                   ');
WRITELN('                                                               ');
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
 
TEXTCOLOR(BLACK);
TEXTBACKGROUND(WHITE);
CLRSCR;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN(' ┌────────────────────────────────────────────────────────────────────────────┐');
WRITELN(' │                                                                            │');
WRITELN(' │                                                                            │');
WRITELN(' │                                ┌┴┐                                         │');
WRITELN(' │                               █│││█                                        │');
WRITELN(' │                                │ │                                         │');
WRITELN(' │                                │││                                         │');
WRITELN(' │                                │ │                                         │');
WRITELN(' │                                │││                                         │');
WRITELN(' │                                │ │                                         │');
WRITELN(' │                               █│││█                                        │');
WRITELN(' │                             ┌──┴─┴──┐                                      │');
WRITELN(' │                             ├┐  ▒▒  │                                      │');
WRITELN(' │                         █───┼│  ▒   │                                      │');
WRITELN(' │                             ├┘  ▒▒  │                                      │');
WRITELN(' ├───────────┬─────────────────┴───────┴──────────────────────┬───────────────┤');
WRITELN(' │   Ammo    │  ├┴┴┴┴┴┴┴┤          0-Motorova pila    0  5  W │    Health     │');
WRITELN(' │           │┌┬┤┌┐   ┌┐├┬┐        ┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐ 1  6  E │               │');
WRITELN(' │           │└┴┤└┘ █ └┘├┴o      ┌─┘ └┘ └┘ └┘ └┘ └┘ └ 2  7  A │               │');
WRITELN(' │    0      │  ├┬┬┬┬┬┬┬┤─┼─     └─┐  ▄             ▄ 3  8  P │               │');
WRITELN(' │           │  ├┼┼┼┼┼┼┼┤ │      ┌─┘                  4  9  O │      99       │');
WRITELN(' │           │  └┴┴┴┴┴┴┴┘        └─┐ ┌┐ ┌┐ ┌┐ ┌┐ ┌┐ ┌─      N │               │');
WRITELN(' └───────────┴─────────────────────┴─┴┴─┴┴─┴┴─┴┴─┴┴─┴─────────┴───────────────┘');
WRITE(^g);
WRITE(^g);
WRITE(^g);
V:=READKEY;
END.