home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / posuk / POSUK.SGP < prev    next >
Text File  |  1997-10-31  |  65KB  |  1,997 lines
  1. SGPC   5.00 S#340326  3.01.1997 15:00:44                                        StructNo 0   0
  2. # include <sgpbalt.h>
  3.  
  4. /*-hf(*/
  5. /*-hf-*/
  6. void KROK( int a,b,c,d,v,w,x,y,z,u )
  7. /*-hf-*/;
  8. void SKOK( int a,b,c,d,v,x,y )
  9. /*-hf-*/;
  10. void OTAZN╓K( int x,y,R5 )
  11. /*-hf-*/;
  12. void N╪jak∞PⁿEDM╖T( int P²edm╪t,b,y,R )
  13. /*-hf-*/;
  14. void BOMBON( int x,y )
  15. /*-hf-*/;
  16. void PONOªKA( int x,y,Opakování )
  17. /*-hf-*/;
  18. void SEBR╡N╓( int x,y,R6 )
  19. /*-hf-*/;
  20. void HodµUTREM( int x,y,a,b,RozbitíSkla,Bombon,P²edm╪t,R2,R3,R5,R6 )
  21. /*-hf-*/;
  22. void ¼IN¼ILA( int x,y,R6 )
  23. /*-hf-*/;
  24. void VYΘ¼TOV╡N╓( int a,b,O,PoƒetOvl,PoƒetKar,Pozice )
  25. /*-hf-*/;
  26. void EXIT( int Exit,R,a,x,y)
  27. /*-hf-*/;
  28. void BANKOMAT( int a,b,x,y,Klávesa,Opakování,¼ástka,Pozice )
  29. /*-hf-*/;
  30. void OTEVⁿEN╓( int x,y )
  31. /*-hf-*/;
  32. void OTR╡VEN╓( int Opakování,x,y )
  33. /*-hf-*/;
  34. void VφTAH( int R2,R6 )
  35. /*-hf-*/;
  36. void KONEC( int x,y,Klávesa )
  37. /*-hf-*/;
  38. void ΘVOD( int Pozice )
  39. /*-hf-*/;
  40. void Z╡V╖R( int x,y,a,Pozice,R,
  41.             long Peníze )
  42. /*-hf-*/;
  43. /***** hlavní program *****/
  44. void main( void )
  45. /*-hf)*/;
  46. ;-h---------------------------------------------------------------------------
  47. /***** globální prom╪nné *****/
  48.  
  49. ;-h---------------------------------------------------------------------------
  50. void KROK( int a,b,c,d,v,w,x,y,z,u )
  51. -s--KROK                                                                        ■  14  -2 -10 259
  52.               KROK
  53.       X:(a,x,y)!
  54.           W:(v)!
  55.       X:(b,x,y)!
  56.           W:(v)!
  57.       X:(c,x,y)!
  58.           W:(v)!
  59.       X:(d,x,y)!
  60.           W:(w)!
  61.       X:(a,z,u)!
  62. X:(¼tverec,x,y)!
  63. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  64.  
  65. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  66. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  67.  
  68. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  69.  
  70. =SP---------------------------------------------------------------------------
  71.  
  72. ;-h---------------------------------------------------------------------------
  73. void SKOK( int a,b,c,d,v,x,y )
  74. -s--SKOK                                                                        ■  18  -2   0   3
  75.                         SKOK
  76.                        DOSKOK
  77.                 X:(d,x,y)!
  78.                     W:(v)!
  79.                 X:(c,x,y)!
  80.                     W:(v)!
  81.                 X:(b,x,y)!
  82.                     W:(v)!
  83.                 X:(a,x,y)!
  84.                     W:(v)!
  85. -o1-SKOK  operace
  86.  
  87. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  88. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  89.  
  90. -c1-SKOK  podmínky  /=if *=while #=for          p²íklad pouºití
  91.  
  92. =SP-SKOK
  93.  
  94.  
  95. ;-h---------------------------------------------------------------------------
  96. void OTAZN╓K( int x,y,R5 )
  97. -s--OTAZN╓K                                                                     ■   8  -2   0   3
  98.                         OTAZN╓K
  99.             ___________Natoƒen...__________
  100.           Doleva                       Doprava
  101.             /l                            /p
  102.          Otázka1                       Otázka2
  103.            l!                            p!
  104. -o1-OTAZN╓K  operace
  105.  
  106. l ; ???, chyba, Poτuk nechápe...
  107.   ¼ekej(100);
  108.   ¼arujNaPozici(72,x,y);
  109.   ¼ekej(R5);
  110.   ¼arujNaPozici(73,x,y);
  111.   ¼ekej(R5);
  112.   ¼arujNaPozici(72,x,y);
  113.   ¼ekej(R5);
  114.   ¼arujNaPozici(16,x,y);
  115.   ¼ekej(R5);
  116.  
  117. p ; ???, chyba, Poτuk nechápe...
  118.   ¼ekej(100);
  119.   ¼arujNaPozici(74,x,y);
  120.   ¼ekej(R5);
  121.   ¼arujNaPozici(75,x,y);
  122.   ¼ekej(R5);
  123.   ¼arujNaPozici(74,x,y);
  124.   ¼ekej(R5);
  125.   ¼arujNaPozici(21,x,y);
  126.   ¼ekej(R5);
  127.  
  128. -c1-OTAZN╓K  podmínky  /=if *=while #=for          p²íklad pouºití
  129.  
  130. /l P²edm╪tNaPozici(x,y) Je 16
  131. /p P²edm╪tNaPozici(x,y) Je 21
  132.  
  133. =SP-OTAZN╓K
  134.  
  135.  
  136. ;-h---------------------------------------------------------------------------
  137. void N╪jak∞PⁿEDM╖T( int P²edm╪t,b,y,R )
  138. -s--N╪jak∞PⁿEDM╖T                                                               ■  28  -2   9   3
  139.                         N╪jak∞PⁿEDM╖T
  140.                            N╡HODNÉ
  141.                             ¼╓SLO
  142.                              n!
  143.               _____________JAKφ...___________________________________________________
  144.               /0             /1                /2               /3                  /4
  145.            PONOªKA        ¼IN¼ILA            BOMBON          OVLADA¼              KARTA
  146. oX:(24,b,y)!e       oX:(34,b,y)!e   oX:(31,b,y)!e    oX:(22,b,y)!e       oX:(23,b,y)!e
  147. -o1-N╪jak∞PⁿEDM╖T  operace
  148.  
  149. e BezObláƒku()
  150. n P²edm╪t=(Náhodné¼íslo(5));
  151. o SObláƒkem();
  152.   RychlostBaltazara(R);
  153. X ¼arujNaPozici
  154.  
  155. -c1-N╪jak∞PⁿEDM╖T  podmínky  /=if *=while #=for          p²íklad pouºití
  156.  
  157. /0 P²edm╪t==0
  158. /1 P²edm╪t==1
  159. /2 P²edm╪t==2
  160. /3 P²edm╪t==3
  161. /4 P²edm╪t==4
  162.  
  163. =SP-N╪jak∞PⁿEDM╖T
  164.  
  165. ;-h---------------------------------------------------------------------------
  166. void BOMBON( int x,y )
  167. -s--BOMBON                                                                      ■   2  -2  -8 259
  168.                 BOMBON
  169.                Sáhnutí
  170.            W:(100)!
  171.         X:(14,x,y)!
  172.            W:(200)!
  173.         X:(15,x,y)!
  174.            W:(200)!
  175.         X:(14,x,y)!
  176.            W:(500)!
  177.              Rozbalování
  178.      X:(121,x+1,y)!
  179.     cX:(122,x+1,y)!
  180.     cX:(123,x+1,y)!
  181.     cX:(124,x+1,y)!
  182.     cX:(125,x+1,y)!
  183.            W:(500)!
  184.           Jiº_rozbalen_padá
  185.      X:(126,x+1,y)!
  186.     cX:(127,x+1,y)!
  187.     cX:(128,x+1,y)!
  188.            W:(500)!
  189.                Zmaƒkání
  190.               a_vyhození
  191.                 papíru
  192.      X:(129,x+1,y)!
  193.     cX:(130,x+1,y)!
  194.     cX:(131,x+1,y)!
  195.     cX:(132,x+1,y)!
  196. cX:(¼tverec,x+1,y)!
  197.            W:(500)!
  198.            Obnovení_Poτuka
  199.             aby_neusnul...
  200.         X:(21,x,y)!
  201. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  202.  
  203. c ¼ekej(100);
  204. W ¼ekej
  205. X ¼arujNaPozici
  206.  
  207. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  208.  
  209. =SP---------------------------------------------------------------------------
  210.  
  211. ;-h---------------------------------------------------------------------------
  212. void PONOªKA( int x,y,Opakování )
  213. -s--PONOªKA                                                                     ■  68  -2  77 259
  214.          PONOªKA
  215.      W:(100)!
  216.   X:(14,x,y)!
  217.      W:(200)!
  218.   X:(15,x,y)!
  219.      W:(200)!
  220.   X:(14,x,y)!
  221.      W:(500)!
  222.         Opakování___________________________________________________________________________________________________________
  223.          T²epání                  P²em╪na_ponoºky            Smrad                   Omámení_Poτuka                  Zmizení_Poτuka
  224.             #N:(Opakování,5)          na_smrad                 #N:(Opakování,5)         smradem                      W:(100)!
  225.        T²epající_se             oX:(27,x+1,y)!            Kroutící_se                      #N:(Opakování,5) oX:(¼tverec,x,y)!
  226.          ponoºka                     eW:(300)!               smrad                   Oƒima_koulící                       Naƒtení
  227. X:(25,x+1,y)!                                      X:(26,x+1,y)!                X:(119,x,y)!                           prvního_kola
  228.      W:(300)!                                           W:(300)!                    W:(200)!           :NaƒtiScénu("*\\posuk.s01")!
  229. X:(24,x+1,y)!                                      X:(27,x+1,y)!                X:(118,x,y)!
  230.      W:(300)!                                           W:(300)!                    W:(200)!
  231.                                                                                 X:(120,x,y)!
  232.                                                                                     W:(200)!
  233.                                                                                   X:(3,x,y)!
  234.                                                                                     W:(200)!
  235. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  236.  
  237. e BezObláƒku()
  238. o SObláƒkem()
  239. W ¼ekej
  240. X ¼arujNaPozici
  241.  
  242. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  243.  
  244. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  245.     Od0
  246.  
  247. =SP---------------------------------------------------------------------------
  248.  
  249. ;-h---------------------------------------------------------------------------
  250. void SEBR╡N╓( int x,y,R6 )
  251. -s--SEBR╡N╓                                                                     ■  16  -2 -10 259
  252.               SEBR╡N╓
  253.           W:(100)!
  254.       X:(104,x,y)!
  255.            W:(R6)!
  256.       X:(105,x,y)!
  257.            W:(R6)!
  258.       X:(104,x,y)!
  259. X:(¼tverec,x+1,y)!
  260.           W:(500)!
  261.                Skovej
  262.                pytlík
  263.        X:(21,x,y)!
  264. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  265.  
  266. W ¼ekej
  267. X ¼arujNaPozici
  268.  
  269. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  270.  
  271. =SP---------------------------------------------------------------------------
  272.  
  273. ;-h---------------------------------------------------------------------------
  274. void HodµUTREM( int x,y,a,b,RozbitíSkla,Bombon,P²edm╪t,R2,R3,R5,R6 )
  275. -s--HodµUTREM                                                                   ■   2  -2  -3 259
  276.                 HodµUTREM________
  277.                     /5          /6
  278.                  ROZMACH      Otázka
  279.           X:(5,x,y)!           o!
  280.              W:(R5)!
  281.           X:(6,x,y)!
  282.              W:(R5)!
  283.           X:(5,x,y)!
  284.              W:(R2)!
  285.                   LET
  286.                  µUTRU
  287.           X:(7,x,y)!
  288.              W:(R2)!
  289.                  :a=x+1
  290.                  :b=x+2
  291.          X:(32,a,y)!
  292.          X:(21,x,y)!
  293.              W:(R2)!
  294.         ________ROZBIT╓___________________________________________________________________________
  295.         /v                     /z                  /r                    /p                      /
  296.       V∞lohy                  Zdi               Rozbité                Pàlky                   SPADNI
  297.    ROZB╓T╓_1,2         ____Bonbon...              zdi                   zdi            X:(33,a,y)!
  298.        n!              /3         /4          _Bonbon...          ___Bonbon...            W:(800)!
  299.   ___JAKÉ...         Rozbij      Uraº         /3      /4          /3        /4    X:(¼tverec,a,y)!
  300.   /1       /2          ji       pàlku       Prole£   Zbo²       Nezbo²  Zlikviduj
  301. TAKOVÉ   MAKOVÉ       r!         u!          p!      z!          e!        l!
  302. va!      wa!
  303. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  304.  
  305. a N╪jak∞PⁿEDM╖T(P²edm╪t,b,y,R3);
  306. e ¼arujNaPozici(43,b,y);
  307.   ¼arujNaPozici(¼tverec,a,y);
  308.   ¼ekej(R2);
  309.   ¼arujNaPozici(36,b,y);
  310.   ¼ekej(500);
  311.  
  312. l ¼arujNaPozici(43,b,y);
  313.   ¼arujNaPozici(¼tverec,a,y);
  314.   ¼ekej(R2);
  315.   ¼arujNaPozici(¼tverec,b,y);
  316.   ¼ekej(500);
  317.  
  318. n RozbitíSkla=(Náhodné¼íslo(2));
  319. o OTAZN╓K(x,y,R5)
  320. p ¼arujNaPozici(42,b,y);
  321.   ¼arujNaPozici(¼tverec,a,y);
  322.   ¼ekej(R2);
  323.   ¼arujNaPozici(41,b,y);
  324.   ¼ekej(500);
  325.  
  326. r ¼arujNaPozici(39,b,y);
  327.   ¼arujNaPozici(¼tverec,a,y);
  328.   ¼ekej(R2);
  329.   ¼arujNaPozici(40,b,y);
  330.   ¼ekej(R6);
  331.   ¼arujNaPozici(41,b,y);
  332.   ¼ekej(500);
  333.  
  334. t Tón(65);
  335.   ¼ekej(100);
  336.   VypniTón();
  337.  
  338. u ¼arujNaPozici(39,b,y);
  339.   ¼arujNaPozici(¼tverec,a,y);
  340.   ¼ekej(R6);
  341.   ¼arujNaPozici(43,b,y);
  342.   ¼ekej(R2);
  343.   ¼arujNaPozici(36,b,y);
  344.   ¼ekej(500);
  345.  
  346. v ¼arujNaPozici(47,b,y);
  347.   ¼arujNaPozici(¼tverec,a,y);
  348.   ¼ekej(R2);
  349.   ¼arujNaPozici(48,b,y);
  350.   ¼ekej(R2);
  351.   ¼arujNaPozici(49,b,y);
  352.   ¼ekej(R2);
  353.   ¼arujNaPozici(50,b,y);
  354.   ¼ekej(R2);
  355.   ¼arujNaPozici(51,b,y);
  356.   ¼ekej(R2);
  357.   ¼arujNaPozici(52,b,y);
  358.   ¼ekej(R2);
  359.   ¼arujNaPozici(53,b,y);
  360.   ¼ekej(500);
  361.  
  362. w ¼arujNaPozici(62,b,y);
  363.   ¼arujNaPozici(¼tverec,a,y);
  364.   ¼ekej(R2);
  365.   ¼arujNaPozici(63,b,y);
  366.   ¼ekej(R2);
  367.   ¼arujNaPozici(64,b,y);
  368.   ¼ekej(R2);
  369.   ¼arujNaPozici(65,b,y);
  370.   ¼ekej(R2);
  371.   ¼arujNaPozici(66,b,y);
  372.   ¼ekej(R2);
  373.   ¼arujNaPozici(67,b,y);
  374.   ¼ekej(R2);
  375.   ¼arujNaPozici(68,b,y);
  376.   ¼ekej(R2);
  377.   ¼arujNaPozici(69,b,y);
  378.   ¼ekej(R2);
  379.   ¼arujNaPozici(70,b,y);
  380.   ¼ekej(R2);
  381.   ¼arujNaPozici(71,b,y);
  382.   ¼ekej(500);
  383.  
  384. z ¼arujNaPozici(42,b,y);
  385.   ¼arujNaPozici(¼tverec,a,y);
  386.   ¼ekej(500);
  387.   ¼arujNaPozici(43,b,y);
  388.   ¼ekej(R2);
  389.   ¼arujNaPozici(36,b,y);
  390.   ¼ekej(500);
  391.  
  392. W ¼ekej
  393. X ¼arujNaPozici
  394.  
  395. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  396.  
  397. /1 RozbitíSkla==1
  398. /2 RozbitíSkla==0
  399. /3 Bombon Je 0
  400. /4 Bombon Je 1
  401.  
  402. /5 P²edm╪tNaPozici(x+1,y) Je ¼tverec
  403. /6 P²edm╪tNaPozici(x+1,y) Není ¼tverec
  404.  
  405. /v ;V∞loha
  406.     P²edm╪tNaPozici(x+2,y) Je 46
  407. /z ;Ze╘
  408.     P²edm╪tNaPozici(x+2,y) Je 38
  409. /r ;Rozbitá ze╘
  410.     P²edm╪tNaPozici(x+2,y) Je 41
  411. /p ;Pàlka zdi
  412.     P²edm╪tNaPozici(x+2,y) Je 36
  413.  
  414. =SP---------------------------------------------------------------------------
  415.  
  416. ;-h---------------------------------------------------------------------------
  417. void ¼IN¼ILA( int x,y,R6 )
  418. -s--¼IN¼ILA                                                                     ■  34  -2 -10 259
  419.               ¼IN¼ILA
  420.           W:(100)!
  421.        X:(15,x,y)!
  422.            W:(R6)!
  423.        X:(21,x,y)!
  424.            W:(R6)!
  425.     oX:(97,x+1,y)!
  426.           W:(100)!
  427.     eX:(93,x+1,y)!
  428.           W:(500)!
  429.       X:(104,x,y)!
  430.           W:(200)!
  431.       X:(105,x,y)!
  432.           W:(200)!
  433.       X:(104,x,y)!
  434.           W:(100)!
  435. X:(¼tverec,x+1,y)!
  436.           W:(500)!
  437.        X:(21,x,y)!
  438. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  439.  
  440. e BezObláƒku()
  441. o SObláƒkem()
  442. W ¼ekej
  443. X ¼arujNaPozici
  444.  
  445. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  446.  
  447. =SP---------------------------------------------------------------------------
  448.  
  449. ;-h---------------------------------------------------------------------------
  450. void VYΘ¼TOV╡N╓( int a,b,O,PoƒetOvl,PoƒetKar,Pozice )
  451. -s--VYΘ¼TOV╡N╓                                                                  ■  28  -2   0   3
  452.      _______________________VYΘ¼TOV╡N╓
  453.    N╡PIS                     Dosazení
  454.     n!ƒ                     prom╪nn∞ch
  455.    Najede                   :a=11;b=2
  456.      *n          ____________P²edm╪ty______________
  457.  Vyúƒtování   OVLADA¼E                          KARTY
  458.     N!          o!                               k!
  459.                Poƒet                            Poƒet
  460.                  #N:(O,PoƒetOvl)                  #N:(O,PoƒetKar)
  461.                ¼aruj                            ¼aruj
  462.               ovladaƒe                          karty
  463.                 O!                               K!
  464.               SLOUPCE____________              SLOUPCE______________
  465.               /1                /              /1                  /
  466.            Posunutí            nic          Posunutí              nic
  467.            ƒarování____________             ƒarování______________
  468.              /2       /3      /                /2       /3       /
  469.           Posunutí Posunutí Posunutí        Posunutí Posunutí Posunutí
  470.           ƒarování ƒarování ƒarování        ƒarování ƒarování ƒarování
  471.            :a=13    :a=14    :a=12           :a=13    :a=14    :a=12
  472.             :b=2     :b=2     :b=2            :b=2     :b=2     :b=2
  473. -o1-VYΘ¼TOV╡N╓
  474.  
  475. ƒ ¼ekej(500);
  476.  
  477. o ;zobrazení "P²evádím OVLADA¼E na peníze..."
  478.   GrNastavBarvuPozadí(Sv╪tloτedá);
  479.   GrSmaºOkno();
  480.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavoτedá);
  481.   GrNastavPozici(77,8);
  482.   GrPiτⁿet╪zec("P²evádím ");
  483.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  484.   GrPiτⁿet╪zec("OVLADA¼E ");
  485.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavoτedá);
  486.   GrPiτⁿet╪zec("na peníze...");
  487.  
  488. k ;zobrazení "P²evádím KARTY na peníze..."
  489.   GrNastavBarvuPozadí(Sv╪tloτedá);
  490.   GrSmaºOkno();
  491.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavoτedá);
  492.   GrNastavPozici(77,8);
  493.   GrPiτⁿet╪zec("P²evádím ");
  494.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  495.   GrPiτⁿet╪zec("KARTY ");
  496.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavoτedá);
  497.   GrPiτⁿet╪zec("na peníze...");
  498.  
  499. n ;zobrazení "Vyúƒtování"
  500.   GrNastavBarvuPozadí(Sv╪tloτedá);
  501.   GrSmaºOkno();
  502.   ¼ekej(500);
  503.   GrNastavBarvy(Sv╪tloτedá<<4|Modrá);
  504.   GrNastavPozici(381,8);
  505.   GrPiτⁿet╪zec("VYΘ¼TOV╡N╓");
  506.   Pozice=381;
  507.  
  508. N ;¼ástka "najíºdí" do st²edu Gr. okna
  509.   GrNastavBarvy(Sv╪tloτedá<<4|Modrá);
  510.   Pozice=Pozice-1;
  511.   GrNastavPozici(Pozice,8);
  512.   GrPiτⁿet╪zec("VYΘ¼TOV╡N╓");
  513.   ¼ekej(5);
  514.  
  515. O ;Vyúƒtování ovladaƒà
  516.    RychlostBaltazara(2);
  517.    ¼ekej(300);
  518.    BezObláƒku();
  519.    ¼arujNaPozici(22,a,b);
  520.    ¼ekej(200);
  521.    SObláƒkem();
  522.    ¼arujNaPozici(97,a,b);
  523.    BezObláƒku();
  524.    ¼ekej(100);
  525.    ¼arujNaPozici(93,a,b);
  526.    b=b+1;
  527.    ¼ekej(300);
  528.  
  529. K ;Vyúƒtování karet
  530.    RychlostBaltazara(2);
  531.    ¼ekej(300);
  532.    BezObláƒku();
  533.    ¼arujNaPozici(23,a,b);
  534.    ¼ekej(200);
  535.    SObláƒkem();
  536.    ¼arujNaPozici(97,a,b);
  537.    BezObláƒku();
  538.    ¼ekej(200);
  539.    ¼arujNaPozici(93,a,b);
  540.    b=b+1;
  541.    ¼ekej(300);
  542.  
  543. -c1-VYΘ¼TOV╡N╓
  544.  
  545. /1 b==9
  546. /2 a==12
  547. /3 a==13
  548.  
  549. #N Od0
  550.  
  551. *n Pozice Není 153
  552.  
  553. =SP-VYΘ¼TOV╡N╓
  554.  
  555. ;-h---------------------------------------------------------------------------
  556. void EXIT( int Exit,R,a,x,y)
  557. -s--EXIT                                                                        ■  15  -2   4 259
  558.              _______EXIT___________________________________
  559.            Opakuj                  Zmizení         _Level-03_aº_05________
  560.              #N:(a,3) oX:(¼tverec,x,y)!            /1         /2         /3
  561.         Kroutící_se             eR:(9)!           lvl3       lvl4       lvl5
  562.           písmenka                                3!         4!         5!
  563. X:(101,x+1,y)!
  564.       W:(200)!
  565. X:(100,x+1,y)!
  566.       W:(200)!
  567. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  568.  
  569. 3 ;naƒtení level-03
  570.    NaƒtiScénu("*\\posuk.s06");
  571. 4 ;naƒtení level-04
  572.    NaƒtiScénu("*\\posuk.s07");
  573. 5 ;naƒtení level-05
  574.    NaƒtiScénu("*\\posuk.s08");
  575.  
  576.  
  577.  
  578. a Klávesa= ¼tiKlávesuZFronty()
  579. e BezObláƒku()
  580. o SObláƒkem();RychlostBaltazara(R);
  581. R RychlostBaltazara
  582. W ¼ekej
  583. X ¼arujNaPozici
  584.  
  585. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  586.  
  587. /1 Exit Je 1
  588. /2 Exit Je 2
  589. /3 Exit Je 3
  590.  
  591. *m  Klávesa Není ' '
  592. #N  Od0
  593. =SP---------------------------------------------------------------------------
  594.  
  595. ;-h---------------------------------------------------------------------------
  596. void BANKOMAT( int a,b,x,y,Klávesa,Opakování,¼ástka,Pozice )
  597. -s--BANKOMAT                                                                    ■  34  -2   2 259
  598.            BANKOMAT
  599.            Vsunutí
  600.             karty
  601.        W:(100)!
  602.     X:(12,x,y)!
  603.        W:(200)!
  604.     X:(13,x,y)!
  605.        W:(150)!
  606.     X:(15,x,y)!
  607.        W:(150)!
  608.            Oºivnutí
  609.           bankomatu
  610.  bX:(81,x+1,y)!
  611.        W:(100)!
  612.     X:(21,x,y)!
  613.        W:(200)!
  614.  4X:(82,x+1,y)!
  615.        W:(500)!
  616.   X:(83,x+1,y)!
  617.              c!
  618.             VφB╖R
  619.    _________PEN╖Z_____________________________________________________________________________
  620.  ¼ástka                       Krátká                       Vypadnutí                      Obnovení
  621.    *ƒ                        animace                         pen╪z                         Poτuka__
  622. k_v∞b╪ru                 W:(150)!                              #N:(Opakování,¼ástka)       W:(150)!
  623.   ƒ!                  X:(15,x,y)!                           Animace                  bX:(81,x+1,y)!
  624.                           W:(50)!                  X:(78,x+1,y)!                           W:(500)!
  625.                     X:(77,x+1,y)!                       W:(150)!                        X:(21,x,y)!
  626.                          W:(150)!                  X:(79,x+1,y)!
  627.                       X:(21,x,y)!                12X:(94,x+1,b)!
  628.                          W:(500)!                       W:(150)!
  629.                                                    X:(80,x+1,y)!
  630.                                                    X:(95,x+1,b)!
  631.                                                         W:(150)!
  632.                                                    X:(96,x+1,b)!
  633.                                                    X:(77,x+1,y)!
  634.                                                         W:(100)!
  635.                                                    X:(98,x+1,b)!
  636.                                                         W:(200)!
  637.                                                    X:(97,x+1,b)!
  638.                                                         W:(200)!
  639.                                                              Peníze__________________
  640.                                                              padají              Za_Okraj
  641.                                                                *p  X:(¼tverec,x+1,b)!
  642.                                                              Bacha
  643.                                                             Okraj...
  644.                                               X:(¼tverec,x+1,b)!
  645.                                                  32X:(98,x+1,b)!
  646.                                                         W:(200)!
  647.                                                    X:(97,x+1,b)!
  648.                                                         W:(200)!
  649. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  650.  
  651. 1 a=y;
  652.  
  653. 2 b=a+1;
  654.  
  655. 3 a=b;
  656.  
  657. 4 ;Bankomat v Gr. okn╪
  658.   GrNastavBarvuPozadí(¼erná);
  659.   GrSmaºOkno();
  660.   ¼ekej(150);
  661.   GrNastavBarvy(¼erná<<4|Sv╪tlozelená);
  662.   GrNastavPozici(161,8);
  663.   GrPiτⁿet╪zec("¼ekej...");
  664.  
  665. a Klávesa=¼tiKlávesuZFronty()
  666.  
  667. b ;Bankomat v Gr. okn╪
  668.   GrNastavBarvuPozadí(¼erná);
  669.   GrSmaºOkno();
  670.   ¼ekej(150);
  671.   GrNastavBarvy(¼erná<<4|Sv╪tlozelená);
  672.   GrNastavPozici(185,8);
  673.   GrPiτⁿet╪zec("OK");
  674.  
  675. c ;zobrazení ƒástky k v∞b╪ru
  676.   GrNastavBarvuPozadí(¼erná);
  677.   GrSmaºOkno();
  678.   ¼ekej(500);
  679.   GrNastavBarvy(¼erná<<4|Sv╪tlozelená);
  680.   GrNastavPozici(72,8);
  681.   GrPiτⁿet╪zec("Zjiτ£uji ƒástku k v∞b╪ru...");
  682.   ¼ekej(1000);
  683.   GrSmaºOkno();
  684.   GrNastavPozici(372,8);
  685.   GrPiτU¼íslo(¼ástka*1000,5);
  686.   Pozice=372;
  687. ƒ ;¼ástka "najíºdí" do st²edu Gr. okna
  688.   GrNastavBarvy(¼erná<<4|Sv╪tlozelená);
  689.   Pozice=Pozice-1;
  690.   GrNastavPozici(Pozice,8);
  691.   GrPiτU¼íslo(¼ástka*1000,5);
  692.   GrPiτⁿet╪zec(",-");
  693.   ¼ekej(5);
  694.  
  695. W ¼ekej
  696. X ¼arujNaPozici
  697.  
  698. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  699.  
  700. *ƒ ;zobrazení ƒástky
  701.    Pozice Není 169
  702.  
  703.  
  704. *m Klávesa Není ' '
  705. *p P²edm╪tNaPozici(x+1,b+1) Je ¼tverec
  706.  
  707. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  708.     Od0
  709.  
  710. =SP---------------------------------------------------------------------------
  711.  
  712. ;-h---------------------------------------------------------------------------
  713. void OTEVⁿEN╓( int x,y )
  714. -s--OTEVⁿEN╓                                                                    ■  44  -2 -10 259
  715.               OTEVⁿEN╓
  716.               Pouºití
  717.              dálkového
  718.               ovladaƒe
  719.           W:(100)!
  720.        X:(10,x,y)!
  721.           W:(500)!
  722.        X:(11,x,y)!
  723.           W:(500)!
  724.        X:(10,x,y)!
  725.           W:(200)!
  726.        X:(21,x,y)!
  727.           W:(100)!
  728.               Otev²ení
  729.              ocelov∞ch
  730.                dve²í
  731.      X:(85,x+2,y)!
  732.           W:(300)!
  733.      X:(86,x+2,y)!
  734.           W:(100)!
  735.      X:(87,x+2,y)!
  736.           W:(100)!
  737.      X:(88,x+2,y)!
  738.           W:(100)!
  739. X:(¼tverec,x+2,y)!
  740.           W:(500)!
  741.               Obnovení
  742.                Poτuka
  743.        X:(21,x,y)!
  744. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  745.  
  746. W ¼ekej
  747. X ¼arujNaPozici
  748.  
  749. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  750.  
  751. =SP---------------------------------------------------------------------------
  752.  
  753. ;-h---------------------------------------------------------------------------
  754. void OTR╡VEN╓( int Opakování,x,y )
  755. -s--OTR╡VEN╓                                                                    ■   2  -2 -17 259
  756.       OTR╡VEN╓
  757.   W:(100)!
  758.       OM╡MEN╓_____________________________
  759.   Vytaºení_ponoºky                  ¼lov╪k_zmizí
  760.          #N:(Opakování,5)    X:(90,x+1,y)!
  761.       Otrávení                  X:(8,x,y)!
  762. X:(8,x,y)!                        W:(300)!
  763.   W:(300)!                      X:(9,x,y)!
  764. X:(9,x,y)!                        W:(300)!
  765.   W:(300)!             oX:(¼tverec,x+1,y)!
  766.                                   W:(200)!
  767.                               eX:(21,x,y)!
  768. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  769.  
  770. e BezObláƒku()
  771. o SObláƒkem()
  772. W ¼ekej
  773. X ¼arujNaPozici
  774.  
  775. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  776.  
  777. #N Od0
  778.  
  779. =SP---------------------------------------------------------------------------
  780.  
  781.  
  782. ;-h---------------------------------------------------------------------------
  783. void VφTAH( int R2,R6 )
  784. -s--VφTAH                                                                       ■ 112  -2  10 259
  785.            ______VφTAH______________________________________________________________________________________________
  786.        Zmáƒknutí                         Vstoupení               Odjetí                 Naƒtení                 Otev²ení
  787.         tlaƒítka                   X:(17,2,9)!          X:(106,1,8)!                   level_2          X:(108,1,2)!
  788.           c!                                c!          X:(116,1,9)!                    lr!                       c!
  789.  X:(20,2,9)!                       X:(18,2,9)!                    c!                  P²ijetí-2         X:(109,1,2)!
  790.     W:(400)!                                c!          X:(106,1,7)!                     ƒ!                       ƒ!
  791.  X:(16,2,9)!                       X:(19,2,9)!          X:(115,1,8)!          X:(106,1,10)!               X:(4,2,2)!
  792.           ƒ!                          W:(200)!                    c!                     c!             X:(114,1,2)!
  793.         P²íjezd                   X:(109,1,9)!          X:(106,1,6)!           X:(106,1,9)!                       c!
  794.          v∞tahu               X:(¼tverec,2,9)!          X:(115,1,7)!          X:(115,1,10)!               X:(3,2,2)!
  795. X:(110,1,1)!                              Zav²ení                 c!                     c!                       c!
  796.           c!                                ƒ!          X:(106,1,5)!           X:(106,1,8)!              X:(21,2,2)!
  797. X:(110,1,2)!                      X:(108,1,9)!          X:(115,1,6)!           X:(115,1,9)!                       ƒ!
  798.  X:(91,1,1)!                          W:(150)!                    c!                     c!                     Zav²ení
  799.           c!                      X:(107,1,9)!          X:(106,1,4)!           X:(106,1,7)!             X:(113,1,2)!
  800. X:(110,1,3)!                                ƒ!          X:(115,1,5)!           X:(115,1,8)!                 W:(150)!
  801.  X:(91,1,2)!                                                      c!                     c!             X:(111,1,2)!
  802.           c!                                            X:(106,1,3)!           X:(106,1,6)!                       ƒ!
  803. X:(110,1,4)!                                            X:(115,1,4)!           X:(115,1,7)!
  804.  X:(91,1,3)!                                                      c!                     c!
  805.           c!                                            X:(106,1,2)!           X:(106,1,5)!
  806. X:(110,1,5)!                                            X:(115,1,3)!           X:(115,1,6)!
  807.  X:(91,1,4)!                                                      c!                     c!
  808.           c!                                            X:(106,1,1)!           X:(106,1,4)!
  809. X:(110,1,6)!                                            X:(115,1,2)!           X:(115,1,5)!
  810.  X:(91,1,5)!                                                      c!                     c!
  811.           c!                                            X:(115,1,1)!           X:(106,1,3)!
  812. X:(110,1,7)!                                                                   X:(115,1,4)!
  813.  X:(91,1,6)!                                                                             c!
  814.           c!                                                                   X:(107,1,2)!
  815. X:(110,1,8)!                                                                   X:(115,1,3)!
  816.  X:(91,1,7)!                                                                             ƒ!
  817.           c!
  818. X:(111,1,9)!
  819.  X:(91,1,8)!
  820.           ƒ!
  821.         Otev²ení
  822. X:(113,1,9)!
  823.     W:(150)!
  824. X:(114,1,9)!
  825.     W:(150)!
  826. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  827.  
  828. c ¼ekej(R2);
  829. ƒ ¼ekej(R6);
  830. l NaƒtiScénu("*\\posuk.s05");
  831. n Neviditeln∞()
  832. r RychlostBaltazara(2);
  833. W ¼ekej
  834. X ¼arujNaPozici
  835.  
  836. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  837.  
  838. =SP---------------------------------------------------------------------------
  839.  
  840.  
  841.  
  842. ;-h---------------------------------------------------------------------------
  843. void KONEC( int x,y,Klávesa )
  844. -s--KONEC                                                                       ■   5  -2 -17 259
  845.      __KONEC___________
  846.   TABULKA            KLIK
  847.     1!               3!
  848.   Klávesa
  849.   ENTER
  850.     *e
  851. Klávesa...
  852.     !a
  853.  POTOM...
  854.    2!
  855. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  856.  
  857. 1 ;p²ed tím, neº bude konec...
  858.    GrNastavBarvuPozadí(Sv╪tloτedá);
  859.    GrSmaºOkno();
  860.    ¼arujNaPozici(54,1,1);
  861.    ¼arujNaPozici(55,2,1);
  862.    ¼arujNaPozici(57,3,1);
  863.    ¼arujNaPozici(44,4,1);
  864.    ¼ekej(500);
  865.    SObláƒkem();
  866.    ¼arujNaPozici(¼tverec,x,y);
  867.    ¼ekej(500);
  868.    ¼arujNaPozici(60,4,1);
  869.    GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  870.    GrNastavPozici(129,8);
  871.    GrPiτⁿet╪zec("Stiskni ENTER...");
  872.    BezObláƒku();
  873.  
  874. 2 ;potom
  875.    ¼arujNaPozici(56,2,1);
  876.    ¼ekej(200);
  877.    ¼arujNaPozici(55,2,1);
  878.    ¼ekej(200);
  879.  
  880. 3 ;po stisknutí klávesy SPACEBAR...
  881.   ¼ekej(100);
  882.   ¼arujNaPozici(59,4,1);
  883.   ¼arujNaPozici(58,3,1);
  884.   ¼ekej(400);
  885.   ¼arujNaPozici(60,4,1);
  886.   ¼arujNaPozici(57,3,1);
  887.   ¼ekej(500);
  888.  
  889. a Klávesa= ¼tiKlávesuZFronty()
  890.  
  891. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  892.  
  893. *e Klávesa Není KlEnter
  894.  
  895. =SP---------------------------------------------------------------------------
  896.  
  897. ;-h---------------------------------------------------------------------------
  898. void ΘVOD( int Pozice )
  899. -s--ΘVOD                                                                        ■   2  -2  -7 259
  900.    ________________________________ΘVOD____________________
  901.   RCA            LOGO              uvádí                Poτuk
  902.   R!             L!                srU!                  P!
  903. Software
  904.    *S
  905.  µup...
  906.   S!
  907. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  908.  
  909. s SObláƒkem();
  910. b BezObláƒku();
  911. r RychlostBaltazara(3);
  912.  
  913. L ;¼inƒila
  914.   ¼arujNaPozici(29,8,1);
  915.   ¼ekej(100);
  916.   ¼arujNaPozici(¼tverec,8,1);
  917.   ¼arujNaPozici(29,8,2);
  918.   ¼ekej(100);
  919.   ¼arujNaPozici(¼tverec,8,2);
  920.   ¼arujNaPozici(29,8,3);
  921.   ¼ekej(100);
  922.   ¼arujNaPozici(¼tverec,8,3);
  923.   ¼arujNaPozici(29,8,4);
  924.   ¼ekej(100);
  925.   ¼arujNaPozici(¼tverec,8,4);
  926.   ¼arujNaPozici(29,8,5);
  927.   ¼ekej(1000);
  928.   ;RCA
  929.   ¼arujNaPozici(28,1,5);
  930.   ¼ekej(100);
  931.   ¼arujNaPozici(¼tverec,1,5);
  932.   ¼arujNaPozici(28,2,5);
  933.   ¼ekej(100);
  934.   ¼arujNaPozici(¼tverec,2,5);
  935.   ¼arujNaPozici(28,3,5);
  936.   ¼ekej(100);
  937.   ¼arujNaPozici(¼tverec,3,5);
  938.   ¼arujNaPozici(28,4,5);
  939.   ¼ekej(100);
  940.   ¼arujNaPozici(¼tverec,4,5);
  941.   ¼arujNaPozici(28,5,5);
  942.   ¼ekej(100);
  943.   ¼arujNaPozici(¼tverec,5,5);
  944.   ¼arujNaPozici(28,6,5);
  945.   ¼ekej(100);
  946.   ¼arujNaPozici(¼tverec,6,5);
  947.   ¼arujNaPozici(28,7,5);
  948.   ¼ekej(100);
  949.   ¼arujNaPozici(¼tverec,7,5);
  950.   ;Logo
  951.   ¼arujNaPozici(30,8,5);
  952.   ¼ekej(1000);
  953.   ¼arujNaPozici(45,8,5);
  954.   ¼ekej(150);
  955.   ¼arujNaPozici(30,8,5);
  956.   ¼ekej(500);
  957.   ¼arujNaPozici(45,8,5);
  958.   ¼ekej(150);
  959.   ¼arujNaPozici(30,8,5);
  960.   ¼ekej(500);
  961.  
  962. P ;Poτuk
  963.   ¼ekej(500);
  964.   ¼arujNaPozici(16,7,6);
  965.   ¼ekej(500);
  966.   ¼arujNaPozici(21,7,6);
  967.   ¼ekej(800);
  968.   ¼arujNaPozici(74,7,6);
  969.   ¼ekej(150);
  970.   ¼arujNaPozici(75,7,6);
  971.   ¼ekej(150);
  972.   ¼arujNaPozici(74,7,6);
  973.   ¼ekej(150);
  974.   ¼arujNaPozici(21,7,6);
  975.   ¼ekej(500);
  976.   ;nápis
  977.   ¼arujNaPozici(5,7,6);
  978.   ¼ekej(150);
  979.   ¼arujNaPozici(6,7,6);
  980.   ¼ekej(150);
  981.   ¼arujNaPozici(5,7,6);
  982.   ¼ekej(100);
  983.   ¼arujNaPozici(7,7,6);
  984.   ¼ekej(100);
  985.   ¼arujNaPozici(138,8,6);
  986.   ¼arujNaPozici(21,7,6);
  987.   ¼ekej(100);
  988.   ¼arujNaPozici(136,8,6);
  989.   ¼arujNaPozici(32,9,6);
  990.   ¼ekej(100);
  991.   ¼arujNaPozici(33,9,6);
  992.   ¼ekej(500);
  993.   ¼arujNaPozici(¼tverec,9,6);
  994.   ¼ekej(300);
  995.   ;podtrºení
  996.   ¼arujNaPozici(139,15,6);
  997.   ¼ekej(100);
  998.   ¼arujNaPozici(¼tverec,15,6);
  999.   ¼arujNaPozici(139,14,6);
  1000.   ¼ekej(100);
  1001.   ¼arujNaPozici(¼tverec,14,6);
  1002.   ¼arujNaPozici(139,13,6);
  1003.   ¼ekej(100);
  1004.   ¼arujNaPozici(¼tverec,13,6);
  1005.   ¼arujNaPozici(139,12,6);
  1006.   ¼ekej(100);
  1007.   ¼arujNaPozici(¼tverec,12,6);
  1008.   ¼arujNaPozici(139,11,6);
  1009.   ¼ekej(100);
  1010.   ¼arujNaPozici(¼tverec,11,6);
  1011.   ¼arujNaPozici(139,10,6);
  1012.   ¼ekej(100);
  1013.   ¼arujNaPozici(¼tverec,10,6);
  1014.   ¼arujNaPozici(139,9,6);
  1015.   ¼ekej(100);
  1016.   ¼arujNaPozici(¼tverec,9,6);
  1017.   ¼arujNaPozici(137,8,6);
  1018.   ¼ekej(500);
  1019.   ;v∞vrtka
  1020.   ¼arujNaPozici(119,7,6);
  1021.   ¼ekej(150);
  1022.   ¼arujNaPozici(118,7,6);
  1023.   ¼ekej(150);
  1024.   ¼arujNaPozici(120,7,6);
  1025.   ¼ekej(150);
  1026.   ¼arujNaPozici(21,7,6);
  1027.   ¼ekej(150);
  1028.   ¼arujNaPozici(119,7,6);
  1029.   ¼ekej(150);
  1030.   ¼arujNaPozici(118,7,6);
  1031.   ¼ekej(150);
  1032.   ¼arujNaPozici(120,7,6);
  1033.   ¼ekej(150);
  1034.   ¼arujNaPozici(21,7,6);
  1035.   ¼ekej(150);
  1036.   SObláƒkem();
  1037.   ¼arujNaPozici(¼tverec,7,6);
  1038.   ¼ekej(500);
  1039.  
  1040. R ;RCA Software "najíºdí" do st²edu okna
  1041.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1042.   GrSmaºOkno();
  1043.   ¼ekej(1000);
  1044.   GrNastavBarvy(Sv╪tloτedá<<4|¼ervenohn╪dá);
  1045.   GrNastavPozici(372,8);
  1046.   GrPiτⁿet╪zec("RCA Software");
  1047.   Pozice=372;
  1048.  
  1049. S ;RCA Software "najíºdí" do st²edu Gr. okna
  1050.   GrNastavBarvy(Sv╪tloτedá<<4|¼ervenohn╪dá);
  1051.   Pozice=Pozice-1;
  1052.   GrNastavPozici(Pozice,8);
  1053.   GrPiτⁿet╪zec("RCA Software");
  1054.   ¼ekej(5);
  1055.  
  1056. U ;Uvádí
  1057.   ¼arujNaPozici(140,8,6);
  1058.   ¼ekej(500);
  1059.   ¼arujNaPozici(21,7,6);
  1060.   ¼ekej(500);
  1061.   BezObláƒku();
  1062.   ¼arujNaPozici(¼tverec,8,6);
  1063.   ¼arujNaPozici(140,8,7);
  1064.   ¼ekej(100);
  1065.   ¼arujNaPozici(¼tverec,8,7);
  1066.   ¼arujNaPozici(140,8,8);
  1067.   ¼ekej(100);
  1068.   ¼arujNaPozici(¼tverec,8,8);
  1069.   ¼arujNaPozici(140,8,9);
  1070.   ¼ekej(100);
  1071.   ¼arujNaPozici(¼tverec,8,9);
  1072.   ¼arujNaPozici(140,8,10);
  1073.   ¼ekej(100);
  1074.   ¼arujNaPozici(¼tverec,8,10);
  1075.  
  1076. X ¼arujNaPozici
  1077. W ¼ekej
  1078.  
  1079. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1080.  
  1081. *S ;dokud nápis "RCA Software" nenajede do st²edu Gr. okna
  1082.     Pozice Není 145
  1083.  
  1084. =SP---------------------------------------------------------------------------
  1085.  
  1086.  
  1087. ;-h---------------------------------------------------------------------------
  1088. void Z╡V╖R( int x,y,a,Pozice,R,
  1089.             long Peníze )
  1090. -s--Z╡V╖R                                                                       ■   2  -2   0 259
  1091.    ____________________Z╡V╖R______________________________________
  1092.  Exit-5                Noviny      Napiτ                _____Hodnocení______
  1093.    #N:(a,3)             n!          lup                 /1                 /2
  1094. Písmenka                             *l                Dost               Málo
  1095.   x!                              dost²edu          dƒkv!              mƒkv!
  1096.                                     l!
  1097. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1098.  
  1099. ƒ ;¼etl jsi uº noviny ?
  1100.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1101.   GrSmaºOkno();
  1102.   GrNastavBarvy(Sv╪tloτedá<<4|¼ervenohn╪dá);
  1103.   GrNastavPozici(37,8);
  1104.   GrPiτⁿet╪zec("Mimochodem, uº jsi ƒetl dneτní noviny ?");
  1105.  
  1106. d ;dost jsi nakradl (syn. také hodn╪, moc, aº moc, atd...)
  1107.   ¼ekej(2000);
  1108.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1109.   GrSmaºOkno();
  1110.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1111.   GrNastavPozici(129,8);
  1112.   GrPiτⁿet╪zec("To docela jde...");
  1113.   ¼ekej(2000);
  1114.  
  1115. k ¼ekejNaKlávesu();
  1116.  
  1117. l ;ⁿet╪zec najíºdí do st²edu obrazovky
  1118.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavomodrá);
  1119.   GrNastavPozici(Pozice,8);
  1120.   GrPiτⁿet╪zec("Celkem jsi nakradl ");
  1121.   GrNastavBarvy(Sv╪tloτedá<<4|¼ervenohn╪dá);
  1122.   GrPiτL¼íslo(Peníze,6);
  1123.   GrPiτⁿet╪zec(",-");
  1124.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavomodrá);
  1125.   GrPiτⁿet╪zec(" Kƒ");
  1126.   Pozice=Pozice-1;
  1127.   ¼ekej(5);
  1128.  
  1129. m ;málo jsi nakradl (syn. také pr£av╪, trochu, drobek, hov.., atd...)
  1130.   ¼ekej(2000);
  1131.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1132.   GrSmaºOkno();
  1133.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1134.   GrNastavPozici(105,8);
  1135.   GrPiτⁿet╪zec("No, nic moc to není...");
  1136.   ¼ekej(2000);
  1137.  
  1138. n ;tak ràzn╪...
  1139.   SObláƒkem();
  1140.   RychlostBaltazara(R);
  1141.   ¼arujNaPozici(¼tverec,x,y);
  1142.   ¼ekej(500);
  1143.   NaƒtiScénu("*\\posuk.s02");
  1144.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1145.   GrSmaºOkno();
  1146.   ¼ekej(500);
  1147.   RychlostBaltazara(R);
  1148.   ¼arujNaPozici(21,1,10);
  1149.   BezObláƒku();
  1150.   ;noviny
  1151.   ¼arujNaPozici(134,7,1);
  1152.   ¼ekej(100);
  1153.   ¼arujNaPozici(¼tverec,7,1);
  1154.   ¼arujNaPozici(134,7,2);
  1155.   ¼ekej(100);
  1156.   ¼arujNaPozici(¼tverec,7,2);
  1157.   ¼arujNaPozici(134,7,3);
  1158.   ¼ekej(100);
  1159.   ¼arujNaPozici(¼tverec,7,3);
  1160.   ¼arujNaPozici(134,7,4);
  1161.   ¼ekej(100);
  1162.   ¼arujNaPozici(¼tverec,7,4);
  1163.   ¼arujNaPozici(134,7,5);
  1164.   ¼ekej(100);
  1165.  
  1166.   ¼arujNaPozici(149,1,6);
  1167.   ¼ekej(100);
  1168.   ¼arujNaPozici(¼tverec,1,6);
  1169.   ¼arujNaPozici(149,2,6);
  1170.   ¼ekej(100);
  1171.   ¼arujNaPozici(¼tverec,2,6);
  1172.   ¼arujNaPozici(149,3,6);
  1173.   ¼ekej(100);
  1174.   ¼arujNaPozici(¼tverec,3,6);
  1175.   ¼arujNaPozici(149,4,6);
  1176.   ¼ekej(100);
  1177.   ¼arujNaPozici(¼tverec,4,6);
  1178.   ¼arujNaPozici(149,5,6);
  1179.   ¼ekej(100);
  1180.   ¼arujNaPozici(¼tverec,5,6);
  1181.   ¼arujNaPozici(149,6,6);
  1182.   ¼ekej(100);
  1183.   ¼arujNaPozici(¼tverec,6,6);
  1184.   ¼arujNaPozici(149,7,6);
  1185.   ¼ekej(100);
  1186.  
  1187.   ¼arujNaPozici(150,8,10);
  1188.   ¼ekej(100);
  1189.   ¼arujNaPozici(¼tverec,8,10);
  1190.   ¼arujNaPozici(150,8,9);
  1191.   ¼ekej(100);
  1192.   ¼arujNaPozici(¼tverec,8,9);
  1193.   ¼arujNaPozici(150,8,8);
  1194.   ¼ekej(100);
  1195.   ¼arujNaPozici(¼tverec,8,8);
  1196.   ¼arujNaPozici(150,8,7);
  1197.   ¼ekej(100);
  1198.   ¼arujNaPozici(¼tverec,8,7);
  1199.   ¼arujNaPozici(150,8,6);
  1200.   ¼ekej(100);
  1201.  
  1202.   ¼arujNaPozici(135,15,5);
  1203.   ¼ekej(100);
  1204.   ¼arujNaPozici(¼tverec,15,5);
  1205.   ¼arujNaPozici(135,14,5);
  1206.   ¼ekej(100);
  1207.   ¼arujNaPozici(¼tverec,14,5);
  1208.   ¼arujNaPozici(135,13,5);
  1209.   ¼ekej(100);
  1210.   ¼arujNaPozici(¼tverec,13,5);
  1211.   ¼arujNaPozici(135,12,5);
  1212.   ¼ekej(100);
  1213.   ¼arujNaPozici(¼tverec,12,5);
  1214.   ¼arujNaPozici(135,11,5);
  1215.   ¼ekej(100);
  1216.   ¼arujNaPozici(¼tverec,11,5);
  1217.   ¼arujNaPozici(135,10,5);
  1218.   ¼ekej(100);
  1219.   ¼arujNaPozici(¼tverec,10,5);
  1220.   ¼arujNaPozici(135,9,5);
  1221.   ¼ekej(100);
  1222.   ¼arujNaPozici(¼tverec,9,5);
  1223.   ¼arujNaPozici(135,8,5);
  1224.   ¼ekej(100);
  1225.   ;Celková nakradená ƒástka
  1226.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavomodrá);
  1227.   GrNastavPozici(373,8);
  1228.   GrPiτⁿet╪zec("Celkem...");
  1229.   Pozice=373;
  1230.   ¼ekej(5);
  1231.  
  1232. v ;v∞vrtka
  1233.   ¼arujNaPozici(119,1,10);
  1234.   ¼ekej(150);
  1235.   ¼arujNaPozici(118,1,10);
  1236.   ¼ekej(150);
  1237.   ¼arujNaPozici(120,1,10);
  1238.   ¼ekej(150);
  1239.   ¼arujNaPozici(21,1,10);
  1240.   ¼ekej(150);
  1241.   ¼arujNaPozici(119,1,10);
  1242.   ¼ekej(150);
  1243.   ¼arujNaPozici(118,1,10);
  1244.   ¼ekej(150);
  1245.   ¼arujNaPozici(120,1,10);
  1246.   ¼ekej(150);
  1247.   ¼arujNaPozici(21,1,10);
  1248.   ¼ekej(150);
  1249.   ¼arujNaPozici(119,1,10);
  1250.   ¼ekej(150);
  1251.   ¼arujNaPozici(118,1,10);
  1252.   ¼ekej(150);
  1253.   ¼arujNaPozici(120,1,10);
  1254.   ¼ekej(150);
  1255.   ¼arujNaPozici(21,1,10);
  1256.   ¼ekej(150);
  1257.   SObláƒkem();
  1258.   ¼arujNaPozici(¼tverec,1,10);
  1259.   BezObláƒku();
  1260.   ¼ekej(500);
  1261.  
  1262.  
  1263. x ;kroutící se písmenka
  1264.   ¼arujNaPozici(100,x+1,y);
  1265.   ¼ekej(200);
  1266.   ¼arujNaPozici(101,x+1,y);
  1267.   ¼ekej(200);
  1268.  
  1269. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1270.  
  1271. /1 Peníze JeV╪tτíNeboRovno 150000
  1272. /2 Peníze JeMenτíNeº 150000
  1273.  
  1274. #N Od0
  1275.  
  1276. *l Pozice Není 73
  1277.  
  1278. =SP---------------------------------------------------------------------------
  1279.  
  1280. ;-h---------------------------------------------------------------------------
  1281. /***** hlavní program *****/
  1282. void main( void )
  1283. -s--POµUK                                                                       ■   2  -2 -11 259
  1284.    _________________________________POµUK___________________________________________________________________________________________________________________________________________________________________________________________________________________
  1285. Zaƒátek          ______________________Prost²edek                P²ed                                                                                                                                                                                    Konec
  1286.  0[!B:(¼erná)   ΘVOD          "MENU     Klávesa                koncem...                                                                                                                                                                                   !]
  1287.                 8!            Vytvo²       *k                       K!
  1288.                                6!          F3
  1289.                                            !a
  1290.                    ______________________VφB╖R
  1291.                    /7:KlF1                 /7:KlF2
  1292.                 Nápov╪da                  Hra
  1293.                   N!                      H!
  1294.                  'MENU         _________PROGRAM_____________________________________________
  1295.                             "Z╡KLAD                 FUNKCE                  KONEC         MENU
  1296.                              17!                       *m                     /ú           /à
  1297.                                                    Okolnosti                Zmizení      Jdi_na
  1298.                                                        │                      s!         'MENU
  1299.                                                       2!a                   Jdi_na
  1300.                                                        │                    'MENU
  1301.                                                        │
  1302.         __________________________________POHYB_HOD_KAMENEM_A_SB╓R╡N╓_________________________________________________________________________________________________________________________________________________________________________
  1303.      DOPRAVA                           DOLEVA  NAHORU            DOL▐                                   S╡HNUT╓                                              HOD   OTEV╓R╡N╓      OTR╡VEN╓     BANKOMAT      BONUS   ZA¼╡TEK   RYCHLOST    KONEC
  1304.         /p                               /l      /n               /d                                       /m                                                 /e       /O            /P           /K           /B       /Z     /U     /D     /7:KlF10
  1305.       OKRAJ                            OKRAJ    SM╖R             SM╖R             _____________________PⁿEDM╖T...________________________________            µUTR ___Dve²e      ___¼lov╪k      Na_karty     Naƒtení  Zmizení Rychlá Pomalá Ukonƒi
  1306.     __PRAVφ_________________           LEVφ    POµUKA_____      POµUKA_____       /v  /ƒ   /j   /f    /b      /o  /k      /q      /i      /í    /            h!7  /c     /      /╪      /      /a     /     /A    /    4!    i7!    í7!     u!
  1307.     /1 /x   /X    /z  /y   /           /2 /      /5      /6       /5      /6    VφTAH │    │    │   BOMBON    │  KARTA  PEN╓ZE  STOVKA  MINCE  NIC             Ocelové Nejsou __Je__   Není __Je__   Není ªádn∞ Jeden Jdi_na
  1308.    TAK │    │     │   │    │          TAK │    HORN╓   HORN╓    SPODN╓  SPODN╓   v!   │    │    │  Mnoºství   │  kz!7    q!7     y!7     ∞!7   3!              /r   /²  3!    /º   /u  3!   /t   /£  3!   57!    3!  'Z╡KLAD
  1309.     p! │    │     │   │    │           l! │    OKRAJ_  OKRAJ_   OKRAJ_  OKRAJ_     ¼IN¼ILA │    │   /s    /τ  │                                             Ovladaƒ │      Ponoºka │      Karta  │
  1310.       EXIT  │     │   │    │             NEBO    /3 /    /3 /     /4 /    /4 /      ƒz!7  JIN╡  │ ªádn∞ Jeden │                                                je   │         je   │        je   │
  1311.       e!  BONUS   │   │    │             3!     TAK │   TAK │    TAK │   TAK │          ¼IN¼ILA │ bz!7   3!   │                                               ²!7   │        º!7   │       t!7   │
  1312.        │  Exit-2  │   │    │                    n!  │   σ!  │    d!  │   ╘!  │            ƒ!7   │             │                                                  Ovladaƒ        Ponoºka        Karta
  1313.        │    E!  Z╡V╖R │    │                       NEBO    NEBO     NEBO    NEBO             FUSAKLE       OVLADA¼                                                 není           není          není
  1314.        │         Z!   │    │                       3!      3!       3!      3!               Mnoºství       oz!7                                                   3!             3!            3!
  1315.        │            ¼LOV╖K │                                                                 /u    /º
  1316.    Vyúƒtování        c!7  NEBO                                                             ªádná Jedna
  1317.     /V    /               3!                                                               fz!7   g!
  1318.  Vyúƒtuj Pokr.                                                                                   Jdi_na
  1319.   V7!                                                                                           'Z╡KLAD
  1320. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1321. 0 ;prom╪nné celoƒíselné
  1322.                     int  a,b,c,d,e,f,g,h,i,j,k,x,y,Klávesa,
  1323.                          Bombon,RozbitíSkla,P²edm╪t,Opakování,
  1324.                          Ponoºka,Ovladaƒ,Karta,Exit,Bonus,X,Y,
  1325.                          ¼ástka,I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy,
  1326.                          PoziceGr,PozX,PozY,Vstup,Konec,
  1327.                          R1,R2,R3,R4,R5,R6;
  1328.                     long Peníze;
  1329.  
  1330.  
  1331. [ Vytvo²Prostor();
  1332.   Neviditeln∞();
  1333.   RychlostBaltazara(9);
  1334.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1335.   GrSmaºOkno();
  1336.   EscPlus();
  1337.  
  1338. ] EscMínus();
  1339.   ZruτProstor()
  1340.  
  1341.  
  1342. 1 ;Základ
  1343.   GrSmaºOkno();
  1344.   NaƒtiScénu("*\\posuk.s04");
  1345.   RychlostBaltazara(3);
  1346.   x=10; y=10; Bombon=0; Ovladaƒ=0; Ponoºka=0; Karta=0; Exit=1; Vstup=0;
  1347.   Bonus=0; Peníze=0; Konec=0; R1=50; R2=100; R3=3; R4=0; R5=150; R6=200;
  1348.   SObláƒkem();
  1349.   ¼arujNaPozici(21,x,y);
  1350.   BezObláƒku();
  1351.  
  1352. 2 a=x+1;
  1353.   c=x-1;
  1354.   b=y+1;
  1355.   d=y-1;
  1356.  
  1357. 3 ; ???, chyba, Poτuk nechápe...
  1358.   OTAZN╓K(x,y,R5)
  1359.  
  1360. 4 ;Zmizení Poτuka
  1361.   ¼ekej(400); SObláƒkem();
  1362.   ¼arujNaPozici(¼tverec,x,y);
  1363.  
  1364. 5 ;Naƒtení bonusového kola...
  1365.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1366.   GrSmaºOkno();
  1367.   GrNastavBarvuPop²edí(ªlutá);
  1368.   GrNastavPozici(97,8);
  1369.   GrPiτⁿet╪zec("Naƒítám bonusové kolo...");
  1370.   ¼ekej(500);
  1371.   SObláƒkem();
  1372.   ¼arujNaPozici(¼tverec,x,y);
  1373.   BezObláƒku();
  1374.   UloºScénu("*\\posuk.s03");
  1375.   NaƒtiScénu("*\\posuk.s09");
  1376.   X=x; Y=y; Bonus=1;
  1377.   x=PoziceBaltazaraX()+1; y=PoziceBaltazaraY();
  1378.   SObláƒkem();
  1379.   RychlostBaltazara(2);
  1380.   ¼arujNaPozici(21,x,y);
  1381.   BezObláƒku();
  1382.   ¼ekej(500);
  1383.   GrSmaºOkno();
  1384.  
  1385. 6 ;MENU
  1386.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1387.   NaƒtiScénu("*\\posuk.s01");
  1388.   Neviditeln∞();
  1389.   BezObláƒku();
  1390.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1391.   GrSmaºOkno();
  1392.   ¼ekej(500);
  1393.   ¼arujNaPozici(54,1,1);
  1394.   ¼arujNaPozici(141,1,2);
  1395.   ¼arujNaPozici(143,1,3);
  1396.   ¼arujNaPozici(145,1,4);
  1397.   ;¼arujNaPozici(147,1,5);
  1398.   ¼arujNaPozici(44,2,1);
  1399.   ¼arujNaPozici(44,2,2);
  1400.   ¼arujNaPozici(44,2,3);
  1401.   ¼arujNaPozici(44,2,4);
  1402.   ;¼arujNaPozici(44,2,5);
  1403.   ¼ekej(500);
  1404.   SObláƒkem();
  1405.   RychlostBaltazara(3);
  1406.   ¼arujNaPozici(60,2,1);
  1407.   BezObláƒku();
  1408.   ;GrOkno
  1409.   GrNastavBarvy(Sv╪tloτedá<<4|¼ervenohn╪dá);
  1410.   GrNastavPozici(5,8);
  1411.   GrPiτⁿet╪zec("F1");
  1412.   GrNastavPozici(181,8);
  1413.   GrPiτⁿet╪zec("F2");
  1414.   GrNastavPozici(317,8);
  1415.   GrPiτⁿet╪zec("F3");
  1416.   GrNastavBarvy(Sv╪tloτedá<<4|Tmavomodrá);
  1417.   GrNastavPozici(29,8);
  1418.   GrPiτⁿet╪zec("Nápov╪da");
  1419.   GrNastavPozici(205,8);
  1420.   GrPiτⁿet╪zec("Hra");
  1421.   GrNastavPozici(341,8);
  1422.   GrPiτⁿet╪zec("Konec");
  1423.   ¼ekej(100);
  1424.  
  1425. 7 ;Vypiτ SKαRE do grafického okénka
  1426.    GrNastavBarvuPozadí(Sv╪tloτedá);
  1427.    GrSmaºOkno();
  1428.    GrNastavBarvy(Sv╪tloτedá<<4|Tmavomodrá);
  1429.    GrNastavPozici(5,1);
  1430.    GrPiτⁿet╪zec("Ovladaƒ : ");
  1431.    GrNastavPozici(5,14);
  1432.    GrPiτⁿet╪zec("Karta   : ");
  1433.    GrNastavPozici(109,1);
  1434.    GrPiτⁿet╪zec("Bombon  : ");
  1435.    GrNastavPozici(109,14);
  1436.    GrPiτⁿet╪zec("Ponoºka : ");
  1437.    GrNastavPozici(218,1);
  1438.    GrPiτⁿet╪zec("Peníze  :        Kƒ");
  1439.    GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1440.    GrNastavPozici(218,14);
  1441.    GrPiτⁿet╪zec("F10 - Konec");
  1442.    ;Poƒet
  1443.    GrNastavBarvy(Sv╪tloτedá<<4|¼ervená);
  1444.    GrNastavPozici(85,1);
  1445.    GrPiτU¼íslo(Ovladaƒ,2);
  1446.    GrNastavPozici(85,14);
  1447.    GrPiτU¼íslo(Karta,2);
  1448.    GrNastavPozici(181,1);
  1449.    GrPiτU¼íslo(Bombon,2);
  1450.    GrNastavPozici(181,14);
  1451.    GrPiτU¼íslo(Ponoºka,2);
  1452.    GrNastavPozici(298,1);
  1453.    GrPiτL¼íslo(Peníze,6);
  1454.  
  1455. 8 ΘVOD(PoziceGr);
  1456.  
  1457. H ;Hra
  1458.   BezObláƒku();
  1459.   ¼arujNaPozici(60,2,3);
  1460.   ¼arujNaPozici(44,2,1);
  1461.   ¼ekej(200);
  1462.   ¼arujNaPozici(59,2,3);
  1463.   ¼arujNaPozici(144,1,3);
  1464.   ¼ekej(400);
  1465.   ¼arujNaPozici(60,2,3);
  1466.   ¼arujNaPozici(143,1,3);
  1467.   ¼ekej(500);
  1468. K ;Konec
  1469.   BezObláƒku();
  1470.   ¼arujNaPozici(60,2,4);
  1471.   ¼arujNaPozici(44,2,1);
  1472.   ¼ekej(200);
  1473.   ¼arujNaPozici(59,2,4);
  1474.   ¼arujNaPozici(146,1,4);
  1475.   ¼ekej(400);
  1476.   ¼arujNaPozici(60,2,4);
  1477.   ¼arujNaPozici(145,1,4);
  1478.   ¼ekej(500);
  1479.   ;skok zp╪t s Poτukem v MENU
  1480.   BezObláƒku();
  1481.   ¼arujNaPozici(60,2,1);
  1482.   ¼arujNaPozici(44,2,2);
  1483.   ¼arujNaPozici(44,2,3);
  1484.   ¼arujNaPozici(44,2,4);
  1485.   ¼ekej(500);
  1486.   P²epniNaText();
  1487.   TxtNastavBarvuPozadí(Txt¼erná);
  1488.   TxtSmaºObrazovku();
  1489.   TxtNastavBarvuPop²edí(TxtSv╪tloτedá);
  1490.   TxtNastavPozici(0,1);
  1491.   TxtPiτⁿet╪zec("Díky za zahrátí Poτuka...");
  1492.   TxtNastavPozici(0,2);
  1493.   TxtPiτⁿet╪zec("(C) RCA Software");
  1494.   ¼ekej(3000);
  1495.  
  1496. N ;Nápov╪da
  1497.   BezObláƒku();
  1498.   ¼arujNaPozici(60,2,2);
  1499.   ¼arujNaPozici(44,2,1);
  1500.   ¼ekej(200);
  1501.   ¼arujNaPozici(59,2,2);
  1502.   ¼arujNaPozici(142,1,2);
  1503.   ¼ekej(400);
  1504.   ¼arujNaPozici(60,2,2);
  1505.   ¼arujNaPozici(141,1,2);
  1506.   ¼ekej(500);
  1507.   NaƒtiScénu("*\\posuk.s02");
  1508.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1509.   GrSmaºOkno();
  1510.   ;Nápov╪da
  1511.   P²epniNaText();
  1512.   TxtNastavBarvuPozadí(Txt¼erná);
  1513.   TxtSmaºObrazovku();
  1514.   TxtNastavBarvy(TxtModrá<<4|Txtªlutá);
  1515.   TxtNastavPozici(0,0);
  1516.   TxtPiτⁿet╪zec("                                 N╡POV╖DA                                ");
  1517.   TxtNastavBarvy(Txt¼ervená<<4|Txtªlutá);
  1518.   TxtNastavPozici(0,2);
  1519.   TxtPiτⁿet╪zec("       UVEDEN╓ DO HRY ");
  1520.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1521.   TxtNastavPozici(1,4);
  1522.   TxtPiτⁿet╪zec("  Chystá se velká bankovní loupeº, jejímº hlavním aktérem jsi práv╪ ty.");
  1523.   TxtNastavPozici(1,5);
  1524.   TxtPiτⁿet╪zec("Tv∞m úkolem je pomocí speciálních kreditkaret vybrat z bankomatà a pos-");
  1525.   TxtNastavPozici(1,6);
  1526.   TxtPiτⁿet╪zec("bírat ze zem╪ pokud moºno co nejvíce pen╪z. Karty by m╪ly b∞t uskladn╪-");
  1527.   TxtNastavPozici(1,7);
  1528.   TxtPiτⁿet╪zec("ny za sklen╪nou v∞lohou.  Jelikoº se za ni nemáτ jak dostat, je pot²eba");
  1529.   TxtNastavPozici(1,8);
  1530.   TxtPiτⁿet╪zec("sklo rozbít. K tomu sis obstaral znaƒné mnoºství kamení, takºe se nemu-");
  1531.   TxtNastavPozici(1,9);
  1532.   TxtPiτⁿet╪zec("síτ obávat o jejich nedostatek. Dále pot²ebujeτ zjistit, jak daleko mu-");
  1533.   TxtNastavPozici(1,10);
  1534.   TxtPiτⁿet╪zec("síτ od skla stát, aby ti ani neublíºilo, a abys na n╪j bez problémà do-");
  1535.   TxtNastavPozici(1,11);
  1536.   TxtPiτⁿet╪zec("hodil. To uº si ovτem budeτ muset ud╪lat sám. ");
  1537.   TxtNastavBarvy(Txt¼ervená<<4|Txtªlutá);
  1538.   TxtNastavPozici(0,13);
  1539.   TxtPiτⁿet╪zec("             PⁿEDM╖TY ");
  1540.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1541.   TxtNastavPozici(1,15);
  1542.   TxtPiτⁿet╪zec("  Jenomºe za rozbit∞m sklem  nenajdeτ jen samé kreditkarty, n∞brº dosti");
  1543.   TxtNastavPozici(1,16);
  1544.   TxtPiτⁿet╪zec("ƒasto tam nalezneτ také jin∞ uºiteƒn∞ p²edm╪t, jenº je pro dalτí postup");
  1545.   TxtNastavPozici(1,17);
  1546.   TxtPiτⁿet╪zec("ve h²e nezbytn∞, nebo se dá v∞hodn╪ zpen╪ºit.");
  1547.   ;ovladaƒ
  1548.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloƒervená);
  1549.   TxtNastavPozici(1,19);
  1550.   TxtPiτⁿet╪zec("OVLADA¼ : ");
  1551.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1552.   TxtPiτⁿet╪zec("slouºí k otevírání ocelov∞ch dve²í, jeho hodnota je 1000,- Kƒ.");
  1553.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloτedá);
  1554.   TxtNastavPozici(11,20);
  1555.   TxtPiτⁿet╪zec("(rovn╪º je nutno p²i pouºití najít urƒitou pozici)");
  1556.   ;ponoºka
  1557.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloƒervená);
  1558.   TxtNastavPozici(1,21);
  1559.   TxtPiτⁿet╪zec("PONOªKA : ");
  1560.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1561.   TxtPiτⁿet╪zec("je  velice smradlavá, nedoporuƒuji  si kvàli smradu brát více");
  1562.   TxtNastavPozici(11,22);
  1563.   TxtPiτⁿet╪zec("ponoºek jak jednu. Za smradlavou fusku nedostaneτ nic.");
  1564.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloτedá);
  1565.   TxtNastavPozici(11,23);
  1566.   TxtPiτⁿet╪zec("(dejte na mé rady...)");
  1567.   TxtNastavBarvy(TxtHn╪dá<<4|Txtªlutá);
  1568.   TxtNastavPozici(0,24);
  1569.   TxtPiτⁿet╪zec("                                Zmáƒkni n╪co                             ");
  1570.   TxtNastavBarvuPop²edí(¼erná);
  1571.   ¼ekejNaKlávesu();
  1572.   ;nápov╪da 2
  1573.   TxtNastavBarvuPozadí(Txt¼erná);
  1574.   TxtSmaºObrazovku();
  1575.   TxtNastavBarvy(TxtModrá<<4|Txtªlutá);
  1576.   TxtNastavPozici(0,0);
  1577.   TxtPiτⁿet╪zec("                                 N╡POV╖DA                                ");
  1578.   ;Bombon
  1579.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloƒervená);
  1580.   TxtNastavPozici(1,2);
  1581.   TxtPiτⁿet╪zec("BOMBαN  : ");
  1582.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1583.   TxtPiτⁿet╪zec("dobr∞ v╪trov∞ bombón, kter∞ ti dodá sílu, a ty màºeτ hodit ka-");
  1584.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1585.   TxtNastavPozici(11,3);
  1586.   TxtPiτⁿet╪zec("menem proti zdi. Ud╪láτ-li tak dvakrát, ze╘ se sesype a ty máτ");
  1587.   TxtNastavPozici(11,4);
  1588.   TxtPiτⁿet╪zec("voln∞ pràchod. Po kaºdém hodu (i p²i nepovedeném) ti bombón u-");
  1589.   TxtNastavPozici(11,5);
  1590.   TxtPiτⁿet╪zec("byde, protoºe ho spolkneτ. Z  tohoto  dàvodu je dobré dávat si");
  1591.   TxtNastavPozici(11,6);
  1592.   TxtPiτⁿet╪zec("pozor , kdyº uº bombón rozbalíτ , abys jeho sílu  dob²e vyuºil");
  1593.   TxtNastavPozici(11,7);
  1594.   TxtPiτⁿet╪zec("a hodil na správném míst╪. Bombón  màºeτ mít pouze jeden a  za");
  1595.   TxtNastavPozici(11,8);
  1596.   TxtPiτⁿet╪zec("kaºd∞ rozbalen∞ získáτ 3,- Kƒ.");
  1597.   TxtNastavBarvy(TxtHn╪dá<<4|Txtªlutá);
  1598.   ;ƒinƒila
  1599.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloƒervená);
  1600.   TxtNastavPozici(1,9);
  1601.   TxtPiτⁿet╪zec("¼IN¼ILA : ");
  1602.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1603.   TxtPiτⁿet╪zec("za roztomilé a chlupaté zví²átko máτ 2000,- Kƒ.");
  1604.   ;klávesy
  1605.   TxtNastavBarvy(Txt¼ervená<<4|Txtªlutá);
  1606.   TxtNastavPozici(0,11);
  1607.   TxtPiτⁿet╪zec("             OVL╡D╡N╓ ");
  1608.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1609.   TxtNastavPozici(1,13);
  1610.   TxtPiτⁿet╪zec("µipky    : ");
  1611.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1612.   TxtPiτⁿet╪zec("pohyb");
  1613.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1614.   TxtNastavPozici(1,14);
  1615.   TxtPiτⁿet╪zec("Mezerník : ");
  1616.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1617.   TxtPiτⁿet╪zec("sáhnutí, sebrání - skování do pytlíku, otev²ení");
  1618.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1619.   TxtNastavPozici(1,15);
  1620.   TxtPiτⁿet╪zec("Enter    : ");
  1621.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1622.   TxtPiτⁿet╪zec("hod kamenem ");
  1623.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloτedá);
  1624.   TxtPiτⁿet╪zec("(ƒlov╪ka nelze kamenem zneτkodnit)");
  1625.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1626.   TxtNastavPozici(1,16);
  1627.   TxtPiτⁿet╪zec("písm. 'K': ");
  1628.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1629.   TxtPiτⁿet╪zec("pouºití kreditkarty ");
  1630.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloτedá);
  1631.   TxtPiτⁿet╪zec("(musíτ stát u bankomatu z levé strany)");
  1632.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1633.   TxtNastavPozici(1,17);
  1634.   TxtPiτⁿet╪zec("písm. 'O': ");
  1635.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1636.   TxtPiτⁿet╪zec("pouºití dálkového ovladaƒe");
  1637.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1638.   TxtNastavPozici(1,18);
  1639.   TxtPiτⁿet╪zec("písm. 'P': ");
  1640.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1641.   TxtPiτⁿet╪zec("pouºití ponoºky");
  1642.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1643.   TxtNastavPozici(1,19);
  1644.   TxtPiτⁿet╪zec("F-10     : ");
  1645.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1646.   TxtPiτⁿet╪zec("konec");
  1647.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1648.   TxtNastavPozici(1,20);
  1649.   TxtPiτⁿet╪zec("PageUp   : ");
  1650.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1651.   TxtPiτⁿet╪zec("rychlejτí hra");
  1652.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1653.   TxtNastavPozici(1,21);
  1654.   TxtPiτⁿet╪zec("PageDown : ");
  1655.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1656.   TxtPiτⁿet╪zec("pomalejτí hra");
  1657.   TxtNastavBarvy(Txt¼erná<<4|Txtªlutá);
  1658.   TxtNastavPozici(1,22);
  1659.   TxtPiτⁿet╪zec("písm. 'Z': ");
  1660.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1661.   TxtPiτⁿet╪zec("znova od zaƒátku");
  1662.   TxtNastavBarvy(TxtHn╪dá<<4|Txtªlutá);
  1663.   TxtNastavPozici(0,24);
  1664.   TxtPiτⁿet╪zec("                              Stiskni cokoliv                            ");
  1665.   TxtNastavBarvuPop²edí(¼erná);
  1666.   ¼ekejNaKlávesu();
  1667.   ;nápov╪da 3
  1668.   TxtNastavBarvuPozadí(Txt¼erná);
  1669.   TxtSmaºObrazovku();
  1670.   TxtNastavBarvy(TxtModrá<<4|Txtªlutá);
  1671.   TxtNastavPozici(0,0);
  1672.   TxtPiτⁿet╪zec("                                 N╡POV╖DA                                ");
  1673.   ;info RCA Software
  1674.   TxtNastavBarvy(Txt¼ervená<<4|Txtªlutá);
  1675.   TxtNastavPozici(0,2);
  1676.   TxtPiτⁿet╪zec(" INFORMACE O POµUKOVI ");
  1677.   ;Poτuk
  1678.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tlomodrozelená);
  1679.   TxtNastavPozici(1,4);
  1680.   TxtPiτⁿet╪zec("POµUK verze 1.0");
  1681.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1682.   TxtNastavPozici(1,5);
  1683.   TxtPiτⁿet╪zec("vytvo²eno v SGP-Balt+C 3.3+");
  1684.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloƒervená);
  1685.   TxtNastavPozici(1,7);
  1686.   TxtPiτⁿet╪zec("(c) RCA Software");
  1687.   TxtNastavBarvy(Txt¼erná<<4|Txt¼ervená);
  1688.   TxtNastavPozici(1,8);
  1689.   TxtPiτⁿet╪zec("R∞znar's Computer Arts");
  1690.   TxtNastavBarvy(Txt¼erná<<4|TxtSv╪tloτedá);
  1691.   TxtNastavPozici(1,10);
  1692.   TxtPiτⁿet╪zec("Dokonƒeno dne 26. 10. 1997");
  1693.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1694.   TxtNastavPozici(1,12);
  1695.   TxtPiτⁿet╪zec("Volné τí²ení tohoto programu a zasahování do n╪j, pop². jeho jiné pouºití");
  1696.   TxtNastavBarvuPop²edí(TxtSv╪tloƒervená|TxtBlikat);
  1697.   TxtNastavPozici(20,13);
  1698.   TxtPiτⁿet╪zec("!!!");
  1699.   TxtNastavBarvuPop²edí(Txtªlutá);
  1700.   TxtPiτⁿet╪zec(" jen se souhlasem autora ");
  1701.   TxtNastavBarvuPop²edí(TxtSv╪tloƒervená|TxtBlikat);
  1702.   TxtPiτⁿet╪zec("!!!");
  1703.   ;Adresa RCA Software
  1704.   TxtNastavBarvy(Txt¼ervená<<4|Txtªlutá);
  1705.   TxtNastavPozici(0,15);
  1706.   TxtPiτⁿet╪zec("        ADRESA AUTORA ");
  1707.   TxtNastavBarvy(Txt¼erná<<4|TxtBílá);
  1708.   TxtNastavPozici(1,17);
  1709.   TxtPiτⁿet╪zec("RCA SOFTWARE");
  1710.   TxtNastavPozici(1,18);
  1711.   TxtPiτⁿet╪zec("Martin R∞znar");
  1712.   TxtNastavPozici(1,19);
  1713.   TxtPiτⁿet╪zec("Lukavice 108");
  1714.   TxtNastavPozici(1,20);
  1715.   TxtPiτⁿet╪zec("Poτta Záb²eh");
  1716.   TxtNastavPozici(1,21);
  1717.   TxtPiτⁿet╪zec("PS¼  789 01 ");
  1718.   TxtNastavPozici(1,22);
  1719.   TxtPiτⁿet╪zec("¼eská republika");
  1720.   TxtNastavBarvy(TxtHn╪dá<<4|Txtªlutá);
  1721.   TxtNastavPozici(0,24);
  1722.   TxtPiτⁿet╪zec("                          Do t²etice vτeho dobrého                       ");
  1723.   TxtNastavBarvuPop²edí(¼erná);
  1724.   ¼ekejNaKlávesu();
  1725.   P²epniNaBaltazara();
  1726.   GrSmaºOkno();
  1727.  
  1728. a Klávesa= ¼tiKlávesuZFronty()
  1729. á Klávesa= ¼tiKlávesuZFrontyS¼ekáním();
  1730.  
  1731. b BOMBON(x,y);
  1732.   Bombon=1;
  1733.   Peníze=Peníze+3;
  1734.  
  1735. c ;¼lov╪k... (viz /y)
  1736.   ¼ekej(200);
  1737.   ¼arujNaPozici(89,x+1,y);
  1738.   ¼arujNaPozici(21,x,y);
  1739.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1740.   GrSmaºOkno();
  1741.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1742.   GrNastavPozici(73,8);
  1743.   GrPiτⁿet╪zec("Zkus ho t²eba n╪ƒím otrávit...");
  1744.   ¼ekej(2000);
  1745.  
  1746. ƒ ¼IN¼ILA(x,y,R6);
  1747.   Peníze=Peníze+2000;
  1748.  
  1749. d ;skok Poτuka dolà
  1750.    /*natoƒen na levo*/ KROK(16,17,18,19,R1,R2,x,y,x,b);
  1751.                        y=b; ¼ekej(R4);
  1752.                        SKOK(16,17,18,19,R1,x,y);
  1753. ╘ ;skok Poτuka dolà
  1754.    /*natoƒen na pravo*/ KROK(21,2,3,4,R1,R2,x,y,x,b);
  1755.                         y=b; ¼ekej(R4);
  1756.                         SKOK(21,2,3,4,R1,x,y);
  1757.  
  1758. e EXIT(Exit,R3,Opakování,x,y);
  1759.   Exit=Exit+1;
  1760.   x=1+PoziceBaltazaraX();
  1761.   y=PoziceBaltazaraY();
  1762.   ¼ekej(500);
  1763.   RychlostBaltazara(R3);
  1764.   SObláƒkem();
  1765.   ¼arujNaPozici(21,x,y);
  1766.   BezObláƒku();
  1767.   Vstup=Vstup+1;
  1768.  
  1769. E ;Exit 2
  1770.   ¼ekej(400);
  1771.   RychlostBaltazara(R3);
  1772.   SObláƒkem();
  1773.   ¼arujNaPozici(¼tverec,x,y);
  1774.   BezObláƒku();
  1775.   NaƒtiScénu("*\\posuk.s03");
  1776.   x=X; y=Y;
  1777.   SObláƒkem();
  1778.   RychlostBaltazara(R3);
  1779.   ¼arujNaPozici(21,x,y);
  1780.   BezObláƒku();
  1781.  
  1782. f SEBR╡N╓(x,y,R6);
  1783.   Ponoºka=1;
  1784.  
  1785. g PONOªKA(x,y,Opakování);
  1786.  
  1787. h ;Hod τutru
  1788.   HodµUTREM(x,y,i,j,RozbitíSkla,Bombon,P²edm╪t,R2,R3,R5,R6);
  1789.   Bombon=0;
  1790.  
  1791. i ;Rychlejτí krok
  1792.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1793.   GrSmaºOkno();
  1794.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1795.   GrNastavPozici(93,8);
  1796.   GrPiτⁿet╪zec("Rychlejτí hra zavedena...");
  1797.   R1=50;R2=100;R3=3;R4=0;R5=150;R6=200;
  1798.   ¼ekej(1500);
  1799. í ;Pomalejτí krok
  1800.   GrNastavBarvuPozadí(Sv╪tloτedá);
  1801.   GrSmaºOkno();
  1802.   GrNastavBarvy(Sv╪tloτedá<<4|ªlutá);
  1803.   GrNastavPozici(93,8);
  1804.   GrPiτⁿet╪zec("Pomalejτí hra zavedena...");
  1805.   R1=100;R2=200;R3=2;R4=100;R5=200;R6=400;
  1806.   ¼ekej(1500);
  1807.  
  1808. k ;Karta
  1809.   SEBR╡N╓(x,y,R6);
  1810.   Karta=Karta+1;
  1811.  
  1812. l ;pohyb Poτuka doleva...
  1813.    KROK(16,17,18,19,R1,R2,x,y,c,y);
  1814.    x=c; ¼ekej(R4);
  1815.  
  1816. n ;skok Poτuka nahoru 1
  1817.    /*natoƒen na levo*/ KROK(16,17,18,19,R1,R2,x,y,x,d);
  1818.                        y=d; ¼ekej(R4);
  1819.                        SKOK(16,17,18,19,R1,x,y);
  1820. σ ;skok Poτuka nahoru 2
  1821.    /*natoƒen na pravo*/ KROK(21,2,3,4,R1,R2,x,y,x,d);
  1822.                         y=d; ¼ekej(R4);
  1823.                         SKOK(21,2,3,4,R1,x,y);
  1824.  
  1825. o ;Dálkov∞ ovladaƒ
  1826.   SEBR╡N╓(x,y,R6);
  1827.   Ovladaƒ=Ovladaƒ+1;
  1828.  
  1829. p ;pohyb Poτuka doprava...
  1830.    KROK(21,2,3,4,R1,R2,x,y,a,y);
  1831.    x=a; ¼ekej(R4);
  1832.  
  1833. q ;Sebrání pen╪z (fialové papírky...)
  1834.    SEBR╡N╓(x,y,R6);
  1835.    Peníze=Peníze+1000;
  1836.  
  1837. ² OTEVⁿEN╓(x,y);
  1838.   Ovladaƒ=Ovladaƒ-1;
  1839.  
  1840. s KONEC(x,y,Klávesa);
  1841.   GrSmaºOkno();
  1842.  
  1843. t  BANKOMAT(e,f,x,y,Klávesa,Opakování,¼ástka=Náhodné¼íslo(11),PoziceGr);
  1844.    Peníze=Peníze+(¼ástka*1000);
  1845.    Karta=Karta-1;
  1846.  
  1847. u ;Ukonƒi
  1848.   Konec=1;
  1849.  
  1850. v VφTAH(R2,R6);
  1851.   x=2; y=2
  1852.  
  1853. w ;ƒekej na klávesu, smaº klávesu
  1854.    ¼ekejNaKlávesu();
  1855.    VyprázdniFrontuKláves();
  1856.  
  1857. y ;Sebrání stovky (hn╪d∞ papírek...)
  1858.    SEBR╡N╓(x,y,R6);
  1859.    Peníze=Peníze+100;
  1860. ∞ ;Sebrání mince (kulat∞ p²edm╪t...)
  1861.    SEBR╡N╓(x,y,R6);
  1862.    Peníze=Peníze+1;
  1863.  
  1864. z ;ZE╥
  1865.   ¼arujNaPozici(35,x+1,y);¼ekej(100);
  1866.   ¼arujNaPozici(36,x+1,y);¼ekej(100);
  1867.   ¼arujNaPozici(37,x+1,y);¼ekej(100);
  1868.   ¼arujNaPozici(38,x+1,y);¼ekej(100);
  1869.  
  1870. º OTR╡VEN╓(Opakování,x,y);
  1871.   Ponoºka=0;
  1872.   Peníze=Peníze+100
  1873.  
  1874. V VYΘ¼TOV╡N╓(PozX,PozY,Opakování,Ovladaƒ,Karta,PoziceGr);
  1875.   Ovladaƒ=0;
  1876.   Karta=0;
  1877.  
  1878.  
  1879. Z ;záv╪reƒná obrazovka
  1880.   Z╡V╖R(x,y,Opakování,PoziceGr,R3,Peníze);
  1881.   Konec=2;
  1882.  
  1883. B NastavBarvu¼arování
  1884. W ¼ekej
  1885. X ¼arujNaPozici
  1886.  
  1887. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1888.  
  1889. /1 P²edm╪tNaPozici(x+1,y) Je ¼tverec
  1890. /2 P²edm╪tNaPozici(x-1,y) Je ¼tverec
  1891. /3 P²edm╪tNaPozici(x,y-1) Je ¼tverec
  1892. /4 P²edm╪tNaPozici(x,y+1) Je ¼tverec
  1893.  
  1894. /5 P²edm╪tNaPozici(x,y) Je 16
  1895. /6 P²edm╪tNaPozici(x,y) Je 21
  1896.  
  1897. /7 Klávesa Je
  1898.  
  1899. /p  Klávesa Je KlDoprava
  1900. /l  Klávesa Je KlDoleva
  1901. /n  Klávesa Je KlNahoru
  1902. /d  Klávesa Je KlDolà
  1903.  
  1904. /m  Klávesa Je ' '
  1905. /e  Klávesa Je KlEnter
  1906.  
  1907. /U Klávesa Je KlPageUp
  1908. /D Klávesa Je KlPageDown
  1909.  
  1910. /B ;Bonusov∞ level...
  1911.     Klávesa Je 'b' Nebo Klávesa Je 'B'
  1912. /K ;Bankomat
  1913.     Klávesa Je 'k' Nebo Klávesa Je 'K'
  1914. /O ;Otev²ení ocel. dve²í pomocí dálkového ovladaƒe...
  1915.     Klávesa Je 'o' Nebo Klávesa Je 'O'
  1916. /P ;Otrávení ƒlov╪ka (viz /y)
  1917.     Klávesa Je 'p' Nebo Klávesa Je 'P' /* jako ponoºka */
  1918. /Z ;Opakování hry, jdi na zaƒátek...
  1919.     Klávesa Je 'z' Nebo Klávesa Je 'Z'
  1920.  
  1921. /a ;Karta ( do bankomatu )
  1922.     P²edm╪tNaPozici(x+1,y) Je 76
  1923. /b ;Bombon ( - v╪trov∞ - k v╪tτí síle... )
  1924.     P²edm╪tNaPozici(x+1,y) Je 31
  1925. /c ;Ocelové dve²e
  1926.     P²edm╪tNaPozici(x+2,y) Je 84
  1927. /ƒ ;¼inƒila (c) RCA
  1928.     P²edm╪tNaPozici(x+1,y) Je 34
  1929. /╪ ;Je koho otrávit ?
  1930.     (P²edm╪tNaPozici(x+1,y) Je 89) Nebo (P²edm╪tNaPozici(x+1,y) Je 90)
  1931. /f ;Fusakle ( ponoºka )
  1932.     P²edm╪tNaPozici(x+1,y) Je 24
  1933. /i ;Stovka
  1934.     P²edm╪tNaPozici(x+1,y) Je 92
  1935. /í ;Stovka
  1936.     P²edm╪tNaPozici(x+1,y) Je 133
  1937. /j ;Jiná ƒinƒila
  1938.     P²edm╪tNaPozici(x+1,y) Je 29
  1939. /k ;Karta ( do bankomatu... ( C je jako CARD ))
  1940.     P²edm╪tNaPozici(x+1,y) Je 23
  1941. /o ;Ovladaƒ ( na otev²ení ocel. dve²í )
  1942.     P²edm╪tNaPozici(x+1,y) Je 22
  1943. /q ;Peníze (bankovky)
  1944.     P²edm╪tNaPozici(x+1,y) Je 93
  1945. /v ;V∞tah
  1946.     P²edm╪tNaPozici(x-1,y) Je 116
  1947. /x ;Exit ( vstup do dalτího kola... )
  1948.     P²edm╪tNaPozici(x+1,y) Je 100
  1949. /y ;¼lov╪k, kter∞ Poτukovi vadí v pràchodu...
  1950.     P²edm╪tNaPozici(x+1,y) Je 90
  1951. /X ;Bonusov∞ exit 2
  1952.     P²edm╪tNaPozici(x+1,y) Je 99
  1953. /z ;Poslední Exit p²ed Poτukem => záv╪r
  1954.     P²edm╪tNaPozici(x+1,y) Je 101
  1955.  
  1956. /r Ovladaƒ JeV╪tτíNeboRovno 1
  1957. /² Ovladaƒ Je 0
  1958. /s Bombon Je 0
  1959. /τ Bombon Je 1
  1960. /t Karta JeV╪tτíNeboRovno 1
  1961. /£ Karta Je 0
  1962. /u Ponoºka Je 0
  1963. /º Ponoºka Je 1
  1964. /A Bonus Je 0
  1965.  
  1966. /V Vstup==3
  1967. /E Bonus==1
  1968. /ú Konec==1
  1969. /à Konec==2
  1970.  
  1971. *k ;dokud není stisknuta klávesa "F3"
  1972.     Klávesa Není KlF3
  1973. *m ;dokud klávesa není "F10" nebo není normální konec
  1974.     Konec Je 0
  1975. *e ;dokud není stisknuto Esc
  1976.     Klávesa Není KlEnter
  1977.  
  1978. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1979.     PràchodnostP²edm╪tuP²edB()
  1980. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1981.     Barva¼tverceP²edB()
  1982. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1983.     P²edm╪tP²edB()
  1984. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1985.     Sm╪rBaltazara()
  1986. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1987.     OdDoKrok
  1988. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1989.     OdDolàDoKrok
  1990. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1991.     DolàDo0
  1992. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1993.     Od0
  1994.  
  1995. =SP---------------------------------------------------------------------------
  1996. /***** konec programu *****/
  1997.