akJe mojeMeno [ vychod1 vychod2 [ pridKuMne urob "katOdisiel 0 hraOtvor "bratislava ukonci ] koza [ otocSaSem phovor "|Aha, Milka!| ] obchodnik [ pridKuMne hovor "|Vitajte v mojom novom obchode!| ak 0 = pozri "hovorilSObchodnikom 0 [ spracujDialog mojeMeno [ |Mám tu všetko možné - od palíc cez hrable k obrazom!| |Naozaj, teraz tu mám vzácny originál,| |ktorý som získal od anonymného maliara.| |Zobrazuje krásnu krčmárku u Zlatej husi| |a stojí púhych 5 strieborniakov!!!| ] urob "hovorilSObchodnikom 1 ] urobTu "rozpravam "ano urobTu "n 0 kym [:rozpravam] [ urobTu "l pozri "kupitPohare 0 urobTu "oa ak2 alebo (1 = :l) (2 = :l) [[pohare |Poháre|]][[]] urobTu "ob ak2 zaroven (2 > pozri "hovorilSObchodnikom 0) (:n >= 0) [[krcmarka |Obraz|]][[]] urobTu "oz rozhovorVyber (veta :oa :ob [koniec Koniec]) akJe :oz [ pohare [ phovor "|Potrebujem tri poháre.| hovor "|Jeden pohár stojí strieborniak.| ak2 :zlato < 3 [ phovor "|Škoda, toľko nemám.| hovor "|Tak to vám neviem poradiť.| urob "rozpravam "nie ] [ phovor "|Tu sú.| zvysZlato -3 hovor "|A tu sú poháre.| predmetZiskal "pohare urob "kupitPohare 3 ] ] krcmarka [ ak2 :l < 3 [ phovor "|Obraz je krásny, ale nemám naň.| hovor "|Čo už, ale určite príďte, keď sa to zmení.| urobTu "n -1 ] [ akJe :n [ 0 [ phovor "|Obraz je krásny, ale nemám naň.| hovor "|Čo už, ale určite príďte, keď sa to zmení.| ] 1 [ spracujDialog mojeMeno [ stud |Nepredali by ste mi ten obraz?| obchodnik |Myslím, že ste mi pred chvíľou povedali,| |že nemáte dosť peňazí.| stud |Mal som na mysli za zníženú cenu,| |veď som stály zákazník.| obchodnik |Nie veru, to nepôjde.| ] ] 2 [ spracujDialog mojeMeno [ stud |Naozaj chcem ten obraz...| obchodnik |Vzdych... ak prestanete otravovať,| |predám vám ho za 4 strieborniaky.| stud |To je veľa. Jeden.| obchodnik |Jeden???!!!| |Nie, pod štyri strieborniaky neklesnem.| ] ] 3 [ spracujDialog mojeMeno [ stud |O tom obraze...| obchodnik |Myslel som, že sme dohovorili!| |Vzdych... tak dobre, tri strieborniaky.| stud |Dva strieborniaky.| obchodnik |Nie, za menej ako polovicu pôvodnej ceny ho nepredám.| ] ] 4 [ spracujDialog mojeMeno [ stud |Určite ten obraz chcete predať.| obchodnik |Áno, ale dva strieborniaky sú málo.| stud |Nejako sa určite dohodneme.| obchodnik |Pod tri strieborniaky naozaj neklesnem.| ] ] 5 [ phovor "|Navrhujem vám dva strieborniaky.| hovor "|Máte vôbec dva strieborniaky?| ak2 :zlato < 2 [ phovor "|Máte pravdu, nemám.| hovor "|Tak čo chcete?| urobTu "n -2 ] [ phovor "|Áno, ale viac neponúknem.| hovor "|Prestaňte už otravovať! Nepredám a hotovo!| ] ] 6 [ spracujDialog mojeMeno [ stud |Predajte mi ten obraz.| obchodnik |Nie.| stud |Predajte mi ten obraz.| obchodnik |Nie.| stud |Predajte mi ten obraz.| obchodnik |Nie!| stud |Predajte mi ten obraz.| obchodnik |NIE!| stud |Predajte mi ten obraz.| [cakaj 3000] obchodnik |Tak dobre. Tu máte.| ] predmetZiskal "obraz zvysZlato -2 urobTu "n -2 urob "hovorilSObchodnikom 2 ] ] zvys "n ] ] koniec [ phovor "|Do videnia.| urob "rozpravam "nie ] ] ] odidOdoMna ] sibenica [ ak2 1 = (pozri "katOdisiel 0) [ otocSaSem phovor "|Aha, tam je ďalší povraz!| phovor "|Ale tam predsa nedokážem doskočiť!| phovor "|A okrem toho...| ] [ otocSaSem ak2 1 = (pozri "zobralPovraz 0) [ phovor "|Odtiaľto som zobral...| pre "kat [hovor "|Čo vravíte? Nepočujem vás!|] phovor "|pssst!| ] [ phovor "|Hmmm... na to radšej nemyslieť.| ] ] ] stanok [ otocSaSem phovor "|Tento kupec tu predáva rôzny tovar.| ] voz [ otocSaSem ak2 1 = (pozri "katOdisiel 0) [ ignoruj [ ;;;;; ZACIATOK ANIMACIE ;;;;; ] ignoruj [ --- tu zacinaju nastavenia bodov --- ] urobTu "cak :rychlostPohybu * (25/7) urobTu "zqq [ [-110 -195] [-110 -185] [-110 -175] [-110 -165] [-110 -155] [-110 -145] [-110 -135] [-110 -125] [-110 -115] [-110 -105] [-110 -95] [-110 -85] [-106.58 -75.031] [-99.5087 -68.532] [-92.4377 -61.4609] [-83.0407 -58.0407] [-73.1927 -59.7772] [-63.7957 -63.1974] [-55.1355 -68.1974] [-47.475 -74.6253] [-44.975 -78.9554] ] urobTu "zqp [ [-44.975 -78.9554] [-44.975 -68.9554] [-44.975 -58.9554] [-44.975 -48.9554] [-47.5632 -39.2961] [-50.9834 -29.8992] [-55.9834 -21.239] [-63.0545 -14.1679] [-70.7149 -7.74002] [-79.778 -3.51383] [-89.1749 -0.0936335] [-99.1749 -0.0936335] [-107.835 -5.09363] [-113.571 -13.2852] [-118.571 -21.9454] [-121.991 -31.3423] [-124.579 -41.0016] [-127.168 -50.6609] [-129.756 -60.3201] [-131.492 -70.1682] [-133.229 -80.0163] [-134.1 -89.9782] [-134.972 -99.9402] [-135.843 -109.902] [-135.843 -119.902] [-135.843 -129.902] [-135.843 -139.902] [-135.843 -149.902] [-135.843 -159.902] [-135.843 -169.902] ] ignoruj [ --- tu koncia nastavenia bodov --- ] pre "student [ nechPoz startPoz hovor "|Hmmm... to by išlo...| nechSmer 1 prePrvky "s :zqq [nechPoz :s cakaj :cak] nechSmer -1 prePrvky "s :zqp [nechPoz :s cakaj :cak ak poc = 10 [sibenica'nechZaber 2]] odid ] cakaj 200 phovor "|Ako sa mi to podarilo?!| pre "furman2 [hovor "|Ako to mám vedieť?|] furman2'nechSmer 1 pre "furman1 [hovor "|Máte asi nejaké nadprirodzené schopnosti.|] furman2'nechSmer -1 urob "zobralPovraz 1 predmetZiskal "povraz ignoruj [ ;;;;; KONIEC ANIMACIE ;;;;; ] ] [ phovor "|Obyčajný voz.| ] ] kat [ ak2 zaroven (3 = pozri "hovorilSFurmanmi 0) (0 = zvysok (pozri "hovorilSKatom 0) 2) [ pridKuMne phovor "|Nemohol by ste prosím vyčistiť žumpu -| hovor "|Ja už žiadne žumpy čistiť nemienim!| phovor "|tomu furmanovi tamto?| hovor "|Vy snáď žartujete!| hovor "|Nikdy!| phovor "|Ale ide o vašu dcéru!| hovor "|Vy niečo určite vymyslíte, túto žumpu ja teda rozhodne čistiť nemienim.| odidOdoMna phovor "|Hmmm... budem musieť vymyslieť iný spôsob.| urob "hovorilSKatom 1 + (pozri "hovorilSKatom 0) ] [ ak2 3 = (pozri "fazaHry 1) [ pridKuMne hovor "|Našiel ste nejakú stopu?| ak2 zaroven (1 = pozri "zistilKamUniesli 0) ((pozri "hovorilSKatom 0) < 2) [ pre :postava [ hovor "|Hmmm... ten lekárnik vyzerá veľmi podozrivo.| hovor "|A Katarína asi bola unesená do Viedne.| ] hovor "|Zaujímavé.| urob "hovorilSKatom 2 + (pozri "hovorilSKatom 0) ] [ phovor "|Nič nové som neobjavil.| ] odidOdoMna ] [ otocSaSem phovor "|K nemu sa radšej nepribližovať...| ] ] ] furman1 [ pridKuMne akJe pozri "hovorilSFurmanmi 0 [ 0 [ hovor "|Dobrý deň, čo by ste potrebovali?| urobTu "fa ak2 (1 = pozri "fazaHry 1) [[dcera |Láska|]][[]] urobTu "fb ak2 (1 = pozri "zistilKamUniesli 0) [[presun |Viedeň|]][[]] urobTu "fz rozhovorVyber (veta :fa :fb [koniec Koniec]) akJe :fz [ dcera [ phovor "|Chcel by som vyznať istému dievčaťu lásku, ale neviem, ako to urobiť.| hovor "|Neviem, ale skúste sa spýtať katovej dcéry.| ] presun [ phovor "|Potreboval by som cestovať.| furman2'scena ] koniec [ phovor "|Do videnia!| hovor "|Zastavte sa aj nabudúce!| ] ] ] 1 [ hovor "|Máte už 10 strieborniakov?| urobTu "fz rozhovorVyber [peniaze |Zľava| koniec Koniec] akJe :fz [ peniaze [ spracujDialog mojeMeno [ stud |10 strieborniakov je stále priveľa.| |Nemohlo by to byť ešte menej?| furman1 |Hmmm...| |Hmmmmmm...| |Hmmmmmmmmm...| |Tak dobre, dávam vám špeciálnu 90% zľavu z pôvodnej taxy,| |ale potom budem od vás chcieť, aby ste splnili aj úlohu, ktorú vám poviem. Dohodnutí?| stud |Dohodnutí.| ] zvys "hovorilSFurmanmi ] koniec [ phovor "|Do videnia!| hovor "|Zastavte sa aj nabudúce!| ] ] ] 2 [ hovor "|Máte už 5 strieborniakov?| akJe pozri "zlato 0 [ 0 [ urobTu "fz rozhovorVyber [peniaze |Zárobok| koniec Koniec] akJe :fz [ peniaze [ pre :postava [ hovor "|Som na mizine.| hovor "|Neviete, kde sa dajú zarobiť peniaze?| ] hovor "|Neviem, skúste sa popýtať v meste.| ] koniec [ phovor "|Ešte nie, ale snažím sa.| hovor "|Keď ich budete mať, príďte za mnou.| ] ] ] 1 2 3 4 [ phovor "|Ešte nie, ale snažím sa.| hovor "|Keď ich budete mať, príďte za mnou.| ] 5 [ spracujDialog mojeMeno [ stud |Áno, tu sú.| furman1 |Ďakujem.| [zvysZlato -5] |Teraz pozorne počúvajte.| |Dám vám úlohu, ktorou si zaslúžite celú tú zľavu.| |Viete, na mojom dome sa upchala žumpa,| |a viete si predstaviť, ako to páchne.| |Naneštastie, kat ju nechce vyčistiť,| |pretože som mu raz doručil miesto| |suchozemského prasaťa morské prasa.| stud |Aha.| furman1 |Neviem, ako to chcete zariadiť, ale| |keď budem mať čistú žumpu, odveziem vás,| |kamkoľvek chcete.| stud |Čo všetko človek neurobí...| |No dobre, súhlasím. Ale netuším, ako.| ] urob "hovorilSFurmanmi 3 ] ] ] 3 [ hovor "|Dobrý deň. Ako pokračujete so žumpou?| phovor "|Pracujem na tom.| hovor "|To rád počujem.| ] 4 [ spracujDialog mojeMeno [ furman1 |Dobrý deň. Veľmi ďakujem za to, že ste kata nakoniec presvedčili.| |Ale vysvetlite mi, prečo celý čas tak hlučne volal:| |Katarína! Moja Katarína! Kde si??!!| stud |Občas si pri práci spieva o svojej dcére.| furman1 |Aha. Chápem.| [cakaj 500] |Dobre, môžeme odísť.| ] urob "fazaHry 4 hraOtvor "cesta ] ] odidOdoMna ] furman2 [ pridKuMne akJe pozri "hovorilSFurmanmi 0 [ 0 [ hovor "|Dobrý deň. Čo chcete?| urobTu "fa ak2 (1 = pozri "zistilKamUniesli 0) [[presun |Viedeň|]][[]] urobTu "fz rozhovorVyber (veta :fa [koniec Koniec]) akJe :fz [ presun [ phovor "|Potreboval by som cestovať.| scena ] koniec [ phovor "|Do videnia.| hovor "|Zastavte sa aj nabudúce.| ] ] ] [ hovor "|Zmenili ste názor?| phovor "|Nie, do Ostrihomu teraz ísť nepotrebujem.| hovor "|Ako chcete, ale ak predsa, viete, kde ma nájdete.| ] ] odidOdoMna ] pes [ otocSaSem phovor "|Je priviazaný o šibenicu.| ] pespovraz [ ak2 alebo (2 <> pozri "fazaHry 1) (1 = pozri "zobralPovraz 0) [ otocSaSem phovor "|Obyčajný povraz.| ] [ otocSaSem pre :postava [ hovor "|Možno by sa mi mohol hodiť pre Katarínu...| hovor "|Dúfam, že sa nikto nenahnevá.| ] pridKuMne phovor "|Teraz ten povraz jednoducho zoberiem...| skry odstartuj [phovor "|Do hája! Ten pes sa uvoľnil!| odidOdoMna] pre "pes [prid vychod1'pozPriMne2 skry] pre "kat [ hovor "|Ach jaj... teraz ho budem musieť chytiť...| prid vychod1'pozPriMne2 skry ] phovor "|Hmmm... aspoň že kat odišiel. To by sa mohlo hodiť.| urob "katOdisiel 1 ukonci ] ] ] ak 1 = (pozri "katOdisiel 0) [ cakaj 200 vychod1'otocSaSem phovor "|Kat sa už vracia...| pre "pes [nechPoz vychod1'pozPriMne2 ukaz odid cakaj 100 nechSmer 180] pre "kat [nechPoz vychod1'pozPriMne2 ukaz odid] pre "kat [hovor "|Budeš tu, ty potvora!|] pespovraz'ukaz urob "katOdisiel 0 ak 1 = (pozri "zobralPovraz 0) [ cakaj 200 pre "kat [hovor "|Hmmm... prisahal by som, že pred chvíľou na tej šibenici určite bola slučka!|] ] ]