The Last Forest

<img src="http://brendanmyers.net/games/LastForest-title.jpg"> [[Learn the story->story]] • [[How to play->continue story]] • [[Enter the forest->Setting Up]] \ "The Last Forest" version 1 (2020-05-04). Copyright by <a href="http://brendanmyers.net">Brendan Myers</a>, 2020. Created using <a href="http://twinery.org">Twine</a> (version 2.3.7). [[Photo credits and developer's notes->Developer notes]]

The world ignored the warnings of the scientists, and so the climate crisis continued. Two hundred and fifty years of heat waves, droughts, wild fires, and megastorms, damaged the delicate ecology of the planet, until most of land and sea turned into deadzone. In a sheltered and remote valley, near the transition between the temperate forest and the boreal forest, and far from the refugee camps and the corporate zones, there lay three hundred square kilometers where trees still grew tall, flowers still bloomed, birds still sang, and rivers ran clean. The Last Forest. And you are its chief ecologist, in charge of its protection. If you can keep the forest alive, then other lands and peoples will follow your lead, helping you to restore life to the whole planet. And to restore a better future for humanity. |= [[How to play->continue story]] =|= [[Begin the game->Setting Up]] </p? |==|

setting up the initial state of the world... \  (set: $shield to (a: 10, 250, 10, 1)) (set: $wetland to (a: 25, 1500, 25, 1)) (set: $grassland to (a: 25, 1500, 25, 1)) (set: $deciduous to (a: 120, 1200, 120, 1)) (set: $coniferous to (a: 120, 1200, 120, 1)) \ \ (set: $aquaplant to (a: (1st of $wetland * 2nd of $wetland), 12, 0, (1st of $wetland * 2nd of $wetland),1 )) (set: $landplant to (a: ((1st of $grassland * 2nd of $grassland)+(1st of $deciduous * 2nd of $deciduous)+(1st of $coniferous *2nd of $coniferous)), 25, 0, ((1st of $grassland * 2nd of $grassland)+(1st of $deciduous * 2nd of $deciduous)+(1st of $coniferous *2nd of $coniferous)), 1 )) (set: $broadleaf to (a: (1st of $deciduous * 2nd of $deciduous), 5.5, 0, (1st of $deciduous * 2nd of $deciduous), 1 )) (set: $evergreen to (a: (1st of $coniferous * 2nd of $coniferous), 5, 0, (1st of $coniferous * 2nd of $coniferous), 1)) (set: $smallherb to (a: 2000, 9, 0, 2000, 1)) (set: $midherb to (a: 100, 3, 0, 100, 1)) (set: $wetmammal to (a: 12, 1.5, 0, 12, 1)) (set: $largeherb to (a: 10, 1.3, 0, 10, 1)) (set: $midcarn to (a: 20, 1.4, 0, 20, 1)) (set: $topfeline to (a: 10, 1.3, 0, 10, 1)) (set: $topcanid to (a: 8, 1.2, 0, 8, 1)) (set: $scavenger to (a: (1st of $shield * 2nd of $shield), 5, 0, (1st of $shield * 2nd of $shield), 1)) (set: $smallbird to (a: ((1st of $deciduous * 2nd of $deciduous)+(1st of $coniferous *2nd of $coniferous)), 7.5, 0, ((1st of $deciduous * 2nd of $deciduous)+(1st of $coniferous *2nd of $coniferous)), 1)) (set: $midbird to (a: 20, 4.5, 0, 20, 1)) (set: $wetbird to (a: 40, 4.5, 0, 40, 1)) (set: $topavian to (a: 12, 1.2, 0, 12, 1)) (set: $reptile to (a: 400, 3, 0, 400, 1)) (set: $amphibian to (a: (1st of $aquaplant * 2nd of $aquaplant), 25, 0, (1st of $aquaplant * 2nd of $aquaplant), 1)) (set: $smallfish to (a: 2000, 15, 0, 2000, 1)) (set: $midfish to (a: 20, 4, 0, 20, 1)) (set: $topfish to (a: 8, 3, 0, 8, 1)) \ \(set: $totalarea to 300, $deadzone to "place holder", $milestone to "None", $biodiversity to 21, $breeder to (a: "none", 0)) (goto: "interface")

//How to play:// In each turn of the game, you'll be shown the overall state of the forest: which kinds of life-forms are present, how many they are, and whether their popluations are trending up or down. Every kind of life-form in the forest has some relation to every other: some relations are distant, some are very close. Some species grow directly from the landscape, in proportion to how large its home ecosystem is. Some grow in proportion to how much prey there is to eat. Some species gain habitat from other species without causing their benefactors any harm. Furthermore, the landscapes themselves-- the five ecosystems of shield land, grassland, wetland, coniferous forest, and deciduous forest-- also grow and change over time, under the influence of some of the animals and plants that live in them. And finally pollution will poison the waters, airs, and soils of the forest, causing the forest to decline into deadzone, slowly but relentlessly. If one of your ecosystems loses all its plants, the deadzone will claim it faster. [[Continue->how to play]]

Ecologist's Report 2: Species Loss. \ \(if: last of $aquaplant is 0 and 1st of $aquaplant is not 0)[ All of the wetland plants have died!] \(set: 4th of $aquaplant to 1st of $aquaplant) \(set: 1st of $aquaplant to (round: last of $aquaplant)) \(if: last of $landplant is 0 and 1st of $landplant is not 0)[ All of the ground cover plants have died!] \(set: 4th of $landplant to 1st of $landplant) \(set: 1st of $landplant to (round: last of $landplant)) \(if: last of $broadleaf is 0 and 1st of $broadleaf is not 0)[ All of the broadleaf trees have died!] \(set: 4th of $broadleaf to 1st of $broadleaf) \(set: 1st of $broadleaf to (round: last of $broadleaf)) \(if: last of $evergreen is 0 and 1st of $evergreen is not 0)[ All of the evergreen trees have died!] \(set: 4th of $evergreen to 1st of $evergreen) \(set: 1st of $evergreen to (round: last of $evergreen)) \(if: last of $smallherb is 0 and 1st of $smallherb is not 0)[ All of the small herbivores have died!] \(set: 4th of $smallherb to 1st of $smallherb) \(set: 1st of $smallherb to (round: last of $smallherb)) \(if: last of $midherb is 0 and 1st of $midherb is not 0)[ All of the midsize herbivores have died!] \(set: 4th of $midherb to 1st of $midherb) \(set: 1st of $midherb to (round: last of $midherb)) \(if: last of $wetmammal is 0 and 1st of $wetmammal is not 0)[ All of the wetland mammals have died!] \(set: 4th of $wetmammal to 1st of $wetmammal) \(set: 1st of $wetmammal to (round: last of $wetmammal)) \(if: last of $largeherb is 0 and 1st of $largeherb is not 0)[ All of the large herbivores have died!] \(set: 4th of $largeherb to 1st of $largeherb) \(set: 1st of $largeherb to (round: last of $largeherb)) \(if: last of $midcarn is 0 and 1st of $midcarn is not 0)[ All of the midsize carnivores have died!] \(set: 4th of $midcarn to 1st of $midcarn) \(set: 1st of $midcarn to (round: last of $midcarn)) \(if: last of $topfeline is 0 and 1st of $topfeline is not 0)[ All of the top feline carnivores have died!] \(set: 4th of $topfeline to 1st of $topfeline) \(set: 1st of $topfeline to (round: last of $topfeline)) \(if: last of $topcanid is 0 and 1st of $topcanid is not 0)[ All of the top canid carnivores have died!] \(set: 4th of $topcanid to 1st of $topcanid) \(set: 1st of $topcanid to (round: last of $topcanid)) \(if: last of $scavenger is 0 and 1st of $scavenger is not 0)[ All of the scavengers have died!] \(set: 4th of $scavenger to 1st of $scavenger) \(set: 1st of $scavenger to (round: last of $scavenger)) \(if: last of $smallbird is 0 and 1st of $smallbird is not 0)[ All of the small forest birds have died!] \(set: 4th of $smallbird to 1st of $smallbird) \(set: 1st of $smallbird to (round: last of $smallbird)) \(if: last of $midbird is 0 and 1st of $midbird is not 0)[ All of the midsize forest birds have died!] \(set: 4th of $midbird to 1st of $midbird) \(set: 1st of $midbird to (round: last of $midbird)) \(if: last of $wetbird is 0 and 1st of $wetbird is not 0)[ All of the wetland birds have died!] \(set: 4th of $wetbird to 1st of $wetbird) \(set: 1st of $wetbird to (round: last of $wetbird)) \(if: last of $topavian is 0 and 1st of $topavian is not 0)[ All of the top predator birds have died!] \(set: 4th of $topavian to 1st of $topavian) \(set: 1st of $topavian to (round: last of $topavian)) \(if: last of $reptile is 0 and 1st of $reptile is not 0)[ All of the reptiles have died!] \(set: 4th of $reptile to 1st of $reptile) \(set: 1st of $reptile to (round: last of $reptile)) \(if: last of $amphibian is 0 and 1st of $amphibian is not 0)[ All of the amphibians have died!] \(set: 4th of $amphibian to 1st of $amphibian) \(set: 1st of $amphibian to (round: last of $amphibian)) \(if: last of $smallfish is 0 and 1st of $smallfish is not 0)[ All of the small fish have died!] \(set: 4th of $smallfish to 1st of $smallfish) \(set: 1st of $smallfish to (round: last of $smallfish)) \(if: last of $midfish is 0 and 1st of $midfish is not 0)[ All of the midsize fish have died!] \(set: 4th of $midfish to 1st of $midfish) \(set: 1st of $midfish to (round: last of $midfish)) \(if: last of $topfish is 0 and 1st of $topfish is not 0)[ All of the top predator fish have died!] \(set: 4th of $topfish to 1st of $topfish) \(set: 1st of $topfish to (round: last of $topfish)) [[continue to new month->interface]]

\(set: $biodiversity to 0) \(if: 1st of $aquaplant is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $landplant is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $broadleaf is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $evergreen is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $smallherb is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $midherb is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $wetmammal is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $largeherb is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $midcarn is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $topfeline is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $topcanid is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $scavenger is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $smallbird is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $midbird is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $wetbird is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $topavian is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $reptile is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $amphibian is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $smallfish is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $midfish is > 0)[(set: $biodiversity to it +1)] \(if: 1st of $topfish is > 0)[(set: $biodiversity to it +1)] \(if: $totalarea is >= 350 and $milestone is "None")[(goto: "first milestone reached")] \(if: $totalarea is >= 400 and $biodiversity is >= 12 and $milestone is "First")[(goto: "second milestone reached")] \(if: $totalarea is >= 450 and $biodiversity is >= 15 and $milestone is "Second")[(goto: "third milestone reached")] \(if: $totalarea is >= 500 and $biodiversity is >= 18 and $milestone is "Third")[(goto: "fourth milestone reached")] \(display: "display organisms")  \(if: $milestone is "None")[Grow the forest to 350 km^^2^^.] \(if: $milestone is "First")[Grow the forest to 400 km^^2^^, and keep 12 organism groups alive.] \(if: $milestone is "Second")[Grow the forest to 450 km^^2^^, and keep 15 organism groups alive.] \(if: $milestone is "Third")[Grow the forest to 500 km^^2^^ and keep 18 organism groups alive.] \(if: $milestone is "Success")[Experiment and see what happens!] |= <center>[[Let nature run its course.->ecological succession]] [[Add or remove plants->new plants]] [[Add or remove land animals->new land animals]] [[Add or remove fish and birds->new fish and birds]] </center> =|= <center>[[Decontaminate 10 km^^2^^ of deadzone->clean deadzone]] [[Hire breeders->hire specialists]] [[Genetics lab->genetics lab]] [[Resign, and get final score->resign]] </center> |==|

\ <!~- Wetland plants --> (if: 1st of $aquaplant > 0)[ (set: last of $aquaplant to 1st of $aquaplant * ( (1st of $wetland * 2nd of $wetland) / 1st of $aquaplant))] (if: last of $aquaplant > (1st of $aquaplant * 2nd of $aquaplant))[(set: last of $aquaplant to (1st of $aquaplant * 2nd of $aquaplant))] (if: last of $aquaplant < 0)[(set: last of $aquaplant to 0)]  (if: 1st of $landplant is > 0)[ (set: last of $landplant to 1st of $landplant * ( ( (1st of $grassland * 2nd of $grassland) + (1st of $deciduous * 2nd of $deciduous) + (1st of $coniferous * 2nd of $coniferous) ) / 1st of $landplant) ) ] (set: last of $landplant to it - (10 * 1st of $smallherb) - (10 * 1st of $midherb) - (10 * 1st of $largeherb) ) (if: last of $landplant > 1st of $landplant * 2nd of $landplant)[(set: last of $landplant to 1st of $landplant * 2nd of $landplant)] (if: last of $landplant < 0)[(set: last of $landplant to 0)]  (if: 1st of $broadleaf is > 0)[ (set: last of $broadleaf to 1st of $broadleaf * ((1st of $deciduous * 2nd of $deciduous) / 1st of $broadleaf))] (set: last of $broadleaf to it - (10 * 1st of $wetmammal) - (10 * 1st of $midherb) ) (if: last of $broadleaf > 1st of $broadleaf * 2nd of $broadleaf)[(set: last of $broadleaf to 1st of $broadleaf * 2nd of $broadleaf)] (if: last of $broadleaf < 0)[(set: last of $broadleaf to 0)]  (if: 1st of $evergreen is > 0)[ (set: last of $evergreen to 1st of $evergreen * ((1st of $coniferous * 2nd of $coniferous) / 1st of $evergreen) ) ] (set: last of $evergreen to it - (10 * 1st of $largeherb)) (if: last of $evergreen > 1st of $evergreen * 2nd of $evergreen)[(set: last of $evergreen to 1st of $evergreen * 2nd of $evergreen)] (if: last of $evergreen < 0)[(set: last of $evergreen to 0)]  (if: 1st of $smallherb > 0 )[ (set: last of $smallherb to 1st of $smallherb * ( (0.1 * 1st of $landplant) / 1st of $smallherb )) ] (set: last of $smallherb to it - (10 * 1st of $midcarn) - (10 * 1st of $midbird) ) (if: last of $smallherb > 0)[(set: 1st of $smallherb to it + (0.01 * 1st of $evergreen) + (0.01 * 1st of $broadleaf))]  (if: last of $smallherb > (1st of $smallherb * 2nd of $smallherb))[(set: last of $smallherb to 1st of $smallherb * 2nd of $smallherb)] (if: last of $smallherb < 0)[(set: last of $smallherb to 0)]  (if: 1st of $midherb > 0)[ (set: last of $midherb to 1st of $midherb * (((0.1 * 1st of $landplant) + (0.1 * 1st of $broadleaf)) / 1st of $midherb)) ] (set: last of $midherb to it - (10 * 1st of $topfeline) - (10 * 1st of $topcanid)) (if: last of $midherb > 1st of $midherb * 2nd of $midherb)[(set: last of $midherb to 1st of $midherb * 2nd of $midherb)] (if: last of $midherb < 0) [(set: last of $midherb to 0)]  (if: 1st of $wetmammal > 0)[ (set: last of $wetmammal to 1st of $wetmammal * (((0.1 * 1st of $broadleaf) + (0.1 * 1st of $midfish) + (0.1 * 1st of $amphibian ) ) / 1st of $wetmammal))] (set: last of $wetmammal to it - (10 * 1st of $midcarn) ) (if: last of $wetmammal > 1st of $wetmammal * 2nd of $wetmammal)[(set: last of $wetmammal to 1st of $wetmammal * 2nd of $wetmammal)] (if: last of $wetmammal < 0) [(set: last of $wetmammal to 0)]  (if: 1st of $largeherb > 0)[ (set: last of $largeherb to 1st of $largeherb * (((0.1 * 1st of $landplant) + (0.1 * 1st of $evergreen)) / 1st of $largeherb))] (set: last of $largeherb to it - (10 * 1st of $topfeline) - (10 * 1st of $topcanid) ) (if: last of $largeherb > 1st of $largeherb * 2nd of $largeherb)[(set: last of $largeherb to 1st of $largeherb * 2nd of $largeherb)] (if: last of $largeherb < 0) [(set: last of $largeherb to 0)]  (if: 1st of $midcarn > 0)[ (set: last of $midcarn to 1st of $midcarn * (((0.1 * 1st of $smallherb) + (0.1 * 1st of $reptile) + (0.1 * 1st of $wetmammal)) / 1st of $midcarn))]\ (set: last of $midcarn to it - (10 * 1st of $topfeline)) (if: last of $midcarn > 1st of $midcarn * 2nd of $midcarn)[(set: last of $midcarn to 1st of $midcarn * 2nd of $midcarn)] (if: last of $midcarn < 0) [(set: last of $midcarn to 0)]  (if: 1st of $topfeline > 0)[ (set: last of $topfeline to 1st of $topfeline * (( (0.1 * 1st of $midherb) + (0.1 * 1st of $largeherb) + (0.1 * 1st of $midcarn) ) / 1st of $topfeline ) )] (if: last of $topfeline > 1st of $topfeline * 2nd of $topfeline)[(set: last of $topfeline to 1st of $topfeline * 2nd of $topfeline)] (if: last of $topfeline < 0) [(set: last of $topfeline to 0)]  (if: 1st of $topcanid > 0)[ (set: last of $topcanid to 1st of $topcanid * (( (0.1 * 1st of $midherb) + (0.1 * 1st of $largeherb) + (0.1 * 1st of $midfish) ) / 1st of $topcanid ))] (if: (1st of $broadleaf) is > 0)[(set: last of $topcanid to it + (0.01 * 1st of $broadleaf) ) ]  (if: last of $topcanid > 1st of $topcanid * 2nd of $topcanid)[(set: last of $topcanid to 1st of $topcanid * 2nd of $topcanid)] (if: last of $topcanid < 0) [(set: last of $topcanid to 0)] (goto: "the food web 2")

\ \(if: 1st of $breeder is not "none")[ \ (if: 2nd of $breeder is 0)[(set: 1st of $breeder to "none")] \ (if: 1st of $breeder is "Small herbivores")[(set: 1st of $smallherb to it + 25, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Small birds")[(set: 1st of $smallbird to it + 25, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Small fish")[(set: 1st of $smallfish to it + 25, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Mid-sized herbivores")[(set: 1st of $midherb to it + 10, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Mid-sized fish")[(set: 1st of $midfish to it + 10, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Mid-sized carnivores")[(set: 1st of $midcarn to it + 10, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Mid-sized birds")[(set: 1st of $midbird to it + 10, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Land plants")[(set: 1st of $landplant to it + 100, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Wetland plants")[(set: 1st of $aquaplant to it + 100, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Broadleaf trees")[(set: 1st of $broadleaf to it + 100, 2nd of $breeder to it -1)] \ (if: 1st of $breeder is "Evergreen trees")[(set: 1st of $evergreen to it + 100, 2nd of $breeder to it -1)] \] Ecologist's report 1: Ecosystem change. \<!~- Ecosystems will change when the pop of the species who drive the change reaches seven-tenths of carrying capacity. --> (if: 1st of $landplant is >= ((1st of $grassland * 2nd of $grassland) + (1st of $deciduous * 2nd of $deciduous) + (1st of $coniferous * 2nd of $coniferous) * 0.7) and 1st of $shield is not 0)[ \(set: 1st of $shield to it - 1, 1st of $grassland to it + 1) The ground cover plants turned some of the shieldland into grassland!] \ (if: 1st of $landplant is >= ((1st of $grassland * 2nd of $grassland) + (1st of $deciduous * 2nd of $deciduous) + (1st of $coniferous * 2nd of $coniferous) * 0.7) and 1st of $wetland is not 0)[ \(set: 1st of $wetland to it - 1, 1st of $grassland to it + 1) The ground cover plants turned some of the wetland into grassland!] \ \(if: 1st of $broadleaf is >= ((1st of $deciduous * 2nd of $deciduous) * 0.7) and 1st of $grassland is not 0)[ \(set: 1st of $grassland to it - 1, 1st of $deciduous to it + 1) The broadleaf trees have turned some of the grassland into deciduous forest!] \ \(if: 1st of $evergreen is >= ((1st of $coniferous * 2nd of $coniferous) * 0.7) and 1st of $shield is not 0)[ \(set: 1st of $shield to it - 1, 1st of $coniferous to it + 1) The evergreen trees have turned some of the deciduous forest into coniferous forest!] \ \(if: 1st of $evergreen is >= ((1st of $grassland * 2nd of $grassland) * 0.7) and 1st of $grassland is not 0)[ \(set: 1st of $grassland to it - 1, 1st of $coniferous to it + 1) The evergreen trees have turned some of the grassland into coniferous forest!] \ \ \(if: 1st of $wetmammal >= ((1st of $wetland * 2nd of $wetland) * 0.4) and 1st of $deciduous is > 0)[ \(set: 1st of $deciduous to it - 1, 1st of $wetland to it + 1) The beavers and other wetland mammals have turned some of the deciduous forest into wetland!] \ \(if: 1st of $smallbird >= ((1st of $deciduous * 2nd of $deciduous) + (1st of $coniferous * 2nd of $coniferous) * 0.7) and 1st of $grassland is not 0)[ \(set: 1st of $grassland to it - 1, 1st of $deciduous to it + 1) The small forest birds have turned some of the grassland into deciduous forest!] \  \(if: (random: 1,7) is 1)[(set: $deadzone to (either: "shield", "wetland", "grassland", "deciduous", "coniferous")) ] \(if: $deadzone is "shield" and 1st of $shield is > 0)[(set: 1st of $shield to it -1, $deadzone to "place holder") Pollution has caused some of the shield land to turn into deadzone!] \(if: $deadzone is "wetland" and 1st of $wetland is > 0)[(set: 1st of $wetland to it -1, $deadzone to "place holder") Pollution has caused some of the wetland to turn into deadzone!] \(if: $deadzone is "grassland" and 1st of $grassland is > 0)[(set: 1st of $grassland to it -1, $deadzone to "place holder") Pollution has caused some of the grassland to turn into deadzone!] \(if: $deadzone is "coniferous" and 1st of $coniferous is > 0)[(set: 1st of $coniferous to it -1, $deadzone to "place holder") Pollution has caused some of the coniferous forest to turn into deadzone!] \(if: $deadzone is "deciduous" and 1st of $deciduous is > 0)[(set: 1st of $deciduous to it -1, $deadzone to "place holder") Pollution has caused some of the deciduous forest to turn into deadzone!] \ \(if: 1st of $aquaplant is 0)[(set: 1st of $wetland to it -(random: 1,5)) The absence of wetland plants has caused some of the wetland to turn into deadzone!] \(if: 1st of $landplant is 0)[(set: 1st of $grassland to it -(random: 1,5)) The absence of grasses and flowers has caused some of the grassland to turn into deadzone!] \(if: 1st of $evergreen is 0)[(set: 1st of $coniferous to it -(random: 1,5)) The absence of evergreen trees has caused some of the coniferous forest to turn into deadzone!] \(if: 1st of $broadleaf is 0)[(set: 1st of $deciduous to it -(random: 1,5)) The absence of broadleaf trees has caused some of the deciduous forest to turn into deadzone!] \ \ \(if: 1st of $shield is < 0)[(set: 1st of $shield to 0)] \(if: 1st of $wetland is < 0)[(set: 1st of $wetland to 0)] \(if: 1st of $grassland is < 0)[(set: 1st of $grassland to 0)] \(if: 1st of $deciduous is < 0)[(set: 1st of $deciduous to 0)] \(if: 1st of $coniferous is < 0)[(set: 1st of $coniferous to 0)] \ \ \(set: $totalarea to 1st of $shield + 1st of $wetland + 1st of $grassland + 1st of $coniferous + 1st of $deciduous) \ \(if: $totalarea is < 200)[(goto: "fail")] [[continue->the food web 1]]

\(if: 1st of $scavenger > 0)[ \(set: last of $scavenger to 1st of $scavenger * ( (0.1 * 1st of $midherb) + (0.1 * 1st of $largeherb) + (0.1 * 1st of $midcarn) + (0.1 * 1st of $topfeline) + (0.1 * 1st of $topcanid) + (0.1 * 1st of $midbird) ) / 1st of $scavenger)] \(if: last of $scavenger > 1st of $scavenger * 2nd of $scavenger)[(set: last of $scavenger to 1st of $scavenger * 2nd of $scavenger)] \(if: last of $scavenger < 0) [(set: last of $scavenger to 0)] \ \(if: 1st of $smallbird > 0)[ \(set: last of $smallbird to 1st of $smallbird * ( ( (1st of $deciduous * 2nd of $deciduous) + (1st of $coniferous * 2nd of $coniferous) ) / 1st of $smallbird) ) ] \(set: last of $smallbird to it - (10 * 1st of $midbird) - (10 * 1st of $topavian) ) \(if: last of $smallbird > 0)[(set: last of $smallbird to it + (0.001 * 1st of $broadleaf) + (0.001 * 1st of $evergreen))]  \(if: last of $smallbird > 1st of $smallbird * 2nd of $smallbird)[(set: last of $smallbird to 1st of $smallbird * 2nd of $smallbird)] \(if: last of $smallbird < 0) [(set: last of $smallbird to 0)] \ \(if: 1st of $midbird > 0)[ \(set: last of $midbird to 1st of $midbird * ( ( (0.1 * 1st of $smallbird) + (0.1 * 1st of $smallherb) ) / 1st of $midbird ) )] \(set: last of $midbird to it - (10 * 1st of $topavian) - (0.3 * 1st of $scavenger) ) \(if: last of $midbird > 0)[(set: last of $midbird to it + (0.1 * 1st of $broadleaf) + (0.1 * 1st of $evergreen))]  \(if: last of $midbird > 1st of $midbird * 2nd of $midbird)[(set: last of $midbird to 1st of $midbird * 2nd of $midbird)] \(if: last of $midbird < 0) [(set: last of $midbird to 0)] \ \(if: 1st of $wetbird > 0)[ \(set: last of $wetbird to 1st of $wetbird * ( ( (0.1 * 1st of $smallfish) + (0.1 * 1st of $amphibian) ) / 1st of $wetbird ) )] \(if: last of $wetbird > 0)[(set: last of $wetbird to it + (0.1 * 1st of $wetland))]  \(if: last of $wetbird > 1st of $wetbird * 2nd of $wetbird)[(set: last of $wetbird to 1st of $wetbird * 2nd of $wetbird)] \(if: last of $wetbird < 0) [(set: last of $wetbird to 0)] \ \(if: 1st of $topavian > 0)[ \(set: last of $topavian to 1st of $topavian * ( ( (0.1 * 1st of $smallbird) + (0.1 * 1st of $midbird) + (0.1 * 1st of $smallherb) + (0.1 * 1st of $reptile) + (0.1 * 1st of $midfish) ) / 1st of $topavian ) )] \(if: last of $topavian > 1st of $topavian * 2nd of $topavian)[(set: last of $topavian to 1st of $topavian * 2nd of $topavian)] \(if: last of $topavian < 0) [(set: last of $topavian to 0)] \ \(if: 1st of $reptile > 0)[ \(set: last of $reptile to 1st of $reptile * ( ( (1st of $wetland * 2nd of $wetland) + (1st of $deciduous * 2nd of $deciduous) ) / 1st of $reptile) )  \(set: last of $reptile to it + ( (0.1 * 1st of $smallfish) + (0.1 * 1st of $smallherb) * (0.1 * 1st of $amphibian) ) / 1st of $reptile)]  \(set: last of $reptile to it - (10 * 1st of $midcarn) - (10 * 1st of $topavian)) \(if: last of $reptile > 1st of $reptile * 2nd of $reptile)[(set: last of $reptile to 1st of $reptile * 2nd of $reptile)] \(if: last of $reptile < 0) [(set: last of $reptile to 0)] \ \(if: 1st of $amphibian > 0)[ \(set: last of $amphibian to 1st of $amphibian * ( ((1st of $wetland * 2nd of $wetland) + (0.1 * 1st of $aquaplant) ) / 1st of $amphibian))] \(set: last of $amphibian to it - (10 * 1st of $wetbird) - (10 * 1st of $wetmammal) - (10 * 1st of $midfish) - (10 * 1st of $topfish)) \(if: last of $amphibian > 0)[(set: last of $amphibian to it + (0.1 * 1st of $aquaplant) )]  \(if: last of $amphibian > 1st of $amphibian * 2nd of $amphibian)[(set: last of $amphibian to 1st of $amphibian * 2nd of $amphibian)] \(if: last of $amphibian < 0) [(set: last of $amphibian to 0)] \ \(if: 1st of $smallfish > 0)[ \(set: last of $smallfish to 1st of $smallfish * ( ((1st of $wetland * 2nd of $wetland) + (0.1 * 1st of $aquaplant) ) / 1st of $smallfish) ) ] \(set: last of $smallfish to it - (10 * 1st of $midfish) - (10 * 1st of $topfish) - (10 * 1st of $wetbird) ) \(if: last of $smallfish > 0)[(set: last of $smallfish to it + (0.1 * 1st of $aquaplant) )]  \(if: last of $smallfish > 1st of $smallfish * 2nd of $smallfish)[(set: last of $smallfish to 1st of $smallfish * 2nd of $smallfish)]\ \(if: last of $smallfish < 0) [(set: last of $smallfish to 0)] \ \(if: 1st of $midfish > 0)[ \(set: last of $midfish to 1st of $midfish * ( ( (0.1 * 1st of $smallfish) + (0.1 * 1st of $amphibian) / 1st of $midfish) ) )] \(set: last of $midfish to it - (10 * 1st of $topcanid) - (10 * 1st of $topavian) - (10 * 1st of $topfish) - (10 * 1st of $wetmammal) ) \(if: last of $midfish > 1st of $midfish * 2nd of $midfish)[(set: last of $midfish to 1st of $midfish * 2nd of $midfish)]\ \(if: last of $midfish < 0) [(set: last of $midfish to 0)] \ \(if: 1st of $topfish > 0)[ \(set: last of $topfish to 1st of $topfish * ( ((0.1 * 1st of $smallfish) + (0.1 * 1st of $midfish) + (0.1 * 1st of $amphibian) ) / 1st of $topfish ) )] \(if: last of $topfish > 1st of $topfish * 2nd of $topfish)[(set: last of $topfish to 1st of $topfish * 2nd of $topfish)] \(if: last of $topfish < 0) [(set: last of $topfish to 0)] (goto: "natural history")

You have decontaminated ten square kilometers of the deadzone that surrounds the forest, turning it into shield land and joining it to the forest. (set: 1st of $shield to it + 10) [[Continue->ecological succession]]

The genetics lab can release a special virus into the ecosystem which will increase the fertility rate of a certain organism group by 20%. Select an organism group's name to increase its fertility. |= (link: "Broadleaf Trees")[(set: 2nd of $broadleaf to it * 1.2) (goto: "ecological succession")] (print: 2nd of $broadleaf) (link: "Evergreen trees")[(set: 2nd of $evergreen to it * 1.2) (goto: "ecological succession")] (print: 2nd of $evergreen) (link: "Land plants")[(set: 2nd of $landplant to it * 1.2) (goto: "ecological succession")] (print: 2nd of $landplant) =|= (link: "Small Herbivores")[(set: 2nd of $smallherb to it * 1.2) (goto: "ecological succession")] (print: 2nd of $smallherb) (link: "Midsize Herbivores")[(set: 2nd of $midherb to it * 1.2) (goto: "ecological succession")] (print: 2nd of $midherb) (link: "Large Herbivores")[(set: 2nd of $largeherb to it * 1.2) (goto: "ecological succession")] (print: 2nd of $largeherb) =|= (link: "Midsize Predators")[(set: 2nd of $midcarn to it * 1.2) (goto: "ecological succession")] (print: 2nd of $midcarn) (link: "Top Feline Predators")[(set: 2nd of $topfeline to it * 1.2) (goto: "ecological succession")] (print: 2nd of $topfeline) (link: "Top Canid Predators")[(set: 2nd of $topcanid to it * 1.2) (goto: "ecological succession")] (print: 2nd of $topcanid) =|= (link: "Small Birds")[(set: 2nd of $smallbird to it * 1.2) (goto: "ecological succession")] (print: 2nd of $smallbird) (link: "Midsize Birds")[(set: 2nd of $midbird to it * 1.2) (goto: "ecological succession")] (print: 2nd of $midbird) (link: "Top Avian Predators")[(set: 2nd of $topavian to it * 1.2) (goto: "ecological succession")] (print: 2nd of $topavian) =|= (link: "Scavengers")[(set: 2nd of $scavenger to it * 1.2) (goto: "ecological succession")] (print: 2nd of $scavenger) (link: "Reptiles")[(set: 2nd of $reptile to it * 1.2) (goto: "ecological succession")] (print: 2nd of $reptile) (link: "Amphibians")[(set: 2nd of $amphibian to it * 1.2) (goto: "ecological succession")] (print: 2nd of $amphibian) =|= (link: "Wetland Plants")[(set: 2nd of $aquaplant to it * 1.2) (goto: "ecological succession")] (print: 2nd of $aquaplant) (link: "Wetland Birds")[(set: 2nd of $wetbird to it * 1.2) (goto: "ecological succession")] (print: 2nd of $wetbird) (link: "Wetland Mammals")[(set: 2nd of $wetmammal to it * 1.2) (goto: "ecological succession")] (print: 2nd of $wetmammal) =|= (link: "Small Fish")[(set: 2nd of $smallfish to it * 1.2) (goto: "ecological succession")] (print: 2nd of $smallfish) (link: "Midsize Fish")[(set: 2nd of $midfish to it * 1.2) (goto: "ecological succession")] (print: 2nd of $midfish) (link: "Top Predator Fish")[(set: 2nd of $topfish to it * 1.2) (goto: "ecological succession")] (print: 2nd of $topfish) |==| Add ten of every type of top predator. (link: "Release the Kraken!")[(set: 1st of $topcanid to it + 10, 1st of $topavian to it + 10, 1st of $topfeline to it + 10, 1st of $topfish to it + 10) (goto: "ecological succession")] [[I need to do something else instead.->interface]]

Select one class of animal or plant which a greenhouse, aviary, breeder, or hatchery will plant or release to the forest every turn, automatically, for seven turns. You may have only one of these programs active at a time, so selecting a new program will automatically end the current one. Current support program: (print: 1st of $breeder) (link: "25 small herbivores.") [(set: 1st of $breeder to "Small herbivores", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "25 small birds.") [(set: 1st of $breeder to "Small birds", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "25 small fish.") [(set: 1st of $breeder to "Small fish", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "10 mid-sized herbivores.") [(set: 1st of $breeder to "Mid-size herbivores", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "10 mid-sized fish.") [(set: 1st of $breeder to "Mid-size fish", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "10 mid-sized birds.") [(set: 1st of $breeder to "Mid-size birds", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "10 mid-sized carnivores.") [(set: 1st of $breeder to "Mid-size carnivores", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "100 ground-covering plants.") [(set: 1st of $breeder to "Land plants", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "100 wetland plants.") [(set: 1st of $breeder to "Wetland plants", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "100 broadleaf trees.") [(set: 1st of $breeder to "Broadleaf trees", 2nd of $breeder to 7) (goto: "ecological succession")] (link: "100 evergreen trees.") [(set: 1st of $breeder to "Evergreen trees", 2nd of $breeder to 7) (goto: "ecological succession")] (if: 1st of $breeder is not "none")[(link-reveal: "Stop the support program. ") [(set: 1st of $breeder to "none" The (print: 1st of $breeder) program is stopped.)] ] [[Return to main page->interface]]

//Winning and losing:// The game asks you to reach four milestones. In each of them, you have to grow the forest by at least 50 km^^2^^. You do this by decontaminating some of the deadzone that surrounds the forest. For some milestones, you also have to preserve a minimum number of organism groups. If the size of the forest falls to less than 100 km^^2^^, then the forest is lost, and the game is over. But if you can reach the fourth and final milestone, you win! [[Enter the forest and begin the game.->Setting Up]]

What plants to add to the forest? |= Ground Covering Plants: flowers, tall grasses, shrubs, and ferns. (link: "Add five hundred.") [(set: 1st of $landplant to it + 500) (goto: "ecological succession")] (link: "Add one thousand.") [(set: 1st of $landplant to it + 1000) (goto: "ecological succession")] (link: "Add ten thousand.") [(set: 1st of $landplant to it + 10000) (goto: "ecological succession")] (link: "Remove them all.") [(set: 1st of $landplant to 0) (goto: "ecological succession")] =|= Broadleaf Trees: maple, oak, ash, chestnut, cherry, etc. (link: "Add five hundred.") [(set: 1st of $broadleaf to it + 500) (goto: "ecological succession")] (link: "Add one thousand.") [(set: 1st of $broadleaf to it + 1000) (goto: "ecological succession")] (link: "Add ten thousand.") [(set: 1st of $broadleaf to it + 10000) (goto: "ecological succession")] (link: "Remove them all.") [(set: 1st of $broadleaf to 0) (goto: "ecological succession")] =|= Evergreen trees: cedar, pine, and spruce. (link: "Add five hundred.") [(set: 1st of $evergreen to it + 500) (goto: "ecological succession")] (link: "Add one thousand.") [(set: 1st of $evergreen to it + 1000) (goto: "ecological succession")] (link: "Add ten thousand.") [(set: 1st of $evergreen to it + 10000) (goto: "ecological succession")] (link: "Remove them all.") [(set: 1st of $evergreen to 0) (goto: "ecological succession")] =|= Wetland plants: water lillies, cattails, pondweed, jewel weed, skunk cabbage. (link: "Add five hundred.") [(set: 1st of $aquaplant to it + 500) (goto: "ecological succession")] (link: "Add one thousand.") [(set: 1st of $aquaplant to it + 1000) (goto: "ecological succession")] (link: "Add ten thousand.") [(set: 1st of $aquaplant to it + 10000) (goto: "ecological succession")] (link: "Remove them all.") [(set: 1st of $aquaplant to 0) (goto: "ecological succession")] |==| [[I need to do something else.->interface]]

Which animals to add or remove from the forest? |= Small herbivores: rabbits, mice, voles, and rats. (link: "Add 100.") [(set: 1st of $smallherb to it +100) (goto: "ecological succession")] (link: "Add 500.") [(set: 1st of $smallherb to it +500) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $smallherb to 0) ((goto: "ecological succession")] Mid-sized herbivores: deer, elk, wild boar. (link: "Add 20.") [(set: 1st of $midherb to it +20) (goto: "ecological succession")] (link: "Add 50.") [(set: 1st of $midherb to it +50) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $midherb to 0) (goto: "ecological succession")] Large herbivores: moose, caribou (link: "Add 20.") [(set: 1st of $largeherb to it +20) (goto: "ecological succession")] (link: "Add 50.") [(set: 1st of $largeherb to it +50) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $largeherb to 0) (goto: "ecological succession")] =|= Mid-sized carnivores: coyote, fox, wolverine. (link: "Add 3.") [(set: 1st of $midcarn to it +3) (goto: "ecological succession")] (link: "Add 10.") [(set: 1st of $midcarn to it +10) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $midcarn to 0) (goto: "ecological succession")] Top feline carnivores: lynx, cougar, mountain lion (link: "Add 1.") [(set: 1st of $topfeline to it +1) (goto: "ecological succession")] (link: "Add 3.") [(set: 1st of $topfeline to it + 3) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $topfeline to 0) (goto: "ecological succession")] Top canid carnivores: bears, wolves. (link: "Add 1.") [(set: 1st of $topcanid to it +1) (goto: "ecological succession")] (link: "Add 3.") [(set: 1st of $topcanid to it + 3) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $topcanid to 0) (goto: "ecological succession")] =|= Amphibians: frog, toad, salamander. (link: "Add 3.") [(set: 1st of $amphibian to it +3) (goto: "ecological succession")] (link: "Add 20.") [(set: 1st of $amphibian to it +20) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $amphibian to 0) (goto: "ecological succession")] Reptiles: lizard, turtle, snake. (link: "Add 3.") [(set: 1st of $reptile to it +3) (goto: "ecological succession")] (link: "Add 20.") [(set: 1st of $reptile to it +20) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $reptile to 0) (goto: "ecological succession")] Wetland mammals: beaver, otter, muskrat. (link: "Add 3.") [(set: 1st of $wetmammal to it +3) (goto: "ecological succession")] (link: "Add 10.") [(set: 1st of $wetmammal to it +10) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $wetmammal to 0) (goto: "ecological succession")] |==| [[I need to do something else instead->interface]]

//How to play:// Each turn of the game represents one month on the job, in which you'll make a choice affecting the state of the forest. For example, you can: • Plant trees or ground cover plants, • Add animals or remove them. • Clean up some of the dead zone, adding new area to the forest, • Manipulate the genetics of a species, so that it can reproduce faster. To play this game, you have to think like a scientist. Add and remove different species, then watch what happens. Try to predict what will happen next. See if you can figure out how the various species interact with each other, and where points of balance might be found. Once you think you know how the forest works, make a plan for which species to support, and how to support them, so you can grow your forest and keep as many of its animals and plants alive as you can. [[How to win->Winning and losing]]

The forest has fallen to fewer that two hundred square kilometers. <img src="http://brendanmyers.net/games/LastForest-fail.jpg"> This is a tipping point; the decline of the forest is now inevitable. The forest is lost. [[Can you do better? Play again!->Setting Up]] [[Developer notes]]

=><= The Last Forest by Brendan Myers <==> //Photo Credits// • Title page photo by David Marcu / Unsplash.com • Milestone 4 photo by Reid Wiseman / NASA ISS mission 40. • Lost Forest photo by Abhay Vyas / Unsplash.com • Legacy photo by Arthur Poulin / Unsplash.com • All other photos by Brendan Myers. //Developer Notes// Thank you for playing my game! I have been interested in ecology as a science, and in game design, since I was a teenager. Partly because I find it fun to think about complex systems like the biosphere. Partly because I used to make games like this on my old Commodore 128 computer (yeah, that shows my age) and Twine gives me the chance to make games like this again. Partly because I plan to use this game, and Twine in general, as a teaching tool in my classes (I'm a college prof by day). But mostly because I find that the Earth is the most wonderful and beautiful world, the Great Mother of all life, the only home we have, and possibly the only home we will ever have. The relations of predator, prey, habitat, and ecological succession are modelled in this game as close to how they are in nature as my programming skills allow. This meant I had to make some hard decisions. In which biome should the game be set? What, for example, is the carrying capacity of a hardwood forest for moose and caribou? In the real world, top predators eat almost all kinds of herbivores and aquatic microbiovores, but what will they eat in this game? You get the idea. So, if you did some ecological research to help you win this game: first of all, you had the right idea and I am proud of you, and second of all, I apologise if your research led you to the right idea for the real world but the wrong one for this game. This is the first public release of this game, but it’s actually the second version. The first had 56 forms of life instead of the 21 you see here. It included insect biomass, for instance, and the mycorrizhal networks beneath the soils. It made the game much more complicated, but for that reason more interesting to me, and a little more true to life. But that first version actually broke the game— Twine was unable to handle the huge numbers involved and the long lines of code I wrote to model their interactions, producing weird results like shield lands of infinite size, and population numbers that included Euler's constant. Some day I shall have to learn a more advanced programming language to make my original vision happen. By the way, you might have noticed the button that says "Release the kraken!". I put it there while I was still troubleshooting a beta version of the game. I had expected that it would kill most of the forest. In fact it stabilized the forest for several turns: it created what ecologists call a trophic cascade. (Look it up; it's kind of a beautiful thing.) So I decided to keep it in the game. Players might find it produces different results, depending on the state of things at the time the kraken is released. A personal note: I think that ecology will be the science of the future. It is already the science of the food we eat, the water and air we take, the planet we love. It is the science of the climate crisis, and I sometimes wonder if climate-crisis denialism remains popular because, at least in part, people don't understand the basics of ecology. Or economics. Or ethics. My hope is that people will treat this game, first of all, as a fun and challenging puzzle to solve. I also hope people will treat it as an educational experience: a way to learn how fragile complex systems are, how there is no such thing as a "balance of nature", and how we need patience-- a lot of patience-- to care for the planet and to end the crisis. But that's enough polemic from me, for now. If you don't mind me saying so, I'm kind of proud of myself for this little game, and I do hope you enjoyed it. If you manage to win, send me a note to let me know how you did it. And maybe tell your friends about it too. And then, go and visit your nearest real-world green space, and find out what you can do to help take care of it. Brendan. [[Play again?->Setting Up]]

|= Shield Land (if: 1st of $shield > 0)[(print: 1st of $shield) `(` (print: (round: ((1st of $shield * 100) / $totalarea))) `% )`]\ (if: 1st of $shield is 0)[(colour: red)[(print: 1st of $shield) `(` (print: (round: ((1st of $shield * 100) / $totalarea))) `% )`]]\ =|= Grassland (if: 1st of $grassland > 0)[(print: 1st of $grassland) `(` (print: (round: ((1st of $grassland * 100) / $totalarea))) `% )`]\ (if: 1st of $grassland is 0)[(colour: red)[(print: 1st of $grassland) `(` (print: (round: ((1st of $grassland * 100) / $totalarea))) `% )`]]\ =|= Deciduous (if: 1st of $deciduous > 0)[(print: 1st of $deciduous) `(` (print: (round: ((1st of $deciduous * 100) / $totalarea))) `% )`]\ (if: 1st of $deciduous is 0)[(colour: red)[(print: 1st of $deciduous) `(` (print: (round: ((1st of $deciduous * 100) / $totalarea))) `% )`]]\ =|= Coniferous (if: 1st of $coniferous > 0)[(print: 1st of $coniferous) `(` (print: (round: ((1st of $coniferous * 100) / $totalarea))) `% )`]\ (if: 1st of $coniferous is 0)[(colour: red)[(print: 1st of $coniferous) `(` (print: (round: ((1st of $coniferous * 100) / $totalarea))) `% )`]]\ =|= Wetland (if: 1st of $wetland > 0)[(print: 1st of $wetland) `(` (print: (round: ((1st of $wetland * 100) / $totalarea))) `% )`]\ (if: 1st of $wetland is 0)[(colour: red)[(print: 1st of $wetland) `(` (print: (round: ((1st of $wetland * 100) / $totalarea))) `% )`]]\ =|= Total area: (print: $totalarea) km^^2^^ =|= Breeder adding: (print: 1st of $breeder) |==| |= Broadleaf Trees (if: 1st of $broadleaf > 4th of $broadleaf )[(colour: green)[(print: 1st of $broadleaf)]]\ (if: 1st of $broadleaf is 4th of $broadleaf and 1st of $broadleaf is not 0)[(colour: cyan)[(print: 1st of $broadleaf)]]\ (if: 1st of $broadleaf < 4th of $broadleaf or 1st of $broadleaf is 0)[(colour: red)[(print: 1st of $broadleaf)]]\ =|= Small Herbivores (if: 1st of $smallherb > 4th of $smallherb)[(colour: green)[(print: 1st of $smallherb)]]\ (if: 1st of $smallherb is 4th of $smallherb and 1st of $smallherb is not 0)[(colour: cyan)[(print: 1st of $smallherb)]]\ (if: 1st of $smallherb < 4th of $smallherb or 1st of $smallherb is 0)[(colour: red)[(print: 1st of $smallherb)]]\ =|= Midsize Predators (if: 1st of $midcarn > 4th of $midcarn)[(colour: green)[(print: 1st of $midcarn)]]\ (if: 1st of $midcarn is 4th of $midcarn and 1st of $midcarn is not 0)[(colour: cyan)[(print: 1st of $midcarn)]]\ (if: 1st of $midcarn < 4th of $midcarn or 1st of $midcarn is 0)[(colour: red)[(print: 1st of $midcarn)]]\ =|= Small Birds (if: 1st of $smallbird > 4th of $smallbird)[(colour: green)[(print: 1st of $smallbird)]]\ (if: 1st of $smallbird is 4th of $smallbird and 1st of $smallbird is not 0)[(colour: cyan)[(print: 1st of $smallbird)]]\ (if: 1st of $smallbird < 4th of $smallbird or 1st of $smallbird is 0)[(colour: red)[(print: 1st of $smallbird)]]\ =|= Scavenger Birds (if: 1st of $scavenger > 4th of $scavenger)[(colour: green)[(print: 1st of $scavenger)]]\ (if: 1st of $scavenger is 4th of $scavenger and 1st of $scavenger is not 0)[(colour: cyan)[(print: 1st of $scavenger)]]\ (if: 1st of $scavenger < 4th of $scavenger or 1st of $scavenger is 0)[(colour: red)[(print: 1st of $scavenger)]]\ =|= Wetland Plants (if: 1st of $aquaplant > 4th of $aquaplant)[(colour: green)[(print: 1st of $aquaplant)]]\ (if: 1st of $aquaplant is 4th of $aquaplant and 1st of $aquaplant is not 0)[(colour: cyan)[(print: 1st of $aquaplant)]]\ (if: 1st of $aquaplant < 4th of $aquaplant or 1st of $aquaplant is 0)[(colour: red)[(print: 1st of $aquaplant)]]\ =|= Small Fish (if: 1st of $smallfish > 4th of $smallfish)[(colour: green)[(print: 1st of $smallfish)]]\ (if: 1st of $smallfish is 4th of $smallfish and 1st of $smallfish is not 0)[(colour: cyan)[(print: 1st of $smallfish)]]\ (if: 1st of $smallfish < 4th of $smallfish or 1st of $smallfish is 0)[(colour: red)[(print: 1st of $smallfish)]]\ |==| |= Evergreen Trees (if: 1st of $evergreen > 4th of $evergreen )[(colour: green)[(print: 1st of $evergreen)]]\ (if: 1st of $evergreen is 4th of $evergreen and 1st of $evergreen is not 0)[(colour: cyan)[(print: 1st of $evergreen)]]\ (if: 1st of $evergreen < 4th of $evergreen or 1st of $evergreen is 0)[(colour: red)[(print: 1st of $evergreen)]]\ =|= Midsize Herbivores (if: 1st of $midherb > 4th of $midherb)[(colour: green)[(print: 1st of $midherb)]]\ (if: 1st of $midherb is 4th of $midherb and 1st of $midherb is not 0)[(colour: cyan)[(print: 1st of $midherb)]]\ (if: 1st of $midherb < 4th of $midherb or 1st of $midherb is 0)[(colour: red)[(print: 1st of $midherb)]]\ =|= Top Feline Predators (if: 1st of $topfeline > 4th of $topfeline)[(colour: green)[(print: 1st of $topfeline)]]\ (if: 1st of $topfeline is 4th of $topfeline and 1st of $topfeline is not 0)[(colour: cyan)[(print: 1st of $topfeline)]]\ (if: 1st of $topfeline < 4th of $topfeline or 1st of $topfeline is 0)[(colour: red)[(print: 1st of $topfeline)]]\ =|= Midsize Birds (if: 1st of $midbird > 4th of $midbird)[(colour: green)[(print: 1st of $midbird)]]\ (if: 1st of $midbird is 4th of $midbird and 1st of $midbird is not 0)[(colour: cyan)[(print: 1st of $midbird)]]\ (if: 1st of $midbird < 4th of $midbird or 1st of $midbird is 0)[(colour: red)[(print: 1st of $midbird)]]\ =|= Reptiles (if: 1st of $reptile > 4th of $reptile)[(colour: green)[(print: 1st of $reptile)]]\ (if: 1st of $reptile is 4th of $reptile and 1st of $reptile is not 0)[(colour: cyan)[(print: 1st of $reptile)]]\ (if: 1st of $reptile < 4th of $reptile or 1st of $reptile is 0)[(colour: red)[(print: 1st of $reptile)]]\ =|= Wetland Birds (if: 1st of $wetbird > 4th of $wetbird)[(colour: green)[(print: 1st of $wetbird)]]\ (if: 1st of $wetbird is 4th of $wetbird and 1st of $wetbird is not 0)[(colour: cyan)[(print: 1st of $wetbird)]]\ (if: 1st of $wetbird < 4th of $wetbird or 1st of $wetbird is 0)[(colour: red)[(print: 1st of $wetbird)]]\ =|= Midsize Fish (if: 1st of $midfish > 4th of $midfish)[(colour: green)[(print: 1st of $midfish)]]\ (if: 1st of $midfish is 4th of $midfish and 1st of $midfish is not 0)[(colour: cyan)[(print: 1st of $midfish)]]\ (if: 1st of $midfish < 4th of $midfish or 1st of $midfish is 0)[(colour: red)[(print: 1st of $midfish)]]\ |==| |= Land Plants (if: 1st of $landplant > 4th of $landplant )[(colour: green)[(print: 1st of $landplant)]]\ (if: 1st of $landplant is 4th of $landplant and 1st of $landplant is not 0)[(colour: cyan)[(print: 1st of $landplant)]]\ (if: 1st of $landplant < 4th of $landplant or 1st of $landplant is 0)[(colour: red)[(print: 1st of $landplant)]]\ =|= Large Herbivores (if: 1st of $largeherb > 4th of $largeherb)[(colour: green)[(print: 1st of $largeherb)]]\ (if: 1st of $largeherb is 4th of $largeherb and 1st of $largeherb is not 0)[(colour: cyan)[(print: 1st of $largeherb)]]\ (if: 1st of $largeherb < 4th of $largeherb or 1st of $largeherb is 0)[(colour: red)[(print: 1st of $largeherb)]]\ =|= Top Canid Predators (if: 1st of $topcanid > 4th of $topcanid)[(colour: green)[(print: 1st of $topcanid)]]\ (if: 1st of $topcanid is 4th of $topcanid and 1st of $topcanid is not 0)[(colour: cyan)[(print: 1st of $topcanid)]]\ (if: 1st of $topcanid < 4th of $topcanid or 1st of $topcanid is 0)[(colour: red)[(print: 1st of $topcanid)]]\ =|= Top Avian Predators (if: 1st of $topavian > 4th of $topavian)[(colour: green)[(print: 1st of $topavian)]]\ (if: 1st of $topavian is 4th of $topavian and 1st of $topavian is not 0)[(colour: cyan)[(print: 1st of $topavian)]]\ (if: 1st of $topavian < 4th of $topavian or 1st of $topavian is 0)[(colour: red)[(print: 1st of $topavian)]]\ =|= Amphibians (if: 1st of $amphibian > 4th of $amphibian)[(colour: green)[(print: 1st of $amphibian)]]\ (if: 1st of $amphibian is 4th of $amphibian and 1st of $amphibian is not 0)[(colour: cyan)[(print: 1st of $amphibian)]]\ (if: 1st of $amphibian < 4th of $amphibian or 1st of $amphibian is 0)[(colour: red)[(print: 1st of $amphibian)]]\ =|= Wetland Mammals (if: 1st of $wetmammal > 4th of $wetmammal)[(colour: green)[(print: 1st of $wetmammal)]]\ (if: 1st of $wetmammal is 4th of $wetmammal and 1st of $wetmammal is not 0)[(colour: cyan)[(print: 1st of $wetmammal)]]\ (if: 1st of $wetmammal < 4th of $wetmammal or 1st of $wetmammal is 0)[(colour: red)[(print: 1st of $wetmammal)]]\ =|= Top Predator Fish (if: 1st of $topfish > 4th of $topfish)[(colour: green)[(print: 1st of $topfish)]]\ (if: 1st of $topfish is 4th of $topfish and 1st of $topfish is not 0)[(colour: cyan)[(print: 1st of $topfish)]]\ (if: 1st of $topfish < 4th of $topfish or 1st of $topfish is 0)[(colour: red)[(print: 1st of $topfish)]]\ |==|

Which birds or fish would you like to add? |= Small forest birds: chickadee, goldfinch, sparrow, robin, woodpecker, grakle (link: "Add 100.") [(set: 1st of $smallbird to it +100) (goto: "ecological succession")] (link: "Add 500.") [(set: 1st of $smallbird to it +500) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $smallbird to 0) (goto: "ecological succession")] Mid-sized birds: falcon, owl. (link: "Add 20.") [(set: 1st of $midbird to it +20) (goto: "ecological succession")] (link: "Add 50.") [(set: 1st of $midbird to it +50) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $midbird to 0) (goto: "ecological succession")] =|= Scavenger birds: crow, raven, vulture, Morrigan. (link: "Add 3.") [(set: 1st of $scavenger to it +3) (goto: "ecological succession")] (link: "Add 20.") [(set: 1st of $scavenger to it +20) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $scavenger to 0) (goto: "ecological succession")] Wetland birds: crane, duck, heron. (link: "Add 3.") [(set: 1st of $wetbird to it +3) (goto: "ecological succession")] (link: "Add 10.") [(set: 1st of $wetbird to it +10) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $wetbird to 0) (goto: "ecological succession")] Top avian predators: eagle, hawk. (link: "Add 1.") [(set: 1st of $topavian to it +1) (goto: "ecological succession")] (link: "Add 3.") [(set: 1st of $topavian to it + 3) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $topavian to 0) (goto: "ecological succession")] =|= Small fish: minnow, crayfish. (link: "Add 100.") [(set: 1st of $smallfish to it +100) (goto: "ecological succession")] (link: "Add 500.") [(set: 1st of $smallfish to it +500) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $smallfish to 0) (goto: "ecological succession")] Mid-sized fish: bass, trout, catfish. (link: "Add 3.") [(set: 1st of $midfish to it +3) (goto: "ecological succession")] (link: "Add 20.") [(set: 1st of $midfish to it +20) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $midfish to 0) (goto: "ecological succession")] Top predator fish: pike, salmon. (link: "Add 1.") [(set: 1st of $topfish to it +1) (goto: "ecological succession")] (link: "Add 3.") [(set: 1st of $topfish to it +3) (goto: "ecological succession")] (link: "Remove all.") [(set: 1st of $topfish to 0) (goto: "ecological succession")] |==| [[I need to do something else instead->interface]]

You have chosen to step down from the position of Chief Ecologist of the Last Forest. What will be your legacy? <img src="http://brendanmyers.net/games/LastForest-legacy.jpg"> Total forest area = (print: $totalarea) Total organism groups conserved = (print: $biodiversity) Milestone reached = (print: $milestone) [[Can you do better? Play again!->Setting Up]] [[Developer notes]]

Under your guidance, the forest has grown to (print: $totalarea) km^^2^^! <img src="http://brendanmyers.net/games/LastForest-milestone1.jpg"> Your next task is to grow the forest to more than four hundred km^^2^^, while at the same time keeping at least twelve organism-groups alive. Can you do it? \(set: $milestone to "First") [[Yes, I can do it!->interface]] [[No, I think I've done all that I can.->resign]]

Well done! Under your guidance, the forest has grown to (print: $totalarea) km^^2^^, and you have kept (print: $biodiversity) organism-groups alive! <img src="http://brendanmyers.net/games/LastForest-milestone2.jpg"> Your next task is to grow the forest to more than 450 km^^2^^, while at the same time keeping at least fifteen organism-groups alive. Can you do it? \(set: $milestone to "Second") [[Yes, I can do it!->interface]] [[No, I think I've done all that I can.->resign]]

Incredible work! Under your expert care, the forest has grown to (print: $totalarea) km^^2^^, and you have kept (print: $biodiversity) organism-groups alive! <img src="http://brendanmyers.net/games/LastForest-milestone3.jpg"> Your next task is to grow the forest to more than five hundred km^^2^^, while at the same time keeping at least eighteen organism-groups alive. Most other scientists think this task is impossible. \(set: $milestone to "Third") [[Nothing is impossible. I can do it!->interface]] [[It's time for me to retire.->resign]]

Incredible! The forest has grown to (print: $totalarea) km^^2^^ and you have preserved or restored (print: $biodiversity) organism groups! <img src="http://brendanmyers.net/games/LastForest-milestone4.jpg"> The ecological knowledge you have gained will help to restore forests and other ecosystems all over the world. Because of you, the Earth, and all humanity, can be saved. \(set: $milestone to "Success") [[I'd like to keep working, just to see what will happen.->interface]] [[It's a good time to retire.->resign]]