1ed
@verb #58:"start_cleanup" this none this rxdo #58
@program #58:"start_cleanup" this none this
!caller_perms():controls(this) && raise(E_PERM)
"Dumb algorithm, but hey it only once every 24h, in the middle of the night."
need_cleaning = {}
for r in ($room:descendants_suspended())
  if (r.clean_me)
    need_cleaning[1..0] = {r}
  endif
  $command_utils:suspend_if_needed()
endfor
this:dispatch(@need_cleaning)
"Last modified by Raptor (#6319) on Fri Oct 30 18:13:10 1998 EST."
.

0