home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katB.exe / katB / CITY / CITY.SGP < prev    next >
Text File  |  2002-09-28  |  77KB  |  2,487 lines
  1. SGPC   5.05 032#000001105 10.08.2002 17:43:54                                    StructNo 9   9
  2. // City Engine(Hlavní MENU) - verze 26t INVEX EDITION II
  3. // V∞voj poƒat 25.5.2002 (sobota)
  4. // Program po dvacátém-τestém t∞dnu v∞voje (28.9.2002)
  5. // poslední úpravy ve ƒtvrtek 26.9.2002
  6.  
  7. # include <sgpbalt.h>
  8. #define ON 1
  9. #define OFF 0
  10. #define CZ 1
  11. #define EN 0
  12.  
  13. // TABULKA
  14.   typedef struct { char Jmeno[26];
  15.                  int  Body;  }TypTabulka;
  16.   TypTabulka Tab[6];
  17. int Zapsat,Body;
  18.  
  19. // Globální prom╪nné
  20. TypAnimP²edm╪t CEL1,CEL2,CEL3,CEL4,CEL5,CEL6,CEL7,CEL8,CEL9,CEL10;
  21. TypAnimP²edm╪t SH1,SH2,SH3,SH4,SH5,SH6,SH7,SH8;
  22. TypAnimP²edm╪t E1,E2,E3,E4,E5,E6;
  23. TypAnimP²edm╪t K1,K2,K3,K4,K5,K6,Myτ;
  24. int Cx,Cy,Sx,Sy,Ey,Ex,Kx,Ky,Mx,My,DélkaDne;
  25. TypMyτUdálost MyτUdálost;
  26. int n,y,z,m,Cframu,Sound,Language;
  27. string Run,Povolání;
  28. struct
  29. {
  30.  int X,Y;
  31.  TypAnimP²edm╪t Anim1,Anim2,Anim3,Anim4,Anim5,Anim6,Anim7,Anim8,Anim9,Anim10,Anim11,
  32.                 Anim12,Anim13,Anim14,Anim15,Anim16,Anim17,Anim18,Anim19,Anim20;
  33. } Frame0,Frame1;
  34. // Globální makra
  35. -o1-Globals
  36. -c1-Globals
  37. ===Globals
  38. /*-hf(*/
  39. /*-hf-*/
  40. void FrameB( void )
  41. /*-hf-*/;
  42. void FrameA( void )
  43. /*-hf-*/;
  44. void ChooseYourLanguage( void )
  45. /*-hf-*/;
  46. void UloºTabulku( void )
  47. /*-hf-*/;
  48. void NaƒtiTabulku( void )
  49. /*-hf-*/;
  50. void Tabulka( void )
  51. /*-hf-*/;
  52. void NastaveníHry( void )
  53. /*-hf-*/;
  54. void V∞b╪rPovolání( void )
  55. /*-hf-*/;
  56. void ChooseEditor( void )
  57. /*-hf-*/;
  58. void main( void )
  59. /*-hf)*/;
  60. ;-h---------------------------------------------------------------------------
  61. void FrameB( void )
  62. -s--FrameB                                                                      ■  18  -2 -20   3
  63.         FrameB
  64. :Cframu=12!
  65.        OBS!
  66.        NBS!
  67.        MBS!
  68.        LBS!
  69.        KBS!
  70.  :Cframu=7!
  71.        JBb!
  72. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  73. A /**Vytvo² Frame1**/
  74.  
  75.   Frame1.Anim1 = AnimP²edm╪tVytvo²(5001,1,0,1);
  76.   Frame1.Anim2 = AnimP²edm╪tVytvo²(5002,1,0,1);
  77.  
  78.   Frame1.Anim3 = AnimP²edm╪tVytvo²(5016,1,0,1);
  79.   Frame1.Anim4 = AnimP²edm╪tVytvo²(5017,1,0,1);
  80.  
  81.   Frame1.Anim5 = AnimP²edm╪tVytvo²(5031,1,0,1);
  82.   Frame1.Anim6 = AnimP²edm╪tVytvo²(5032,1,0,1);
  83.  
  84.   Frame1.Anim7 = AnimP²edm╪tVytvo²(5046,1,0,1);
  85.   Frame1.Anim8 = AnimP²edm╪tVytvo²(5047,1,0,1);
  86.  
  87.   Frame1.Anim9 = AnimP²edm╪tVytvo²(5061,1,0,1);
  88.   Frame1.Anim10= AnimP²edm╪tVytvo²(5062,1,0,1);
  89.  
  90.   Frame1.Anim11= AnimP²edm╪tVytvo²(5076,1,0,1);
  91.   Frame1.Anim12= AnimP²edm╪tVytvo²(5077,1,0,1);
  92.  
  93.   Frame1.Anim13= AnimP²edm╪tVytvo²(5091,1,0,1);
  94.   Frame1.Anim14= AnimP²edm╪tVytvo²(5092,1,0,1);
  95.  
  96.   Frame1.Anim15= AnimP²edm╪tVytvo²(5106,1,0,1);
  97.   Frame1.Anim16= AnimP²edm╪tVytvo²(5107,1,0,1);
  98.  
  99. C /**Vytvo² Frame1**/
  100.  
  101.   Frame1.Anim1 = AnimP²edm╪tVytvo²(6001,1,0,1);
  102.   Frame1.Anim2 = AnimP²edm╪tVytvo²(6002,1,0,1);
  103.  
  104.   Frame1.Anim3 = AnimP²edm╪tVytvo²(6016,1,0,1);
  105.   Frame1.Anim4 = AnimP²edm╪tVytvo²(6017,1,0,1);
  106.  
  107.   Frame1.Anim5 = AnimP²edm╪tVytvo²(6031,1,0,1);
  108.   Frame1.Anim6 = AnimP²edm╪tVytvo²(6032,1,0,1);
  109.  
  110.   Frame1.Anim7 = AnimP²edm╪tVytvo²(6046,1,0,1);
  111.   Frame1.Anim8 = AnimP²edm╪tVytvo²(6047,1,0,1);
  112.  
  113.   Frame1.Anim9 = AnimP²edm╪tVytvo²(6061,1,0,1);
  114.   Frame1.Anim10= AnimP²edm╪tVytvo²(6062,1,0,1);
  115.  
  116.   Frame1.Anim11= AnimP²edm╪tVytvo²(6076,1,0,1);
  117.   Frame1.Anim12= AnimP²edm╪tVytvo²(6077,1,0,1);
  118.  
  119.   Frame1.Anim13= AnimP²edm╪tVytvo²(6091,1,0,1);
  120.   Frame1.Anim14= AnimP²edm╪tVytvo²(6092,1,0,1);
  121.  
  122.   Frame1.Anim15= AnimP²edm╪tVytvo²(6106,1,0,1);
  123.   Frame1.Anim16= AnimP²edm╪tVytvo²(6107,1,0,1);
  124.  
  125. D /**Vytvo² Frame2**/
  126.  
  127.   Frame1.Anim1 = AnimP²edm╪tVytvo²(7001,1,0,1);
  128.   Frame1.Anim2 = AnimP²edm╪tVytvo²(7002,1,0,1);
  129.  
  130.   Frame1.Anim3 = AnimP²edm╪tVytvo²(7016,1,0,1);
  131.   Frame1.Anim4 = AnimP²edm╪tVytvo²(7017,1,0,1);
  132.  
  133.   Frame1.Anim5 = AnimP²edm╪tVytvo²(7031,1,0,1);
  134.   Frame1.Anim6 = AnimP²edm╪tVytvo²(7032,1,0,1);
  135.  
  136.   Frame1.Anim7 = AnimP²edm╪tVytvo²(7046,1,0,1);
  137.   Frame1.Anim8 = AnimP²edm╪tVytvo²(7047,1,0,1);
  138.  
  139.   Frame1.Anim9 = AnimP²edm╪tVytvo²(7061,1,0,1);
  140.   Frame1.Anim10= AnimP²edm╪tVytvo²(7062,1,0,1);
  141.  
  142.   Frame1.Anim11= AnimP²edm╪tVytvo²(7076,1,0,1);
  143.   Frame1.Anim12= AnimP²edm╪tVytvo²(7077,1,0,1);
  144.  
  145.   Frame1.Anim13= AnimP²edm╪tVytvo²(7091,1,0,1);
  146.   Frame1.Anim14= AnimP²edm╪tVytvo²(7092,1,0,1);
  147.  
  148. F /**Vytvo² Frame3**/
  149.  
  150.   Frame1.Anim1 = AnimP²edm╪tVytvo²(8001,1,0,1);
  151.   Frame1.Anim2 = AnimP²edm╪tVytvo²(8002,1,0,1);
  152.  
  153.   Frame1.Anim3 = AnimP²edm╪tVytvo²(8016,1,0,1);
  154.   Frame1.Anim4 = AnimP²edm╪tVytvo²(8017,1,0,1);
  155.  
  156.   Frame1.Anim5 = AnimP²edm╪tVytvo²(8031,1,0,1);
  157.   Frame1.Anim6 = AnimP²edm╪tVytvo²(8032,1,0,1);
  158.  
  159.   Frame1.Anim7 = AnimP²edm╪tVytvo²(8046,1,0,1);
  160.   Frame1.Anim8 = AnimP²edm╪tVytvo²(8047,1,0,1);
  161.  
  162.   Frame1.Anim9 = AnimP²edm╪tVytvo²(8061,1,0,1);
  163.   Frame1.Anim10= AnimP²edm╪tVytvo²(8062,1,0,1);
  164.  
  165.   Frame1.Anim11= AnimP²edm╪tVytvo²(8076,1,0,1);
  166.   Frame1.Anim12= AnimP²edm╪tVytvo²(8077,1,0,1);
  167.  
  168.   Frame1.Anim13= AnimP²edm╪tVytvo²(8091,1,0,1);
  169.   Frame1.Anim14= AnimP²edm╪tVytvo²(8092,1,0,1);
  170.  
  171. G /**Vytvo² Frame4**/
  172.  
  173.   Frame1.Anim1 = AnimP²edm╪tVytvo²(9001,1,0,1);
  174.   Frame1.Anim2 = AnimP²edm╪tVytvo²(9002,1,0,1);
  175.  
  176.   Frame1.Anim3 = AnimP²edm╪tVytvo²(9016,1,0,1);
  177.   Frame1.Anim4 = AnimP²edm╪tVytvo²(9017,1,0,1);
  178.  
  179.   Frame1.Anim5 = AnimP²edm╪tVytvo²(9031,1,0,1);
  180.   Frame1.Anim6 = AnimP²edm╪tVytvo²(9032,1,0,1);
  181.  
  182.   Frame1.Anim7 = AnimP²edm╪tVytvo²(9046,1,0,1);
  183.   Frame1.Anim8 = AnimP²edm╪tVytvo²(9047,1,0,1);
  184.  
  185.   Frame1.Anim9 = AnimP²edm╪tVytvo²(9061,1,0,1);
  186.   Frame1.Anim10= AnimP²edm╪tVytvo²(9062,1,0,1);
  187.  
  188.   Frame1.Anim11= AnimP²edm╪tVytvo²(9076,1,0,1);
  189.   Frame1.Anim12= AnimP²edm╪tVytvo²(9077,1,0,1);
  190.  
  191.   Frame1.Anim13= AnimP²edm╪tVytvo²(9091,1,0,1);
  192.   Frame1.Anim14= AnimP²edm╪tVytvo²(9092,1,0,1);
  193.  
  194. H /**Vytvo² Frame5**/
  195.  
  196.   Frame1.Anim1 = AnimP²edm╪tVytvo²(10001,1,0,1);
  197.   Frame1.Anim2 = AnimP²edm╪tVytvo²(10002,1,0,1);
  198.  
  199.   Frame1.Anim3 = AnimP²edm╪tVytvo²(10016,1,0,1);
  200.   Frame1.Anim4 = AnimP²edm╪tVytvo²(10017,1,0,1);
  201.  
  202.   Frame1.Anim5 = AnimP²edm╪tVytvo²(10031,1,0,1);
  203.   Frame1.Anim6 = AnimP²edm╪tVytvo²(10032,1,0,1);
  204.  
  205.   Frame1.Anim7 = AnimP²edm╪tVytvo²(10046,1,0,1);
  206.   Frame1.Anim8 = AnimP²edm╪tVytvo²(10047,1,0,1);
  207.  
  208.   Frame1.Anim9 = AnimP²edm╪tVytvo²(10061,1,0,1);
  209.   Frame1.Anim10= AnimP²edm╪tVytvo²(10062,1,0,1);
  210.  
  211.   Frame1.Anim11= AnimP²edm╪tVytvo²(10076,1,0,1);
  212.   Frame1.Anim12= AnimP²edm╪tVytvo²(10077,1,0,1);
  213.  
  214.   Frame1.Anim13= AnimP²edm╪tVytvo²(10091,1,0,1);
  215.   Frame1.Anim14= AnimP²edm╪tVytvo²(10092,1,0,1);
  216.  
  217. I /**Vytvo² Frame6**/
  218.  
  219.   Frame1.Anim1 = AnimP²edm╪tVytvo²(11001,1,0,1);
  220.   Frame1.Anim2 = AnimP²edm╪tVytvo²(11002,1,0,1);
  221.  
  222.   Frame1.Anim3 = AnimP²edm╪tVytvo²(11016,1,0,1);
  223.   Frame1.Anim4 = AnimP²edm╪tVytvo²(11017,1,0,1);
  224.  
  225.   Frame1.Anim5 = AnimP²edm╪tVytvo²(11031,1,0,1);
  226.   Frame1.Anim6 = AnimP²edm╪tVytvo²(11032,1,0,1);
  227.  
  228.   Frame1.Anim7 = AnimP²edm╪tVytvo²(11046,1,0,1);
  229.   Frame1.Anim8 = AnimP²edm╪tVytvo²(11047,1,0,1);
  230.  
  231.   Frame1.Anim9 = AnimP²edm╪tVytvo²(11061,1,0,1);
  232.   Frame1.Anim10= AnimP²edm╪tVytvo²(11062,1,0,1);
  233.  
  234.   Frame1.Anim11= AnimP²edm╪tVytvo²(11076,1,0,1);
  235.   Frame1.Anim12= AnimP²edm╪tVytvo²(11077,1,0,1);
  236.  
  237.   Frame1.Anim13= AnimP²edm╪tVytvo²(11091,1,0,1);
  238.   Frame1.Anim14= AnimP²edm╪tVytvo²(11092,1,0,1);
  239.  
  240.   Frame1.Anim15= AnimP²edm╪tVytvo²(11106,1,0,1);
  241.   Frame1.Anim16= AnimP²edm╪tVytvo²(11107,1,0,1);
  242.  
  243. J /**Vytvo² Frame7**/
  244.  
  245.   Frame1.Anim1 = AnimP²edm╪tVytvo²(12001,1,0,1);
  246.   Frame1.Anim2 = AnimP²edm╪tVytvo²(12002,1,0,1);
  247.  
  248.   Frame1.Anim3 = AnimP²edm╪tVytvo²(12016,1,0,1);
  249.   Frame1.Anim4 = AnimP²edm╪tVytvo²(12017,1,0,1);
  250.  
  251.   Frame1.Anim5 = AnimP²edm╪tVytvo²(12031,1,0,1);
  252.   Frame1.Anim6 = AnimP²edm╪tVytvo²(12032,1,0,1);
  253.  
  254.   Frame1.Anim7 = AnimP²edm╪tVytvo²(12046,1,0,1);
  255.   Frame1.Anim8 = AnimP²edm╪tVytvo²(12047,1,0,1);
  256.  
  257.   Frame1.Anim9 = AnimP²edm╪tVytvo²(12061,1,0,1);
  258.   Frame1.Anim10= AnimP²edm╪tVytvo²(12062,1,0,1);
  259.  
  260.   Frame1.Anim11= AnimP²edm╪tVytvo²(12076,1,0,1);
  261.   Frame1.Anim12= AnimP²edm╪tVytvo²(12077,1,0,1);
  262.  
  263.   Frame1.Anim13= AnimP²edm╪tVytvo²(12091,1,0,1);
  264.   Frame1.Anim14= AnimP²edm╪tVytvo²(12092,1,0,1);
  265.  
  266.   Frame1.Anim15= AnimP²edm╪tVytvo²(12106,1,0,1);
  267.   Frame1.Anim16= AnimP²edm╪tVytvo²(12107,1,0,1);
  268.  
  269.   Frame1.Anim17= AnimP²edm╪tVytvo²(12048,1,0,1);
  270.   Frame1.Anim18= AnimP²edm╪tVytvo²(12063,1,0,1);
  271.  
  272. K /**Vytvo² Frame8**/
  273.  
  274.   Frame1.Anim1 = AnimP²edm╪tVytvo²(13001,1,0,1);
  275.   Frame1.Anim2 = AnimP²edm╪tVytvo²(13002,1,0,1);
  276.  
  277.   Frame1.Anim3 = AnimP²edm╪tVytvo²(13016,1,0,1);
  278.   Frame1.Anim4 = AnimP²edm╪tVytvo²(13017,1,0,1);
  279.  
  280.   Frame1.Anim5 = AnimP²edm╪tVytvo²(13031,1,0,1);
  281.   Frame1.Anim6 = AnimP²edm╪tVytvo²(13032,1,0,1);
  282.  
  283.   Frame1.Anim7 = AnimP²edm╪tVytvo²(13046,1,0,1);
  284.   Frame1.Anim8 = AnimP²edm╪tVytvo²(13047,1,0,1);
  285.  
  286.   Frame1.Anim9 = AnimP²edm╪tVytvo²(13061,1,0,1);
  287.   Frame1.Anim10= AnimP²edm╪tVytvo²(13062,1,0,1);
  288.  
  289.   Frame1.Anim11= AnimP²edm╪tVytvo²(13076,1,0,1);
  290.   Frame1.Anim12= AnimP²edm╪tVytvo²(13077,1,0,1);
  291.  
  292.   Frame1.Anim13= AnimP²edm╪tVytvo²(13091,1,0,1);
  293.   Frame1.Anim14= AnimP²edm╪tVytvo²(13092,1,0,1);
  294.  
  295.   Frame1.Anim15= AnimP²edm╪tVytvo²(13106,1,0,1);
  296.   Frame1.Anim16= AnimP²edm╪tVytvo²(13107,1,0,1);
  297.  
  298.   Frame1.Anim17= AnimP²edm╪tVytvo²(13018,1,0,1);
  299.   Frame1.Anim18= AnimP²edm╪tVytvo²(13033,1,0,1);
  300.  
  301.   Frame1.Anim19= AnimP²edm╪tVytvo²(13048,1,0,1);
  302.   Frame1.Anim20= AnimP²edm╪tVytvo²(13063,1,0,1);
  303.  
  304. L /**Vytvo² Frame9**/
  305.  
  306.   Frame1.Anim1 = AnimP²edm╪tVytvo²(14001,1,0,1);
  307.   Frame1.Anim2 = AnimP²edm╪tVytvo²(14002,1,0,1);
  308.  
  309.   Frame1.Anim3 = AnimP²edm╪tVytvo²(14016,1,0,1);
  310.   Frame1.Anim4 = AnimP²edm╪tVytvo²(14017,1,0,1);
  311.  
  312.   Frame1.Anim5 = AnimP²edm╪tVytvo²(14031,1,0,1);
  313.   Frame1.Anim6 = AnimP²edm╪tVytvo²(14032,1,0,1);
  314.  
  315.   Frame1.Anim7 = AnimP²edm╪tVytvo²(14046,1,0,1);
  316.   Frame1.Anim8 = AnimP²edm╪tVytvo²(14047,1,0,1);
  317.  
  318.   Frame1.Anim9 = AnimP²edm╪tVytvo²(14061,1,0,1);
  319.   Frame1.Anim10= AnimP²edm╪tVytvo²(14062,1,0,1);
  320.  
  321.   Frame1.Anim11= AnimP²edm╪tVytvo²(14076,1,0,1);
  322.   Frame1.Anim12= AnimP²edm╪tVytvo²(14077,1,0,1);
  323.  
  324.   Frame1.Anim13= AnimP²edm╪tVytvo²(14091,1,0,1);
  325.   Frame1.Anim14= AnimP²edm╪tVytvo²(14092,1,0,1);
  326.  
  327.   Frame1.Anim15= AnimP²edm╪tVytvo²(14018,1,0,1);
  328.   Frame1.Anim16= AnimP²edm╪tVytvo²(14033,1,0,1);
  329.  
  330.   Frame1.Anim17= AnimP²edm╪tVytvo²(14048,1,0,1);
  331.   Frame1.Anim18= AnimP²edm╪tVytvo²(14063,1,0,1);
  332.  
  333. B /**Animuj FrameXX**/
  334.  
  335.   AnimP²edm╪tAnimuj(Frame1.Anim1,Frame1.X,Frame1.Y,0);
  336.   AnimP²edm╪tAnimuj(Frame1.Anim2,Frame1.X+39,Frame1.Y,0);
  337.  
  338.   AnimP²edm╪tAnimuj(Frame1.Anim3,Frame1.X,Frame1.Y+29,0);
  339.   AnimP²edm╪tAnimuj(Frame1.Anim4,Frame1.X+39,Frame1.Y+29,0);
  340.  
  341.   AnimP²edm╪tAnimuj(Frame1.Anim5,Frame1.X,Frame1.Y+58,0);
  342.   AnimP²edm╪tAnimuj(Frame1.Anim6,Frame1.X+39,Frame1.Y+58,0);
  343.  
  344.   AnimP²edm╪tAnimuj(Frame1.Anim7,Frame1.X,Frame1.Y+87,0);
  345.   AnimP²edm╪tAnimuj(Frame1.Anim8,Frame1.X+39,Frame1.Y+87,0);
  346.  
  347.   AnimP²edm╪tAnimuj(Frame1.Anim9,Frame1.X,Frame1.Y+116,0);
  348.   AnimP²edm╪tAnimuj(Frame1.Anim10,Frame1.X+39,Frame1.Y+116,0);
  349.  
  350.   AnimP²edm╪tAnimuj(Frame1.Anim11,Frame1.X,Frame1.Y+145,0);
  351.   AnimP²edm╪tAnimuj(Frame1.Anim12,Frame1.X+39,Frame1.Y+145,0);
  352.  
  353.   AnimP²edm╪tAnimuj(Frame1.Anim13,Frame1.X,Frame1.Y+174,0);
  354.   AnimP²edm╪tAnimuj(Frame1.Anim14,Frame1.X+39,Frame1.Y+174,0);
  355.  
  356.   if (Cframu != 2 && Cframu != 3 && Cframu != 4 && Cframu != 5 && Cframu != 9 &&
  357.       Cframu != 10 && Cframu != 11 && Cframu != 12) {
  358.   AnimP²edm╪tAnimuj(Frame1.Anim15,Frame1.X,Frame1.Y+203,0);
  359.   AnimP²edm╪tAnimuj(Frame1.Anim16,Frame1.X+39,Frame1.Y+203,0);
  360.   }
  361.  
  362.   if (Cframu == 7) {
  363.   AnimP²edm╪tAnimuj(Frame1.Anim17,Frame1.X+78,Frame1.Y+87,0);
  364.   AnimP²edm╪tAnimuj(Frame1.Anim18,Frame1.X+78,Frame1.Y+116,0);
  365.   }
  366.  
  367.   if (Cframu == 8) {
  368.   AnimP²edm╪tAnimuj(Frame1.Anim17,Frame1.X+78,Frame1.Y+29,0);
  369.   AnimP²edm╪tAnimuj(Frame1.Anim18,Frame1.X+78,Frame1.Y+58,0);
  370.   AnimP²edm╪tAnimuj(Frame1.Anim19,Frame1.X+78,Frame1.Y+87,0);
  371.   AnimP²edm╪tAnimuj(Frame1.Anim20,Frame1.X+78,Frame1.Y+116,0);
  372.   }
  373.  
  374.   if (Cframu == 9) {
  375.   AnimP²edm╪tAnimuj(Frame1.Anim15,Frame1.X+78,Frame1.Y+29,0);
  376.   AnimP²edm╪tAnimuj(Frame1.Anim16,Frame1.X+78,Frame1.Y+58,0);
  377.   AnimP²edm╪tAnimuj(Frame1.Anim17,Frame1.X+78,Frame1.Y+87,0);
  378.   AnimP²edm╪tAnimuj(Frame1.Anim18,Frame1.X+78,Frame1.Y+116,0);
  379.   }
  380.  
  381.   if (Cframu == 10 || Cframu == 11) {
  382.   AnimP²edm╪tAnimuj(Frame1.Anim15,Frame1.X+78,Frame1.Y,0);
  383.   }
  384. M /**Vytvo² Frame10**/
  385.  
  386.   Frame1.Anim1 = AnimP²edm╪tVytvo²(15001,1,0,1);
  387.   Frame1.Anim2 = AnimP²edm╪tVytvo²(15002,1,0,1);
  388.  
  389.   Frame1.Anim3 = AnimP²edm╪tVytvo²(15016,1,0,1);
  390.   Frame1.Anim4 = AnimP²edm╪tVytvo²(15017,1,0,1);
  391.  
  392.   Frame1.Anim5 = AnimP²edm╪tVytvo²(15031,1,0,1);
  393.   Frame1.Anim6 = AnimP²edm╪tVytvo²(15032,1,0,1);
  394.  
  395.   Frame1.Anim7 = AnimP²edm╪tVytvo²(15046,1,0,1);
  396.   Frame1.Anim8 = AnimP²edm╪tVytvo²(15047,1,0,1);
  397.  
  398.   Frame1.Anim9 = AnimP²edm╪tVytvo²(15061,1,0,1);
  399.   Frame1.Anim10= AnimP²edm╪tVytvo²(15062,1,0,1);
  400.  
  401.   Frame1.Anim11= AnimP²edm╪tVytvo²(15076,1,0,1);
  402.   Frame1.Anim12= AnimP²edm╪tVytvo²(15077,1,0,1);
  403.  
  404.   Frame1.Anim13= AnimP²edm╪tVytvo²(15091,1,0,1);
  405.   Frame1.Anim14= AnimP²edm╪tVytvo²(15092,1,0,1);
  406.  
  407.   Frame1.Anim15= AnimP²edm╪tVytvo²(15003,1,0,1);
  408. N /**Vytvo² Frame11**/
  409.  
  410.   Frame1.Anim1 = AnimP²edm╪tVytvo²(16001,1,0,1);
  411.   Frame1.Anim2 = AnimP²edm╪tVytvo²(16002,1,0,1);
  412.  
  413.   Frame1.Anim3 = AnimP²edm╪tVytvo²(16016,1,0,1);
  414.   Frame1.Anim4 = AnimP²edm╪tVytvo²(16017,1,0,1);
  415.  
  416.   Frame1.Anim5 = AnimP²edm╪tVytvo²(16031,1,0,1);
  417.   Frame1.Anim6 = AnimP²edm╪tVytvo²(16032,1,0,1);
  418.  
  419.   Frame1.Anim7 = AnimP²edm╪tVytvo²(16046,1,0,1);
  420.   Frame1.Anim8 = AnimP²edm╪tVytvo²(16047,1,0,1);
  421.  
  422.   Frame1.Anim9 = AnimP²edm╪tVytvo²(16061,1,0,1);
  423.   Frame1.Anim10= AnimP²edm╪tVytvo²(16062,1,0,1);
  424.  
  425.   Frame1.Anim11= AnimP²edm╪tVytvo²(16076,1,0,1);
  426.   Frame1.Anim12= AnimP²edm╪tVytvo²(16077,1,0,1);
  427.  
  428.   Frame1.Anim13= AnimP²edm╪tVytvo²(16091,1,0,1);
  429.   Frame1.Anim14= AnimP²edm╪tVytvo²(16092,1,0,1);
  430.  
  431.   Frame1.Anim15= AnimP²edm╪tVytvo²(16003,1,0,1);
  432. O /**Vytvo² Frame12**/
  433.  
  434.   Frame1.Anim1 = AnimP²edm╪tVytvo²(17001,1,0,1);
  435.   Frame1.Anim2 = AnimP²edm╪tVytvo²(17002,1,0,1);
  436.  
  437.   Frame1.Anim3 = AnimP²edm╪tVytvo²(17016,1,0,1);
  438.   Frame1.Anim4 = AnimP²edm╪tVytvo²(17017,1,0,1);
  439.  
  440.   Frame1.Anim5 = AnimP²edm╪tVytvo²(17031,1,0,1);
  441.   Frame1.Anim6 = AnimP²edm╪tVytvo²(17032,1,0,1);
  442.  
  443.   Frame1.Anim7 = AnimP²edm╪tVytvo²(17046,1,0,1);
  444.   Frame1.Anim8 = AnimP²edm╪tVytvo²(17047,1,0,1);
  445.  
  446.   Frame1.Anim9 = AnimP²edm╪tVytvo²(17061,1,0,1);
  447.   Frame1.Anim10= AnimP²edm╪tVytvo²(17062,1,0,1);
  448.  
  449.   Frame1.Anim11= AnimP²edm╪tVytvo²(17076,1,0,1);
  450.   Frame1.Anim12= AnimP²edm╪tVytvo²(17077,1,0,1);
  451.  
  452.   Frame1.Anim13= AnimP²edm╪tVytvo²(17091,1,0,1);
  453.   Frame1.Anim14= AnimP²edm╪tVytvo²(17092,1,0,1);
  454. S /**Zruτ animované p²edm╪ty (FrameXX)**/
  455.   ¼ekejNaVR();
  456.   Cframu--;
  457.   ¼ekej(50);
  458.   Frame1.X-=45;
  459.   AnimP²edm╪tZruτ(Frame1.Anim1);
  460.   AnimP²edm╪tZruτ(Frame1.Anim2);
  461.   AnimP²edm╪tZruτ(Frame1.Anim3);
  462.   AnimP²edm╪tZruτ(Frame1.Anim4);
  463.   AnimP²edm╪tZruτ(Frame1.Anim5);
  464.   AnimP²edm╪tZruτ(Frame1.Anim6);
  465.   AnimP²edm╪tZruτ(Frame1.Anim7);
  466.   AnimP²edm╪tZruτ(Frame1.Anim8);
  467.   AnimP²edm╪tZruτ(Frame1.Anim9);
  468.   AnimP²edm╪tZruτ(Frame1.Anim10);
  469.   AnimP²edm╪tZruτ(Frame1.Anim11);
  470.   AnimP²edm╪tZruτ(Frame1.Anim12);
  471.   AnimP²edm╪tZruτ(Frame1.Anim13);
  472.   AnimP²edm╪tZruτ(Frame1.Anim14);
  473.   AnimP²edm╪tZruτ(Frame1.Anim15);
  474.   AnimP²edm╪tZruτ(Frame1.Anim16);
  475.   AnimP²edm╪tZruτ(Frame1.Anim17);
  476.   AnimP²edm╪tZruτ(Frame1.Anim18);
  477.   AnimP²edm╪tZruτ(Frame1.Anim19);
  478.   AnimP²edm╪tZruτ(Frame1.Anim20);
  479. b /**Náraz**/
  480.  
  481.   Frame1.Y+=10;
  482.   Frame1.X-=5;
  483.   for (z=0;z < 4;z++) {
  484.   AnimP²edm╪tAnimuj(Frame1.Anim1,Frame1.X,Frame1.Y,0);
  485.   AnimP²edm╪tAnimuj(Frame1.Anim2,Frame1.X+39,Frame1.Y,0);
  486.  
  487.   AnimP²edm╪tAnimuj(Frame1.Anim3,Frame1.X,Frame1.Y+29,0);
  488.   AnimP²edm╪tAnimuj(Frame1.Anim4,Frame1.X+39,Frame1.Y+29,0);
  489.  
  490.   AnimP²edm╪tAnimuj(Frame1.Anim5,Frame1.X,Frame1.Y+58,0);
  491.   AnimP²edm╪tAnimuj(Frame1.Anim6,Frame1.X+39,Frame1.Y+58,0);
  492.  
  493.   AnimP²edm╪tAnimuj(Frame1.Anim7,Frame1.X,Frame1.Y+87,0);
  494.   AnimP²edm╪tAnimuj(Frame1.Anim8,Frame1.X+39,Frame1.Y+87,0);
  495.  
  496.   AnimP²edm╪tAnimuj(Frame1.Anim9,Frame1.X,Frame1.Y+116,0);
  497.   AnimP²edm╪tAnimuj(Frame1.Anim10,Frame1.X+39,Frame1.Y+116,0);
  498.  
  499.   AnimP²edm╪tAnimuj(Frame1.Anim11,Frame1.X,Frame1.Y+145,0);
  500.   AnimP²edm╪tAnimuj(Frame1.Anim12,Frame1.X+39,Frame1.Y+145,0);
  501.  
  502.   AnimP²edm╪tAnimuj(Frame1.Anim13,Frame1.X,Frame1.Y+174,0);
  503.   AnimP²edm╪tAnimuj(Frame1.Anim14,Frame1.X+39,Frame1.Y+174,0);
  504.  
  505.   AnimP²edm╪tAnimuj(Frame1.Anim15,Frame1.X,Frame1.Y+203,0);
  506.   AnimP²edm╪tAnimuj(Frame1.Anim16,Frame1.X+39,Frame1.Y+203,0);
  507.  
  508.   AnimP²edm╪tAnimuj(Frame1.Anim17,Frame1.X+78,Frame1.Y+87,0);
  509.   AnimP²edm╪tAnimuj(Frame1.Anim18,Frame1.X+78,Frame1.Y+116,0);
  510.  
  511.   if (z == 0) {
  512.     Frame1.Y-=15;
  513.     Frame1.X+=5;
  514.   }
  515.   else if (z == 1) {
  516.     Frame1.X+=10;
  517.   }
  518.   else if (z == 2) {
  519.     Frame1.Y+=10;
  520.   }
  521.   else if (z == 3) {
  522.     Frame1.X-=5;
  523.     Frame1.Y-=5;
  524.   }
  525.   ¼ekej(50);
  526.   }
  527. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  528. =SP---------------------------------------------------------------------------
  529.  
  530. ;-h---------------------------------------------------------------------------
  531. void FrameA( void )
  532. -s--FrameA                                                                      ■  32  -2 -21   3
  533.        FrameA
  534.       ABS!
  535.       CBS!
  536.       DBS!
  537.       FBS!
  538.       GBS!
  539.       HBS!
  540.       IBS!
  541.       JBS!
  542.       KBS!
  543.       LBS!
  544.       MBS!
  545.       NBS!
  546.       OBS!
  547. :Cframu=0!
  548.       ABb!
  549. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  550. A /**Vytvo² Frame0**/
  551.  
  552.   Frame0.Anim1 = AnimP²edm╪tVytvo²(5001,1,0,1);
  553.   Frame0.Anim2 = AnimP²edm╪tVytvo²(5002,1,0,1);
  554.  
  555.   Frame0.Anim3 = AnimP²edm╪tVytvo²(5016,1,0,1);
  556.   Frame0.Anim4 = AnimP²edm╪tVytvo²(5017,1,0,1);
  557.  
  558.   Frame0.Anim5 = AnimP²edm╪tVytvo²(5031,1,0,1);
  559.   Frame0.Anim6 = AnimP²edm╪tVytvo²(5032,1,0,1);
  560.  
  561.   Frame0.Anim7 = AnimP²edm╪tVytvo²(5046,1,0,1);
  562.   Frame0.Anim8 = AnimP²edm╪tVytvo²(5047,1,0,1);
  563.  
  564.   Frame0.Anim9 = AnimP²edm╪tVytvo²(5061,1,0,1);
  565.   Frame0.Anim10= AnimP²edm╪tVytvo²(5062,1,0,1);
  566.  
  567.   Frame0.Anim11= AnimP²edm╪tVytvo²(5076,1,0,1);
  568.   Frame0.Anim12= AnimP²edm╪tVytvo²(5077,1,0,1);
  569.  
  570.   Frame0.Anim13= AnimP²edm╪tVytvo²(5091,1,0,1);
  571.   Frame0.Anim14= AnimP²edm╪tVytvo²(5092,1,0,1);
  572.  
  573.   Frame0.Anim15= AnimP²edm╪tVytvo²(5106,1,0,1);
  574.   Frame0.Anim16= AnimP²edm╪tVytvo²(5107,1,0,1);
  575.  
  576. C /**Vytvo² Frame1**/
  577.  
  578.   Frame0.Anim1 = AnimP²edm╪tVytvo²(6001,1,0,1);
  579.   Frame0.Anim2 = AnimP²edm╪tVytvo²(6002,1,0,1);
  580.  
  581.   Frame0.Anim3 = AnimP²edm╪tVytvo²(6016,1,0,1);
  582.   Frame0.Anim4 = AnimP²edm╪tVytvo²(6017,1,0,1);
  583.  
  584.   Frame0.Anim5 = AnimP²edm╪tVytvo²(6031,1,0,1);
  585.   Frame0.Anim6 = AnimP²edm╪tVytvo²(6032,1,0,1);
  586.  
  587.   Frame0.Anim7 = AnimP²edm╪tVytvo²(6046,1,0,1);
  588.   Frame0.Anim8 = AnimP²edm╪tVytvo²(6047,1,0,1);
  589.  
  590.   Frame0.Anim9 = AnimP²edm╪tVytvo²(6061,1,0,1);
  591.   Frame0.Anim10= AnimP²edm╪tVytvo²(6062,1,0,1);
  592.  
  593.   Frame0.Anim11= AnimP²edm╪tVytvo²(6076,1,0,1);
  594.   Frame0.Anim12= AnimP²edm╪tVytvo²(6077,1,0,1);
  595.  
  596.   Frame0.Anim13= AnimP²edm╪tVytvo²(6091,1,0,1);
  597.   Frame0.Anim14= AnimP²edm╪tVytvo²(6092,1,0,1);
  598.  
  599.   Frame0.Anim15= AnimP²edm╪tVytvo²(6106,1,0,1);
  600.   Frame0.Anim16= AnimP²edm╪tVytvo²(6107,1,0,1);
  601.  
  602. D /**Vytvo² Frame2**/
  603.  
  604.   Frame0.Anim1 = AnimP²edm╪tVytvo²(7001,1,0,1);
  605.   Frame0.Anim2 = AnimP²edm╪tVytvo²(7002,1,0,1);
  606.  
  607.   Frame0.Anim3 = AnimP²edm╪tVytvo²(7016,1,0,1);
  608.   Frame0.Anim4 = AnimP²edm╪tVytvo²(7017,1,0,1);
  609.  
  610.   Frame0.Anim5 = AnimP²edm╪tVytvo²(7031,1,0,1);
  611.   Frame0.Anim6 = AnimP²edm╪tVytvo²(7032,1,0,1);
  612.  
  613.   Frame0.Anim7 = AnimP²edm╪tVytvo²(7046,1,0,1);
  614.   Frame0.Anim8 = AnimP²edm╪tVytvo²(7047,1,0,1);
  615.  
  616.   Frame0.Anim9 = AnimP²edm╪tVytvo²(7061,1,0,1);
  617.   Frame0.Anim10= AnimP²edm╪tVytvo²(7062,1,0,1);
  618.  
  619.   Frame0.Anim11= AnimP²edm╪tVytvo²(7076,1,0,1);
  620.   Frame0.Anim12= AnimP²edm╪tVytvo²(7077,1,0,1);
  621.  
  622.   Frame0.Anim13= AnimP²edm╪tVytvo²(7091,1,0,1);
  623.   Frame0.Anim14= AnimP²edm╪tVytvo²(7092,1,0,1);
  624.  
  625. F /**Vytvo² Frame3**/
  626.  
  627.   Frame0.Anim1 = AnimP²edm╪tVytvo²(8001,1,0,1);
  628.   Frame0.Anim2 = AnimP²edm╪tVytvo²(8002,1,0,1);
  629.  
  630.   Frame0.Anim3 = AnimP²edm╪tVytvo²(8016,1,0,1);
  631.   Frame0.Anim4 = AnimP²edm╪tVytvo²(8017,1,0,1);
  632.  
  633.   Frame0.Anim5 = AnimP²edm╪tVytvo²(8031,1,0,1);
  634.   Frame0.Anim6 = AnimP²edm╪tVytvo²(8032,1,0,1);
  635.  
  636.   Frame0.Anim7 = AnimP²edm╪tVytvo²(8046,1,0,1);
  637.   Frame0.Anim8 = AnimP²edm╪tVytvo²(8047,1,0,1);
  638.  
  639.   Frame0.Anim9 = AnimP²edm╪tVytvo²(8061,1,0,1);
  640.   Frame0.Anim10= AnimP²edm╪tVytvo²(8062,1,0,1);
  641.  
  642.   Frame0.Anim11= AnimP²edm╪tVytvo²(8076,1,0,1);
  643.   Frame0.Anim12= AnimP²edm╪tVytvo²(8077,1,0,1);
  644.  
  645.   Frame0.Anim13= AnimP²edm╪tVytvo²(8091,1,0,1);
  646.   Frame0.Anim14= AnimP²edm╪tVytvo²(8092,1,0,1);
  647.  
  648. G /**Vytvo² Frame4**/
  649.  
  650.   Frame0.Anim1 = AnimP²edm╪tVytvo²(9001,1,0,1);
  651.   Frame0.Anim2 = AnimP²edm╪tVytvo²(9002,1,0,1);
  652.  
  653.   Frame0.Anim3 = AnimP²edm╪tVytvo²(9016,1,0,1);
  654.   Frame0.Anim4 = AnimP²edm╪tVytvo²(9017,1,0,1);
  655.  
  656.   Frame0.Anim5 = AnimP²edm╪tVytvo²(9031,1,0,1);
  657.   Frame0.Anim6 = AnimP²edm╪tVytvo²(9032,1,0,1);
  658.  
  659.   Frame0.Anim7 = AnimP²edm╪tVytvo²(9046,1,0,1);
  660.   Frame0.Anim8 = AnimP²edm╪tVytvo²(9047,1,0,1);
  661.  
  662.   Frame0.Anim9 = AnimP²edm╪tVytvo²(9061,1,0,1);
  663.   Frame0.Anim10= AnimP²edm╪tVytvo²(9062,1,0,1);
  664.  
  665.   Frame0.Anim11= AnimP²edm╪tVytvo²(9076,1,0,1);
  666.   Frame0.Anim12= AnimP²edm╪tVytvo²(9077,1,0,1);
  667.  
  668.   Frame0.Anim13= AnimP²edm╪tVytvo²(9091,1,0,1);
  669.   Frame0.Anim14= AnimP²edm╪tVytvo²(9092,1,0,1);
  670.  
  671. H /**Vytvo² Frame5**/
  672.  
  673.   Frame0.Anim1 = AnimP²edm╪tVytvo²(10001,1,0,1);
  674.   Frame0.Anim2 = AnimP²edm╪tVytvo²(10002,1,0,1);
  675.  
  676.   Frame0.Anim3 = AnimP²edm╪tVytvo²(10016,1,0,1);
  677.   Frame0.Anim4 = AnimP²edm╪tVytvo²(10017,1,0,1);
  678.  
  679.   Frame0.Anim5 = AnimP²edm╪tVytvo²(10031,1,0,1);
  680.   Frame0.Anim6 = AnimP²edm╪tVytvo²(10032,1,0,1);
  681.  
  682.   Frame0.Anim7 = AnimP²edm╪tVytvo²(10046,1,0,1);
  683.   Frame0.Anim8 = AnimP²edm╪tVytvo²(10047,1,0,1);
  684.  
  685.   Frame0.Anim9 = AnimP²edm╪tVytvo²(10061,1,0,1);
  686.   Frame0.Anim10= AnimP²edm╪tVytvo²(10062,1,0,1);
  687.  
  688.   Frame0.Anim11= AnimP²edm╪tVytvo²(10076,1,0,1);
  689.   Frame0.Anim12= AnimP²edm╪tVytvo²(10077,1,0,1);
  690.  
  691.   Frame0.Anim13= AnimP²edm╪tVytvo²(10091,1,0,1);
  692.   Frame0.Anim14= AnimP²edm╪tVytvo²(10092,1,0,1);
  693.  
  694. I /**Vytvo² Frame6**/
  695.  
  696.   Frame0.Anim1 = AnimP²edm╪tVytvo²(11001,1,0,1);
  697.   Frame0.Anim2 = AnimP²edm╪tVytvo²(11002,1,0,1);
  698.  
  699.   Frame0.Anim3 = AnimP²edm╪tVytvo²(11016,1,0,1);
  700.   Frame0.Anim4 = AnimP²edm╪tVytvo²(11017,1,0,1);
  701.  
  702.   Frame0.Anim5 = AnimP²edm╪tVytvo²(11031,1,0,1);
  703.   Frame0.Anim6 = AnimP²edm╪tVytvo²(11032,1,0,1);
  704.  
  705.   Frame0.Anim7 = AnimP²edm╪tVytvo²(11046,1,0,1);
  706.   Frame0.Anim8 = AnimP²edm╪tVytvo²(11047,1,0,1);
  707.  
  708.   Frame0.Anim9 = AnimP²edm╪tVytvo²(11061,1,0,1);
  709.   Frame0.Anim10= AnimP²edm╪tVytvo²(11062,1,0,1);
  710.  
  711.   Frame0.Anim11= AnimP²edm╪tVytvo²(11076,1,0,1);
  712.   Frame0.Anim12= AnimP²edm╪tVytvo²(11077,1,0,1);
  713.  
  714.   Frame0.Anim13= AnimP²edm╪tVytvo²(11091,1,0,1);
  715.   Frame0.Anim14= AnimP²edm╪tVytvo²(11092,1,0,1);
  716.  
  717.   Frame0.Anim15= AnimP²edm╪tVytvo²(11106,1,0,1);
  718.   Frame0.Anim16= AnimP²edm╪tVytvo²(11107,1,0,1);
  719.  
  720. J /**Vytvo² Frame7**/
  721.  
  722.   Frame0.Anim1 = AnimP²edm╪tVytvo²(12001,1,0,1);
  723.   Frame0.Anim2 = AnimP²edm╪tVytvo²(12002,1,0,1);
  724.  
  725.   Frame0.Anim3 = AnimP²edm╪tVytvo²(12016,1,0,1);
  726.   Frame0.Anim4 = AnimP²edm╪tVytvo²(12017,1,0,1);
  727.  
  728.   Frame0.Anim5 = AnimP²edm╪tVytvo²(12031,1,0,1);
  729.   Frame0.Anim6 = AnimP²edm╪tVytvo²(12032,1,0,1);
  730.  
  731.   Frame0.Anim7 = AnimP²edm╪tVytvo²(12046,1,0,1);
  732.   Frame0.Anim8 = AnimP²edm╪tVytvo²(12047,1,0,1);
  733.  
  734.   Frame0.Anim9 = AnimP²edm╪tVytvo²(12061,1,0,1);
  735.   Frame0.Anim10= AnimP²edm╪tVytvo²(12062,1,0,1);
  736.  
  737.   Frame0.Anim11= AnimP²edm╪tVytvo²(12076,1,0,1);
  738.   Frame0.Anim12= AnimP²edm╪tVytvo²(12077,1,0,1);
  739.  
  740.   Frame0.Anim13= AnimP²edm╪tVytvo²(12091,1,0,1);
  741.   Frame0.Anim14= AnimP²edm╪tVytvo²(12092,1,0,1);
  742.  
  743.   Frame0.Anim15= AnimP²edm╪tVytvo²(12106,1,0,1);
  744.   Frame0.Anim16= AnimP²edm╪tVytvo²(12107,1,0,1);
  745.  
  746.   Frame0.Anim17= AnimP²edm╪tVytvo²(12048,1,0,1);
  747.   Frame0.Anim18= AnimP²edm╪tVytvo²(12063,1,0,1);
  748.  
  749. K /**Vytvo² Frame8**/
  750.  
  751.   Frame0.Anim1 = AnimP²edm╪tVytvo²(13001,1,0,1);
  752.   Frame0.Anim2 = AnimP²edm╪tVytvo²(13002,1,0,1);
  753.  
  754.   Frame0.Anim3 = AnimP²edm╪tVytvo²(13016,1,0,1);
  755.   Frame0.Anim4 = AnimP²edm╪tVytvo²(13017,1,0,1);
  756.  
  757.   Frame0.Anim5 = AnimP²edm╪tVytvo²(13031,1,0,1);
  758.   Frame0.Anim6 = AnimP²edm╪tVytvo²(13032,1,0,1);
  759.  
  760.   Frame0.Anim7 = AnimP²edm╪tVytvo²(13046,1,0,1);
  761.   Frame0.Anim8 = AnimP²edm╪tVytvo²(13047,1,0,1);
  762.  
  763.   Frame0.Anim9 = AnimP²edm╪tVytvo²(13061,1,0,1);
  764.   Frame0.Anim10= AnimP²edm╪tVytvo²(13062,1,0,1);
  765.  
  766.   Frame0.Anim11= AnimP²edm╪tVytvo²(13076,1,0,1);
  767.   Frame0.Anim12= AnimP²edm╪tVytvo²(13077,1,0,1);
  768.  
  769.   Frame0.Anim13= AnimP²edm╪tVytvo²(13091,1,0,1);
  770.   Frame0.Anim14= AnimP²edm╪tVytvo²(13092,1,0,1);
  771.  
  772.   Frame0.Anim15= AnimP²edm╪tVytvo²(13106,1,0,1);
  773.   Frame0.Anim16= AnimP²edm╪tVytvo²(13107,1,0,1);
  774.  
  775.   Frame0.Anim17= AnimP²edm╪tVytvo²(13018,1,0,1);
  776.   Frame0.Anim18= AnimP²edm╪tVytvo²(13033,1,0,1);
  777.  
  778.   Frame0.Anim19= AnimP²edm╪tVytvo²(13048,1,0,1);
  779.   Frame0.Anim20= AnimP²edm╪tVytvo²(13063,1,0,1);
  780.  
  781. L /**Vytvo² Frame9**/
  782.  
  783.   Frame0.Anim1 = AnimP²edm╪tVytvo²(14001,1,0,1);
  784.   Frame0.Anim2 = AnimP²edm╪tVytvo²(14002,1,0,1);
  785.  
  786.   Frame0.Anim3 = AnimP²edm╪tVytvo²(14016,1,0,1);
  787.   Frame0.Anim4 = AnimP²edm╪tVytvo²(14017,1,0,1);
  788.  
  789.   Frame0.Anim5 = AnimP²edm╪tVytvo²(14031,1,0,1);
  790.   Frame0.Anim6 = AnimP²edm╪tVytvo²(14032,1,0,1);
  791.  
  792.   Frame0.Anim7 = AnimP²edm╪tVytvo²(14046,1,0,1);
  793.   Frame0.Anim8 = AnimP²edm╪tVytvo²(14047,1,0,1);
  794.  
  795.   Frame0.Anim9 = AnimP²edm╪tVytvo²(14061,1,0,1);
  796.   Frame0.Anim10= AnimP²edm╪tVytvo²(14062,1,0,1);
  797.  
  798.   Frame0.Anim11= AnimP²edm╪tVytvo²(14076,1,0,1);
  799.   Frame0.Anim12= AnimP²edm╪tVytvo²(14077,1,0,1);
  800.  
  801.   Frame0.Anim13= AnimP²edm╪tVytvo²(14091,1,0,1);
  802.   Frame0.Anim14= AnimP²edm╪tVytvo²(14092,1,0,1);
  803.  
  804.   Frame0.Anim15= AnimP²edm╪tVytvo²(14018,1,0,1);
  805.   Frame0.Anim16= AnimP²edm╪tVytvo²(14033,1,0,1);
  806.  
  807.   Frame0.Anim17= AnimP²edm╪tVytvo²(14048,1,0,1);
  808.   Frame0.Anim18= AnimP²edm╪tVytvo²(14063,1,0,1);
  809.  
  810. B /**Animuj FrameXX**/
  811.  
  812.   AnimP²edm╪tAnimuj(Frame0.Anim1,Frame0.X,Frame0.Y,0);
  813.   AnimP²edm╪tAnimuj(Frame0.Anim2,Frame0.X+39,Frame0.Y,0);
  814.  
  815.   AnimP²edm╪tAnimuj(Frame0.Anim3,Frame0.X,Frame0.Y+29,0);
  816.   AnimP²edm╪tAnimuj(Frame0.Anim4,Frame0.X+39,Frame0.Y+29,0);
  817.  
  818.   AnimP²edm╪tAnimuj(Frame0.Anim5,Frame0.X,Frame0.Y+58,0);
  819.   AnimP²edm╪tAnimuj(Frame0.Anim6,Frame0.X+39,Frame0.Y+58,0);
  820.  
  821.   AnimP²edm╪tAnimuj(Frame0.Anim7,Frame0.X,Frame0.Y+87,0);
  822.   AnimP²edm╪tAnimuj(Frame0.Anim8,Frame0.X+39,Frame0.Y+87,0);
  823.  
  824.   AnimP²edm╪tAnimuj(Frame0.Anim9,Frame0.X,Frame0.Y+116,0);
  825.   AnimP²edm╪tAnimuj(Frame0.Anim10,Frame0.X+39,Frame0.Y+116,0);
  826.  
  827.   AnimP²edm╪tAnimuj(Frame0.Anim11,Frame0.X,Frame0.Y+145,0);
  828.   AnimP²edm╪tAnimuj(Frame0.Anim12,Frame0.X+39,Frame0.Y+145,0);
  829.  
  830.   AnimP²edm╪tAnimuj(Frame0.Anim13,Frame0.X,Frame0.Y+174,0);
  831.   AnimP²edm╪tAnimuj(Frame0.Anim14,Frame0.X+39,Frame0.Y+174,0);
  832.  
  833.   if (Cframu != 2 && Cframu != 3 && Cframu != 4 && Cframu != 5 && Cframu != 9 &&
  834.       Cframu != 10 && Cframu != 11 && Cframu != 12) {
  835.   AnimP²edm╪tAnimuj(Frame0.Anim15,Frame0.X,Frame0.Y+203,0);
  836.   AnimP²edm╪tAnimuj(Frame0.Anim16,Frame0.X+39,Frame0.Y+203,0);
  837.   }
  838.  
  839.   if (Cframu == 7) {
  840.   AnimP²edm╪tAnimuj(Frame0.Anim17,Frame0.X+78,Frame0.Y+87,0);
  841.   AnimP²edm╪tAnimuj(Frame0.Anim18,Frame0.X+78,Frame0.Y+116,0);
  842.   }
  843.  
  844.   if (Cframu == 8) {
  845.   AnimP²edm╪tAnimuj(Frame0.Anim17,Frame0.X+78,Frame0.Y+29,0);
  846.   AnimP²edm╪tAnimuj(Frame0.Anim18,Frame0.X+78,Frame0.Y+58,0);
  847.   AnimP²edm╪tAnimuj(Frame0.Anim19,Frame0.X+78,Frame0.Y+87,0);
  848.   AnimP²edm╪tAnimuj(Frame0.Anim20,Frame0.X+78,Frame0.Y+116,0);
  849.   }
  850.  
  851.   if (Cframu == 9) {
  852.   AnimP²edm╪tAnimuj(Frame0.Anim15,Frame0.X+78,Frame0.Y+29,0);
  853.   AnimP²edm╪tAnimuj(Frame0.Anim16,Frame0.X+78,Frame0.Y+58,0);
  854.   AnimP²edm╪tAnimuj(Frame0.Anim17,Frame0.X+78,Frame0.Y+87,0);
  855.   AnimP²edm╪tAnimuj(Frame0.Anim18,Frame0.X+78,Frame0.Y+116,0);
  856.   }
  857.  
  858.   if (Cframu == 10 || Cframu == 11) {
  859.   AnimP²edm╪tAnimuj(Frame0.Anim15,Frame0.X+78,Frame0.Y,0);
  860.   }
  861. M /**Vytvo² Frame10**/
  862.  
  863.   Frame0.Anim1 = AnimP²edm╪tVytvo²(15001,1,0,1);
  864.   Frame0.Anim2 = AnimP²edm╪tVytvo²(15002,1,0,1);
  865.  
  866.   Frame0.Anim3 = AnimP²edm╪tVytvo²(15016,1,0,1);
  867.   Frame0.Anim4 = AnimP²edm╪tVytvo²(15017,1,0,1);
  868.  
  869.   Frame0.Anim5 = AnimP²edm╪tVytvo²(15031,1,0,1);
  870.   Frame0.Anim6 = AnimP²edm╪tVytvo²(15032,1,0,1);
  871.  
  872.   Frame0.Anim7 = AnimP²edm╪tVytvo²(15046,1,0,1);
  873.   Frame0.Anim8 = AnimP²edm╪tVytvo²(15047,1,0,1);
  874.  
  875.   Frame0.Anim9 = AnimP²edm╪tVytvo²(15061,1,0,1);
  876.   Frame0.Anim10= AnimP²edm╪tVytvo²(15062,1,0,1);
  877.  
  878.   Frame0.Anim11= AnimP²edm╪tVytvo²(15076,1,0,1);
  879.   Frame0.Anim12= AnimP²edm╪tVytvo²(15077,1,0,1);
  880.  
  881.   Frame0.Anim13= AnimP²edm╪tVytvo²(15091,1,0,1);
  882.   Frame0.Anim14= AnimP²edm╪tVytvo²(15092,1,0,1);
  883.  
  884.   Frame0.Anim15= AnimP²edm╪tVytvo²(15003,1,0,1);
  885. N /**Vytvo² Frame11**/
  886.  
  887.   Frame0.Anim1 = AnimP²edm╪tVytvo²(16001,1,0,1);
  888.   Frame0.Anim2 = AnimP²edm╪tVytvo²(16002,1,0,1);
  889.  
  890.   Frame0.Anim3 = AnimP²edm╪tVytvo²(16016,1,0,1);
  891.   Frame0.Anim4 = AnimP²edm╪tVytvo²(16017,1,0,1);
  892.  
  893.   Frame0.Anim5 = AnimP²edm╪tVytvo²(16031,1,0,1);
  894.   Frame0.Anim6 = AnimP²edm╪tVytvo²(16032,1,0,1);
  895.  
  896.   Frame0.Anim7 = AnimP²edm╪tVytvo²(16046,1,0,1);
  897.   Frame0.Anim8 = AnimP²edm╪tVytvo²(16047,1,0,1);
  898.  
  899.   Frame0.Anim9 = AnimP²edm╪tVytvo²(16061,1,0,1);
  900.   Frame0.Anim10= AnimP²edm╪tVytvo²(16062,1,0,1);
  901.  
  902.   Frame0.Anim11= AnimP²edm╪tVytvo²(16076,1,0,1);
  903.   Frame0.Anim12= AnimP²edm╪tVytvo²(16077,1,0,1);
  904.  
  905.   Frame0.Anim13= AnimP²edm╪tVytvo²(16091,1,0,1);
  906.   Frame0.Anim14= AnimP²edm╪tVytvo²(16092,1,0,1);
  907.  
  908.   Frame0.Anim15= AnimP²edm╪tVytvo²(16003,1,0,1);
  909. O /**Vytvo² Frame12**/
  910.  
  911.   Frame0.Anim1 = AnimP²edm╪tVytvo²(17001,1,0,1);
  912.   Frame0.Anim2 = AnimP²edm╪tVytvo²(17002,1,0,1);
  913.  
  914.   Frame0.Anim3 = AnimP²edm╪tVytvo²(17016,1,0,1);
  915.   Frame0.Anim4 = AnimP²edm╪tVytvo²(17017,1,0,1);
  916.  
  917.   Frame0.Anim5 = AnimP²edm╪tVytvo²(17031,1,0,1);
  918.   Frame0.Anim6 = AnimP²edm╪tVytvo²(17032,1,0,1);
  919.  
  920.   Frame0.Anim7 = AnimP²edm╪tVytvo²(17046,1,0,1);
  921.   Frame0.Anim8 = AnimP²edm╪tVytvo²(17047,1,0,1);
  922.  
  923.   Frame0.Anim9 = AnimP²edm╪tVytvo²(17061,1,0,1);
  924.   Frame0.Anim10= AnimP²edm╪tVytvo²(17062,1,0,1);
  925.  
  926.   Frame0.Anim11= AnimP²edm╪tVytvo²(17076,1,0,1);
  927.   Frame0.Anim12= AnimP²edm╪tVytvo²(17077,1,0,1);
  928.  
  929.   Frame0.Anim13= AnimP²edm╪tVytvo²(17091,1,0,1);
  930.   Frame0.Anim14= AnimP²edm╪tVytvo²(17092,1,0,1);
  931. S /**Zruτ animované p²edm╪ty (FrameXX)**/
  932.   ¼ekejNaVR();
  933.   Cframu++;
  934.   ¼ekej(50);
  935.   Frame0.X+=10;
  936.   AnimP²edm╪tZruτ(Frame0.Anim1);
  937.   AnimP²edm╪tZruτ(Frame0.Anim2);
  938.   AnimP²edm╪tZruτ(Frame0.Anim3);
  939.   AnimP²edm╪tZruτ(Frame0.Anim4);
  940.   AnimP²edm╪tZruτ(Frame0.Anim5);
  941.   AnimP²edm╪tZruτ(Frame0.Anim6);
  942.   AnimP²edm╪tZruτ(Frame0.Anim7);
  943.   AnimP²edm╪tZruτ(Frame0.Anim8);
  944.   AnimP²edm╪tZruτ(Frame0.Anim9);
  945.   AnimP²edm╪tZruτ(Frame0.Anim10);
  946.   AnimP²edm╪tZruτ(Frame0.Anim11);
  947.   AnimP²edm╪tZruτ(Frame0.Anim12);
  948.   AnimP²edm╪tZruτ(Frame0.Anim13);
  949.   AnimP²edm╪tZruτ(Frame0.Anim14);
  950.   AnimP²edm╪tZruτ(Frame0.Anim15);
  951.   AnimP²edm╪tZruτ(Frame0.Anim16);
  952.   AnimP²edm╪tZruτ(Frame0.Anim17);
  953.   AnimP²edm╪tZruτ(Frame0.Anim18);
  954.   AnimP²edm╪tZruτ(Frame0.Anim19);
  955.   AnimP²edm╪tZruτ(Frame0.Anim20);
  956. b /**Náraz**/
  957.  
  958.   Frame0.Y+=10;
  959.   Frame0.X-=5;
  960.   for (z=0;z < 4;z++) {
  961.   AnimP²edm╪tAnimuj(Frame0.Anim1,Frame0.X,Frame0.Y,0);
  962.   AnimP²edm╪tAnimuj(Frame0.Anim2,Frame0.X+39,Frame0.Y,0);
  963.  
  964.   AnimP²edm╪tAnimuj(Frame0.Anim3,Frame0.X,Frame0.Y+29,0);
  965.   AnimP²edm╪tAnimuj(Frame0.Anim4,Frame0.X+39,Frame0.Y+29,0);
  966.  
  967.   AnimP²edm╪tAnimuj(Frame0.Anim5,Frame0.X,Frame0.Y+58,0);
  968.   AnimP²edm╪tAnimuj(Frame0.Anim6,Frame0.X+39,Frame0.Y+58,0);
  969.  
  970.   AnimP²edm╪tAnimuj(Frame0.Anim7,Frame0.X,Frame0.Y+87,0);
  971.   AnimP²edm╪tAnimuj(Frame0.Anim8,Frame0.X+39,Frame0.Y+87,0);
  972.  
  973.   AnimP²edm╪tAnimuj(Frame0.Anim9,Frame0.X,Frame0.Y+116,0);
  974.   AnimP²edm╪tAnimuj(Frame0.Anim10,Frame0.X+39,Frame0.Y+116,0);
  975.  
  976.   AnimP²edm╪tAnimuj(Frame0.Anim11,Frame0.X,Frame0.Y+145,0);
  977.   AnimP²edm╪tAnimuj(Frame0.Anim12,Frame0.X+39,Frame0.Y+145,0);
  978.  
  979.   AnimP²edm╪tAnimuj(Frame0.Anim13,Frame0.X,Frame0.Y+174,0);
  980.   AnimP²edm╪tAnimuj(Frame0.Anim14,Frame0.X+39,Frame0.Y+174,0);
  981.  
  982.   AnimP²edm╪tAnimuj(Frame0.Anim15,Frame0.X,Frame0.Y+203,0);
  983.   AnimP²edm╪tAnimuj(Frame0.Anim16,Frame0.X+39,Frame0.Y+203,0);
  984.   if (z == 0) {
  985.     Frame0.Y-=15;
  986.     Frame0.X+=5;
  987.   }
  988.   else if (z == 1) {
  989.     Frame0.X+=10;
  990.   }
  991.   else if (z == 2) {
  992.     Frame0.Y+=10;
  993.   }
  994.   else if (z == 3) {
  995.     Frame0.X-=5;
  996.     Frame0.Y-=5;
  997.   }
  998.   ¼ekej(50);
  999.   }
  1000. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1001. =SP---------------------------------------------------------------------------
  1002.  
  1003. ;-h---------------------------------------------------------------------------
  1004. void ChooseYourLanguage( void )
  1005. -s--ChooseYourLanguage                                                          ■   4  -2 -18   3
  1006.     ChooseYourLanguage
  1007.           0z!e
  1008.           While
  1009.             *
  1010.   ________Mouse______
  1011. Nastav             Akce
  1012. pozici              /l
  1013.  1!              levé~tl.__
  1014.                   /1 /2   /3
  1015.                   CZ EN ;zvuk
  1016.                  c! b!  sz!
  1017. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1018. 1 /**Nastavení myτi**/
  1019.    ;myτ
  1020.      Myτ¼tiUdálost(MyτUdálost);
  1021.    ;v∞poƒty
  1022.      Mx=MyτUdálost.X-24;
  1023.      My=MyτUdálost.Y-10;
  1024.    ;animace
  1025.      AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  1026. 0 /**Init**/
  1027.   Myτ= AnimP²edm╪tVytvo²(1031,1,0,1);
  1028.   MyτZaƒátekObsluhy();
  1029.  
  1030.   TypSoubor CFG=SouborOtev²i("c:\\temp\\config.dat",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1031.   Soubor¼tiI¼íslo(CFG,DélkaDne);
  1032.   Soubor¼tiNov∞ⁿádek(CFG);
  1033.   Soubor¼tiI¼íslo(CFG,Sound);
  1034.   SouborZav²i(CFG);
  1035.  
  1036.   Sound=0;
  1037.   if (DélkaDne < 90 || DélkaDne > 230) DélkaDne=90;
  1038.  
  1039. b /**beep**/
  1040.   Language=EN;
  1041.   break;
  1042. c /**CZ**/
  1043.   Language=CZ;
  1044.   break;
  1045. e /**Ukonƒení**/
  1046.   MyτKonecObsluhy();
  1047.   AnimP²edm╪tZruτ(Myτ);
  1048. z /**vykresli stav zvuku**/
  1049.   GrNastavV∞stup(1);
  1050.   GrNaƒtiBMP(0,0,"*\\city_c\\choose.bmp",0,0,-1,-1,1);
  1051.  
  1052.   ;GrKresliP²edm╪t(3071,1,20,270);
  1053.   ;GrKresliP²edm╪t(3067,1,20+14,270);
  1054.   ;GrKresliP²edm╪t(3066,1,20+(2*14),270);
  1055.   ;GrKresliP²edm╪t(3056,1,20+(3*14),270);
  1056.   ;GrKresliP²edm╪t(3083,1,20+(4*14),270);
  1057.  
  1058.   ;if (Sound == ON) {
  1059.   ;   GrKresliP²edm╪t(3046,1,20+(5*14),270);
  1060.   ;   GrKresliP²edm╪t(3059,1,20+(6*14),270);
  1061.   ;   GrKresliP²edm╪t(3060,1,20+(7*14),270);
  1062.   ;}
  1063.   ;else {
  1064.   ;   GrKresliP²edm╪t(3059,1,20+(5*14),270);
  1065.   ;   GrKresliP²edm╪t(3050,1,20+(6*14),270);
  1066.   ;}
  1067. s /**zm╪σ stav zvuku**/
  1068.   if (Sound == ON) Sound=OFF;
  1069.      else Sound=ON;
  1070.   AnimP²edm╪tSchovej(Myτ);
  1071. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1072. /l MyτUdálost.Typ == MyτUdálostLevéTlDolà
  1073. /1 MyτUdálost.X >80 && MyτUdálost.X <260 && MyτUdálost.Y >160 && MyτUdálost.Y <270
  1074. /2 MyτUdálost.X >350 && MyτUdálost.X <520 && MyτUdálost.Y >160 && MyτUdálost.Y <270
  1075. /3 MyτUdálost.X >20 && MyτUdálost.X <145 && MyτUdálost.Y >270 && MyτUdálost.Y <295
  1076. =SP---------------------------------------------------------------------------
  1077.  
  1078. ;-h---------------------------------------------------------------------------
  1079. void UloºTabulku( void )
  1080. -s--UloºTabulku                                                                 ■   2  -2 -15   3
  1081.   _________UloºTabulku
  1082. Otevri Zapiτ  zavri
  1083. 01!      #1    3!
  1084.          │
  1085.         2!
  1086. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1087. 0 ;Nastav
  1088.   TypSoubor Soubor;
  1089.   int i;
  1090. 1 ;Otevri
  1091.   Soubor=SouborOtev²i("c:\\temp\\city.tab",SouborP²ístupZápis);
  1092. 2 ;Zapiτ
  1093.    SouborPiτBlok(Soubor,&Tab[i],sizeof(Tab[i]));
  1094. 3  ;Zavreni souboru
  1095.    SouborZav²i(Soubor);
  1096. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1097. #1 Od0(i,5)
  1098. =SP---------------------------------------------------------------------------
  1099.  
  1100. ;-h---------------------------------------------------------------------------
  1101. void NaƒtiTabulku( void )
  1102. -s--NaƒtiTabulku                                                                ■   5  -2 -19   3
  1103.   ____NaƒtiTabulku
  1104. Otevri Naƒti zavri
  1105. 01!      #1   3!
  1106.          │
  1107.         2!
  1108. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1109. 0 ;Nastav
  1110.   TypSoubor Soubor;
  1111.   int i;
  1112. 1 ;Otevri
  1113.   if ( SouborExistuje("c:\\temp\\city.tab") ) Soubor=SouborOtev²i("c:\\temp\\city.tab",SouborP²ístup¼tení);
  1114.      else Soubor=SouborOtev²i("*\\city_e\\blank.tab",SouborP²ístup¼tení);
  1115. 2 ;Naƒti
  1116.    Soubor¼tiBlok(Soubor,&Tab[i],sizeof(Tab[i]));
  1117.  
  1118.    /* vynulování TOP-5 */
  1119.     ;Tab[i].Body=0;
  1120.  
  1121.    if (Tab[i].Body==0)
  1122.     Tab[i].Jmeno="........................";
  1123. 3 ;Zavreni souboru
  1124.    SouborZav²i(Soubor);
  1125. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1126. #1 Od0(i,5)
  1127. =SP---------------------------------------------------------------------------
  1128.  
  1129. ;-h---------------------------------------------------------------------------
  1130. void Tabulka( void )
  1131. -s--Tabulka                                                                     ■  20  -2   0   3
  1132.                  _________________Tabulka_____________
  1133.             Inicializace _______Akce_________      Konec
  1134.                 0!       /1                 /       6!
  1135.                        zápis              v∞pis
  1136.                          │                  │
  1137.     ______________Zapis~do~tablky_____    'Vypis
  1138. Ma~na~to? Nestaci Staci Srovnat    "Vypis
  1139.     #1      /2      /3     /3        #1
  1140.     │       │       │      │         │
  1141.    1!      3!      4!      #1       2!
  1142.           'Vypis           │
  1143.                           5!
  1144. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1145. 0 /**tab**/
  1146.  
  1147.   int i,MaNaTo,Body1,Body2,pos;
  1148.   string Jmeno,Jmeno2;
  1149.   i=MaNaTo=0;
  1150.   int actual=ON;
  1151.   GrNastavV∞stup(1);
  1152.   GrNastavBarvuPop²edí(¼erná);
  1153.   GrNastavText(GrTextBezPozadí);
  1154.  
  1155.   if (Zapsat == 1) {
  1156.      TypSoubor LoadScore=SouborOtev²i("c:\\temp\\score.dat",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1157.      Soubor¼tiI¼íslo(LoadScore,Body);
  1158.      SouborZav²i(LoadScore);
  1159.   }
  1160. 2  GrNastavPozici(158,127+i*10);
  1161.    if (i Je pos) {
  1162.       GrNastavBarvuPop²edí(14);
  1163.       }
  1164.       else GrNastavBarvuPop²edí(0);
  1165.    GrPiτU¼íslo(i+1,1);
  1166.    GrNastavPozici(185,127+i*10);
  1167.    GrPiτⁿet╪zec(Tab[i].Jmeno);
  1168.    GrNastavPozici(363,127+i*10);
  1169.    GrPiτU¼íslo(Tab[i].Body,5);
  1170. 1  ;Testuj zda to staci na zapis
  1171.    if (Body>Tab[i].Body) {
  1172.       MaNaTo=1;
  1173.       }
  1174. 3  ;Vypis neuspech
  1175.    GrNastavV∞stup(0);
  1176.    GrNastavBarvuPop²edí(Sv╪tlozelená);
  1177.    GrNastavBarvuPozadí(¼erná);
  1178.    GrSmaºOkno();
  1179.    if (Language == CZ) GrPiτⁿet╪zec("Smàla,máτ málo bodà pro zápis do Top5.");
  1180.       else GrPiτⁿet╪zec("Not enough score to enter Top5.");
  1181.    ¼ekejNaKlávesu();
  1182.    VyprázdniFrontuKláves();
  1183.    GrSmaºOkno();
  1184.    GrNastavV∞stup(1);
  1185.    GrNastavBarvuPop²edí(¼erná);
  1186.    GrNastavText(GrTextBezPozadí);
  1187. 4  ;Staci na zapis
  1188.   GrNastavV∞stup(0);
  1189.   GrNastavBarvuPop²edí(Sv╪tlozelená);
  1190.   GrNastavBarvuPozadí(¼erná);
  1191.   GrSmaºOkno();
  1192.   if (Language == CZ) Gr¼tiSⁿet╪zec("Vaτe ct╪né jméno : ",Jmeno,15,5,1);
  1193.      else Gr¼tiSⁿet╪zec("Enter your name : ",Jmeno,15,5,1);
  1194.   if (Jmeno Je "") Jmeno="Anonymous";
  1195.   Body1=Body;
  1196.   GrNastavV∞stup(1);
  1197.   GrNastavBarvuPop²edí(¼erná);
  1198.   GrNastavText(GrTextBezPozadí);
  1199. 5 ;Srovnani tabulky
  1200.   if (Body1>Tab[i].Body){
  1201.       Body2=Tab[i].Body;
  1202.       Jmeno2=Tab[i].Jmeno;
  1203.       Jmeno=Jmeno+"..............................";
  1204.       Tab[i].Jmeno=Jmeno;
  1205.       if (actual Je ON) {pos=i;actual=OFF;}
  1206.       Tab[i].Body=Body1;
  1207.       Jmeno=Jmeno2;
  1208.       Body1=Body2;}
  1209. 6 Zapsat=0;
  1210. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1211. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1212.     Od0
  1213. #1 Od0(i,5)
  1214. /1  Zapsat==1
  1215. /2  MaNaTo==0
  1216. /3  MaNaTo==1
  1217. /4 Zapsat==0
  1218. =SP---------------------------------------------------------------------------
  1219.  
  1220. ;-h---------------------------------------------------------------------------
  1221. void NastaveníHry( void )
  1222. -s--NastaveníHry                                                                ■   4  -2  -2   3
  1223.                         NastaveníHry
  1224.                            10!k
  1225.                           Ovládání
  1226.                              *
  1227.     ________________________Myτ
  1228. Nastavení                levé~tl.
  1229.    3!                       /l
  1230.               ____________V∞b╪r__
  1231.               /3       /1       /2
  1232.           Nastavení Posuvník   Zp╪t
  1233.              k!       a!z :break!
  1234.                      while
  1235.                        *1
  1236.                     posunuj
  1237.                      3p!
  1238. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1239. 0 /**Zobraz poloºky**/
  1240.   int PàvodníV∞stup;
  1241.   PàvodníV∞stup= GrNastavV∞stup(1);
  1242.   GrNastavV∞stup(GrV∞stupUºivatelsk∞1|GrV∞stupUºivatelsk∞Nastavení,364,100,430,115);
  1243.   GrKresliP²edm╪ty(2001,1,0,0,15,10);
  1244.   AnimP²edm╪tSchovej(Myτ);
  1245.   MyτZaƒátekObsluhy();
  1246.   TypAnimP²edm╪t Posuvník;
  1247.   Myτ= AnimP²edm╪tVytvo²(1031,1,0,1);
  1248.   Posuvník= AnimP²edm╪tVytvo²(18007,2,0,1);
  1249.   TypAnimP²edm╪t Pol3= AnimP²edm╪tVytvo²(1007,1,0,1);
  1250.  
  1251.  
  1252.   if (Language == CZ) GrKresliP²edm╪ty(18004,1,200,10,3,2);
  1253.      else GrKresliP²edm╪ty(18012,1,200,10,3,2);
  1254.  
  1255.   if (Language == CZ) GrKresliP²edm╪ty(18001,1,20,100,3,1);
  1256.      else GrKresliP²edm╪ty(18009,1,20,100,3,1);
  1257.  
  1258.   GrKresliP²edm╪ty(18031,1,130,100,6,1);
  1259.  
  1260.   if (DélkaDne == 90) Mx=145;
  1261.   else if (DélkaDne == 100) Mx=156;
  1262.   else if (DélkaDne == 110) Mx=167;
  1263.   else if (DélkaDne == 120) Mx=178;
  1264.   else if (DélkaDne == 130) Mx=189;
  1265.   else if (DélkaDne == 140) Mx=200;
  1266.   else if (DélkaDne == 150) Mx=211;
  1267.   else if (DélkaDne == 160) Mx=222;
  1268.   else if (DélkaDne == 170) Mx=233;
  1269.   else if (DélkaDne == 180) Mx=244;
  1270.   else if (DélkaDne == 190) Mx=255;
  1271.   else if (DélkaDne == 200) Mx=266;
  1272.   else if (DélkaDne == 210) Mx=277;
  1273.   else if (DélkaDne == 220) Mx=288;
  1274.   else Mx=300;
  1275.   AnimP²edm╪tAnimuj(Posuvník,Mx,105,0);
  1276.  
  1277.  
  1278.   AnimP²edm╪tAnimuj(Pol3,265,180,0);
  1279.  
  1280.   GrNastavV∞stup(GrV∞stupUºivatelsk∞1);
  1281.   GrNastavBarvuPozadí(4);
  1282.   GrNastavBarvuPop²edí(11);
  1283.   GrSmaºOkno();
  1284.   GrPiτU¼íslo(DélkaDne*3*55,-1);
  1285.   GrPiτⁿet╪zec("ms");
  1286.   GrNastavV∞stup(PàvodníV∞stup);
  1287.  
  1288. 3  /**Nastavení myτi**/
  1289.    ;myτ
  1290.      Myτ¼tiUdálost(MyτUdálost);
  1291.    ;v∞poƒty
  1292.      Mx=MyτUdálost.X-24;
  1293.      My=MyτUdálost.Y-10;
  1294.    ;animace
  1295.      AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  1296.      AnimP²edm╪tDejP²ed(Myτ,0);
  1297.  
  1298. k MyτKonecObsluhy();
  1299.   AnimP²edm╪tZruτ(Myτ);
  1300.   AnimP²edm╪tZruτ(Posuvník);
  1301.   AnimP²edm╪tZruτ(Pol3);
  1302. p /**posunuj posuvník - délka dne**/
  1303.   GrNastavV∞stup(GrV∞stupUºivatelsk∞1);
  1304.   GrNastavBarvuPozadí(4);
  1305.   GrNastavBarvuPop²edí(11);
  1306.   GrSmaºOkno();
  1307.   GrPiτU¼íslo(DélkaDne*3*55,-1);
  1308.   GrPiτⁿet╪zec("ms");
  1309.   GrNastavV∞stup(PàvodníV∞stup);
  1310.  
  1311.   AnimP²edm╪tAnimuj(Posuvník,Mx,105,1);
  1312.  
  1313.   if (Mx >= 145 && Mx <= 155) DélkaDne=90;
  1314.   else if (Mx >= 156 && Mx <= 166) DélkaDne=100;
  1315.   else if (Mx >= 167 && Mx <= 177) DélkaDne=110;
  1316.   else if (Mx >= 178 && Mx <= 188) DélkaDne=120;
  1317.   else if (Mx >= 189 && Mx <= 199) DélkaDne=130;
  1318.   else if (Mx >= 200 && Mx <= 210) DélkaDne=140;
  1319.   else if (Mx >= 211 && Mx <= 221) DélkaDne=150;
  1320.   else if (Mx >= 222 && Mx <= 232) DélkaDne=160;
  1321.   else if (Mx >= 233 && Mx <= 243) DélkaDne=170;
  1322.   else if (Mx >= 244 && Mx <= 254) DélkaDne=180;
  1323.   else if (Mx >= 255 && Mx <= 265) DélkaDne=190;
  1324.   else if (Mx >= 266 && Mx <= 276) DélkaDne=200;
  1325.   else if (Mx >= 277 && Mx <= 287) DélkaDne=210;
  1326.   else if (Mx >= 288 && Mx <= 298) DélkaDne=220;
  1327.   else DélkaDne=230;
  1328. z /**animuj posuvník**/
  1329.   MyτNastavRozsah(0,0,586,291);
  1330.   AnimP²edm╪tAnimuj(Posuvník,Mx,105,0);
  1331.  
  1332.   SouborSmaº("c:\\temp\\config.dat");
  1333.   TypSoubor CFG=SouborOtev²i("c:\\temp\\config.dat",SouborP²ístupZápis|SouborP²ístupTextov∞);
  1334.   SouborPiτU¼íslo(CFG,DélkaDne,-1);
  1335.   SouborPiτNov∞ⁿádek(CFG);
  1336.   SouborPiτU¼íslo(CFG,Sound,-1);
  1337.   SouborZav²i(CFG);
  1338. a /**nastav rozsah myτi**/
  1339.   MyτNastavRozsah(169,My,333,My);
  1340.  
  1341. 1 /**otev²i konfiguraƒní soubor**/
  1342.   TypSoubor CFG=SouborOtev²i("c:\\temp\\config.dat",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1343.   Soubor¼tiI¼íslo(CFG,DélkaDne);
  1344.   SouborZav²i(CFG);
  1345. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1346. /l MyτUdálost.Typ == MyτUdálostLevéTlDolà
  1347. /3 MyτUdálost.X >450 && MyτUdálost.X <585 && MyτUdálost.Y >10 && MyτUdálost.Y <75
  1348.  
  1349. /1 AnimP²edm╪tKolidujeS(Posuvník,Myτ)
  1350. /2 AnimP²edm╪tKolidujeS(Pol3,Myτ)
  1351. *1 MyτUdálost.Typ != MyτUdálostLevéTlNahoru
  1352. =SP---------------------------------------------------------------------------
  1353.  
  1354. ;-h---------------------------------------------------------------------------
  1355. void V∞b╪rPovolání( void )
  1356. -s--V∞b╪rPovolání                                                               ■   4  -2  -2   3
  1357.                        V∞b╪rPovolání
  1358.                           012!k
  1359.                           Ovládání
  1360.                              *
  1361.     ________________________Myτ
  1362. Nastavení                levé~tl.
  1363.    3!                       /l
  1364.      _____________________V∞b╪r_________
  1365.      /1         /2                     /3
  1366.   policajt    zlod╪j               Nastavení
  1367.    a4!:break b54!:break              zk!
  1368.                         :NastaveníHry()!
  1369.                            :goto~repeat!
  1370. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1371. 0 /**Zobraz poloºky**/
  1372.   repeat:
  1373.   GrKresliP²edm╪ty(2001,1,0,0,15,10);
  1374.   AnimP²edm╪tSchovej(Myτ);
  1375.   MyτZaƒátekObsluhy();
  1376.   Myτ= AnimP²edm╪tVytvo²(1031,1,0,1);
  1377.   if (Language == CZ) GrKresliP²edm╪ty(5004,1,90,10,9,3);
  1378.      else GrKresliP²edm╪ty(5109,1,90,10,8,2);
  1379.  
  1380.   if (Language == CZ) GrKresliP²edm╪ty(18004,1,450,10,3,2);
  1381.      else GrKresliP²edm╪ty(18012,1,450,10,3,2);
  1382.  
  1383.   /**Policajt**/
  1384.   if (Language == CZ) {
  1385.      GrKresliP²edm╪t(4106,1,50,150);
  1386.      GrKresliP²edm╪t(4105,1,50+20,150);
  1387.      GrKresliP²edm╪t(4102,1,50+(2*20),150);
  1388.      GrKresliP²edm╪t(4099,1,50+(3*20),150);
  1389.      GrKresliP²edm╪t(4093,1,50+(4*20),150);
  1390.      GrKresliP²edm╪t(4091,1,50+(5*20),150);
  1391.      GrKresliP²edm╪t(4100,1,50+(6*20),150);
  1392.      GrKresliP²edm╪t(4110,1,50+(7*20),150);
  1393.   }
  1394.   else {
  1395.      GrKresliP²edm╪t(4093,1,50+(5*20),150);
  1396.      GrKresliP²edm╪t(4105,1,50+(6*20),150);
  1397.      GrKresliP²edm╪t(4106,1,50+(7*20),150);
  1398.   }
  1399.   /**Policajt**/
  1400.  
  1401.   /**Zlod╪j**/
  1402.   if (Language == CZ) {
  1403.      GrKresliP²edm╪t(4116,1,50+(2*20),210);
  1404.      GrKresliP²edm╪t(4102,1,50+(3*20),210);
  1405.      GrKresliP²edm╪t(4105,1,50+(4*20),210);
  1406.      GrKresliP²edm╪t(4094,1,50+(5*20),210);
  1407.      GrKresliP²edm╪t(4095,1,50+(6*20),210);
  1408.      GrKresliP²edm╪t(4100,1,50+(7*20),210);
  1409.   }
  1410.   else {
  1411.      GrKresliP²edm╪t(4110,1,50+(3*20),210);
  1412.      GrKresliP²edm╪t(4098,1,50+(4*20),210);
  1413.      GrKresliP²edm╪t(4099,1,50+(5*20),210);
  1414.      GrKresliP²edm╪t(4095,1,50+(6*20),210);
  1415.      GrKresliP²edm╪t(4096,1,50+(7*20),210);
  1416.   }
  1417.   /**Zlod╪j**/
  1418.  
  1419.  
  1420. 1 /**Vytvo²ení ikon**/
  1421.  
  1422.  /*deklarace*/
  1423.  struct
  1424.  {
  1425.   int X,Y;
  1426.   TypAnimP²edm╪t Anim1,Anim2,Anim3,Anim4,Anim5,Anim6,Anim7,Anim8,Anim9,Anim10,Anim11,
  1427.                 Anim12;
  1428.  } Okno0;
  1429.  struct
  1430.  {
  1431.   int X,Y;
  1432.   TypAnimP²edm╪t Anim1,Anim2,Anim3,Anim4;
  1433.  } Foto0;
  1434.  struct
  1435.  {
  1436.   int X,Y;
  1437.   TypAnimP²edm╪t Anim1,Anim2,Anim3,Anim4;
  1438.  } Foto1;
  1439.  /*deklarace*/
  1440.  
  1441.  /*definice*/
  1442.   Okno0.Anim1 = AnimP²edm╪tVytvo²(5049,1,0,1);
  1443.   Okno0.Anim2 = AnimP²edm╪tVytvo²(5050,1,0,1);
  1444.   Okno0.Anim3 = AnimP²edm╪tVytvo²(5051,1,0,1);
  1445.   Okno0.Anim4 = AnimP²edm╪tVytvo²(5064,1,0,1);
  1446.   Okno0.Anim5 = AnimP²edm╪tVytvo²(5065,1,0,1);
  1447.   Okno0.Anim6 = AnimP²edm╪tVytvo²(5066,1,0,1);
  1448.   Okno0.Anim7 = AnimP²edm╪tVytvo²(5079,1,0,1);
  1449.   Okno0.Anim8 = AnimP²edm╪tVytvo²(5080,1,0,1);
  1450.   Okno0.Anim9 = AnimP²edm╪tVytvo²(5081,1,0,1);
  1451.   Okno0.Anim10= AnimP²edm╪tVytvo²(5094,1,0,1);
  1452.   Okno0.Anim11= AnimP²edm╪tVytvo²(5095,1,0,1);
  1453.   Okno0.Anim12= AnimP²edm╪tVytvo²(5096,1,0,1);
  1454.   Foto0.Anim1 = AnimP²edm╪tVytvo²(5053,1,0,1);
  1455.   Foto0.Anim2 = AnimP²edm╪tVytvo²(5054,1,0,1);
  1456.   Foto0.Anim3 = AnimP²edm╪tVytvo²(5068,1,0,1);
  1457.   Foto0.Anim4 = AnimP²edm╪tVytvo²(5069,1,0,1);
  1458.   Foto1.Anim1 = AnimP²edm╪tVytvo²(5055,1,0,1);
  1459.   Foto1.Anim2 = AnimP²edm╪tVytvo²(5056,1,0,1);
  1460.   Foto1.Anim3 = AnimP²edm╪tVytvo²(5070,1,0,1);
  1461.   Foto1.Anim4 = AnimP²edm╪tVytvo²(5071,1,0,1);
  1462.  /*definice*/
  1463.  
  1464. 2 /**P²íjezd (animace) ikon**/
  1465.   Okno0.X=585;
  1466.   Okno0.Y=87;
  1467.   Foto0.X=212;
  1468.   Foto0.Y=290;
  1469.   Foto1.X=212;
  1470.   Foto1.Y=380;
  1471.       AnimP²edm╪tDejZa(Foto0.Anim1,0);
  1472.       AnimP²edm╪tDejZa(Foto0.Anim2,0);
  1473.       AnimP²edm╪tDejZa(Foto0.Anim3,0);
  1474.       AnimP²edm╪tDejZa(Foto0.Anim4,0);
  1475.       AnimP²edm╪tDejZa(Foto1.Anim1,0);
  1476.       AnimP²edm╪tDejZa(Foto1.Anim2,0);
  1477.       AnimP²edm╪tDejZa(Foto1.Anim3,0);
  1478.       AnimP²edm╪tDejZa(Foto1.Anim4,0);
  1479.   while (Okno0.X > 200) {
  1480.       AnimP²edm╪tAnimuj(Okno0.Anim1,Okno0.X,Okno0.Y,0);
  1481.       AnimP²edm╪tAnimuj(Okno0.Anim2,Okno0.X+39,Okno0.Y,0);
  1482.       AnimP²edm╪tAnimuj(Okno0.Anim3,Okno0.X+78,Okno0.Y,0);
  1483.       AnimP²edm╪tAnimuj(Okno0.Anim4,Okno0.X,Okno0.Y+29,0);
  1484.       AnimP²edm╪tAnimuj(Okno0.Anim5,Okno0.X+39,Okno0.Y+29,0);
  1485.       AnimP²edm╪tAnimuj(Okno0.Anim6,Okno0.X+78,Okno0.Y+29,0);
  1486.       AnimP²edm╪tAnimuj(Okno0.Anim7,Okno0.X,Okno0.Y+58,0);
  1487.       AnimP²edm╪tAnimuj(Okno0.Anim8,Okno0.X+39,Okno0.Y+58,0);
  1488.       AnimP²edm╪tAnimuj(Okno0.Anim9,Okno0.X+78,Okno0.Y+58,0);
  1489.       AnimP²edm╪tAnimuj(Okno0.Anim10,Okno0.X,Okno0.Y+87,0);
  1490.       AnimP²edm╪tAnimuj(Okno0.Anim11,Okno0.X+39,Okno0.Y+87,0);
  1491.       AnimP²edm╪tAnimuj(Okno0.Anim12,Okno0.X+78,Okno0.Y+87,0);
  1492.       Okno0.X-=3;
  1493.       if (Foto0.Y > 115) {
  1494.       AnimP²edm╪tAnimuj(Foto0.Anim1,Foto0.X,Foto0.Y,0);
  1495.       AnimP²edm╪tAnimuj(Foto0.Anim2,Foto0.X+39,Foto0.Y,0);
  1496.       AnimP²edm╪tAnimuj(Foto0.Anim3,Foto0.X,Foto0.Y+29,0);
  1497.       AnimP²edm╪tAnimuj(Foto0.Anim4,Foto0.X+39,Foto0.Y+29,0);
  1498.       Foto0.Y-=3;
  1499.       }
  1500.       if (Foto1.Y > 205) {
  1501.       AnimP²edm╪tAnimuj(Foto1.Anim1,Foto1.X,Foto1.Y,0);
  1502.       AnimP²edm╪tAnimuj(Foto1.Anim2,Foto1.X+39,Foto1.Y,0);
  1503.       AnimP²edm╪tAnimuj(Foto1.Anim3,Foto1.X,Foto1.Y+29,0);
  1504.       AnimP²edm╪tAnimuj(Foto1.Anim4,Foto1.X+39,Foto1.Y+29,0);
  1505.       Foto1.Y-=3;
  1506.       }
  1507.   }
  1508. 3  /**Nastavení myτi**/
  1509.    ;myτ
  1510.      Myτ¼tiUdálost(MyτUdálost);
  1511.    ;v∞poƒty
  1512.      Mx=MyτUdálost.X-24;
  1513.      My=MyτUdálost.Y-10;
  1514.    ;animace
  1515.      AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  1516.      AnimP²edm╪tDejP²ed(Myτ,0);
  1517.  
  1518. 4 /**odjezd ikon**/
  1519.   while (Okno0.X < 585) {
  1520.       AnimP²edm╪tAnimuj(Okno0.Anim1,Okno0.X,Okno0.Y,0);
  1521.       AnimP²edm╪tAnimuj(Okno0.Anim2,Okno0.X+39,Okno0.Y,0);
  1522.       AnimP²edm╪tAnimuj(Okno0.Anim3,Okno0.X+78,Okno0.Y,0);
  1523.       AnimP²edm╪tAnimuj(Okno0.Anim4,Okno0.X,Okno0.Y+29,0);
  1524.       AnimP²edm╪tAnimuj(Okno0.Anim5,Okno0.X+39,Okno0.Y+29,0);
  1525.       AnimP²edm╪tAnimuj(Okno0.Anim6,Okno0.X+78,Okno0.Y+29,0);
  1526.       AnimP²edm╪tAnimuj(Okno0.Anim7,Okno0.X,Okno0.Y+58,0);
  1527.       AnimP²edm╪tAnimuj(Okno0.Anim8,Okno0.X+39,Okno0.Y+58,0);
  1528.       AnimP²edm╪tAnimuj(Okno0.Anim9,Okno0.X+78,Okno0.Y+58,0);
  1529.       AnimP²edm╪tAnimuj(Okno0.Anim10,Okno0.X,Okno0.Y+87,0);
  1530.       AnimP²edm╪tAnimuj(Okno0.Anim11,Okno0.X+39,Okno0.Y+87,0);
  1531.       AnimP²edm╪tAnimuj(Okno0.Anim12,Okno0.X+78,Okno0.Y+87,0);
  1532.       Okno0.X+=6;
  1533.       if (Foto0.Y < 295) {
  1534.       AnimP²edm╪tAnimuj(Foto0.Anim1,Foto0.X,Foto0.Y,0);
  1535.       AnimP²edm╪tAnimuj(Foto0.Anim2,Foto0.X+39,Foto0.Y,0);
  1536.       AnimP²edm╪tAnimuj(Foto0.Anim3,Foto0.X,Foto0.Y+29,0);
  1537.       AnimP²edm╪tAnimuj(Foto0.Anim4,Foto0.X+39,Foto0.Y+29,0);
  1538.       Foto0.Y+=6;
  1539.       }
  1540.       if (Foto1.Y < 295) {
  1541.       AnimP²edm╪tAnimuj(Foto1.Anim1,Foto1.X,Foto1.Y,0);
  1542.       AnimP²edm╪tAnimuj(Foto1.Anim2,Foto1.X+39,Foto1.Y,0);
  1543.       AnimP²edm╪tAnimuj(Foto1.Anim3,Foto1.X,Foto1.Y+29,0);
  1544.       AnimP²edm╪tAnimuj(Foto1.Anim4,Foto1.X+39,Foto1.Y+29,0);
  1545.       Foto1.Y+=6;
  1546.       }
  1547.   }
  1548.   AnimP²edm╪tZruτ(Foto0.Anim1);
  1549.   AnimP²edm╪tZruτ(Foto0.Anim2);
  1550.   AnimP²edm╪tZruτ(Foto0.Anim3);
  1551.   AnimP²edm╪tZruτ(Foto0.Anim4);
  1552.   AnimP²edm╪tZruτ(Foto1.Anim1);
  1553.   AnimP²edm╪tZruτ(Foto1.Anim2);
  1554.   AnimP²edm╪tZruτ(Foto1.Anim3);
  1555.   AnimP²edm╪tZruτ(Foto1.Anim4);
  1556.   AnimP²edm╪tZruτ(Okno0.Anim1);
  1557.   AnimP²edm╪tZruτ(Okno0.Anim2);
  1558.   AnimP²edm╪tZruτ(Okno0.Anim3);
  1559.   AnimP²edm╪tZruτ(Okno0.Anim4);
  1560.   AnimP²edm╪tZruτ(Okno0.Anim5);
  1561.   AnimP²edm╪tZruτ(Okno0.Anim6);
  1562.   AnimP²edm╪tZruτ(Okno0.Anim7);
  1563.   AnimP²edm╪tZruτ(Okno0.Anim8);
  1564.   AnimP²edm╪tZruτ(Okno0.Anim9);
  1565.   AnimP²edm╪tZruτ(Okno0.Anim10);
  1566.   AnimP²edm╪tZruτ(Okno0.Anim11);
  1567.   AnimP²edm╪tZruτ(Okno0.Anim12);
  1568.  
  1569. k MyτKonecObsluhy();
  1570.   AnimP²edm╪tZruτ(Myτ);
  1571.  
  1572.   /**uloº zm╪ny do souboru**/
  1573.   TypSoubor CFG=SouborOtev²i("c:\\temp\\config.dat",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1574.   Soubor¼tiI¼íslo(CFG,DélkaDne);
  1575.   SouborZav²i(CFG);
  1576.  
  1577.   SouborSmaº("c:\\temp\\config.dat");
  1578.   CFG=SouborOtev²i("c:\\temp\\config.dat",SouborP²ístupZápis|SouborP²ístupTextov∞);
  1579.   SouborPiτU¼íslo(CFG,DélkaDne,-1);
  1580.   SouborPiτNov∞ⁿádek(CFG);
  1581.   SouborPiτU¼íslo(CFG,Sound,-1);
  1582.   SouborZav²i(CFG);
  1583.  
  1584. 5 /**p²esuσ v∞b╪r na foto1**/
  1585.   while (Okno0.Y < Foto1.Y-28) {
  1586.       AnimP²edm╪tAnimuj(Okno0.Anim1,Okno0.X,Okno0.Y,0);
  1587.       AnimP²edm╪tAnimuj(Okno0.Anim2,Okno0.X+39,Okno0.Y,0);
  1588.       AnimP²edm╪tAnimuj(Okno0.Anim3,Okno0.X+78,Okno0.Y,0);
  1589.       AnimP²edm╪tAnimuj(Okno0.Anim4,Okno0.X,Okno0.Y+29,0);
  1590.       AnimP²edm╪tAnimuj(Okno0.Anim5,Okno0.X+39,Okno0.Y+29,0);
  1591.       AnimP²edm╪tAnimuj(Okno0.Anim6,Okno0.X+78,Okno0.Y+29,0);
  1592.       AnimP²edm╪tAnimuj(Okno0.Anim7,Okno0.X,Okno0.Y+58,0);
  1593.       AnimP²edm╪tAnimuj(Okno0.Anim8,Okno0.X+39,Okno0.Y+58,0);
  1594.       AnimP²edm╪tAnimuj(Okno0.Anim9,Okno0.X+78,Okno0.Y+58,0);
  1595.       AnimP²edm╪tAnimuj(Okno0.Anim10,Okno0.X,Okno0.Y+87,0);
  1596.       AnimP²edm╪tAnimuj(Okno0.Anim11,Okno0.X+39,Okno0.Y+87,0);
  1597.       AnimP²edm╪tAnimuj(Okno0.Anim12,Okno0.X+78,Okno0.Y+87,0);
  1598.       Okno0.Y+=6;
  1599.   }
  1600. a Povolání="policajt";
  1601. b Povolání="zlod╪j";
  1602. z /**zruτ okno a foto**/
  1603.   AnimP²edm╪tZruτ(Foto0.Anim1);
  1604.   AnimP²edm╪tZruτ(Foto0.Anim2);
  1605.   AnimP²edm╪tZruτ(Foto0.Anim3);
  1606.   AnimP²edm╪tZruτ(Foto0.Anim4);
  1607.   AnimP²edm╪tZruτ(Foto1.Anim1);
  1608.   AnimP²edm╪tZruτ(Foto1.Anim2);
  1609.   AnimP²edm╪tZruτ(Foto1.Anim3);
  1610.   AnimP²edm╪tZruτ(Foto1.Anim4);
  1611.   AnimP²edm╪tZruτ(Okno0.Anim1);
  1612.   AnimP²edm╪tZruτ(Okno0.Anim2);
  1613.   AnimP²edm╪tZruτ(Okno0.Anim3);
  1614.   AnimP²edm╪tZruτ(Okno0.Anim4);
  1615.   AnimP²edm╪tZruτ(Okno0.Anim5);
  1616.   AnimP²edm╪tZruτ(Okno0.Anim6);
  1617.   AnimP²edm╪tZruτ(Okno0.Anim7);
  1618.   AnimP²edm╪tZruτ(Okno0.Anim8);
  1619.   AnimP²edm╪tZruτ(Okno0.Anim9);
  1620.   AnimP²edm╪tZruτ(Okno0.Anim10);
  1621.   AnimP²edm╪tZruτ(Okno0.Anim11);
  1622.   AnimP²edm╪tZruτ(Okno0.Anim12);
  1623. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1624. /1 AnimP²edm╪tKolidujeS(Myτ,Foto0.Anim1) || AnimP²edm╪tKolidujeS(Myτ,Foto0.Anim2) ||
  1625.    AnimP²edm╪tKolidujeS(Myτ,Foto0.Anim3) || AnimP²edm╪tKolidujeS(Myτ,Foto0.Anim4)
  1626. /2 AnimP²edm╪tKolidujeS(Myτ,Foto1.Anim1) || AnimP²edm╪tKolidujeS(Myτ,Foto1.Anim2) ||
  1627.    AnimP²edm╪tKolidujeS(Myτ,Foto1.Anim3) || AnimP²edm╪tKolidujeS(Myτ,Foto1.Anim4)
  1628. /l MyτUdálost.Typ == MyτUdálostLevéTlDolà
  1629. /3 MyτUdálost.X >450 && MyτUdálost.X <585 && MyτUdálost.Y >10 && MyτUdálost.Y <75
  1630.  
  1631. =SP---------------------------------------------------------------------------
  1632.  
  1633. ;-h---------------------------------------------------------------------------
  1634. void ChooseEditor( void )
  1635. -s--ChooseEditor                                                                ■   4  -2  -8   3
  1636.                  ChooseEditor
  1637.                      0!e
  1638.                     V∞b╪r
  1639.                       *
  1640.     _________________Myτ
  1641. Nastavení         Akce
  1642.    Myτi            /l
  1643.    1!  _________levé~tl.__
  1644.        /1     /2         /3
  1645.       Car   Level       Zp╪t
  1646.      Editor Editor      b!
  1647.       c!     l!
  1648. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1649. 0 /**vytvo² a zobraz poloºky**/
  1650.   TypAnimP²edm╪t Pol1,Pol2,Pol3;
  1651.   Pol1= AnimP²edm╪tVytvo²(1005,1,0,1);
  1652.   Pol2= AnimP²edm╪tVytvo²(1006,1,0,1);
  1653.   Pol3= AnimP²edm╪tVytvo²(1007,1,0,1);
  1654.  
  1655.   AnimP²edm╪tAnimuj(Pol1,50,150,0);
  1656.   AnimP²edm╪tAnimuj(Pol2,500,150,0);
  1657.   AnimP²edm╪tAnimuj(Pol3,265,180,0);
  1658.   Myτ= AnimP²edm╪tVytvo²(1031,1,0,1);
  1659.   MyτZaƒátekObsluhy();
  1660. 1 /**Nastavení myτi**/
  1661.    ;myτ
  1662.      Myτ¼tiUdálost(MyτUdálost);
  1663.    ;v∞poƒty
  1664.      Mx=MyτUdálost.X-24;
  1665.      My=MyτUdálost.Y-10;
  1666.    ;animace
  1667.      AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  1668. e MyτKonecObsluhy();
  1669.   AnimP²edm╪tZruτ(Myτ);
  1670.   AnimP²edm╪tZruτ(Pol1);
  1671.   AnimP²edm╪tZruτ(Pol2);
  1672.   AnimP²edm╪tZruτ(Pol3);
  1673. c /**Car Editor**/
  1674.   Run="Cared";
  1675.   break;
  1676. l /**Level Editor**/
  1677.   Run="Leveled";
  1678.   break;
  1679. b /**zp╪t**/
  1680.   Run="";
  1681.   break;
  1682. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1683. /l MyτUdálost.Typ == MyτUdálostLevéTlDolà
  1684.  
  1685. /1 AnimP²edm╪tKolidujeS(Myτ,Pol1)
  1686. /2 AnimP²edm╪tKolidujeS(Myτ,Pol2)
  1687. /3 AnimP²edm╪tKolidujeS(Myτ,Pol3)
  1688. =SP---------------------------------------------------------------------------
  1689.  
  1690. ;-h---------------------------------------------------------------------------
  1691. void main( void )
  1692. -s--MENU                                                                        ■   4  -2  -7   3
  1693.           MENU
  1694.           0!
  1695.   :FrameA()!
  1696.   :FrameB()!
  1697.       2abcd!zQ
  1698.          While
  1699.            *
  1700.     ______Menu__
  1701. nastavení     levé
  1702.   pozice       /l
  1703.    1!   ______tl._____________
  1704.         /S       /E     /K   /T
  1705.       Start    Editor Konec Top5
  1706.        Hry      E!     k!  zt!:goto~MainMenu
  1707.        s!
  1708. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1709. 0 /**Zobraz hlavní menu**/
  1710.   if ( SouborExistuje("C:\\TEMP\\config.dat") == 0) Adresá²Vytvo²("C:\\TEMP");
  1711.  
  1712.   Vytvo²Prostor();
  1713.   Sound=OFF;
  1714.  
  1715.   /**V∞b╪r jazyka**/
  1716.   ChooseYourLanguage();
  1717.  
  1718.   /**Hlavní Menu**/
  1719.   MainMenu:
  1720.   GrNastavV∞stup(1);
  1721.   GrNastavPaletu(2001);
  1722.   GrKresliP²edm╪ty(2001,1,0,0,15,10);
  1723.   Myτ= AnimP²edm╪tVytvo²(1031,1,0,1);
  1724.   TypAnimP²edm╪t T5pol= AnimP²edm╪tVytvo²(1008,1,0,1);
  1725.   AnimP²edm╪tAnimuj(T5pol,0,261,-1);
  1726.   Run="";
  1727.  
  1728.   Cframu=0;
  1729.   Frame0.X=0;
  1730.   Frame0.Y=40;
  1731.  
  1732.   Frame1.X=570;
  1733.   Frame1.Y=40;
  1734. 1 /**Nastavení myτi**/
  1735.    ;myτ
  1736.      Myτ¼tiUdálost(MyτUdálost);
  1737.    ;v∞poƒty
  1738.      Mx=MyτUdálost.X-24;
  1739.      My=MyτUdálost.Y-10;
  1740.    ;animace
  1741.      AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  1742.      AnimP²edm╪tDejP²ed(Myτ,0);
  1743.      ¼ekejNaVR();
  1744.  
  1745. 2 /**vytvo²ení**/
  1746.   MyτZaƒátekObsluhy();
  1747.  
  1748.   CEL1 = AnimP²edm╪tVytvo²(1086,1,0,1);
  1749.   CEL2 = AnimP²edm╪tVytvo²(1087,1,0,1);
  1750.   CEL3 = AnimP²edm╪tVytvo²(1088,1,0,1);
  1751.   CEL4 = AnimP²edm╪tVytvo²(1089,1,0,1);
  1752.   CEL5 = AnimP²edm╪tVytvo²(1101,1,0,1);
  1753.   CEL6 = AnimP²edm╪tVytvo²(1102,1,0,1);
  1754.   CEL7 = AnimP²edm╪tVytvo²(1103,1,0,1);
  1755.   CEL8 = AnimP²edm╪tVytvo²(1104,1,0,1);
  1756.   CEL9 = AnimP²edm╪tVytvo²(1116,1,0,1);
  1757.   CEL10 = AnimP²edm╪tVytvo²(1117,1,0,1);
  1758.  
  1759.   if (Language == CZ) {
  1760.      SH1 = AnimP²edm╪tVytvo²(1091,1,0,1);
  1761.      SH2 = AnimP²edm╪tVytvo²(1092,1,0,1);
  1762.      SH3 = AnimP²edm╪tVytvo²(1093,1,0,1);
  1763.      SH4 = AnimP²edm╪tVytvo²(1094,1,0,1);
  1764.      SH5 = AnimP²edm╪tVytvo²(1106,1,0,1);
  1765.      SH6 = AnimP²edm╪tVytvo²(1107,1,0,1);
  1766.      SH7 = AnimP²edm╪tVytvo²(1108,1,0,1);
  1767.      SH8 = AnimP²edm╪tVytvo²(1109,1,0,1);
  1768.   }
  1769.   else {
  1770.      SH1 = AnimP²edm╪tVytvo²(1095,1,0,1);
  1771.      SH2 = AnimP²edm╪tVytvo²(1096,1,0,1);
  1772.      SH3 = AnimP²edm╪tVytvo²(1097,1,0,1);
  1773.      SH4 = AnimP²edm╪tVytvo²(1098,1,0,1);
  1774.      SH5 = AnimP²edm╪tVytvo²(1046,1,0,1);
  1775.      SH6 = AnimP²edm╪tVytvo²(1046,1,0,1);
  1776.      SH7 = AnimP²edm╪tVytvo²(1046,1,0,1);
  1777.      SH8 = AnimP²edm╪tVytvo²(1046,1,0,1);
  1778.   }
  1779.  
  1780.   E1 = AnimP²edm╪tVytvo²(1001,1,0,1);
  1781.   E2 = AnimP²edm╪tVytvo²(1002,1,0,1);
  1782.   E3 = AnimP²edm╪tVytvo²(1003,1,0,1);
  1783.   E4 = AnimP²edm╪tVytvo²(1016,1,0,1);
  1784.   E5 = AnimP²edm╪tVytvo²(1017,1,0,1);
  1785.   E6 = AnimP²edm╪tVytvo²(1018,1,0,1);
  1786.  
  1787.   if (Language == CZ) {
  1788.      K1 = AnimP²edm╪tVytvo²(1032,5,0,1);
  1789.      K2 = AnimP²edm╪tVytvo²(1037,5,0,1);
  1790.      K3 = AnimP²edm╪tVytvo²(1042,5,0,1);
  1791.      K4 = AnimP²edm╪tVytvo²(1077,5,0,1);
  1792.      K5 = AnimP²edm╪tVytvo²(1062,5,0,1);
  1793.      K6 = AnimP²edm╪tVytvo²(1070,5,0,1);
  1794.   }
  1795.   else {
  1796.      K1 = AnimP²edm╪tVytvo²(1110,5,0,1);
  1797.      K2 = AnimP²edm╪tVytvo²(1111,5,0,1);
  1798.      K3 = AnimP²edm╪tVytvo²(1112,5,0,1);
  1799.      K4 = AnimP²edm╪tVytvo²(1125,5,0,1);
  1800.      K5 = AnimP²edm╪tVytvo²(1126,5,0,1);
  1801.      K6 = AnimP²edm╪tVytvo²(1127,5,0,1);
  1802.   }
  1803.  
  1804.   Sx=Cx=200;
  1805.   Ky=Ey=Sy=Cy=290;
  1806.   Kx=Ex=220;
  1807. a /**City Engine Logo**/
  1808.   for (z=0;z!=140;z++) {
  1809.   n=y=0;
  1810.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  1811.   y++;
  1812.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  1813.   y++;
  1814.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  1815.   y++;
  1816.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  1817.   n++;
  1818.   y=0;
  1819.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  1820.   y++;
  1821.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  1822.   y++;
  1823.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  1824.   y++;
  1825.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  1826.   n++;
  1827.   y=0;
  1828.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  1829.   y++;
  1830.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  1831.   Cy-=2;
  1832.   }
  1833.  
  1834.   n=y=0;
  1835.   Cx-=5;
  1836.   Cy+=5;
  1837.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  1838.   y++;
  1839.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  1840.   y++;
  1841.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  1842.   y++;
  1843.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  1844.   n++;
  1845.   y=0;
  1846.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  1847.   y++;
  1848.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  1849.   y++;
  1850.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  1851.   y++;
  1852.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  1853.   n++;
  1854.   y=0;
  1855.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  1856.   y++;
  1857.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  1858.  
  1859.   n=y=0;
  1860.   Cx+=5;
  1861.   Cy-=5;
  1862.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  1863.   y++;
  1864.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  1865.   y++;
  1866.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  1867.   y++;
  1868.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  1869.   n++;
  1870.   y=0;
  1871.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  1872.   y++;
  1873.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  1874.   y++;
  1875.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  1876.   y++;
  1877.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  1878.   n++;
  1879.   y=0;
  1880.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  1881.   y++;
  1882.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  1883.  
  1884. b /**Start Hry**/
  1885.  
  1886.   for (z=0;z!=75;z++) {
  1887.   n=y=0;
  1888.   AnimP²edm╪tAnimuj(SH1,Sx+(y*39),Sy+(n*29),-1);
  1889.   y++;
  1890.   AnimP²edm╪tAnimuj(SH2,Sx+(y*39),Sy+(n*29),-1);
  1891.   y++;
  1892.   AnimP²edm╪tAnimuj(SH3,Sx+(y*39),Sy+(n*29),-1);
  1893.   y++;
  1894.   AnimP²edm╪tAnimuj(SH4,Sx+(y*39),Sy+(n*29),-1);
  1895.   n++;
  1896.   y=0;
  1897.   AnimP²edm╪tAnimuj(SH5,Sx+(y*39),Sy+(n*29),-1);
  1898.   y++;
  1899.   AnimP²edm╪tAnimuj(SH6,Sx+(y*39),Sy+(n*29),-1);
  1900.   y++;
  1901.   AnimP²edm╪tAnimuj(SH7,Sx+(y*39),Sy+(n*29),-1);
  1902.   y++;
  1903.   AnimP²edm╪tAnimuj(SH8,Sx+(y*39),Sy+(n*29),-1);
  1904.   Sy-=3;
  1905.   if (Language == EN && z == 70) break;
  1906.   }
  1907. c /**Editor**/
  1908.   for (z=0;z!=42;z++) {
  1909.   n=y=0;
  1910.   AnimP²edm╪tAnimuj(E1,Ex+(y*39),Ey+(n*29),-1);
  1911.   y++;
  1912.   AnimP²edm╪tAnimuj(E2,Ex+(y*39),Ey+(n*29),-1);
  1913.   y++;
  1914.   AnimP²edm╪tAnimuj(E3,Ex+(y*39),Ey+(n*29),-1);
  1915.   n++;
  1916.   y=0;
  1917.   AnimP²edm╪tAnimuj(E4,Ex+(y*39),Ey+(n*29),-1);
  1918.   y++;
  1919.   AnimP²edm╪tAnimuj(E5,Ex+(y*39),Ey+(n*29),-1);
  1920.   y++;
  1921.   AnimP²edm╪tAnimuj(E6,Ex+(y*39),Ey+(n*29),-1);
  1922.   Ey-=4;
  1923.   }
  1924. d /**Konec**/
  1925.   for (z=0;z!=27;z++) {
  1926.   n=y=0;
  1927.   AnimP²edm╪tAnimuj(K1,Kx+(y*39),Ky+(n*29),0);
  1928.   y++;
  1929.   AnimP²edm╪tAnimuj(K2,Kx+(y*39),Ky+(n*29),0);
  1930.   y++;
  1931.   AnimP²edm╪tAnimuj(K3,Kx+(y*39),Ky+(n*29),0);
  1932.   n++;
  1933.   y=0;
  1934.   AnimP²edm╪tAnimuj(K4,Kx+(y*39),Ky+(n*29),0);
  1935.   y++;
  1936.   AnimP²edm╪tAnimuj(K5,Kx+(y*39),Ky+(n*29),0);
  1937.   y++;
  1938.   AnimP²edm╪tAnimuj(K6,Kx+(y*39),Ky+(n*29),0);
  1939.   Ky-=5;
  1940.   }
  1941. k /**konec**/
  1942.   MyτKonecObsluhy();
  1943.   m=Mx;
  1944.   if (Language == CZ) {
  1945.   for (z=0;z != 5;z++) {
  1946.   n=y=0;
  1947.   AnimP²edm╪tAnimuj(K1,Kx+(y*39),Ky+(n*29),z);
  1948.   y++;
  1949.   AnimP²edm╪tAnimuj(K2,Kx+(y*39),Ky+(n*29),z);
  1950.   y++;
  1951.   AnimP²edm╪tAnimuj(K3,Kx+(y*39),Ky+(n*29),z);
  1952.   n++;
  1953.   y=0;
  1954.   AnimP²edm╪tAnimuj(K4,Kx+(y*39),Ky+(n*29),z);
  1955.   y++;
  1956.   AnimP²edm╪tAnimuj(K5,Kx+(y*39),Ky+(n*29),z);
  1957.   y++;
  1958.   AnimP²edm╪tAnimuj(K6,Kx+(y*39),Ky+(n*29),z);
  1959.   ¼ekej(100);
  1960.   }
  1961.   }
  1962.  
  1963.   if (Language == CZ) z=4;
  1964.      else z=0;
  1965.   while (Ky < 290) {
  1966.   n=y=0;
  1967.   AnimP²edm╪tAnimuj(K1,Kx+(y*39),Ky+(n*29),z);
  1968.   y++;
  1969.   AnimP²edm╪tAnimuj(K2,Kx+(y*39),Ky+(n*29),z);
  1970.   y++;
  1971.   AnimP²edm╪tAnimuj(K3,Kx+(y*39),Ky+(n*29),z);
  1972.   n++;
  1973.   y=0;
  1974.   AnimP²edm╪tAnimuj(K4,Kx+(y*39),Ky+(n*29),z);
  1975.   y++;
  1976.   AnimP²edm╪tAnimuj(K5,Kx+(y*39),Ky+(n*29),z);
  1977.   y++;
  1978.   AnimP²edm╪tAnimuj(K6,Kx+(y*39),Ky+(n*29),z);
  1979.   Ky+=5;
  1980.   }
  1981.   AnimP²edm╪tZruτ(K1);
  1982.   AnimP²edm╪tZruτ(K2);
  1983.   AnimP²edm╪tZruτ(K3);
  1984.   AnimP²edm╪tZruτ(K4);
  1985.   AnimP²edm╪tZruτ(K5);
  1986.   AnimP²edm╪tZruτ(K6);
  1987.  
  1988.   while (Ey < 290) {
  1989.   n=y=0;
  1990.   AnimP²edm╪tAnimuj(E1,Ex+(y*39),Ey+(n*29),0);
  1991.   y++;
  1992.   AnimP²edm╪tAnimuj(E2,Ex+(y*39),Ey+(n*29),0);
  1993.   y++;
  1994.   AnimP²edm╪tAnimuj(E3,Ex+(y*39),Ey+(n*29),0);
  1995.   n++;
  1996.   y=0;
  1997.   AnimP²edm╪tAnimuj(E4,Ex+(y*39),Ey+(n*29),0);
  1998.   y++;
  1999.   AnimP²edm╪tAnimuj(E5,Ex+(y*39),Ey+(n*29),0);
  2000.   y++;
  2001.   AnimP²edm╪tAnimuj(E6,Ex+(y*39),Ey+(n*29),0);
  2002.   Ey+=6;
  2003.   }
  2004.   AnimP²edm╪tZruτ(E1);
  2005.   AnimP²edm╪tZruτ(E2);
  2006.   AnimP²edm╪tZruτ(E3);
  2007.   AnimP²edm╪tZruτ(E4);
  2008.   AnimP²edm╪tZruτ(E5);
  2009.   AnimP²edm╪tZruτ(E6);
  2010.  
  2011.   while (Sy < 290) {
  2012.   n=y=0;
  2013.   AnimP²edm╪tAnimuj(SH1,Sx+(y*39),Sy+(n*29),-1);
  2014.   y++;
  2015.   AnimP²edm╪tAnimuj(SH2,Sx+(y*39),Sy+(n*29),-1);
  2016.   y++;
  2017.   AnimP²edm╪tAnimuj(SH3,Sx+(y*39),Sy+(n*29),-1);
  2018.   y++;
  2019.   AnimP²edm╪tAnimuj(SH4,Sx+(y*39),Sy+(n*29),-1);
  2020.   n++;
  2021.   y=0;
  2022.   AnimP²edm╪tAnimuj(SH5,Sx+(y*39),Sy+(n*29),-1);
  2023.   y++;
  2024.   AnimP²edm╪tAnimuj(SH6,Sx+(y*39),Sy+(n*29),-1);
  2025.   y++;
  2026.   AnimP²edm╪tAnimuj(SH7,Sx+(y*39),Sy+(n*29),-1);
  2027.   y++;
  2028.   AnimP²edm╪tAnimuj(SH8,Sx+(y*39),Sy+(n*29),-1);
  2029.   Sy+=7;
  2030.   }
  2031.  
  2032.   AnimP²edm╪tZruτ(SH1);
  2033.   AnimP²edm╪tZruτ(SH2);
  2034.   AnimP²edm╪tZruτ(SH3);
  2035.   AnimP²edm╪tZruτ(SH4);
  2036.   AnimP²edm╪tZruτ(SH5);
  2037.   AnimP²edm╪tZruτ(SH6);
  2038.   AnimP²edm╪tZruτ(SH7);
  2039.   AnimP²edm╪tZruτ(SH8);
  2040.  
  2041.   while (Cy < 290) {
  2042.   n=y=0;
  2043.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  2044.   y++;
  2045.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  2046.   y++;
  2047.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  2048.   y++;
  2049.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  2050.   n++;
  2051.   y=0;
  2052.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  2053.   y++;
  2054.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  2055.   y++;
  2056.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  2057.   y++;
  2058.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  2059.   n++;
  2060.   y=0;
  2061.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  2062.   y++;
  2063.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  2064.   Cy+=8;
  2065.   }
  2066.  
  2067.   AnimP²edm╪tZruτ(CEL1);
  2068.   AnimP²edm╪tZruτ(CEL2);
  2069.   AnimP²edm╪tZruτ(CEL3);
  2070.   AnimP²edm╪tZruτ(CEL4);
  2071.   AnimP²edm╪tZruτ(CEL5);
  2072.   AnimP²edm╪tZruτ(CEL6);
  2073.   AnimP²edm╪tZruτ(CEL7);
  2074.   AnimP²edm╪tZruτ(CEL8);
  2075.   AnimP²edm╪tZruτ(CEL9);
  2076.   AnimP²edm╪tZruτ(CEL10);
  2077.  
  2078.   while (My < 290) {
  2079.         Mx=m;
  2080.         AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  2081.         My+=2;
  2082.   }
  2083.   AnimP²edm╪tZruτ(Myτ);
  2084.   Run="Konec";
  2085.   break;
  2086. Q /**Zruτ prostor**/
  2087.   if (Run == "Konec") ZruτProstor();
  2088.   else if (Run == "CityEn") {
  2089.        V∞b╪rPovolání();
  2090.        P²epniNaText();
  2091.        if (Povolání == "policajt") {
  2092.           if (Language == CZ) DOSProve╘("*\\city_e\\cityeng.exe CZE");
  2093.              else DOSProve╘("*\\city_e\\cityeng.exe ENG");
  2094.        }
  2095.        else if (Povolání == "zlod╪j") {
  2096.           if (Language == CZ) DOSProve╘("*\\city_e\\citythf.exe CZ");
  2097.              else DOSProve╘("*\\city_e\\citythf.exe EN");
  2098.        }
  2099.        P²epniNaBaltazara();
  2100.        /**Zobraz tabulku**/
  2101.        NaƒtiTabulku();
  2102.        Zapsat=1;
  2103.        GrNastavV∞stup(1);
  2104.        GrNaƒtiBMP(0,0,"*\\city.bmp",0,0,-1,-1,1);
  2105.        Tabulka();
  2106.        UloºTabulku();
  2107.        MyτZaƒátekObsluhy();
  2108.        MyτVyprázdniFrontuUdálostí();
  2109.        VyprázdniFrontuKláves();
  2110.        ¼ekej(NaKlávesu|NaMyτ);
  2111.        VyprázdniFrontuKláves();
  2112.        MyτVyprázdniFrontuUdálostí();
  2113.        MyτKonecObsluhy();
  2114.        /**Zobraz tabulku**/
  2115.  
  2116.        goto MainMenu;
  2117.   }
  2118.   else if (Run == "Editor") {
  2119.        ChooseEditor();
  2120.        P²epniNaText();
  2121.        if (Run == "Cared") DOSProve╘("*\\city_e\\cared.exe");
  2122.           else if (Run == "Leveled") DOSProve╘("*\\city_e\\leveled.exe");
  2123.        P²epniNaBaltazara();
  2124.        goto MainMenu;
  2125.   }
  2126. s /**start hry**/
  2127.   MyτKonecObsluhy();
  2128.   m=Mx;
  2129.  
  2130.   while (Sx > -140) {
  2131.   ¼ekejNaVR();
  2132.   n=y=0;
  2133.   AnimP²edm╪tAnimuj(SH1,Sx+(y*39),Sy+(n*29),-1);
  2134.   y++;
  2135.   AnimP²edm╪tAnimuj(SH2,Sx+(y*39),Sy+(n*29),-1);
  2136.   y++;
  2137.   AnimP²edm╪tAnimuj(SH3,Sx+(y*39),Sy+(n*29),-1);
  2138.   y++;
  2139.   AnimP²edm╪tAnimuj(SH4,Sx+(y*39),Sy+(n*29),-1);
  2140.   n++;
  2141.   y=0;
  2142.   AnimP²edm╪tAnimuj(SH5,Sx+(y*39),Sy+(n*29),-1);
  2143.   y++;
  2144.   AnimP²edm╪tAnimuj(SH6,Sx+(y*39),Sy+(n*29),-1);
  2145.   y++;
  2146.   AnimP²edm╪tAnimuj(SH7,Sx+(y*39),Sy+(n*29),-1);
  2147.   y++;
  2148.   AnimP²edm╪tAnimuj(SH8,Sx+(y*39),Sy+(n*29),-1);
  2149.   Sx-=5;
  2150.   }
  2151.  
  2152.   AnimP²edm╪tZruτ(SH1);
  2153.   AnimP²edm╪tZruτ(SH2);
  2154.   AnimP²edm╪tZruτ(SH3);
  2155.   AnimP²edm╪tZruτ(SH4);
  2156.   AnimP²edm╪tZruτ(SH5);
  2157.   AnimP²edm╪tZruτ(SH6);
  2158.   AnimP²edm╪tZruτ(SH7);
  2159.   AnimP²edm╪tZruτ(SH8);
  2160.  
  2161.   while (Ex < 585) {
  2162.   ¼ekejNaVR();
  2163.   n=y=0;
  2164.   AnimP²edm╪tAnimuj(E1,Ex+(y*39),Ey+(n*29),0);
  2165.   y++;
  2166.   AnimP²edm╪tAnimuj(E2,Ex+(y*39),Ey+(n*29),0);
  2167.   y++;
  2168.   AnimP²edm╪tAnimuj(E3,Ex+(y*39),Ey+(n*29),0);
  2169.   n++;
  2170.   y=0;
  2171.   AnimP²edm╪tAnimuj(E4,Ex+(y*39),Ey+(n*29),0);
  2172.   y++;
  2173.   AnimP²edm╪tAnimuj(E5,Ex+(y*39),Ey+(n*29),0);
  2174.   y++;
  2175.   AnimP²edm╪tAnimuj(E6,Ex+(y*39),Ey+(n*29),0);
  2176.   Ex+=6;
  2177.   }
  2178.   AnimP²edm╪tZruτ(E1);
  2179.   AnimP²edm╪tZruτ(E2);
  2180.   AnimP²edm╪tZruτ(E3);
  2181.   AnimP²edm╪tZruτ(E4);
  2182.   AnimP²edm╪tZruτ(E5);
  2183.   AnimP²edm╪tZruτ(E6);
  2184.  
  2185.   while (Kx > 0) {
  2186.   ¼ekejNaVR();
  2187.   n=y=0;
  2188.   AnimP²edm╪tAnimuj(K1,Kx+(y*39),Ky+(n*29),0);
  2189.   y++;
  2190.   AnimP²edm╪tAnimuj(K2,Kx+(y*39),Ky+(n*29),0);
  2191.   y++;
  2192.   AnimP²edm╪tAnimuj(K3,Kx+(y*39),Ky+(n*29),0);
  2193.   n++;
  2194.   y=0;
  2195.   AnimP²edm╪tAnimuj(K4,Kx+(y*39),Ky+(n*29),0);
  2196.   y++;
  2197.   AnimP²edm╪tAnimuj(K5,Kx+(y*39),Ky+(n*29),0);
  2198.   y++;
  2199.   AnimP²edm╪tAnimuj(K6,Kx+(y*39),Ky+(n*29),0);
  2200.   Kx-=7;
  2201.   }
  2202.   AnimP²edm╪tZruτ(K1);
  2203.   AnimP²edm╪tZruτ(K2);
  2204.   AnimP²edm╪tZruτ(K3);
  2205.   AnimP²edm╪tZruτ(K4);
  2206.   AnimP²edm╪tZruτ(K5);
  2207.   AnimP²edm╪tZruτ(K6);
  2208.  
  2209.   while (Cy > 0) {
  2210.   ¼ekejNaVR();
  2211.   n=y=0;
  2212.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  2213.   y++;
  2214.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  2215.   y++;
  2216.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  2217.   y++;
  2218.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  2219.   n++;
  2220.   y=0;
  2221.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  2222.   y++;
  2223.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  2224.   y++;
  2225.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  2226.   y++;
  2227.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  2228.   n++;
  2229.   y=0;
  2230.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  2231.   y++;
  2232.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  2233.   Cy-=1;
  2234.   }
  2235.  
  2236.   AnimP²edm╪tZruτ(CEL1);
  2237.   AnimP²edm╪tZruτ(CEL2);
  2238.   AnimP²edm╪tZruτ(CEL3);
  2239.   AnimP²edm╪tZruτ(CEL4);
  2240.   AnimP²edm╪tZruτ(CEL5);
  2241.   AnimP²edm╪tZruτ(CEL6);
  2242.   AnimP²edm╪tZruτ(CEL7);
  2243.   AnimP²edm╪tZruτ(CEL8);
  2244.   AnimP²edm╪tZruτ(CEL9);
  2245.   AnimP²edm╪tZruτ(CEL10);
  2246.  
  2247.   while (My > 0) {
  2248.         Mx=m;
  2249.         AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  2250.         My-=1;
  2251.   }
  2252.   AnimP²edm╪tZruτ(Myτ);
  2253.   Run="CityEn";
  2254.   break;
  2255. E /**editor**/
  2256.   MyτKonecObsluhy();
  2257.   m=Mx;
  2258.  
  2259.   while (Ex < 585) {
  2260.   ¼ekejNaVR();
  2261.   n=y=0;
  2262.   AnimP²edm╪tAnimuj(E1,Ex+(y*39),Ey+(n*29),0);
  2263.   y++;
  2264.   AnimP²edm╪tAnimuj(E2,Ex+(y*39),Ey+(n*29),0);
  2265.   y++;
  2266.   AnimP²edm╪tAnimuj(E3,Ex+(y*39),Ey+(n*29),0);
  2267.   n++;
  2268.   y=0;
  2269.   AnimP²edm╪tAnimuj(E4,Ex+(y*39),Ey+(n*29),0);
  2270.   y++;
  2271.   AnimP²edm╪tAnimuj(E5,Ex+(y*39),Ey+(n*29),0);
  2272.   y++;
  2273.   AnimP²edm╪tAnimuj(E6,Ex+(y*39),Ey+(n*29),0);
  2274.   Ex+=6;
  2275.   }
  2276.   AnimP²edm╪tZruτ(E1);
  2277.   AnimP²edm╪tZruτ(E2);
  2278.   AnimP²edm╪tZruτ(E3);
  2279.   AnimP²edm╪tZruτ(E4);
  2280.   AnimP²edm╪tZruτ(E5);
  2281.   AnimP²edm╪tZruτ(E6);
  2282.   while (Sx > -140) {
  2283.   ¼ekejNaVR();
  2284.   n=y=0;
  2285.   AnimP²edm╪tAnimuj(SH1,Sx+(y*39),Sy+(n*29),-1);
  2286.   y++;
  2287.   AnimP²edm╪tAnimuj(SH2,Sx+(y*39),Sy+(n*29),-1);
  2288.   y++;
  2289.   AnimP²edm╪tAnimuj(SH3,Sx+(y*39),Sy+(n*29),-1);
  2290.   y++;
  2291.   AnimP²edm╪tAnimuj(SH4,Sx+(y*39),Sy+(n*29),-1);
  2292.   n++;
  2293.   y=0;
  2294.   AnimP²edm╪tAnimuj(SH5,Sx+(y*39),Sy+(n*29),-1);
  2295.   y++;
  2296.   AnimP²edm╪tAnimuj(SH6,Sx+(y*39),Sy+(n*29),-1);
  2297.   y++;
  2298.   AnimP²edm╪tAnimuj(SH7,Sx+(y*39),Sy+(n*29),-1);
  2299.   y++;
  2300.   AnimP²edm╪tAnimuj(SH8,Sx+(y*39),Sy+(n*29),-1);
  2301.   Sx-=5;
  2302.   }
  2303.  
  2304.   AnimP²edm╪tZruτ(SH1);
  2305.   AnimP²edm╪tZruτ(SH2);
  2306.   AnimP²edm╪tZruτ(SH3);
  2307.   AnimP²edm╪tZruτ(SH4);
  2308.   AnimP²edm╪tZruτ(SH5);
  2309.   AnimP²edm╪tZruτ(SH6);
  2310.   AnimP²edm╪tZruτ(SH7);
  2311.   AnimP²edm╪tZruτ(SH8);
  2312.  
  2313.   while (Kx < 585) {
  2314.   ¼ekejNaVR();
  2315.   n=y=0;
  2316.   AnimP²edm╪tAnimuj(K1,Kx+(y*39),Ky+(n*29),0);
  2317.   y++;
  2318.   AnimP²edm╪tAnimuj(K2,Kx+(y*39),Ky+(n*29),0);
  2319.   y++;
  2320.   AnimP²edm╪tAnimuj(K3,Kx+(y*39),Ky+(n*29),0);
  2321.   n++;
  2322.   y=0;
  2323.   AnimP²edm╪tAnimuj(K4,Kx+(y*39),Ky+(n*29),0);
  2324.   y++;
  2325.   AnimP²edm╪tAnimuj(K5,Kx+(y*39),Ky+(n*29),0);
  2326.   y++;
  2327.   AnimP²edm╪tAnimuj(K6,Kx+(y*39),Ky+(n*29),0);
  2328.   Kx+=7;
  2329.   }
  2330.   AnimP²edm╪tZruτ(K1);
  2331.   AnimP²edm╪tZruτ(K2);
  2332.   AnimP²edm╪tZruτ(K3);
  2333.   AnimP²edm╪tZruτ(K4);
  2334.   AnimP²edm╪tZruτ(K5);
  2335.   AnimP²edm╪tZruτ(K6);
  2336.  
  2337.   while (Cy > 0) {
  2338.   ¼ekejNaVR();
  2339.   n=y=0;
  2340.   AnimP²edm╪tAnimuj(CEL1,Cx+(y*39),Cy+(n*29),-1);
  2341.   y++;
  2342.   AnimP²edm╪tAnimuj(CEL2,Cx+(y*39),Cy+(n*29),-1);
  2343.   y++;
  2344.   AnimP²edm╪tAnimuj(CEL3,Cx+(y*39),Cy+(n*29),-1);
  2345.   y++;
  2346.   AnimP²edm╪tAnimuj(CEL4,Cx+(y*39),Cy+(n*29),-1);
  2347.   n++;
  2348.   y=0;
  2349.   AnimP²edm╪tAnimuj(CEL5,Cx+(y*39),Cy+(n*29),-1);
  2350.   y++;
  2351.   AnimP²edm╪tAnimuj(CEL6,Cx+(y*39),Cy+(n*29),-1);
  2352.   y++;
  2353.   AnimP²edm╪tAnimuj(CEL7,Cx+(y*39),Cy+(n*29),-1);
  2354.   y++;
  2355.   AnimP²edm╪tAnimuj(CEL8,Cx+(y*39),Cy+(n*29),-1);
  2356.   n++;
  2357.   y=0;
  2358.   AnimP²edm╪tAnimuj(CEL9,Cx+(y*39),Cy+(n*29),-1);
  2359.   y++;
  2360.   AnimP²edm╪tAnimuj(CEL10,Cx+(y*39),Cy+(n*29),-1);
  2361.   Cy-=1;
  2362.   }
  2363.  
  2364.   AnimP²edm╪tZruτ(CEL1);
  2365.   AnimP²edm╪tZruτ(CEL2);
  2366.   AnimP²edm╪tZruτ(CEL3);
  2367.   AnimP²edm╪tZruτ(CEL4);
  2368.   AnimP²edm╪tZruτ(CEL5);
  2369.   AnimP²edm╪tZruτ(CEL6);
  2370.   AnimP²edm╪tZruτ(CEL7);
  2371.   AnimP²edm╪tZruτ(CEL8);
  2372.   AnimP²edm╪tZruτ(CEL9);
  2373.   AnimP²edm╪tZruτ(CEL10);
  2374.  
  2375.   while (My > 0) {
  2376.         Mx=m;
  2377.         AnimP²edm╪tAnimuj(Myτ,Mx,My,-1);
  2378.         My-=1;
  2379.   }
  2380.   AnimP²edm╪tZruτ(Myτ);
  2381.   Run="Editor";
  2382.   break;
  2383. z /**zruτ framy**/
  2384.   AnimP²edm╪tZruτ(T5pol);
  2385.   AnimP²edm╪tZruτ(Frame0.Anim1);
  2386.   AnimP²edm╪tZruτ(Frame0.Anim2);
  2387.   AnimP²edm╪tZruτ(Frame0.Anim3);
  2388.   AnimP²edm╪tZruτ(Frame0.Anim4);
  2389.   AnimP²edm╪tZruτ(Frame0.Anim5);
  2390.   AnimP²edm╪tZruτ(Frame0.Anim6);
  2391.   AnimP²edm╪tZruτ(Frame0.Anim7);
  2392.   AnimP²edm╪tZruτ(Frame0.Anim8);
  2393.   AnimP²edm╪tZruτ(Frame0.Anim9);
  2394.   AnimP²edm╪tZruτ(Frame0.Anim10);
  2395.   AnimP²edm╪tZruτ(Frame0.Anim11);
  2396.   AnimP²edm╪tZruτ(Frame0.Anim12);
  2397.   AnimP²edm╪tZruτ(Frame0.Anim13);
  2398.   AnimP²edm╪tZruτ(Frame0.Anim14);
  2399.   AnimP²edm╪tZruτ(Frame0.Anim15);
  2400.   AnimP²edm╪tZruτ(Frame0.Anim16);
  2401.   AnimP²edm╪tZruτ(Frame0.Anim17);
  2402.   AnimP²edm╪tZruτ(Frame0.Anim18);
  2403.   AnimP²edm╪tZruτ(Frame0.Anim19);
  2404.   AnimP²edm╪tZruτ(Frame0.Anim20);
  2405.  
  2406.   AnimP²edm╪tZruτ(Frame1.Anim1);
  2407.   AnimP²edm╪tZruτ(Frame1.Anim2);
  2408.   AnimP²edm╪tZruτ(Frame1.Anim3);
  2409.   AnimP²edm╪tZruτ(Frame1.Anim4);
  2410.   AnimP²edm╪tZruτ(Frame1.Anim5);
  2411.   AnimP²edm╪tZruτ(Frame1.Anim6);
  2412.   AnimP²edm╪tZruτ(Frame1.Anim7);
  2413.   AnimP²edm╪tZruτ(Frame1.Anim8);
  2414.   AnimP²edm╪tZruτ(Frame1.Anim9);
  2415.   AnimP²edm╪tZruτ(Frame1.Anim10);
  2416.   AnimP²edm╪tZruτ(Frame1.Anim11);
  2417.   AnimP²edm╪tZruτ(Frame1.Anim12);
  2418.   AnimP²edm╪tZruτ(Frame1.Anim13);
  2419.   AnimP²edm╪tZruτ(Frame1.Anim14);
  2420.   AnimP²edm╪tZruτ(Frame1.Anim15);
  2421.   AnimP²edm╪tZruτ(Frame1.Anim16);
  2422.   AnimP²edm╪tZruτ(Frame1.Anim17);
  2423.   AnimP²edm╪tZruτ(Frame1.Anim18);
  2424.   AnimP²edm╪tZruτ(Frame1.Anim19);
  2425.   AnimP²edm╪tZruτ(Frame1.Anim20);
  2426.  
  2427. t /**zobraz tabulku nejlepτích hráƒà**/
  2428.   AnimP²edm╪tZruτ(Myτ);
  2429.   AnimP²edm╪tZruτ(K1);
  2430.   AnimP²edm╪tZruτ(K2);
  2431.   AnimP²edm╪tZruτ(K3);
  2432.   AnimP²edm╪tZruτ(K4);
  2433.   AnimP²edm╪tZruτ(K5);
  2434.   AnimP²edm╪tZruτ(K6);
  2435.   AnimP²edm╪tZruτ(E1);
  2436.   AnimP²edm╪tZruτ(E2);
  2437.   AnimP²edm╪tZruτ(E3);
  2438.   AnimP²edm╪tZruτ(E4);
  2439.   AnimP²edm╪tZruτ(E5);
  2440.   AnimP²edm╪tZruτ(E6);
  2441.   AnimP²edm╪tZruτ(SH1);
  2442.   AnimP²edm╪tZruτ(SH2);
  2443.   AnimP²edm╪tZruτ(SH3);
  2444.   AnimP²edm╪tZruτ(SH4);
  2445.   AnimP²edm╪tZruτ(SH5);
  2446.   AnimP²edm╪tZruτ(SH6);
  2447.   AnimP²edm╪tZruτ(SH7);
  2448.   AnimP²edm╪tZruτ(SH8);
  2449.   AnimP²edm╪tZruτ(CEL1);
  2450.   AnimP²edm╪tZruτ(CEL2);
  2451.   AnimP²edm╪tZruτ(CEL3);
  2452.   AnimP²edm╪tZruτ(CEL4);
  2453.   AnimP²edm╪tZruτ(CEL5);
  2454.   AnimP²edm╪tZruτ(CEL6);
  2455.   AnimP²edm╪tZruτ(CEL7);
  2456.   AnimP²edm╪tZruτ(CEL8);
  2457.   AnimP²edm╪tZruτ(CEL9);
  2458.   AnimP²edm╪tZruτ(CEL10);
  2459.  
  2460.  
  2461.  
  2462.   GrNaƒtiBMP(0,0,"*\\city.bmp",0,0,-1,-1,1);
  2463.   NaƒtiTabulku();
  2464.   Zapsat=0;
  2465.   Tabulka();
  2466.   MyτVyprázdniFrontuUdálostí();
  2467.   ¼ekej(NaKlávesu|NaMyτ);
  2468.   VyprázdniFrontuKláves();
  2469.   MyτVyprázdniFrontuUdálostí();
  2470.   MyτKonecObsluhy();
  2471. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2472. /l MyτUdálost.Typ == MyτUdálostLevéTlDolà
  2473. /K AnimP²edm╪tKolidujeS(Myτ,K1) || AnimP²edm╪tKolidujeS(Myτ,K2) ||
  2474.    AnimP²edm╪tKolidujeS(Myτ,K3) || AnimP²edm╪tKolidujeS(Myτ,K4) ||
  2475.    AnimP²edm╪tKolidujeS(Myτ,K5) || AnimP²edm╪tKolidujeS(Myτ,K6)
  2476. /E AnimP²edm╪tKolidujeS(Myτ,E1) || AnimP²edm╪tKolidujeS(Myτ,E2) ||
  2477.    AnimP²edm╪tKolidujeS(Myτ,E3) || AnimP²edm╪tKolidujeS(Myτ,E4) ||
  2478.    AnimP²edm╪tKolidujeS(Myτ,E5) || AnimP²edm╪tKolidujeS(Myτ,E6)
  2479. /S AnimP²edm╪tKolidujeS(Myτ,SH1) || AnimP²edm╪tKolidujeS(Myτ,SH2) ||
  2480.    AnimP²edm╪tKolidujeS(Myτ,SH3) || AnimP²edm╪tKolidujeS(Myτ,SH4) ||
  2481.    AnimP²edm╪tKolidujeS(Myτ,SH5) || AnimP²edm╪tKolidujeS(Myτ,SH6) ||
  2482.    AnimP²edm╪tKolidujeS(Myτ,SH7) || AnimP²edm╪tKolidujeS(Myτ,SH8)
  2483. /T AnimP²edm╪tKolidujeS(Myτ,T5pol)
  2484. =SP---------------------------------------------------------------------------
  2485.  
  2486. // Konec souboru
  2487.