Hra - niečo ako kríženec DOOMa a Diggera
Kategorija: KMP (Programy mladňakoch
Zrobil: Alexej OstrouchovProgram: 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('ŰŰÜÜ \ŰÜŰŰÜÄłł/ŰÜÜÜÜŰ'); 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.