dotg

functions (5506B)

---

 #!/bin/sh
 
 navigation() {
 	locations="
 		Balcony
 		Bedroom1
 		Bedroom2
 		Toilet1
 		Toilet2
 		Kitchen
 		Hipster_Area
 		Work_Desk
 	"
 	current="$(cat $savegame/room)"
 
 	echo
 	for i in $locations; do
 		if ! [ "$current" = "$i" ]; then
 			echo "[1|Go to $i|$path/$i.dcgi|server|port]"
 		fi
 	done
 }
 
 _msg() {
 	echo
 	echo "$*" | fmt --width=109 | sed 's/\t//g' | sed 's/^t/tt/'
 }
 
 dropsauce() {
 	[ -f "$hipsters/$1/Plate_of_Bolognese_Sauce" ] && {
 		mv "$hipsters/$1/Plate_of_Bolognese_Sauce" "$hipsters/coffeetable"
 	}
 }
 
 parapluutje() {
 	cat <<EOM
 
 Oh wat een zomernacht
 Een feestje op de terrasjes
 Het regende plots heel zacht
 Je vind de druppels op met je tong
 En we dansten altijd maar dichter
 M'n voeten werden steeds lichter
 Toe neem me mee
 
 Onder je parapluutje
 Onder je para-para-para-parapluutje
 Schuilen voor een klein minuutje
 Alles werd plots zo aah
 Alles werd plots zo oe
 Alles werd plots zo aah
 Onder je paraplu
 Para-para-parapluutje
 Para-para-paraplu
 Para-para-parapluutje
 
 Oh wat een zomernacht
 Een kus om bij weg te dromen
 Niemand die ons daar zag
 We schuilden stilletjes en dichtbij
 En plots braken de wolken open
 Maar jij bent niet weggelopen
 Toe neem me mee
 
 Onder je parapluutje
 Onder je para-para-para-parapluutje
 Schuilen voor een klein minuutje
 Alles werd plots zo aah
 Alles werd plots zo oe
 Alles werd plots zo aah
 Onder je paraplu
 Para-para-parapluutje
 Para-para-paraplu
 Para-para-parapluutje
 (2x)
 
 En we dansten altijd maar dichter
 M'n voeten werden steeds lichter
 Toe neem me mee
 
 Onder je parapluutje
 Onder je para-para-para-parapluutje
 Schuilen voor een klein minuutje
 Alles werd plots zo aah
 Alles werd plots zo oe
 Alles werd plots zo aah
 Onder je paraplu
 Para-para-parapluutje
 Para-para-paraplu
 Para-para-parapluutje
 (2x)
 
 EOM
 }
 
 takebeer() {
 	current="$(cat $savegame/room)"
 
 	drink="$1"
 
 	case "$current" in
 		Balcony)
 			beersat="$balcony/$drink"
 			;;
 		Kitchen)
 			beersat="$kitchen/fridge/$drink"
 			;;
 	esac
 
 	if [ -f "$inventory/$drink" ]; then
 		inbag="$(cat $inventory/$drink)"
 	else
 		inbag=0
 	fi
 
 	incrate="$(cat $beersat)"
 
 	if [ "$incrate" -lt 2 ]; then
 		cat <<EOM
 
 There are no $drink left for you here!
 
 EOM
 	else
 		newcnt="$(( $incrate - 2 ))"
 		newbag="$(( $inbag +2 ))"
 		printf "$newcnt" > "$beersat"
 		printf "$newbag" > "$inventory/$drink"
 		cat << EOM
 
 You took two $drink from the $current.
 
 EOM
 	fi
 
 	echo "[1|Exit|$path/$current.dcgi|server|port]"
 }
 
 dropitem() {
 	item="$1"
 	[ -f "$inventory/$item" ] || return 1
 	oldcount="$(cat $inventory/$item)"
 	newcount="$(( $oldcount - 1))"
 	printf "$newcount" > "$inventory/$item"
 	if [ "$newcount" -lt 1 ]; then
 		rm -f "$inventory/$item"
 	fi
 }
 
 list_items_to() {
 	what="$1"
 	where="$2"
 	cd "$where"
 	for i in $(ls -1); do
 		echo "[1|$i|$path/$what.dcgi?$where/$i|server|port]"
 	done
 	cd - >/dev/null
 
 	cat <<EOM
 
 (note: select any item to $what it)
 
 EOM
 }
 
 take_item() {
 	fullpath="$1"
 	itemname="$(basename $fullpath)"
 
 	if echo "$itemname" | grep -q '^\.' ; then
 		itemname="$(echo $itemname | cut -c 2-)"
 	fi
 
 	mv "$fullpath" "$inventory/$itemname"
 }
 
 find_usecase() {
 	item="$1"
 	room="$2"
 
 	line="$(grep "^$item" usecases.csv)"
 	[ -z "$line" ] && {
 		echo "No use for $item here."
 		return
 	}
 
 	uses="$(echo $line | tr ',' '\n' | tail -n+2)"
 	if [ "$uses" = "anywhere" ]; then
 		echo "use-generic"
 		return
 	fi
 
 	for i in $uses; do
 		if [ "$i" = "anywhere" ]; then
 			echo "use-generic"
 			return
 		elif [ "$i" = "$room" ]; then
 			echo "use-specific,$i"
 			return
 		fi
 	done
 
 	echo "No use for $item here."
 }
 
 use_generic() {
 	case "$1" in
 		Cigarettes)
 			dropitem "$item"
 			echo "You smoke a cigarette."
 			;;
 
 		Rolling_tobacco)
 			echo "You roll and smoke a cigarette."
 			;;
 
 		Beers)
 			dropitem "$item"
 			echo "You drink a beer."
 			;;
 
 		Plastic_bottle_of_rakia)
 			_msg "You take a sip of rakia.
 
 				You feel drunk."
 			;;
 
 		Keychain_with_a_key)
 			_msg "You try to unlock things, but there's no place to use the key.
 
 				You put it back in your pocket."
 			;;
 		Cocaine)
 			_msg "You snort the cocaine."
 			;;
 
 		Cheese)
 			_msg "You eat a piece of cheese."
 			;;
 	esac
 }
 
 use_specific() {
 	call="$1"
 	item="$2"
 
 	case "$call" in
 		talk-girls)
 			. talk-girls.sh
 			specific_talk_girls "$item"
 			;;
 		talk-gentoo)
 			. talk-gentoo.sh
 			specific_talk_gentoo "$item"
 			;;
 		talk-20h)
 			. talk-20h.sh
 			specific_talk_20h "$item"
 			;;
 		talk-hipster)
 			. talk-hipster.sh
 			specific_talk_hipster "$item"
 			;;
 		talk-nerds)
 			. talk-nerds.sh
 			specific_talk_nerds "$item"
 			;;
 		talk-host)
 			. talk-host.sh
 			specific_talk_host "$item"
 			;;
 		talk-elves)
 			. talk-elves.sh
 			specific_talk_elves "$item"
 			;;
 		talk-balcony)
 			. talk-balcony.sh
 			specific_talk_balcony "$item"
 			;;
 		kitchen-sink)
 			. kitchen-sink.sh
 			specific_talk_kitchensink "$item"
 			;;
 		kitchen-fridge)
 			. kitchen-fridge.sh "$item"
 			specific_talk_kitchenfridge "$item"
 			;;
 		Hipster_Area)
 			. Hipster_Area.sh
 			specific_talk_hipsterarea "$item"
 			;;
 		Balcony)
 			. Balcony.sh
 			specific_balcony "$item"
 			;;
 		Bedroom1)
 			. Bedroom1.sh
 			specific_bedroom1 "$item"
 			;;
 		Bedroom2)
 			. Bedroom2.sh
 			specific_bedroom2 "$item"
 			;;
 		Bench)
 			. Bench.sh
 			specific_bench "$item"
 			;;
 		Toilet1)
 			. Toilet1.sh
 			specific_toilet1 "$item"
 			;;
 		Toilet2)
 			. Toilet2.sh
 			specific_toilet2 "$item"
 			;;
 		Kitchen)
 			. Kitchen.sh
 			specific_kitchen "$item"
 			;;
 		Work_Desk)
 			. Work_Desk.sh
 			specific_workdesk "$item"
 			;;
 		*)
 			echo "Not implemented"
 			;;
 	esac
 }