bot.sh

#!/bin/bash

# TempleBot, originally written by ring in 2015 for the #templeos 
# channel at irc.rizon.net. IRC bot that lets you talk to God.
#
# Project homepage: https://templebot.neocities.org
# Current repository: https://github.com/haywalk/TempleBot
# Original repository: https://github.com/ringtech/TempleBot
#
# This software is in the PUBLIC DOMAIN. "Do what you want."
#
# This script uses ii as its irc client. For setting it up, refer to the
# documentation of ii.
# 
# ii can be found at: https://tools.suckless.org/ii/
#
# The script should be run inside the directory of the channel, e.g.
# "~/irc/irc.rizon.net/#templeos/". The Data/ and Fortunes/ directories
# must also be in the channel folder.

# Information about where to download the source code
source='TempleBot was originally made by RingTech in 2015 for the '\
'#templeos channel on Rizon, and features were added in 2019 by '\
'Guest39.
You can download the TempleBot source code at: '\
'https://templebot.neocities.org
In the spirit of TempleOS, this software is dedicated to the public '\
'domain. "Do what you want."'

# Help message
help='Oracle for the #templeos channel. Lets you talk with God.
Available commands: !bible !books !checkem !feel !happy !help !movie '\
'!number !quote !recipe !source !tadquote !templeos !terry !words
This bot uses random numbers to pick lines and words from a few '\
'files. You can use this to talk to God, by making an offering to Him '\
'first. An offering can be anything that pleases God, like charming '\
'conversation or a good question. You can compare this to praying and '\
'opening a book at random, and looking at what it says.'

# Keep track of time a command was last issued, to avoid spam
lastspam=0

# Get random words from a file. The filename is passed in as an argument
# and number of words is an optional second argument.
wordchain () {	
	sleep 3s # Give God time to think, that's polite

	case $arg1 in
		# If 'random' is passed in, generate random number of words
		random)
			echo "$nick: $(shuf -n $(shuf -en 1 $(seq 1 40) \
				--random-source=/dev/urandom) $1 \
				--random-source=/dev/urandom | tr '\n' ' ')"
			;;

		# If no argument is passed in, generate 10 words
		''|*[!0-9]*)
			echo "$nick: $(shuf -n 10 $1 \
				--random-source=/dev/urandom | tr '\n' ' ')"
			;;

		# If a number is passed in, generate that number of words
		*)
			echo "$nick: $(shuf -n $arg1 $1 \
				--random-source=/dev/urandom | tr '\n' ' ')"
			;;
	esac
}

# This function generates a random number.
number () {	
	sleep 3s # Give God time to think, that's polite

	case $1 in
		# If no argument is passed, generate # between 1 and 10
		''|*[!0-9]*)
			echo $(shuf -en 1 {1..10} --random-source=/dev/urandom)
			;;
		# If an argument is passed, generate # between 1 and argument
		*)
			echo $(shuf -en 1 $(seq 1 $1) --random-source=/dev/urandom)
			;;
	esac
}

# Read from the output file until EOF (whenever ii stops running)
tail -f -n 0 out | while read -r date nick cmd arg1 msg; do 

	# Remove < and > from around nick
	nick="${nick#<}"
	nick="${nick%>}"

	# Switch statement checks what command was given
	case $cmd in
	
		# !bible / !oracle : Random bible passage
		# (original)
		!bible|!oracle)
			if [ "$[ $(date +%s) - lastspam ]" -gt "60" ]; then
				case $arg1 in
					''|*[!0-9]*)
						LINE=$(number 100000)
						;;
					*)
						LINE=$arg1
						;;
				esac
				
				echo "$nick:"
				echo "Line $LINE:"
				tail -n $LINE ./Data/Bible.TXT | head -n 16
				lastspam=$(date +%s)
			fi
			;;
		
		# !books : Random line from a book
		# (original)
		!books)
			if [ "$[ $(date +%s) - lastspam ]" -gt "60" ]; then
				LINE=$[$(number 100000)*3]
				echo "$nick:"
				echo "Line $LINE:"
				tail -n $LINE ./Data/Books.TXT | head -n 16
				lastspam=$(date +%s)
			fi
			;;
		
		# !checkem : Random number
		# (From Guest39 version)
		!checkem)
			echo $(( ( RANDOM % 10000 )  + 1 ))
			;;
		
		# !feel : Random emoticon
		# (original)
		!feel)
			sleep 3s # Give God time to think, that's polite
			shuf -n 1 --random-source=/dev/urandom ./Data/Smileys.TXT
			;;

		# !happy : Random happy words from God
		# (original)
		!happy)
			wordchain ./Data/Happy.TXT 10
			;;
		
		# !help : Display help message
		# (original)
		!help)
			echo "$help"
			;;

		# !movie : Random movie title
		# (original)
		!movie)
			movie="$(number 100)"
			grep -m 1 -A 1 "$movie " ./Data/Movies.TXT
			;;

		# !number : Random number
		# (original)
		!number)
			number $arg1
			;;
		
		# !quit / !exit / !stop : Don't quit (display snarky message)
		# (original)
		!quit|!exit|!stop)
			echo "The ride never ends"
			;;

		# !quote : Random fortune
		# (original)
		!quote)
			sleep 3s # Give God time to think, that's polite
			fortune=$(ls Fortunes | shuf -n 1 \
				--random-source=/dev/urandom)
			cat "Fortunes/$fortune"
			;;
		
		# !recipe : Random recipe
		# (original)
		!recipe)
			wordchain ./Data/Ingredients.TXT 10
			;;

		# !restart : Restart the IRC bot
		# (original)
		!restart)
			echo "TempleBot restarting..." 
			exec $0
			;;

		# !source : Display information about where to download the bot
		# (original)
		!source)
			echo "$source"
			;;

		# !tadquote / !tquote : Random (mostly clean) Terry Twitter quote
		# (from Guest39 version)
		!tadquote|!tquote)
			echo "Terry says..."
			sleep 3s # Give God time to think, that's polite
			shuf -n 1 --random-source=/dev/urandom ./Data/CleanTweets.TXT
			;;

		# !terry / !tad : Show an ASCII-art image of King Terry
		# (from Guest39 version)
		!terry|!tad)
			# Prevent spam (or else bot will be kicked for flooding)
			if [ "$[ $(date +%s) - lastspam ]" -gt "60" ]; then
				# Output the file slowly to avoid flooding
				perl -pe "system 'sleep .25'" ./Data/TADPortrait-IRC.TXT
				lastspam=$(date +%s)
			fi
			;;

		# !tos : Show an ASCII-art image of the TempleOS logo.
		# (from 2022 version)
		!templeos|!tos)
			# Prevent spam (or else bot will be kicked for flooding)
			if [ "$[ $(date +%s) - lastspam ]" -gt "60" ]; then
				# Output the file slowly to avoid flooding
				perl -pe "system 'sleep .25'" ./Data/TOSLogo-IRC.TXT
				lastspam=$(date +%s)
			fi
			;;

		# !words / !God / !gw : Random words from God
		# (original)
		!words|!God*|!god*|!gw)
			wordchain /usr/share/dict/words 10
			;;

		# If someone typed a line that started with '!' but wasn't a
		# command, display error message
		# (original)
		*)
			if [ "$(echo $cmd | cut -c-1)" == "!" ]; then
				echo "$nick: $cmd is not a known command."
			fi
			;;
	esac

# Send the bot's output to the 'in' file (to be sent to the channel)
done > in