Eons

{ (set: $timePassed to 0) (set: $progressMade to 0) (set: $eventLog to (array:)) (set: $expireList to (array:)) (set: $makeLocations to true) (set: $placeNames to (array: 'Marielda', 'Aglaura', 'Diomira', 'Despina', 'Sophronia', 'Zemrude', 'Baucis', 'Zobeide', 'Berenice', 'Trude', 'Pyrrha', 'Isidora', 'Zaira', 'Zora', 'Isaura', 'Maurilia', 'Hypatia', 'Valdrada', 'Leandra' )) (set: $placeFlavourTable1 to (array: 'A seaside ', 'A walled ', 'An isolated ', 'A labyrinthine ', 'A quiet ', 'A bustling ', 'An industrial ', 'A hidden away ', 'A centralised ', 'An aging ', 'An archaic ', 'A religious ', 'A rapidly expanding ', 'A mountainside ', 'A floating ', 'A flooded ', 'A reclaimed ', 'An overgrown ', 'An impossibly large ', 'An entrenched ' )) (set: $placeFlavourTable2 to (array: 'town.', 'community.', 'sprawling city.', 'collection of huts.', 'long-since settled caravan.', 'gutted lighthouse.', 'ancient library.', 'hall of arts long forgotten.', 'place of science.', 'cave system.', 'tent camp.', 'former refugee camp.', 'converted dungeon.', 'series of halls of a dead monarch.', 'set of towers.', 'impenetrable fortress-city.', 'hanging town.', 'hewn city.', 'statue garden of impossible creatures.', 'peninsula.', 'city in the sky.', 'never-ending tower.' )) (set: $placeFlavourTable3 to (array: 'This settlement was hard-fought. Its people are hard and tenacious.', 'It is easy to get lost here, both in the space and the people.', 'It is eerily quiet at all times, most communication done in sign language or writing.', 'An indivialistic place. People keep to themselves and their dwellings.', "A series of staircases and ladders is used to get around. Its people never have to travel the same path twice.", 'Its people are nomadic at heart, and conversations are treated as journeys.', 'Everyone here is always underway to somewhere or something. The idea of stopping or standing still is mystified and treated with fear.', 'An impossible number of birds makes their home here, and the sky is always busy. Its people consider birds good luck, and this place in turn blessed.', 'The dwellings and surroundings appear to have faces when one looks away. Upon close inspection, nothing. Its people are mysterious and jumpy.' )) (set: $problems to (array: 'Tyrant', 'Famine', 'Disease' )) }

{ (set: $locationName to $placeNames's (random: 1, $placeNames's length)) }

{  (set: $problemName to 'problem name' )  (set: $problemFlavour to 'problem description' )  (set: $solution1 to (dm: 'name', 'violence', 'years', 5, 'progress', 7, 'longevity', 15, 'flavourTrue', 'description of option when player agreed.' 'flavourFalse', 'description of option when player disagreed.' )) (set: $solution2 to (dm: 'name', 'inspiring', 'years', 12, 'progress', 10, 'longevity', 25, 'flavourTrue', 'description of option when player agreed.' 'flavourFalse', 'description of option when player disagreed.' )) }

Passages can be used as functions. Use this to your advantages when keeping things modular. Multiple passages: GENERATE LOCATION This sets all the GLOBAL variables needed to construct a location. This is a function and will not be displaying any text. This includes its STATS, FLAVOUR and SOLUTIONS. ARRIVE AT LOCATION This will display basic information about the location and the solutions available there. PICKED SOLUTION This will display the basic information about the location, the solution you picked and its outcomes. Includes an option to advance to the next location. PICK LOCATION This will generate some basic locations, including how long it will take to travel there,and let the player pick where to go. This will lead to ARRIVE AT LOCATION. STATS. At all times, time passed and progress towards change is displayed at the top of the page. HISTORY On most pages, the player can click to go to a history page to review their past changes and how it affects their journey.  How to save history Any event needs to be stored in a variable. Events are the following; Ariving in a new place. Solving the problem of that place. ARRIVING IN A NEW PLACE Year the player arived there. (number) Name of place. (string) SOLVING THE PROBLEM OF A PLACE Year the problem was solved (implying the time passed since ariving there) (number) Progress made by that solution. (number) When this act will be forgotten or misremembered. (number) How the problem was solved (string) Inspired in part by Invisible Cities, Pyre, The Old Guard, Friends at the Table.

{ (set: _numberOfProblems to 7) (set:_problemSelection to (random: 1, _numberOfProblems)) (if: _problemSelection is 1)[ (display: "wealthDisparity")] (else-if: _problemSelection is 2)[ (display: "frequentRaids")] (else-if: _problemSelection is 3)[ (display: "badWater")] (else-if: _problemSelection is 4)[ (display: "noHomes")] (else-if: _problemSelection is 5)[ (display: "badLeader")] (else-if: _problemSelection is 6)[ (display: "noEducation")] (else-if: _problemSelection is 7)[ (display: "foodDesert")] }

{ (set: _locationName to (display: "generateLocationName")) (set: _locationFlavour to (display: "generateLocationFlavour")) (set: _locationProblemName to 'placeholderValue') (set: _locationProblemFlavour to 'placeholderValue') (set: _locationSolution1 to 'placeholderValue') (set: _locationSolution2 to 'placeholderValue') (set: $locationName to _locationName) (set: $locationFlavour to _locationFlavour) (set: $locationProblemName to _locationProblemName) (set: $locationProblemFlavour to _locationProblemFlavour) (set: $locationSolution1 to _locationSolution1) (set: $locationSolution2 to _locationSolution2) }

{ (set: _flavourShort to $placeFlavourTable1's (random: 1, $placeFlavourTable1's length) + $placeFlavourTable2's (random: 1, $placeFlavourTable2's length)) (set: _flavourFull to _flavourShort + ' ' + $placeFlavourTable3's (random: 1, $placeFlavourTable3's length)) (set: $locationFlavourFull to _flavourFull) (set: $locationFlavourShort to _flavourShort) }

(display: "displayTimeProgress") (display: "locationDescription") (display: "displayProblem") (link: $solution1's 'name')[ (set: $timePassed to it + $solution1's 'years') (set: $progressMade to it + $solution1's 'progress') (set: $pickedSolution to $solution1) (set: _solveText to $locationName + "'s problem of " + $problemName + " was resolved. " + $youOrName + " chose to " + $pickedSolution's 'name') (set: $eventLog to it + (a:(dm: "Year", $timePassed, "Event", _solveText))) (set: $expireList to it + (a:(dm: "EventNumber", $eventLog's length, "ExpireYear", $timePassed + $pickedSolution's 'longevity'))) (set: $currentScreen to "pickedSolution") (display: "longevityChecker") (goto: "pickedSolution") ] (link: $solution2's 'name')[ (set: $timePassed to it + $solution2's 'years') (set: $progressMade to it +$solution2's 'progress') (set: $pickedSolution to $solution2) (set: _solveText to $locationName + "'s problem of " + $problemName + " was resolved. " + $youOrName + " chose to " + $pickedSolution's 'name') (set: $eventLog to it + (a:(dm: "Year", $timePassed, "Event", _solveText))) (set: $expireList to it + (a:(dm: "EventNumber", $eventLog's length, "ExpireYear", $timePassed + $pickedSolution's 'longevity'))) (set: $currentScreen to "pickedSolution") (display: "longevityChecker") (goto: "pickedSolution") ] (if: $agreed is true)[(link: "Review your Saga")[(goto: "viewHistory")]] (else:)[(link: "Review " + $name + "'s Saga")[(goto:"viewHistory")]]

{ (set: $currentScreen to "pickedSolution") (display: "longevityChecker") }(display: "displayTimeProgress") (display: "locationDescription") (display: "displayProblem") (if: $agreed is true)[ (print: $pickedSolution's 'flavourTrue')] (else:)[(print: $pickedSolution's 'flavourFalse') ] (link: "Where ")[ (display: "winChecker") (goto: "pickLocation") ]{(if: $agreed is true)[ will your journey take you next? ] (else:)[ will $name's journey take them next? ]} (if: $agreed is true)[(link: "Review your Saga")[(goto: "viewHistory")]] (else:)[(link: "Review " + $name + "'s Saga")[(goto:"viewHistory")]]

{(set: $currentScreen to "pickLocation") (display: "generateLocationName") (display: "generateLocationFlavour") (set: _location1 to (a: $locationName, $locationFlavourShort, $locationFlavourFull)) (display: "generateLocationName") (display: "generateLocationFlavour") (set: _location2 to (a: $locationName, $locationFlavourShort, $locationFlavourFull)) (set: $makeLocations to false) }(display: "displayTimeProgress") (if: $agreed is true)[ Where will your journey take you next? ] (else:)[ Where will $name's journey take them next? ] (link: "Journey to " + _location1's 1st)[ (set: $timePassed to it + (random: 1,5)) (set: $locationName to _location1's 1st) (set: $locationFlavourFull to _location1's 3rd) (display: "problemSelector") (set: $eventLog to it + (a:(dm: "Year", $timePassed, "Event", "Arrived at " + $locationName))) (set: $currentScreen to "ariveAtLocation") (set: $makeLocations to true) (display: "longevityChecker") (goto: "ariveAtLocation") ] (print: _location1's 2nd) (link: "Journey to " + _location2's 1st)[ (set: $timePassed to it + (random: 1,5)) (set: $locationName to _location2's 1st) (set: $locationFlavourFull to _location2's 3rd) (display: "problemSelector") (set: $eventLog to it + (a:(dm: "Year", $timePassed, "Event", "Arrived at " + $locationName))) (set: $currentScreen to "ariveAtLocation") (set: $makeLocations to true) (display: "longevityChecker") (goto: "ariveAtLocation") ] (print: _location2's 2nd) (if: $agreed is true)[(link: "Review your Saga")[(goto: "viewHistory")]] (else:)[(link: "Review " + $name + "'s Saga")[(goto:"viewHistory")]]

{(display: "initVariables") (set: $name to "Andromache") (set: $currentScreen to "introduction") } $name is an immortal that has lived for countless generations. Only they are old enough to see the cycles of history repeat itself. They are sick of watching the downward spiral of the wheel of destiny, and seek to break it by bringing about revolution. Do you agree with this goal? (link: "YES")[ (set: $agreed to true) (goto: "agreedScreen") ] (link: "NO")[ (set: $agreed to false) (goto: "agreedScreen") ]

(link: "Return")[ (goto: $currentScreen) ] (for: each _a, ...$eventLog) [ (print: _a's "Year") (print: _a's "Event")] (link: "Return")[ (goto: $currentScreen) ]

(if: $agreed is true)[You are in **$locationName**,] (else:)[$name is in **$locationName**,] $locationFlavourFull

It is the year **$timePassed**,{ (if: $progressMade < 30)[ (print: " the land is filled with strife and turmoil.") ] (else-if: $progressMade <60)[ (if: $agreed is true)[ (print: " words of your deeds are spreading. Something akin to hope spreads with it.")] (else:)[ (print: " words of " + $name + "'''''s deeds are spreading. Something akin to hope spreads with it.")] ] (else-if: $progressMade <90)[ (if: $agreed is true)[ (print: " your actions inspire many to act as well. People are starting to feel the winds of change.")] (else:)[ (print: " the actions of " + $name + " inspire many to act as well. People are starting to feel the winds of change.")] ] (else-if: $progressMade <120)[ (print: " hope is the pervailing feeling in the land.") ] (else:)[ (print: " change and revolution are openly discussed, and imminent.") ] }

{  (set: $problemName to 'Wealth Disparity' )  (set: $problemFlavour to 'The ruling class of this community has been hoarding wealth for generations. The working class is increasingly denied their basic needs, tensions are high and hope is low amongst the many poor. They fight amongst themselves for scraps.' )  (set: $solution1 to (dm: 'name', 'Oust the wealthy.', 'years', 5, 'progress', 20, 'longevity', 30, 'flavourTrue', 'You oust those who hoard the resources, and dispose of those willing to die for their riches. The wealth is redistributed amongst the people, and the systems are reformed.', 'flavourFalse', $name + ' ousts those who hoard the resource, and disposes of those willing to die for their riches. The wealth is redistributed amongst the people, and the systems are reformed.' )) (set: $solution2 to (dm: 'name', 'Organise the working class.', 'years', 10, 'progress', 10, 'longevity', 100, 'flavourTrue', 'You take a place in the community and learn of their plights. You guide them to see their value, and the power they hold. The working class combines their strength, and denies the ruling class their power. In the resulting conflict, you protect the impromptu leaders of the revolt. Several members of the ruling class die in the struggle, but in the end, all those who remain are acutely aware of how deeply flawed the system was to begin with. They begin anew, clumsy but hopeful.', 'flavourFalse', $name + ' takes a place in the community and learns of their plights. They guide them to see their value, and the power they hold. The working class combines their strength, and denies the ruling class their power. In the resulting conflict, ' + $name + ' protects the impromptu leaders of the revolt. Several members of the ruling class die in the struggle, but in the end, all those who remain are acutely aware of how deeply flawed the system was to begin with. They begin anew, clumsy but hopeful.' )) }

The community is troubled by **$problemName.** $problemFlavour

{ (set: $startLog to "You set out on your journey") (if: $agreed is false)[(set: $startLog to $name + " set out on their journey.")] (set: $eventLog to it + (a:(dm: "Year", 0, "Event", $startLog, "Longevity", 0))) (set: $youOrName to "You") (if: $agreed is false)[ (set: $youOrName to $name) ] }(if: $agreed is true)[This is your story. You will touch people's lives and try to improve their situations. Your acts will be experienced, remembered and forgotten. (link: "START YOUR JOURNEY")[ (goto: "pickLocation") ]] (else:)[This is the story of $name. Please listen to it as they try to improve the world. Your choices, their actions. (link: "START " + (uppercase: $name) + "'S JOURNEY")[ (goto: "pickLocation")] ]

{ (set: $expiredEvents to (a:)) (set: $itemsToClear to (a:)) (for: each _i, ...$expireList)[ (if: $timePassed > _i's "ExpireYear")[ (set: $expiredEvents to it + (a:$eventLog's (_i's "EventNumber"))) (set: $itemsToClear to it + (a: _i)) ]] (if: $expiredEvents's length > 0)[ (set: $expireList to $expireList - $itemsToClear) (goto: "reportExpiration") ] }

(for: each _i, ...$expiredEvents)[ In the year (print: _i's "Year"),(print: " " + _i's "Event") This event has been forgotten. (set: $progressMade to it - (random: 5,20)) (set: $eventLog to it + (a:(dm: "Year", $timePassed, "Event", "It has been forgotten that " + _i's "Event")))] (link: "Accept the loss.")[ (goto: $currentScreen) ]

{  (set: $problemName to 'Bandit Raids' )  (set: $problemFlavour to 'Bands of nearby bandits are attacking and extorting the community. They have deprived the community of enough resources that mounting any sort of defense proves near impossible. Besides that, they display enough brutality to dissuade anyone from standing up to them.' )  (set: $solution1 to (dm: 'name', 'Provide Reprieve.', 'years', 5, 'progress', 5, 'longevity', 60, 'flavourTrue', 'You hold off the bandits and give the community opportunity to rebuild their resources and defenses. As the community grows and builds, more and more bandits defect to live in the community instead. Only a handful of bandits havent joined as they move on, finding no more easy prey in the community.', 'flavourFalse', $name + ' holds off the bandits and gives the community opportunity to rebuild their resources and defenses. As the community grows and builds, more and more bandits defect to live in the community instead. Only a handful of bandits havent joined as they move on, finding no more easy prey in the community.' )) (set: $solution2 to (dm: 'name', 'Decimate the bandits.', 'years', 2, 'progress', 13, 'longevity', 25, 'flavourTrue', 'You track down as many bandits as possible, and those that survive learn the meaning of fear. Before long, the area is free of bandits. The community is thankful and fearful.', 'flavourFalse', $name + ' tracks down as many bandits as possible, and those that survive learn the meaning of fear. Before long, the area is free of bandits. The community is thankful and fearful.' )) }

{  (set: $problemName to 'Contaminated Water' )  (set: $problemFlavour to 'The water supply of the community has been contaminated. Illness is common and a feeling of hopelessness is spreading as what little clean water is being rationed for the children runs low.' )  (set: $solution1 to (dm: 'name', 'Find a new water source.', 'years', 5, 'progress', 15, 'longevity', 30, 'flavourTrue', 'You explore the nearby land in search of a new water source for the community. When one is found, the locals cooperate to devise the best way to get the water to where it needs to go. It takes effort, but everybody is proud of the result.', 'flavourFalse', $name + ' explores the nearby land in search of a new water source for the community. When one is found, the locals cooperate to devise the best way to get the water to where it needs to go. It takes effort, but everybody is proud of the result.' )) (set: $solution2 to (dm: 'name', 'Find the source of the poison.', 'years', 8, 'progress', 10, 'longevity', 60, 'flavourTrue', 'You investigate the water source and research the poison. Eventually its source is found deep underground. An ancient carcass has started to rot into the supply. With combined effort, the carcass is sealed off. The experience unitied the community deeply.', 'flavourFalse', $name + ' investigates the water source and researches the poison. Eventually its source is found deep underground. An ancient carcass has started to rot into the supply. With combined effort, the carcass is sealed off. The experience unitied the community deeply.' )) }

{  (set: $problemName to 'Shortage of Housing' )  (set: $problemFlavour to 'A large part of the population is denied housing. There are few suitable places for people to stay in this place, and what places are there have been claimed by small groups who make high demands of any who seek shelter with them. It divides the community.' )  (set: $solution1 to (dm: 'name', 'Construct additional homes.', 'years', 15, 'progress', 20, 'longevity', 60, 'flavourTrue', 'You set to work. Resources are located and a supply line established. As the new homes are built, those who hoard the living spaces interfere, afraid of the power they will lose. It comes to blows a few times, but work never stops. When any and all have a home, those that wielded housing as a tool of oppresion are left weak and sullen. The community feels strong and secure.', 'flavourFalse', $name + ' sets to work. Resources are located and a supply line established. As the new homes are built, those who hoard the living spaces interfere, afraid of the power they will lose. It comes to blows a few times, but work never stops. When any and all have a home, those that wielded housing as a tool of oppresion are left weak and sullen. The community feels strong and secure.' )) (set: $solution2 to (dm: 'name', 'Increase access.', 'years', 3, 'progress', 10, 'longevity', 30, 'flavourTrue', 'You confront those who claimed the dwellings. They have no intention of giving up their power easily. The community grows angry at their refusal, and eventually, enough is enough. You exemplify a member of the hoarding group, and the others quickly get the message. The community reclaims these spaces and they feel lively and optimistic.', 'flavourFalse', $name + ' confronts those who claimed the dwellings. They have no intention of giving up their power easily. The community grows angry at their refusal, and eventually, enough is enough.' + $name + ' exemplifies a member of the hoarding group, and the others quickly get the message. The community reclaims these spaces and they feel lively and optimistic.' )) }

{  (set: $problemName to 'Cruel Leadership' )  (set: $problemFlavour to 'The leader of this community is self-apointed and cruel. They care not for the people of this place, only for themselves and their power. The people are overpoliced, punished harshly for the slighest wrongs, and denied the fruits of their own labour. The leader has the community in a vice grip.' )  (set: $solution1 to (dm: 'name', 'Stage a Coup.', 'years', 5, 'progress', 20, 'longevity', 40, 'flavourTrue', 'You mingle, and follow the whisper of discontent to find the voices of revolt. These voices can be stoked, amplified and organised. Before long, with your protection and guidance, a group is ready to take down the leader by force. The day is short, but decisive and brutal. The celebration that follows is like none the community has known.', 'flavourFalse', $name + ' mingles, and follows the whisper of discontent to find the voices of revolt. These voices can be stoked, amplified and organised. Before long, with' + $name + "'''''s protection and guidance, a group is ready to take down the leader by force. The day is short, but decisive and brutal. The celebration that follows is like none the community has known." )) (set: $solution2 to (dm: 'name', 'Dismantle the regime.', 'years', 10, 'progress', 25, 'longevity', 75, 'flavourTrue', 'You interfere with the systems the leader uses to oppress. Disrupt their policing force, quiet their voices of propoganda. This gives the community the space to breathe and move. Without their leader stopping them, they organise. Form their own systems. In the end, even without interferance, their leader has become powerless against the community who has become self sufficient. The new system feels natural and their old leader quickly fades into obscurity.', 'flavourFalse', $name + ' interferes with the systems the leader uses to oppress. Disrupts their policing force, quiets their voices of propoganda. This gives the community the space to breathe and move. Without their leader stopping them, they organise. Form their own systems. In the end, even without interferance, their leader has become powerless against the community who has become self sufficient. The new system feels natural and their old leader quickly fades into obscurity.' )) }

{  (set: $problemName to 'Lack of Education' )  (set: $problemFlavour to 'Those that settled here did so for safety, and took little with them. Many skills have been lost or never established, and the transfer of knowledge to the new generations is almost nonexistant. The community fears stagnation, and problems can feel insurmountable.' )  (set: $solution1 to (dm: 'name', 'Teach the population.', 'years', 5, 'progress', 15, 'longevity', 30, 'flavourTrue', 'You have walked many lives and have forgotten more than most will learn in a lifetime. With time, this knowledge is passed on to the people here. They are eager for the stories and quickly turn them into skills. A tradition of oral history and teaching is established, and an eagerness can be felt.', 'flavourFalse', $name + ' has walked many lives and has forgotten more than most will learn in a lifetime. With time, this knowledge is passed on to the people here. They are eager for the stories and quickly turn them into skills. A tradition of oral history and teaching is established, and an eagerness can be felt.' )) (set: $solution2 to (dm: 'name', 'Set up schools.', 'years', 8, 'progress', 20, 'longevity', 80, 'flavourTrue', 'You establish places and systems of learning within the community. Focussing on teaching the most important skill of all, to teach. Key members of the community step up and dedicate themselves to this endeavour, and help identify the key skills and knowledge needed. A sense of pride fills the air in the new places of learning, and their doors are always open to all.', 'flavourFalse', $name + ' establishes places and systems of learning within the community. Focussing on teaching the most important skill of all, to teach. Key members of the community step up and dedicate themselves to this endeavour, and help identify the key skills and knowledge needed. A sense of pride fills the air in the new places of learning, and their doors are always open to all.' )) }

{  (set: $problemName to 'Food Shortage' )  (set: $problemFlavour to 'The lands infertile and overhunted, the community has little access to food. Surrounding communities overcharge when trading food, sensing desperation. Hunger is widespread and the situation feels hopeless as most energy is spent deciding how to devide and ration what little food there is.' )  (set: $solution1 to (dm: 'name', 'Cultivate the Land.', 'years', 10, 'progress', 15, 'longevity', 60, 'flavourTrue', 'You begin the long and arduous procress of tending to the land. The soil requires intense tilling, and with a lot of care, small plots begin to grow again. The community is hopefull at this, and joins in the process. Before long, most people are helping and learning about the process. As flora returns, fauna follows, and it is clear a healthy ecosystem is in the areas near future.', 'flavourFalse', $name + ' begins the long and arduous procress of tending to the land. The soil requires intense tilling, and with a lot of care, small plots begin to grow again. The community is hopefull at this, and joins in the process. Before long, most people are helping and learning about the process. As flora returns, fauna follows, and it is clear a healthy ecosystem is in the areas near future.' )) (set: $solution2 to (dm: 'name', 'Establish fair trading.', 'years', 3, 'progress', 8, 'longevity', 30, 'flavourTrue', 'You visit the nearby communities and bargain for their food. Quickly identifying those that are sympathetic to the community. Trading agreements are put in place that ensure fairer prices, and before long, the community is able to catch their breath and better fend for themselves. A sense of pride returns to the community.', 'flavourFalse', $name + ' visits the nearby communities and bargains for their food. Quickly identifying those that are sympathetic to the community. Trading agreements are put in place that ensure fairer prices, and before long, the community is able to catch their breath and better fend for themselves. A sense of pride returns to the community.' )) }

{ (set: $currentScreen to "winScreen") } (if: $agreed is true) [After $timePassed years of journeying across the land, helping communities, you have finally brought about revolution. You have shown the people a different path, and that they always held the strength to walk it. The wheel of fate has been broken.] (else:) [After $timePassed years of journeying across the land, helping communities, $name has finally brought about revolution. $name has shown the people a different path, and that they always held the strength to walk it. The wheel of fate has been broken.]

{ (if: $progressMade > 150)[ (goto: "winScreen") ] }