Add sauna events generated by gpt to add more cozy vibes. - annna - Annna the nice friendly bot.
(HTM) git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
---
(DIR) commit 16dabeeeace4e1bf3f2aa60e2034a6b83f8e9e37
(DIR) parent 3d3514a35adc61aa4036ed76b34299212e68ff94
(HTM) Author: Annna Robert-Houdin <annna@bitreich.org>
Date: Sat, 25 Jul 2026 09:12:42 +0200
Add sauna events generated by gpt to add more cozy vibes.
Diffstat:
M annna-message-sauna | 47 ++-----------------------------
A sauna-event | 24 ++++++++++++++++++++++++
2 files changed, 26 insertions(+), 45 deletions(-)
---
(DIR) diff --git a/annna-message-sauna b/annna-message-sauna
@@ -16,51 +16,8 @@ PONG)
action=$(($RANDOM % 50))
case "${action}" in
2)
- interaction=$(($RANDOM % 42))
- case "${interaction}" in
- 1) annna-say $'\001ACTION pours an aromatic infusion in the sauna.\001';;
- 2) annna-say $'\001ACTION pours water on the stones.\001';;
- 3) annna-say $'\001ACTION cleans the sauna.\001';;
- 4) annna-say $'\001ACTION checks the sauna stones.\001';;
- 5) annna-say $'\001ACTION adjusts the sauna vibes.\001';;
- 6) annna-say $'\001ACTION fans the heat.\001';;
- 7) annna-say $'\001ACTION sprinkles water on the stones.\001';;
- 8) annna-say $'\001ACTION pours a splash of eucalyptus.\001';;
- 9) annna-say $'\001ACTION adds aromatic infusion.\001';;
- 10) annna-say $'\001ACTION gives the bench a friendly wipe-down.\001';;
- 11) annna-say $'\001ACTION scrubs the sauna floor.\001';;
- 12) annna-say $'\001ACTION wipes away condensation using the power of good intentions.\001';;
- 13) annna-say $'\001ACTION polishes the sauna bucket and salutes it.\001';;
- 14) annna-say $'\001ACTION stirs the water bucket with unnecessary enthusiam.\001';;
- 15) annna-say $'\001ACTION opens the vent for a short time to let the heat a bit out.\001';;
- 16) annna-say $'\001ACTION sprinkles calming herbs on the stones.\001';;
- 17) annna-say $'\001ACTION offers the towels a heroic shake-out.\001';;
- 18) annna-say $'\001ACTION throws a single water drop on the stones.\001';;
- 19) annna-say $'\001ACTION rearranges the ladle.\001';;
- 20) annna-say $'\001ACTION cleans the stones.\001';;
- 21) annna-say $'\001ACTION performs a steam ceremony.\001';;
- 22) annna-say $'\001ACTION performs a steam ceremony with weekend sale.\001';;
- 23) annna-say $'\001ACTION dusts the corners.\001';;
- 24) annna-say $'\001ACTION sweeps the sauna.\001';;
- 25) annna-say $'\001ACTION taps the stones in rhythm.\001';;
- 26) annna-say $'\001ACTION pours water carefully.\001';;
- 27) annna-say $'\001ACTION sprinkles some lavender on the stones.\001';;
- 28) annna-say $'\001ACTION gives the sauna door a polite knock and a satisfying push.\001';;
- 29) annna-say $'\001ACTION wipes the benches.\001';;
- 30) annna-say $'\001ACTION spritzes some herbs on the stones.\001';;
- 31) annna-say $'\001ACTION dusts the stove area.\001';;
- 32) annna-say $'\001ACTION tests the ladle balance.\001';;
- 33) annna-say $'\001ACTION pours a little rose infusion.\001';;
- 34) annna-say $'\001ACTION sweeps the sauna floor.\001';;
- 35) annna-say $'\001ACTION pats the stones gently.\001';;
- 36) annna-say $'\001ACTION cleans the bucket.\001';;
- 37) annna-say $'\001ACTION adjusts the air vents.\001';;
- 38) annna-say $'\001ACTION performs a heat check.\001';;
- 39) annna-say $'\001ACTION rinses the ladle.\001';;
- 40) annna-say $'\001ACTION scrubs the corners.\001';;
- 41) annna-say $'\001ACTION sprinkles water on the stones in a perfect little rhythm.\001';;
- 42) annna-say $'\001ACTION bows to the steam.\001';;
- esac;;
+ event="$(sauna-event)"
+ [ -n "${event}" ] && annna-say "$'\001ACTION' ${event}$'\001'";;
esac;;
esac
(DIR) diff --git a/sauna-event b/sauna-event
@@ -0,0 +1,24 @@
+#!/bin/bash -e
+
+export PATH="$HOME/bin:$PATH"
+
+[ -z "${ANNNA_MODBASE}" ] && exit
+
+SAUNA_BASE="${ANNNA_MODBASE}/sauna"
+event="$(shuf -n 1 "${SAUNA_BASE}/sauna-events.txt")"
+dogptnewevent=$(($RANDOM % 42))
+if [ $dogptnewevent -eq 0 ] || [ "$1" = "-g" ];
+then
+ newevent="$(
+ { cat "${SAUNA_BASE}/sauna-prompt.txt";
+ cat "${SAUNA_BASE}/sauna-events.txt";
+ } | gpt | head -n 1 | sed 's,\b.,\L\0,')"
+ if [ -n "${newevent}" ];
+ then
+ event="${newevent}"
+ printf "${newevent}\n" >> "${SAUNA_BASE}/sauna-events.txt"
+ fi
+fi
+
+printf "%s\n" "${event}"
+