Game escape

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)
utek.pngAuthor: Ivan Rebo
Program: Utek.pasReadme.txtEd.pasHp.pasHpu.pasIvo.pasPismo.pasPouzi.pasPrezri.pasRutins.pasSetup.pasTxtp.pasUnpack.pasUtek.pasVezmi.pasInstal.pasMakeins.pasXla.pasRiki.txtUvod.txt
File exe: Utek.exeEd.exeSetup.exe
need: Mods.objUtek-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='VCHOD`')and((izba=7)or(izba=8)or(izba=10)or(izba=13)) then
     begin izba:=6;loadroom('data\chodba1');end else
    if (predmet='VCHOD`')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,'HJ, PUSTITE MA. €O CHCETE.');ENDEEE;end else
    if predmet='DO PENZI•NU`' then begin izba:=6;loadroom('data\chodba1');end else
    if (predmet='REBR‹K`')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='VCHOD`')and(izba=9) then begin izba:=6;loadroom('data\chodba1');end else
    if (predmet='VCHOD`')and(izba=5) then begin izba:=2;loadroom('data\chodba');end else
    if (predmet='VCHOD`')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=('KLU€KA`') then
     begin
      if not predmal[1] then
      begin
       say(192,9,'AHA, VE… S— OTVOREN SK—SIM 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 SK—SIM 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='PR‹ZEMIE`')and(not predm[1]) then say(192,9,'SCHODY S— €ERSTVO UMYT. MOHLA BY SOM SPADN—† !');
     if (predmet='PR‹ZEMIE`')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,'VRTNIK MA NECHCE PUSTI†, KM MU NEDM 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,'Kœ—€IK NEPASOVAL, TAK SOM VYKOPLA DVERE.');
      predm[13]:=false;
      kabinet:=2;predme:=3;
      kabload;zobrazpred;
     end else
     say(192,9,'POHœADAJ SPRVNY Kœ—€.');
    end else
    if (predmet='DVERE`')and(izba=15) then say(192,9,'NEPASUJE.') else
    if (izba=2)and(predmet='PR‹ZEMIE`') then
    begin
     if predme=8 then
     begin
      say(192,9,'OBULA SOM SI PAPU€E A SPADLA ...');izba:=6;
      predm[1]:=true;loadroom('data\chodba1');
      predme:=3;zobrazpred;
     end else say(192,9,'NO UR€ITE !!!');
    end else say(192,9,'NO UR€ITE !!!');
   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 KœU€KU 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='VCHOD`')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='VCHOD`')and(izba=4) then
     begin loadroom('data2\poschod2');izba:=5;end else
    if (predmet='VCHOD`')and(izba=7) then
     begin loadroom('data2\poschod2');izba:=5;end else
    if (predmet='VCHOD`')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,'JJ. VE… ›KR‹PU. PO€ULI BY MA VCHDZA†.');
    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='VCHOD`')and(izba=13) then
     begin loadroom('data2\prizjeda');izba:=12;end else
    if (predmet='VCHOD`')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='VEDœA`')and(izba=14) then
     begin loadroom('data2\suteren');izba:=15;end else
    if (predmet='VEDœA`')and(izba=15) then
     begin loadroom('data2\sutere02');izba:=14;end else
    if (predmet='VEDœA`')and(izba=14) then
     begin loadroom('data2\sutere01');izba:=16;end else
    if (predmet='VEDœA`')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='VCHOD`')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 UR€ITE ! ZNOVU MA CHYTIA.');end else
    if (predmet='DVERE`')and(izba=17)and(not predmal[22]) then
     begin say(192,9,'NEMM KDE ‹S†. HMMM. AKO ZAVOLA† TAXIKRA ?');end else
    if (predmet='DVERE`')and(izba=17)and(not predmal[20]) then
     begin say(192,9,'NEMM €‹M ZAPLATI† TAXIKROVI.');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 UR€ITE !!!');
     end else
     if (predmet='DVERE'+#2+'`')and(predme=28) then
     begin predmal[19]:=true;predme:=3;predm[28]:=false;zobrazpred;
      say(192,9,'DOBR NPAD.');
     end else say(192,9,'NO UR€ITE !!!');
    end else say(192,9,'NO UR€ITE !!!');
   end;
  end else
  if cast=3 then
  begin
   if predme=3 then
   begin
    if (predmet='V†AH`')and(izba=1) then
     if not predmal[1] then
      say(192,9,'NIE JE TU V†AH.') 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 UR€ITE !!!');
    end else say(192,9,'NO UR€ITE !!!');
   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='VYP‹NA€' then say(192,9,'›TUK. NI€ SA NESTALO.') else
   if predmet<>'' then say(192,9,'NIE SOM A’ TAK M—DRA AKO MRIA..');
  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='VEœK ›UPL‹K')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='VEœK ›UPL‹K')and(not predmal[5]) then
     begin predmal[5]:=true;say(192,9,'JE †A’K ASI HO NEOTVOR‹M.');end else
    if predmet<>'' then say(192,9,'IDE› NA TO ›PATNE, ALE NEZ—FAJ.');
   end else
   if predmet<>'' then say(192,9,'IDE› NA TO ›PATNE, ALE NEZ—FAJ.');
  end else
  {--------------izba3---------------------------}
  if izba=4 then
  begin
   if predmet='AKVRIUM' then
    say(192,9,'€O JA VIEM ? SK—S TO RAD›EJ POU’I† NA VODU.') else
   if (predmet='VODA')and(predme=10)and(not predmal[2]) then
   begin
    say(192,9,'PIRANA TOHO VEœA NEZJEDLA. KORENIA BOLO PRIVEœA !');
    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,'NA›LA SOM VEœMI €UDN PREDMET. JE TO R—€KA !');
    predm[16]:=false;
    predm[17]:=true;predme:=3;zobrazpred;
   end else
   if predmet='HIFI VE’A' 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 MUS‹M 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='VYP‹NA€')and(predme=3) then say(192,9,'›TUK. NI€ SA NESTALO.') else
   if (predmet='VRTNIK')and(predme=14)and(predmal[7]) then
   begin
    say(192,9,'TO SOM TEDA E›TE NEPIL !');
    say(192,9,'NARADOVAN VRTNIK VYPIL CEL— FœA›U NA JEDEN NDYCH.');
    predme:=3;predm[14]:=false;predmal[14]:=true;newspr('data\chodba12');
    zobrazcele;say(192,9,'MYSL‹M, ’E NABUD—CE NAJPRV OKO›TUJE.');
   end else
   if (predmet='VRTNIK')and(predme<>3) then
    if predmal[14] then say(192,9,'MYSL‹M, ’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 NS TOTO NEU€ILI.');
  end else
  {--------------kuchy¤a---------------------------}
  if izba=7 then
  begin
   if (predmet='VYTRHNUT R—€KA')and(predme=17)and(not predmal[12]) then
   begin
    if predmal[9] then begin
     say(192,9,'SO ›ROBOVKOM SOM JU PRI›R•BOVALA... BO’E, 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='VYP‹NA€')and(predme=3) then
   begin kabinet:=1;izba:=8;ob(har);
    say(192,9,'HUR, SVETLO.');end else
   if predmet='ZMOK' then say(192,9,'V TEJ TME ASI TA’KO !') else
   if predmet<>'' then say(192,9,'KE… BUDEM VELK, TAK TO UR€ITE POCHOP‹M.');
  end else
  {--------------kabinet---------------------------}
  if izba=11 then
  begin
   if predmet<>'' then say(192,9,'KE… BUDEM VELK, TAK TO UR€ITE POCHOP‹M.');
  end else
  {--------------TELEFON---------------------------}
  if izba=12 then
  begin
   if predmet='PLAY' then say(192,9,'ZZZZZ. CHBA KAZETA.') else
   if predmet='REC' then say(192,9,'›KVRRRK. CHBA KAZETA..') else
   if predmet='REW' then say(192,9,'BZZZZZ. CHBA KAZETA..') else
   if predmet='STOP' then say(192,9,'›TUK. CHBA 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,'TELEF•N 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 NV›TEVNI€KA V›HO PENZI•NU.');
    say(192,9,'DOBR DEĽ. €O SI ’ELTE ?');
    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 NV›TEVNI€KA V›HO PENZI•NU.');
    say(192,9,'DOBR DEĽ. €O SI ’ELTE ?');
    say(192,9,'CHCELA BY SOM VS 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,'POM•C, POM•C.');
     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,'PRE€O TO NIKDO NEDV‹HA ?');
     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 MYSL‹M.');
  end else
  {--------------kabinet---------------------------}
  if (izba=8)or(izba=13) then
  begin
   if (predmet='ZMOK')and(predme=11) then
   begin
    izba:=11;
    loadroom('data\kabinet2');
    predme:=3;
    say(192,9,'V›ETKO SA TO NA MĽA VYSYPALO.');
    kabinet:=4;zobrazpred;
   end else
   if (predmet='VYP‹NA€')and(predme=3) then say(192,9,'JA CHCEM SVETLO !!!') else
   if predmet<>'' then say(192,9,'KE… BUDEM VELK, TAK TO UR€ITE POCHOP‹M.');
  end else
  {--------------izba 5---------------------------}
  if izba=9 then
  begin
   if (predmet='TELEF•N')and(predme=3) then begin telcis:='';izba:=12;loadroom('data\telefon');
   end else
   if predmet<>'' then say(192,9,'NIKTO M—DRY Z NEBA ... AAAAAAA. BUM.');
  end;
 end;
 if cast=2 then
 begin
  {--------------POSCH1---------------------------}
  if izba=1 then
  begin
   if (predmet='ZMOK')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 UR€ITE ! A €O POTOM ?') else
    begin say(192,9,'VYTLA€ILA SOM Kœ—€IK.');predmal[5]:=true;predme:=3;
    predm[18]:=false;zobrazpred;end;
   end else
   if (predmet='ZMOK')and(predme=20)and(not predmal[3]) then begin
    say(192,9,'HUR ODOMKLA SOM.');predmal[3]:=true;
   end else
   if (predmet='ZMOK')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. VOPCHM 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='ZMOK')and(predme=20)and(not predmal[3]) then begin
    say(192,9,'HUR ODOMKLA SOM.');predmal[3]:=true;
   end else
   if (predmet='ZMOK')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. VOPCHM 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='STOL‹K') 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='›N—RKA')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='OVLDA€')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='R—RA')and(predme=33)and(not predm[27]) then
    say(192,9,'NEMM JU €‹M ZATIAHNU†.')  else
   if (predmet='R—RA')and(predme=33)and(not predmal[23]) then
    say(192,9,'DVERE NEBUD— UTESNEN.')  else
   if (predmet='R—RA')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='R—RA')and(predme=26)and(not predm[36]) then
    say(192,9,'VE… SA ZADUS‹M.') else
   if (predmet='R—RA')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,'MYSL‹M, ’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='TELEF•N')and(predme=3)and(not predmal[22]) then begin
    predmal[22]:=true;
    say(192,9,'ZAVOLALA SOM SI TAX‹K. BUDE MA €AKA† VONKU.');
   end else
   if (predmet='TELEF•N')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='TLA€‹TKO')and(predme=3) then
   begin
    if predmal[1] then say(192,9,'V†AH JE U’ TU.') else
    begin say(192,9,'PRI›IEL V†AH.');predmal[1]:=true;end;
   end else
   if (predmet='VRTNICA')and(predme=3) then
   begin
    if predmal[2] then say(192,9,'NEVIEM, NA €O SA MM SPTA†.') else
    begin say(192,9,'HUR. NA›I 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;