5f? p"6,-+<. BM6 6( BM>( F Dedukova zhradkah zobraz showspeedbarddopredunlocal"swimake"swi0ask"dedkorepeat:nif:swi=0ifheading=270ifxcor>-60 myfdmake"swi1fd0ifheading=90ifxcor<280 myfdmake"swi1fd0ifheading=180ifycor>-70 myfdmake"swi1fd0ifheading=0ifycor<190 myfdmake"swi1fd0if:swi=1prsprava5"fd0fd0setshape:dedko@dkoniecmake"stav1make"jablka0+dodtrhnialocalcisjabask"dedkomake"cishladaj_s:a1if:cis>0make"jabhladaj_j:cisif:jab=0prsprava8"make"jablka:jablka-1erturtle(word"s:cis"j:jab)prsprava6"_dopakujabcrepeat:avykonaj:b:cdstartmake "miestnost0make"jablka0dznovumake "miestnost :miestnost-1make"jablka0heslo_nspravalocal"rockmake"rockcase:sprava0 Nesprvneheslo.1Vesininezadal!2Nezadalsikorktneslolevela!3Takzhradkanieje prstupn!4Vesinezadalheslo!( messagebox:rock Dedukovazhradka)throw"nehesloGheslo_uzahradkamake "miestnost :zahradkamake"jablka0Rheslo_zcatch"neheslolocal"vstuplocal"cislomake"vstup(rldNapsemheslokalejzhradkeajejslo(sloprv).aliazhradka-32768-32768-32768-327680701515)ifempty?:vstupheslo_n1ifnotnumber?(first:vstup)heslo_n2if(first:vstup)>31heslo_n3ifcount:vstup<2heslo_n4ifcount:vstup>2heslo_n0make"cislofirst:vstupif(word"s:cislo)<>(last:vstup)heslo_n0dec"cisloheslo_u:cislohladaj_jalocal"kmake"k0repeat7ifmember?(word"s:a"jrepc)allmake"krepcfd0op:khladaj_sabifempty?:aop0fd0localxxyymake"xxfirstfirst:amake"yyfirstbffirst:aif(and(xcor-:xx<=58)(xcor-:xx>=-25) (ycor-:yy<=45)(ycor-:yy>=-55))op:bophladaj_sbf:a:b+1rhraerturtleallcsmake "miestnost :miestnost+1if :miestnost>pocmiesmake"stav2stophraj :miestnostif:stav=0hrahhrajmlocal"menomake"menoword"data:mmake"menothing:meno obrazovka:mmake"jablkakresli_m:meno maketurtle"dedko-60-3090pust:dedkoprikazyfirst:menobf:menoif:jablka<>0prsprava9"dznovuj kresli_1sabsetposbl:aask"stromstampmake"poc:poc+last:alocalpompozmake"pom:pozicierepeatlast:amake"poz1+randomcount:pomkresli_jitem:poz:pom:brepcbl:amake"pomreplacelist:poz1:pomkresli_jabcdlocalxxyymake"xx(first:a)+first:dmake"yy(last:a)+last:d maketurtle(word"s:b"j:c)(list:xx:yy"pu"st":jablko)kresli_mm maketurtle"strom0210puht:stromlocal"pocmake"poc0tell"stromsetpc13(tt"Mozes pouzit first:m)iffirst:m=1tt." prikazovy riadok.ifand(first:m>1)(first:m<5)tt." prikazove riadky.iffirst:m>4tt2" prikazovych riadkov.kresli_sbf:m1erturtle"stromop:poc0kresli_sabifnotempty?:a kresli_1sfirst:a:bkresli_sbf:a:b+1 myfdsetshape:dedko1fd2wait:pauzafd2wait:pauzasetshape:dedkofd1wait:pauzasetshape:dedko3fd2wait:pauzafd2wait:pauzasetshape:dedkofd1waitdiv:pauza2" obrazovkamcs hidespeedbar maketurtle"moja-3101850puhttell"mojasetttsystem12700000setpc12tt"Vitaj vif:m>9tt'" . zahradke. tt" . zahradke.setttcourier40700000setpos-270216tt:msetttsystem12700000setpc1setpos-300160tt "Tvojou ulohou je riadit slepehosetpos-310145tt!"deduska tak, aby pooberal vsetkysetpos-310130tt"jablka.setpos-300105setpc2tt"Dedusko pozna prikazy :setpos-31090setpc12tt"odtrhnisetpc2tt" - odtrhne jablkosetpos-31075setpc12tt "dopredu ???setpc2tt*" - urobi ??? krokovsetpos-31060tt " (naprikladsetpc12tt" dopredu 5setpc2tt'" )setpos-31045setpc12tt "vlavo ???setpc2tt"" - otoci sa vlavosetpos-31030setpc12tt "vpravo ???setpc2tt%" - otoci sa vpravosetpos-31015setpc12tt"opakuj ?kolkokrat? [?co?]setpc2setpos-3100tt" - opakuje niekolkokrat niecosetpos-310-15tt" (naprikladsetpc12tt'" opakuj 4 [odtrhni]setpos-310-30setpc2tt" odtrhne 4 jablka)setpos-300-55tt"Specialne prikazy :setpc12setpos-310-70tt"koniecsetpc2tt" - ukonci oberaniesetpc12setpos-310-85tt"startsetpc2tt&" - zacni znovu od 1. zahradkysetpc12setpos-310-100tt"znovusetpc2tt'" - zacni znovu tuto zahradkuerturtle"moja"pocmiesoppocmies1buried0#pocmies1abifempty?:aop:bifand(item24first:a="data) number?replace15first:a" oppocmies1bf:a:b+1 oppocmies1bf:a:b%prikazabcif:b=0(sh:a". prikazovy riadok :)localvstupsyxcatch"errormake"vstupreadlistlocal"rrrmake"rrrerrorifnotempty?:rrrprint(se"* * *item2:rrr"* * *)prikaz:a1:cif:vstup=prikaz:a1:cmake"syxsyntax:vstup10if:syx=vykonaj:vstup:cprint:syxprikaz:a1:cU%prikazyabrepeat:aif:jablka>0prikazrepc0:b%spravaablocal"sprmake"sprthingword"sp:aop(sefirst:spr:blast:spr)>&startupsetmc emptyimagemake "miestnost0make"stav0hraerturtleallcsif:stav=2vybornesetmc0-syntaxabcif:a=oplocalprikzvysmake"prikfirst:amake"zvysbf:aif:prik="hesloif:b=1if:zvys=opopsprava1"HESLOopsprava2"HESLOif:prik="koniecif:b=1if:zvys=opopsprava1"KONIECopsprava2"KONIECif:prik="znovuif:b=1if:zvys=opopsprava1"ZNOVUopsprava2"ZNOVUif:prik="startif:b=1if:zvys=opopsprava1"STARTopsprava2"STARTif:prik="vpravoifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"VPRAVOopsprava4"VPRAVOif:prik="vlavoifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"VLAVOopsprava4"VLAVOif:prik="dopreduifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"DOPREDUopsprava4"DOPREDUif:prik="vpifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"VPopsprava4"VPif:prik="vlifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"VLopsprava4"VLif:prik="doifnotempty?:zvysifnumber?first:zvysopsyntaxbf:zvys20opsprava4"DOopsprava4"DOif:prik="odtrhniif:c=2opsprava10"ODTRHNIopsyntax:zvys2:c+1if:prik="opakujifnotempty?:zvysifnumber?first:zvysifnotempty?bf:zvysiflist?firstbf:zvyslocal"hodmake"hodsyntaxfirstbf:zvys20ifempty?:hodopsyntaxbfbf:zvys20op:hodopsprava7"OPAKUJ ?kolko?opsprava7"OPAKUJ ?kolko?opsprava4"OPAKUJopsprava4"OPAKUJiflist?:prikopsprava3(se"'[:prik"]')opsprava3(word"':prik"')-upravaop(90*div(:a+45)90).vyborne maketurtle"pis-180100puhttell"pissetttCourier20700000setpc13ttext"Vyborne, zvladol si to.setttCourier25700000setpc12setpos-1100ttext "GRATULUJEM !erturtle"pis32vykonajabif:jablka=0stopif:a=stoplocalprikzvysmake"prikfirst:amake"zvysbf:aif:prik="koniecdkoniecif:prik="startdstartif:prik="znovudznovuif:prik="vlavoask"dedkoltupravfirst:zvyswait100vykonajbf:zvys:bif:prik="vpravoask"dedkortupravfirst:zvyswait100vykonajbf:zvys:bif:prik="dopreduddopredufirst:zvysvykonajbf:zvys:bif:prik="vlask"dedkoltupravfirst:zvyswait100vykonajbf:zvys:bif:prik="vpask"dedkortupravfirst:zvyswait100vykonajbf:zvys:bif:prik="doddopredufirst:zvysvykonajbf:zvys:bif:prik="odtrhnidodtrhni:bwait100vykonaj:zvys:bif:prik="opakujdopakujfirst:zvysfirstbf:zvys:bvykonajbfbf:zvys:bif:prik="hesloheslo_z2znovusetmc emptyimagemake "miestnost :miestnost-1make"stav0hraerturtleallcsif:stav=2vybornesetmc02data1100013data101200112001$3data112200212002H3data121200212002l3data1312005120053data143200112001220013data156200412004220043data16320071200422002$4data17120011200122001R4data181200212002220024data191200712007220074data220014data20101209014data21101200112090112018015data221020011209012201801K5data23620051209052201805|5data241200512090522018055data2572001120012090112090120180112018016data263200612006209061209062018061201806l6data2712006120062090612090620180612018066data289200112001209011209012018011201801220012209012201801N7data293200112001209011209012018011201801220012209012201801f7data310017data3012007120072090712090720180712018072200722090722018078data3122002120902220028data4200268data51002N8data62005f8data710078data8102001120018data922001120018dedkoe8dedko1e8dedko3e8icone8jablka0 9jablkoe9koniec1+9 miestnost32:9pauza10F9poc09pozicie6-623-242-837-2716-2026-395-339sp1***Prikazmusibytsam!***:sp10***Mozubytnajviac2prikazyzasebou!***C:sp2***Prikazmusibytnazaciatkuriadku!***p:sp3***Prikaz nepoznam!***:sp4***Zaprikazommusi nasledovatcislo!***:sp5###Tamma neposielaj,tamniesustromy!###&;sp6###Alevedtuniejestrom!###o;sp7***Zaprikazommusi nasledovatzoznam prikazov!***;sp8###Natomtostromeuzniesujablka!###<sp9###Minulsivsetky prikazoveriadkyajablkasi nepozbieral!###<stav2<stromeN 2BMv(233333333 3333333303333333303333303UU UUPUU UUPUU UUPUU UUPUU UUPUU UUPUU UUPUU UUP++%UU UUPUUUUUP ++%UUUUUP30UUUUUP30 ++%UUUUUP0UUUUUPD@+++%UUUUUPDDUUUUUPDDK$DDDDD@DDBDDDDD@DDDK$DDDDD@DDDDDDDDD@DDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DD3333333333333333333333333333;033333033333033333330BM>(2    ??2BMv(233333 333333333333333033333UUU3030UUUUUPUUUUUPUUUUUPUUUUUUUUUUUUUUPUUUUP ++++ ?UUUUPUUUUP++++++UUUUPUUUUP++++++UUUPUUUP ++++++ UUUPUUTDDB"DDDDDDDC30DDDDDDDC3DDDDLDDDC0DDDDDDD@DDDDDDDDDDDDDDDDDDD@DDDDHDDDDHDDDDDDDDDDHDDH333833?33?;33?3;33333;333333;33303333;33033333303333030BM>(2???`03    02BMv(233303330?333303333333303333`0330330 UU]UUUU]UUUU]UUUU]UUUU]UUUU]UUUU]UUUU]UUU]++++ UUUR30UUU[+++++30UUUR3UUU[+++++D@UUUD@UUU++++++ D@UUUS4BD@DDDC3K+DD@DDDC3BDD@DDDDDK+D@D@DDDDDDD@D@DDDDDDD@D@DDDDDDD@DDDDDDDDDD@DDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDHD3333333333333333333333333333;033333033333033333330BM>(2 p#0 ```e``???2BMv(233333 333333333333333333033 3035UUPUUUUUP`UUUUUP`UUUUUPUUUUPUUUUPUUUUP+++++UUUUP?UUUUP +++++ UUUUPUUUUP +++++ UUUUPUUUU+++++++UUUUUUUU"D@DUUU33DD@DDDD@ 3DD@DDDD@DDDLDDDD@DDDDDDD@DDDDD@DLDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDD@033?333333333033330333330333333333303333330333303333033BM>(2`ss``ss``ss``uu``2u`k 5`r3a 2BMv(233333333 `33333333`33333330`UU33330UU3303`UU UUP UU UUPUU UUP UU UUPUU UUP`UU UUP`UU UUP++%UUUUUPUUUUUP30 ++%UUUUUP30UUUUUP0 ++%UUUUUPD@UUUUUPDD+++%UUUUUPDDDDDDD@DDK$DDDDD@DDBDDDDD@DDDK$DDDDD@DDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DD3333333333333333333333333333;033333033333033333033333330BM>(2    ??2BMv(233333 33333333333333333333333UUP3030UUP UUUUU UUPUUU UUPUUU UUPUUUUUUUUUU ++++ U]UUPUUUP++++++]UUUP]UUU++++++UUUUUUUP ++++++ UUUPUUUPDK+UUTDDDC30DDDDDDDC3DDDDDDDDC0DDDDDDDDDDDDDDD@DDDDDD@DDDDDDDDDDDDDD@DDDDHDDDDHDDDDDDDDDDHDDH333833?33?;33?3;33333;333333;33303333;33033333303333030BM>(2`  3   ?02BMv(23330333333303333 3333033033330UU 0330UUUU]UUUU]UUUU]UUUU]UUUU]UUUU]UUUU]UUUU++++ 30UUUR30UUU[+++++3UUURD@UUU[+++++D@UUUD@UUU++++++ D@DDDC4BD@DDDC3K+DD@DDDC3BDD@DDDDDK+D@D@DDDDDDD@D@DDDDDDD@DDDDDDDDDD@DDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDHD3333333333333333333333333333;033333033333033333033333330BM>(2 c0 3%``e``???2BMv(2333330 3333333330333333333033333330 33UUUUPUU`UUPUU`UUUUUUUU]UUUUU]UUUUUU]UUU+++++UUUUUUUUUP +++++ UUUUPUUUUP +++++ UUUUPUUUU+++++++UUUUUUUU"D@DUUU33DD@DDDD@ 3DD@DDDD@DDDLDDDD@DDDDDDD@DDDDD@DLDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDD@033?333333333033330333330333333333303333330333303333033BM>(2`ss8`83p3p30 333 sss``uu``2u`k55`rs 2BMv(233338`333300 333333330 33333303`3333 UUP333 UUP`UU UUP UU UUPUU UUP UU UUPUU UUP`UU UUP`++%UU UUPUUUUUP ++%UUUUUPUUUUUP30 ++%UUUUUP30UUUUUP0+++%UUUUUPD@UUUUUPDDK$DDDDD@DDBDDDDD@DDDK$DDDDD@DDDDDDDDD@DDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DD3333333333333333333333333333;033333033333033333033333330BM>(2  ??2BMv(2333333 33333333303333333330333333330UU]33UU]UUUUU]UUUUU]UUUUU]UUPUUUUUPUUUUUPUUUUU ++++ UUUUUUUUUUUP++++++UUUUUUUUUU++++++UUUUUUUP ++++++ UUUPUUTDDB"DDDDDDDC30DDDDDDDC;DDDDLDDDCDDDDDDD@DDDDDDDDDDDDDDDDDDD@DDDDHDDDDHDDDDDDDDDDHDDH333833?33?;33?3;33333;333333;33303333;33033333303333030BM>(2` 3   02BMv(2333033330333303330`03303333 UU]3333UU]330UU]UUUU]UUUU]UUUU]UUUU]UUUU]UUU]++++ UUURUUU[+++++30UUUR30UUU[+++++3UUUD@UUU++++++ D@UUUS4BD@DDDC3K+DD@DDDC3BDD@DDDDDK+D@D@DDDDDDD@D@DDDDDDD@D@DDDDDDD@DDDDDDDDDD@DDDDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDHD3333333333333333333333333333;033333033333033333033333330BM>(2 p#3 p``e``???2BMv(23333333333333333333333333303 3030UUPU]UUP`UU]UUP`UU]UUPUU]UUPUUUUP+++++UUUUPUU]UU +++++ UUUUUUU]U +++++ UU]UUUUU+++++++UUUUUUUU +D@UUUU33DD@DUUU3DD@DDDD@3DDDDDDDD@DDDDDDD@DDDDDDD@DDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@DDDDD@033?333333333033330333330333333333303333330333303333033BM>(2pc0s s ` css `uu``+u`r55`k>v  BMvv( """""""""""""""""+""""""""""""""+"""""""""""""""+"+"+""""++"+"+""""+"+""""""+""+"""""+"+""++""""""""+""""""""+""""+""""+""""""""+""""""""""""")"""""""""""""""""""")"""""+"")"""""+""""""+"""""""+"""""""""""""""""""""""""""""""")"""""""""""""""""""""" """""++" +"""++""+"+""""++""+"""""++"+""""""++""+"""""++""+"+"""++""+""""""""""""""""""w BMv(     BMz>(~ (<P?r0101pp