ON INCHAT

{ lstat GLOBAL CHATSTR lstat = 30 ME SETALARM }

ON ALARM{

lev GLOBAL

lstat GLOBAL

{ 0 lev = } lstat "jour" == IF

{ 60 lev = } lstat "matin" == IF

{ 40 lev = } lstat "soir" == IF

{ 20 lev = } lstat "nuit" == IF

lev DIMROOM

} }

ON ENTER

{

{ "Pour modifier l'éclairage, dites..." STATUSMSG } 300 ALARMEXEC

{ " \"matin\", \"soir\", \"nuit\", ou \"jour\"." STATUSMSG } 500 ALARMEXEC

}

ON LEAVE {

{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF