Game escape
Delphi & Pascal (česká wiki)
Category: KMP (Club of young programmers)
Author: Ivan Rebo
Program: Utek.pas, Readme.txt, Ed.pas, Hp.pas, Hpu.pas, Ivo.pas, Pismo.pas, Pouzi.pas, Prezri.pas, Rutins.pas, Setup.pas, Txtp.pas, Unpack.pas, Utek.pas, Vezmi.pas, Instal.pas, Makeins.pas, Xla.pas, Riki.txt, Uvod.txt
File exe: Utek.exe, Ed.exe, Setup.exe
need: Mods.obj, Utek-working-dos.7z
Author: Ivan ReboProgram: Utek.pas, Readme.txt, Ed.pas, Hp.pas, Hpu.pas, Ivo.pas, Pismo.pas, Pouzi.pas, Prezri.pas, Rutins.pas, Setup.pas, Txtp.pas, Unpack.pas, Utek.pas, Vezmi.pas, Instal.pas, Makeins.pas, Xla.pas, Riki.txt, Uvod.txt
File exe: Utek.exe, Ed.exe, Setup.exe
need: Mods.obj, Utek-working-dos.7z
Escape game with sound for COVOX for very old computers.
{ POUZI.PAS Copyright (c) Ivan Rebo } { https://github.com/IRebo/utek/tree/master/old-199x-version } { } { Author: Ivan Rebo } { Datum: 20.01.1995 http://www.trsek.com } procedure pouzi; begin if predmet[length(predmet)]='`' then begin if cast=1 then begin if predme=3 then begin if (predmet='VCHOD`')and((izba=7)or(izba=8)or(izba=10)or(izba=13)) then begin izba:=6;loadroom('data\chodba1');end else if (predmet='VCHOD`')and(izba=4) then begin izba:=2;loadroom('data\chodba');end else if (predmet='CHODBA`')and(izba=11) then begin izba:=6;loadroom('data\chodba1');end else if predmet='DO MESTA`' then begin say(192,9,'HJ, PUSTITE MA. O CHCETE.');ENDEEE;end else if predmet='DO PENZINU`' then begin izba:=6;loadroom('data\chodba1');end else if (predmet='REBRK`')and(izba=14) then begin izba:=13;loadroom('data\kabinet');end else if (predmet='IZBA`')and(izba=12) then begin izba:=9;loadroom('data\izba5');end else if (predmet='DVERE`')and(izba=15) then say(192,9,'JE ZAMKNUT.') else if (predmet='VCHOD`')and(izba=9) then begin izba:=6;loadroom('data\chodba1');end else if (predmet='VCHOD`')and(izba=5) then begin izba:=2;loadroom('data\chodba');end else if (predmet='VCHOD`')and(izba=3) then begin izba:=2;loadroom('data\chodba');end else if (predmet='POKLOP`') then begin if izba=13 then begin izba:=14;loadroom('data\pivnica'); end else say(192,9,'JE PRIVALEN SKRIĽOU.'); end else if izba=1 then begin if predmet=('KLUKA`') then begin if not predmal[1] then begin say(192,9,'AHA, VE S OTVOREN SKSIM POTICHU UTIEC.');predmal[1]:=true; end;izba:=2;loadroom('data\chodba'); end else if predmet=('DVERE`') then begin if not predmal[1] then begin say(192,9,'AHA, VE S OTVOREN SKSIM POTICHU UTIEC.');predmal[1]:=true; end;izba:=2;loadroom('data\chodba'); end; end else if izba=2 then begin if predmet='DVERE`' then begin izba:=3;loadroom('data\izba2');end; if predmet='DVERE'+CHR(1)+'`' then begin izba:=1;loadroom('data\izba1');end; if predmet='DVERE'+CHR(2)+'`' then begin izba:=4;loadroom('data\izba4');end; if predmet='DVERE'+CHR(3)+'`' then begin izba:=5;loadroom('data\izba3');end; if (predmet='PRZEMIE`')and(not predm[1]) then say(192,9,'SCHODY S ERSTVO UMYT. MOHLA BY SOM SPADN !'); if (predmet='PRZEMIE`')and(predm[1]) then begin izba:=6;loadroom('data\chodba1');end; end else if izba=6 then begin if predmet='KUCHYĽA`' then begin izba:=7;loadroom('data\kuchyna');end; if predmet='POSCHODIE`' then begin izba:=2;loadroom('data\chodba');end; if (predmet='KABINET`')and(kabinet=4) then begin izba:=11;loadroom('data\kabinet2');end; if (predmet='KABINET`')and(kabinet=2) then begin izba:=10;kabload;end; if (predmet='KABINET`')and(kabinet=3) then say(192,9,'JE ZAMKNUT.'); if (predmet='KABINET`')and(kabinet=1) then begin izba:=8; loadroom('data\kabinet');end; if (predmet='KABINET`')and(kabinet=5) then begin izba:=13; loadroom('data\kabinet');end; if predmet='DVERE`' then begin izba:=9;loadroom('data\izba5');end; if (predmet='ULICA`')and(predmal[14]) then begin izba:=15;loadroom('data\ulica');end; if (predmet='ULICA`')and(not predmal[14]) then say(192,9,'VRTNIK MA NECHCE PUSTI, KM MU NEDM K OD IZBY.'); end; end else begin if (izba=6)and(predmet='KABINET`') then begin if predme=13 then begin izba:=10;say(192,9,'KIK NEPASOVAL, TAK SOM VYKOPLA DVERE.'); predm[13]:=false; kabinet:=2;predme:=3; kabload;zobrazpred; end else say(192,9,'POHADAJ SPRVNY K.'); end else if (predmet='DVERE`')and(izba=15) then say(192,9,'NEPASUJE.') else if (izba=2)and(predmet='PRZEMIE`') then begin if predme=8 then begin say(192,9,'OBULA SOM SI PAPUE A SPADLA ...');izba:=6; predm[1]:=true;loadroom('data\chodba1'); predme:=3;zobrazpred; end else say(192,9,'NO URITE !!!'); end else say(192,9,'NO URITE !!!'); end; end; if cast=2 then begin if predme=3 then begin if (predmet='DVERE`')and(izba=1) then if predmal[3] then begin loadroom('data2\poschod');izba:=2;end else say(192,9,'ONI MA TU ZAMKLI !!!') else if (predmet='DVERE'+#1+'`')and(izba=2) then if predmal[6] then begin loadroom('data2\posch2');izba:=3;end else say(192,9,'A KUKU SI O ?') else if (predmet='DVERE`')and(izba=2) then begin loadroom('data2\posch1');izba:=1;end else if (predmet='DVERE'+#1+'`')and(izba=2) then begin loadroom('data2\posch2');izba:=3;end else if (predmet='DVERE'+#2+'`')and(izba=2) then begin loadroom('data2\poschkup');izba:=4;end else if (predmet='CHODBA`')and(izba=2) then begin loadroom('data2\poschod2');izba:=5;end else if (predmet='CHODBA`')and(izba=5) then begin loadroom('data2\poschod');izba:=2;end else if (predmet='DVERE`')and(izba=3) then begin loadroom('data2\poschod');izba:=2;end else if (predmet='DVERE`')and(izba=5) then begin loadroom('data2\poschzac');izba:=6;end else if (predmet='VCHOD`')and(izba=6) then begin loadroom('data2\poschod2');izba:=5;end else if (predmet='DVERE'+#1+'`')and(izba=5) then begin loadroom('data2\poschkup');izba:=4;end else if (predmet='DVERE'+#2+'`')and(izba=5) then begin loadroom('data2\poschoby');izba:=7;end else if (predmet='DVERE`')and(izba=7) then begin loadroom('data2\poschkuc');izba:=8;end else if (predmet='VCHOD`')and(izba=4) then begin loadroom('data2\poschod2');izba:=5;end else if (predmet='VCHOD`')and(izba=7) then begin loadroom('data2\poschod2');izba:=5;end else if (predmet='VCHOD`')and(izba=8) then begin loadroom('data2\poschoby');izba:=7;end else if (predmet='DOLE`')and(izba=2) then begin if soundis then begin stopsound; initsound(cfg,speed,'music2-2.dom');end; loadroom('data2\prizchod');izba:=9;end else if (predmet='HORE`')and(izba=9) then begin if soundis then begin stopsound; initsound(cfg,speed,'music2-1.dom');end; loadroom('data2\poschod');izba:=2;end else if (predmet='DVERE'+#2+'`')and(izba=9) then begin if predmal[19] then begin loadroom('data2\prizach');izba:=10;end else say(192,9,'JJ. VE KRPU. POULI BY MA VCHDZA.'); end else if (predmet='DVERE'+#1+'`')and(izba=9)and(not predmal[26]) then begin say(192,9,'TAM S NOSCOVIA !');end else if (predmet='DVERE'+#1+'`')and(izba=9)and(predmal[26]) then begin say(192,9,'TAM JE PLYN !');end else if (predmet='DVERE`')and(izba=10) then begin loadroom('data2\prizchod');izba:=9;end else if (predmet='DVERE'+#3+'`')and(izba=9) then begin loadroom('data2\prizkuch');izba:=11;end else if (predmet='DVERE'+#1+'`')and(izba=11) then begin loadroom('data2\prizchod');izba:=9;end else if (predmet='DVERE`')and(izba=11) then begin loadroom('data2\prizjeda');izba:=12;end else if (predmet='DVERE`')and(izba=12) then begin loadroom('data2\prizkuch');izba:=11;end else if (predmet='DVERE'+#4+'`')and(izba=9) then begin loadroom('data2\prizoby');izba:=13;end else if (predmet='DVERE`')and(izba=13) then begin loadroom('data2\prizchod');izba:=9;end else if (predmet='VCHOD`')and(izba=13) then begin loadroom('data2\prizjeda');izba:=12;end else if (predmet='VCHOD`')and(izba=12) then begin loadroom('data2\prizoby');izba:=13;end else if (predmet='DOLE`')and(izba=9) then begin if soundis then begin stopsound; initsound(cfg,speed,'music2-3.dom');end; loadroom('data2\sutere02');izba:=14;end else if (predmet='HORE`')and(izba=14) then begin if soundis then begin stopsound; initsound(cfg,speed,'music2-2.dom');end; loadroom('data2\prizchod');izba:=9;end else if (predmet='VEDA`')and(izba=14) then begin loadroom('data2\suteren');izba:=15;end else if (predmet='VEDA`')and(izba=15) then begin loadroom('data2\sutere02');izba:=14;end else if (predmet='VEDA`')and(izba=14) then begin loadroom('data2\sutere01');izba:=16;end else if (predmet='VEDA`')and(izba=16) then begin loadroom('data2\sutere02');izba:=14;end else if (predmet='DVERE`')and(izba=9) then begin loadroom('data2\prizvcho');izba:=17;end else if (predmet='VCHOD`')and(izba=17) then begin loadroom('data2\prizchod');izba:=9;end else if (predmet='DVERE`')and(izba=17)and(not predmal[26]) then begin say(192,9,'NO URITE ! ZNOVU MA CHYTIA.');end else if (predmet='DVERE`')and(izba=17)and(not predmal[22]) then begin say(192,9,'NEMM KDE S. HMMM. AKO ZAVOLA TAXIKRA ?');end else if (predmet='DVERE`')and(izba=17)and(not predmal[20]) then begin say(192,9,'NEMM M ZAPLATI TAXIKROVI.');end else if (predmet='DVERE`')and(izba=17) then begin say(192,9,'HURR. IDEM ZA MAMOU A OTCOM.');endee2;end else end else begin if izba=9 then begin if predmet='DVERE'+#1+'`' then begin if predme=34 then begin if win then begin closewin;zobraz;end;predme:=3; newspr('data2\prizcho2');zobraz;predmal[23]:=true;predm[34]:=false; zobrazpred;end else say(192,9,'NO URITE !!!'); end else if (predmet='DVERE'+#2+'`')and(predme=28) then begin predmal[19]:=true;predme:=3;predm[28]:=false;zobrazpred; say(192,9,'DOBR NPAD.'); end else say(192,9,'NO URITE !!!'); end else say(192,9,'NO URITE !!!'); end; end else if cast=3 then begin if predme=3 then begin if (predmet='VAH`')and(izba=1) then if not predmal[1] then say(192,9,'NIE JE TU VAH.') else if not predmal[2] then say(192,9,'NEVIEM, NA KTOR POSCHODIE S.') else begin loadroom('data3\vratposch');izba:=2;end else if (predmet='DVERE`')and(izba=2) then begin thend;end else say(192,9,'NO URITE !!!'); end else say(192,9,'NO URITE !!!'); end; end else begin if cast=1 then begin {--------------izba1---------------------------} if izba=1 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------chodba---------------------------} if izba=2 then begin if predmet='VYPNA' then say(192,9,'TUK. NI SA NESTALO.') else if predmet<>'' then say(192,9,'NIE SOM A TAK MDRA AKO MRIA..'); end else {--------------izba2---------------------------} if izba=3 then begin if (predmet='SKRIĽA')and(predme=6)and(not predmal[15]) then begin say(192,9,'YES ! PODARILO SA !');predmal[15]:=true; loadspr('data\detail21');newspr('data\detail22'); zobraz; end else if predme=3 then begin if (predmet='VEK UPLK')and(predmal[5])and(not predmal[10]) then begin loadspr('data\detail23');newspr('data\detail24');zobraz; say(192,9,'UFF, PODARILO SA.');predmal[10]:=true;end else if (predmet='VEK UPLK')and(not predmal[5]) then begin predmal[5]:=true;say(192,9,'JE AK ASI HO NEOTVORM.');end else if predmet<>'' then say(192,9,'IDE NA TO PATNE, ALE NEZFAJ.'); end else if predmet<>'' then say(192,9,'IDE NA TO PATNE, ALE NEZFAJ.'); end else {--------------izba3---------------------------} if izba=4 then begin if predmet='AKVRIUM' then say(192,9,'O JA VIEM ? SKS TO RADEJ POUI NA VODU.') else if (predmet='VODA')and(predme=10)and(not predmal[2]) then begin say(192,9,'PIRANA TOHO VEA NEZJEDLA. KORENIA BOLO PRIVEA !'); predm[10]:=false;predme:=3;predmal[2]:=true;zobrazpred; end else if (predmet='VODA')and(predme<>7)and(not predm[11]) then begin say(192,9,'TO NEM ZMYSEL !'); end else if predmet<>'' then say(192,9,'NEDAJ SA VYSMIA.'); end else {--------------izba4---------------------------} if izba=5 then begin if (predmet='ST~L')and(predme=16)and(not predm[17]) then begin say(192,9,'NALA SOM VEMI UDN PREDMET. JE TO RKA !'); predm[16]:=false; predm[17]:=true;predme:=3;zobrazpred; end else if predmet='HIFI VEA' then begin if soundis then begin if not predmal[3] then begin say(192,9,'TO JE BOMBA ! JE TU AJ BRAVO HITS 98'' MUSIC BOX.'); stopsound;initsound(cfg,speed,'music1-2.dom');predmal[3]:=true; end else begin say(192,9,'TO JE ALE KODA, E JU MUSM VYPN.'); stopsound;initsound(cfg,speed,'music1-1.dom');predmal[3]:=false; end; end else say(192,9,'ASI JE POKAZEN.'); end else if predmet<>'' then say(192,9,'NAOZAJ NEVIEM, NA O MYSL.'); end else {--------------chodba1---------------------------} if izba=6 then begin if (predmet='VYPNA')and(predme=3) then say(192,9,'TUK. NI SA NESTALO.') else if (predmet='VRTNIK')and(predme=14)and(predmal[7]) then begin say(192,9,'TO SOM TEDA ETE NEPIL !'); say(192,9,'NARADOVAN VRTNIK VYPIL CEL FAU NA JEDEN NDYCH.'); predme:=3;predm[14]:=false;predmal[14]:=true;newspr('data\chodba12'); zobrazcele;say(192,9,'MYSLM, E NABUDCE NAJPRV OKOTUJE.'); end else if (predmet='VRTNIK')and(predme<>3) then if predmal[14] then say(192,9,'MYSLM, E U NECHCE.') else say(192,9,'IBA SA NA MĽA USMIAL A POVEDAL, E U TAK M.') else if predmet<>'' then say(192,9,'V KOLE NS TOTO NEUILI.'); end else {--------------kuchy¤a---------------------------} if izba=7 then begin if (predmet='VYTRHNUT RKA')and(predme=17)and(not predmal[12]) then begin if predmal[9] then begin say(192,9,'SO ROBOVKOM SOM JU PRIRBOVALA... BOE, LEN OKENA ?'); predm[15]:=true;predmal[12]:=true;zobrazpred;end else say(192,9,'PRESNE PASUJE! LEN 4 CM ROZDIEL! NEJDE PRIPEVNI !!!'); end else if predmet<>'' then say(192,9,'NIE,NIE, TAKTO TO NEP~JDE.'); end else {--------------kabinet TMA---------------------------} if izba=10 then begin if (predmet='VYPNA')and(predme=3) then begin kabinet:=1;izba:=8;ob(har); say(192,9,'HUR, SVETLO.');end else if predmet='ZMOK' then say(192,9,'V TEJ TME ASI TAKO !') else if predmet<>'' then say(192,9,'KE BUDEM VELK, TAK TO URITE POCHOPM.'); end else {--------------kabinet---------------------------} if izba=11 then begin if predmet<>'' then say(192,9,'KE BUDEM VELK, TAK TO URITE POCHOPM.'); end else {--------------TELEFON---------------------------} if izba=12 then begin if predmet='PLAY' then say(192,9,'ZZZZZ. CHBA KAZETA.') else if predmet='REC' then say(192,9,'KVRRRK. CHBA KAZETA..') else if predmet='REW' then say(192,9,'BZZZZZ. CHBA KAZETA..') else if predmet='STOP' then say(192,9,'TUK. CHBA KAZETA..') else if predmet='#' then begin pis(4,9,' '); move(obrazok^[21*320],mem[$a000:21*320-1],21*320+1); telcis:='';say(192,9,'TUUUUT TUT TUUUUT AT ...');end else if predmet='*' then say(192,9,'TELEFN NI NEVIE, ASI BOL ODPOJEN.') else if (predmet='0')and(kabinet<>4)and(length(telcis)=0) then begin say(192,9,'HAL. TU RECEPCIA. KTO JE TAM ?'); say(192,9,'DOBR DEĽ. TU JE JEDNA NVTEVNIKA VHO PENZINU.'); say(192,9,'DOBR DEĽ. O SI ELTE ?'); say(192,9,'AHA, DOVIDENIA. TUUUT TUT TUUUT'); end else if (predmet='0')and(kabinet=4)and(length(telcis)=0) then begin say(192,9,'HAL. TU RECEPCIA. KTO JE TAM ?'); say(192,9,'DOBR DEĽ. TU JE JEDNA NVTEVNIKA VHO PENZINU.'); say(192,9,'DOBR DEĽ. O SI ELTE ?'); say(192,9,'CHCELA BY SOM VS UPOZORNI NA BORDEL V KABINETE.'); say(192,9,'NO ? HNE TO ZARIADIM.'); say(192,9,'DOVIDENIA.');kabinet:=5; end else if (predmet='0')or(predmet='1')or(predmet='2')or(predmet='3') or(predmet='4')or(predmet='6')or(predmet='9') or (predmet='5')or(predmet='7')or(predmet='8') then begin if (predmet='0')and(length(telcis)<>0) then begin telcis:=telcis+'0';pis(4,9,'SLO : '+telcis); end else if predmet='1' then begin telcis:=telcis+'1';pis(4,9,'SLO : '+telcis); end else if predmet='2' then begin telcis:=telcis+'2';pis(4,9,'SLO : '+telcis); end else if predmet='3' then begin telcis:=telcis+'3';pis(4,9,'SLO : '+telcis); end else if predmet='4' then begin telcis:=telcis+'4';pis(4,9,'SLO : '+telcis); end else if predmet='6' then begin telcis:=telcis+'6';pis(4,9,'SLO : '+telcis); end else if predmet='5' then begin telcis:=telcis+'5';pis(4,9,'SLO : '+telcis); end else if predmet='7' then begin telcis:=telcis+'7';pis(4,9,'SLO : '+telcis); end else if predmet='8' then begin telcis:=telcis+'8';pis(4,9,'SLO : '+telcis); end else if predmet='9' then begin telcis:=telcis+'9';pis(4,9,'SLO : '+telcis); end; if telcis='33387' then begin say(192,9,'HAL. TU SOM JA ? ALEBO NIE. TAK AU.'); telcis:='';pis(4,9,' '); end; if telcis='31831' then begin say(192,9,'HAL. KTO JE TU ? TAM SI TY. A BUDE VEDIE ZAVOLAJ.'); telcis:='';pis(4,9,' '); end; if telcis='158' then begin say(192,9,'POMC, POMC.'); telcis:='';pis(4,9,' '); end; if telcis='155' then begin say(192,9,'TO JE ASI OMYL.'); telcis:='';pis(4,9,' '); end; if telcis='150' then begin say(192,9,'PREO TO NIKDO NEDVHA ?'); telcis:='';pis(4,9,' '); end; if length(telcis)=5 then begin say(192,9,'TUUUUUUUT TUT TUUUUUUUT. TO JE OMYL.'); telcis:='';pis(4,9,' '); end; end else if predmet<>'' then say(192,9,'TUUUUUUUT TUT TUUUUUUUT.'); end else {--------------ULICA---------------------------} if izba=15 then begin if predmet<>'' then say(192,9,'TO JE ALE BLBOS.'); end else {--------------PIVNICA---------------------------} if izba=14 then begin if (predmet='TRUHLICA')and(predme<>3) then say(192,9,'NEPASUJE.') else if predmet<>'' then say(192,9,'AJ JA SI TO MYSLM.'); end else {--------------kabinet---------------------------} if (izba=8)or(izba=13) then begin if (predmet='ZMOK')and(predme=11) then begin izba:=11; loadroom('data\kabinet2'); predme:=3; say(192,9,'VETKO SA TO NA MĽA VYSYPALO.'); kabinet:=4;zobrazpred; end else if (predmet='VYPNA')and(predme=3) then say(192,9,'JA CHCEM SVETLO !!!') else if predmet<>'' then say(192,9,'KE BUDEM VELK, TAK TO URITE POCHOPM.'); end else {--------------izba 5---------------------------} if izba=9 then begin if (predmet='TELEFN')and(predme=3) then begin telcis:='';izba:=12;loadroom('data\telefon'); end else if predmet<>'' then say(192,9,'NIKTO MDRY Z NEBA ... AAAAAAA. BUM.'); end; end; if cast=2 then begin {--------------POSCH1---------------------------} if izba=1 then begin if (predmet='ZMOK')and(predme=18) then begin if predmal[5] then say(192,9,'U TAM NI NIE JE.') ELSE if not predmal[4] then say(192,9,'NO URITE ! A O POTOM ?') else begin say(192,9,'VYTLAILA SOM KIK.');predmal[5]:=true;predme:=3; predm[18]:=false;zobrazpred;end; end else if (predmet='ZMOK')and(predme=20)and(not predmal[3]) then begin say(192,9,'HUR ODOMKLA SOM.');predmal[3]:=true; end else if (predmet='ZMOK')and(predme=20)and(predmal[3]) then say(192,9,'U JE ODOMKNUT.') else if (predmet='PRAH')and(predme=19) then begin say(192,9,'O.K. VOPCHM HO TAM.'); predme:=3;predm[19]:=false;predmal[4]:=true;newspr('data2\poschpa'); zobrazcele; end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHod---------------------------} if izba=2 then begin if (predmet='DIERA')and(predme=22) then begin newspr('data2\poschklu');predmal[6]:=true;predm[22]:=false;predme:=3; zobrazcele;say(192,9,'A U JE TAM.'); end else if (predmet='ZMOK')and(predme=20)and(not predmal[3]) then begin say(192,9,'HUR ODOMKLA SOM.');predmal[3]:=true; end else if (predmet='ZMOK')and(predme=20)and(predmal[3]) then say(192,9,'U JE ODOMKNUT.') else if (predmet='PRAH')and(predme=19) then begin say(192,9,'O.K. VOPCHM HO TAM.'); predme:=3;predm[19]:=false;predmal[4]:=true;newspr('data2\poschpa'); zobrazcele; end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCH2---------------------------} if izba=3 then begin if (predme=21)and(predmet='STOLK') then begin predmal[13]:=true;predm[21]:=false;predme:=3;loadspr('data2\posch21'); zobraz;say(192,9,'PODARILO SA ! JUP.');end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHkup---------------------------} if izba=4 then begin if (predmet='VODOVOD')and(predme=3)and(not predmal[25]) then begin newspr('data2\poschku1');zobraz;predmal[25]:=true;end else if (predmet='VODOVOD')and(predme=3)and(predmal[25]) then begin newspr('data2\poschkup');zobraz;predmal[25]:=false;end else if (predmet='VODA')and(predme=31) then begin predm[35]:=true;predm[31]:=false;predme:=3;zobrazpred;end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHod2---------------------------} if izba=5 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHzac---------------------------} if izba=6 then begin if (predmet='NRKA')and(predme=23) then begin if win then begin closewin; zobraz;end;newspr('data2\poschsnu');predm[23]:=false;predm[24]:=true;predme:=3; predmal[9]:=true;zobraz;zobrazpred;end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHoby---------------------------} if izba=7 then begin if (predmet='OVLDA')and(predme=3) then begin if predmal[20] then begin newspr('data2\trezor2');zobraz;end else begin newspr('data2\trezor1');zobraz;end;end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------POSCHkuc---------------------------} if izba=8 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizchod---------------------------} if izba=9 then begin if (predmet='RRA')and(predme=33)and(not predm[27]) then say(192,9,'NEMM JU M ZATIAHNU.') else if (predmet='RRA')and(predme=33)and(not predmal[23]) then say(192,9,'DVERE NEBUD UTESNEN.') else if (predmet='RRA')and(predme=33)and(not predmal[24]) then begin predmal[24]:=true;predm[33]:=false;predme:=3;closewin;zobraz; predm[27]:=false;newspr('data2\prizcho3');zobraz;zobrazpred;end else if (predmet='RRA')and(predme=26)and(not predm[36]) then say(192,9,'VE SA ZADUSM.') else if (predmet='RRA')and(predme=26)and(predmal[24]) then begin predmal[26]:=true;predm[36]:=false;predme:=3;closewin;predm[26]:=false; zobraz;zobrazpred;say(192,9,'MYSLM, E ICH TO DALO DO PORIADKU.');end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizach---------------------------} if izba=10 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizkuch---------------------------} if izba=11 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizjeda---------------------------} if izba=12 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizoby---------------------------} if izba=13 then begin if (predmet='TELEFN')and(predme=3)and(not predmal[22]) then begin predmal[22]:=true; say(192,9,'ZAVOLALA SOM SI TAXK. BUDE MA AKA VONKU.'); end else if (predmet='TELEFN')and(predme=3)and(predmal[22]) then say(192,9,'U MA IADNE SLO NENAPAD.') else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------sutere02---------------------------} if izba=14 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------suteren---------------------------} if izba=15 then begin if (predmet='HADICA')and(predme=29) then begin predm[33]:=true;predm[29]:=false;predme:=3;zobrazpred;end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------sutere01---------------------------} if izba=16 then begin if (predme=25)and(predmet='BEDĽA') then begin if predmal[18] then say(192,9,'U JE VYRABOVAN.') else begin loadspr('data2\sutere11');zobraz;predme:=3;predm[25]:=true; zobrazpred;end; end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else {--------------prizvcho---------------------------} if izba=17 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else end; if cast=3 then begin if izba=1 then begin if (predmet='TLATKO')and(predme=3) then begin if predmal[1] then say(192,9,'VAH JE U TU.') else begin say(192,9,'PRIIEL VAH.');predmal[1]:=true;end; end else if (predmet='VRTNICA')and(predme=3) then begin if predmal[2] then say(192,9,'NEVIEM, NA O SA MM SPTA.') else begin say(192,9,'HUR. NAI S TU NAOZAJ UBYTOVAN.');predmal[2]:=true;end; end else if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else if izba=2 then begin if predmet<>'' then say(192,9,'TAK Z TOHTO SOM JELEĽICA.'); end else end; end; end;