akJe mojeMeno [

  vychod
  [
 pridKuMne
 hraOtvor "vieden
  ]
  
  krstitelnica
  [
 otocSaSem
 phovor "|Pekná krstiteľnica.|
  ]
  
  vitraze
  [
 otocSaSem
 phovor "|Vyzerá, že ich vytvoril slávny zahraničný umelec Aninnio!|
  ]
  
  mnich
  [
 pridKuMne
 akJe pozri "postupVoViedni 0 [
   2 3 [hovor "|Už pre mňa máš tie komentáre?|]
   8 9 10 [hovor "|Necítim sa dobre bez vlasov...|]
   [hovor "|Čo si žiadaš?|]
 ]
 urobTu "rozpravam "ano
 kym [:rozpravam] [
   akJe pozri "postupVoViedni 0 [
     1 [urobTu "ma [kutna |Prevlek|]]
     2 3 [urobTu "ma [list |Komentáre|]]
     7 [urobTu "ma [fuzy |Prevlek|]]
     [urobTu "ma []]
   ]
   urobTu "mz rozhovorVyber (veta :ma [koniec Koniec])
   akJe :mz [
     kutna [
       spracujDialog mojeMeno [
         stud  |Súrne potrebujem nejaký mníšsky oblek.|
         mnich |Kutňu? Náhodou tu mám jednu náhradnú.|
               |Ale nepožičiam ju náhodnému cudzincovi len tak.|
               |Najprv choď do univerzity a dones mi komentáre k druhému listu Tesalonijčanom|
               |od univerzitného teológa Huntpichlera.|
         stud  |Druhý list Tesaloničanom, Huntpichler.|
               |Myslím, že si to pamätám.|
       ]
       zvys "postupVoViedni
       urob "rozpravam "nie
     ]
     list [
       ignoruj [
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ;;;                                                              ;;;
       ;;; ak nema ziaden list, len sa este raz spyta, co mnich chcel.  ;;;
       ;;; ak ma nejaky list, ale ziaden spravne, spyta sa, ze ci toto  ;;;
       ;;;    je spravne, a mnich povie, ze nie, a zopakuje, co po      ;;;
       ;;;    studentovi chcel.                                         ;;;
       ;;; ak uz ma aspon jeden spravny list, mnich sa tvari podobne,   ;;;
       ;;;    ako ked ziaden nemas, ale nejak ti pomaha, ze nieco mas,  ;;;
       ;;;    ale este to nie je cele.                                  ;;;
       ;;; ak uz ma vsetky spravne, spyta sa, ze ci toto je spravne,    ;;;
       ;;;    a mnich povie, ze ano a zo studentovho inventara zmiznu   ;;;
       ;;;    vsetky listy a student ziska kutnu a "postupVoViedni"     ;;;
       ;;;    sa zvysi o 1                                              ;;;
       ;;;                                                              ;;;
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        --- koniec komentaru --- ]

       urobTu "solved [list21 list22 list23]

       urobTu "listy spisy'pocetListov
       urobTu "spravne 0
       prePrvky "z :predmety
         [ak prvok? :z :solved [zvys "spravne]]

       akJe :listy [
         0 [
           spracujDialog mojeMeno [
             stud  |Mohol by si mi zopakovať, čo potrebuješ?|
             mnich |Komentáre k druhému listu Tesaloničanom.|
                   |Tieto komentáre napísal slávny teológ,|
                   |ktorý sa volá Huntpichler.|
                   |Učí na Viedenskej univerzite.|
           ]
         ]
         1 [
           phovor "|Je toto ten správny list?|
           ak2 :spravne = 1 [
             hovor "|Hmm... Áno, toto *sú* komentáre ku druhému listu Tesaloničanom.|
             hovor "|Ale potrebujem všetky časti komentáru.|
             hovor "|Prines mi aj tie zvyšné.|
           ] [
             hovor "|Nie, potrebujem predsa Tesloničanov.|
           ]
         ]
           [
           phovor "|Sú toto tie správne listy?|
           akJe :spravne [
             0 [
               hovor "|Nie, potrebujem predsa druhý list Tesloničanom.|
             ]
             1 [
               hovor "|Áno, toto *sú* komentáre ku druhému listu Tesloničanom.|
               hovor "|Ale potrebujem všetky časti komentáru.|
               hovor "|Prines mi aj tie zvyšné.|
             ]
             2 [
               hovor "|Áno, toto *sú* komentáre ku druhému listu Tesloničanom.|
               hovor "|Ale nie sú celé. Prines mi aj zvyšné časti.|
             ]
             3 [
               spracujDialog mojeMeno [
                 mnich |Áno, toto je presne to, čo som potreboval!|
                       |Ďakujem... a tu máš ten oblek.|
                       |Komentáre ku druhému listu Tesaloničanom potom vrátim sám.|
                 stud  |Prečo hovoríš Tesaloničanom, keď sú to Solúnčania?!|
                 mnich |Ale veď to je predsa to isté!|
                       |Vyzeráš ako študent, ako to, že nepoznáš gréčtinu?|
               ]
               prePrvky "z :solved [urob "predmety bezVyskytov :z :predmety]
               zvys "postupVoViedni
               predmetZiskal "kutna
             ]
           ]
         ]
       ]
     ]
     fuzy [
       spracujDialog mojeMeno [
         stud  |Potrebujem nejaký prevlek na tvár.|
         mnich |Dobre... ale vrátiš mi tú kutňu.|
           [predmetStratil "kutna]
         stud  |Čo takto falošná brada?|
         mnich |No dobre... a keď tak veľmi chceš, vezmi si aj parochňu.|
           [predmetZiskal "fuzy]
       ]
       zvys "postupVoViedni
     ]
     koniec [
       phovor "|Do videnia.|
       urob "rozpravam "nie
     ]
   ]
 ]
 odidOdoMna
  ]

]