home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / SGP / Baltazar / CARUJ.SGP < prev    next >
Text File  |  1999-01-12  |  8KB  |  203 lines
  1. SGPC   5.00 S#000000 11.05.1997 10:29:58                                        StructNo 1   1
  2. # include <sgpbalt.h>
  3.  
  4. /***** Globalni promenne *****/
  5.  
  6. /***** Globalni makra *****/
  7. -o1-Globals
  8. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  9.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  10.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  11.  
  12.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  13.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  14.   ;prom╪nná znak:   Znak;
  15.             char    Znak;
  16.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  17.             string  ⁿet╪zec;
  18. [ Vytvo²Prostor()
  19. ] ZruτProstor()
  20. a Klávesa= ¼tiKlávesuZFronty()
  21. b P²epniNaBaltazara()
  22. c ¼aruj(¼tverec)
  23. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  24. e BezObláƒku()
  25. f VyprázdniFrontuKláves()
  26. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  27. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  28. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  29. j GrPiτZnak(Znak)
  30. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  31. l VlevoVbok()
  32. m ;vypiτ ⁿet╪zec do grafického okénka
  33.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  34.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  35.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  36. n Neviditeln∞()
  37. o SObláƒkem()
  38. p Popojdi(1)
  39. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  40. r VpravoVbok()
  41. t P²epniNaText()
  42. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  43. v Viditeln∞()
  44. w ;ƒekej na klávesu, smaº klávesu
  45.    ¼ekejNaKlávesu();
  46.    VyprázdniFrontuKláves();
  47. z ;ƒelem vzad
  48.    VlevoVbok(); VlevoVbok()
  49. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  50. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  51. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.s00" */
  52. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  53. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  54. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  55. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.s00" */
  56. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  57. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  58. -c1-Globals
  59. ?n ;p²edm╪t p²ed Baltazarem je nepràchodn∞
  60.     PràchodnostP²edm╪tuP²edB() Je 0
  61. ?p ;p²edm╪t p²ed Baltazarem je pràchodn∞
  62.     PràchodnostP²edm╪tuP²edB() Je 1
  63. ?B ;barva ƒtverce p²ed Baltazarem ....     /B:Je~Barva    0-15
  64.     Barva¼tverceP²edB()
  65. ?P ;p²edm╪t p²ed Baltazarem ....           /P:<=P²edm╪t   1-150
  66.     P²edm╪tP²edB()
  67. ?S ;sm╪r Baltazara ....                    /S:Není~4      1-4
  68.     Sm╪rBaltazara()
  69. ?A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  70.     OdDoKrok
  71. ?D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  72.     OdDolàDoKrok
  73. ?M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  74.     DolàDo0
  75. ?N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  76.     Od0
  77. ===Globals
  78. /*-hf(*/
  79. /*-hf-*/
  80. void HlavníMenu( void )
  81. /*-hf-*/;
  82. void main( void )
  83. /*-hf)*/;
  84. ;-h---------------------------------------------------------------------------
  85. void HlavníMenu( void )
  86. -s--HlavníMenu                                                                  ■   4  -2 -26 259
  87. HlavníMenu
  88.    1!
  89. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  90. 1 ;vypíτe hlavní menu
  91.    GrNastavBarvuPozadí(Modrá);
  92.    GrSmaºOkno();
  93.    GrNastavText(GrTextBezPozadí);
  94.    GrNastavPozici(0,2);
  95.    GrNastavBarvuPop²edí(¼ervená);
  96.    GrPiτⁿet╪zec("  L             P        V      N      B");
  97.    GrNastavPozici(0,2);
  98.    GrNastavBarvuPop²edí(Bílá);
  99.    GrPiτⁿet╪zec(" v evo  vbok     opojdi   yber   aƒti   altedit");
  100.    GrNastavPozici(0,12);
  101.    GrNastavBarvuPop²edí(¼ervená);
  102.    GrPiτⁿet╪zec("   R            S        ¼      U      K");
  103.    GrNastavPozici(0,12);
  104.    GrNastavBarvuPop²edí(Bílá);
  105.    GrPiτⁿet╪zec(" vp avo vbok     maº      aruj   loº    onec");
  106. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  107. =SP---------------------------------------------------------------------------
  108.  
  109. ;-h---------------------------------------------------------------------------
  110. void main( void )
  111. -s--Program                                                                     ■   2  -2  -2 259
  112.                          _________¼aruj_________
  113.                       Zaƒátek    Klávesy     Konec
  114.                    10[9v4!        fk!          !]2
  115.                                     *1
  116.                                  Klávesa
  117.                                     !fk
  118.    ___________________________Jaká~klávesa?_____________________________
  119.    /1     /2    /3     /4    /5     /6      /7    /8             /9    /
  120. Popojdi Vlevo Vpravo ¼aruj Vyber Baltedit Naƒti  Uloº           Smaº  Jiná
  121.   p!     vbok  vbok   5!    3!9    6!9    scénu scénu       B:(0)!
  122.          l!    r!                          7!9   8!9  C:(¼tverec)!
  123. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  124. [ Vytvo²Prostor();
  125. ] ZruτProstor();
  126. 0 ;lokální prom╪nné
  127.    int        Klávesa;
  128.    TypP²edm╪t P²edm╪t=1;
  129.    string     JménoScény="";
  130.    int        ¼ísloScény= 0;
  131. 1 EscPlus();
  132. 2 EscMínus();
  133. 3 ;vyber p²edm╪t
  134.    GrSmaºOkno(); //GrPiτL¼íslo(GrV∞τkaOkna/2,-1);
  135.    GrNastavPozici(130,7);
  136.    GrPiτⁿet╪zec("V∞b╪r p²edm╪tu");
  137.    { int n;
  138.      n=VyberP²edm╪t(Nepravdiv∞);
  139.      if ( n Není 0 ) {
  140.        P²edm╪t=n;
  141.        ¼aruj(P²edm╪t);
  142.        }
  143.      else {
  144.        }
  145.    }
  146. 4 RychlostBaltazara(5);
  147. 5 ¼aruj(P²edm╪t);
  148. 6 Baltedit()
  149. 7 ;naƒíst scénu
  150.    GrNastavBarvuPozadí(Sv╪tloτedá);
  151.    GrSmaºOkno();
  152.    GrNastavPozici(20,8);
  153.    GrNastavBarvuPop²edí(¼erná);
  154.    do {
  155.      if ( Gr¼tiI¼íslo("Naƒíst scénu ƒíslo: ",¼ísloScény,2,0,0x3f) )
  156.        goto ZruτitNaƒtení;
  157.      } while ( Neplatí (¼ísloScény JeV╪tτíNeboRovno  0 ASouƒasn╪
  158.                         ¼ísloScény JeMenτíNeboRovno 99) );
  159.    JménoScény= "caruj.s"+(¼ísloScény<10?"0":"")+StrL¼íslo(¼ísloScény,-1);
  160.    NaƒtiScénu(JménoScény);
  161.   ZruτitNaƒtení: ;
  162. 8 ;uloºit scénu
  163.    GrNastavBarvuPozadí(Sv╪tloτedá);
  164.    GrSmaºOkno();
  165.    GrNastavPozici(20,8);
  166.    GrNastavBarvuPop²edí(¼erná);
  167.    do {
  168.      if ( Gr¼tiI¼íslo("Uloºit scénu ƒíslo: ",¼ísloScény,2,1,0x3f) )
  169.        goto ZruτitUloºení;
  170.      } while ( Neplatí (¼ísloScény JeV╪tτíNeboRovno  0 ASouƒasn╪
  171.                         ¼ísloScény JeMenτíNeboRovno 99) );
  172.    JménoScény= "caruj.s"+(¼ísloScény<10?"0":"")+StrL¼íslo(¼ísloScény,-1);
  173.    UloºScénu(JménoScény);
  174.   ZruτitUloºení: ;
  175. 9 HlavníMenu()
  176. f VyprázdniFrontuKláves()
  177. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  178. l VlevoVbok()
  179. p Popojdi(1)
  180. r VpravoVbok()
  181. v Viditeln∞();
  182. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.s00" */
  183. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.s00" */
  184. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  185. a Klávesa= ¼tiKlávesuZFronty()
  186. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  187. j GrPiτZnak(Znak)
  188. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  189. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  190. /1 Klávesa Je 'p' Nebo Klávesa Je 'P'
  191. /2 Klávesa Je 'l' Nebo Klávesa Je 'L'
  192. /3 Klávesa Je 'r' Nebo Klávesa Je 'R'
  193. /4 Klávesa Je 'c' Nebo Klávesa Je 'C' Nebo Klávesa Je ' '
  194. /5 Klávesa Je 'v' Nebo Klávesa Je 'V'
  195. /6 Klávesa Je 'b' Nebo Klávesa Je 'B'
  196. /7 Klávesa Je 'n' Nebo Klávesa Je 'N'
  197. /8 Klávesa Je 'u' Nebo Klávesa Je 'U'
  198. /9 Klávesa Je 's' Nebo Klávesa Je 'S'
  199. *1 Klávesa Není 'k' ASouƒasn╪  Klávesa Není 'K'
  200. =SP---------------------------------------------------------------------------
  201.  
  202. /***** Konec souboru *****/
  203.