alias closeroom {
var %locks = category, hostkey, language, language2, onjoin, onpart, ownerkey, topic
var %null = ownerkey :, hostkey:, memberkey :, onjoin :, onpart :, category UL
var %unlock.nr = 1, %null.nr = 1, %lock.nr = 1
while ($gettok(%locks,%unlock.nr,44)) { PROP # UNLOCK $v1 | inc %unlock.nr }
while ($gettok(%null,%null.nr,44)) { PROP # $v1 | inc %null.nr }
while ($gettok(%locks,%lock.nr,44)) { PROP # LOCK $v1 | inc %lock.nr }
}