Hra na utek

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)
utek.pngAutor: 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
Soubor exe: Utek.exe,  Ed.exe,  Setup.exe
Potřebné: Mods.obj,  Utek-working-dos.7z

Hra utek so zvukom na COVOX pre velmi stare pocitace.
{ VEZMI.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 vezmi;
begin
 if cast=1 then
 begin
  if izba=1 then
  begin
   if predmet='MINCA' then begin
    newspr('data\detail11');zobraz;
    say(192,9,'HURŹŹ. 50 HALIEROV ! K—PIM SI BARBIE !');
    predm[6]:=true;zobrazpred;end else
   if predmet<>'' then say(192,9,'TO †A’KO !!!');
  end else
  {--------------chodba---------------------------}
  if izba=2 then
  begin
   if predmet<>'' then say(192,9,'TO †A’KO !!!');
  end else
  {--------------izba2---------------------------}
  if izba=3 then
  begin
   if predmet='PAPU€E' then begin
    newspr('data\detail21');zobraz;predm[8]:=true;zobrazpred;end else
   if predmet='Kś—€' then begin predm[13]:=true;
    newspr('data\detail23');predmal[16]:=true;zobraz;zobrazpred;end else
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------izba3---------------------------}
  if izba=4 then
  begin
   if (predmet='VODA')and(predmal[2])and(not predmal[8]) then
   begin
    say(192,9,'Z DNA SOM VYBRALA ZHRDZAVENť Kś—€.');
    predm[11]:=true;predmal[8]:=true;zobrazpred;
   end else
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------izba4---------------------------}
  if izba=5 then
  begin
   if predmet<>'' then say(192,9,'TO †A’KO !!!');
  end else
  {--------------chodba1---------------------------}
  if izba=6 then
  begin
   if predmet<>'' then say(192,9,'TO †A’KO !!!');
  end else
  {--------------kuchy¤a---------------------------}
  if izba=7 then
  begin
   if (predmet='KORENIE')and(predmal[6]) then say(192,9,'U’ NECHCEM.') else
   if (predmet='KORENIE')and(not predmal[6]) then
   begin
    say(192,9,'TRO›KU KORENIA SI VEZMEM.');
    predmal[6]:=true;predm[9]:=true;zobrazpred;end else
    if predmet='STEHNO' then begin predm[7]:=true;
    predmal[4]:=true;zobrazpred;
    newspr('data\detail41');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------kabinet---------------------------}
  if izba=8 then
  begin
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------kabinet tma---------------------------}
  if izba=10 then
  begin
   if predmet<>'' then say(192,9,neber);
  end else
  {KABINET BORDEL}
  if izba=11 then
  begin
   if predmet='›ROBOVŹK' then begin predmal[9]:=true;
    predm[12]:=true;zobrazpred;newspr('data\detail51');zobraz;
   end else
   if predmet<>'' then say(192,9,neber);
  end else
  {-------------- kabinet - poklop --------------------------}
  if izba=13 then
  begin
   if predmet<>'' then say(192,9,neber);
  end else
  {-------------- ULICA --------------------------}
  if izba=15 then
  begin
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------PiVNICA-----------------------}
  if izba=14 then
  begin
   if (predmet='FśA›A')or(predmet='FśA›A'+#3) then
    say(192,9,'JE SKORO PRŹZDNA.') else
   if predmet='FśA›A' then begin
    predmal[11]:=true;predm[14]:=true;zobrazpred;
    newspr('data\pivnica');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------izba 5 telefon-----------------------}
  if izba=12 then
  begin
   if predmet<>'' then say(192,9,neber);
  end else
  {--------------izba 5---------------------------}
  if izba=9 then
  begin
   if predmet='Kś—€' then
   begin
    predm[16]:=true;predmal[13]:=true;
    zobrazpred;newspr('data\detail61');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
 end;
 if cast=2 then
 begin
  {--------------posch1-----------------------}
  if izba=1 then
  begin
   if predmet='PLAGŹT' then
   begin
    say(192,9,'NO NEVIEM, ALE SK—SIM TO ODRHN—†.');
    predm[19]:=true;predmal[1]:=true;newspr('data2\poschpla');
    zobrazcele;zobrazpred;
   end else
   if predmet='VSUNUTť PLAGŹT' then
   begin
    if (predmal[4])and(predmal[5])and(not predmal[7]) then
    begin
     say(192,9,'JUP‹. VY›LO TO !');predm[19]:=false;
     predmal[7]:=true;predmal[1]:=true;predmal[4]:=false;
     newspr('data2\poschpa2');zobrazcele;predm[20]:=true;zobrazpred;
    end else
    begin
     predm[19]:=true;predmal[1]:=true;predmal[4]:=false;
     newspr('data2\poschpa2');zobrazcele;zobrazpred;
    end;
   end else
   if predmet='DR~TIK' then
   begin
    if not predmal[16] then
    begin predmal[16]:=true;say(192,9,'NA€O BY MI BOL !');end else
    if (predmal[16])and(not predmal[17]) then begin
     predmal[17]:=true;say(192,9,'PROS‹M †A, VE… JE —PLNE ZBYTO€Nť.');end else
    if predmal[17] then begin say(192,9,'NO DOBRE.');
     predm[18]:=true;predmal[2]:=true;
     zobrazpred;newspr('data2\posch1dr');zobraz;end;
    end else
    if predmet<>'' then say(192,9,neber);
  end else
  {--------------poschod---------------------------}
  if izba=2 then
  begin
   if predmet='PAPIER' then
   begin
    predm[31]:=true;predmal[8]:=true;closewin;zobraz;
    newspr('data2\poschzac');loadspr('data2\zachode1');zobrazpred;zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------posch2---------------------------}
  if izba=3 then
  begin
   if predmet='NO’NICE' then
   begin predmal[12]:=true;predm[23]:=true;
   zobrazpred;newspr('data2\posch22');zobraz;
   end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------poschkup---------------------------}
  if izba=4 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------poschod2---------------------------}
  if izba=5 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------poschzac---------------------------}
  if izba=6 then
  begin
   if predmet='TOALETNť PAPIER' then begin
    loadspr('data2\zachodet');zobraz;end else
   if predmet='PAPIER' then
   begin
    predm[31]:=true;predmal[8]:=true;
    closewin;zobraz;newspr('data2\poschzac');
    loadspr('data2\zachode1');zobrazpred;zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------poschoby---------------------------}
  if izba=7 then
  begin
   if predmet='PENIAZE' then begin newspr('data2\trezor2');zobraz;
    predmal[20]:=true;predm[30]:=true;zobrazpred;end else
   if predmet<>'' then say(192,9,neber);
  end;
 {--------------poschkuc---------------------------}
 if izba=8 then
 begin
  if predmet='VťVRTKA' then begin predmal[10]:=true;predm[21]:=true;
   newspr('data2\kuchdet1');zobraz;zobrazpred;end else
  if predmet<>'' then say(192,9,neber);
 end;
  {--------------prizchod---------------------------}
  if izba=9 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------prizach---------------------------}
  if izba=10 then
  begin
   if predmet='HANDRA' then begin newspr('data2\prizach');zobraz;
    predmal[21]:=true;predm[34]:=true;zobrazpred;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------prizkuch---------------------------}
  if izba=11 then
  begin
   if predmet='N~’' then begin predmal[14]:=true;predm[29]:=true;
    zobrazpred;newspr('data2\prizkuch');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------prizjeda---------------------------}
  if izba=12 then
  begin
   if predmet='OBR—SOK' then begin predmal[15]:=true;predm[25]:=true;
    zobrazpred;newspr('data2\prizjeda');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------prizoby---------------------------}
  if izba=13 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------sutere02---------------------------}
  if izba=14 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------suteren---------------------------}
  if izba=15 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------sutere01---------------------------}
  if izba=16 then
  begin
   if predmet='HARABURDY' then
   begin closewin;zobraz;predm[26]:=true;predm[27]:=true;predm[28]:=true;
   zobrazpred;predmal[18]:=true;end else
   if predmet<>'' then say(192,9,neber);
  end;
  {--------------prizvcho---------------------------}
  if izba=17 then
  begin
   if predmet='KśU€KA' then
   begin predmal[11]:=true;predm[22]:=true;zobrazpred;
    newspr('data2\prizvcho');zobraz;end else
   if predmet<>'' then say(192,9,neber);
  end;
 end;
 if cast=3 then
 begin
  if izba=1 then
  begin
    if predmet<>'' then say(192,9,neber);
  end else
  {--------------poschod---------------------------}
  if izba=2 then
  begin
   if predmet<>'' then say(192,9,neber);
  end;
 end;
end;