The Nublar lies before you, beautiful and imposing.
You plant your feet on the dock and take a deep breath, appreciating the stability that comes from solid ground after days at sea.
From its highest peaks to its lowest valleys the Nublar beckons for the touch of your hand and the blade of your shovel.
[[Strike the earth.->Week]]
(set: $detail to "The week passes quickly as your construction crews put the finishing touches on your first building, a place to accomodate your visitors upon their arrival.
Now you must prepare for your first guests.")(set: $state to "decide")
(set: $week to 1)
(set: $weather to 1)
(set: $parkOpen to false)
(set: $money to 250000000)
(set: $research to false)
(set: $rcBuild to 20)
(set: $hatchery to false)
(set: $hBuild to 15)
(set: $digSites to 0)
(set: $dBuild to 5)
(set: $emptyPaddocks to 0)
(set: $pBuild to 10)
(set: $restaurants to 0)
(set: $rBuild to 15)
(set: $rides to 0)
(set: $riBuild to 50)
(set: $detail to "")
(set: $rexResearch to 450)
(set: $raptResearch to 250)
(set: $triResearch to 150)
(set: $stegResearch to 300)
(set: $rexCost to 300)
(set: $raptCost to 50)
(set: $triCost to 100)
(set: $stegCost to 150)
(set: $rexPaddocks to 0)
(set: $raptPaddocks to 0)
(set: $triPaddocks to 0)
(set: $stegPaddocks to 0)
(set: $hype to 0)
(set: $deadVisitors to 0)
(set: $lawsuit to 0)
(set: $danger to 0)
(set: $stability to 500)
(set: $dna to 0)
(set: $digSiteIncome to 50)
(set: $visitors to 0)
(set: $visitorIncome to 500)
(set: $restaurantIncome to 75)
(set: $warned to false)(set: $week to $week + 1)
(display: "setWeather")
(set: $state to "decide")
(if: $parkOpen is true)
[
(display: "getHype")
(display: "doMaintenance")
]
(if: $digSites > 0)
[
(set: $addDNA to $digSiteIncome * $digSites)
(set: $dna to $dna + $addDNA)
(set: $detail to $detail + "
Your dig sites yield $addDNA DNA")
]
(if: $visitors > 0)
[
(display: "addMoney")
(display: "doDamage")
(display: "lawsuit")
]
(elseif: $parkOpen is true)
[
(set: $detail to $detail + "
No visitors arrive in the park. Try creating some new dinosaurs for them to see.")
]
(if: $money <= 0)[(set: $state to "gameOver")]
(goto: "Week")(if: $weather is 1)[The skies are clear and the sun is out.] (if: $weather is 2)[It is overcast and humid.] (if: $weather is 3)[It is a dreary and rainy.] (if: $weather is 4)[A storm is brewing.] (if: $weather is 5)[The storm has passed.] (if: $weather is 6)[A hurricane rages across the Nublar.]Week: $week
(set: $totalMoneyDisplay to $money / 1000000)You have $$totalMoneyDisplay millon and $dna DNA.
(display: "Display Weather")
(if: $parkOpen is false)[The park is closed.] (if: $research is false)[[[Build Research Center ($rcBuild mil)->BuildResearch]]](else:)[Research Center Already Built.]
(if: $hatchery is false and $research is true)[[[Build Hatchery ($$hBuild mil)->BuildHatchery]]](else-if: $hatchery is false and $research is false)[Build Hatchery (Requires Reseach Center)](else:)[Hatchery Already Built]
[[Build Dig Site ($$dBuild mil)->BuildDig]]
[[Build Dinosaur Paddock ($$pBuild mil)->BuildPaddock]]
[[Build Restaurant ($$rBuild mil)->BuildRestaurant]]
[[Build Ride ($$riBuild mil)->BuildRide]]
[[Back->BackToMenu]](if: $money > $rcBuild * 1000000)[(set: $detail to "Your workers begin construction of a research center. Upon completion a team of scientists arrive on the Nublar and prepare to work.")(set: $research to true)(set: $money to $money - $rcBuild * 1000000)(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](if: $money > $hBuild * 1000000)(set: $detail to "You place an order for the equipment required to operate a hatchery and it arrives in a few short days. The researchers are brimming with excitement at the prospect of beginning the de-extinction process.")(set: $hatchery to true)(set: $money to $money - $hBuild * 1000000)(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](if: $money > $dBuild * 1000000)[(set: $digSites to $digSites + 1)(set: $money to $money - $dBuild * 1000000)(if: $digSites = 1)[(set: $digDesc to "site")](if: $digSites > 1)[(set: $digDesc to "sites")](set: $detail to "A team of paleontologists scours the island looking for a good place to establish a dig. Soon after they return with news of fossils they have uncovered.
You now have $digSites dig $digDesc")(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](if: $money > $rBuild * 1000000)[(set: $restaurants to $restaurants + 1)(set: $money to $money - $rBuild * 1000000)(set: $visitorIncome to $visitorIncome + $restaurantIncome)(if: $restaurants = 1)[(set: $restDesc to "restaurant")](if: $restaurants > 1)[(set: $restDesc to "restaurants")](set: $detail to "You construct a new restaurant for your guests to visit and hire a world-class chef to run its kitchen. Your guests will now spend more money during their time on the Nublar.
You have $restaurants $restDesc")(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](if: $money > $riBuild * 1000000)[(set: $rides to $rides + 1)(set: $money to $money - $riBuild * 1000000)(set: $hype to $hype + $rideHype)(if: $rides = 1)[(set: $rideDesc to "ride")](if: $rides > 1)[(set: $rideDesc to "rides")](set: $detail to "You decide to build something to entertain the biggest thrill seekers amongst your guests and hire a team of engineers to construct a roller coaster. Visitors may come for the dinosaurs, but they'll stay for the rides.
You have built $rides $rideDesc")(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](print: $detail)
[[Build->SetBuild]]
(if: $research is true)[[[Research->SetResearch]]](else:)[Research (Requires Research Center)]
(if: $hatchery is true)[[[Clone->SetClone]]](else:)[Clone (Requires Hatchery)]
[[Check Park Status->SetShowStatus]]
(if: $parkOpen is false)[[[Open the park->SetParkOpen]]](else:)[[[Do Nothing->Nothing]]](display: "Day Start")
(display: $state)(set: $state to "build")
(goto: "Week")(set: $state to "research")
(goto: "Week")(set: $state to "decide")(goto: "Week")(set: $state to "clone")
(goto: "Week")(set: $detail to "Your staff spends the week making final preparations to open the park to the excited public.")(set: $parkOpen to true)
(goto: "NewWeek")(print: $detail)
You glance at your account balance and find it to be [[far in the red->gameOverDecision]].(if: $money > $pBuild * 1000000)[(set: $emptyPaddocks to $emptyPaddocks + 1)(set: $money to $money - $pBuild * 1000000)(if: $emptyPaddocks = 1)[(set: $penDesc to "paddock")](if: $emptyPaddocks > 1)[(set: $penDesc to "paddocks")](set: $detail to "Your engineers construct a new dinosaur paddock following all of the required safety protocols (minus the ones that cost more to implement than the fines you would get, of course)
You have $emptyPaddocks empty $penDesc awaiting new dinosaurs")(goto: "NewWeek")]
(else:)[[[You don't have enough money for this.->build]]](if: $triResearch > 0)[[[Research Triceratops ($triResearch DNA)->ResearchTrike]]](else:)[Triceratops already Researched]
(if: $stegResearch > 0)[[[Research Stegosaurus ($stegResearch DNA)->ResearchSteg]]](else:)[Stegosaurus already Researched]
(if: $raptResearch > 0)[[[Research Velociraptor ($raptResearch DNA)->ResearchRaptor]]](else:)[Velociraptor already Researched]
(if: $rexResearch > 0)[[[Research T-Rex ($rexResearch DNA)->ResearchRex]]](else:)[T-Rex already Researched]
[[Back->BackToMenu]](if: $dna >= $rexResearch)[(set: $detail to "It takes a whole pile of DNA to do it but your research team, in what could only be described as 'a terrible idea,' has successfully learned how to clone a Tyrannosaurus Rex.")(set: $dna to $dna - $rexResearch)(set: $rexResearch to 0)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->research]]](if: $dna >= $raptResearch)[(set: $detail to "It only takes a day or two for the research team to assemble a viable strain of Velociraptor DNA, but as it turns out it takes a whole week to decide whether or not to give them feathers.")(set: $dna to $dna - $raptResearch)(set: $raptResearch to 0)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->research]]](if: $dna >= $triResearch)[(set: $detail to "Your researchers manage to piece together enough Triceratops DNA to figure out how they might go about creating one of their own. The prospect of having a giant 3-horned reptile sauntering around your park excites you.")(set: $dna to $dna - $triResearch)(set: $triResearch to 0)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->research]]](if: $dna >= $stegResearch)[(set: $detail to "Your researchers have recently uncovered a number of large flat bones that they assume once belonged to a Stegosaurus and believe these will yield an accurate recreation. Either way, it's not like anyone would complain if it's a little off.")(set: $dna to $dna - $stegResearch)(set: $stegResearch to 0)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->research]]]Empty Dinosaur Paddocks: $emptyPaddocks
(if: $emptyPaddocks is 0)[You have nowhere to place new dinosaurs. Build a new Dinosaur Paddock first](else:)[(if: $triResearch is 0)[[[Clone Triceratops ($triCost DNA)->CloneTrike]]](else:)[Triceratops not yet researched]
(if: $stegResearch is 0)[[[Clone Stegosaurus ($stegCost DNA)->CloneSteg]]](else:)[Stegosaurus not yet researched]
(if: $raptResearch is 0)[[[Clone Velociraptor ($raptCost DNA)->CloneRaptor]]](else:)[Velociraptor not yet researched]
(if: $rexResearch is 0)[[[Clone T-Rex ($rexCost DNA)->CloneRex]]](else:)[T-Rex not yet researched]]
[[Back->BackToMenu]](if: $dna >= $triCost)[(set: $triPaddocks to $triPaddocks + 1)(set: $emptyPaddocks to $emptyPaddocks - 1)(set: $detail to "The new Triceratops that comes out of your hatchery is so adorable that you begin to reconsider your failed plans for a baby dino petting zoo.
A lot of that cuteness quickly washes away after the scientists yet again try to nickname it 'Big Horny Boy.'")(set: $dna to $dna - $triCost)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->clone]]](if: $dna >= $stegCost)[(set: $stegPaddocks to $stegPaddocks + 1)(set: $emptyPaddocks to $emptyPaddocks - 1)(set: $detail to "The prospect of cloning a new Stegosaurus seems surprisingly exciting to the team.
You suspect it's because a Stegosaurus doesn't have claws that allow it to open doors. You don't bother to point out the fact that no lab door could stop a charging Stegosaurus. It's best they not find out how you know that.")(set: $dna to $dna - $stegCost)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->clone]]](if: $dna >= $raptCost)[(set: $raptPaddocks to $raptPaddocks + 1)(set: $emptyPaddocks to $emptyPaddocks - 1)(set: $detail to "You order your scientists to clone a new pack of Velociraptors. They appear hesitant to do so, requiring you to remind them of who it is that signs their paychecks.")(set: $dna to $dna - $raptCost)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->clone]]](if: $dna >= $rexCost)[(set: $rexPaddocks to $rexPaddocks + 1)(set: $emptyPaddocks to $emptyPaddocks - 1)(set: $detail to "The science team gets to work creating a brand new T-Rex for paying tourists to gawk at. You just hope none of them lean too far over the safety railings. Nobody wants their giant carnivorous lizard to go viral.")(set: $dna to $dna - $rexCost)(goto: "NewWeek")]
(else:)[[[You don't have enough DNA for this.->clone]]](set: $hype to 0)
(set: $hype to $hype + $rexPaddocks * 25)
(set: $hype to $hype + $raptPaddocks * 20)
(set: $hype to $hype + $triPaddocks * 10)
(set: $hype to $hype + $stegPaddocks * 15)
(set: $hype to $hype + $rides * 30)
(set: $hype to $hype - $deadVisitors * 5)
(if: $deadVisitors > 20 and $warned is false)
[
(set: $detail to $detail + "
Your park is beginning to have a bad reputation and attendance is dropping.")(set: $warned to true)
]
(if: $hype > 0)
[
(if: $weather is 1)[(set: $hype to $hype * 1.5)]
(if: $weather is 6)[(set: $hype to $hype * 0.5)]
]
(set: $hype to (round: $hype))
(set: $visitors to $hype * (random: 75, 100))
(set: $visitors to (round: $visitors))Restaurants: $restaurants
Rides: $rides
Empty Paddocks: $emptyPaddocks
Triceratops Paddocks: $triPaddocks
Stegosaurus Paddocks: $stegPaddocks
Velociraptor Paddocks: $raptPaddocks
T-Rex Paddocks: $rexPaddocks
[[Back->BackToMenu]](set: $state to "status")
(goto: "Week")(if: $weather is 1 or 2 or 3)[(set: $weather to (random: 1, 3))]
(if: $weather is 4)[(set: $weather to (random: 5, 6))]
(if: $weather is 5)[(set: $weather to 1)]
(if: $weather is 6)[(set: $weather to (random: 5, 6))]
(if: $weather is 3)[(set: $weather to (either: 3, 3, 4))] (set: $stability to $stability - $rexPaddocks * 20)
(set: $stability to $stability - $raptPaddocks * 25)
(set: $stability to $stability - $triPaddocks * 15)
(set: $stability to $stability - $stegPaddocks * 10)
(if: $stability < 0)
[
(set: $killed to (random: 5, 15))
(if: $killed > $visitors)[(set: $killed to $visitors)]
(set: $breakoutDino to (random: 1, 4))
(if: $breakoutDino is 1)[(if: $rexPaddocks > 0)[(set: $detail to $detail + "
One of your T-Rex paddocks experienced a power failure. In the ensuing chaos $killed of your visitors were eaten before security managed to dose it with enough horse tranquilizer.")(set: $stability to 400)(set: $deadVisitors to $deadVisitors + $killed)(set: $lawsuit to $lawsuit + $killed)]
(else:)[(set: $breakoutDino to (random: 2, 4))]]
(if: $breakoutDino is 2)[(if: $raptPaddocks > 0)[(set: $detail to $detail + "
Someone forgot to lock one of the doors of the Raptor paddock and a pack of them escaped into the park. It took a few days for security to track them down and recapture them, and in the mean time they killed $killed people. At least, that's how many bodies you managed to find.")(set: $stability to 400)(set: $deadVisitors to $deadVisitors + $killed)(set: $lawsuit to $lawsuit + $killed)]
(else:)[(set: $breakoutDino to (random: 3, 4))]]
(if: $breakoutDino is 3)[(if: $triPaddocks > 0)[(set: $detail to $detail + "
An adorable Triceratops broke free from its paddock during a busy afternoon and charged around the park, impaling $killed people before your security team managed to herd it back into its enclosure.")(set: $stability to 400)(set: $deadVisitors to $deadVisitors + $killed)(set: $lawsuit to $lawsuit + $killed)]
(else:)[(set: $breakoutDino to 4)]]
(if: $breakoutDino is 4 and $stegPaddocks > 0)[(set: $detail to $detail + "
A big friendly looking Stegosaurus managed to saunter out of its paddock while the door mechanism was being serviced. Between the stomping and the spikiness of its tail it left $killed bodies behind it.")(set: $stability to 400)(set: $deadVisitors to $deadVisitors + $killed)(set: $lawsuit to $lawsuit + $killed)]
](set: $maintenance to $rexPaddocks + $raptPaddocks + $stegPaddocks + $triPaddocks + $rides + $restaurants)
(set: $maintenance to $maintenance / 2)
(if: $maintenance > 0)
[
(set: $detail to $detail + "
Your crew spends $$maintenance million performing maintenance around the park.")
(set: $money to $money - $maintenance * 1000000)
](if: $lawsuit > (random: 25, 40))
[
(set: $lawsuitCost to $lawsuit * (random: 1, 3))
(set: $deadDisplay to $lawsuit)
(set: $costDisplay to $lawsuitCost)
(set: $detail to $detail + "
The families of the last $deadDisplay people to die on the Nublar bring a lawsuit against you, costing you $$costDisplay million.")
(set: $lawsuitCost to $lawsuitCost * 1000000)
(set: $money to $money - $lawsuitCost)
(set: $lawsuit to 0)
]You wince as the phone rings, knowing all too well who will be on the other line.
What do you tell the board of directors in such a scenario?
Do you claim that none of this is your fault? That with another investment, a few years, and a solid rebranding you could [[build a new park right on top of the old one?->Rebuild]]
Or do you admit that a dinosaur theme park is a [[terrible idea that costs innocent lives in the pursuit of profit->Admit]]You lay yourself at the feet of the board and demand another chance.
They don't even hesitate to give you the capital that you need to [[start over.->StartOver]]You tell the board to shut it all down. To raze the park and release the dinosaurs into the wilds of the Nublar.
They laugh and tell you to clean out your desk.
If you won't build the Nublar, they'll [[find someone else who will->Fired]](display: "Initialize variables")
(set: $detail to "The Nublar greets you with familiar sights. The same dock you set foot on not that many years ago welcomes you once more. The old visitor's center is overgrown, but in just a few days the build crew gets it back up and running.
Time to give this another go then.")
(goto: "Week")(goto: "GameStart")(set: $addMoney to (round: $visitors * $visitorIncome))
(set: $money to $money + $addMoney)
(set: $addMoneyDisplay to $addMoney / 1000000)
(set: $detail to $detail + "
$visitors people visit your park and earn you $$addMoneyDisplay million in profits.")(set: $detail to "You decide that the park is best left the way it is. For this week, at least.")
(goto: "NewWeek")(display: "Initialize variables")
(goto: "Welcome")