@verb #1110:"lock" this none this rxdo #789
@program #1110:"lock" this none this
"Lock the cell, display the countdown, unlock the cell, and allow for kill_tasks."
caller == this || raise(E_PERM)
this.task_ID ? kill_task(this.task_ID) | this:announce_all("You hear a brief buzz as the force field is raised.")
#2453.key = #1548.key = #-1
this:announce_all("WARNING: 90 seconds before the force field is lowered.")
fork task_ID (30)
  this:announce_all("WARNING: 60 seconds before the force field is lowered.")
  fork task_ID (30)
    this:announce_all("WARNING: 30 seconds before the force field is lowered.")
    fork task_ID (30)
      this.task_ID = 0
      this:unlock()
    endfork
    this.task_ID = task_ID
  endfork
  this.task_ID = task_ID
endfork
this.task_ID = task_ID
"Last modified by Dax (#789) on Mon May  7 14:18:02 2001 MDT."
.