#!/bin/sh

initializeANSI()
{
esc="ckf="${esc}[30m";   redf="${esc}[31m";    greenf="${esc}[32m"
yellowf="${esc}[33m"   bluef="${esc}[34m";   purplef="${esc}[35m"
cyanf="${esc}[36m";    whitef="${esc}[37m"
blackb="${esc}[40m";   redb="${esc}[41m";    greenb="${esc}[42m"
yellowb="${esc}[43m"   blueb="${esc}[44m";   purpleb="${esc}[45m"
cyanb="${esc}[46m";    whiteb="${esc}[47m"
boldon="${esc}[1m";    boldoff="${esc}[22m"
italicson="${esc}[3m"; italicsoff="${esc}[23m"
ulon="${esc}[4m";      uloff="${esc}[24m"
invon="${esc}[7m";     invoff="${esc}[27m"
reset="${esc}[0m"
}

initializeANSI

ME=`grep "^$LOGNAME" /etc/passwd | awk -F: ' {print $5}' | awk -F, '{print $1}'`
echo "Home script for $NAME"
while :
do
r=0
clear
echo "    ${blueb}${whitef}  main menu  ${reset}"
echo "  |"
echo "1 | check email"
echo "2 | world wide web"
echo "3 | gopher"
echo "4 | text adventures"
echo "5 | other games"
echo "6 | carleton bridge"
echo "  |"
echo "  |"
echo "  |"
echo "0 | exit to shell"
echo "  |"
echo -n "    ${cyanf}please enter option${reset} [0 - 6] $ "
read opt
case $opt in
1) alpine;;
2) links /usr/share/start.html;;
3) gopher gopher.org;;
4) r=1;;
5) r=2;;
6) telnet bridge.carleton.edu;;
0) clear;
exit 1;;
esac
if [ $r -eq 1 ]
then
clear
echo "    ${blueb}${whitef}  text adventures  ${reset}"
echo "  |"
echo "1 | colossal cave adventure"
echo "2 | you are a chef"
echo "3 | an act of murder"
echo "4 | the art of deception"
echo "5 | lost pig"
echo "6 | babel"
echo "7 | shade"
echo "8 | enhanced"
echo "  |"
echo "0 | return to main menu"
echo "  |"
echo -n "    ${cyanf}please enter option${reset} [0 - 8] $ "
read opt
case $opt in
1) frotz /usr/local/share/games/if/advent.z6;;
2) frob /usr/local/share/games/if/CHEF.GAM;;
3) frotz /usr/local/share/games/if/ActofMurder.z8;;
4) frotz /usr/local/share/games/if/art.z5;;
5) frotz /usr/local/share/games/if/lostpig.z8;;
6) frob /usr/local/share/games/if/Babel31.gam;;
7) frotz /usr/local/share/games/if/shade.z5;;
8) frob /usr/local/share/games/if/enhanced.gam;;
esac
r=0
fi
if [ $r -eq 2 ]
then
clear
echo "    ${blueb}${whitef}  text games  ${reset}"
echo "  |"
echo "1 | moon-buggy"
echo "2 | nethack"
echo "3 | dopewars"
echo "4 | robotfindskitten"
echo "5 | tom bombem"
echo "  |"
echo "  |"
echo "  |"
echo "  |"
echo "0 | return to main menu"
echo "  |"
echo -n "    ${cyanf}please enter option${reset} [0 - 5] $ "
read opt
case $opt in
1) moon-buggy;;
2) nethack;;
3) dopewars;;
4) robotfindskitten;;
5) tb_asm;;
esac
r=0
fi
done