GopherProxy

	Drop sloc like it is SLOC drop day! - annna - Annna the nice friendly bot.
	git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws6…
	Log
	Files
	Refs
	Tags
	README
	---
	commit ae39f7d89e846846281873d6aaaec0c071b1f956
	parent 7e1ba9d699401c89806a32c2962f39e44449a886
	Author: Annna Robert-Houdin <[email protected]>
	Date: Sun, 19 Oct 2025 11:06:51 +0200

	Drop sloc like it is SLOC drop day!

	Diffstat:
	M annna-message-common \| 597 ++++++++++-------------------…

	1 file changed, 185 insertions(+), 412 deletions(-)
	---
	diff --git a/annna-message-common b/annna-message-common
	@@ -6,6 +6,8 @@

	export PATH="$PATH:/br/bin"

	+annnasumerian="𒈹"
	+annnabirthday="1989-05-18"
	hashtagfile="${ANNNA_MODBASE}/hashtags/hashtags.txt"
	idontcaredb="${ANNNA_MODBASE}/i-dont-care/i-dont-care.txt"
	printnhashtags=2
	@@ -13,14 +15,21 @@ brmembers="__20h__ Evil_Bob chripo posativ quinq stateless …
	referees="__20h__"
	ignorednicks="eidolon"
	linkbrotherchannels="#bitreich-meme"
	+# Flag, if some expansion of some URI happened.
	+uriexpansion=0
	+# Do not spoil at all.
	+nospoil=0
	+# Enforce spoiling in case of hard nospoil filter.
	+dospoil=0
	+# Expand meme hashtag and show recommendations.
	+doexpand=0

	-annnasumerian="𒈹"
	-annnabirthday="1989-05-18"
	-
	+regeximatch() {
	+ printf '%s' "$1" \| grep -i -E -q "$2"
	+}
	hashtags() {
	cat ${hashtagfile} 2>/dev/null
	}
	-
	hashtagcount() {
	int2bit "$(curl -s gophers://bitreich.org/1/meme/count \
	\| grep total \
	@@ -28,10 +37,6 @@ hashtagcount() {
	\| sed 's,.total on .: $[0-9]*$),\1,')"
	}

	-regeximatch() {
	- printf '%s' "$1" \| grep -i -E -q "$2"
	-}
	-
	isignored=0
	for ignorednick in $ignorednicks;
	do
	@@ -39,22 +44,9 @@ do
	done
	[ $isignored -eq 1 ] && exit

	-# Flag, if some expansion of some URI happened.
	-uriexpansion=0
	-# Do not spoil at all.
	-nospoil=0
	-# Enforce spoiling in case of hard nospoil filter.
	-dospoil=0
	-# Expand meme hashtag and show recommendations.
	-doexpand=0
	-
	case "${IRC_PRIVMSG_TEXT}" in
	-\#nospoil)
	- nospoil=1
	- ;;
	-\#expand)
	- doexpand=1
	- ;;
	+\#nospoil) nospoil=1;;
	+\#expand) doexpand=1;;
	::::*)
	if [ $(pgrep -f stable-diffusion-emoji 2>/dev/null \| wc -l) -gt 3 ];
	then
	@@ -73,13 +65,10 @@ case "${IRC_PRIVMSG_TEXT}" in
	fi
	fi
	} &
	- fi
	- ;;
	+ fi;;
	http://\|ytdl://*)
	case "${IRC_PRIVMSG_TEXT}" in
	- "#spoil")
	- dospoil=1
	- ;;
	+ "#spoil") dospoil=1;;
	esac

	case "${IRC_PRIVMSG_TEXT}" in
	@@ -140,41 +129,31 @@ case "${IRC_PRIVMSG_TEXT}" in
	[ -s "${tmpf}" ] && urititle="$(grabtitle < "${tmpf}")"

	case "${urititle}" in
	- "")
	- ;;
	+ "");;
	Gunther\|GUNTHER\|Günther\|GÜNTHER)
	annna-say "Oh Günther! ❤ ❤ ❤ ${urititle}"
	- uriexpansion=1
	- ;;
	+ uriexpansion=1;;
	\\|\ Cloudflare\|"Just a moment...")
	annna-say "Mind your own business! We got clownflared: gophers…
	titleend=1
	- uriexpansion=1
	- ;;
	+ uriexpansion=1;;
	esac

	case "${uri}" in
	- "")
	- ;;
	+ "");;
	github.com//blob/*)
	urltitle=""
	nuris="$(printf '%s' "${uri}" \| sed 's/blob/raw/')"
	- nocuri=0
	- ;;
	- imgur.com/)
	- nuris="$(youtube-dl -g "${uri}")" \|\| nuris=""
	- ;;
	- xkcd.com/)
	- nuris="$(xkcd-uri "${uri}")"
	- ;;
	+ nocuri=0;;
	+ imgur.com/) nuris="$(youtube-dl -g "${uri}")" \|\| nuris="";;
	+ xkcd.com/) nuris="$(xkcd-uri "${uri}")";;
	imdb.com/title/)
	imdbstr="$(imdb2gopherbay "${uri}")"
	if [ -n "${imdbstr}" ];
	then
	nuris="${imdbstr}"
	urititle=""
	- fi
	- ;;
	+ fi;;
	# bay.parazy.de is unmaintained
	#themoviedb.org/movie/)
	# movietitle="$(themoviedb2gopherbay "${uri}" \| sed 's, ,+,g')"
	@@ -193,19 +172,16 @@ case "${IRC_PRIVMSG_TEXT}" in
	then
	nuri="https://text.npr.org/${post}"
	nuris="text only: ${nuri}"
	- fi
	- ;;
	+ fi;;
	csdb.dk/release/)
	sid=$(awk '/<a href="download\.php.*\.sid/ { match($0, /https:…
	- [ -n "$sid" ] && nuris="listen: $sid"
	- ;;
	+ [ -n "$sid" ] && nuris="listen: $sid";;
	www.forgottenweapons.com/)
	ytid=$(sed -n '/<meta name="description"/ s/.*https:\/\/youtu\…
	if [ -n "$ytid" ]; then
	nuris="video: ytdl://$ytid ;"
	nuris="$nuris metadata: gophers://codemadness.org/1/id…
	- fi
	- ;;
	+ fi;;
	www.reddit.com)
	nuri="$(printf '%s\n' "${uri}" \| sed "s;www.reddit.com;old.red…
	nuris="old.reddit: ${nuri}"
	@@ -222,8 +198,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	fi
	nuris="${nuri} ; gopherdit: ${guri}"
	fi
	- nocuri=0
	- ;;
	+ nocuri=0;;
	taz.de)
	newsid="$(printf '%s\n' "${uri}" \| sed 's,.$![0-9]$.*,\1,'…
	if [ -n "${newsid}" ];
	@@ -231,16 +206,14 @@ case "${IRC_PRIVMSG_TEXT}" in
	urititle="$(curl-grabtitle "${uri}")"
	nuris="gopher://taz.de/1/${newsid}"
	nocuri=1
	- fi
	- ;;
	+ fi;;
	x.com//status/*)
	tid="$(printf "%s\n" "${uri}" \| sed 's,.status/$[0-9]$$,\1…
	if [ -n "${tid}" ];
	then
	nuris="https://twitter-thread.com/pdf/${tid}"
	nocuri=1
	- fi
	- ;;
	+ fi;;
	twitter.com)
	#ninstance="$(nitter-instance \| sed 's,\.,\\\.,g')"
	#nuri="$(printf "%s\n" "${uri}" \| sed "s;$mobile\.$\{0,1\}tw…
	@@ -248,16 +221,14 @@ case "${IRC_PRIVMSG_TEXT}" in
	urititle="$(curl-grabtitle "${uri}")"
	#suri="$(screenshot-paste "${uri}")"
	#nuris="nitter: ${nuri}"
	- nocuri=0
	- ;;
	+ nocuri=0;;
	.wikipedia.org/wiki/)
	if ! regeximatch "$uri" '\.(jpg,bmp,gif,png,tiff,avi,mp4,webm,…
	then
	nuri="$(printf '%s\n' "${uri}" \| sed -Ee "s;/wiki/;/ap…
	nuris="$(printf 'pdf: %s\n' "${nuri}")"
	nocuri=1
	- fi
	- ;;
	+ fi;;
	youtube.com/\|youtu.be/)
	# Youtube is so annoying and repeatedly broken;
	# they hate users, only expand on request.
	@@ -294,21 +265,16 @@ case "${IRC_PRIVMSG_TEXT}" in
	nocuri=1
	else
	titleend=1
	- fi
	- ;;
	+ fi;;
	tv.brain.rip/???-???)
	nuris="$(grep 'property="og:video:secure_url' < "${tmpf}" \| se…
	urititle="$(grep 'name="description' < "${tmpf}" \| sed 's,.*co…
	- nocuri=1
	- ;;
	+ nocuri=1;;
	*)
	mimetype="$(file -b --mime-type "${tmpf}")"
	case "${mimetype}" in
	- text/*\|application/javascript)
	- nocuri=0
	- ;;
	- esac
	- ;;
	+ text/*\|application/javascript) nocuri=0;;
	+ esac;;
	esac

	if [ $titleend -eq 0 ];
	@@ -326,8 +292,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${outputstr}"
	uriexpansion=1
	fi
	- rm -f "${tmpf}"
	- ;;
	+ rm -f "${tmpf}";;
	esac

	runlinkbrother=0
	@@ -353,18 +318,12 @@ case "${IRC_PRIVMSG_TEXT}" in
	finalexclamation="${finalexclamation}${exclamation}"
	exclamationsintime=$(($exclamationsintime - 1))
	done
	- annna-say "${IRC_CMD_USER}${finalexclamation}"
	- ;;
	+ annna-say "${IRC_CMD_USER}${finalexclamation}";;
	"${IRC_USER}, how old are you?")
	age="$(ddiff ${annnabirthday} today -f "%y")"
	- annna-say "${IRC_CMD_USER}, I am ${age} years old."
	- ;;
	-"${IRC_USER}, when is your birthday?")
	- annna-say "${IRC_CMD_USER}, I am born on ${annnabirthday}."
	- ;;
	-"${IRC_USER}, asl"*)
	- annna-say "${IRC_CMD_USER}, age: born on 1989-05-18; sex: IRC bot; loc…
	- ;;
	+ annna-say "${IRC_CMD_USER}, I am ${age} years old.";;
	+"${IRC_USER}, when is your birthday?") annna-say "${IRC_CMD_USER}, I am born o…
	+"${IRC_USER}, asl"*) annna-say "${IRC_CMD_USER}, age: born on 1989-05-18; sex:…
	"${IRC_USER}, woop")
	# Using the same database for funny hacks.
	exclamation="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| sed "s;${IRC_USER…
	@@ -375,8 +334,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	finalexclamation="${finalexclamation} ${exclamation}"
	exclamationsintime=$(($exclamationsintime - 1))
	done
	- annna-say "${IRC_CMD_USER}, ${finalexclamation}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${finalexclamation}";;
	"${IRC_USER}, hype")
	# Using the same database for funny hacks.
	exclamation="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| sed "s;${IRC_USER…
	@@ -387,13 +345,11 @@ case "${IRC_PRIVMSG_TEXT}" in
	finalexclamation="${finalexclamation} ${exclamation}"
	exclamationsintime=$(($exclamationsintime - 1))
	done
	- annna-say "${IRC_CMD_USER}, ${finalexclamation}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${finalexclamation}";;
	">:3") annna-say "OMG IT'S A LION GET IN THE CAR!";;
	"<3")
	love "${IRC_CMD_USER}++"
	- annna-say "o.o"
	- ;;
	+ annna-say "o.o";;
	*"m(") annna-say "(－‸ლ)";;
	"shrug") annna-say "¯\\_(ツ)_/¯";;
	"glare") annna-say "ಠ_ಠ";;
	@@ -402,16 +358,11 @@ case "${IRC_PRIVMSG_TEXT}" in
	*":'(") annna-say "(╯︵╰,)";;
	"Thanks ${IRC_USER}"*) annna-say "${IRC_CMD_USER}, you are welcome.";;
	" ope sorry"\|"ope sorry"*) annna-say "${IRC_CMD_USER}, 😃pe sorry.";;
	-"${IRC_USER}, snake"*)
	- annna-say "${IRC_CMD_USER}, ssSSsSssSssSsssssSSsSSSSsSssSSSSsssSSSSsss…
	- ;;
	+"${IRC_USER}, snake"*) annna-say "${IRC_CMD_USER}, ssSSsSssSssSsssssSSsSSSSsSs…
	"${IRC_USER}, snoke"*) annna-say "${IRC_CMD_USER}, snoke again?";;
	"${IRC_USER}, amirite?") annna-say "${IRC_CMD_USER}, Yep, you're the most corr…
	"${IRC_USER}, ping"*) annna-say "${IRC_CMD_USER}, pong.";;
	-"${IRC_USER}, how lame is my nick?")
	- lamenessstr="$(lameness "${IRC_CMD_USER}")"
	- annna-say "${lamenessstr}"
	- ;;
	+"${IRC_USER}, how lame is my nick?") annna-say "$(lameness "${IRC_CMD_USER}")"…
	"${IRC_USER}, ding"*) annna-say "${IRC_CMD_USER}, dong.";;
	"${IRC_USER}, irly"*) annna-say "${IRC_CMD_USER}, I love you too.";;
	"${IRC_USER}, bleep bloop"*) annna-say "${IRC_CMD_USER}, bloop bleep." ;;
	@@ -423,17 +374,9 @@ case "${IRC_PRIVMSG_TEXT}" in
	"${IRC_USER}, who is lovely?") annna-say "${IRC_CMD_USER}, gophers://bitreich.…
	"${IRC_USER}, what the brcon score?") annna-say "${IRC_CMD_USER}, gophers://bi…
	"${IRC_USER}, what the shame?") annna-say "${IRC_CMD_USER}, gophers://bitreich…
	-"${IRC_USER}, please generate a password for me.")
	- newpws="$(pwgen -B1ny 20 10 \| paste -sd ' ')"
	- annna-say "${IRC_CMD_USER}, as you wish: ${newpws}"
	- ;;
	-"don't care")
	- dontcaresay="$(shuf -n 1 ${idontcaredb})"
	- annna-say "${IRC_CMD_USER}, ${dontcaresay}"
	- ;;
	-"${IRC_USER}, how can I phlog on bitreich?")
	- annna-say "${IRC_CMD_USER}, please read: gophers://bitreich.org/0/usr/…
	- ;;
	+"${IRC_USER}, please generate a password for me.") annna-say "${IRC_CMD_USER},…
	+"don't care") annna-say "${IRC_CMD_USER}, $(shuf -n 1 ${idontcaredb})";;
	+"${IRC_USER}, how can I phlog on bitreich?") annna-say "${IRC_CMD_USER}, pleas…
	"${IRC_USER}, what's my type?")
	{
	cd /br/gopher
	@@ -441,8 +384,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	\| shuf -n 1 \
	\| xargs -n 1 printf "gophers://bitreich.org/9%s\n")"
	annna-say "${IRC_CMD_USER}, your type is ${usertype}"
	- }
	- ;;
	+ };;
	"${IRC_USER}, please show me a video about "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 37-)"
	case "$word" in
	@@ -454,12 +396,10 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, ${videoresult}"
	else
	annna-say "${IRC_CMD_USER}, sorry, nothing founds."
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, what is my fortune?")
	fortunecookie="$(fortune-cookie)"
	- [ -n "${fortunecookie}" ] && annna-say "${IRC_CMD_USER}, ${fortunecook…
	- ;;
	+ [ -n "${fortunecookie}" ] && annna-say "${IRC_CMD_USER}, ${fortunecook…
	"${IRC_USER}, what is "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 16-)"
	case "$word" in
	@@ -486,8 +426,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	else
	puri="$(printf "%s\n" "${dresult}" \| /br/bin/bitreich-paste)"
	fi
	- annna-say "${puri}"
	- ;;
	+ annna-say "${puri}";;
	"${IRC_USER}, cowsay "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 15-)"
	tmpf=$(mktemp)
	@@ -495,15 +434,10 @@ case "${IRC_PRIVMSG_TEXT}" in
	curi="$(/br/bin/bitreich-paste < ${tmpf})"
	annna-say "${IRC_CMD_USER}: the cow said... ${curi}"
	fi
	- rm ${tmpf} 2>/dev/null
	- ;;
	+ rm ${tmpf} 2>/dev/null;;
	"${IRC_USER}, please give me the unix power"*)
	upcuri="$(unix-power)"
	- if [ -n "${upcuri}" ];
	- then
	- annna-say "${IRC_CMD_USER}, ${upcuri}"
	- fi
	- ;;
	+ [ -n "${upcuri}" ] && annna-say "${IRC_CMD_USER}, ${upcuri}";;
	"${IRC_USER}, please stop the last emoji prompt"*)
	lastemojipromptpid="$(pgrep -f stable-diffusion-emoji \| sort -n \| tail…
	if [ -n "${lastemojipromptpid}" ];
	@@ -512,26 +446,20 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, I HUPed ${lastemojipromptpid} and …
	else
	annna-say "${IRC_CMD_USER}, sorry, no instances found."
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, play despacito "*) annna-say "${IRC_CMD_USER}, gophers://bitreic…
	"nice to meet you ${IRC_USER}"*) annna-say "${IRC_CMD_USER}, the pleasure is o…
	-"${IRC_USER}, please give me a Chuck Norris fact"*)
	- chuck=$(chucknorris)
	- annna-say "${IRC_CMD_USER}, ${chuck}"
	- ;;
	+"${IRC_USER}, please give me a Chuck Norris fact"*) annna-say "${IRC_CMD_USER}…
	"${IRC_USER}, magic"*)
	magictrick="$(magic)"
	- [ -n "${magictrick}" ] && annna-say "${IRC_CMD_USER}, ${magictrick}"
	- ;;
	+ [ -n "${magictrick}" ] && annna-say "${IRC_CMD_USER}, ${magictrick}";;
	"${IRC_USER}, please show me ip art"*)
	annna-say "${IRC_CMD_USER}, please see #bitreich-tv for the magic."
	{
	cd $HOME/bin/modules/ip-art;
	# Lock, so only one annna process manipulates eth0.
	flock $HOME/bin/modules/ip-art -c "./display-file.sh ip-art.ip…
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, I feel button"*)
	buri="$(button-gen)"
	if [ -n "${buri}" ];
	@@ -539,35 +467,29 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, like this? ${buri}"
	else
	annna-say "${IRC_CMD_USER}, sorry, no feelings for you today."
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, I feel stupid"*)
	nuri=$(darwin)
	tmpf=$(mktemp)
	fetch-uri "${nuri}" > "${tmpf}"
	curi="$(9 htmlfmt < "${tmpf}" \| /br/bin/bitreich-paste)"
	annna-say "${IRC_CMD_USER}, do not feel stupid, others are more stupid…
	- rm ${tmpf} 2>/dev/null
	- ;;
	+ rm ${tmpf} 2>/dev/null;;
	"${IRC_USER}, I feel down"*)
	postmortem="$(post-mortem \| /br/bin/bitreich-paste)"
	- annna-say "${IRC_CMD_USER}, do not feel bad, others had worse days: ${…
	- ;;
	+ annna-say "${IRC_CMD_USER}, do not feel bad, others had worse days: ${…
	"${IRC_USER}, I feel perl"*)
	perlfeelings="$(perl-feelings)"
	- [ -n "${perl-feelings}" ] && annna-say "${IRC_CMD_USER}, I feel ${perl…
	- ;;
	+ [ -n "${perl-feelings}" ] && annna-say "${IRC_CMD_USER}, I feel ${perl…
	"${IRC_USER}, will you be my girlfriend?") annna-say "${IRC_CMD_USER}, $(girlf…
	"${IRC_USER}, who fights crime?"\|"${IRC_USER}, who is fighting crime?")
	partner=$(echo $brmembers \| awk '{for (i = 1; i < NF; i++) print $i}' …
	crimefighter="$(theyfightcrime ${IRC_CMD_USER} ${partner})"
	- annna-say "${crimefighter}"
	- ;;
	+ annna-say "${crimefighter}";;
	"${IRC_USER}, please give me a commit message"*) annna-say "${IRC_CMD_USER}, $…
	"${IRC_USER}, please paint the irc channel.")
	emojiuri="$(emoji-channel-history "${ANNNA_IRCBASE}/${IRC_SERVER}/${IR…
	- [ -n "${emojiuri}" ] && annna-say "${emojiuri}"
	- ;;
	+ [ -n "${emojiuri}" ] && annna-say "${emojiuri}";;
	"${IRC_USER}, birp"*) annna-say "${IRC_CMD_USER}, I heard a $(bird-name) bird.…
	"${IRC_USER}, please oneline me"*)
	randomoneliner="$(oneliner)"
	@@ -576,88 +498,71 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, the service failed. Please redial …
	else
	annna-say "${IRC_CMD_USER}, ${randomoneliner}"
	- fi
	- ;;
	+ fi;;
	*"what's app?")
	maemoapp="$(whatsapp)"
	- [ -n "${maemoapp}" ] && annna-say "Have you tried? ${maemoapp}"
	- ;;
	+ [ -n "${maemoapp}" ] && annna-say "Have you tried? ${maemoapp}";;
	"${IRC_USER}, man "\|"${IRC_USER}, man ")
	exp="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 12- \| sed 's,\t, …
	dresult="$(COLUMNS=80 man "${exp}" 2>/dev/null)"
	-
	if [ "$dresult" ];
	then
	puri="$(printf "%s" "${dresult}" \| /br/bin/bitreich-paste)"
	else
	puri="No matches found."
	fi
	-
	- annna-say "${puri}"
	- ;;
	+ annna-say "${puri}";;
	"${IRC_USER}, please pray for me"*) annna-say "${IRC_CMD_USER}, here, for you:…
	"${IRC_USER}, nigger."\|nigger\|NIGGER) annna-say "${IRC_CMD_USER}, don't us…
	"${IRC_USER}, why was I breached?")
	breachtext="$(why-was-i-breached)"
	- [ -n "${breachtext}" ] && annna-say "${IRC_CMD_USER}, ${breachtext}"
	- ;;
	+ [ -n "${breachtext}" ] && annna-say "${IRC_CMD_USER}, ${breachtext}";;
	"${IRC_USER}, please be responsible about "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 36- \| sed 's,\t, …
	suri="$(responsibility "${word}" \| bitreich-paste)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please say "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 19- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| bitreich-speak)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please zombie say "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 26- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| zombie -e \| bitreich-speak)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please unzombie "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 24- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| zombie -d)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please zombie "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 22- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| zombie -e)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please ghost say "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 25- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| ghost -e \| bitreich-speak)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please unghost "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 23- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| ghost -d)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please ghost "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 21- \| sed 's,\t, …
	suri="$(printf "%s\n" "${word}" \| ghost -e)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please pohlish "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 23- \| sed 's,\t, …
	suri="$(pohlcode.awk "${word}" \| head -n 1)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, please cunei "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 21- \| sed 's,\t, …
	suri="$(int2cunei "${word}" \| head -n 1)"
	- annna-say "${suri}"
	- ;;
	+ annna-say "${suri}";;
	"${IRC_USER}, what is up with gopher man?");; #TODO
	"${IRC_USER}, what can I cook with "*)
	ingredients="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 29- \| sed …
	case "$ingredients" in
	*\?) ingredients="$(printf "%s\n" "${ingredients}" \| cut -c -"$(($(exp…
	esac
	-
	results="$(fridge-recipe-search "${ingredients}")"
	if [ -n "${results}" ];
	then
	@@ -681,125 +586,109 @@ case "${IRC_PRIVMSG_TEXT}" in
	else
	annna-say "${IRC_CMD_USER}, I could not find any recip…
	fi
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, gpt "*)
	# TODO: use modules/prompt-agents
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 12- \| sed 's,\t…
	{
	annna-say "$(gpt "${prompt}. Please answer short and precise."…
	- } &
	- ;;
	+ } & ;;
	"Preacher, "\|"preacher, ")
	personality="preacher"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Uplift, "\|"uplift, ")
	personality="uplifting"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Grumpy, "\|"grumpy, ")
	personality="grumpy-fart"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User:${prompt}\n Bot:…
	- } &
	- ;;
	+ } & ;;
	"Santa, "\|"Sannnta, "\|"santa, "\|"sannnta, ")
	personality="santa"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Satan, "\|"Satannn, "\|"satan, "\|"satannn, ")
	personality="satan"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Trump, "\|"trump, ")
	personality="trump"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Freud, "\|"freud, "\|"Sigmund, "\|"sigmund, ")
	personality="sigmund-freud"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User:${prompt}\n Bot:…
	- } &
	- ;;
	+ } & ;;
	"Mao, "\|"mao, ")
	personality="mao"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User:${prompt}\n Bot:…
	- } &
	- ;;
	+ } & ;;
	"Teleromeo, "\|"teleromeo, ")
	personality="teleromeo"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User:${prompt}\n Bot:…
	- } &
	- ;;
	+ } & ;;
	"Modem, "\|"modem, ")
	personality="modem"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Sadh_Guru, "\|"Sadh_guru, "\|"sadh_guru, "\|"sadh_Guru, ")
	personality="sadh_guru"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Prophet, "\|"prophet, ")
	personality="prophet"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"Luther, "\|"luther, ")
	personality="luther"
	preprompt="$(cat ${ANNNA_MODBASE}/prompt-agents/${personality}.prompt.…
	prompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 2- \| sed …
	{
	annna-say "$(gpt "System: ${preprompt}\n User: ${prompt}\n Bot…
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, wolfram is "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 19- \| sed 's,\t, …
	case "$word" in
	*\?) word="$(printf "%s\n" "${word}" \| cut -c -"$(($(expr length "${wo…
	esac
	-
	puri=""
	dresult="$(printf "/wolfram\t%s\r\n" "${word}" \
	\| nc magical.fish 70 \
	@@ -808,26 +697,21 @@ case "${IRC_PRIVMSG_TEXT}" in
	\| head -n -1 \
	\| tail -n +2 \
	\| sed 's,i$.$fake\texample.com.,\1,;s,[ \t]*$,,')"
	-
	if [ -n "$dresult" ];
	then
	case "${dresult}" in
	- b*)
	- dresult="$(printf "%s\n" "${dresult}" \
	+ b*) dresult="$(printf "%s\n" "${dresult}" \
	\| tr '\n' ' ' \
	\| sed "s,^b',,;s,' $,," \
	\| sed 's,^b",,;s," $,,' \
	\| sed 's,\\n,\n,g;s,\\t,\t,g')"
	;;
	- *)
	- dresult="$(printf "%s\n" "${dresult}" \
	+ *) dresult="$(printf "%s\n" "${dresult}" \
	\| sed 's,$[a-zA-Z]$$,\1 ,' \
	\| tr -d '\n')"
	;;
	esac
	-
	wcl="$(printf "%s" "${dresult}" \| wc -l)"
	-
	if [ $wcl -gt 1 ];
	then
	puri="$(printf "%s" "${dresult}" \| /br/bin/bitreich-pa…
	@@ -837,8 +721,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	else
	puri="No matches found."
	fi
	- annna-say -- "${puri}"
	- ;;
	+ annna-say -- "${puri}";;
	# Emulate https://threats.kaspersky.com/en/threat/IRC-Worm.DOS.Septic/
	"${IRC_USER}, pray"*) annna-say "${IRC_CMD_USER}, I Obey my master! long live …
	"${IRC_USER}, sacrifice"*) annna-say "${IRC_CMD_USER}, Your word is my command…
	@@ -853,8 +736,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	then
	annna-say "${IRC_CMD_USER}, ${drunknick} is ${drunknes…
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, how do I "*)
	{
	gptprompt="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \
	@@ -865,8 +747,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	then
	annna-say "${IRC_CMD_USER}, try this: ${gpturi}"
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, weather at "\|"${IRC_USER}, weather in ")
	{
	weatherplace="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \
	@@ -878,8 +759,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	else
	annna-say "${IRC_CMD_USER}, there is no weather at ${w…
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, funny weather at "\|"${IRC_USER}, funny weather in ")
	{
	weatherplace="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \
	@@ -900,8 +780,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, $(gpt "System: ${p…
	} &
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, color weather at "\|"${IRC_USER}, color weather in ")
	{
	weatherplace="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \
	@@ -922,27 +801,22 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, $(gpt "System:${pr…
	} &
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, METAR for "\|"${IRC_USER}, metar for "\|"${IRC_USER}, metar for …
	resp=$(metar "$(printf '%.4s\n' "${IRC_PRIVMSG_TEXT##* }")")
	- annna-say "${IRC_CMD_USER}, ${resp}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${resp}";;
	"${IRC_USER}, how discriminating is "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 30- \| sed 's,\t, …
	case "$word" in
	*\?) word="$(printf "%s\n" "${word}" \| cut -c -"$(($(expr length "${wo…
	esac
	-
	newword="$(discrimination-filter "${word}")"
	if [ "${newword}" = "${word}" ];
	then
	annna-say "${IRC_CMD_USER}, it is ok."
	else
	annna-say "${IRC_CMD_USER}, it should be: ${newword}"
	- fi
	-
	- ;;
	+ fi;;
	"${IRC_USER}, are "*)
	case "${IRC_PRIVMSG_TEXT}" in
	*" in love?")
	@@ -953,10 +827,8 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say 'Yes!!! Pure <3 <3'
	else
	annna-say "No."
	- fi
	- ;;
	- esac
	- ;;
	+ fi;;
	+ esac;;
	"${IRC_USER}, is "*)
	aitext="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 7- \| sed 's,\t,…
	airesult="$(printf "%s\n" "${aitext}" \| josuah-ai)"
	@@ -964,36 +836,30 @@ case "${IRC_PRIVMSG_TEXT}" in
	[Oo]"k, ${IRC_USER}"*) annna-say "${IRC_CMD_USER}, I am not a consumer device.…
	"${IRC_USER}, please shoot "\|"${IRC_USER}, plese shoot ")
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 21-)"
	- annna-say "${word}, #pewpew gophers://bitreich.org/9/memecache/pewpew.…
	- ;;
	+ annna-say "${word}, #pewpew gophers://bitreich.org/9/memecache/pewpew.…
	"${IRC_USER}, please quinq.") annna-say "┻━┻ ︵╰(°□°)╯︵ ┻�…
	"${IRC_USER}, please flip "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 20-)"
	updownword="$(updown "${word}")"
	- annna-say "(╯°□°)╯ ${word} ︵ ${updownword}"
	- ;;
	+ annna-say "(╯°□°)╯ ${word} ︵ ${updownword}";;
	"${IRC_USER}, please crystal math "*)
	math="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 28-)"
	crystaluri="$(crystal-math "${math}")"
	- annna-say "${IRC_CMD_USER}, please see ${crystaluri}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, please see ${crystaluri}";;
	"${IRC_USER}, please australize "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 26-)"
	updownword="$(updown "${word}")"
	- annna-say "${word} -> ${updownword}"
	- ;;
	+ annna-say "${word} -> ${updownword}";;
	"${IRC_USER}, wtf "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 11-)"
	wtfword="$(wtf "${word}" 2>/dev/null)"
	- [ -n "${wtfword}" ] && annna-say "${IRC_CMD_USER}, ${wtfword}"
	- ;;
	+ [ -n "${wtfword}" ] && annna-say "${IRC_CMD_USER}, ${wtfword}";;
	"${IRC_USER}, please give me a good band name"*) annna-say "$(bandname-gen \| s…
	"${IRC_USER}, I feel conspicuous"*) annna-say "Maybe declare this: $(manifesto…
	"${IRC_USER}, I am horny"*) annna-say "Here is some intellectual porn for you:…
	"${IRC_USER}, please turn on "*)
	word="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 22-)"
	- annna-say "☞ ⏻ ${word}"
	- ;;
	+ annna-say "☞ ⏻ ${word}";;
	"${IRC_USER}, please turn me on"*) annna-say "☞ ⏻ ${IRC_CMD_USER}";;
	"${IRC_USER}, I'm game bored.")
	gamelink="$(abandonware-random-game)"
	@@ -1002,16 +868,13 @@ case "${IRC_PRIVMSG_TEXT}" in
	annna-say "${IRC_CMD_USER}, sorry I have found nothing for you…
	else
	annna-say "${IRC_CMD_USER}, have you tried ${gamelink} ?"
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, I need a waifu"*)
	waifuuris="$(waifu-gen)"
	- [ -n "${waifuuris}" ] && annna-say "${IRC_CMD_USER}, ${waifuuris}"
	- ;;
	+ [ -n "${waifuuris}" ] && annna-say "${IRC_CMD_USER}, ${waifuuris}";;
	"${IRC_USER}, I need an anime"*)
	animeuri="$(anime-gen)"
	- [ -n "${animeuri}" ] && annna-say "${IRC_CMD_USER}, ${animeuri}"
	- ;;
	+ [ -n "${animeuri}" ] && annna-say "${IRC_CMD_USER}, ${animeuri}";;
	"${IRC_USER}, I'm gopher bored"*)
	randomlink="$(/br/bin/bitreich-lawn-random-link)"
	linktype="$(printf "%s\n" "${randomlink}" \| cut -d '\|' -f1 \| cut -c2-)"
	@@ -1020,40 +883,25 @@ case "${IRC_PRIVMSG_TEXT}" in
	linkserver="$(printf "%s\n" "${randomlink}" \| cut -d '\|' -f4)"
	linkport="$(printf "%s\n" "${randomlink}" \| cut -d '\|' -f5 \| cut -d']'…
	outtext="$(printf "%s - gopher://%s" "$linktext" "$linkserver")"
	- if [ "$linkport" != "70" ] && [ "$linkport" != "port" ];
	- then
	- outtext="$(printf "%s:%s" "$outtext" "$linkport")"
	- fi
	- if [ -n "$linksel" ];
	- then
	- outtext="$(printf "%s/%s%s" "$outtext" "$linktype" "$linksel")"
	- fi
	- annna-say "$outtext"
	- ;;
	+ [ "$linkport" != "70" ] && [ "$linkport" != "port" ] && outtext="$(pri…
	+ [ -n "$linksel" ] && outtext="$(printf "%s/%s%s" "$outtext" "$linktype…
	+ annna-say "$outtext";;
	"${IRC_USER}, wb"*) annna-say "${IRC_CMD_USER}, ty! I am so happy to be here. …
	"${IRC_USER}, welcome back"*) annna-say "${IRC_CMD_USER}, thank you! I am so h…
	"${IRC_USER}, I love you"*) annna-say $'\001ACTION blushes\001';;
	"${IRC_USER}, bon"*) annna-say "${IRC_CMD_USER}, $(bonjour) !";;
	"${IRC_USER}, salut"*) annna-say "${IRC_CMD_USER}, Salutations camarade !";;
	-"${IRC_USER}, what's up?")
	- newsstr="$(ecl -shell /home/solene/gopher/bin/generator.lisp)"
	- annna-say "$newsstr"
	- ;;
	+"${IRC_USER}, what's up?") annna-say "$(ecl -shell /home/solene/gopher/bin/gen…
	"${IRC_USER}, what's down?") annna-say "${IRC_CMD_USER}, we all love you.";;
	$'\001'"ACTION cancels "*)
	mobtarget="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| sed 's,.*ACTION can…
	cancel-target "${mobtarget}"
	- annna-say "${IRC_CMD_USER}, I cancelled ${mobtarget} for you. ( gopher…
	- ;;
	+ annna-say "${IRC_CMD_USER}, I cancelled ${mobtarget} for you. ( gopher…
	$'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(echo -e '\001')ACTION p…
	-"${IRC_USER}, please show me the mob"\|"${IRC_USER}, what are the mob")
	- canceluri="$(get-cancel-list)"
	- annna-say "${IRC_CMD_USER}, ${canceluri}"
	- ;;
	+"${IRC_USER}, please show me the mob"\|"${IRC_USER}, what are the mob") annna…
	"${IRC_USER}, I feel sick"*)
	newsstr="$(cd /br/gopher/hypochondria && ./hypochondria -s random)"
	- annna-say "You could have ${newsstr}! Be careful!"
	- ;;
	+ annna-say "You could have ${newsstr}! Be careful!";;
	"oh hai"\|"ohai"\|"ohhai") annna-say "${IRC_CMD_USER}, hai! How is your se…
	"o/"\|"o/ "\|"\o"\|"\o "\|"o7"\|"o7 "*) annna-say "${IRC_CMD_USER}, ${IRC_PRIVMSG…
	"\m/"\|"\m/ "*) annna-say "${IRC_CMD_USER}, ᕦ(ò_óˇ)ᕤ";;
	@@ -1067,8 +915,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ech…
	"${IRC_USER}, please coffee read "*)
	readtarget="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -c 27-)"
	horostr="$($HOME/scm/bullshit/horoscope)"
	- annna-say "${readtarget}, ${horostr}"
	- ;;
	+ annna-say "${readtarget}, ${horostr}";;
	"${IRC_USER}, what's my horoscope?") annna-say "${IRC_CMD_USER}, $($HOME/scm/b…
	"${IRC_USER}, what should I cook"*)
	recipestr="$(based.recipe)"
	@@ -1093,8 +940,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ech…
	else
	annna-say "${IRC_CMD_USER}, I have no recommendation f…
	fi
	- fi
	- ;;
	+ fi;;
	# parazyd.org is unmaintained
	#"${IRC_USER}, what's my future?")
	# puri="$(sacc gopher://parazyd.org/0/tarot.cgi \| /br/bin/bitreich-past…
	@@ -1104,8 +950,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ech…
	{
	wuri="$(github-haha)"
	[ -n "${wuri}" ] && annna-say "${IRC_CMD_USER}, haha ${wuri}"
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, meow"*)
	# https://catgps.wvd.io support
	nmeows=$(($RANDOM % 14))
	@@ -1120,24 +965,20 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(e…
	else
	meows="$meows."
	fi
	- annna-say "${IRC_CMD_USER}, ${meows}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${meows}";;
	"${IRC_USER}, how many memes do you know?") annna-say "I know $(hashtagcount) …
	"${IRC_USER}, please show me your memes"*)
	puri="$(printf "%s" "$(hashtags)" \| /br/bin/bitreich-paste)"
	- annna-say "Here are my memes: ${puri}"
	- ;;
	+ annna-say "Here are my memes: ${puri}";;
	"${IRC_USER}, please show me the victims"*)
	puri="$(printf "%s" "$(hashtags)" \| grep victim \| /br/bin/bitreich-pas…
	- annna-say "Here are the victims: ${puri}"
	- ;;
	+ annna-say "Here are the victims: ${puri}";;
	"${IRC_USER}, please distro-hop with me"*)
	ndistro="$(curl -s 'https://distrowatch.com/dwres.php?resource=popular…
	\| grep phr2 \
	\| sed 's,.href="$.$".*,\1,' \
	\| sort \| uniq \| shuf -n 1)"
	- annna-say "How about https://distrowatch.com/${ndistro} ?"
	- ;;
	+ annna-say "How about https://distrowatch.com/${ndistro} ?";;
	"${IRC_USER}, please show me your Macron"*) annna-say "gophers://bitreich.org/…
	"${IRC_USER}, release the Kraken"*) annna-say "Here it is! gophers://bitreich.…
	"${IRC_USER}, where is your source?") annna-say "Here is my precious source: g…
	@@ -1149,71 +990,47 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(e…
	2) annna-say "(▀ Ĺ▀ )̄";;
	3) annna-say "(▀Ĺ▀ )";;
	*) annna-say "I can't be cool! gophers://bitreich.org/9/memecache/i-ca…
	- esac
	- ;;
	+ esac;;
	"${IRC_USER}, please cheer"*)
	case "$(($RANDOM % 2))" in
	0) annna-say '~\o/~';;
	*) annna-say '✺◟( ° ʖ °)◞✺';;
	- esac
	- ;;
	+ esac;;
	"${IRC_USER}, please give me a fish"*)
	case "$(($RANDOM % 2))" in
	0) annna-say '<><';;
	*) annna-say '><>';;
	- esac
	- ;;
	+ esac;;
	"${IRC_USER}, run"*) annna-say 'ᕕ(ಠ_ಠ)ᕗ';;
	"${IRC_USER}, be cute"*)
	case "$(($RANDOM % 4))" in
	- 0)
	- annna-say ' (\ /)'
	- sleep 0.1
	- annna-say ' (. .)'
	- sleep 0.1
	- annna-say ' C(") (")'
	- ;;
	- 1)
	- annna-say ' (\-/)'
	- sleep 0.1
	- annna-say " (='.'=)"
	- sleep 0.1
	- annna-say ' (")-(")o'
	- ;;
	- 2)
	- annna-say ' ( ) ( )'
	- sleep 0.1
	- annna-say ' (>•.•<)'
	- sleep 0.1
	- annna-say ' (") (")'
	- ;;
	- *)
	- annna-say ' (\ (\'
	- sleep 0.1
	- annna-say " (=' :')"
	- sleep 0.1
	- annna-say ' (, (") (")'
	- ;;
	- esac
	- ;;
	+ 0) annna-say ' (\ /)' && sleep 0.1
	+ annna-say ' (. .)' && sleep 0.1
	+ annna-say ' C(") (")';;
	+ 1) annna-say ' (\-/)' && sleep 0.1
	+ annna-say " (='.'=)" && sleep 0.1
	+ annna-say ' (")-(")o';;
	+ 2) annna-say ' ( ) ( )' && sleep 0.1
	+ annna-say ' (>•.•<)' && sleep 0.1
	+ annna-say ' (") (")' && sleep 0.1;;
	+ *) annna-say ' (\ (\' && sleep 0.1
	+ annna-say " (=' :')" && sleep 0.1
	+ annna-say ' (, (") (")';;
	+ esac;;
	"${IRC_USER}, 8ball "*)
	eightballanswer="$(8ball)"
	- [ -n "${eightballanswer}" ] && annna-say "${eightballanswer}"
	- ;;
	+ [ -n "${eightballanswer}" ] && annna-say "${eightballanswer}";;
	"${IRC_USER}, email "*)
	findsyou="$(shuf -n 1 "${ANNNA_MODBASE}/finds-you/finds_you.txt")"
	- [ -n "${findsyou}" ] && annna-say "${IRC_CMD_USER}, I hope this email …
	- ;;
	+ [ -n "${findsyou}" ] && annna-say "${IRC_CMD_USER}, I hope this email …
	"${IRC_USER}, please throw a coin for me.")
	case "$((($RANDOM % 2) + 1))" in
	1) annna-say "face";;
	2) annna-say "number";;
	- esac
	- ;;
	+ esac;;
	"${IRC_USER}, please quantum roll d2 for me"*)
	qroll="$(($(/home/20h/scm/quantum-rng/quantum-rng) + 1))"
	- annna-say "${IRC_CMD_USER}, ${qroll} [1d2(scores:[${qroll}])]"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${qroll} [1d2(scores:[${qroll}])]";;
	"${IRC_USER}, please roll "" for me")
	q="${text#* roll }"
	q="${q%for*}"
	@@ -1225,8 +1042,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	[ "${q}" = "dice " ] && q="d6"

	dicescore="$(dice "${q}")"
	- annna-say "${IRC_CMD_USER}, ${dicescore}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, ${dicescore}";;
	"${IRC_USER}, please tell me your favourite flower"*) annna-say "My favourite …
	"${IRC_USER}, please tell me your favourite color"*) annna-say "My favourite c…
	"${IRC_USER}, please clap for me") annna-say "${IRC_CMD_USER}, clap* clap …
	@@ -1237,8 +1053,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	annna-say "${IRC_CMD_USER}, this one: ${cityuri}"
	else
	annna-say "${IRC_CMD_USER}, none."
	- fi
	- ;;
	+ fi;;
	[Ff]"or humanity"*) annna-say "${IRC_CMD_USER}, for humanity! gophers://bitrei…
	[Hh]"ack the planet"*) annna-say "${IRC_CMD_USER}, hack the planet!" ;;
	[Ll]"ong live gopher"*) annna-say "${IRC_CMD_USER}, long live gopher!";;
	@@ -1250,8 +1065,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	"${IRC_USER}, please do the graveyard smash"*)
	annna-say -- "( つ･ᴗ･)つ"
	annna-say -- "ς ( ･ᴗ･ ς )"
	- annna-say -- "It did the mash\\ It did the ~~MONSTER MASH~~\\ It was a…
	- ;;
	+ annna-say -- "It did the mash\\ It did the ~~MONSTER MASH~~\\ It was a…
	"${IRC_USER}, boo"*) annna-say "${IRC_CMD_USER}, 👻";;
	"${IRC_USER}, W3C"\|"${IRC_USER}, w3c") annna-say "${IRC_CMD_USER}, 🕸️ �…
	"${IRC_USER}, pumpkin"*) annna-say "${IRC_CMD_USER}, 🎃";;
	@@ -1268,16 +1082,14 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	sleep $sleeptime

	annna-say "${IRC_CMD_USER}, $(trick-or-treat)"
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, please dance with me"*)
	if [ $(($RANDOM % 2)) -gt 0 ];
	then
	annna-say "I am not that kind of woman."
	else
	annna-say "Thank you! Let us dance! :-D"
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, please tell me who is your favourite pleasure man"*) annna-say "…
	"${IRC_USER}, make me a sandwich"*) annna-say "No.";;
	"${IRC_USER}, sudo make me a sandwich"*) annna-say "Humans are no objects.";;
	@@ -1285,8 +1097,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	"${IRC_USER}, sudo please make me a sandwich"*) annna-say "Here is your sandwi…
	"${IRC_USER}, I feel unsure about my health.")
	healthadvice="$(health-advice)"
	- [ -n "${healthadvice}" ] && annna-say "${IRC_CMD_USER}, ${healthadvice…
	- ;;
	+ [ -n "${healthadvice}" ] && annna-say "${IRC_CMD_USER}, ${healthadvice…
	"${IRC_USER}, bonjour !") annna-say "${IRC_CMD_USER}, bonjour !";;
	" pets ${IRC_USER}") annna-say "${IRC_CMD_USER}, brrrrr";;
	"${IRC_USER}, please give me a penis extension"*) annna-say "${IRC_CMD_USER}, …
	@@ -1302,8 +1113,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	*) mqtturi="mqtts://bitreich:oogui3queex&[email protected]/${mqttu…
	esac
	msg="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| cut -d' ' -f 4-)"
	- printf "${msg}\n" \| mosquitto_pub -L "${mqtturi}" -l
	- ;;
	+ printf "${msg}\n" \| mosquitto_pub -L "${mqtturi}" -l;;
	[Zz]"uckerberg") annna-say "${IRC_CMD_USER}, did you mean gophers://bitreich…
	"${IRC_USER}, please pick one of: "*)
	pick="$(printf '%s\n' "${IRC_PRIVMSG_TEXT}" \
	@@ -1312,17 +1122,13 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	\| tr -d ' ' \
	\| sort -R \
	\| head -n 1)"
	- annna-say "${IRC_CMD_USER}, I think ${pick} is the best option."
	- ;;
	+ annna-say "${IRC_CMD_USER}, I think ${pick} is the best option.";;
	"${IRC_USER}, please play some Bach"*)
	midifile="$(find . /home/annna/bin/modules/midi-media/bach -name '*.mi…
	\| sort -R \
	\| head -n 1)"
	outfile="/br/gopher/midi/${midifile##*/}.ogg"
	- if midi-play "$midifile" >"$outfile"; then
	- annna-say "${IRC_CMD_USER}, gophers://bitreich.org/9/midi/${ou…
	- fi
	- ;;
	+ midi-play "$midifile" >"$outfile" && annna-say "${IRC_CMD_USER}, gophe…
	"${IRC_USER}, please antidepressant #"*\|\
	"${IRC_USER}, please amplify #"*\|\
	"${IRC_USER}, please amsterdamify #"*\|\
	@@ -1416,8 +1222,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	case "${filter}" in
	antidepressant\|ritual\|putin\|tshirt)
	outfile="${outfile%.*}.jpg"
	- outpath="${outpath%.*}.jpg"
	- ;;
	+ outpath="${outpath%.*}.jpg";;
	wat\|smith\|zucc)
	mimetype="$(file --mime-type "$inpath" \| cut -d':' -f …
	# Only allow images to be free.
	@@ -1429,12 +1234,10 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	inpath="${newinpath}"

	outfile="${outfile%.*}.png"
	- outpath="${outpath%.*}.png"
	- ;;
	+ outpath="${outpath%.*}.png";;
	image/*)
	outfile="${outfile%.*}.${origext}"
	- outpath="${outpath%.*}.${origext}"
	- ;;
	+ outpath="${outpath%.*}.${origext}";;
	esac
	esac
	# Cleanup if outpath file is empty.
	@@ -1466,18 +1269,13 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	/tmp/*.png) [ -e "${inpath}" ] && rm "${inpath}";;
	esac

	- if [ -s "${outpath}" ];
	- then
	- annna-say "${recipient}, gophers://bitreich.org/${outt…
	- fi
	+ [ -s "${outpath}" ] && annna-say "${recipient}, gophers://bitr…
	} &
	- exit 0
	- ;;
	+ exit 0;;
	"${IRC_USER}, please 3d "*)
	args=$(echo ${IRC_PRIVMSG_TEXT} \| cut -d' ' -f 4-)
	outfile=$(blender-effect $args)
	- annna-say "${IRC_CMD_USER}, gophers://bitreich.org/I/memecache/3d/${ou…
	- ;;
	+ annna-say "${IRC_CMD_USER}, gophers://bitreich.org/I/memecache/3d/${ou…
	# https://ednaundharvey.fandom.com/de/wiki/Droggelbecher
	"${IRC_USER}, droggelbecher"*) annna-say "${IRC_CMD_USER}, Droggelbecher!";;
	"${IRC_USER}, thanks"\|"${IRC_USER}, thx") annna-say "${IRC_CMD_USER}, you're…
	@@ -1491,8 +1289,7 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(ec…
	mv "${outfile}" "${outpath}/"
	annna-say "${IRC_CMD_USER}, gophers://bitreich.org/I/p…
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, can "*" certify itself?")
	q="${IRC_PRIVMSG_TEXT#* can }"
	q="${q% certify*}"
	@@ -1503,30 +1300,23 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	then
	annna-say "${IRC_CMD_USER}, let us see the certificate…
	fi
	- } &
	- ;;
	+ } & ;;
	"${IRC_USER}, please mine "" bitreichcoin")
	q="${IRC_PRIVMSG_TEXT#* please mine }"
	q="${q% bitreichcoin*}"
	curi="$(bitreichcoin "$q" \| /br/bin/bitreich-paste)"
	- annna-say "${IRC_CMD_USER}, please don't spend it all at once: ${curi}"
	- ;;
	+ annna-say "${IRC_CMD_USER}, please don't spend it all at once: ${curi}…
	"${IRC_USER}, please hug me.") annna-say "$(echo -e '\001')ACTION hugs ${IRC_C…
	"${IRC_USER}, please hug "*" for me.")
	huggee="${IRC_PRIVMSG_TEXT#* please hug }"
	huggee="${huggee% for me*}"
	- if [ -n "${huggee}" ];
	- then
	- annna-say "$(echo -e '\001')ACTION hugs ${huggee}$(echo -e '\0…
	- fi
	- ;;
	+ [ -n "${huggee}" ] && annna-say "$(echo -e '\001')ACTION hugs ${huggee…
	"${IRC_USER}, how many fucks were given?") annna-say "${IRC_CMD_USER}, current…
	"${IRC_USER}, please slam the door.") annna-say "${IRC_CMD_USER}, BANG";;
	"${IRC_USER}, what is my credit score?") annna-say "${IRC_CMD_USER}, your cred…
	"${IRC_USER}, please give me a cookie.")
	cookie="$(cookie)"
	- [ -n "${cookie}" ] && annna-say "$(echo -e '\001')ACTION gives ${IRC_C…
	- ;;
	+ [ -n "${cookie}" ] && annna-say "$(echo -e '\001')ACTION gives ${IRC_C…
	"${IRC_USER}, please help"*) annna-say -c "${IRC_CMD_USER}" "See git://bitreic…
	"${IRC_USER}, please meme meme meme me"*)
	randomtag=2
	@@ -1542,15 +1332,13 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	done
	annna-say "${tagname}: ${taguri}"
	randomtag=$((randomtag - 1))
	- done
	- ;;
	+ done;;
	"${IRC_USER}, what's the wheelchair shooter meme again?")
	tagname="#scrollby"
	tagline="$(printf "%s\n" "$(hashtags)" \| grep "^${tagname} ")"
	tagname="$(printf "%s\n" "${tagline}" \| cut -d ' ' -f 1)"
	taguri="$(printf "%s\n" "${tagline}" \| cut -d ' ' -f 2-)"
	- annna-say "${tagname}: ${taguri}"
	- ;;
	+ annna-say "${tagname}: ${taguri}";;
	"${IRC_USER}, TIL "\|"${IRC_USER}, til ")
	minimum_learned_len=12
	offset=$(( ${#IRC_USER} + 6 ))
	@@ -1566,15 +1354,12 @@ $'\001'"ACTION pokes ${IRC_USER}"$'\001') annna-say "$(…
	then
	annna-say "${IRC_CMD_USER}, ${result}"
	fi
	- fi
	- ;;
	+ fi;;
	"${IRC_USER}, what have I learned?")
	if result=$(til-user ${IRC_CMD_USER});
	then
	annna-say "${IRC_CMD_USER}, ${result}"
	- fi
	- ;;
	-
	+ fi;;
	esac

	printf '%s' "${IRC_PRIVMSG_TEXT}" \| awk -v taglimit="$printnhashtags" '
	@@ -1594,15 +1379,10 @@ do
	pointer=0
	revpointer=0
	case "${tag}" in
	- "")
	- tag="#$(printf "%s\n" "${tag}" \| sed "s,^[\],,")"
	- pointer=1
	- ;;
	- "&"*)
	- tag="#$(printf "%s\n" "${tag}" \| sed "s,^[\&]*,,")"
	- revpointer=1
	- ;;
	- *)
	+ "") tag="#$(printf "%s\n" "${tag}" \| sed "s,^[\],,")"
	+ pointer=1;;
	+ "&") tag="#$(printf "%s\n" "${tag}" \| sed "s,^[\&],,")"
	+ revpointer=1;;
	esac

	tagline="$(grep "${tag} " "${hashtagfile}" \| shuf -n 1)";
	@@ -1692,23 +1472,20 @@ case "${IRC_PRIVMSG_TEXT,,}" in
	\#nospoil);;
	rfc[0-9])
	rfcname="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| sed 's,.\(rfc[0-9]\…
	- annna-say "${rfcname}: ftp://ftp.rfc-editor.org/in-notes/${rfcname}.tx…
	- ;;
	+ annna-say "${rfcname}: ftp://ftp.rfc-editor.org/in-notes/${rfcname}.tx…
	esac

	# Always keep the karma / shame last!
	case "${IRC_PRIVMSG_TEXT}" in
	"-shaming")
	shametext="$(printf "%s\n" "${IRC_PRIVMSG_TEXT}" \| sed 's,.* \(.*-sham…
	- shame "${shametext}" >/dev/null
	- ;;
	+ shame "${shametext}" >/dev/null;;
	"arma is a bitch") annna-say "${IRC_CMD_USER}, I object! Karma is a nice gir…
	# For referee scoring.
	"score "*);;
	++\|--\|-=?\|+=?\|+=-?\|-=-?)
	karmatext="$(karma "${IRC_PRIVMSG_TEXT}")"
	- [ -n "$karmatext" ] && annna-say "karma: ${karmatext}"
	- ;;
	+ [ -n "$karmatext" ] && annna-say "karma: ${karmatext}";;
	esac

	# Membership Level.
	@@ -1722,19 +1499,16 @@ done
	case "${IRC_PRIVMSG_TEXT}" in
	"${IRC_USER}, please go to sleep.")
	annna-say "Going to sleep ... Zzzz ..."
	- annna-sleep-well
	- ;;
	+ annna-sleep-well;;
	"${IRC_USER}, please wake up.")
	annna-wakeup
	- annna-say "Good morning BITREICH!"
	- ;;
	+ annna-say "Good morning BITREICH!";;
	"${IRC_USER}, can you show me the uptime please?") annna-say "$(hostname) upti…
	"${IRC_USER}, please show me the load.") annna-say "$(hostname) load: $(LANG=C…
	"${IRC_USER}, please give me the count of online users.") annna-say "$(hostnam…
	"${IRC_USER}, please update the phlog index.")
	phlog-index > /dev/null 2>&1
	- annna-say "Thanks! Your request has been fulfilled with the quickness!…
	- ;;
	+ annna-say "Thanks! Your request has been fulfilled with the quickness!…
	esac

	# Referee Level.
	@@ -1751,8 +1525,7 @@ case "${IRC_PRIVMSG_TEXT}" in
	case "${IRC_PRIVMSG_TEXT}" in
	++\|--\|-=?\|+=?\|+=-?\|-=-?\|-=??\|+=??\|-=-??\|-=65536*)
	scoretext="$(brcon-score "${IRC_PRIVMSG_TEXT}")"
	- [ -n "$scoretext" ] && annna-say "brcon score: ${scoretext}"
	- ;;
	+ [ -n "$scoretext" ] && annna-say "brcon score: ${scoretext}";;
	esac;;
	esac