{ 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.