The Agent - úvod do textovej adventúry

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)
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('                 ³³  ij³                                                    ');
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.