qmw3.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]ShapesPro)shapes[12 button]((!*3<ENW`ir{ &/8AJS\ww^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w^w shapeinfo@shape0name[moon] shapeno0hashA0A0A0A0DF3F7FDFAshape1name[cloud] shapeno1hash1E237718D5B15548?shape2name[sun] shapeno2hashCAFEC549FA6534BF@shape3name[star] shapeno3hashE03F409FE07F9FE0@shape4name[tree] shapeno4hash29BE65D37FCDC573Eshape5name[evergreen] shapeno5hash1F93773B86AE57DFCshape6name[flowers] shapeno6hash816BA4B806A43AD0Eshape7name[mountains] shapeno7hashB03ABF4F64F49625Ashape8name[bird1] shapeno8hashE340005FC0409FBFAshape9name[bird2] shapeno9hash3F1C3F5CBCFC3F00Bshape10name[bee1]shapeno10hashA6E06746615E0627Bshape11name[bee2]shapeno11hash39C1E658391881066shape12name[button]shapeno12 hash||@shape13 name[||]shapeno13hashDF20207F80DF005F@shape14 name[||]shapeno14hashDF20207F80DF005F@shape15 name[||]shapeno15hashDF20207F80DF005FBshape16name[dog1]shapeno16hashFECC98F0C51E60A0Bshape17name[dog2]shapeno17hash63AF8E3514E0D39BDshape18name[horse1]shapeno18hash6974784968B36075Dshape19name[horse2]shapeno19hashC18FD9D4465FB72CDshape20name[horse3]shapeno20hash2CCEDD8920462919Dshape21name[snake1]shapeno21hash96A5F88F568259CEDshape22name[snake2]shapeno22hash7D30653B0A9AF4A2Bshape23name[fish]shapeno23hashA0A369C21D60AB74Ashape24name[hut]shapeno24hashF9F2FD7493EA5983Cshape25name[house]shapeno25hashE01CECE6A33EE91BDshape26name[castle]shapeno26hash0822A91D7EE815A8Ashape27name[car]shapeno27hashC0E4098FA26E527A@shape28 name[||]shapeno28hashDF20207F80DF005F@shape29 name[||]shapeno29hashDF20207F80DF005F@shape30 name[||]shapeno30hashDF20207F80DF005F@shape31 name[||]shapeno31hashDF20207F80DF005FBshape32name[jeep]shapeno32hashC5FD37D110D50FA4Eshape33name[tractor]shapeno33hashA07EDF5E67788606Bshape34name[ship]shapeno34hash728FE6CD281EA535Fshape35name[airplane]shapeno35hash4A15E84BAE94E0B9Cshape36name[train]shapeno36hashA719B87F93107F82Bshape37name[swan]shapeno37hash5C49872AA8CAB05CBshape38name[boat]shapeno38hash03C2F7F733F8316EBshape39name[girl]shapeno39hashCAB95D5324F06825Ashape40name[boy]shapeno40hashAF33B2769E6B7B0BEshape41name[walker1]shapeno41hash049DA8177B562BDFEshape42name[walker2]shapeno42hash93CB4DBB32F85094Eshape43name[walker3]shapeno43hash18A0271ECC0092EA@shape44 name[||]shapeno44hashDF20207F80DF005F@shape45 name[||]shapeno45hashDF20207F80DF005F@shape46 name[||]shapeno46hashDF20207F80DF005F@shape47 name[||]shapeno47hashDF20207F80DF005FEshape48name[skater1]shapeno48hash4D5EB04DBB7E90D4Eshape49name[skater2]shapeno49hash46338B1818F86EAFEshape50name[skater3]shapeno50hashA0007AD78D06EDACCshape51name[swamp]shapeno51hash75FFB4D6F130957FCshape52name[lion1]shapeno52hash9FDD7394B1F2595CCshape53name[lion2]shapeno53hash6DDA62FE44E1C54BFshape54name[umbrella]shapeno54hash89C076209CBC1CBFCshape55name[heart]shapeno55hashE5ABAC65E48AA3AAFshape56name[tornado1]shapeno56hashE57281CE678D9B8BFshape57name[tornado2]shapeno57hashA86688C0EF033F68Cshape58name[wave1]shapeno58hashDC531846A9435326Cshape59name[wave2]shapeno59hash767D2B4E2095B7C3@shape60 name[||]shapeno60hashDF20207F80DF005F@shape61 name[||]shapeno61hashDF20207F80DF005F@shape62 name[||]shapeno62hashDF20207F80DF005F@shape63 name[||]shapeno63hashDF20207F80DF005F@shape64 name[||]shapeno64hashDF20207F80DF005F@shape65 name[||]shapeno65hashDF20207F80DF005F@shape66 name[||]shapeno66hashDF20207F80DF005F@shape67 name[||]shapeno67hashDF20207F80DF005F@shape68 name[||]shapeno68hashDF20207F80DF005F@shape69 name[||]shapeno69hashDF20207F80DF005F@shape70 name[||]shapeno70hashDF20207F80DF005F@shape71 name[||]shapeno71hashDF20207F80DF005F@shape72 name[||]shapeno72hashDF20207F80DF005F@shape73 name[||]shapeno73hashDF20207F80DF005F@shape74 name[||]shapeno74hashDF20207F80DF005F@shape75 name[||]shapeno75hashDF20207F80DF005F@shape76 name[||]shapeno76hashDF20207F80DF005F@shape77 name[||]shapeno77hashDF20207F80DF005F@shape78 name[||]shapeno78hashDF20207F80DF005F@shape79 name[||]shapeno79hashDF20207F80DF005F@shape80 name[||]shapeno80hashDF20207F80DF005F@shape81 name[||]shapeno81hashDF20207F80DF005F@shape82 name[||]shapeno82hashDF20207F80DF005F@shape83 name[||]shapeno83hashDF20207F80DF005F@shape84 name[||]shapeno84hashDF20207F80DF005F@shape85 name[||]shapeno85hashDF20207F80DF005F@shape86 name[||]shapeno86hashDF20207F80DF005F@shape87 name[||]shapeno87hashDF20207F80DF005F@shape88 name[||]shapeno88hashDF20207F80DF005F@shape89 name[||]shapeno89hashDF20207F80DF005F@shape90 name[||]shapeno90hashDF20207F80DF005F@shape91 name[||]shapeno91hashDF20207F80DF005F@shape92 name[||]shapeno92hashDF20207F80DF005F@shape93 name[||]shapeno93hashDF20207F80DF005F@shape94 name[||]shapeno94hashDF20207F80DF005F@shape95 name[||]shapeno95hashDF20207F80DF005F@shape96 name[||]shapeno96hashDF20207F80DF005F@shape97 name[||]shapeno97hashDF20207F80DF005F@shape98 name[||]shapeno98hashDF20207F80DF005F@shape99 name[||]shapeno99hashDF20207F80DF005FBshape100 name[||]shapeno100hashDF20207F80DF005FBshape101 name[||]shapeno101hashDF20207F80DF005FBshape102 name[||]shapeno102hashDF20207F80DF005FBshape103 name[||]shapeno103hashDF20207F80DF005FBshape104 name[||]shapeno104hashDF20207F80DF005FBshape105 name[||]shapeno105hashDF20207F80DF005FBshape106 name[||]shapeno106hashDF20207F80DF005FBshape107 name[||]shapeno107hashDF20207F80DF005FBshape108 name[||]shapeno108hashDF20207F80DF005FBshape109 name[||]shapeno109hashDF20207F80DF005FBshape110 name[||]shapeno110hashDF20207F80DF005FBshape111 name[||]shapeno111hashDF20207F80DF005FBshape112 name[||]shapeno112hashDF20207F80DF005FBshape113 name[||]shapeno113hashDF20207F80DF005FBshape114 name[||]shapeno114hashDF20207F80DF005FBshape115 name[||]shapeno115hashDF20207F80DF005FBshape116 name[||]shapeno116hashDF20207F80DF005FBshape117 name[||]shapeno117hashDF20207F80DF005FBshape118 name[||]shapeno118hashDF20207F80DF005FBshape119 name[||]shapeno119hashDF20207F80DF005FBshape120 name[||]shapeno120hashDF20207F80DF005FBshape121 name[||]shapeno121hashDF20207F80DF005FBshape122 name[||]shapeno122hashDF20207F80DF005FBshape123 name[||]shapeno123hashDF20207F80DF005FBshape124 name[||]shapeno124hashDF20207F80DF005FBshape125 name[||]shapeno125hashDF20207F80DF005FBshape126 name[||]shapeno126hashDF20207F80DF005FBshape127 name[||]shapeno127hashDF20207F80DF005Fbrusheswbrushno0 maskno0 size1 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno1 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno2 maskno0 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno3 maskno0 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno4 maskno1 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno5 maskno1 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno6 maskno0 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade17wbrushno7 maskno1 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade5wbrushno8 maskno5 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade7xbrushno9 maskno3 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade19ybrush no10 maskno0 size2 edge4 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no11 maskno0 size4 edge8 fcn0fcnnamemake-airbrush special0 fade67 shade[]zbrush no12 maskno0 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no13 maskno1 size3 edge7 fcn0fcnnamemake-airbrush special0 fade70 shade[]zbrush no14 maskno1 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no15 maskno0 size8 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]zbrush no16 maskno0 size15 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]ybrush no17 maskno1 size6 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]zbrush no18 maskno1 size12 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]xbrush no19 maskno0 size3 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]xbrush no20 maskno0 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no21 maskno0 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]xbrush no22 maskno1 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no23 maskno1 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no24 maskno2 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no25 maskno3 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no26 maskno4 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no27 maskno5 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no28 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no29 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no30 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no31 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no32 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no33 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no34 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no35 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]procedurestext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green255\blue128;\red0\green0\blue0;} \viewkind4\uc1\pard\cf1\b\f0\fs20 ; hatch 8 turtles and place "clicked" as their instruction \par ; make one button write "go" as it's instruction \par ; make a shape and name it "button"...make it look like a button\cf0 \par \par to startup \par go \par end \par \par to go\cf1\tab\tab ;runs the show\cf0 \par setup.vari \par select.shape\tab make "t1shape :shape\tab make "t2shape :shape \par t1, place\tab \par t2, place \par select.shape\tab make "t3shape :shape \tab make "t4shape :shape \par t3, place \par t4, place\tab \par select.shape\tab make "t5shape :shape \tab make "t6shape :shape \par t5, place\tab \par t6, place \par select.shape\tab make "t7shape :shape \tab make "t8shape :shape \par t7, place \par t8, place \par end \par \par to setup.vari\cf1\tab\tab ;names the vari and puts nothing in them \par \cf0 setbg "white \par make "where []\tab\tab\cf1 ;is the pos picked \par \cf0 make "clicked []\tab\cf1 ;shows the t's clicked\cf0 \par make "click1 []\tab\cf1\tab ;shape of the first turtle clicked \par \cf0 make "click2 []\tab\tab\cf1 ;trap for fast clicking\cf0 \par make "where [ [100 100] [0 100] [0 -100] [-100 100] [-100 -100] \par \tab\tab [100 -100] [-200 100] [-200 -100] ] \cf1 ;where the buttons go\cf0 \par make "shapes [moon sun star cloud] \par everyone [setsh "button st setsize 80] \par end \par \par to select.shape\cf1\tab\tab ;randomly selects the shapes used \par \cf0 if empty? :shapes [stop] \par make "shape pick :shapes \par remove.shape \par end \par \par to remove.shape\cf1\tab ;removes the selected shape from the list :shapes \par \cf0 ifelse :shape = first :shapes \par \tab [make "shapes bf :shapes] \par \tab [make "move first :shapes \par \tab \tab make "shapes bf :shapes \par \tab\tab\tab make "shapes lput :move :shapes remove.shape] \par end \par \par to place\cf1\tab ;places the t's on the screen in random spots\cf0 \par if empty? :where [stop] \par make "pick.pos pick :where \par setpos :pick.pos \par remove.pos \par end \par \par to remove.pos\tab\tab\cf1 ;removes the picked pos from the list :where\cf0 \par ifelse :pick.pos = first :where \par \tab [make "where bf :where] \par \tab [make "move first :where \par \tab \tab make "where bf :where \par \tab\tab\tab make "where lput :move :where remove.pos] \par end \par \par \cf2 to clicked\tab\cf1\tab ;place "clicked" in each t's dialog box...what is done \par \cf2 if not empty? :click2 [waituntil [:click2 = [] ] ]\tab\cf1 ;trap for fast clicking on third button\cf2 \par ifelse not shape = "button [] [ \tab\cf1 ;trap selfclicking...not button\cf2 \par ifelse :click1 = [ ] \cf1\tab ;when the turtle is clicked \par \cf2 [toshape make "click1 shape make "clicked who ] \par [make "click2 [running]\tab\cf1 ;trap\cf2 \par toshape ifelse :click1 = shape \par [make "clicked se :clicked who ask :clicked [ wait 2 ht ] reset] \par [make "clicked se :clicked who ask :clicked [wait 2 setsh "button st ] reset ] ] ] \par end\cf0 \par \par to toshape\tab\cf1\tab ;sets the shape when clicked on \par \cf0 if who = "t1 [setsh :t1shape] \par if who = "t2 [setsh :t2shape] \par if who = "t3 [setsh :t3shape] \par if who = "t4 [setsh :t4shape] \par if who = "t5 [setsh :t5shape] \par if who = "t6 [setsh :t6shape] \par if who = "t7 [setsh :t7shape] \par if who = "t8 [setsh :t8shape] \par end \par \par to reset\tab\tab\cf1 ;resets the vari's when a match is made \par \cf0 make "click1 [] \par make "click2 [] \par make "clicked [] \par end \par \par \pard\cf2\b0\f1 \par } -pagenamepage1curturtlet8curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []] bgwhite$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 .@Rdvobject typet namet1locked?false xpos372 ypos313 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet2locked?false xpos372 ypos113 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet3locked?false xpos272 ypos313 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet4locked?false xpos472 ypos113 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet5locked?false xpos172 ypos113 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet6locked?false xpos472 ypos313 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet7locked?false xpos172 ypos313 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9object typet namet8locked?false xpos272 ypos113 shape13penstate0 size80pencolor0 heading0 pensize1shown?truefcn[clicked] kind1shapeinbuttonhave-list[has] colorin9}objecttypebuttonnamebutton1rect[617 158 54 50]show-name?falselocked?false fcn[go] kind1