Change the light settings of a room. "make the room darker at night"


ON INCHAT
{ lstat GLOBAL CHATSTR lstat = 30 ME SETALARM }
ON ALARM{
lev GLOBAL
lstat GLOBAL
{ 0 lev = } lstat "light" == IF
{ 60 lev = } lstat "dim" == IF
{ 40 lev = } lstat "dark" == IF
{ 20 lev = } lstat "black" == IF
lev DIMROOM
} }
ON ENTER
{
{ "To dim lights, say..." STATUSMSG } 300 ALARMEXEC
{ " \"dim\", \"dark\", \"black\", or \"light\"." STATUSMSG } 500 ALARMEXEC
}