Future Shock

Delphi & Pascal (Ŕeskß wiki)
P°ejÝt na: navigace, hledßnÝ
Kategˇrie:
fshock.pngAutor: TomṠFerko
Program: Fshock.pas
Soubor exe: Fshock.exe

Future Shock. Sp˙sta nßpadov a slovnřch vřlevou. Presne tak ako sme u Tomß╣a zvyknutÝ.
{ FSHOCK.PAS                                                        }
{                                                                   }
{ Author: Tomas Ferko                                               }
{ Date  : 15.02.1997                           http://www.trsek.com }
 
Program Terminator;
Uses Crt;
Var n,l,s,o,h,m,e,q:integer;
v:char;
 
Procedure Menu;
begin;
 ClrScr;
 textcolor(white);
 Delay(100);
 Writeln('         ███████████████████       ╔════════════════════════╗');
 Writeln('        █-|-|-|-|-|-|-|-|-|-█      ║        MAIN MENU       ║');
 Writeln('       █-|-|-|-|-|-|-|-|-|-|-█     ║════════════════════════║');
 Writeln('      █    ----       ----    █    ║ B)egin                 ║');
 Writeln('     █     |  |       |  |     █   ║ L)oad game             ║');
 Writeln('    █      ----       ----      █  ║ S)ave game             ║');
 Writeln('    █             █             █  ║ O)ptions               ║');
 Writeln('     █            █            █   ║ H)igh Scores           ║');
 Writeln('      █                       █    ║ M)ultiplayer game      ║');
 Writeln('       █---------------------█     ║ T)itle                 ║');
 Writeln('        ██      ║ Q)uit                  ║');
 Writeln('         ██       ║                        ║');
 Writeln('          █---------------█        ║════════════════════════║');
 Writeln('          █████████████████        ║TERMINATOR:FUTURE SHOCK ║');
 Writeln('                                   ╚════════════════════════╝');
 Gotoxy(1,24);
 Writeln('Terminator:future shock PREVIEW Copyright 1996@ PRESS ANY KEY');
 V:=Readkey;
end;
 
Procedure Title;
Begin
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Textcolor(Red);
 Writeln('███████ █    █ ██████');
 Writeln('   █    █    █ █     ');
 Writeln('   █    ██████ ██████');
 Writeln('   █    █    █ █     ');
 Writeln('   █    █    █ ██████');
 Writeln;
 Writeln('███████ ██████ ██████ █   █ █ █   █ █████ ███████ ███████ █████');
 Writeln('   █    █      █    █ ██ ██ █ ██  █ █   █    █    █     █ █   █');
 Writeln('   █    ██████ ██████ █ █ █ █ █ █ █ █████    █    █     █ █████');
 Writeln('   █    █      █ █    █   █ █ █  ██ █   █    █    █     █ █ █  ');
 Writeln('   █    ██████ █  █   █   █ █ █   █ █   █    █    ███████ █  █ ');
 sound(700);Delay(500);
 sound(900);Delay(500);
 sound(200);Delay(500);
 sound(550);Delay(500);
 sound(800);Delay(500);
 sound(100);Delay(500);
 sound(900);Delay(500);
 sound(400);Delay(500);
 sound(150);Delay(500);
 sound(800);Delay(500);
 Nosound;
End;
 
Procedure Ter;
Begin
 Clrscr;
 Gotoxy(1,30);Writeln('Mission 1');
 Gotoxy(2,30);Writeln('BRIEFING');
 Writeln('Soldier!');
 Writeln('1)FIND THE WAY TO THE OUPOST');
 Writeln('2)DOWNLOAD DATA FROM THREE COMPUTERS');
 Writeln('3)PLACE A BOMB TO DESTROY THE OUPOST');
 Writeln('4)SAVE THE QUEEN OF ENGLAND AND PRINCESS DIANA');
 Writeln('5)ESCAPE FROM THE SEWER');
 v:=readkey;
 Clrscr;
 Writeln('SORRY THIS ONLY A DEMO.....');
 Delay(500);
 V:=Readkey;
 
 Clrscr;
 Writeln(' ██    ██████  ██    █  █ █████████');
 Delay(100);
 Writeln(' █ █   █    █  █ █   █  █     █');
 Delay(100);
 Writeln(' █  █  █    █  █  █  █        █');
 Delay(100);
 Writeln(' █ █   █    █  █   █ █        █');
 Delay(100);
 Writeln(' ██    ██████  █    ██        █');
 Delay(100);
 Writeln;
 Delay(100);
 Writeln('██████ ███████ ██████ ██████ ██████ ███████');
 Delay(100);
 Writeln('█      █     █ █    █ █      █         █');
 Delay(100);
 Writeln('██████ █     █ ██████ █ ████ ██████    █');
 Delay(100);
 Writeln('█      █     █ █ █    █    █ █         █');
 Delay(100);
 Writeln('█      ███████ █  █   ██████ ██████    █');
 Delay(100);
 Writeln;
 Delay(100);
 Writeln('███████ ██████');
 Delay(100);
 Writeln('   █    █    █');
 Delay(100);
 Writeln('   █    █    █');
 Delay(100);
 Writeln('   █    ██████');
 Delay(100);
 Writeln('');
 Delay(100);
 Writeln('██████ ███████ ██████ █ ██████ █████ ██████ ██████');
 Delay(100);
 Writeln('█    █ █       █      █ █        █   █      █    █');
 Delay(100);
 Writeln('██████ ███████ █ ████ █ ██████   █   ██████ ██████');
 Delay(100);
 Writeln('█ █    █       █    █ █      █   █   █      █ █   ');
 Delay(100);
 Writeln('█  █   ███████ ██████ █ ██████   █   ██████ █  █  ');
 Delay(600);
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Writeln('   ███████████████  ████████████');
 Writeln('   ███████████████  ████████████');
 Writeln('   ██           ██  ██        ██');
 Writeln('   ██           ██  ██        ██');
 Writeln('   ██           ██  ████████████');
 Writeln('   ██           ██  ████████████');
 Writeln('   ██           ██  ██  ██      ');
 Writeln('   ███████████████  ██   ██       ███  ███  ███');
 Writeln('   ███████████████  ██    ██      ███  ███  ███');
 Delay(500);
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 clrscr;
 Textcolor(red);
 Writeln('                ███████     █      ███████');
 Writeln('                █     █     █      █     █');
 Writeln('                ███████     █      ███████');
 Writeln('                █ █         █      █      ');
 Writeln('                █  █        █      █      ');
 Writeln('                █   █   ██  █  ██  █       ██');
 Writeln('');
 Writeln('                    █ ██ █████ ██████████');
 Writeln('                  ████████████████████████');
 Writeln('                  ███████████████████████');
 Writeln('                  ██████████████████████');
 Writeln('                  ████ ██████████████ █');
 Writeln('                   ████████████████ █');
 Writeln('                   █ ██████████ █');
 Writeln('                    ██████ █ █');
 Writeln('                      █');
 V:=readkey;
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 clrscr;
 Textcolor(yellow);
 Writeln('█████████  ████████  ██      ██  █████████');
 Writeln('█          █      █  █ █    █ █  █        ');
 Writeln('█          █      █  █  █  █  █  █        ');
 Writeln('█  ██████  ████████  █   ██   █  █████████');
 Writeln('█       █  █      █  █        █  █        ');
 Writeln('█       █  █      █  █        █  █        ');
 Writeln('█████████  █      █  █        █  █████████');
 Writeln;
 Writeln('████████  █           █  ████████  ████████');
 Writeln('█      █   █         █   █         █      █');
 Writeln('█      █    █       █    █         █      █');
 Writeln('█      █     █     █     ████████  ████████');
 Writeln('█      █      █   █      █         █ █     ');
 Writeln('█      █       █ █       █         █  █    ');
 Writeln('████████        █        ████████  █   █   ');
 V:=readkey;
 ClrScr;
 Writeln('Wisit our WEBSIDE http:\www.prog.com');
 Writeln('Or write to us a E-Mail Shaker@sk');
 Delay(500);
end;
 
Begin
 Textbackground(black);
 ClrScr;
 Textcolor(White);
 Gotoxy(30,10);
 Writeln('Tomas Ferko Pressent');
 Gotoxy(30,11);
 Writeln('A Modified game by:');
 sound( 50);Delay(500);
 sound(100);Delay(500);
 sound(150);Delay(500);
 sound(200);Delay(500);
 sound(250);Delay(500);
 Nosound;
 Delay(2000);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 ClrScr;
 Textcolor(lightred);
 Gotoxy(10,5);
 Writeln('██████  ██████ ███████ █    █ ███████ ████████ ███   ██████');
 Gotoxy(10,6);
 Writeln('█    █  █         █    █    █ █       █        █  █  █    █');
 Gotoxy(10,7);
 Writeln('███████ ██████    █    ██████ ███████ ████████ █   █ ██████');
 Gotoxy(10,8);
 Writeln('█     █ █         █    █    █ █              █ █  █  █    █');
 Gotoxy(10,9);
 Writeln('███████ ██████    █    █    █ ███████ ████████ ███   █    █');
 Gotoxy(10,10);
 Writeln('');
 Gotoxy(10,11);
 Writeln('███████ ██████ █████ ███████ █   █   █ ██████ ███████ █  █ ███████');
 Gotoxy(10,12);
 Writeln('█       █    █ █        █    █   █   █ █    █ █     █ █ █  █      ');
 Gotoxy(10,13);
 Writeln('███████ █    █ █████    █    █   █   █ █    █ ███████ ██   ███████');
 Gotoxy(10,14);
 Writeln('      █ █    █ █        █    █   █   █ █    █ █ █     █ █        █');
 Gotoxy(10,15);
 Writeln('███████ ██████ █        █    █████████ ██████ █  █    █  █ ███████');
 
 sound(600);Delay(500);
 sound(700);Delay(500);
 sound(400);Delay(500);
 sound(250);Delay(500);
 sound(500);Delay(500);
 Nosound;
 
 ClrScr;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 Delay(100);
 Textbackground(black);
 Title;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Textcolor(green);
 Delay(100);
 Writeln('██████████ ██     ██ ██████████ ██     ██ █████████  ██████████');
 Writeln('██████████ ██     ██ ██████████ ██     ██ █████████  ██████████');
 Writeln('██         ██     ██     ██     ██     ██ ██     ██  ██        ');
 Writeln('██████████ ██     ██     ██     ██     ██ ██     ██  ██████████');
 Writeln('██████████ ██     ██     ██     ██     ██ █████████  ██████████');
 Writeln('██         █████████     ██     █████████ █████████  ██        ');
 Writeln('██         █████████     ██     █████████ ██ ██      ██████████');
 Writeln('██         █████████     ██     █████████ ██  ██     ██████████');
 Writeln('');
 Writeln('█████████████ ██        ██ ████████████ ███████████ ██    ██');
 Writeln('█████████████ ██        ██ ████████████ ███████████ ██   ██  ');
 Writeln('██            ██        ██ ██        ██ ██          ██  ██   ');
 Writeln('██            ██        ██ ██        ██ ██          ██ ██    ');
 Writeln('█████████████ ████████████ ██        ██ ██          ████     ');
 Writeln('█████████████ ████████████ ██        ██ ██          ████     ');
 Writeln('           ██ ██        ██ ██        ██ ██          ██ ██    ');
 Writeln('           ██ ██        ██ ██        ██ ██          ██  ██   ');
 Writeln('█████████████ ██        ██ ████████████ ███████████ ██   ██  ');
 Writeln('█████████████ ██        ██ ████████████ ███████████ ██    ██ ');
 
 sound( 50);Delay(500);
 sound( 60);Delay(500);
 sound( 70);Delay(500);
 sound( 80);Delay(500);
 sound( 90);Delay(500);
 sound(100);Delay(500);
 sound(110);Delay(500);
 sound(120);Delay(500);
 sound(130);Delay(500);
 sound(140);Delay(500);
 sound(150);Delay(500);
 sound(160);Delay(500);
 sound(170);Delay(500);
 sound(180);Delay(500);
 sound(190);Delay(500);
 Nosound;
 
 clrscr;
 Textcolor(white);
 textbackground(black);
 Gotoxy(1, 5);Writeln('            ████████████    Los Angeles');
 Gotoxy(1, 6);Writeln('          ██   █     █ █       1996');
 Gotoxy(1, 7);Writeln('         █     █     █ █  ');
 Gotoxy(1, 8);Writeln('         █████████████ █  ');
 Gotoxy(1, 9);Writeln('         █           █ █                            ███████████');
 Gotoxy(1,10);Writeln('         █           █ █                          ██       ████');
 Gotoxy(1,11);Writeln('         █           █ █                         █         █  █');
 Gotoxy(1,12);Writeln('         █           █ █         ██████████      ███████████  █');
 Gotoxy(1,13);Writeln('         █           █ █       ██       █ █      █         █  █');
 Gotoxy(1,14);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,15);Writeln('         █           █ █      ███████████ █      █         █  █');
 Gotoxy(1,16);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,17);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,18);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,19);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,20);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,21);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,22);Writeln('         █           █ █      █         █ █      █         █  █');
 Gotoxy(1,23);Writeln('         █           █ █      █         ███      █         █  █');
 Gotoxy(1,24);Writeln('██████████           ██████████         ██████████         ███████████████████');
 delay(1000);
 
 sound(50);Delay(500);
 sound(100);Delay(500);
 sound(150);Delay(500);
 sound(200);Delay(500);
 sound(250);Delay(500);
 Nosound;
 
 Clrscr;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Gotoxy(1,3);
 Writeln('');
 Gotoxy(1, 4);Writeln('        LOS ANGELES,2015:THE WAR AGANIST HUMANITY HAS RAGED');
 Gotoxy(1, 5);Writeln('        FOR 20 YEARS.YOU ARE SURVIVOR OF THE NUCLEAR WAR,');
 Gotoxy(1, 6);Writeln('        LIVING IN THE YEARS OF DARKNESS THAT FOLLOWED.');
 Gotoxy(1, 9);Writeln('        YOU HAVE ONLY ONE CHOICE:HELP JOHN CONNOR');
 Gotoxy(1,10);Writeln('        PULL TOGEDDER THE LAST REMNANTS OF THE HUMAN RACE');
 Gotoxy(1,11);Writeln('        TO RESSIST THE ROBOT MENACE.CAN YOU ACT DECISIVELY');
 Gotoxy(1,12);Writeln('        BEFORE ITS TOO LATE?');
 Gotoxy(1,18);Writeln('           █████████');
 Gotoxy(1,19);Writeln('          █         █                               ██             █');
 Gotoxy(1,20);Writeln('         █        ██       ███████          ██     █  █           █ █');
 Gotoxy(1,21);Writeln('        █          █      █ █ █  █      █ ██   █ █    █         ██   █');
 Gotoxy(1,22);Writeln('       █         █  █    █       █     █        █      ██ █    █     █');
 Gotoxy(1,23);Writeln('      █        █  █     █         █    ████████ █ █ █ █ █ █  ██       █');
 Gotoxy(1,24);Writeln('█████████████████████████████████████████████████████████████████████████████');
 
 sound(400);Delay(500);
 sound(300);Delay(500);
 sound(200);Delay(500);
 sound(100);Delay(500);
 sound(100);Delay(500);
 sound(200);Delay(500);
 sound(300);Delay(500);
 sound(400);Delay(500);
 sound(400);Delay(500);
 sound(300);Delay(500);
 sound(200);Delay(500);
 sound(100);Delay(500);
 sound(100);Delay(500);
 sound(200);Delay(500);
 sound(300);Delay(500);
 sound(400);Delay(500);
 Nosound;
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 
 repeat
  Menu;
  If v='b'then Begin
    Clrscr;
    Gotoxy(30, 5);Writeln('Select Difficulty:');
    Gotoxy(30, 6);Writeln('1) I M YOUNG TO DIE');
    Gotoxy(30, 7);Writeln('2) HEY NOT TOO ROUGHT');
    Gotoxy(30, 8);Writeln('3) HURT ME PLENTY');
    Gotoxy(30, 9);Writeln('4) ULTRA VIOLENCE');
    Gotoxy(30,10);Writeln('5) NIGHTMARE');
    V:=readkey;
    Ter;
   End;
 
 If (v='l') or (v='s') then begin
    ClrScr;
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    Writeln('╔════════════════════════════════════════════════════════════════════════════╗');
    Writeln('║                               <EMPTY SLOT>                                 ║');
    Writeln('╚════════════════════════════════════════════════════════════════════════════╝');
    V:=readkey;
   end;
 
 If v='o' then Begin
    Clrscr;
    Writeln('DO HARDWARE TESTS?(Y\N)');
    v:=readkey;
    If v='y' then Begin
       Writeln('Graphick Test(PLEASE WAIT)');
       Delay(500);
       Repeat
        ClrScr;
        Delay(100);
        Textbackground(white);
        Highvideo;
        ClrScr;
        Delay(100);
        Textbackground(black);
        ClrScr;
        Delay(100);
       until (keypressed);
 
       Writeln('Sound Test(PLEASE WAIT)');
       Delay(500);
       Repeat
        Sound(1000);
       until (keypressed);
       Nosound;
 
       Clrscr;
       Writeln('HDD Test(PLEASE WAIT)');
       Delay(1000);
       Writeln('No HDD DETECTED');
       v:=readkey;
      End;
     End;
 
 If v='n' then Begin
    ClrScr;
    Writeln('AS YOU WANT');
    V:=readkey;
   End;
 
 If v='h' then Begin
    Clrscr;
    Writeln('TOMAS...........................................................999999999999');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    v:=readkey;
   end;
 
 If v='m' then Begin
    ClrScr;
    Writeln('M)odem game');
    Writeln('I)PX network');
    Writeln('S)erial link');
    v:=readkey;
 
    If v='m' then Begin
       Clrscr;
       Gotoxy(25, 5);Writeln('╔═════════MODEM═════════╗');
       Gotoxy(25, 6);Writeln('║                       ║');
       Gotoxy(25, 7);Writeln('║                       ║');
       Gotoxy(25, 8);Writeln('║   CONNECTING MODEM    ║');
       Gotoxy(25, 9);Writeln('║                       ║');
       Gotoxy(25,10);Writeln('║                       ║');
       Gotoxy(25,11);Writeln('║                       ║');
       Gotoxy(25,12);Writeln('╚═══════════════════════╝');
       Delay(1000);
       ClrScr;
       Gotoxy(25, 5);Writeln('╔═════════MODEM═════════╗');
       Gotoxy(25, 6);Writeln('║                       ║');
       Gotoxy(25, 7);Writeln('║                       ║');
       Gotoxy(25, 8);Writeln('║       MODEM NOT       ║');
       Gotoxy(25, 9);Writeln('║         FOUND         ║');
       Gotoxy(25,10);Writeln('║                       ║');
       Gotoxy(25,11);Writeln('║                       ║');
       Gotoxy(25,12);Writeln('╚═══════════════════════╝');
       v:=readkey;
      end;
 
    If v='i' then Begin
       ClrScr;
       Gotoxy(25, 5);Writeln('╔══════════IPX══════════╗');
       Gotoxy(25, 6);Writeln('║                       ║');
       Gotoxy(25, 7);Writeln('║                       ║');
       Gotoxy(25, 8);Writeln('║  CONNECTING NETWORK   ║');
       Gotoxy(25, 9);Writeln('║                       ║');
       Gotoxy(25,10);Writeln('║                       ║');
       Gotoxy(25,11);Writeln('║                       ║');
       Gotoxy(25,12);Writeln('╚═══════════════════════╝');
       delay(1000);
       Clrscr;
       Gotoxy(25, 5);Writeln('╔══════════IPX══════════╗');
       Gotoxy(25, 6);Writeln('║                       ║');
       Gotoxy(25, 7);Writeln('║                       ║');
       Gotoxy(25, 8);Writeln('║      IPX NETWORK      ║');
       Gotoxy(25, 9);Writeln('║          NOT          ║');
       Gotoxy(25,10);Writeln('║         FOUND         ║');
       Gotoxy(25,11);Writeln('║                       ║');
       Gotoxy(25,12);Writeln('╚═══════════════════════╝');
       v:=readkey;
      End;
 
 If v='s' then Begin
    Clrscr;
    Gotoxy(25, 5);Writeln('╔══════════LINK═════════╗');
    Gotoxy(25, 6);Writeln('║                       ║');
    Gotoxy(25, 7);Writeln('║                       ║');
    Gotoxy(25, 8);Writeln('║   CONNECTING SERIAL   ║');
    Gotoxy(25, 9);Writeln('║         LINK          ║');
    Gotoxy(25,10);Writeln('║                       ║');
    Gotoxy(25,11);Writeln('║                       ║');
    Gotoxy(25,12);Writeln('╚═══════════════════════╝');
    delay(1000);
    ClrScr;
    Gotoxy(25, 5);Writeln('╔══════════LINK═════════╗');
    Gotoxy(25, 6);Writeln('║                       ║');
    Gotoxy(25, 7);Writeln('║                       ║');
    Gotoxy(25, 8);Writeln('║    NO SERIAL LINK     ║');
    Gotoxy(25, 9);Writeln('║         FOUND         ║');
    Gotoxy(25,10);Writeln('║                       ║');
    Gotoxy(25,11);Writeln('║                       ║');
    Gotoxy(25,12);Writeln('╚═══════════════════════╝');
    v:=readkey;
   End;
  End;
 
  If v='t' then Title;
 until ((v=#27) or (v='q'));
end.