<<if $injured eq 1 or $bitten gte 2>>You bear your many injuries stoically, as befits a unicorn-hunter in a gritty and extremely realistic post-apocalyptic unicorn-infested wasteland. <<endif>> It's time for you to head back to your home base and regroup. Your trophy chain clatters satisfyingly by your side. \n\nSome day, they'll tell legends about you.
You are a freelance unicorn hunter. For years, you've walked the mean streets fearlessly. Looking for trouble, and finding it. You don't fear the vicious devil-beasts, they fear you. If you see one, all you have to do is introduce it to the business end of your shotgun. \n\nYou've never missed. If you'd missed, you'd be dead now, just another sad body impaled upon the consequences of their own recklessness. But you're not reckless. No, you know that you can beat any devil-beast that crosses your path. And so you shoulder your trusty shotgun and head out once more into the wild. \n\nIt's hunting time. \n\n<<if $buildings gt 0 and $buildings eq $buildingsSearched>>\s\n* [[Search another street|Stalk the streets][$buildings = 0, $buildingsSearched = 0, $repeat = 1]]\s\n<<else>><<if $repeat eq 1>>\s\n* [[Stalk the streets some more|Stalk the streets]]\n<<else>>* [[Stalk the streets]] <<endif>><<endif>>\s\n<<if $cars gt 0 and $cars eq $carsSearched>>\s\n* [[Wander farther down the highway|Wander the highway][$cars = 0, $carsSearched = 0]]\s\n<<else>>\s\n* [[Wander the highway]]<<endif>>\n\nIf you want to check how many unicorns you've taken down, [[count your hunting trophies|Your trophy chain]].
<<silently>>\n<<if $buildings eq 0>>\n<<set $buildings = random(1, 4)>>\n<<set $buildingsSearched = 0>>\n<<endif>>\n<<endsilently>>Most buildings on this street are boarded up, if they're not secure and highly guarded safe-houses where the citizenry hides in relative peace. \n\nThere are <<print $buildings>> derelict buildings on the street. [[Start searching|Search the derelict building]].
<<if $i lt $devilBeasts.length>>\s\n<<nobr>>\n<<if $devilBeastCount[$i] eq 1>>\nOne bloody <<print $devilBeasts[$i]>> devil-beast horn\n<<else>>\n<<print $devilBeastCount[$i]>> bloody <<print $devilBeasts[$i]>> devil-beast horns\n<<endif>>\n<<endnobr>>\n<<set $i = $i + 1>><<display "Count the trophies">><<endif>>
On your way back to home base, your hastily field-bandaged injuries start bleeding again. The smell of blood is on the wind. In the distance, you hear a horrifying bellow like a diabolic neigh. \n\nYour last comfort as the thundering sound of hooves draws nearer, is knowing that even without you, the hunt goes on.
<<silently>>\n<<if $cars eq 0>>\n<<set $cars = random(1, 7)>>\n<<set $carsSearched = 0>>\n<<endif>>\n<<endsilently>>The highway is littered with abandoned vehicles, some of them just standing by the roadside, others crashed into massive pileups. You surround them carefully, checking for devil-beast ambushes. \n\nThere are <<print $cars>> abandoned cars on the road. [[Start searching|Check behind the car]].
Back home, you have dozens of these hanging on the walls, spoils of your endless war against the spear-headed brutes. You hope to add an extravagant sample after today's hunt. \n\nYour trophy chain has <<print $totalUnicorns>> unicorn horns hanging from it. You've been bitten <<print $bitten>> times during the hunt. <<if $injured gt 0>>You're badly injured. It might be time to call it quits.<<endif>> \n\nThese are your trophies: \n<<set $i = 0>><<display "Count the trophies">>\n\n<<if $injured gt 1>>\s\n* [[Finish|The hunt continues...]]\n<<else>>\s\n* [[Go back|The hunt begins]] \n* [[Finish|A triumphant return]]\n<<endif>>
a gritty realistic reimagining of cult-classic //Box of Unicorns//
!Box of Unicorns\n!!The Gritty Reboot\n\n!!!The world is a grim hellscape terrorized by mono-horned devil-beasts. It is your job to [[rid the world of them forever|The hunt begins]]. \n\n<<display "No unicorns here">>
body {\nbackground-color: #000010;\nfont-family: Steelfish Rg, Steelfish, Liberation Sans Narrow, Verdana, sans-serif;\nfont-size: 14pt;\ncolor: #fefefe;\n}\n\n.passage a {\ncolor: #cc3333;\n}\n\n.passage a:hover {\ncolor: #ff6666;\n}\n\nh1 {\nfont-size: 24pt;\nfont-weight: normal;\nfont-family: Mocha, Liberation Sans Narrow, sans-serif;\n}\n\nh2 {\nfont-size: 18pt;\nfont-weight: bold;\nfont-family: Mocha, Liberation Sans Narrow, sans-serif;\n}\n\nh3 {\nfont-size: 14pt;\nfont-weight: normal;\nfont-family: Mocha, Liberation Sans Narrow, sans-serif;\n}
Unicorn Hunt
a game by Hazel\n(a veteran unicorn-hunter)
<<silently>>\n<<set $carsSearched = $carsSearched + 1>>\n<<endsilently>>\n<<display "Put it down!">>\n\nYou have now searched <<print $carsSearched>> out of <<print $cars>> abandoned vehicles. \n\n<<if $carsSearched lt $cars>>\s\n* [[Check the next pileup|Check behind the car]]. <<endif>>\s\n* [[Search somewhere else|The hunt begins]].
<<silently>>\n<<set $buildingsSearched = $buildingsSearched + 1>>\n<<endsilently>>\n<<display "Put it down!">>\n\nYou have now searched <<print $buildingsSearched>> out of <<print $buildings>> derelict buildings. \n\n<<if $buildingsSearched lt $buildings>>\s\n* [[Move on to the next building|Search the derelict building]]. <<endif>>\s\n* [[Search somewhere else|The hunt begins]].
<<silently>>\n<<set $totalUnicorns = 0>>\n<<set $devilBeasts = []>>\n<<set $devilBeastCount = []>>\n<<set $bitten = 0>>\n<<set $injured = 0>>\n<<set $buildings = 0>>\n<<set $buildingsSearched = 0>>\n<<set $repeat = 0>>\n<<set $rooms = 0>>\n<<set $roomsSearched = 0>>\n<<set $cars = 0>>\n<<set $carsSearched = 0>>\n<<endsilently>>
<<silently>>\n<<set $color = either("white", "black", "gray", "dappled", "roan", "dun", "bay", "chestnut")>>\n<<set $count = random(1, 3)>>\n<<set $ouch = random(0, 1)>>\n<<set $damage = random(0, 1)>>\n\n<<set $index = $devilBeasts.indexOf($color)>>\n\n<<if $index gte 0>>\n\t<<set $oldcount = $devilBeastCount[$index]>>\n\t<<set $devilBeastCount[$index] = $oldcount + $count>>\n<<else>>\n\t<<set $devilBeasts.push($color)>>\n\t<<set $devilBeastCount.push($count)>>\n<<endif>>\n\n<<set $totalUnicorns = $totalUnicorns + $count>>\n\n<<endsilently>><<nobr>>\n<<if $count gt 1>>A group of <<print $count>> feral <<print $color>> unicorns charge at you. You shoot down every single one swiftly and accurately. \n<<else>>\nYou sight a ferocious <<print $color>> unicorn. With cool confidence, you take aim and bring it down with a single shot. \n<<endif>>\n\n<<if $ouch>><<set $bitten = $bitten + 1>>\nDepite your crack marksmanship abilities, a devil-beast sinks its teeth into your flesh. \n<<if $bitten gte 3 and $damage eq 1>><<set $injured = $injured + 1>>\nThe bite is deep. You've been badly injured. \n<<endif>>\n<<endif>><<endnobr>>