{(set: $hotel to (a: "the Hotel Tallachini, a large and luxurious place at the bank of the river Traun.", "the Posthof, a sprawling hotel right in the town center.", "the Gasthof zum Goldenen Kreuz on Kreuzplatz, close to the river Ischl.", "a flat at Wirerstrasse.", "a small flat close to the Casino."))
(set: $doctor to (a: "Dr. Brenner von Felsach in Wirerstrasse.", "Dr. Polak in Wirerstrasse, who is the only physician who speaks English.", "Dr. Mastalier on Ferdinandsplatz."))
(set: $guests to (shuffled: ...(a: (dm: 'name','Ernst von Doctorowitz','gender','m','society',1), (dm: 'name','Johanna Lenz','gender','f','society',1), (dm: 'name','Max Schultze','gender','m','society',1), (dm: 'name','Louise von Nagy','gender','f','society',1), (dm: 'name','August Camphausen','gender','m','society',1), (dm: 'name','Witold Kunatowsky','gender','m','society',1), (dm: 'name','Ludwig Ferdinand Kricheldorff','gender','m','society',1), (dm: 'name','Sofie von Vorbringer','gender','f','society',1), (dm: 'name','Alfred Dowling','gender','m','society',1), (dm: 'name','Anna Neumaier-Lavagnolo','gender','f','society',1), (dm: 'name','Victor Pepinster','gender','m','society',1), (dm: 'name','Jacques Krauss','gender','m','society',1), (dm: 'name','Marie Grabmayer','gender','f','society',1), (dm: 'name','Carl Hoffmann','gender','m','society',1), (dm: 'name','Manuel Orrego','gender','m','society',1), (dm: 'name','Niles Silsbee','gender','m','society',1), (dm: 'name','Samuel de Zoete','gender','m','society',1), (dm: 'name','Jeannette Loeser','gender','f','society',1), (dm: 'name','Josef Biedermann','gender','m','society',1), (dm: 'name','Bertha Markwald','gender','f','society',1), (dm: 'name','Ludwig Wertheim','gender','m','society',1), (dm: 'name','Carl Fisko','gender','m','society',1), (dm: 'name','Auguste Schuhmann','gender','f','society',1), (dm: 'name','Sigmund Bauer','gender','m','society',1), (dm: 'name','Theresia Rosenauer','gender','f','society',1), (dm: 'name','Johann Baptist Jaenger','gender','m','society',1), (dm: 'name','Urban Dietrich','gender','m','society',1), (dm: 'name','Frances H. Tracy','gender','m','society',1), (dm: 'name','Sebastian Engel','gender','m','society',1), (dm: 'name','Emilie Wimmer','gender','f','society',1), (dm: 'name','Benno Nothardt','gender','m','society',1), (dm: 'name','Wilhelm von Sobeck','gender','m','society',1), (dm: 'name','Klara Hellauer','gender','m','society',1), (dm: 'name','Elise Lang','gender','f','society',1), (dm: 'name','Josefa Uhlemann','gender','f','society',1), (dm: 'name','Otto Wild','gender','m','society',1), (dm: 'name','Marcelli Gautier','gender','m','society',1), (dm: 'name','Josef Keylwert','gender','m','society',1), (dm: 'name','Louise Rabe','gender','f','society',1), (dm: 'name','Julie Antonia Huch','gender','f','society',1), (dm: 'name','Caroline Grünhagen','gender','f','society',1), (dm: 'name','Ida von Unruh','gender','f','society',1), (dm: 'name','Isak Teltscher','gender','m','society',1), (dm: 'name','Louise Salisch','gender','f','society',1), (dm: 'name','Christoph Gottlieb Lorenz','gender','m','society',1), (dm: 'name','Sofie Eggeling','gender','f','society',1), (dm: 'name','Caroline Schwalbe','gender','f','society',1), (dm: 'name','Ignaz Böller','gender','m','society',1), (dm: 'name','Ellin Pell','gender','m','society',1), (dm: 'name','Helene Josephine Duff','gender','f','society',1), (dm: 'name','Marie Glyn','gender','f','society',1), (dm: 'name','Aloysia Handl','gender','f','society',1), (dm: 'name','Anna Metternich','gender','f','society',1), (dm: 'name','Molly von Kotzebue','gender','f','society',1), (dm: 'name','Jakob Lichtenstern','gender','m','society',1), (dm: 'name','Josef Mohr','gender','m','society',1), (dm: 'name','Fanni Marckwald','gender','f','society',1), (dm: 'name','Wenzel Czerny','gender','m','society',1), (dm: 'name','Georg Steinwasch','gender','m','society',1), (dm: 'name','Pèche Hart Dyke','gender','m','society',1), (dm: 'name','Wilhelmine von Scheele','gender','f','society',1), (dm: 'name','Gustav Adolf Bräunig','gender','m','society',1), (dm: 'name','Friedrich Pospischil','gender','m','society',1), (dm: 'name','Bartholomäus Denk','gender','m','society',1), (dm: 'name','Othmar Gaschowetz','gender','m','society',1), (dm: 'name','Elisabeth Giraud','gender','f','society',1), (dm: 'name','Georg von Schönermarck','gender','m','society',2), (dm: 'name','Dr. Franz von Aichenegg','gender','m','society',2), (dm: 'name','Wilhelm Le Grand','gender','m','society',2), (dm: 'name','Carlo de Remy','gender','m','society',2), (dm: 'name','Hermann von Seidlitz-Kurzbach','gender','m','society',2), (dm: 'name','Gustav Schwarz von Mohrenstein','gender','m','society',2), (dm: 'name','Benedikt Edler von Hönigsberg','gender','m','society',2), (dm: 'name','Wladyslaw Ritter von Borkowski','gender','m','society',2), (dm: 'name','Dr. Carl Burckhardt','gender','m','society',2), (dm: 'name','Amalie Freiin von Röthlein','gender','f','society',2), (dm: 'name','Amalie de Tokoly','gender','f','society',2), (dm: 'name','Eduard von der Osten','gender','m','society',2), (dm: 'name','Maria Karg Freiin von Bärnkopp','gender','f','society',2), (dm: 'name','Dr. Eduard Kaufmann','gender','m','society',2), (dm: 'name','Johann Edler von Waltwehr','gender','m','society',2), (dm: 'name','Rudolf Ritter von Baader','gender','m','society',2), (dm: 'name','Freiherr Christian Wrede','gender','m','society',2), (dm: 'name','Max Freiherr von Pellkhoven','gender','m','society',2), (dm: 'name','Adolf Ritter Haymerle von Haynthal','gender','m','society',2), (dm: 'name','Dr. Robert Remak','gender','m','society',2), (dm: 'name','Esquire Schele de Vere','gender','m','society',2), (dm: 'name','Filipp Ritter von Holger','gender','m','society',2), (dm: 'name','Sofie Freifrau von Berg','gender','f','society',2), (dm: 'name','Baron Lawiek von Pabst','gender','m','society',3), (dm: 'name','Baron Stanislaus von Scherr-Thoss','gender','m','society',3), (dm: 'name','Baron Friedrich Hornstein','gender','m','society',3), (dm: 'name','Baron Ludwig von Tronschin','gender','m','society',3), (dm: 'name','Baron Ignaz Fellner','gender','m','society',3), (dm: 'name','Baronesse Johanna Bacasy','gender','f','society',3), (dm: 'name','Baron Julius Fürstenwärther','gender','m','society',3), (dm: 'name','Baron Wilhelm von Marenholz','gender','m','society',3), (dm: 'name','Baronin Valerie Ludwigshausen-Wolf','gender','f','society',3), (dm: 'name','Friedrich Graf Zedwitz','gender','m','society',4), (dm: 'name','Philipp Graf Szapory','gender','m','society',4), (dm: 'name','Antonie Gräfin von Batthyany','gender','f','society',4), (dm: 'name','Maria Landgräfin von Fürstenberg','gender','f','society',4), (dm: 'name','Franz Graf Traun','gender','m','society',4), (dm: 'name','Theodor Graf zu Solms-Rödelheim','gender','m','society',4), (dm: 'name','Friedrich Stefan Graf von Brühl','gender','m','society',4), (dm: 'name','Christina Gräfin Schönborn-Buchheim','gender','f','society',4), (dm: 'name','Alexander Graf Mnizech','gender','m','society',4), (dm: 'name','Elise Gräfin von Zollern','gender','f','society',4), (dm: 'name','Anna Gräfin von Dönhoff','gender','f','society',4), (dm: 'name','Louise Gräfin von Hacke','gender','f','society',4), (dm: 'name','Theresia Gräfin von Kinsky','gender','f','society',4), (dm: 'name','Gustav Graf zu Königsegg-Aulendorf','gender','m','society',4), (dm: 'name','Ludwig Graf von Montgelas','gender','m','society',4), (dm: 'name','Otto Baron von Dannenberg','gender','m','society',4), (dm: 'name','Wilhelm Graf von Miggazzi','gender','m','society',4), (dm: 'name','Helene Gräfin von Wurmbrand','gender','f','society',4), (dm: 'name','Vinzenz Graf Ratschinski','gender','m','society',4), (dm: 'name','Theresia Fürstin von Waldburg-Wolfegg-Waldsee','gender','f','society',5))))
(set: $inTown to $guests's (a:1,2,3,4,5,))
(set: $guests to ($guests - $inTown))
(set: $arrived to (a:))
(set: $left to (a:))
(set: $known to (a:))
(set: $host to (dm:))
(set: $hostname to "Noname")
(set: $metMayor to false)
(set: $metEmperor to 0)
(set: $metSisi to 0)
(set: $eveningcounter to 0)
(set: $meetnumber to 0)
(set: $trinkhallevisited to 0)
(set: $invited to false)
(set: $hikingGoals to (shuffled:...(a: (dm: 'place','Rettenbach Wilderness','difficulty',1),
(dm: 'place','Kolowrats Tower','difficulty',3),
(dm: 'place','Rettenbach Alp','difficulty',3),
(dm: 'place','Ischler Salzberg','difficulty',2),
(dm: 'place','Hütteneck','difficulty',4),
(dm: 'place','Hochstockwiese','difficulty',2),
(dm: 'place','Hochmuth','difficulty',4),
(dm: 'place','Ziemitz','difficulty',4),
(dm: 'place','Hainzen','difficulty',4),
(dm: 'place','Kapitel-Alpe','difficulty',2),
(dm: 'place','Jainzen','difficulty',3),
(dm: 'place','ruins of castle Wildenstein','difficulty',2),
(dm: 'place','Kranawettsattel','difficulty',3),
(dm: 'place','Siriuskogel','difficulty',2),
(dm: 'place','Kothalpe','difficulty',3),
(dm: 'place','Brachberg','difficulty',2),
(dm: 'place','Schafberg','difficulty',3))))
(set: $health to (random: 30,60))
<!--(set: $health to 10)-->
(set: $startHealth to $health)
(set: $ennui to (random: 20,50))
<!--(set: $ennui to 88)-->
(set: $startEnnui to $ennui)
(set: $ennuiGain to 10)
(set: $society to 0)
(set: $date to 1)
(set: $injured to false)
(set: str-type $weather to (either: "sun", "clouds", "rain"))}
=><=
#August in Ischl
by Christoph Kaindel
(button:)[[Start->Character]](display: "Header")
---
Yesterday evening I arrived in Ischl. My (either: "maid", "valet") and I took up lodgings in (either: ...$hotel)
In the morning I visited one of the spa doctors, (either: ...$doctor) He declared my health (cond: $health <= 50, "rather poor and recommended frequent visits to the brine baths and long walks.", "satisfactory, but it could still be improved by hiking and swimming.") He wished me well and told me to enjoy my visit.
I spent the rest of the day strolling around town. Ischl is a pretty village at the junction of the rivers Ischl and Traun, surrounded by mountains. 30 years ago Ischl was only known for its salt mines - that, of course, is why the whole region is called "Salzkammergut". But then the healing properties of the brine baths were discovered, and now Ischl is the most popular Alpine resort in Austria.
In the evening I went to the Casino to eat dinner and read the papers. From the //Ischler Bade-Blatt// I learned that (print: $inTown's 1st's name), (print: $inTown's 2nd's name), (print: $inTown's 3rd's name), (print: $inTown's 4th's name) and (print: $inTown's 5th's name) are in town. But I have not met any of them.
{(if: $ennui <= 35)[I am in a good humour today.]
(else-if: $ennui >= 70)[I feel quite glum today. But]
(else:)[I feel indifferent today. But]} I think I will have a pleasant stay in Ischl.
=><=
(set:$date to it+1)[[The next day ->Choice]]=><=
{(if: $ennui < 0)[(set: $ennui to 0)](if: $ennui > 100)[(set: $ennui to 100)](if: $society > 80)[(set: $society to 80)]
(set: $weekday to (nth: $date, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"))
}
(text-style: "bold")[Diary of $firstName $lastName]
//Ischl - $weekday, August $date, 1853//{
(if: $date is 31)[(goto: "Departure")]
(if: $health <= 0)[(goto: "DeathAccident")]
(set: _arrivals to (a:))
(set: _arrivalCount to (either:1,1,2,2,2,3))
(set: _arrivals to $guests's (range:1,_arrivalCount))
(set: $inTown to _arrivals + $inTown)
(set: $guests to $guests - _arrivals)
(if: $known's length > 1)[
(set: $known to (shuffled:...$known))
(if: (find: _guest where _guest's society > 2, ...$known)'s length > 0)[
(set: $host to 1st of (find: _guest where _guest's society > 2, ...$known))(if: (random: 100) < $society)[(set: $invited to true, $hostname to $host's name)]]]
}(set: $ennui to it + $ennuiGain)(if: $ennui >= 100)[(goto: "DeathSuicide")](display: "Header")
---
(if: $date is 15)[Emperor Franz Joseph has arrived! He will spend his birthday on the 18th of August here, as he does every year. He and the Imperial household will stay at the Seeauerhaus on Esplanade.
](if: $date is 18)[Today is the Emperor's birthday, the Imperial family will travel to Wolfgang. The whole town is abuzz with activity. Bands are playing everywhere. Most houses are decorated with flowers. It is a great spectacle. It's a pity that the weather is bad.
](if: $date is 20)[Emperor Franz Joseph has announced his betrothal to Duchess Elisabeth in Bavaria! The whole town is very excited.
](if: _arrivalCount is 1 )[(print: $inTown's 1st's name) has arrived yesterday.](else-if: _arrivalCount is 2)[(print: $inTown's 1st's name) and (print: $inTown's 2nd's name) have arrived yesterday.](else:)[(print: $inTown's 1st's name), (print: $inTown's 2nd's name) and (print: $inTown's 3rd's name) have arrived yesterday.]
(display: "Mood")
(display: "Weather")
I have met (cond: $known's length is 0, "nobody", $known's length is 1, "one person", $known's length > 1, (str: $known's length) + " persons") in Ischl.
What should I do today?
(if: $injured is false)[(if: $health > 30)[(Link-goto:"Exercise")]
[[Go to the bath house->Bath]](if: $weather is not "rain")[
[[Visit a viewpoint around Ischl->Viewpoint]]
[[Go hiking in the mountains->Hiking]]]
[[Spend the day in Ischl->Ischl]]
[[Travel to another town in the region->Travel]]](else:)[[[Consult a doctor ->Doctor]]]
[[Leave Ischl ->Departure]]
(if: $injured is false)[(if: $invited is true)[Tonight I have been invited to the place of $hostname. I am very excited and looking forward to the event!](else:)[As I have not received an invitation, I will have to think of something else to do this evening.]]{(set: _met to false, _conversation to 0, _ennuiReduction to 3, $eveningcounter to it +1)
(set:$meetnumber to (random:1,3))
(if: (random: 10) <=2)[(set: _met to true)]
(set: $ennui to it -_ennuiReduction)}In the evening I went to the (either: "theater. They were showing " + (nth: $eveningcounter, "'Marie, die Regimentstocher', an opera by Gaetano Donizetti.","the mime and dance show 'Der Berggeist vom Dachstein'.", "the opera 'Martha'.", "the opera 'Die Zigeunerin'.", "the opera 'Zampa'.", "the comedy 'Richard Wanderer'.", "a concert by famous singer Jenny Ney."), "Casino. " + (nth: $eveningcounter, "I ate dinner and played billiards.", "I ate dinner and played a few hands of cards.", "I ate dinner and played some chess.", "I ate dinner and read the papers.", "I ate dinner and listened to a concert by J. R. Banoni (harmonica) und J. Lukas (zither and guitar).", "I ate dinner and listened to a concert - song and zither - by Meister, Oettl und Holzeisen."), "Hotel Tallachini. I ate dinner and" + (either: " played billiards.", " played a few hands of cards.", " played some chess."))(if: _met is true)[
(display:"Meeting")](if: $date is 19)[
At night there was a great fireworks show in the Prater Grove, celebrating the Emperor's birthday. It was supposed to take place yesterday, but was rescheduled because of bad weather.](if: $ennui + $ennuiGain >= 100)[
Suddenly I feel strange ... so sad and so very, very tired ...]{(set: _met to false, _activity to (a:), _ennuiReduction to 2, _conversation to 0)
(set:$meetnumber to 1)
(set:_accident to 2)
(set: $ennui to it - _ennuiReduction)
(if: $health >= 10)[(set: _accident to (random: 6))]
(if: (random: 10) <=4)[(set: _met to true)]
(if: _accident > 1)[(set: $health to it + (random: 3,5))(set: $ennui to it - (random: 3,5))](else:)[(set: $health to it - (random: 3,5))]
(set: _activity to (shuffled:...(a:(dm: "normal", "I went to the //Schwimmschule// on the banks of the river Ischl and swam for several hours, with some breaks in between.", "accident", " But suddenly, I had a severe cramp in my " + (either: "leg", "arm", "stomach", "back") + ", almost went under and barely made it to the pier."),
(dm: "normal", "I went to the //Turnanstalt// and did gymnastics for a few hours under the stern eyes of a tutor.", "accident", " I became careless, slipped and hurt my " + (either: "elbow","knee","ankle","wrist","shoulder","hip") + "."),
(dm: "normal", "I rented a horse and went riding for some hours along the river " + (either: "Ischl.", "Traun."), "accident", " My horse got " + (either: "spooked by a fox", "startled by a bird") + ", bolted and threw me off. I hurt my " + (either: "elbow","knee","ankle","wrist","shoulder","hip", "head", "back") + "."),
(dm: "normal", "I hired a fencing instructor for some hours of fencing exercise.", "accident", (either: " I overextended and hurt my leg.", " My protection slipped and his foil struck me in the face. Thankfully, I was not seriously injured.", " I became careless, slipped and hurt my " + (either: "elbow","knee","ankle","wrist","shoulder","hip") + ".")))))
}(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
](print: _activity's 1st's normal)(if: _accident <= 1)[(print: _activity's 1st's accident)]
(cond: _accident > 1, (either: "The physical exercise was quite exhausting, but it felt good.", "By afternoon I felt a bit sore but satisfied.","The thorough workout was very enjoyable.") + " I can feel my health and mood improving.", "I was not injured too badly, but I still hurt and feel worse than I did yesterday.")(if:_met is true)[
(display: "Meeting")]
(if: $invited is true)[(display: "Invitation")](else:)[(display: "Evening")]
=><=
(set:$date to it+1)[[The next day ->Choice]]{(set: _met to false, _ennuiReduction to 3)
(set:$meetnumber to 2)
(if: (random: 10) <=5)[(set: _met to true)]
(set: $health to it + (random: 2,4), $ennui to it - _ennuiReduction)
}(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
](either: (display: "Bathhouse"),(display: "Trinkhalle")) I can feel my health and mood improving.(if: _met is true)[
(display: "Meeting")]
(if: $invited is true)[(display: "Invitation")](else:)[(display: "Evening")]
=><=
(set:$date to it+1)[[The next day ->Choice]]{(set: _met to false, _ennuiReduction to 4, $eveningcounter to it +1)
(set:$meetnumber to 2)
(if: (random: 10) <=5)[(set: _met to true)]
(set: $health to it + (random: 1,4), $ennui to it - _ennuiReduction)
}(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
]Today I went to (nth:$eveningcounter,"Henrietta's Height on Hundskogel",
"Panorama View","Sterzen's Seat","Empress Anna's Place","Rudolf's Fountain","Wirer's Grove","Prince's Place","Sophie's Seat","Mount Calvary","Magyar Bench","Aloysia's Silence","Eleonora's Solitude",
"Malfatti's Heaven","Marianna's Pleasure","Marie Louise's Fountain"), one of the many viewpoints around Ischl. The view across town was (either: "spectacular","impressive","incredible","beautiful"). The pleasant walk has done me good. I can feel my health and mood improving.(if: _met is true)[
(either: "On the way, ", "At the viewpoint, ", "Returning to Ischl, ")(display: "Meeting")]
(if: $invited is true)[(display: "Invitation")](else:)[(display: "Evening")]
=><=
(set:$date to it+1)[[The next day ->Choice]]{(set: _met to false, _ennuiReduction to 6, _accident to 4, _thunderstorm to false, $meetnumber to 1)
(if: (random: 10) <=2)[(set: _met to true)]
(set: $ennui to it - _ennuiReduction)
(set: _hike to (nth: visit, ...$hikingGoals))(set: _needPorters to _hike's difficulty * 20)
(if: $weather is "clouds")[(if: (random: 6) <= 1)[(set: _thunderstorm to true, $injured to true, $ennui to it + 8, $health to it - 12)]]
(if: _thunderstorm is false)[(set: _accident to (random: 3,10) - _hike's difficulty)]
(set: $health to (cond: _accident > 3, $health + (random: 4,6), $health - (random: 5,10)))
}(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
]Today I went to the (print: _hike's place). (cond: _hike's difficulty is 4, "To be on the safe side, I hired a guide, because I was told the path was overgrown and often hard to see.","The path was well worn, and I never lost my way.") (cond: $health < _hike's difficulty * 20, "As I felt too weak to make the climb on my own, I hired a group of porters to carry me up the steep slopes.", "I was quite out of breath when I reached the place.") I was rewarded with (either: "a spectacular","a breathtaking","an impressive","an incredible") view.(if: _met is true)[
(either: "Close to the summit, ", "Resting on a bench, ", "At a small creek, ")(display: "Meeting")]
(if: _thunderstorm is false)[(if: _accident <= 3)[
On the way back I slipped and hurt my (either: "elbow","knee","ankle","wrist","shoulder","hip", "head", "back").]
(cond: _accident > 3, (either: "The physical exercise was quite exhausting, but it felt good.", "After the trip I felt a bit sore but satisfied.","The thorough workout was very enjoyable.") + " I can feel my health and mood improving.", "I was not injured too badly, but I still hurt and feel worse than I did yesterday.")
(if: $invited is true)[(display: "Invitation")](else:)[
(display: "Evening")]](else:)[(display: "Thunder")]
=><=
(set:$date to it+1)[[The next day ->Choice]]{(set: _met to false, _metMayor to false, _ennuiReduction to 4)
(set:$meetnumber to 3)
(set: _locations to (shuffled:...(a:"the Esplanade",
"the Seeauerhaus","Wirer's Garden","the Villa Mastalier, formerly known as Villa Eltz", "the Villa Sickingen in Gries","the Villa Wrbna","the Villa Ugarte","Bachers Villa","the Villa Kinsky")))
(if: $metEmperor is 0)[(if: $date > 15)[(if:(random: 6) <= 1)[(set: $metEmperor to 1, $society to it +15, $ennui to it -15)]]]
(if: (random: 6) <= 1)[(set: _metMayor to true, $metMayor to true, $society to it +5, $ennui to it -3)]
(if: (random: 10) <=8)[(set: _met to true)]
(set: $ennui to it - _ennuiReduction)}
(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
]Today I stayed in Ischl. (either: "I went to the " + (either: "//Kaffeeanstalt// in Schmalnauer's Garden", "//Rettenbachmühle//", "//Kaffeeschank Edlinger//", "//Zauner// in Pfarrgasse") + ". There I drank coffee and had a piece of cake.", "I went to the Casino, where I had lunch and then " + (either: "read the papers in the reading-room." , "played billiards for a while.", "played a few hands of " + (either: "Whist.", "Boston.", "l'Hombre.")), "I walked around town and visited (print: _locations's 1st), (print: _locations's 2nd) and (print: _locations's 3rd).")(if: _metMayor is true)[(either: " On the Esplanade along the river Traun", " On Pfarrgasse", " On Kreuzplatz", " On Landstrasse", " On the bridge to Gries") I met the mayor, Herr Seeauer, and we (either: "had a pleasant conversation", "spoke for some minutes", "exchanged a few words").](if: $metEmperor is 1)[(set: $metEmperor to 2)[
I met Emperor Franz Joseph on the Esplanade in front of the Seeauerhaus! He is a very young, handsome and confident-looking man. He even spoke a few words to me! This must be the greatest day of my life.]](if: $date is 16)[(set: $metSisi to 1)[
In the afternoon I noticed a commotion in front of the Hotel Tallachini. Three ladies, all dressed in black, had arrived. One of them was a girl of about 16 of exceptional beauty. I later learned that this was Duchess Elisabeth von Wittelsbach, who had come to Ischl because her sister was going to marry Emperor Franz Joseph.]](if: _met is true)[
(display: "Meeting")]
I can feel my mood improving.
(if: $invited is true)[(display: "Invitation")](else:)[(display: "Evening")]
=><=
(set:$date to it+1)[[The next day ->Choice]]{(set: _met to false, _ennuiReduction to 4, _thunderstorm to false)
(set:$meetnumber to 2)
(if: (random: 10) <=3)[(set: _met to true)]
(set: $ennui to it - _ennuiReduction)
(if: $weather is "clouds")[(if: (random: 6) <= 2)[(set: _thunderstorm to true, $ennui to it + 5)]]
(else-if: $weather is "rain")[(if: (random: 6) <= 4)[(set: _thunderstorm to true, $ennui to it + 5)]]
}(display: "Header")
---
(if: $weekday is "Sunday")[(display: "Church")
]Today I rented a carriage and went to visit (either: "Aussee, a town nearby about the size of Ischl", "Alt-Aussee, a small town at the picturesque Altausseer See", "Goisern, a town at the river Traun, near the Hallstädter See","Laufen, a small town close to Ischl","Agata, a small town between Ischl and Aussee, famous for its beautiful little church","Hallstadt, a picturesque town at Hallstädter See with many beautiful buildings","Ebensee at Gmundner See (also known as Traunsee)",
"Strobl at Wolfgangsee","Wolfgang at Wolfgangsee","St. Gilgen at Wolfgangsee","Pfandl, a small town where the salt production in the area has begun many years ago"). The trip was (either: "an amazing", "an eventful", "an eye-opening", "a marvelous", "a wonderful", "a wondrous") (either: "experience", "adventure").(if: _met is true)[
(display:"Meeting")](if: _thunderstorm is true)[
On the way back to Ischl we were surprised by a terrible thunderstorm. The road turned to mud in an instant. We had to take shelter in a nearby (either: "barn", "cave", "tavern", "grove"). I returned to Ischl cold, soaking wet and miserable. (if: $invited is true)[And, sadly, I missed the event I had been invited to this evening.]]
(else:)[
(if: $invited is true)[(display: "Invitation")](else:)[(display: "Evening")]]
=><=
(set:$date to it+1)[[The next day ->Choice]](display: "Header")
---
The day has come to leave Ischl. (if: $ennui > 90)[I just could not stand to stay here any longer. I was just too depressed.] (if: $health < 10)[My waning health did not allow me to stay any longer.]
My stay here has been eventful. I have met (print: $known's length) people, some of them boring, some interesting.(if: $metEmperor > 0)[ I met Emperor Franz Joseph, a day I will never forget.](if: $metSisi > 0)[ I met Elisabeth, our future empress, when she arrived in Ischl.]
I spent pleasant hours at the Bath, the Casino, the coffee houses and the theatre. (if: $health < $startHealth)[I had some accidents, and my health suffered instead of improving.] (else:)[I feel healthier now than I did when I arrived.] (if: $ennui < $startEnnui)[My mood has definitely improved during my stay here. This visit has done me good.] (else:)[My mood has deteriorated during my stay. This visit probably was a bad idea.]
Farewell, Ischl!
=><=
(click:"play again")[(restart:)](button:)[play again]=><=
##WIENER ZEITUNG
---
//$weekday, August $date, 1853//
---
<==
The mangled body of young $firstName $lastName has been found close to Ischl. Hiking in the mountains in bad weather, they were surprised by a thunderstorm and (either:"killed by lightning", "fell to their death into a ravine", "hurt fatally by a falling tree", "died in a landslide", "struck in the head by a boulder, which probably caused instant death").
The mayor of Ischl, Herr Seeauer, has extended his condolences to the parents.
=><=
(click:"play again")[(restart:)](button:)[play again]{(if: $ennui < 0)[(set: $ennui to 0)](else-if: $ennui >= 100)[(goto: "Death")]
I am (if: $ennui is in (range: 0,10))[in high spirits]
(else-if: $ennui is in (range: 11,20))[joyful]
(else-if: $ennui is in (range: 21,30))[merry]
(else-if: $ennui is in (range: 31,40))[content]
(else-if: $ennui is in (range: 41,50))[indifferent]
(else-if: $ennui is in (range: 51,60))[bored]
(else-if: $ennui is in (range: 61,70))[cheerless]
(else-if: $ennui is in (range: 71,80))[melancholy]
(else-if: $ennui is in (range: 81,90))[depressed]
(else:)[thinking about suicide] today. (if: $injured is true)[I have been injured and can hardly move because of the pain. I should go and see a doctor.](else:)[(if: $health is in (range: 0,10))[I am in pain. My whole body hurts.]
(else-if: $health is in (range: 11,20))[I feel sick.]
(else-if: $health is in (range: 21,30))[I am distinctly unwell.]
(else-if: $health is in (range: 31,40))[I feel fatigued.]
(else-if: $health is in (range: 41,50))[I am somewhat indisposed.]
(else-if: $health is in (range: 51,60))[My health is satisfactory.]
(else-if: $health is in (range: 61,70))[My health is quite good.]
(else-if: $health is in (range: 71,80))[My health is very good.]
(else-if: $health is in (range: 81,90))[I feel very strong and healthy.]
(else:)[I am in excellent health.]]}(set:str-type $firstName to "")(set:str-type $lastName to "")
=><=
{Choose your first name: (input: bind $firstName, "=XXX=")
Choose your last name: (input: bind $lastName, "=XXX=")}
<==
It is the year 1853. You are a young person of minor nobility - or upper bourgeoisie, if you like - who is going to spend up to a month in the famous Alpine resort town of Ischl. You plan to improve your health, meet as many interesting people as possible, be invited to evening events and generally have a good time.
Pay attention to your (text-style:"bold")[physical and mental health]. Physical activities may lead to accidents. And if you become too bored, you might succumb to melancholy and maybe even commit ... but let's not talk about that. Have fun!
=><=
(button:)[[Travel to Ischl->Namechecker]]This is the end. I cannot stand this meaningless life anymore.
If you read this, they probably have found my body (either: "in the river Ischl.", "in the Traun river.", "at the foot of the Ischler Salzberg.", "in the Hallstädter See.", "in a bathtub, with my wrists cut.")
Say Goodbye to my parents. Tell them not to grieve about me. I do not deserve it.
=><=
(click:"play again")[(restart:)](button:)[play again]In the morning I went to church. The sermon was (either: "engaging", "rousing", "dull", "pointless", "unimaginative", "sleep-inducing").{(set: $society to it + $host's society, _ennuiReduction to 6)
(set:$meetnumber to 3)
(set: $ennui to it - _ennuiReduction, $invited to false)
}In the evening there was a (either: "great ball", "soirée", "concert", "gala dinner", "poetry reading") at the place of $hostname. The crème de la crème of Ischl society was there. I feel honored that I was invited!
(display:"Meeting")
(if: $date is 19)[
At night there was a great fireworks show in the Prater Grove, celebrating the Emperor's birthday. It was supposed to take place yesterday, but was rescheduled because of bad weather.](if: $ennui + $ennuiGain >= 100)[
Suddenly I feel strange ... so sad and so very, very tired ...]{(set: _odds to (random: 100))
(if: $weather is "sun")[(if: _odds is in (range: 0,15))[(set: $weather to "rain")]
(else-if: _odds is in (range: 16,45))[(set: $weather to "clouds")]
(else:) [(set: $weather to "sun")]]
(else-if: $weather is "clouds")[(if: _odds is in (range: 0,30))[(set: $weather to "rain")]
(else-if: _odds is in (range: 31,70))[(set: $weather to "clouds")]
(else:) [(set: $weather to "sun")]]
(elseif: $weather is "rain")[(if: _odds is in (range: 0,35))[(set: $weather to "rain")]
(else-if: _odds is in (range: 36,85))[(set: $weather to "clouds")]
(else:) [(set: $weather to "sun")]]
(if: $date is 18)[(set: $weather to "rain")]
}(if: $weather is "sun")[(either:"It looks like it will be a sunny day.", "The day will be warm and sunny.", "The sun shines from a cloudless sky.")](else-if: $weather is "rain")[(either: "It is raining.", "It is raining heavily, and it probably will keep raining the whole day.", "Today is a cold and rainy day.")](else:)[(either: "It is windy, and the sky is grey.", "It is overcast. The sun won't come out today, I think.", "It is heavily clouded and dark.")](set: $injured to false)(set: $health to it + (random: 6,12))(display: "Header")
---
I went to see (either: "Dr. Brenner von Felsach in Wirerstrasse.", "Dr. Polak in Wirerstrasse.", "Dr. Mastalier on Ferdinandsplatz.") The doctor examined me carefully and berated me for being so careless. He treated my injuries and gave me laudanum against the pain - 10 drops should be enough, he told me, and I am not to take more than 30 drops a day. I should go to Herr Krupitz, the apothecary, if I needed more of the medication.
Then I went to my lodgings and spent the rest of the day in bed. In the evening I already felt much better.
=><=
(set:$date to it+1)[[The next day ->Choice]](if: $health <= 0)[(goto: "DeathAccident")]
On the way back to Ischl I was surprised by a terrible thunderstorm. Sheets of rain turned the path invisible. Lightning struck all around me, and I was soaked to the skin in an instant. (either: "I was struck in the head by a falling branch.", "I was caught in a mudslide and hit a rock.", "I fell down a cliff. Fortunately I didn't break anything.")
I found some shelter then, and after the rain subsided I limped back to Ischl. I arrived at nightfall and went straight to bed.(if: $ennui + $ennuiGain >= 100)[
Suddenly I feel strange ... so sad and so very, very tired ...]Today I went to the (either: (either: "Old Bath", "New Bath") + " and enjoyed " + (either: "hot and cold baths.", "a //Sole// (brine) bath, which is said to be most beneficient to health.", "a mud bath."),
"//Pfannhaus// or steam bath house. I had a saline vapour bath, which I found very pleasant.")(set: $trinkhallevisited to it +1)Today I went to the //Trinkhalle// or Collonade, where I drank (either: "//Molke// (whey) of " + (either: "cows", "goats") + ", which they prepare here in great perfection", (either: "Eger Salzquelle", "Karlsbader Schlossbrunn", "Marienbader Kreuzbrunn", "Saidschitzer Bitterwasser", "Schwefelquelle", "Gleichenberger Konstantinsquelle", "Kissinger Ragoczy", "Rohitscher Sauerbrunn")).(if: $trinkhallevisited is 1)[ The place was quite crowded. A band plays daily from 7 to 8 in the morning.]{(set: $inTown to (shuffled: ...$inTown), _conversation to (random:-2,6)*$meetnumber)
(set: $ennui to it -_conversation)
(if: $meetnumber is 1)[(if: $inTown's 1st is not in $known)[(set: $known to $known + (a:$inTown's 1st), $society to it + $inTown's 1st's society)]]
(else-if: $meetnumber is 2)[(if: $inTown's 1st is not in $known)[(set: $known to $known + (a:$inTown's 1st), $society to it + $inTown's 1st's society)]
(if: $inTown's 2nd is not in $known)[(set: $known to $known + (a:$inTown's 2nd),$society to it + $inTown's 2nd's society)]]
(else-if: $meetnumber is 3)[(if: $inTown's 1st is not in $known)[(set: $known to $known + (a:$inTown's 1st),$society to it + $inTown's 1st's society)]
(if: $inTown's 2nd is not in $known)[(set: $known to $known + (a:$inTown's 2nd),$society to it + $inTown's 2nd's society)]
(if: $inTown's 3rd is not in $known)[(set: $known to $known + (a:$inTown's 3rd),$society to it + $inTown's 3rd's society)]]
(cond: $meetnumber is 3,[I met (print:$inTown's 1st's name), (print:$inTown's 2nd's name) and (print:$inTown's 3rd's name).], $meetnumber is 2,
[I met (print:$inTown's 1st's name) and (print:$inTown's 2nd's name).],
$meetnumber is 1,[I met (print:$inTown's 1st's name).]) We (either: "conversed", "talked", "chatted", "spoke") for a while. It was (cond: _conversation <=1,[(either: "rather","quite","a bit","very","somewhat","") (either: "boring", "dull", "somniferous", "exhausting")],(either: "very interesting", "delightful", "amusing", "a pleasant conversation","captivating")).}=><=
(if: $firstName's length < 3 OR $lastName's length < 3)[Please choose a valid name!](else:)[(go-to: "Arrival")]
(button:)[[Go back->Character]]