Rmw3.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]ShapesProshapes[6 ||] $'*-0369BKT shapeinfo?shape0namearrow shapeno0hash9D9CD32D34BE6020Ashape1namediamond shapeno1hash3A209E3CCC33FA34@shape2namesphere shapeno2hashB689390532CA96DF@shape3namesquare shapeno3hashC0C76DABF1029109>shape4 namestar shapeno4hashDF409F9F9FDF3F7F>shape5 namelcsi shapeno5hashC58CF98D3AB3F94F.shape6 name|| shapeno6 hash||<shape7 name|| shapeno7hash3A209E3CCC33FA34>shape8 nameboat shapeno8hash8977B62F2B2EAAC5=shape9 namebus shapeno9hash159708204C551555?shape10 namecarshapeno10hash7787D1DF64914F8FFshape11namemotorcycleshapeno11hash2D1002BD23B388B8Ashape12nameplaneshapeno12hashCCBE00459A20B86F>shape13 name||shapeno13hashDF20207F80DF005F>shape14 name||shapeno14hashDF20207F80DF005F@shape15 namecat1shapeno15hash57603D410CA120F8@shape16 namecat2shapeno16hash3DAA646C434A3165@shape17 namecat3shapeno17hashEB1CBC53EFC8C743@shape18 namedog1shapeno18hashCABD086A627FA0A0@shape19 namedog2shapeno19hashBD7FA0A8CABD7FA8Bshape20namehorse1shapeno20hash278FD5528617A229Bshape21namehorse2shapeno21hash17DC6C42A7C9057EBshape22namehorse3shapeno22hashFA13D8592AD82B70Bshape23namehorse4shapeno23hash634D69A419C65ECBEshape24namekangaroo1shapeno24hashC0AFB040EC072C1BEshape25namekangaroo2shapeno25hashDBF28FBE00D40D47Eshape26namekangaroo3shapeno26hash7257ADAC5D23CAAAAshape27namelion1shapeno27hashA877B1FFD9526610Ashape28namelion2shapeno28hash52D3B85E15761906>shape29 name||shapeno29hashDF20207F80DF005F>shape30 name||shapeno30hashDF20207F80DF005F@shape31 namebee1shapeno31hash1B53CEBF7A01B02A@shape32 namebee2shapeno32hashC00CCDB26F1416E7Fshape33namebutterfly1shapeno33hash3FBD2DF11E2AC450Fshape34namebutterfly2shapeno34hash41083AF35941AEAEAshape35namebird1shapeno35hash6510C3F2FA569319Ashape36namebird2shapeno36hashE07411427667AEAE>shape37 name||shapeno37hashDF20207F80DF005F>shape38 name||shapeno38hashDF20207F80DF005FDshape39namedolphin1shapeno39hashBB5BC4CA91884CCADshape40namedolphin2shapeno40hashE03C2E77CF89F622Dshape41namedolphin3shapeno41hash4FBC42AD63B25D5C@shape42 namefishshapeno42hash3042E26896E189C1>shape43 name||shapeno43hashDF20207F80DF005F>shape44 name||shapeno44hashDF20207F80DF005FIshape45nameconstruction1shapeno45hash797AF8DA6A169FDEIshape46nameconstruction2shapeno46hash84C4ED816FC9302AIshape47nameconstruction3shapeno47hash3F72A46E5AD5F2FFCshape48namedoctor1shapeno48hash55120BE94A0052FFCshape49namedoctor2shapeno49hash0CB72E01102E4BE6Cshape50namedoctor3shapeno50hash872457C29F9518C3Bshape51namejudge1shapeno51hash17380520BCB83D5BBshape52namejudge2shapeno52hash360EED6F37E8FE9CDshape53namestudent1shapeno53hashC40D9F91FE733617Dshape54namestudent2shapeno54hashBE41457ACD45AA89Dshape55namestudent3shapeno55hash725E17746B49574EDshape56nameteacher1shapeno56hash00D9195A7BA26952Dshape57nameteacher2shapeno57hashACF0B9FEE8AF2DBEDshape58nameteacher3shapeno58hash5D4BE516ADE1E1D1Cshape59namekicker1shapeno59hash0E8854AB360FDC1ECshape60namekicker2shapeno60hash4F4E8F7DDAD6DB36Cshape61namerunner1shapeno61hash1DA04F18EBD2437CCshape62namerunner2shapeno62hash53F7F853508D05F5Cshape63namerunner3shapeno63hashC1F332D5E9E988BECshape64namerunner4shapeno64hash6854834099E47194Cshape65namerunner5shapeno65hash33B1668D9DAC710ECshape66namerunner6shapeno66hashC61508CE68D89403@shape67 nameballshapeno67hashC2017FBC47A49D1C>shape68 name||shapeno68hashDF20207F80DF005F>shape69 name||shapeno69hashDF20207F80DF005FBshape70namebambooshapeno70hash15094945E4AAF02EBshape71namebaobabshapeno71hash0C99A40676DF9F08Cshape72namebegoniashapeno72hash969142BFFDB41A22Bshape73namecactusshapeno73hashFA3339D1637E6849Ashape74namedaisyshapeno74hashF68197FF7FE562CAAshape75namefern1shapeno75hashEEDC7A6C48D83E0DAshape76namefern2shapeno76hashD39FCFB53A041CCA@shape77 nameirisshapeno77hashC3AE17949E06640C@shape78 nameroseshapeno78hash3CE370352BDCFB04Cshape79namesaplingshapeno79hash7B2FD97981F45759Bshape80namewillowshapeno80hash8E2EBD880F91DE12>shape81 name||shapeno81hashDF20207F80DF005F>shape82 name||shapeno82hashDF20207F80DF005FAshape83namecloudshapeno83hash1E237718D5B15548Fshape84namelightning1shapeno84hashD0C6E005DE4522EFFshape85namelightning2shapeno85hash64DC361614A043D3Fshape86namelightning3shapeno86hash1E4740F7B87CE02CEshape87nameraincloudshapeno87hashE1A36208BF73CBD8?shape88 nameSunshapeno88hash5A438D8138AC3617>shape89 name||shapeno89hashDF20207F80DF005F>shape90 name||shapeno90hashDF20207F80DF005FAshape91nameEarthshapeno91hashECD721930F087F55Cshape92nameJupitershapeno92hashFDA0A5D7F6C2FD32@shape93 nameMarsshapeno93hash730A21F1AC5F5567Cshape94nameMercuryshapeno94hashF927702B937E1810@shape95 nameMoonshapeno95hashCDD31EDEB0573767Cshape96nameNeptuneshapeno96hash99C9B41B2B60D9FCAshape97namePlutoshapeno97hash9EBCBAE524B66D9EBshape98nameSaturnshapeno98hashD4C1C7631FAE38E3Bshape99nameUranusshapeno99hashA99C40F139931AD7Cshape100nameVenusshapeno100hash942D6DB6644B5890Dshape101namerocketshapeno101hash767C5ABF20623BE8Gshape102namesatelliteshapeno102hashE3EEE401233195CB@shape103 name||shapeno103hashDF20207F80DF005F@shape104 name||shapeno104hashDF20207F80DF005FIshape105nameeiffeltowershapeno105hashDAE78C2459165378Eshape106namelibertyshapeno106hashD02D16E85E4CB664Eshape107nameobeliskshapeno107hash03814BD94FCBF8BBEshape108namepyramidshapeno108hash9DEAD10D786143E9Cshape109namehouseshapeno109hash4DA66216215A9B86Gshape110nameapartmentshapeno110hash3261E00C4FF33033Cshape111namecabinshapeno111hash48E6A8ECCF068EEF@shape112 name||shapeno112hashDF20207F80DF005F@shape113 name||shapeno113hashDF20207F80DF005FFshape114nameballoonsshapeno114hashE6DE2E65F4395218Bshape115 namecakeshapeno115hash0A2B343CEA7073C1Eshape116namediplomashapeno116hashC69CBA0E8DFA22C5Fshape117namepartyhatshapeno117hash474598AD52EB9581@shape118 name||shapeno118hashDF20207F80DF005F@shape119 name||shapeno119hashDF20207F80DF005F@shape120 name||shapeno120hashDF20207F80DF005F@shape121 name||shapeno121hashDF20207F80DF005F@shape122 name||shapeno122hashDF20207F80DF005F@shape123 name||shapeno123hashDF20207F80DF005F@shape124 name||shapeno124hashDF20207F80DF005F@shape125 name||shapeno125hashDF20207F80DF005F@shape126 name||shapeno126hashDF20207F80DF005F@shape127 name||shapeno127hashDF20207F80DF005FGbrusheskbrushno0 maskno0 size1 edge0 fcn0fcnnamemake-airbrush special0 fade0kbrushno1 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0kbrushno2 maskno0 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrushno3 maskno0 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0kbrushno4 maskno1 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrushno5 maskno1 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrushno6 maskno0 size2 edge4 fcn0fcnnamemake-airbrush special0 fade67lbrushno7 maskno0 size4 edge8 fcn0fcnnamemake-airbrush special0 fade67mbrushno8 maskno0 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67lbrushno9 maskno1 size3 edge7 fcn0fcnnamemake-airbrush special0 fade70nbrush no10 maskno1 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67mbrush no11 maskno0 size8 edge0 fcn1fcnnamemake-edgebrush special0 fade0nbrush no12 maskno0 size15 edge0 fcn1fcnnamemake-edgebrush special0 fade0mbrush no13 maskno1 size6 edge0 fcn1fcnnamemake-edgebrush special0 fade0nbrush no14 maskno1 size12 edge0 fcn1fcnnamemake-edgebrush special0 fade0lbrush no15 maskno0 size3 edge0 fcn2fcnnamemake-rainbowspecial[] fade0lbrush no16 maskno0 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0mbrush no17 maskno0 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0lbrush no18 maskno1 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0mbrush no19 maskno1 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0mbrush no20 maskno2 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0mbrush no21 maskno3 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0mbrush no22 maskno4 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0mbrush no23 maskno5 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no24 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no25 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no26 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no27 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no28 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no29 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no30 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no31 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no32 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no33 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no34 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0lbrush no35 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0procedurestext{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\fmodern Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}{\f7\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red255\green0\blue128;} \deflang2057\pard\plain\f7\fs20\cf0 to startup \par presentationmode \par everyone[setinstruction "] \par make "start.flag 1 \par page1 \par end \par to instructions \par page2 \par end \par to set_vacant \par set "text1 "transparent? "false \par cc ct pr "| | \par set "text1 "transparent? "true \par everyone[setshape 8] \par everyone \par [setinstruction "|setshape 15 - shape everyone[setinstruction |"|]| \par ] \par make "start.flag 1 \par end \par \par to start \par ;ct \par ifelse :start.flag = 1 \par [everyone[setinstruction "response] \par make "start.flag 0] \par [everyone[setinstruction "]stop] \par cc \par make "neighb.list \par \plain\f3\fs24 [[[3 9] [4 12]] \par [[3 4] [9 13]] \par [[4 5] [9 14] [6 8] [7 10]] \par [[3 2] [12 15] [6 7] [8 11]] \par [[4 3] [12 13]] \par [[7 9] [8 12]] \par [[10 13] [6 4]] \par [[11 13] [6 3]] \par [[3 1] [13 15] [7 6] [10 11]] \par [[7 3] [11 12]] \par [[10 9] [8 4]] \par [[4 1] [13 14] [11 10] [8 6]] \par [[9 2] [12 5] [10 7] [11 8]] \par [[9 3] [13 12]] \par [[13 9] [12 4]] \par ] \par \plain\f7\fs20\cf0 make "turt 0 \par make "e.list [] \par everyone[if shape = 7[make "e.list fput bf who :e.list]] \par make "c.flag 0 \par end \par \par to response \par if :c.flag = 0 \par [if shape = 7[stop] \par make "turt who make "c.flag 1 \par forever[flash] \par stop] \par if shape = 8 ; c.flag=1 \par [make "c.flag 0 \par cancel [flash] \par tto :turt setshape 8 \par stop] \par make "c.flag 0 \par local "n \par if valid.move? who :turt \par [ask add.t :n [setshape 7 ] \par make "e.list se :n delete# bf who :e.list \par cancel[flash] \par setshape 8 \par if 14 = count :e.list \par [set "text1 "transparent? "false \par pr [VERY GOOD] \par set "text1 "transparent? "true \par STOP] \par let[check check.list :e.list] \par if empty? :check \par [set "text1 "transparent? "false \par pr [NOT BAD] \par set "text1 "transparent? "true \par STOP] \par stop] \par cancel[flash] \par tto :turt setshape 8 \par end \par \par to add.t :list \par if empty? :list[op[]] \par op fput word "t first :list add.t bf :list \par end \par \par to valid.move? :act.turt :t \par let[neighb item bf :act.turt :neighb.list] \par op h.valid.move? :neighb bf :t \par end \par \par to h.valid.move? :list :t \par if empty? :list[op "false] \par let[1st first first :list] \par if member? :t first :list \par [if or member? :1st :e.list \par :t = :1st \par [op "false] \par make "n first :list op "true] \par op h.valid.move? bf :list :t \par end \par \par \par to flash \par tto :turt \par setshape 15 - shape \par wait 5 \par end \par \par to delete# :el :list \par if empty? :list[op[]] \par if :el = first :list \par [op delete# :el bf :list] \par op fput first :list delete# :el bf :list \par end \par \par to check.list :list \par if empty? :list[op[]] \par op se h.check item first :list :neighb.list \par check.list bf :list \par end \par \par to h.check :neighb \par if empty? :neighb[op[]] \par let[1st first :neighb] \par if or member? first :1st :e.list \par member? last :1st :e.list \par [op h.check bf :neighb] \par op fput :1st h.check bf :neighb \par end \par \par to pentagram :r :p \par cg \par let[ang 360 / :p \par s 2 * :r * sin :ang / 2 \par tau (1 + sqrt 5) / 2 \par f 2 - :tau] \par pu fd :r lt 90 + :ang / 2 \par pd \par repeat 5 \par [fd :s lt :ang] \par pu home \par rt 180 fd :f * :r \par lt 90 + :ang / 2 \par pd \par repeat 5 \par [fd :f * :s lt :ang] \par pu home \par end \par \par } +pagenamepage2curturtlet1curtexttext1transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0$buffer$$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p  $ 6 H Z l ~  2 D V h z  . @ R d v   * < N ` r   & 8 J \ n "4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdveobject typetextnametext1rect[3 0 610 387]show-name?truelocked?truevisible?truesnaped?true onread||text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\fmodern Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}{\f7\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red255\green0\blue128;} \deflang2057\pard\plain\f5\fs20\cf0 15-PEG-SOLITAIRE \par The game starts with 14 pegs(red) and one hole(blue). \par \par SET_VACANT button: \par Click on this and all positions will be filled with pegs(red). \par Click on the one you want to remove. \par Leaves a (blue) hole. Only one can be removed. \par \par START button: \par This will only work after a single vacant hole is present \par A move is similar to a move in the game of Draughts(Checkers), a peg is moved over an \par adjacent peg, on the same line, into an empty hole. \par \par Click on the peg to be moved and it will "flash". \par \par Click on an empty hole and if the move is allowed the hole will be filled and two holes left, \par otherwise the peg will just stop "flashing". \par \par Moves are allowed only along the lines. \par \par Continue until no more moves are possible. \par \par \par } object typet namet1locked?true xpos551 ypos312 shape1penstate0 size40pencolor0 heading0 pensize1shown?truefcn[page1] kind1shapeinarrowhave-list[has] colorin9&Vpagenamepage1curturtlet15curtexttext1transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0AbufferA$6HZl~ 2DVhz .@Rg|3Ni &A\w4Oj 'B]x5Pk (C^y  6 Q l  ) D _ z   7 R m  * E ` {   8 S n +Fa|9Ti)b F*cG+dH$]Az%`\<{8w4s0o,k(g$ c !M!!!!"L""""#K#~###$J$}$$$%I%|%%%&H&{&&&'G'z'''(F(y((()E)x)))*"*C*j****+-+T+{++++,>,e,,,,-(-O-v----.9.`.....#/J/q//// 040[000001E1n11112@2j22223<3f3333484b4444 545^55556 6>6P6b6t6666666677(7:7L7^7p7777777788$868H8Z8l8~888888889 929D9V9h9z99999999 ::.:@:R:d:v::::::objecttypebuttonnamebutton1rect[647 14 60 25]show-name?falselocked?falsefcn[start] kind1object typet namet1locked?true xpos371 ypos33 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet2locked?true xpos200 ypos155 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet3locked?true xpos332 ypos156 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet4locked?true xpos411 ypos156 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet5locked?true xpos542 ypos157 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet6locked?true xpos372 ypos185 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet7locked?true xpos346 ypos202 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet8locked?true xpos396 ypos204 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet9locked?true xpos306 ypos232 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet10locked?true xpos356 ypos233 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet11locked?true xpos387 ypos233 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet12locked?true xpos436 ypos233 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet13locked?true xpos372 ypos281 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet14locked?true xpos267 ypos358 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9object typet namet15locked?true xpos476 ypos359 shape8penstate0 size40pencolor0 heading0 pensize1shown?true9fcn[setshape 15 - shape everyone [setinstruction "]] kind1 shapein8have-list[has] colorin9objecttypebuttonnamebutton2rect[516 13 99 28]show-name?falselocked?falsefcn[set_vacant] kind1object typetextnametext1rect[20 57 125 38]show-name?falselocked?falsevisible?truesnaped?true onread||stext{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\fmodern Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}{\f7\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red255\green0\blue128;} \deflang2057\pard\plain\f6\fs20\cf1\b \par \par } objecttypebuttonnamebutton3rect[25 9 134 33]show-name?falselocked?falsefcn[Instructions] kind1