LGF05 LA 1 slovakTX 1 ; language: "slovak" name: "G:\draha.IMP" version: "2.0.0.420" date: 27.10.2010 12:38:39 .setSaveOptions [pozadieStrnok pozadiePapierov] .new. "Strnka [132 Strnka1 5 [796 499] 8 || 9 no 178 nie 176 [] 39 biela 35 biela 36 10 37 [] 123 0 34 [398 249] 61 [] [[1 9]] #1'.new. "Korytnaka [132 k1 1 [98 249] 8 || 10 no 64 nie 178 nie 176 [] 40 90 41 [[0 0] 0] 44 ierna 45 0 46 pd 47 ierna 48 1 49 0 50 dokola 51 [] 52 7 53 [] 54 1 55 [] 56 no 57 [[System] [0 400 0 0 0 1]] 58 nie 63 1 65 nie 120 nie 131 [] 155 1 #1'.new. "Text [132 text1 1 [668 185] 5 [80 28] 8 || 10 no 9 no 178 nie 176 [] 13 [[Times New Roman] [18 700 0 0 0 238]] 15 biela 12 |{\rtf1\ansi\ansicpg1250\deff0\deflang1051{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}{\f1\fnil\fcharset238{\*\fname Times New Roman;}Times New Roman CE;}}\viewkind4\uc1\pard\lang1033\b\f0\fs36 CIE\f1\'bc\lang1051\f0\par}|\0 14 ierna 16 nie 17 nie 18 nie 124 [4 0] 125 || 153 no 180 no 181 nie #1'.new. "Text [132 text2 1 [61 185] 5 [80 27] 8 || 10 no 9 no 178 nie 176 [] 13 [[Times New Roman] [18 700 0 0 0 238]] 15 biela 12 |{\rtf1\ansi\ansicpg1250\deff0\deflang1051{\fonttbl{\f0\fnil\fcharset238{\*\fname Times New Roman;}Times New Roman CE;}{\f1\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\b\f0\fs36\'8aTART\f1\par}|\0 14 ierna 16 nie 17 nie 18 nie 124 [5 0] 125 || 153 no 180 no 181 nie #1'.new. "Tlaidlo [132 t1 1 [51 47] 5 [100 28] 8 || 10 no 9 no 178 nie 176 [] 60 nie 26 nie 24 nie 23 0 21 |Vytvor nov trasu| 28 [] 25 no 27 0 179 no 133 nie 134 no udalos'priZapnut trasuj .setState. [ 8 || 178 nie 176 [] 19 Strnka1 175 no 177 no 66 2 174 no 182 ajPV 183 no 184 nie definuj'body |viem body zmaz start ph nechFp "cervena urob "zasobnikBodov [] urobTu "kresli 1 kym [zaroven xSur < 300 :kresli = 1] [ urobTu "draha 50 + nahodne 100 opakuj :draha [ ak2 xSur > 270 [ urobTu "kresli 0 ] [ do 1 ] ] ak :kresli = 1 [ bod 1 ] urob "zasobnikBodov vlozPo :draha :zasobnikBodov ] urobTu "pomocnyZasobnik bezPo :zasobnikBodov urobTu "sucetPrvkov 0 kym [nieJe prazdny? :pomocnyZasobnik] [ urobTu "sucetPrvkov (:sucetPrvkov + prvy :pomocnyZasobnik) urobTu "pomocnyZasobnik bezPr :pomocnyZasobnik ] urobTu "posledny 600 - :sucetPrvkov urob "zasobnikBodov bezPo :zasobnikBodov urob "zasobnikBodov vlozPo :posledny :zasobnikBodov start pdkoniec| definuj'start |viem start domov ph vl 90 do 300 vp 180 pdkoniec| definuj'ciel |viem ciel domov nechHp 5 nechFp "cervena vp 90 ph nechxSur 300 pd vl 90 do 10 vz 20 start nechHp 1 nechFp "ciernakoniec| definuj'prekazky |viem prekazky urob "ok 0 kym [:ok = 0] [ start nechFp "modra urob "zasobnikPrekazok [] urobTu "kopiaZasobnik [] urobTu "kopiaZasobnik :zasobnikBodov kym [pocet :kopiaZasobnik > 1] [ ph do prvy :kopiaZasobnik vl 90 urobTu "vyska 600 urobTu "pomocnyZasobnik bezPr :kopiaZasobnik kym [alebo :vyska > prvy :kopiaZasobnik :vyska > prvy :pomocnyZasobnik] [ urobTu "vyska 20 + nahodne 30 ] pd urob "zasobnikPrekazok vlozPo :vyska :zasobnikPrekazok do :vyska vz :vyska vp 90 urobTu "kopiaZasobnik bezPr :kopiaZasobnik ] testuj ak :ok = 0 [ zmazPrekazky ] ] nechFp "ciernakoniec| definuj'testuj |viem testuj urob "ok 0 urobTu "pomocnyZasobnik [] urobTu "pomocnyZasobnik :zasobnikBodov urobTu "pomocnyZasobnik bezPr :pomocnyZasobnik urobTu "pomocnyZasobnik bezPo :pomocnyZasobnik urobTu "prvyZasobnik [] urobTu "prvyZasobnik :zasobnikPrekazok urobTu "druhyZasobnik [] urobTu "druhyZasobnik bezPr :prvyZasobnik urobTu "vysledok 0 kym [nieJe prazdny? :druhyZasobnik] [ urobTu "p prvy :prvyZasobnik urobTu "r prvy :druhyZasobnik urobTu "s prvy :pomocnyZasobnik ak :s > :p + :r [ urobTu "vysledok :vysledok + 1 ] urobTu "prvyZasobnik :druhyZasobnik urobTu "druhyZasobnik bezPr :prvyZasobnik urobTu "pomocnyZasobnik bezPr :pomocnyZasobnik ] urobTu "ocakavane pocet :zasobnikBodov urobTu "ocakavane :ocakavane - 2 ak :vysledok = :ocakavane [ urob "ok 1 ]koniec| definuj'zmazPrekazky |viem zmazPrekazky urobTu "body [] urobTu "body :zasobnikBodov urobTu "prekazky [] urobTu "prekazky :zasobnikPrekazok urobTu "kolko pocet :prekazky nechFp "biela start opakuj :kolko [ do prvy :body vl 90 do 1 pd do prvy :prekazky ph vz prvy :prekazky vz 1 vp 90 urobTu "body bezPr :body urobTu "prekazky bezPr :prekazky ] koniec| definuj'poupratuj |viem poupratuj zrus ":zasobnikBodov zrus ":zasobnikPrekazok zrus ":ok koniec| definuj'trasuj |viem trasuj start body prekazky ciel poupratuj koniec| #1'nechktoNaStrnke "#2 zmeVekosOknaTlaidiel [871 340 153 352 [Okno tlaidiel]] IMZ11 0/ x1nT1 hR T4"D *%[bGoMfpvՂOWG[Ӿ^w_on}|;}=>~z~O^mN?~><~"@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ XY` @ S .TUY6 ;} @` w)` @T @ )ܩ(M @ S-^@'@ p6A ,.Nxm Bj2 ;} @` w)`/[7C4X<_4#@ Cx B"* ֫6pd(