Theatre and Dream tables, More Time System work

The player now has their first stat: a fatigue graph.

story.ni

@@ -1,5 +1,7 @@
 "To Wander Theoma" by Rakeela Windrider and Kistaro Windrider
 
+The block sleeping rule is not listed in the check sleeping rulebook.
+
 The player's full name is indexed text that varies.
 The player's short name is indexed text that varies.
 The player's sex is indexed text that varies.
@@ -11,6 +13,9 @@ A species is a kind of value.  A person has a species.  The species are vrash, v
 
 The list of random dragon species is always {vrash, vashael, kalla, vohntrai, izerah, veserus, myrskor, myrghon, swaivshon}.
 
+A current city is a kind of value.  The current cities are Ethriel, Edge of Paradise, Kylon, Galrien, Nowhere, Norvsiik, Comptichrak, Myrhigh, Korltian, Akaveach, Whinge, Kantin, Rhaltin, Dartroveiln, Kravakaneke, Woodwall, Kreskechrak, Nerevehn, Asere, Mosdenechrak, Zyrine, Inrakaveach, Rhakanin, Suvkeyanin, Hiakoreska, Corvuseach, Hyvaline, Wyranine, Vishen, Ghost Farm, Mivsiik, Baunt, Fishergon's Retreat, Stone River, Sea's Bounty, Viviveyrm, Sovesviik, Xanasal, Raldrani, Moriskiik, Ediveyrm, Izaeyaranth, Polser, Mania, Ztornaranth, Borochrak, Iron Hills, Shraneyrm, Isoss, Shibanyet, Korjek, Sorjek, Wild Edge, Norickhum, Phoenix Sea, Theoma's Limit, Zyaket, Inevrae, Iyanti, Mundanity, Rodrimor, Onayraye, Uskadi, Skrend, Oriaryo, Tearvek, Irovek, Kyvsiveiln, Memory of Esseri, Memory of Tesam, and Memory of Chakocha.  The current city is usually Ethriel.
+A home in Ethriel is a truth state that varies.  A home in Ethriel is usually true.
+
 A job is a kind of value. The jobs are merchantgon, servicegon, flygon, laborgon, huntgon, farmgon, craftsgon, and unemployed. Every person has a job. The job of a person is usually unemployed. Understand the job property as describing a person.
 A color is a kind of value.  The colors are green, crimson, brown, blue, grey, black, pink, white, bronze, gold, and silver.
 A marking pattern is a kind of value.  A person has a marking pattern.  The marking patterns are stripes, speckles, spots, blotches, socks, and mask.
@@ -149,8 +154,55 @@ TurnsCount is a number that varies.  TurnsCount is usually 0.
 Every turn:
 	now TimekeepingVar is remainder after dividing TurnsCount by 4;
 
+A person has a number called TirednessVar.  TirednessVar is usually 0.
+
 This is the turnpass rule:
 	Now TurnsCount is TurnsCount + 1;
+	let Tiredness be the TirednessVar of the player;
+	If Tiredness is 0:
+		do nothing;
+	Otherwise if Tiredness is 1:
+		do nothing;
+	Otherwise if Tiredness is 2:
+		do nothing;
+	Otherwise if Tiredness is 3:
+		If the species of the player is izerah:
+			say "You could sleep now.  You don't need to yet.";
+		Otherwise:
+			say "You really badly want to sleep now.";
+	Otherwise if Tiredness is 4:
+		If the species of the player is izerah:
+			say "You could sleep now.  You don't need to yet.";
+		Otherwise:
+			say "You're really questioning the sanity of your decision to skip a night of sleep.";
+			If a random chance of 1 in 2 succeeds:
+				follow the zombiesleep rule;
+	Otherwise if Tiredness is 5:
+		If the species of the player is izerah:
+			say "You could sleep now.  You don't need to yet.";
+		Otherwise:
+			say "You're really questioning the sanity of your decision to skip a night of sleep.";
+			If a random chance of 1 in 2 succeeds:
+				follow the zombiesleep rule;
+	Otherwise if Tiredness is 6:
+		If the species of the player is izerah:
+			say "You could sleep now.  You don't need to yet.";
+		Otherwise:
+			say "You're really questioning the sanity of your decision to skip a night of sleep.";
+			If a random chance of 1 in 2 succeeds:
+				follow the zombiesleep rule;
+	Otherwise if Tiredness is 7:
+		If the species of the player is izerah:
+			say "You're running into the limits of the izerah ability to ignore the need for sleep.  You really want to go to bed.";
+		Otherwise:
+			say "You're really questioning the sanity of your decision to skip a night of sleep.";
+			If a random chance of 1 in 2 succeeds:
+				follow the zombiesleep rule;
+	Otherwise if Tiredness > 7:
+		say "You're really running on fumes now.  The world is getting noisy and harder to perceive as your brain struggles with your lack of sleep.";
+		If a random chance of 1 in 2 succeeds:
+			follow the zombiesleep rule;
+	Now the TirednessVar of the player is the TirednessVar of the player + 1;
 	If TimekeepingVar is 3:
 		Now DateDayKelkaith is DateDayKelkaith + 1;
 		Now DateDayTachamund is DateDayTachamund + 1;
@@ -179,6 +231,11 @@ This is the turnpass rule:
 	If DateMonthTachamund is 14:
 		Now DateMonthTachamund is 1;
 
+This is the zombiesleep rule:
+	say "You can't help yourself any longer.  You wander off, semi-conscious, and find somewhere to fall asleep.";
+	try silently going home;
+	try silently sleeping;
+
 To say Time Of Day:
 	If TimekeepingVar is 0:
 		say "Morning";
@@ -1931,10 +1988,10 @@ The list of random NPC description templates is always {"The [epidermis of speci
 
 Table of Name Fragments
 culture	fore	aft
-Kelkaithian	{"Stal", "Kanu", "Cha", "Vana", "To", "Ro", "Rew", "Su", "Suka", "Quel", "Ral", "Mera", "Mo", "Molo", "Mako", "Moko", "Quelno", "Saka", "Sak", "Hel", "Hev", "Nal", "Mal", "Ker"}	{"bon", "van", "kar", "naffi", "itar", "en", "vold", "zold", "rold", "rol", "vo", "vol", "zo", "zol", "ul", "quan", "ley", "lee", "ria", "riz"}
+Kelkaithian	{"Stal", "Kanu", "Cha", "Vana", "To", "Ro", "Rew", "Su", "Suka", "Quel", "Ral", "Mera", "Mo", "Molo", "Mako", "Moko", "Quelno", "Saka", "Sak", "Hel", "Hev", "Nal", "Mal", "Ker", "Val", "Valnay"}	{"bon", "van", "kar", "naffi", "itar", "en", "vold", "zold", "rold", "rol", "vo", "vol", "zo", "zol", "ul", "quan", "ley", "lee", "ria", "riz"}
-Tachamundi	{"Va", "Ko", "We", "Til", "Tai", "Ro", "Thimo", "Dan", "Alei", "Indi", "Malu", "Met", "Raul", "Cha", "Daw", "Dau", "Moko", "Nalko", "E", "Ora", "Hon", "Lor", "Chatu", "Daub", "Dar"}	{"bon", "bold", "pare", "sei", "tios", "ziu", "sach", "tarn", "ria", "goli", "loave", "koave", "zin", "zau", "riara", "tis", "rezen", "hai", "lin", "chrak", "skeld", "riz", "ta", "rio", "rian"}
+Tachamundi	{"Va", "Ko", "We", "Til", "Tai", "Ro", "Thimo", "Dan", "Alei", "Indi", "Malu", "Met", "Raul", "Cha", "Daw", "Dau", "Moko", "Nalko", "E", "Ora", "Hon", "Lor", "Chatu", "Daub", "Dar", "Sei"}	{"bon", "bold", "pare", "sei", "tios", "ziu", "sach", "tarn", "ria", "goli", "loave", "koave", "zin", "zau", "riara", "tis", "rezen", "hai", "lin", "chrak", "skeld", "riz", "ta", "rio", "rian", "kret"}
 Kanjamundi	{"Cr", "Sp", "Sh", "Kr", "Tal", "N", "Tin", "Raul", "Yar", "Y", "Kel", "Ingr", "Indr", "Vul", "Nal", "W", "Qu", "Mol", "Molt", "Quir", "Yt", "Kish", "Riz", "Wr", "Vrek", "Dyl", "Zyr", "Sol"}	{"inoi", "ailo", "eave", "amae", "inika", "alva", "ion", "ika", "ia", "ian", "alae", "amaino", "amaine", "onoko", "euven", "en", "imist", "osta", "imista", "atha", "eyen", "askal"}
-Memorian 	{"Tira", "Nor", "Kro", "Quan", "Vana", "Chan", "Quaru", "Ethru", "Mal", "Il", "Quel", "Quirra", "Mol", "Ri", "Rini", "Me", "Enderenu"}	{"lista", "nista", "para", "tios", "konos", "molian", "laith", "ria", "drao", "nori", "vaskal", "dem", "mista", "vista"}
+Memorian 	{"Tira", "Nor", "Kro", "Quan", "Vana", "Chan", "Quaru", "Ethru", "Mal", "Il", "Quel", "Quirra", "Mol", "Ri", "Rini", "Me", "Enderenu", "Va", "Val"}	{"lista", "nista", "para", "tios", "konos", "molian", "laith", "ria", "drao", "nori", "vaskal", "dem", "mista", "vista"}
 
 Definition: a person (called The Dude) is ambiguously-named:
 	let whereabouts be the location of The Dude;
@@ -1948,13 +2005,105 @@ When play begins:
 		if dude is the player, next;
 		procgen dude.
 
+To say Location Command Block:
+	say "'Seek entertainment' will bring you to the entertainment options for your current city, 'Seek rest' will take you to your home, or to your room at a local inn if you haven't got a home in this town, 'seek work' will take you to the daywork options screen, 'seek cargo' will take you to a mercantile clearinghouse (also the destination for delivering cargo), or 'seek nature' to go hunting, gathering, or just relax in nature (doesn't work in some cities).  'Seek food' will give you the civilized restaurant and grocery options (if available).  You can also 'depart' to go to another city if your preparations are adequate."
+		
+To say Personal Command Block:
+	say "You can always 'calendar' to see the current date in all three calendars or check the 'sheet' to see your own stats and skills."
+
+Understand "seek rest" as going home.  Going home is an action applying to nothing.  Instead of going home when current city is Ethriel:
+	If the location is Your Sort-Of Home in Ethriel:
+		stop the action;
+	Otherwise if the location is Your Room in an Ethriel Inn:
+		stop the action;
+	Otherwise if a home in Ethriel is true:
+		move the player to Your Sort-Of Home in Ethriel;
+	Otherwise:
+		move the player to Your Room in an Ethriel Inn;
+	
+Understand "seek entertainment" as seeking entertainment.  Seeking entertainment is an action applying to nothing.  Instead of seeking entertainment when current city is Ethriel:
+	move the player to Entertainment Options in Ethriel.
+
 Your Favorite Bathhouse in Ethriel is a room.  It is chargen of Career Intercept.  "Ethriel is on the short, prestigious list of theomes renowned for its public bathhouses.  Most of the bathhouses in Theoma have separated sex-positive and sex-negative baths.  The hot water is delightful.  [if the alloace spectrum of the player is sex-repulsed asexual]You, of course, are in the sex-negative side of the baths.  You're allowed to flirt here, but you'll never see anything more explicit than a kiss.[otherwise]You are in the sex-positive side of the baths.  Public displays of sexuality are acceptable but never compulsory here.[end if]
 
-Off to the side, you see a [if the alloace spectrum of the player is sex-repulsed asexual]vrash parent lounging with a small vrash who is almost certainly their child.[otherwise]trio of vrash groping each other.  One of them is out of the water with her tail raised over the pool, and another has his nose pushed forward to take advantage.[end if]"
+Off to the side, you see a [if the alloace spectrum of the player is sex-repulsed asexual]vrash parent lounging with a small vrash who is almost certainly their child.[otherwise]trio of vrash groping each other.  One of them is out of the water with her tail raised over the pool, and another has his nose pushed forward to take advantage.[end if]  This kind of scene is pretty normal here.
+
+Local commands:  You can 'relax' here, or 'talk to' a local.
+Area Change commands:  [Location Command Block]
+Personal Commands:  [Personal Command Block]".
 
 There are 2 privately-named proper-named people in Your Favorite Bathhouse in Ethriel.
 
-test testgon with "chargen / allosexual / chargen / kalla / kalla / herm herm / chargen / 2 careers".
+Your Sort-Of Home in Ethriel is a room.  "This isn't really your home anymore, now that you've quit your job and resolved to go adventuring.  You'll be gone for years, so you imagine.  This traveling is going to be your new career.  Are you going to come back to Ethriel at the end of your journey?  If you're just going to move away, you should probably sell your home.  Otherwise, it'll sit here gathering dust in your absence.
+
+Local commands:  You can 'sleep' or 'read a book' here.  If you want to read a specific book or bookgem, 'read <title>' will focus on it.  If anyone is traveling with you and staying in your room as they do, you may 'talk to' them.
+
+Area Change commands:  [Location Command Block]
+Personal Commands:  [Personal Command Block]"
+
+A check sleeping rule:
+	If the TirednessVar of the player is less than 3:
+		say "You're not sleepy.";
+		Stop the action;
+
+Carry out sleeping (this is the standard carry out sleeping rule):
+	try silently going home;
+	say "[Dream]";
+	follow the resting rule;
+	
+This is the resting rule:
+	Now the TirednessVar of the player is 0;
+	follow the turnpass rule;
+	
+To say Dream:
+	If a random chance of 1 in 9 succeeds:
+		choose row 3 in the Table of Dreams;
+		say "You have a nightmare about [a random item from subject entry].";
+	Otherwise if a random chance of 3 in 9 succeeds:
+		choose row 2 in the Table of Dreams;
+		say "You have a confusing dream about [a random item from subject entry].";
+	Otherwise:
+		choose row 1 in the Table of Dreams;
+		say "You have a pleasant dream about [a random item from subject entry].";
+		
+Table of Dreams
+valence	subject
+"good"	{"phoenixes", "friendly vrash-like beings", "stinky but amicable chakocha, tesam, and esseri", "exploring a ruined city while feeling oddly serene", "being a fantastic musician", "being a fantastic artgon", "cuddling someone you like", "resting in a beautiful place", "counting an endless pile of treasure", "playing a game", "exploring an endless temple", "flying over a metal cityscape", "sunning yourself", "swimming in a coastal lagoon", "eating in a fancy restaurant", "playing in a treasure vault", "bells", "cute otters", "being a ghost", "running endlessly without fatigue", "an infinite forest", "an infinite swamp", "vacationing in a place with beautiful clifftop vistas", "talking to a raven", "talking to a friend", "talking to your parents", "contemplating a beautiful, shifting pattern", "sleeping in a comfortable, safe place", "a vrash in beautiful armor", "the greater tube-like shape of Theoma", "your own geomantic interface", "flying over a herd of prey animals in a fertile plains", "eating an endless meal of your favorite foods", "a strangely familiar vohntrai", "the Archive of Lost Things", "writing a story", "resting in a quiet, silent cave", "shopping with an unlimited budget", "playing a game with people you like", "reading a book", "talking to a snake"}
+"confusing"	{"phoenixes", "friendly bugs", "eating in a fancy restaurant where you don't recognize any of the food items", "dancing with a weird thing", "tracing a complicated knot", "cutting the world apart with your claws", "getting lost in an endless temple", "getting lost in a ruined city", "chasing something between several different worlds", "time travel", "playing an extremely complicated game", "a chaotic mishmash of images", "a friendly being whose shape changes constantly", "being too drunk to function", "performing in a play whose lines you don't know", "reciting a nonsensical poem", "doing math", "an otter the size of Theoma", "meditating in a land of endless fire", "contemplating a beautiful, shifting pattern", "people who can't say anything directly, but who can only speak in jokes, puns, and innuendo", "being a hive-mind", "being a thing made of lightning that cannot see or speak, yet interacts with the world nonetheless"}
+"bad"	{"bugs", "not having wings", "fleshy pink things"," demonic entities", "phoenixes", "scenes of tremendous violence", "ruined cities", "giant dragon-eating predators", "babbling nonsense every time you try to talk", "useless legs", "paralysis", "hurting a friend", "snoutless dragons", "toothy monstrosities", "meat moss", "fire", "drowning", "hearing voices", "being wounded", "burying a loved one", "a great calamity", "a vile deception from someone you trusted", "flooding", "a blizzard", "salad", "an otter the size of Theoma", "doing math", "burning in a land of endless fire", "being attacked by a mad ghost", "trying to interact with other dragons while having a stiff, emotionless face"}
+
+Your Room in an Ethriel Inn is a room.  "You've lived in Ethriel for years, but now you've no home here.  The inn charges nightly...  Your room is nice, but small.  It's just one of many.  You've got a blue-padded nest to sleep in and some art on the wall to appreciate, if you like a painting of a rare steak and some fruit.
+
+Local commands:  You can 'sleep' or 'read a book' here.  If you want to read a specific book or bookgem, 'read <title>' will focus on it.  If anyone is traveling with you and staying in your room as they do, you may 'talk to' them.
+
+Area Change commands:  [Location Command Block]
+Personal Commands:  [Personal Command Block]"
+
+Entertainment Options in Ethriel is a room.  "Ethriel has a lot of pilgrimgons visiting the Archive of Lost Things, which gives it a touristgon economy.  It has many options for entertainments.  Really, it's no wonder you lived here for so long.  There are theatres, bowling alleys, bathhouses, card houses, and the most famous museum in Theoma: The Archive of Lost Things.  You can also visit a master artgon to try to view recent paintings and potentially commission a new one, or a book shop to try to pick up a book or bookgem that might just be your new favorite.
+
+Local commands:  The 'visit <type of venue> command will go to specific places.  'Visit theatre' to see a play, 'visit bathhouse' to visit a bathhouse, and so on.  'Visit a theatre' will also be recognized.  Of special note in this location is the 'visit museum' command, which will visit the Archive of Lost Things, the most notable landmark of Ethriel.
+
+Area Change commands:  [Location Command Block]
+Personal Commands:  [Personal Command Block]"
+
+Understand "visit theatre" or "visit a theatre" as visiting a theatre.  Visiting a theatre is an action applying to nothing.  Instead of visiting a theatre in Entertainment Options in Ethriel:
+	sort the Table of Ethriel Plays in random order;
+	If there is a playyear of DateYear in the Table of Ethriel Plays:
+		say "You attend [the play corresponding to a playyear of DateYear in the Table of Ethriel Plays].";
+	Otherwise:
+		choose row 1 in the Table of Ethriel Plays;
+		say "You attend [play entry].";
+	say "You spend a few hours hanging out in cafes, picking up some snacks and chatting about the play you saw with others who attended the showing.  [if TimekeepingVar is 3]Ethriel is spectacular.  It's still alit and active all night long.[end if]";
+	follow the turnpass rule;
+
+Table of Ethriel Plays
+playyear	play
+1227	"Fear the Firelands.  It's a decent drama about an expedition to the firelands that separates a formerly loving couple who were on the expedition.  One of the two develops a god complex when exposed to the ever-burning lands, and refuses to return to Theoma!"
+1227	"Nura's Abyss.  It's a fantastical adventure with wild sets and costumes, and a bunch of staged fights with fake blood and illusions.  It's one of the showiest plays in local theatres and a big hit, but expensive to perform.  You've seen it before, but it retains its imaginative character."
+1227	"Fiddling Lizards.  This romantic comedy romp features a failed polyamorous romance and several energetic musical numbers.  The actual story is tell-y and obvious, but the musical numbers make the whole performance worthwhile."
+
+Understand "visit bathhouse" or "visit a bathhouse" as visiting a bathhouse.  Visiting a bathhouse is an action applying to nothing.  Instead of visiting a bathhouse in Entertainment Options in Ethriel:
+	move the player to Your Favorite Bathhouse in Ethriel;
 
 [Remember to come back and apply skill effects.
 
@@ -2070,3 +2219,5 @@ Potential spell scratch space:
 [Six hour time segments.  7:00, 13:00, 19:00, and 1:00.  Morning, midday, evening, and night.  This gives four locations for standard citydweller characters to cycle between.  Wandering around within a city doesn't take time.  Doing things consumes a time block.  Fatigue hits hard in the night time block — unless someone is an izerah, in which case they can use every other night in some way.  Every NPC needs a home, a workplace, and three preferred recreations.  They're home during their sleep block — which will usually be 1:00-to-7:00.
 
 ]
+
+test testgon with "chargen / allosexual / chargen / kalla / kalla / herm herm / chargen / 2 careers".