ignoruj [ --- bez skrytia vsetkych nadob to Imagine rychlostovo nezvlada --- ]
urobTu "z filtruj [zaroven ("nadoba = prvok [1 6] :%) (:% <> mojeMeno)] stranka1'vsetkyOd "slefa.dead
preKazdu :z [skry]

ignoruj [ --- zakladne objekty (vsetko okrem nadob) su tu --- ]

akJe mojeMeno [

  vychod
  [
 pridKuMne
 phovor "|Katarína je určite niekde tu, musím ju zachrániť!         |
 odidOdoMna
  ]
  
  trezor
  [
 pridKuMne
 phovor "|Tam určite bude bude Katarína!|
 phovor "|Nanešťastie sú tu tri zámky.|
 odidOdoMna
  ]
  
  kluc
  [
 pridKuMne
 cakaj 50
 skry
 predmetZiskal "kluc1
 cakaj 50
 odidOdoMna
  ]
  
  pacidlo
  [
 pridKuMne
 phovor "|Taký pracovný nástroj...|
 predmetZiskal "pacidlo
 skry
 odidOdoMna
  ]
  
  rohozka
  [
 pridKuMne
 ak2 1 = (pozri "zobralKluc2 0) [
   phovor "|Obyčaná rohožka.|
 ] [
   phovor "|Aha, pod tým je kľúč!|
   predmetZiskal "kluc2
   urob "zobralKluc2 1
 ]
 odidOdoMna
  ]
  
  stol
  [
 otocSaSem
 phovor "|Že by lekárnikov operačný stôl??|
  ]
  
  kniha1
  [
 pridKuMne
 akJe pozri "pozrelSiKnihu 0 [
   0 [
     phovor "|"Výroba profesionálnych liekov".|
     phovor "|Čo v tom asi môžu písať?|
     urob "pozrelSiKnihu 1
   ]
   1 [
     phovor "|Aha, medzi stranami je skrytý kľúč!|
     predmetZiskal "kluc3
     urob "pozrelSiKnihu 2
   ]
   2 [
     phovor "|"Výroba profesionálnych liekov".|
   ]
 ]
 odidOdoMna
  ]
  
  kniha2
  [
 pridKuMne
 phovor "|"Register lekárnickych polotovarov".|
 odidOdoMna
  ]
  
  vaza
  [
 otocSaSem
 ak2 1 = (pozri "zobralKluc4 0) [
   phovor "|Prázdna váza.|
 ] [
   phovor "|Vo váze je ukrytý kľúč.|
   predmetZiskal "kluc4
   urob "zobralKluc4 1
 ]
  ]
  
  metla
  [
 pridKuMne
 phovor "|Lekárnikova metla.|
 phovor "|S tým sa čistí podlaha.|
 odidOdoMna
  ]
  
  lopatka
  [
 pridKuMne
 ak2 1 <> (pozri "zobralKluc5 0) [
   phovor "|Lekárnikova lopatka.|
   phovor "|S tým sa čistí podlaha.|
   urob "zobralKluc5 1 + (pozri "zobralKluc5 0)
 ] [
   phovor "|Aha, za lopatkou bol kľúč!|
   predmetZiskal "kluc5
   zvys "zobralKluc5
 ]
 odidOdoMna
  ]
  
  zamok1
  zamok2
  zamok3
  [
 pridKuMne
 ak2 1 = (pozri slovo "odomkol mojeMeno 0) [
   akJe mojeMeno [
     zamok1 [phovor "|Tento zámok som už odomkol.|]
     zamok2 [phovor "|Tento zámok som už vypáčil.|]
     zamok3 [phovor "|Tento zámok som už odomkol.|]
   ]
 ] [
   phovor "|Tento zámok je zamknutý.|
   phovor "|Mal by som pohľadať nejaký kľúč.|
 ]
 odidOdoMna
  ]
  
  klinec1
  klinec2
  [
 otocSaSem
 phovor "|Klinec v podlahe.|
  ]
  
  byliny
  [
 otocSaSem
 phovor "|Lekárnikove byliny.|
 phovor "|Táto lekáreň očividne nie je dokončená,|
 phovor "|veď v Bratislave mal byliniek omnoho viac.|
  ]

]

ignoruj [ --- tuto zacina skriptovanie nadob --- ]

ak "nadoba <> (prvok [1 6] mojeMeno) [preKazdu :z [ukaz] ukonci]

urobTu "kluc 0

akJe bezPozicie [1 6] mojeMeno [

  b12 [urobTu "kluc 6]
  a13 [urobTu "kluc 7]
  b33 [urobTu "kluc 8]
  a21 [urobTu "kluc 9]
  b37 [urobTu "kluc 10]
  a52 [urobTu "kluc 11]
  
  b64
  [
 pridKuMne
 akJe (pozri "zobralKluc12 0) [
   0 [
     phovor "|V nádobe bol ukrytý kľúč!|
     predmetZiskal "kluc12
     urob "zobralKluc12 1
   ]
   2 [
     phovor "|Za nádobou bol ukrytý kľúč!|
     predmetZiskal "kluc13
     zvys "zobralKluc12
   ]
     [
     phovor "|Táto nádoba je prázdna.|
     ak 0 = (pozri "prazdnaLekaren 0) [
       phovor "|Lekáreň je tu asi iba krátko.|
       urob "prazdnaLekaren 1
     ]
     zvys "zobralKluc12
   ]
 ]
 odidOdoMna
  ]
    
  [
 pridKuMne
 phovor "|Táto nádoba je prázdna.|
 ak 0 = (pozri "prazdnaLekaren 0) [
   phovor "|Lekáreň je tu asi iba krátko.|
   urob "prazdnaLekaren 1
 ]
 odidOdoMna
  ]
  
]

ak :kluc = 0 [preKazdu :z [ukaz] ukonci]

pridKuMne
ak2 1 = (pozri slovo "zobralKluc :kluc 0) [
  phovor "|Táto nádoba je prázdna.|
] [
  phovor "|V nádobe bol ukrytý kľúč!|
  predmetZiskal slovo "kluc :kluc
  urob slovo "zobralKluc :kluc 1
]
odidOdoMna

preKazdu :z [ukaz]