ON ENTER{ "Welcome to the SteelFist Verr Shed.  Take a minute to check the status of the Verrs by clicking the Shed.  Today is: " LOCALMSG
"'time"  SAY}

ON INCHAT{  date GLOBAL {"$2" GREPSUB date=  }CHATSTR "^; (.+) (.+) (.+) (.+)" GREPSTR IF}


ON SELECT{
date GLOBAL  200 tVer  =
""LOGMSG ""LOGMSG
":::SteelFist Verr Inventory::::" LOGMSG
"Total  Verr Count: "  tVer + LOGMSG
"Adults    : " tVer 40 * 100 / + LOGMSG
 tVer 60 * 100 / cVer=
"Calfs     : " cVer + LOGMSG
"Males     : " tVer 35 * 100 / + LOGMSG
 tVer 65 * 100 / fVer=
"Females : "   fVer + LOGMSG
{date   40 * 100/  4 + sick=} {10 date 30 * 100/  -  sick=}  date 16 < IFELSE
"Sick Verrs  : " sick +  LOGMSG
"Verrs for Sale  : "  tVer  sick - fVer -    +LOGMSG
"=============== " LOGMSG
}