Hra - nieèo ako krí¾enec DOOMa a Diggera

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategorija: KMP (Programy mladòakoch
x-files.pngZrobil: Alexej Ostrouchov
Program: X-file_r.pas
Subor exe: X-file_r.exe
Mu¹i¹ mac: X-files.pas

Hra - nieèo ako krí¾enec DOOMa a Diggera. Celá urobená v textovom re¾ime s dobrými a vtipnými nápadmi.
{ X-FILES.PAS                                                       }
{ Author: Alexej Ostrouchov                                         }
{ Date  : 15.02.1997                           http://www.trsek.com }
 
uses crt,dos;
var  x,y,score,energy,i,xstrasidlo,strasidlo,kopia,key:integer;
     ch:char;
     f:text;
     s:string;
     Label 1;
     Label 2;
 
Procedure GameOver;
 Begin
  Clrscr;
   TextColor(4);
Gotoxy(1,10);Write('  ÛÛÜÜÛÛ                                   ÜßßÛÛßÜ                           ');
Gotoxy(1,11);Write(' Ûß  Ûß Û                                 ÛÛ  ß  ÛÛ                          ');
Gotoxy(1,12);Write('ÛÛÜ  ß  ß    ÜÛÛÜÛ      ÛÛ   ÛÛ  ÛßßßÛ   Û ß     ß Û Û      Û  ÛßßßÛ  ÛßßÛÛ  ');
Gotoxy(1,13);Write(' ÛÛß  ÜÜÜ   Ûß Ûß Û    ÛÛ ÛÜÛ Û Ûß       ßÛ       Ûß ßÛ    Ûß Ûß      Û    Û ');
Gotoxy(1,14);Write('Ü ÛÛ    Û  ß Û     Û    Û  Û  Û  Ûßß      ÛÛ     ÛÛ  ß Û  Û    Ûßß    ÛßÛÛÛ  ');
Gotoxy(1,15);Write(' ß ÛÜÜÛßÛ ß ß  ßÛÛß ßß            ÛÛßß      ÛÛßßÛ Û     ÛÛ      ÛÛßß  Û ß  Û ');
 Repeat Until KeyPressed;
 End;
 
 
Procedure Blood;
 Begin
      TextColor(1);
     Gotoxy(38,21);Write('Û');
     Gotoxy(42,21);Write('Û');
 
 End;
 
Procedure EnergyDPic1;
 Begin
 
  TextColor(2);
   Gotoxy(35,20);Write('  ÜÜÜÜÜÜÜ');
   Gotoxy(35,21);Write(' ÛÛÛÛÛÛÛÛÛ');
   Gotoxy(35,22);Write(' ÛÛÛÛ ÛÛÛÛ');
   Gotoxy(35,23);Write(' ÛÛÛÛÛÛÛÛÛ');
   Gotoxy(35,24);Write(' ÛÛ     ÛÛ');
   Gotoxy(35,25);Write('  ßßßßßßß');
   Blood;
 
 End;
 
Procedure EnergyDPic2;
  Begin
 
   EnergyDPic1;
    TextColor(4);
     Gotoxy(40,25);Write('ßÛß');
  End;
 
Procedure EnergyDPic3;
 Begin
 
  EnergyDPic2;
   TextColor(4);
    Gotoxy(40,22);Write('ÜÛ');
    Gotoxy(40,23);Write('Û');
 
 End;
 
Procedure EnergyDPic4;
 Begin
 
  EnergyDPic3;
   TextColor(4);
    Gotoxy(39,23);Write('Û');
    Gotoxy(39,24);Write('ß');
    Gotoxy(38,25);Write('ÛÛ');
 
 End;
 
Procedure EnergyDPic5;
 Begin
 
  EnergyDPic4;
   TextColor(4);
    Gotoxy(37,24);Write('Û');
    Gotoxy(37,22);Write('ÛÛ');
    Gotoxy(37,23);Write('Û');
    Gotoxy(42,23);Write('ÛÛ');
    Gotoxy(43,24);Write('Û');
 
 End;
 
Procedure Pich;
 Begin
  Write(chr(30));Write(chr(30));
 End;
 
Procedure PDPic1;
 Begin
 TextColor(2);
  Gotoxy(10,10);Write('ÜÜÜÛÛßÛ');
  Gotoxy(10,11);Write('     ÛÛÛÛ');
  Gotoxy(10,12);Write('    ÛÛÛÛÛÛ');
  Gotoxy(10,13);Write('     ÛÛÛÛÛ');
  Gotoxy(10,14);Write('ßßßßßßÛÛÛÛÛÛ');
 TextColor(7);
  Gotoxy(10,11);Write('');
  Gotoxy(10,13);Pich;Pich;Write(chr(30));
 End;
 
Procedure Ns;
 Begin
  Nosound;
 End;
 
Procedure PDPic2;
 Begin
  TextColor(2);
  Gotoxy(10,10);Write('ÜÜÜÛÛßÛ');
  Gotoxy(10,11);Write('     ÛÛÛÛ');
  Gotoxy(10,12);Write('     ÛÛÛÛÛÛ');
  Gotoxy(10,13);Write('ßßßßßÛÛÛÛÛ');
  Gotoxy(10,14);Write('      ÛÛÛÛÛ');
 TextColor(4);
  Gotoxy(10,11);Write('');
  Gotoxy(10,12);Write('');
 End;
 
Procedure PriseraDeath;
 Begin
  Clrscr;
  PDPic1;Delay(600);
  Sound(30);Delay(100);Ns;
  PDPic2;Delay(500);
  PDPic1;
   TextColor(4);
  Gotoxy(10,11);Write('');
  Gotoxy(10,13);Write('');
  Gotoxy(12,12);Write(' ');
   Delay(1000);
    PDPic1;
    TextColor(4);
  Gotoxy(10,11);Write('');
  Gotoxy(10,12);Write('     ');
  Gotoxy(10,13);Write('');
  Gotoxy(12,12);Write(' ');
   Delay(400);
   Delay(3000);
   GameOver;
 
 End;
 
Procedure Door;
 Begin
  TextColor(3);
  Gotoxy(20,13);Write('²²²²²²²²²²²²');
  Gotoxy(20,14);Write('²²²²²²²²²²²²');
  Gotoxy(20,15);Write('²²²²²²²²²²²²');
  Gotoxy(20,16);Write('²²²²²²²²²²²²');
  Gotoxy(20,17);Write('²²²²²²²²²²²²');
  Gotoxy(20,18);Write('²²²²²²²²²²²²');
  Gotoxy(20,19);Write('²²²²²²²²²²²²');
End;
 
Procedure DoorDeath;
 Begin
  Clrscr;
    Door;
     TextColor(2);
     Gotoxy(9,14);Write(' ÜÜÜÜÜÜÜ');
     Gotoxy(9,15);Write('ÛÛÛÛÛÛÛÛÛ');
     Gotoxy(9,16);Write('ÛÛÛÛ ÛÛÛÛ');
     Gotoxy(9,17);Write('ÛÛÛÛÛÛÛÛÛ');
     Gotoxy(9,18);Write('ÛÛ     ÛÛ');
     Gotoxy(9,19);Write(' ßßßßßßß');
        TextColor(1);
       Gotoxy(11,15);Write('Û');
       Gotoxy(15,15);Write('Û');
        Delay(800);
        TextColor(14);
         Gotoxy(1,16);Write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 
    repeat until keypressed;
  End;
 
  Procedure Liv;
 Begin
  Write(chr(4));
  Sound(90);Delay(200);Nosound;
 End;
 
Procedure En;
 Begin
  TextColor(4);
   Write(chr(4));
 End;
 
 
 
Procedure Zac;
 Begin
  TextColor(1);
   Gotoxy(25,10);Write(chr(65));Write(' ');Write(chr(71));Write(chr(65));Write(chr(77));
   Gotoxy(30,10);Write(chr(69));Write(' ');Write(chr(66));Write(chr(89));
   Gotoxy(17,12 );Write(chr(65));Write(chr(76));Write(chr(69));Write(chr(88));Write(chr(69));Write(chr(74));
   Gotoxy(29,12);Write(chr(79));Write(chr(83));Write(chr(84));Write(chr(82));Write(chr(79));Write(chr(85));
   Gotoxy(35,12);Write(chr(67));Write(chr(72));Write(chr(79));Write(chr(86));
 
End;
Procedure Demo;
 Begin
   TextColor(4);
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('');
    Writeln('                    ÛßÜÜÛßÛÛ       Ü ÜÛÛßÜÜ      ßÛÛÜß    ');
    Writeln('                    Ûß  ß ß         Ûß ß        ßÛ  Û Û   ');
    Writeln('                    ÛßÛÛß           ÛÛßÜÛß      ÜÛÛ    ß   ');
    Writeln('                    ÛÛ            Û     ÛÜ      ß Û       ');
    Writeln('                    ÛÛßßÜÛßÛÜ     ÜßßÛßÛ ß       ÛßßÜÛß   ');
    Writeln('                     ß    ß                          Û    ');
TextColor(1);
    Writeln('                             Software present');
 End;
 
Procedure Demo2;
 Begin
  TextColor(4);
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('');
   Writeln('                                                            ');
   Writeln('        ÛÜ       ÜÛ                                           ');
   Writeln('        ß Û     ßÛ          ÛßÜÜÛßÛ    Û                      ');
   Writeln('         ÛßÜ   ÛßÛ          ÛÜ  ß      Û    ÛßÜÜÛ      ÛÛÜÜ   ');
   Writeln('          ßÛÛÜß Ü    ßßß   ß ÛÛÜÜ   Û  Û     Ûß  ß    Û    ß  ');
   Writeln('          Ûß  ÛÜ             Û   ß  Û  Û      Ûß     Ü ßßÛÜ   ');
   Writeln('         Ûß    ßÛ            Ûß     Û  ßßßß  ß ÛÜÛÜ  ßÛÜÜÛ    ');
   Writeln('        Û                                                     ');
  End;
 
Procedure We;
 Begin
      TextColor(2);
   Gotoxy(23,19);Write(' ÜÜÜÜÜÜÜ');
   Gotoxy(23,20);Write('ÛÛÛÛÛÛÛÛÛ');
   Gotoxy(23,21);Write('ÛÛÛÛ ÛÛÛÛ');
   Gotoxy(23,22);Write('ÛÛÛÛÛÛÛÛÛ');
   Gotoxy(23,23);Write('ÛÛ     ÛÛ');
   Gotoxy(23,24);Write(' ßßßßßßß');
   TextColor(1);
   Gotoxy(25,20);Write('Û');
   Gotoxy(29,20);Write('Û');
 End;
 
Procedure DeathTeh;
 Begin
  Clrscr;
   TextColor(15);
    Gotoxy(20,10);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,11);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,12);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,13);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,14);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,15);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    Gotoxy(20,16);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    We;
     Delay(300);
     Clrscr;
      TextColor(15);
      Gotoxy(20,12);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,13);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,14);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,15);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,16);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,17);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      Gotoxy(20,18);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
       Delay(200);
       Clrscr;
        TextColor(15);
         Gotoxy(20,15);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,16);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,17);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,18);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,19);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,20);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
         Gotoxy(20,21);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
             TextColor(4);
Gotoxy(12,20);Write('ßÛÜ    ');
Gotoxy(12,21);Write('Û  ß  ß');
Gotoxy(12,22);Write('  Û ßß ');
 
Gotoxy(36,20);Write('ÛÜ');
Gotoxy(36,21);Write('  Ü ß');
Gotoxy(36,22);Write('Û   Ûß');
TextColor(2);
             Gotoxy(23,22);Write('ÛÛÛÛÛÛÛÛÛ');
             Gotoxy(23,23);Write('ÛÛ     ÛÛ');
             Gotoxy(23,24);Write(' ßßßßßßß');
 
         Sound(40);Delay(200);ns;
         Delay(500);
         Clrscr;
 
       TextColor(15);
        Gotoxy(20,16);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,17);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,18);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,19);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,20);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,21);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,22);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
             TextColor(4);
Gotoxy(12,21);Write(' Ü    ');
Gotoxy(12,22);Write(' Ü ß  ß');
Gotoxy(12,23);Write('Û  Û ßß ');
 
Gotoxy(36,21);Write('ÜÛ ');
Gotoxy(36,22);Write('  Û ß');
Gotoxy(36,23);Write('Û   ßß');
TextColor(2);
             Gotoxy(23,24);Write(' ßßßßßßß');
 
            Delay(700);
         Clrscr;
 
       TextColor(15);
        Gotoxy(20,18);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,19);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,20);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,21);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,22);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,23);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
        Gotoxy(20,24);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
             TextColor(4);
Gotoxy(12,21);Write(' Ü   ß');
Gotoxy(12,23);Write('ÛÛÜÛÜ ß ');
 
Gotoxy(36,22);Write('  Û Ü');
Gotoxy(36,24);Write('ÛÜÜÜÜÜ  ßß');
 
 Delay(700);
Gotoxy(12,23);Write('ÛÛÜÛÜ Ü ');
 
Gotoxy(36,24);Write('ÛÜÜÜÛÜ  ÜÜ');
GameOver;
 
  End;
 
Procedure PichD;
 Begin
  TextColor (4);
   y:=y+1;
    Sound(20);Delay(200);Nosound;
   Repeat
     Gotoxy(x,y);Write(chr(2));
   Until KeyPressed;
  End;
 
Procedure SoundD;
 Begin
  Sound(20);  Delay(500);Ns;Delay(100);
  Sound(200); Delay(500);Ns;Delay(100);
  Sound(300); Delay(500);Ns;Delay(100);
  Sound(20);  Delay(500);Ns;Delay(100);
  Sound(300); Delay(500);Ns;Delay(100);
  Sound(300); Delay(500);Ns;Delay(100);
  Sound(20);  Delay(500);Ns;Delay(100);
  Sound(300); Delay(500);Ns;Delay(100);
 End;
 
 
Procedure Her;
 Begin
  TextColor(14);
   Write(chr(3));
 End;
 
Procedure El;
 Begin
  TextColor(14+Blink);
  Write('Û');
 End;
 
Procedure Elev;
 Begin
  TextColor(6);
   Write(chr(18));
 End;
 
Procedure Med;
 Begin
  Write('  ');
 End;
 
Procedure Prep;
 Begin
  Clrscr;
   For i:=1 to 20 do Writeln(chr(2));
 End;
 
Procedure C;
 Begin
  TextColor(1);
   Write('Û');
 End;
 
 BEGIN  { Zaciatok Programu }
 
 Clrscr;
  TextColor(14);
  Writeln('1. Starts sound on');
  Writeln('2. Starts sound off');
  Writeln('3. Nostart');
  readln(s);
 
   If (s='3') Then Goto 1;
   If (s='1') Then Begin
     Clrscr;
     Demo;
     SoundD;
     Clrscr;
     Demo2;
     SoundD;
     Clrscr;
     Zac;
     SoundD;
      Goto 1;
    End;
 
   If (s='2') Then Begin
    Clrscr;
    Demo;
    Delay(2000);
    Clrscr;
    Demo2;
    Delay(2000);
    Goto 1;
   End;
 
1: ClrScr;
 
 
   EnergyDPic1;
 
   TextBackGround(0);
   TextColor(14);
   Gotoxy(15,23);Write('HEARDS');
                                          { Hearts print }
    Gotoxy(18,3);Her;Her;
    Gotoxy(30,5);Her;Her;
 
                                { Heards print end }
                      { Cesty Print }
      TextColor(1);
       Gotoxy(1,4);Write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ');
       Gotoxy(27,6);C;C;C;C;C;
       Gotoxy(40,7);C;C;C;C;C;C;C;
       Gotoxy(40,6);C;
       Gotoxy(44,8);C;
       Gotoxy(30,9);C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;
       Gotoxy(10,8);C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;C;
 
                      { Cesty Print End }
                      { Pichlace Print }
      TextColor(7);
       Gotoxy(4,4);Write(chr(30));Write(chr(30));
 
       Gotoxy(37,4);Pich;Pich;
 
       TextColor(7);
       Gotoxy(31,8);Write('');
 
                      { Pichlace Print end }
 
  strasidlo:=1;
  score:=0; energy:=100;
   x:=2; y:=3;
   key:=0;
 
  REPEAT
 
 
 
   ch:=readkey;
    TextColor(3);
     Gotoxy(28,24);Write(energy,'% ');
    TextColor(14);
     Gotoxy(27,23);Write('ENERGY');
                                     { Keys }
 
 
 
 
 
                                    { Srasidlo  Function }
    {1}
      If strasidlo = 1 Then Begin
 
             TextColor(2);
       Xstrasidlo:=Random(8);Gotoxy(32,8);Write('           ');
       Gotoxy(xstrasidlo+32,8);Write(chr(12));
 
              End;
 
       If strasidlo = 0 Then Begin
 
               TextColor(2);
       Xstrasidlo:=Random(8);Gotoxy(32,8);Write('           ');
        Gotoxy(xstrasidlo+32,8);Write(' ');
 
         End;
 
If (strasidlo = 1) and (y=8) and (x>=32) and (x<=37) Then
   Begin
    PriseraDeath;
    Delay(200);
    GameOver;
    Goto 1;
 End;
 
     If (strasidlo = 0) and (y=8) and (x=32) or (y=8) and (x=38) Then Begin
       TextColor(0);Gotoxy(74,1);Write('d');
      End;
 
 
 
                                { Strasidlo  Function end }
 
      TextColor(3);
      Gotoxy(20,7);Write('²');
 
       If (key = 0) and (y=7) and (x=20) Then x:=x+1;
       If (key = 0) and (y=7) and (x<19) and (x>17) Then DoorDeath;
 
 
                               { Strasidlo Death }
 
 
 
        If (energy > 80) and (energy < 101) Then EnergyDPic1;
        If (energy > 60) and (energy < 80)  Then EnergyDPic2;
        If (energy > 40) and (energy < 60)  Then EnergyDPic3;
        If (energy > 20) and (energy < 40)  Then EnergyDPic4;
        If (energy > 1 ) and (energy < 20)  Then EnergyDPic5;
 
                                           { Tlacitko }
      TextColor(1);
       Gotoxy(25,3);Write('_');
       If (y=3) and (x=25) Then Begin
        DeathTeh;
        Goto 1;
      End;
 
        TextColor(1);
         Gotoxy(36,3);Write('_');
          If (y=3) and (x=36) Then strasidlo:= 0;
 
                           { Strasidlo }
 
 
                            { Strasidlo end }
                                            { Tlacitko End }
 
        TextColor(1);
         Gotoxy(36,3);Write('_');
          If (y=3) and (x=36) Then strasidlo:= 0;
 
                           { Strasidlo }
 
 
                            { Strasidlo end }
                                            { Tlacitko End }
   If energy < 0 Then Begin
 
    ClrScr;
      TextColor(2);
       Gotoxy(23,10);Write(' ÜÜÜÜÜÜÜ');
       Gotoxy(23,11);Write('ÛÛÛÛÛÛÛÛÛ');
       Gotoxy(23,12);Write('ÛÛÛÛ ÛÛÛÛ');
       Gotoxy(23,13);Write('ÛÛÛÛÛÛÛÛÛ');
       Gotoxy(23,14);Write('ÛÛ     ÛÛ');
       Gotoxy(23,15);Write(' ßßßßßßß');
       TextColor(1);
        Gotoxy(25,11);Write('Û');
        Gotoxy(29,11);Write('Û');
        Delay(800);
        Clrscr;
      TextColor(4);
       Gotoxy(20,10);Write('Û  /ÄÄÄÄÄÄÄÄ\');
       Gotoxy(20,11);Write('Ü Û³       ÛÛ');
       Gotoxy(20,12);Write('  ÜÛÜÛ    Û ³Üß');
       Gotoxy(20,13);Write('  Û³Û       Û');
       Gotoxy(20,14);Write('  Ü³ß      ß³Û  Û');
       Gotoxy(20,15);Write('Û  \ÄÛßÛÜÄÄÄ/ ß');
      TextColor(7);
       Gotoxy(25,11);Write('Ü    Ü');
       Gotoxy(27,13);Write('ßß');
       Gotoxy(25,14);Write('||||||');
        Sound(40);Delay(200);Ns;Delay(100);
         Clrscr;
          TextColor(4);
           Gotoxy(20,10);Write('   /ÄÄÄÄÄÄÄÄ\');
           Gotoxy(20,11);Write('   ³        Û');
           Gotoxy(20,12);Write('Û  Ü      Û ³Ü');
           Gotoxy(20,13);Write('ß Û³Û Û    Û Û ß');
           Gotoxy(20,14);Write(' ß ³ß       ß³  ');
           Gotoxy(20,15);Write(' Û \ÄÄÄÛÜÄÄÄ/ Û  Û');
          TextColor(7);
           Gotoxy(25,11);Write('Ü    Ü');
           Gotoxy(27,13);Write('ßß');
           Gotoxy(25,14);Write('||||||');
             Delay(300);
             Clrscr;
             TextColor(4);
              Gotoxy(18,10);Write('     /ÄÄÄÄÄÄÄÄ\');
              Gotoxy(18,11);Write('     ³        ³');
              Gotoxy(18,12);Write('     ³        ³Ü');
              Gotoxy(18,13);Write('    Û³Û      ÛÛÛ  ');
              Gotoxy(18,14);Write('     ³ß       ß³  ß');
              Gotoxy(18,15);Write('ÛÜÜÜ \ÄÄÄÛÛÜÄÄÄ/ ÜÜÜÜÛ');
             TextColor(7);
              Gotoxy(25,11);Write('Ü    Ü');
              Gotoxy(27,13);Write('ßß');
              Gotoxy(25,14);Write('||||||');
               Delay(300);
               Clrscr;
                TextColor(4);
                 Gotoxy(18,10);Write('     /ÄÄÄÄÄÄÄÄ\');
                 Gotoxy(18,11);Write('     ³        ³');
                 Gotoxy(18,12);Write('     ³        ³ ');
                 Gotoxy(18,13);Write('     ³        ³  ');
                 Gotoxy(18,14);Write('     ³        ³  Ü');
                 Gotoxy(18,15);Write('ÛÛÜÜ \ÛÜÛÛÜÄÄÄ/ÛÜÜÜÜÛ');
                TextColor(7);
                 Gotoxy(25,11);Write('Ü    Ü');
                 Gotoxy(27,13);Write('ßß');
                 Gotoxy(25,14);Write('||||||');
                   Delay(300);
                   Clrscr;
                    TextColor(4);
                    Gotoxy(18,10);Write('              ');
                    Gotoxy(18,11);Write('  ³ /³ ³ ³Ä\    ³');
                    Gotoxy(18,12);Write('     ³       ³³ ');
                    Gotoxy(18,13);Write('   Ä ³    ³   ³  ');
                    Gotoxy(18,14);Write('     ³        Ä  Ü');
                    Gotoxy(18,15);Write('ÛÛÜÜ \ÛÜÛÛÜÄÄÄ/ÛÜÜÜÜÛ');
                    TextColor(7);
                    Gotoxy(25,12);Write('Ü    ß');
                    Gotoxy(27,14);Write('ßÛ');
                    Gotoxy(25,14);Write('||||  ');
                    Gotoxy(29,15);Write('-|');
                     Delay(300);
                     Clrscr;
                      TextColor(4);
                      Gotoxy(18,10);Write('               ');
                      Gotoxy(18,11);Write('        ³      ');
                      Gotoxy(18,12);Write('  ³ -  ³   - ³\   ');
                      Gotoxy(18,13);Write(' /  Ä ³³    ³  ³³-  ');
                      Gotoxy(18,14);Write('     ³        Ä  Ü');
                      Gotoxy(18,15);Write('ÛÛÜÜ \ÛÜÛÛÜÄÄÄ/ÛÜÜÜÜÛ');
                      TextColor(7);
                      Gotoxy(25,13);Write('Ü    ß');
                      Gotoxy(27,15);Write('ßÛ');
                      Gotoxy(25,15);Write('----  ');
                      Gotoxy(29,15);Write('--');
                       Delay(300);
                       Clrscr;
                        TextColor(4);
                        Gotoxy(18,14);Write(' - ³ - ³ --   Ø  -Ü');
                        Gotoxy(18,15);Write('ÛÛÜÜ \ÛÜÛÛÜij³/ÛÜÜÜÜÛ');
                        TextColor(7);
                        Gotoxy(25,15);Write('Ü    ß');
                        Gotoxy(27,15);Write('ßÛ');
                        Gotoxy(25,15);Write('----  ');
                        Gotoxy(29,15);Write('--');
                        Delay(1000);
                          GameOver;
                           Goto 1;
 
 
        End;
 
 
                                 TextColor(2);
   Gotoxy(x,y);Write(' ');
    If (ch='K') Then x:=x-1;Sound(60);Delay(10);Nosound;
    If (ch='M') Then x:=x+1;Sound(60);Delay(10);Nosound;
    If (ch='I') Then Begin
      y:=y-1;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      x:=x+3;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      y:=y+1;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      Sound(400);Delay(10);Nosound;
     End;
    If (ch='G') Then Begin
      y:=y-1;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      x:=x-3;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      y:=y+1;Gotoxy(x,y);Write('');Delay(200);Gotoxy(x,y);Write(' ');
      Sound(400);Delay(10);Nosound;
     End;
 
       TextColor(14);
    If (ch=' ') Then Begin
     For i:= x to x+3 do Write('Ä');
     Sound(200);Delay(100);Ns;
     Gotoxy(x,y);
     For i:= x to x+4 do Write(' ');
        End;
 
     TextColor(2);
   Gotoxy(x,y);Write(chr(2));
                                 { Prepadliska }
                   If (y=3) and (x=28) Then Begin
                      y:=y+2; Gotoxy(28,3);Med;
                       Sound(300);Delay(250);Ns;
 
                    End;
 
                     If (y=5) and (x=33) and (y=5) and (x=37) Then Begin
                       y:=y+3;
                       Gotoxy(33,5);Write('   ');
 
                      End;
 
                       If (y=5) and (x>=32) and (x<=35) Then Begin
                                y:=y+3;
                          Gotoxy(31,5);Write('   ');
                       End;
 
                       If (y=5) and (x<=27) and (x>25) Then Begin
                         y:=y+2;
                         Gotoxy(25,5);Write('   ');
                        End;
 
                                       { Prepadliska end }
 
                         { Elektrina Print }
         TextColor(14);
           Gotoxy(12,3);El;El;
                      { Elektrina Print end }
 
                      { Elektrina Function }
          If (y=3) and (x=12) or (x=13) Then Begin
            energy:=energy-11;
 
           End;
 
                         { Elektrina Function end }
                                        { Elevator print }
      Gotoxy(35,3);Elev;
      Gotoxy(46,6);Elev;
      Gotoxy(41,6);En;
 
      If (y=6) and (x=41) Then Energy:=100;
 
                        { Pichlace Function }
    If (y=3) and (x=4) or (y=3) and (x=5) Then Begin
     TextColor(4);
      Gotoxy(4,3);Write('  ');
      Gotoxy(4,4);Pich;
      PichD;
     Goto 1;
    End;
 
      If (y=3) and (x=37) or (y=3) and (x=38) Then Begin
         TextColor(4);
          Gotoxy(37,4);Med;
          Gotoxy(38,4);Write(chr(30));
           PichD;
        Goto 1;
        End;
 
          If ((y=3) and (x=39)) or ((y=3) and (x=40)) Then Begin
            TextColor(4);
             Gotoxy(39,4);Med;
             Gotoxy(38,4);Pich;
              PichD;
            Goto 1;
           End;
 
            If (y=8) and (x=31) Then Begin
             TextColor(4);
              Gotoxy(x,y);Write(chr(2));
              Repeat Until Keypressed;
              Goto 1;
            End;
 
                        { Pichlace Function end }
                           { Heards Finction }
         If (y=3) and (x=18) Then Begin Gotoxy(15,24);Her; End;
         If (y=3) and (x=19) Then Begin Gotoxy(16,24);Her; End;
         If (y=5) and (x=30) Then Begin Gotoxy(17,24);Her; End;
         If (y=5) and (x=31) Then Begin Gotoxy(18,24);Her; End;
                             { Hearts Function End }
                          { El. Function }
 
           If (y=3) and (x=35) Then Begin
            x:=x+9;
            y:=y+3;
               Sound(100);Delay(100);
         Sound(200);Delay(100);
       Sound(300);Delay(150);
                     Sound(100);Delay(100);
         Sound(200);Delay(100);
       Sound(300);Delay(150);
 
         Ns;
 
           End;
 
        If (y=6) and (x=46) Then Begin
         y:=y-3;
         x:=x-12;
                    Sound(100);Delay(100);
         Sound(200);Delay(100);
       Sound(300);Delay(150);
                   Sound(100);Delay(100);
         Sound(200);Delay(100);
       Sound(300);Delay(150);
 
        Ns;
        End;
                              { El.Function end }
 
                                 { Steny }
         If (y=6) and (x=41) Then x:=x+1;
         If (y=8) and (x=43) Then x:=x-1;
 
                             { Steny end }
  UNTIL (ch=#27);
 
 
 END.