<<set $stonearray.sort()>>\s\n<<if $holdstones lt $stonearray.length - 1>><<print state.history[0].variables.stonearray[$holdstones]>><<print ($stonearray.length lt 3 ? " " : ", ")>><<set $holdstones += 1>><<display "holdstones">><<else>><<print ($stonearray.length gt 1 ? "and " : "")>> <<print state.history[0].variables.stonearray[$holdstones]>><<endif>>

You enter a glade of rustling golden leaves on ruby-barked trees. Many of the leaves have faded to a pale green, and drifted down to the ground with the turning of the seasons.\n\nBeneath one rather large leaf <<if $stoneF eq 0>>you see<<else>>there was<<endif>> an angled stone with the letter 'F' carved into it.\n\n<<if $stoneF eq 0>>[[Pick it Up|north][$stoneF = 1]]<<else>>You have taken the stone.<<if $stoneF eq 1>><<set $stonearray.push("F")>><<set $stoneF = 2>><<endif>><<endif>>\n\n[[Go back?|Start2]]

<<silently>><<set $holdstones = 0>><<endsilently>>\s\nYou stand amongst a circle of towering, dilapidated ruins, deep in the Forest of Faces.\n\nIn the center of the circle there is a chest height pedestal. Set into the top of it are four rectangular [[depressions]]<<if $filledholes eq 4>>, which have all been filled with the stones you found.<<elseif $filledholes eq 0>>.<<else>>, <<print $filledholes>> of which <<if $filledholes gt 1>>have been filled with the stones<<else>>has been filled with a stone<<endif>> you found.<<endif>>\n\n<<if $filledholes eq 4>>Stunning crimson [[banners]] have suddenly appeared, hanging from the crumbling balusters.\n\n<<endif>>\s\nThere are paths to the [[north]], [[south]], [[east]], and [[west]].\n\n<<if $stonearray.length eq 0>>\s\nYou are holding nothing.\n<<else>>\s\nYou are holding <<print $stonearray.length>> stone<<print ($stonearray.length gt 1 ? "s": "")>>, the <<display "holdstones">> stone<<print ($stonearray.length gt 1 ? "s": "")>>.\n<<endif>>

You come to the bottom of a staircase, where there is a low brick wall laid out around a clearing that perhaps was once a garden.\n\nAmongst the fallen bricks <<if $stoneE eq 0>>you see<<else>>there was<<endif>> an angled stone with the letter 'E' carved into it.\n\n<<if $stoneE eq 0>>[[Pick it Up|west][$stoneE = 1]]<<else>>You have taken the stone.<<if $stoneE eq 1>><<set $stonearray.push("E")>><<set $stoneE = 2>><<endif>><<endif>>\n\n[[Go back?|Start2]]

version.extensions.cyclinglinkMacro={major:3,minor:3,revision:0};\nmacros.cyclinglink={handler:function(a,b,c){var rl="cyclingLink";\nfunction toggleText(w){w.classList.remove("cyclingLinkInit");\nw.classList.toggle(rl+"Enabled");w.classList.toggle(rl+"Disabled");\nw.style.display=((w.style.display=="none")?"inline":"none")}switch(c[c.length-1]){case"end":var end=true;\nc.pop();break;case"out":var out=true;c.pop();break}var v="";if(c.length&&c[0][0]=="$"){v=c[0].slice(1);\nc.shift()}var h=state.history[0].variables;if(out&&h[v]===""){return\n}var l=Wikifier.createInternalLink(a,null);l.className="internalLink cyclingLink";\nl.setAttribute("data-cycle",0);for(var i=0;i<c.length;i++){var on=(i==Math.max(c.indexOf(h[v]),0));\nvar d=insertElement(null,"span",null,"cyclingLinkInit cyclingLink"+((on)?"En":"Dis")+"abled");\nif(on){h[v]=c[i];l.setAttribute("data-cycle",i)}else{d.style.display="none"\n}insertText(d,c[i]);if(on&&end&&i==c.length-1){l.parentNode.replaceChild(d,l)\n}else{l.appendChild(d)}}l.onclick=function(){var t=this.childNodes;\nvar u=this.getAttribute("data-cycle")-0;var m=t.length;toggleText(t[u]);\nu=(u+1);if(!(out&&u==m)){u%=m;if(v){h[v]=c[u]}}else{h[v]=""}if((end||out)&&u==m-(end?1:0)){if(end){var n=this.removeChild(t[u]);\nn.className=rl+"End";n.style.display="inline";this.parentNode.replaceChild(n,this)\n}else{this.parentNode.removeChild(this);return}return}toggleText(t[u]);\nthis.setAttribute("data-cycle",u)}}};

<<silently>>\s\n<<set $stoneF = 0>>\n<<set $stoneA = 0>>\n<<set $stoneC = 0>>\n<<set $stoneE = 0>>\n<<set $insertstone = 0>>\n<<set $filledholes = 0>>\n<<set $placed = 0>>\n<<set $stonearray = [] >>\n<<set $holding = $stonearray.length>>\n<<endsilently>>\s\nYou stand amongst a circle of towering, dilapidated ruins, deep in the Forest of Faces.\n\nIn the center of the circle there is a chest height pedastal. Set into the top of it are four rectangular [[depressions]].\n\nThere are paths to the [[north]], [[south]], [[east]], and [[west]].\n\nYou are holding nothing.

<<silently>><<set $holding = $stonearray.length>><<set $holdstones = 0>><<endsilently>>\s\nThere are four square holes in the middle of the circular top of the pedestal. They look as if they are fitted for something in particular.\n\n<<if $filledholes eq 0>>The holes are currently empty.<<elseif $filledholes eq 4>>All the holes have been filled. You feel as though something has changed in the ruins.<<else>>You have placed <<print $filledholes>> stone<<if $filledholes gt 1>>s<<endif>> in the holes.<<endif>> \n\n<<if $stonearray.length eq 0>>\s\nYou are holding nothing.\n<<else>>\s\nYou are holding <<print $stonearray.length>> stone<<print ($stonearray.length gt 1 ? "s": "")>>, the <<display "holdstones">> stone<<print ($stonearray.length gt 1 ? "s": "")>>.\n<<endif>>\s\n\n<<if $holding gt 0>>\s\nPlace a stone: <<display "fillholechoice">>\n\n<<endif>>\s\n[[Raise your eyes.|Start2]]\n\n/% You insert the '<<cyclinglink $insertstone "A" "C" "E" "F">>' stone into one of the slots. \n\n<<if $holding gt 0>>[[Place a stone.|depressions][$filledholes += 1 ; $holding -= 1]]\n\n<<endif>>\s %/

(now with choices!)

Puzzle Test 3.1

D-Money

They banners are embroidered with shimmering golden text.\n\nEach one reads:\n\n"You did it!"\n\n[[Or was it all a dream?|Start]]

You come to a babbling brook.\n\nJust at the edge of the bank, by the shimmering wet rocks, <<if $stoneA eq 0>>you see<<else>>there was<<endif>> an angled stone with the letter 'A' carved into it.\n\n<<if $stoneA eq 0>>[[Pick it Up|east][$stoneA = 1]]<<else>>You have taken the stone.<<if $stoneA eq 1>><<set $stonearray.push("A")>><<set $stoneA = 2>><<endif>><<endif>>\n\n[[Go back?|Start2]]

<<if $stonearray.indexOf("A") gte 0>>[[A|depressions][$stonearray.splice($stonearray.indexOf("A"),1) ; $filledholes += 1]]<<endif>> <<if $stonearray.indexOf("C") gte 0>>[[C|depressions][$stonearray.splice($stonearray.indexOf("C"),1) ; $filledholes += 1]]<<endif>> <<if $stonearray.indexOf("E") gte 0>>[[E|depressions][$stonearray.splice($stonearray.indexOf("E"),1) ; $filledholes += 1]]<<endif>> <<if $stonearray.indexOf("F") gte 0>>[[F|depressions][$stonearray.splice($stonearray.indexOf("F"),1) ; $filledholes += 1]]<<endif>>

You come to the top of a steep hill. At the very top is an ancient, gnarled tree standing alone, its trunk thick and branches twisted.\n\nInside a large knothole <<if $stoneC eq 0>>you see<<else>>there was<<endif>> an angled stone with the letter 'C' carved into it.\n\n<<if $stoneC eq 0>>[[Pick it Up|south][$stoneC = 1]]<<else>>You have taken the stone.<<if $stoneC eq 1>><<set $stonearray.push("C")>><<set $stoneC = 2>><<endif>><<endif>>\n\n[[Go back?|Start2]]