The Agent - úvod do textovej adventúry
Delphi & Pascal (èeská wiki)
Kategórie: KMP (Programy mladých programátorù)
Autor: Radovan Baèík
Program: Agent.pas
Soubor exe: Agent.exe
Autor: Radovan BaèíkProgram: Agent.pas
Soubor 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.