@verb #8438:"@busy @unbusy" none none none rdo #8438
@program #8438:"@busy @unbusy" none none none
"Cuts me off from the rest of the MOO world - so I can do something in peace."
if (verb == "@busy")
  if (this.busy != 1)
    this.busy = 1
    this.msg_mood = "busy"
    this.gaglist = setadd(this.gaglist, #-1)
    $msg:mtell("earplug", this:titlec())
    force_input(this, "@unmonitor")
    return player:tell("You have made yourself busy.")
  elseif (this.busy == 1)
    return player:tell("You are already busy.")
  endif
elseif (verb == "@unbusy")
  if (this.busy != 0)
    this.busy = 0
    this.msg_mood = ""
    mail = this:length_all_msgs() - this:length_date_le(this:get_current_message()[2])
    if (mail)
      player:tell("You have new mail (", mail, " message", length(mail) > 1 ? "s" | "", ").")
    endif
    this:mail_catch_up()
    this:check_mail_lists()
    if (this.answering_machine)
      this:answering_machine()
    endif
    force_input(this, "@monitor")
    this.gaglist = setremove(this.gaglist, #-1)
    $msg:mtell("earunplug", this:titlec())
    return player:tell("You have made yourself unbusy.")
  else
    return player:tell("You're not busy - so you're already 'unbusy'! ;-)")
  endif
endif
.